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

PPartNP and AdvNP.

Browse Source
This commit is contained in:
aarne
2006-05-16 22:13:12 +00:00
parent 39f6049f2d
commit ddfd57fe7d
7 changed files with 79 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
lib/resource-1.0/german/IdiomGer.gf
View File

@@ -4,16 +4,28 @@ concrete IdiomGer of Idiom = CatGer **
flags optimize=all_subs ;
lin
ExistNP np =
let geben = dirV2 (mkV "geben" "gibt" "gib" "gab" "gäbe" "gegeben")
in
mkClause "es" (agrP3 Sg)
(insertObj (\\_ => appPrep geben.c2 np.s)
(predV geben)) ;
ImpersCl vp = mkClause "es" (agrP3 Sg) vp ;
GenericCl vp = mkClause "man" (agrP3 Sg) vp ;
ExistNP np =
mkClause "es" (agrP3 Sg)
(insertObj (\\_ => appPrep geben.c2 np.s)
(predV geben)) ;
ExistIP ip = {
s = \\t,a,p =>
let
cls = (mkClause "es" (agrP3 Sg) (predV geben)).s ! t ! a ! p ;
who = ip.s ! Acc
in table {
QDir => who ++ cls ! Inv ;
QIndir => who ++ cls ! Sub
}
} ;
ProgrVP = insertAdv "eben" ; ----
oper
geben = dirV2 (mkV "geben" "gibt" "gib" "gab" "gäbe" "gegeben") ;
}