1
0
forked from GitHub/gf-core

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 ff8e7b8f93
commit 0d7406a7f0
5 changed files with 332 additions and 329 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 ;