ExistIP (still unfinished)

lib/resource-1.0/swedish/IdiomSwe.gf

@@ -4,11 +4,24 @@ concrete IdiomSwe of Idiom = CatSwe **
   flags optimize=all_subs ;
 
   lin
+    ImpersCl vp = mkClause "det" (agrP3 neutrum Sg) vp ;
+    GenericCl vp = mkClause "man" (agrP3 neutrum Sg) vp ;
     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 ;
+
+    ExistIP ip = {
+      s = \\t,a,p => 
+            let 
+              cls = 
+               (mkClause "det" (agrP3 neutrum Sg) (predV (depV finna_V))).s ! t ! a ! p ;
+              who = ip.s ! accusative
+            in table {
+              QDir   => who ++ cls ! Inv ;
+              QIndir => who ++ cls ! Sub
+              }
+      } ;
+
 
     ProgrVP vp = 
       insertObj (\\a => "att" ++ infVP vp a) (predV (partV hålla_V "på")) ;

lib/resource-1.0/swedish/IrregSwe.gf

@@ -109,6 +109,7 @@ concrete IrregSwe of IrregSweAbs = CatSwe ** open ParadigmsSwe in {
   ljuda_V = irregV "ljuda" "ljöd" "ljudit" ;
   ljuga_V = irregV "ljuga" "ljög" "ljugit" ;
   ljuta_V = irregV "ljuta" "ljöt" "ljutit" ;
+  lägga_V = irregV "lägga" "lade" "lagt" ;
   mottaga_V = irregV "mottaga" "mottog" "mottagit" ;
   nerstiga_V = irregV "nerstiga" "nersteg" "nerstigit" ;
   niga_V = irregV "niga" "neg" "nigit" ;

lib/resource-1.0/swedish/IrregSweAbs.gf

@@ -103,6 +103,7 @@ abstract IrregSweAbs = Cat ** {
   ljuda_V : V ;
   ljuga_V : V ;
   ljuta_V : V ;
+  lägga_V : V ;
   mottaga_V : V ;
   nerstiga_V : V ;
   niga_V : V ;