mirror of
https://github.com/facebook/duckling.git
synced 2024-09-11 21:27:13 +03:00
Temperature for Croatian
Summary: Temperature dimension for Croatian Reviewed By: niteria Differential Revision: D4958590 fbshipit-source-id: fe6c2e4
This commit is contained in:
parent
3cc3266e28
commit
3f40625339
@ -19,6 +19,7 @@ allDimensions =
|
||||
, This Numeral
|
||||
, This Ordinal
|
||||
, This Quantity
|
||||
, This Temperature
|
||||
, This Time
|
||||
, This Volume
|
||||
]
|
||||
|
@ -21,6 +21,7 @@ import qualified Duckling.Duration.HR.Rules as Duration
|
||||
import qualified Duckling.Numeral.HR.Rules as Numeral
|
||||
import qualified Duckling.Ordinal.HR.Rules as Ordinal
|
||||
import qualified Duckling.Quantity.HR.Rules as Quantity
|
||||
import qualified Duckling.Temperature.HR.Rules as Temperature
|
||||
import qualified Duckling.Time.HR.Rules as Time
|
||||
import qualified Duckling.TimeGrain.HR.Rules as TimeGrain
|
||||
import qualified Duckling.Volume.HR.Rules as Volume
|
||||
@ -35,7 +36,7 @@ rules (This Ordinal) = Ordinal.rules
|
||||
rules (This PhoneNumber) = []
|
||||
rules (This Quantity) = Quantity.rules
|
||||
rules (This RegexMatch) = []
|
||||
rules (This Temperature) = []
|
||||
rules (This Temperature) = Temperature.rules
|
||||
rules (This Time) = Time.rules
|
||||
rules (This TimeGrain) = TimeGrain.rules
|
||||
rules (This Url) = []
|
||||
|
45
Duckling/Temperature/HR/Corpus.hs
Normal file
45
Duckling/Temperature/HR/Corpus.hs
Normal file
@ -0,0 +1,45 @@
|
||||
-- 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. An additional grant
|
||||
-- of patent rights can be found in the PATENTS file in the same directory.
|
||||
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
|
||||
module Duckling.Temperature.HR.Corpus
|
||||
( corpus ) where
|
||||
|
||||
import Prelude
|
||||
import Data.String
|
||||
|
||||
import Duckling.Lang
|
||||
import Duckling.Resolve
|
||||
import Duckling.Temperature.Types
|
||||
import Duckling.Testing.Types
|
||||
|
||||
corpus :: Corpus
|
||||
corpus = (testContext {lang = HR}, allExamples)
|
||||
|
||||
allExamples :: [Example]
|
||||
allExamples = concat
|
||||
[ examples (TemperatureValue Celsius 37)
|
||||
[ "37°C"
|
||||
, "37 ° celzija"
|
||||
, "37 stupnjeva Celzija"
|
||||
, "trideset i sedam celzija"
|
||||
, "37 stupnjeva Celzija"
|
||||
, "trideset sedam celzija"
|
||||
]
|
||||
, examples (TemperatureValue Fahrenheit 70)
|
||||
[ "70°F"
|
||||
, "70 ° Fahrenheit"
|
||||
, "70 stupnjeva F"
|
||||
, "sedamdeset Fahrenheit"
|
||||
]
|
||||
, examples (TemperatureValue Degree 45)
|
||||
[ "45°"
|
||||
, "45 stupnjeva"
|
||||
, "45 deg."
|
||||
]
|
||||
]
|
67
Duckling/Temperature/HR/Rules.hs
Normal file
67
Duckling/Temperature/HR/Rules.hs
Normal file
@ -0,0 +1,67 @@
|
||||
-- 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. An additional grant
|
||||
-- of patent rights can be found in the PATENTS file in the same directory.
|
||||
|
||||
{-# LANGUAGE GADTs #-}
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
|
||||
module Duckling.Temperature.HR.Rules
|
||||
( rules ) where
|
||||
|
||||
import Data.String
|
||||
import Prelude
|
||||
|
||||
import Duckling.Dimensions.Types
|
||||
import Duckling.Temperature.Helpers
|
||||
import Duckling.Temperature.Types (TemperatureData (..))
|
||||
import Duckling.Types
|
||||
import qualified Duckling.Temperature.Types as TTemperature
|
||||
|
||||
ruleLatentTempStupnjevi :: Rule
|
||||
ruleLatentTempStupnjevi = Rule
|
||||
{ name = "<latent temp> stupnjevi"
|
||||
, pattern =
|
||||
[ dimension Temperature
|
||||
, regex "deg\\.?|stupa?nj((ev)?a)?|\x00b0"
|
||||
]
|
||||
, prod = \tokens -> case tokens of
|
||||
(Token Temperature td:_) -> Just . Token Temperature $
|
||||
withUnit TTemperature.Degree td
|
||||
_ -> Nothing
|
||||
}
|
||||
|
||||
ruleTempCelzij :: Rule
|
||||
ruleTempCelzij = Rule
|
||||
{ name = "<temp> Celzij"
|
||||
, pattern =
|
||||
[ dimension Temperature
|
||||
, regex "c(elz?(ija?)?)?\\.?"
|
||||
]
|
||||
, prod = \tokens -> case tokens of
|
||||
(Token Temperature td:_) -> Just . Token Temperature $
|
||||
withUnit TTemperature.Celsius td
|
||||
_ -> Nothing
|
||||
}
|
||||
|
||||
ruleTempFahrenheit :: Rule
|
||||
ruleTempFahrenheit = Rule
|
||||
{ name = "<temp> Fahrenheit"
|
||||
, pattern =
|
||||
[ dimension Temperature
|
||||
, regex "f(ah?rh?eh?n(h?eit)?)?\\.?"
|
||||
]
|
||||
, prod = \tokens -> case tokens of
|
||||
(Token Temperature td:_) -> Just . Token Temperature $
|
||||
withUnit TTemperature.Fahrenheit td
|
||||
_ -> Nothing
|
||||
}
|
||||
|
||||
rules :: [Rule]
|
||||
rules =
|
||||
[ ruleLatentTempStupnjevi
|
||||
, ruleTempCelzij
|
||||
, ruleTempFahrenheit
|
||||
]
|
@ -363,6 +363,8 @@ library
|
||||
, Duckling.Temperature.FR.Rules
|
||||
, Duckling.Temperature.GA.Corpus
|
||||
, Duckling.Temperature.GA.Rules
|
||||
, Duckling.Temperature.HR.Corpus
|
||||
, Duckling.Temperature.HR.Rules
|
||||
, Duckling.Temperature.JA.Corpus
|
||||
, Duckling.Temperature.JA.Rules
|
||||
, Duckling.Temperature.KO.Corpus
|
||||
@ -640,6 +642,7 @@ test-suite duckling-test
|
||||
, Duckling.Temperature.ES.Tests
|
||||
, Duckling.Temperature.FR.Tests
|
||||
, Duckling.Temperature.GA.Tests
|
||||
, Duckling.Temperature.HR.Tests
|
||||
, Duckling.Temperature.JA.Tests
|
||||
, Duckling.Temperature.KO.Tests
|
||||
, Duckling.Temperature.PT.Tests
|
||||
|
22
tests/Duckling/Temperature/HR/Tests.hs
Normal file
22
tests/Duckling/Temperature/HR/Tests.hs
Normal file
@ -0,0 +1,22 @@
|
||||
-- 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. An additional grant
|
||||
-- of patent rights can be found in the PATENTS file in the same directory.
|
||||
|
||||
module Duckling.Temperature.HR.Tests
|
||||
( tests ) where
|
||||
|
||||
import Data.String
|
||||
import Prelude
|
||||
import Test.Tasty
|
||||
|
||||
import Duckling.Dimensions.Types
|
||||
import Duckling.Temperature.HR.Corpus
|
||||
import Duckling.Testing.Asserts
|
||||
|
||||
tests :: TestTree
|
||||
tests = testGroup "HR Tests"
|
||||
[ makeCorpusTest [This Temperature] corpus
|
||||
]
|
@ -16,6 +16,7 @@ import qualified Duckling.Temperature.EN.Tests as EN
|
||||
import qualified Duckling.Temperature.ES.Tests as ES
|
||||
import qualified Duckling.Temperature.FR.Tests as FR
|
||||
import qualified Duckling.Temperature.GA.Tests as GA
|
||||
import qualified Duckling.Temperature.HR.Tests as HR
|
||||
import qualified Duckling.Temperature.JA.Tests as JA
|
||||
import qualified Duckling.Temperature.KO.Tests as KO
|
||||
import qualified Duckling.Temperature.PT.Tests as PT
|
||||
@ -28,6 +29,7 @@ tests = testGroup "Temperature Tests"
|
||||
, ES.tests
|
||||
, FR.tests
|
||||
, GA.tests
|
||||
, HR.tests
|
||||
, JA.tests
|
||||
, KO.tests
|
||||
, PT.tests
|
||||
|
Loading…
Reference in New Issue
Block a user