query language extended and generalized

This commit is contained in:
aarne
2010-06-19 10:29:06 +00:00
parent cca3039505
commit d9c34ce848
8 changed files with 174 additions and 61 deletions

View File

@@ -46,5 +46,10 @@ concrete VerbEng of Verb = CatEng ** open ResEng in {
CompAP ap = ap ;
CompNP np = {s = \\_ => np.s ! Acc} ;
CompAdv a = {s = \\_ => a.s} ;
CompCN cn = {s = \\a => case (fromAgr a).n of {
Sg => artIndef ++ cn.s ! Sg ! Nom ;
Pl => cn.s ! Pl ! Nom
}
} ;
}