GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

completed IdiomCat to compile api and math

Browse Source
This commit is contained in:
aarne
2008-09-09 16:11:05 +00:00
parent fa02871525
commit 3da1d10eb9
7 changed files with 68 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
lib/resource/catalan/IdiomCat.gf
View File

@@ -21,4 +21,32 @@ concrete IdiomCat of Idiom = CatCat **
)
(predV (verbV (estar_54 "estar"))) ;
----AR, for completeness
CleftNP np rs = mkClause [] True (agrP3 Masc Sg)
(insertComplement (\\_ => rs.s ! Indic ! np.a)
(insertComplement (\\_ => np.s ! Ton rs.c) (predV copula))) ;
ExistIP ip = {
s = \\t,a,p,_ =>
ip.s ! Nom ++
(mkClause [] True
(agrP3 Masc Sg)
(insertClit2 "hi" (insertComplement (\\_ => ip.s ! Acc) (predV haver_V))))
.s ! DDir ! t ! a ! p ! Indic
} ;
ImpPl1 vpr = let vp = useVP vpr in {s =
(mkImperative False P1 vp).s ! Pos ! {n = Pl ; g = Masc} --- fem
} ;
CleftAdv ad s = mkClause [] True (agrP3 Masc Sg)
(insertComplement (\\_ => conjThat ++ s.s ! Indic)
(insertComplement (\\_ => ad.s) (predV copula))) ;
}