-- 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. {-# LANGUAGE GADTs #-} {-# LANGUAGE OverloadedStrings #-} module Duckling.Ordinal.ZH.Rules ( rules ) where import Prelude import Data.String import Duckling.Dimensions.Types import Duckling.Numeral.Types (NumeralData(..)) import qualified Duckling.Numeral.Types as TNumeral import Duckling.Ordinal.Helpers import Duckling.Types ruleOrdinalDigits :: Rule ruleOrdinalDigits = Rule { name = "ordinal (digits)" , pattern = [ regex "第" , dimension Numeral ] , prod = \tokens -> case tokens of (_:Token Numeral NumeralData{TNumeral.value = x}:_) -> Just . ordinal $ floor x _ -> Nothing } rules :: [Rule] rules = [ ruleOrdinalDigits ]