diff --git a/Duckling/AmountOfMoney/AR/Corpus.hs b/Duckling/AmountOfMoney/AR/Corpus.hs index fb3add06..378667c8 100644 --- a/Duckling/AmountOfMoney/AR/Corpus.hs +++ b/Duckling/AmountOfMoney/AR/Corpus.hs @@ -86,6 +86,8 @@ allExamples = concat [ "42 EGP" , "42 جنيه مصري" , "42 جنيهات مصريه" + , "42 ج.م" + , "42 ج.م." ] , examples (simple QAR 42) [ "42 QAR" diff --git a/Duckling/AmountOfMoney/AR/Rules.hs b/Duckling/AmountOfMoney/AR/Rules.hs index 5b5976db..a6d61f1a 100644 --- a/Duckling/AmountOfMoney/AR/Rules.hs +++ b/Duckling/AmountOfMoney/AR/Rules.hs @@ -51,6 +51,15 @@ rulePounds = Rule , prod = \_ -> Just . Token AmountOfMoney $ currencyOnly Pound } +ruleEgpAbrreviation :: Rule +ruleEgpAbrreviation = Rule + { name = "EGP abbreviation" + , pattern = + [ regex "ج[.]م[.]?" + ] + , prod = \_ -> Just . Token AmountOfMoney $ currencyOnly EGP + } + ruleDinars :: Rule ruleDinars = Rule { name = "dinars" @@ -390,6 +399,7 @@ rules = [ ruleUnitAmount , ruleCent , rulePounds + , ruleEgpAbrreviation , ruleDinars , ruleDirhams , ruleRiyals diff --git a/Duckling/AmountOfMoney/EN/Corpus.hs b/Duckling/AmountOfMoney/EN/Corpus.hs index af82f519..8751da8e 100644 --- a/Duckling/AmountOfMoney/EN/Corpus.hs +++ b/Duckling/AmountOfMoney/EN/Corpus.hs @@ -149,6 +149,12 @@ allExamples = concat , examples (simple EGP 42) [ "42 EGP" , "42 egyptianpound" + , "42 LE" + , "42 L.E" + , "42 l.e." + , "42 le" + , "42 geneh" + , "42 genihat masriya" ] , examples (simple QAR 42) [ "42 QAR" diff --git a/Duckling/AmountOfMoney/EN/Rules.hs b/Duckling/AmountOfMoney/EN/Rules.hs index 341edd9a..75cd7eff 100644 --- a/Duckling/AmountOfMoney/EN/Rules.hs +++ b/Duckling/AmountOfMoney/EN/Rules.hs @@ -65,6 +65,24 @@ ruleOtherPounds = Rule _ -> Nothing } +ruleEgpAbrreviation :: Rule +ruleEgpAbrreviation = Rule + { name = "livre égyptienne" + , pattern = + [ regex "[lL].?[eE].?" + ] + , prod = \_ -> Just . Token AmountOfMoney $ currencyOnly EGP + } + +ruleEgpArabizi :: Rule +ruleEgpArabizi = Rule + { name = "geneh" + , pattern = + [ regex "[Gg][eiy]*n[eiy]*h(at)?( m[aiey]?sr[eiy]+a?)?" + ] + , prod = \_ -> Just . Token AmountOfMoney $ currencyOnly EGP + } + ruleRiyals :: Rule ruleRiyals = Rule { name = "riyals" @@ -405,6 +423,8 @@ rules = , ruleIntervalDash , ruleKopiyka , ruleOtherPounds + , ruleEgpAbrreviation + , ruleEgpArabizi , rulePounds , rulePrecision , ruleRinggit