facebook/duckling
1
1
Fork 0
mirror of https://github.com/facebook/duckling.git synced 2024-08-17 09:10:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

PT time improvements 2 (#636)

Browse Source 
Summary:
Fixed rules for PT time expressions like "amanhã à noite", "dia 17", "dia 15 às 18"

Pull Request resolved: https://github.com/facebook/duckling/pull/636

Reviewed By: stroxler

Differential Revision: D30138416

Pulled By: chessai

fbshipit-source-id: 5265d44e7ddce5eee8cd7266df9254389a10b139
This commit is contained in:
Filipe Pereira 2021-08-05 13:44:10 -07:00 committed by Facebook GitHub Bot
parent fc7950a68f
commit 57dab83ad3
3 changed files with 484 additions and 412 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

861
Duckling/Ranking/Classifiers/PT_XX.hs
View File

File diff suppressed because it is too large Load Diff

31
Duckling/Time/PT/Corpus.hs
View File

@ -182,6 +182,7 @@ allExamples = concat
, "17/2"
, "no domingo"
, "no dia 17"
, "dia 17"
]
, examples (datetime (2013, 2, 20, 0, 0, 0) Day)
[ "esse dia 20"
@ -258,9 +259,29 @@ allExamples = concat
, examples (datetime (2013, 2, 12, 20, 0, 0) Hour)
[ "às oito da noite"
]
, examples (datetime (2013, 2, 13, 20, 0, 0) Hour)
[ "amanhã às oito da noite"
]
, examples (datetime (2013, 2, 15, 18, 0, 0) Hour)
[ "no dia 15 às 18"
, "dia 15 às 18"
, "dia 15 às 18 horas"
, "dia 15 às dezoito"
, "dia quinze às dezoito"
]
, examples (datetime (2013, 2, 14, 18, 0, 0) Hour)
[ "quinta-feira às 18 horas"
, "quinta às 18"
]
, examples (datetime (2013, 2, 15, 18, 15, 0) Minute)
[ "dia 15 de Fevereiro às 18:15"
, "dia 15 às 18:15"
]
, examples (datetime (2013, 2, 12, 15, 0, 0) Minute)
[ "15:00"
, "15.00"
, "às 15:00"
, "às 15.00"
]
, examples (datetime (2013, 2, 13, 0, 0, 0) Hour)
[ "meianoite"
@ -396,9 +417,19 @@ allExamples = concat
]
, examples (datetimeInterval ((2013, 2, 13, 18, 0, 0), (2013, 2, 14, 0, 0, 0)) Hour)
[ "amanhã a noite"
, "amanhã à noite"
]
, examples (datetimeInterval ((2013, 2, 11, 18, 0, 0), (2013, 2, 12, 0, 0, 0)) Hour)
[ "ontem a noite"
, "ontem à noite"
]
, examples (datetimeInterval ((2013, 2, 13, 12, 0, 0), (2013, 2, 13, 19, 0, 0)) Hour)
[ "amanhã a tarde"
, "amanhã à tarde"
]
, examples (datetimeInterval ((2013, 2, 11, 12, 0, 0), (2013, 2, 11, 19, 0, 0)) Hour)
[ "ontem a tarde"
, "ontem à tarde"
]
, examples (datetimeInterval ((2013, 2, 15, 18, 0, 0), (2013, 2, 18, 0, 0, 0)) Hour)
[ "este final de semana"

4
Duckling/Time/PT/Rules.hs
View File

@ -577,7 +577,7 @@ ruleInThePartofday :: Rule
ruleInThePartofday = Rule
{ name = "in the <part-of-day>"
, pattern =
[ regex "(de|pela)"
[ regex "(de|pela|a|à)"
, Predicate isAPartOfDay
]
, prod = \tokens -> case tokens of
@ -1032,7 +1032,7 @@ ruleDiaDayofmonthNonOrdinal = Rule
, prod = \tokens -> case tokens of
(_:token:_) -> do
v <- getIntValue token
tt . mkLatent $ dayOfMonth v
tt $ dayOfMonth v
_ -> Nothing
}