msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Added mkDet : Digit -> Det

Browse Source
This commit is contained in:
bringert
2007-03-22 14:36:52 +00:00
parent 85cf5ecf21
commit 6b2a890410
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/resource-1.0/api/Constructors.gf
View File

@@ -127,7 +127,8 @@ incomplete resource Constructors = open Grammar in {
mkDet : QuantPl -> Num -> Ord -> Det ; -- these five best (men) mkDet : QuantPl -> Num -> Ord -> Det ; -- these five best (men)
mkDet : QuantPl -> Det ; -- these (men) mkDet : QuantPl -> Det ; -- these (men)
mkDet : Quant -> Det ; -- this (man) mkDet : Quant -> Det ; -- this (man)
mkDet : Num -> Det ; -- five (men) mkDet : Num -> Det ; -- forty-five (men)
mkDet : Digit -> Det ; -- five (men)
mkDet : Pron -> Det -- my (house) mkDet : Pron -> Det -- my (house)
} ; } ;
@@ -354,8 +355,11 @@ incomplete resource Constructors = open Grammar in {
= \q -> DetPl q NoNum NoOrd ; = \q -> DetPl q NoNum NoOrd ;
mkDet : Quant -> Det -- this man mkDet : Quant -> Det -- this man
= \q -> DetSg (SgQuant q) NoOrd ; = \q -> DetSg (SgQuant q) NoOrd ;
mkDet : Num -> Det -- five men mkDet : Num -> Det -- forty-five men
= \n -> DetPl (PlQuant IndefArt) n NoOrd ; = \n -> DetPl (PlQuant IndefArt) n NoOrd ;
mkDet : Digit -> Det -- five (men)
= \d -> DetPl (PlQuant IndefArt) (NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 d)))))) NoOrd ;
mkDet : Pron -> Det -- my (house) mkDet : Pron -> Det -- my (house)
= \p -> DetSg (SgQuant (PossPron p)) NoOrd = \p -> DetSg (SgQuant (PossPron p)) NoOrd
} ; } ;