mirror of
https://github.com/facebook/duckling.git
synced 2024-12-26 05:33:24 +03:00
124 lines
3.6 KiB
Haskell
124 lines
3.6 KiB
Haskell
-- Copyright (c) 2016-present, Facebook, Inc.
|
|
-- All rights reserved.
|
|
--
|
|
-- This source code is licensed under the BSD-style license found in the
|
|
-- LICENSE file in the root directory of this source tree. An additional grant
|
|
-- of patent rights can be found in the PATENTS file in the same directory.
|
|
|
|
|
|
{-# LANGUAGE GADTs #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Duckling.Ordinal.AR.Rules
|
|
( rules ) where
|
|
|
|
import Prelude
|
|
import Data.String
|
|
|
|
import Duckling.Ordinal.Helpers
|
|
import Duckling.Types
|
|
|
|
ruleOrdinalsTh :: Rule
|
|
ruleOrdinalsTh = Rule
|
|
{ name = "ordinals 7th"
|
|
, pattern =
|
|
[ regex "(\x0633\x0627\x0628\x0639 | \x0633\x0627\x0628\x0639\x0629 | \x0627\x0644\x0633\x0627\x0628\x0639 | \x0627\x0644\x0633\x0627\x0628\x0639\x0629)"
|
|
]
|
|
, prod = \_ -> Just $ ordinal 7
|
|
}
|
|
|
|
ruleOrdinalsSecond :: Rule
|
|
ruleOrdinalsSecond = Rule
|
|
{ name = "ordinals second"
|
|
, pattern =
|
|
[ regex "(\x062b\x0627\x0646\x064a|\x062b\x0627\x0646\x064a\x0629|\x0627\x0644\x062b\x0627\x0646\x064a|\x0627\x0644\x062b\x0627\x0646\x064a\x0629)"
|
|
]
|
|
, prod = \_ -> Just $ ordinal 2
|
|
}
|
|
|
|
ruleOrdinalsFirst :: Rule
|
|
ruleOrdinalsFirst = Rule
|
|
{ name = "ordinals first"
|
|
, pattern =
|
|
[ regex "(\x0623\x0648\x0644|\x0627\x0644\x0623\x0648\x0644|\x0623\x0648\x0644\x0649|\x0627\x0644\x0623\x0648\x0644\x0649)"
|
|
]
|
|
, prod = \_ -> Just $ ordinal 1
|
|
}
|
|
|
|
ruleOrdinalsFirst5 :: Rule
|
|
ruleOrdinalsFirst5 = Rule
|
|
{ name = "ordinals first"
|
|
, pattern =
|
|
[ regex "(\x0633\x0627\x062f\x0633 | \x0633\x0627\x062f\x0633\x0629 | \x0627\x0644\x0633\x0627\x062f\x0633 | \x0627\x0644\x0633\x0627\x062f\x0633\x0629)"
|
|
]
|
|
, prod = \_ -> Just $ ordinal 6
|
|
}
|
|
|
|
ruleOrdinalsTh2 :: Rule
|
|
ruleOrdinalsTh2 = Rule
|
|
{ name = "ordinals 8th"
|
|
, pattern =
|
|
[ regex "(\x062b\x0627\x0645\x0646 | \x062b\x0627\x0645\x0646\x0629 | \x0627\x0644\x062b\x0627\x0645\x0646 | \x0627\x0644\x062b\x0627\x0645\x0646\x0629)"
|
|
]
|
|
, prod = \_ -> Just $ ordinal 8
|
|
}
|
|
|
|
ruleOrdinalsFirst2 :: Rule
|
|
ruleOrdinalsFirst2 = Rule
|
|
{ name = "ordinals first"
|
|
, pattern =
|
|
[ regex "(\x062b\x0627\x0644\x062b|\x062b\x0627\x0644\x062b\x0629|\x0627\x0644\x062b\x0627\x0644\x062b|\x0627\x0644\x062b\x0627\x0644\x062b\x0629)"
|
|
]
|
|
, prod = \_ -> Just $ ordinal 3
|
|
}
|
|
|
|
ruleOrdinalsTh4 :: Rule
|
|
ruleOrdinalsTh4 = Rule
|
|
{ name = "ordinals 10th"
|
|
, pattern =
|
|
[ regex "(\x0639\x0627\x0634\x0631 | \x0639\x0627\x0634\x0631\x0629 | \x0627\x0644\x0639\x0627\x0634\x0631 | \x0627\x0644\x0639\x0627\x0634\x0631\x0629)"
|
|
]
|
|
, prod = \_ -> Just $ ordinal 10
|
|
}
|
|
|
|
ruleOrdinalsTh3 :: Rule
|
|
ruleOrdinalsTh3 = Rule
|
|
{ name = "ordinals 9th"
|
|
, pattern =
|
|
[ regex "(\x062a\x0627\x0633\x0639 | \x062a\x0627\x0633\x0639\x0629 | \x0627\x0644\x062a\x0627\x0633\x0639 | \x0627\x0644\x062a\x0627\x0633\x0639\x0629)"
|
|
]
|
|
, prod = \_ -> Just $ ordinal 9
|
|
}
|
|
|
|
ruleOrdinalsFirst4 :: Rule
|
|
ruleOrdinalsFirst4 = Rule
|
|
{ name = "ordinals first"
|
|
, pattern =
|
|
[ regex "(\x062e\x0627\x0645\x0633 | \x0627\x0644\x062e\x0627\x0645\x0633 | \x062e\x0627\x0645\x0633\x0629 | \x0627\x0644\x062e\x0627\x0645\x0633\x0629)"
|
|
]
|
|
, prod = \_ -> Just $ ordinal 5
|
|
}
|
|
|
|
ruleOrdinalsFirst3 :: Rule
|
|
ruleOrdinalsFirst3 = Rule
|
|
{ name = "ordinals first"
|
|
, pattern =
|
|
[ regex "(\x0631\x0627\x0628\x0639|\x0631\x0627\x0628\x0639\x0629 | \x0627\x0644\x0631\x0627\x0628\x0639|\x0627\x0644\x0631\x0627\x0628\x0639\x0629)"
|
|
]
|
|
, prod = \_ -> Just $ ordinal 4
|
|
}
|
|
|
|
rules :: [Rule]
|
|
rules =
|
|
[ ruleOrdinalsFirst
|
|
, ruleOrdinalsFirst2
|
|
, ruleOrdinalsFirst3
|
|
, ruleOrdinalsFirst4
|
|
, ruleOrdinalsFirst5
|
|
, ruleOrdinalsSecond
|
|
, ruleOrdinalsTh
|
|
, ruleOrdinalsTh2
|
|
, ruleOrdinalsTh3
|
|
, ruleOrdinalsTh4
|
|
]
|