completing Idiom implementations

2006-02-21 11:09:30 +00:00
parent 29aa2b8499
commit 0365c6f346
13 changed files with 101 additions and 10 deletions
--- a/lib/resource-1.0/swedish/IdiomSwe.gf
+++ b/lib/resource-1.0/swedish/IdiomSwe.gf
@@ -1,7 +1,17 @@
 concrete IdiomSwe of Idiom = CatSwe ** 
-  open MorphoSwe, ParadigmsSwe, Prelude in {
+  open MorphoSwe, ParadigmsSwe, IrregSwe, Prelude in {

  flags optimize=all_subs ;

+  lin
+    ExistNP np = 
+      mkClause "det" (agrP3 neutrum Sg) (insertObj 
+        (\\_ => np.s ! accusative) (predV (depV finna_V))) ;
+    ImpersCl vp = mkClause "det" (agrP3 neutrum Sg) vp ;
+    GenericCl vp = mkClause "man" (agrP3 neutrum Sg) vp ;
+
+    ProgrVP vp = 
+      insertObj (\\a => "att" ++ infVP vp a) (predV (partV hålla_V "på")) ;
+
 }