mirror of
https://github.com/facebook/duckling.git
synced 2024-10-26 21:59:44 +03:00
Time/NL: Support short year notation (19 april '80)
This commit is contained in:
parent
7520daaeba
commit
37c52eaf6d
@ -153,6 +153,10 @@ allExamples = concat
|
||||
, examples (datetime (2015, 4, 14, 0, 0, 0) Day)
|
||||
[ "14 april 2015"
|
||||
, "April 14, 2015"
|
||||
, "14 april 15"
|
||||
]
|
||||
, examples (datetime (1980, 4, 14, 0, 0, 0) Day)
|
||||
[ "14 april '80"
|
||||
]
|
||||
, examples (datetime (2013, 2, 19, 0, 0, 0) Day)
|
||||
[ "volgende week dinsdag"
|
||||
|
@ -783,6 +783,25 @@ ruleDayofmonthNonOrdinalNamedmonth = Rule
|
||||
_ -> Nothing
|
||||
}
|
||||
|
||||
ruleDayofmonthNonOrdinalNamedmonthYear :: Rule
|
||||
ruleDayofmonthNonOrdinalNamedmonthYear = Rule
|
||||
{ name = "<day-of-month> (non ordinal) <named-month> year"
|
||||
, pattern =
|
||||
[ Predicate isDOMInteger
|
||||
, Predicate isAMonth
|
||||
, regex "'?(\\d{2,4})"
|
||||
]
|
||||
, prod = \tokens -> case tokens of
|
||||
(token:
|
||||
Token Time td:
|
||||
Token RegexMatch (GroupMatch (match:_)):
|
||||
_) -> do
|
||||
y <- parseInt match
|
||||
dom <- intersectDOM td token
|
||||
Token Time <$> intersect dom (year y)
|
||||
_ -> Nothing
|
||||
}
|
||||
|
||||
ruleIntersect :: Rule
|
||||
ruleIntersect = Rule
|
||||
{ name = "intersect"
|
||||
@ -1507,6 +1526,7 @@ rules =
|
||||
, ruleDatetimeDatetimeInterval
|
||||
, ruleDayofmonthNonOrdinalNamedmonth
|
||||
, ruleDayofmonthNonOrdinalOfNamedmonth
|
||||
, ruleDayofmonthNonOrdinalNamedmonthYear
|
||||
, ruleDayofmonthOrdinal
|
||||
, ruleDayofmonthordinalNamedmonth
|
||||
, ruleDayofmonthordinalNamedmonthYear
|
||||
|
Loading…
Reference in New Issue
Block a user