facebook/duckling
1
1
Fork 0
mirror of https://github.com/facebook/duckling.git synced 2024-09-11 21:27:13 +03:00
Code Issues Packages Projects Releases Wiki Activity

Update Rules.hs

Browse Source
This commit is contained in:
cvadim88 2023-01-31 09:58:18 +02:00 committed by GitHub
parent 7520daaeba
commit 3262c92652
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Duckling/Duration/RO/Rules.hs
View File

@ -32,23 +32,32 @@ ruleQuarterOfAnHour = Rule
, prod = \_ -> Just . Token Duration $ duration TG.Minute 15
}
ruleJumatateDeOra :: Rule
ruleJumatateDeOra = Rule
{ name = "jumatate de ora"
ruleHalfOfAnHour :: Rule
ruleHalfOfAnHour = Rule
{ name = "half of an hour"
, pattern =
[ regex "(1/2\\s?(h|or(a|ă))|jum(a|ă)tate (de )?or(a|ă))"
]
, prod = \_ -> Just . Token Duration $ duration TG.Minute 30
}
ruleTreiSferturiDeOra :: Rule
ruleTreiSferturiDeOra = Rule
{ name = "trei sferturi de ora"
ruleThreeQuartersOfAnHour :: Rule
ruleThreeQuartersOfAnHour = Rule
{ name = "three quarters of an hour"
, pattern =
[ regex "(3/4\\s?(h|or(a|ă))|trei sferturi de or(a|ă))"
]
, prod = \_ -> Just . Token Duration $ duration TG.Minute 45
}
ruleOneNight :: Rule
ruleOneNight = Rule
{ name = "one night"
, pattern =
[ regex "(1\s?noapte)|(o noapte)"
]
, prod = _ -> Just . Token Duration $ duration TG.Day 1
}
ruleOUnitofduration :: Rule
ruleOUnitofduration = Rule
@ -93,9 +102,10 @@ ruleIntegerDeUnitofduration = Rule
rules :: [Rule]
rules =
[ ruleExactInJurDeDuration
, ruleJumatateDeOra
, ruleHalfOfAnHour
, ruleOUnitofduration
, ruleQuarterOfAnHour
, ruleTreiSferturiDeOra
, ruleThreeQuartersOfAnHour
, ruleIntegerDeUnitofduration
, ruleOneNight
]