completing Idiom implementations

This commit is contained in:
aarne
2006-02-21 11:09:30 +00:00
parent 29aa2b8499
commit 0365c6f346
13 changed files with 101 additions and 10 deletions

View File

@@ -1,7 +1,17 @@
concrete IdiomNor of Idiom = CatNor **
open MorphoNor, ParadigmsNor, Prelude in {
open MorphoNor, ParadigmsNor, IrregNor, Prelude in {
flags optimize=all_subs ;
lin
ExistNP np =
mkClause "det" (agrP3 neutrum Sg) (insertObj
(\\_ => np.s ! accusative) (predV (depV finne_V))) ;
ImpersCl vp = mkClause "det" (agrP3 neutrum Sg) vp ;
GenericCl vp = mkClause "man" (agrP3 neutrum Sg) vp ;
ProgrVP vp =
insertObj (\\a => ["ved å"] ++ infVP vp a) (predV verbBe) ;
}