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

Tense to Common ; Idiom ; Text

Browse Source
This commit is contained in:
aarne
2006-02-20 22:11:57 +00:00
parent 599bbbd7d8
commit ca246d5943
37 changed files with 252 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
resource-1.0/english/IdiomEng.gf
View File

@@ -4,9 +4,11 @@ concrete IdiomEng of Idiom = CatEng ** open Prelude, ResEng in {
lin
ExistNP np =
mkClause "there" (agrP3 Sg) (insertObj (\\_ => np.s ! Acc) (predAux auxBe)) ;
ImpersVP vp = mkClause "it" (agrP3 Sg) vp ;
-- ProgrVP : VP -> VP ; -- sleeping
mkClause "there" (agrP3 np.a.n) (insertObj (\\_ => np.s ! Acc) (predAux auxBe)) ;
ImpersCl vp = mkClause "it" (agrP3 Sg) vp ;
GenericCl vp = mkClause "one" (agrP3 Sg) vp ;
ProgrVP vp = insertObj (\\a => vp.ad ++ vp.prp ++ vp.s2 ! a) (predAux auxBe) ;
}