1
0
forked from GitHub/gf-rgl

Danish lexicon and verbs complete, but inflection has to be verified

This commit is contained in:
aarne
2006-05-25 21:59:00 +00:00
parent 327bacc5c0
commit 98a608160a
4 changed files with 329 additions and 326 deletions

View File

@@ -9,13 +9,13 @@ concrete IdiomDan of Idiom = CatDan **
ExistNP np =
mkClause "det" (agrP3 neutrum Sg) (insertObj
(\\_ => np.s ! accusative) (predV (depV finne_V))) ;
(\\_ => np.s ! accusative) (predV (depV finde_V))) ;
ExistIP ip = {
s = \\t,a,p =>
let
cls =
(mkClause "det" (agrP3 neutrum Sg) (predV (depV finne_V))).s ! t ! a ! p ;
(mkClause "det" (agrP3 neutrum Sg) (predV (depV finde_V))).s ! t ! a ! p ;
who = ip.s ! accusative
in table {
QDir => who ++ cls ! Inv ;