extensions by Codex

src/nynorsk/IdiomNno.gf

@@ -31,6 +31,21 @@ concrete IdiomNno of Idiom = CatNno **
               }
       } ;
 
+    ExistNPAdv np adv =
+      mkClause "det" (agrP3 Neutr Sg) (insertObj
+        (\\_ => np.s ! accusative ++ adv.s) (predV (depV finnast_V))) ;
+
+    ExistIPAdv ip adv = {
+      s = \\t,a,p =>
+        let cls = (mkClause "det" (agrP3 Neutr Sg)
+                    (insertAdv adv.s (predV (depV finnast_V)))).s ! t ! a ! p ;
+            who = ip.s ! accusative
+        in table {
+          QDir => who ++ cls ! Inv ;
+          QIndir => who ++ cls ! Sub
+          }
+      } ;
+
     ProgrVP vp =
       insertObj (\\a => ["ved å"] ++ infVP vp a) (predV verbBe) ;