first compilable LangDut

src/dutch/IdiomDut.gf

@@ -0,0 +1,50 @@
+concrete IdiomDut of Idiom = CatDut ** 
+  open MorphoDut, ParadigmsDut, Prelude in 
+{
+--{
+--
+--  flags optimize=all_subs ;
+--
+--  lin
+--    ImpersCl vp = mkClause "es" (agrP3 Sg) vp ;
+--    GenericCl vp = mkClause "man" (agrP3 Sg) vp ;
+--
+--    CleftNP np rs = mkClause "es" (agrP3 Sg) 
+--      (insertExtrapos (rs.s ! gennum np.a.g np.a.n) ----
+--        (insertObj (\\_ => np.s ! rs.c) (predV MorphoDut.sein_V))) ;
+--
+--    CleftAdv ad s = mkClause "es" (agrP3 Sg) 
+--      (insertExtrapos (conjThat ++ s.s ! Sub)
+--        (insertObj (\\_ => ad.s) (predV MorphoDut.sein_V))) ;
+--
+--
+--    ExistNP np = 
+--      mkClause "es" (agrP3 Sg) 
+--        (insertObj (\\_ => appPrep geben.c2 np.s) 
+--          (predV geben)) ;
+--
+--    ExistIP ip = {
+--      s = \\m,t,a,p => 
+--            let 
+--              cls = 
+--                (mkClause "es" (agrP3 Sg)  (predV geben)).s ! m ! t ! a ! p ;
+--              who = ip.s ! Acc
+--            in table {
+--              QDir   => who ++ cls ! Inv ;
+--              QIndir => who ++ cls ! Sub
+--              }
+--      } ;
+--
+--    ProgrVP = insertAdv "eben" ; ----
+--
+--    ImpPl1 vp = {s = 
+--      (mkClause "wir" {g = Fem ; n = Pl ; p = P1} vp).s ! 
+--                           MConjunct ! Pres ! Simul ! Pos ! Inv 
+--      } ;
+--
+--  oper
+--    geben = dirV2 (mk6V "geben" "gibt" "gib" "gab" "gäbe" "gegeben") ;
+--}
+--
+
+}