-- 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.


{-# LANGUAGE GADTs #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE NoRebindableSyntax #-}
{-# LANGUAGE LambdaCase #-}

module Duckling.Numeral.ML.Rules
  ( rules
  ) where

import Data.HashMap.Strict (HashMap)
import Data.Maybe
import Data.String
import Data.Text (Text)
import Prelude
import qualified Data.HashMap.Strict as HashMap
import qualified Data.Text as Text

import Duckling.Dimensions.Types
import Duckling.Numeral.Helpers
import Duckling.Numeral.Types (NumeralData (..))
import Duckling.Regex.Types
import Duckling.Types
import qualified Duckling.Numeral.Types as TNumeral


zeroToNineMap :: HashMap Text Integer
zeroToNineMap :: HashMap Text Integer
zeroToNineMap = [(Text, Integer)] -> HashMap Text Integer
forall k v. (Eq k, Hashable k) => [(k, v)] -> HashMap k v
HashMap.fromList
  [ ( Text
"പൂജ്യം", Integer
0 )
  , ( Text
"ഒന്ന്", Integer
1 )
  , ( Text
"രണ്ട്", Integer
2 )
  , ( Text
"മുന്ന്", Integer
3 )
  , ( Text
"നാല്", Integer
4 )
  , ( Text
"അഞ്ച്", Integer
5 )
  , ( Text
"ആറ്", Integer
6 )
  , ( Text
"ഏഴ്", Integer
7 )
  , ( Text
"എട്ട്", Integer
8 )
  , ( Text
"ഒൻപത്", Integer
9 )
  ]

ruleZeroToNine :: Rule
ruleZeroToNine :: Rule
ruleZeroToNine = Rule :: Text -> Pattern -> Production -> Rule
Rule
  { name :: Text
name = Text
"integer (0..9)"
  , pattern :: Pattern
pattern =
    [ String -> PatternItem
regex String
"(പൂജ്യം|ഒന്ന്|രണ്ട്|മുന്ന്|നാല്|അഞ്ച്|ആറ്|ഏഴ്|എട്ട്|ഒൻപത്)"
    ]
  , prod :: Production
prod = \case
      (Token Dimension a
RegexMatch (GroupMatch (match:_)):[Token]
_) ->
        Text -> HashMap Text Integer -> Maybe Integer
forall k v. (Eq k, Hashable k) => k -> HashMap k v -> Maybe v
HashMap.lookup (Text -> Text
Text.toLower Text
match) HashMap Text Integer
zeroToNineMap Maybe Integer -> (Integer -> Maybe Token) -> Maybe Token
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Integer -> Maybe Token
integer
      [Token]
_ -> Maybe Token
forall a. Maybe a
Nothing
  }

tenToNineteenMap :: HashMap Text Integer
tenToNineteenMap :: HashMap Text Integer
tenToNineteenMap = [(Text, Integer)] -> HashMap Text Integer
forall k v. (Eq k, Hashable k) => [(k, v)] -> HashMap k v
HashMap.fromList
  [ ( Text
"പത്ത്", Integer
10 )
  , ( Text
"പതിനൊന്ന്", Integer
11 )
  , ( Text
"പന്ത്രണ്ട്", Integer
12 )
  , ( Text
"പതിമൂന്ന്", Integer
13 )
  , ( Text
"പതിനാല്", Integer
14 )
  , ( Text
"പതിനഞ്ച്", Integer
15 )
  , ( Text
"പതിനാറ്", Integer
16 )
  , ( Text
"പതിനേഴ്", Integer
17 )
  , ( Text
"പതിനെട്ട്", Integer
18 )
  , ( Text
"പത്തൊമ്പത്", Integer
19 )
  ]

ruleTenToNineteen :: Rule
ruleTenToNineteen :: Rule
ruleTenToNineteen = Rule :: Text -> Pattern -> Production -> Rule
Rule
  { name :: Text
name = Text
"integer (10..19)"
  , pattern :: Pattern
pattern =
    [
      String -> PatternItem
regex String
"(പത്ത്|പതിനൊന്ന്|പന്ത്രണ്ട്|പതിമൂന്ന്|പതിനാല്|പതിനഞ്ച്|പതിനാറ്|പതിനേഴ്|പതിനെട്ട്|പത്തൊമ്പത്)"
    ]
  , prod :: Production
prod = \case
      (Token Dimension a
RegexMatch (GroupMatch (match:_)):[Token]
_) ->
        Text -> HashMap Text Integer -> Maybe Integer
forall k v. (Eq k, Hashable k) => k -> HashMap k v -> Maybe v
HashMap.lookup (Text -> Text
Text.toLower Text
match) HashMap Text Integer
tenToNineteenMap Maybe Integer -> (Integer -> Maybe Token) -> Maybe Token
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Integer -> Maybe Token
integer
      [Token]
_ -> Maybe Token
forall a. Maybe a
Nothing
  }

tensMap :: HashMap Text Integer
tensMap :: HashMap Text Integer
tensMap = [(Text, Integer)] -> HashMap Text Integer
forall k v. (Eq k, Hashable k) => [(k, v)] -> HashMap k v
HashMap.fromList
  [ ( Text
"ഇരുപത്", Integer
20 )
  , ( Text
"ഇരുപത്തി", Integer
20 )
  , ( Text
"മുപ്പത്", Integer
30 )
  , ( Text
"മുപ്പത്തി", Integer
30 )
  , ( Text
"നാല്പത്", Integer
40 )
  , ( Text
"നാല്പത്തി", Integer
40 )
  , ( Text
"അമ്പത്", Integer
50 )
  , ( Text
"അമ്പത്തി", Integer
50 )
  , ( Text
"അറുപത്", Integer
60 )
  , ( Text
"അറുപത്തി", Integer
60 )
  , ( Text
"എഴുപത്", Integer
70 )
  , ( Text
"എഴുപത്തി", Integer
70 )
  , ( Text
"എൺപത്", Integer
80 )
  , ( Text
"എൺപത്തി", Integer
80 )
  , ( Text
"തൊണ്ണൂറ്", Integer
90 )
  , ( Text
"തൊണ്ണൂറ്റി", Integer
90 )
  ]

ruleTens :: Rule
ruleTens :: Rule
ruleTens = Rule :: Text -> Pattern -> Production -> Rule
Rule
  { name :: Text
name = Text
"integer (20..90)"
  , pattern :: Pattern
pattern =
    [ String -> PatternItem
regex String
"(ഇരുപത്|മുപ്പത്|നാല്പത്|അമ്പത്|അറുപത്|എഴുപത്|എൺപത്|തൊണ്ണൂറ്)"
    ]
  , prod :: Production
prod = \case
      (Token Dimension a
RegexMatch (GroupMatch (match:_)):[Token]
_) ->
        Text -> HashMap Text Integer -> Maybe Integer
forall k v. (Eq k, Hashable k) => k -> HashMap k v -> Maybe v
HashMap.lookup (Text -> Text
Text.toLower Text
match) HashMap Text Integer
tensMap Maybe Integer -> (Integer -> Maybe Token) -> Maybe Token
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Integer -> Maybe Token
integer
      [Token]
_ -> Maybe Token
forall a. Maybe a
Nothing
  }

ruleCompositeTens :: Rule
ruleCompositeTens :: Rule
ruleCompositeTens = Rule :: Text -> Pattern -> Production -> Rule
Rule
  { name :: Text
name = Text
"integer ([2-9][1-9])"
  , pattern :: Pattern
pattern =
    [ String -> PatternItem
regex String
"(ഇരുപത്തി|മുപ്പത്തി|നാല്പത്തി|അമ്പത്തി|അറുപത്തി|എഴുപത്തി|എൺപത്തി|തൊണ്ണൂറ്റി)(ഒന്ന്|രണ്ട്|മുന്ന്|നാല്|അഞ്ച്|ആറ്|ഏഴ്|എട്ട്|ഒൻപത്)"
    ]
  , prod :: Production
prod = \case
      (Token Dimension a
RegexMatch (GroupMatch (m1:m2:_)):[Token]
_) -> do
        Integer
v1 <- Text -> HashMap Text Integer -> Maybe Integer
forall k v. (Eq k, Hashable k) => k -> HashMap k v -> Maybe v
HashMap.lookup (Text -> Text
Text.toLower Text
m1) HashMap Text Integer
tensMap
        Integer
v2 <- Text -> HashMap Text Integer -> Maybe Integer
forall k v. (Eq k, Hashable k) => k -> HashMap k v -> Maybe v
HashMap.lookup (Text -> Text
Text.toLower Text
m2) HashMap Text Integer
zeroToNineMap
        Integer -> Maybe Token
integer (Integer -> Maybe Token) -> Integer -> Maybe Token
forall a b. (a -> b) -> a -> b
$ Integer
v1 Integer -> Integer -> Integer
forall a. Num a => a -> a -> a
+ Integer
v2
      [Token]
_ -> Maybe Token
forall a. Maybe a
Nothing
  }

rules :: [Rule]
rules :: [Rule]
rules =
  [ Rule
ruleZeroToNine
  , Rule
ruleTenToNineteen
  , Rule
ruleCompositeTens
  , Rule
ruleTens
  ]