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

Fun CN added.

Browse Source
This commit is contained in:
aarne
2003-11-04 11:47:59 +00:00
parent 22104872d6
commit f23e22f3fd
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
grammars/resource/english/Paradigms.gf
View File

@@ -74,6 +74,10 @@ oper
cnHuman : Str -> CN ; cnHuman : Str -> CN ;
npReg : Str -> NP ; npReg : Str -> NP ;
-- In some cases, you may want to make a complex $CN$ into a function.
mkFunCN : CN -> Preposition -> Fun ;
funOfCN : CN -> Fun ;
--2 Adjectives --2 Adjectives
@@ -184,6 +188,9 @@ oper
cnHuman = \s -> UseN (nGen s human) ; cnHuman = \s -> UseN (nGen s human) ;
npReg = \s -> UsePN (pnReg s) ; npReg = \s -> UsePN (pnReg s) ;
mkFunCN = \n,p -> n ** {s2 = p} ;
funOfCN = \n -> mkFunCN n "of" ;
addGenN : (Str -> CommonNoun) -> Str -> Gender -> N = \f -> addGenN : (Str -> CommonNoun) -> Str -> Gender -> N = \f ->
\s,g -> f s ** {g = g} ; \s,g -> f s ** {g = g} ;
@@ -218,7 +225,7 @@ oper
vPartReg = \get, up -> verbPart (regVerbP3 get) up ; vPartReg = \get, up -> verbPart (regVerbP3 get) up ;
mkTV = \v,p -> v ** {s3 = p} ; mkTV = \v,p -> v ** {s3 = p} ;
tvPartReg = \get, along, with -> mkTV (vPartReg get along) with ; tvPartReg = \get, along, to -> mkTV (vPartReg get along) to ;
vBe = verbBe ; vBe = verbBe ;
vHave = verbP3Have ; vHave = verbP3Have ;