added NP examples and French

lib/resource-1.0/api/examples/Exx.gf

@@ -1,4 +1,6 @@
-abstract Exx = Cat ** {
+abstract Exx = Cat-[VP] ** {
+
+cat VP ; --- hack to circumvent missing lockfields in overload resolution
 
 fun
 
@@ -22,6 +24,10 @@ fun
   ex11_VP, ex12_VP, ex13_VP, ex14_VP, ex15_VP, ex16_VP, ex17_VP, ex18_VP, ex19_VP, ex20_VP, 
   ex21_VP, ex22_VP : VP ;
 
+  ex1_NP, ex2_NP, ex3_NP, ex4_NP, ex5_NP, ex6_NP, ex7_NP, ex8_NP, ex9_NP, ex10_NP, 
+  ex11_NP, ex12_NP, ex13_NP, ex14_NP, ex15_NP, ex16_NP, ex17_NP, ex18_NP, ex19_NP, ex20_NP, 
+  ex21_NP, ex22_NP, ex23_NP : NP ;
+
 
 -- auxiliary to show VP's
 

lib/resource-1.0/api/examples/ExxEng.gf

@@ -1,6 +1,6 @@
 --# -path=.:..:alltenses:prelude
 
-concrete ExxEng of Exx = CatEng ** ExxI with
+concrete ExxEng of Exx = CatEng-[VP] ** ExxI with
   (Lang = LangEng),
   (Constructors = ConstructorsEng) ;
 

lib/resource-1.0/api/examples/ExxFre.gf

@@ -0,0 +1,7 @@
+--# -path=.:..:alltenses:prelude
+
+concrete ExxFre of Exx = CatFre-[VP] ** ExxI with
+  (Lang = LangFre),
+  (Constructors = ConstructorsFre) ;
+
+

lib/resource-1.0/api/examples/ExxI.gf

@@ -1,7 +1,9 @@
-incomplete concrete ExxI of Exx = Cat ** open Lang, Constructors in {
+incomplete concrete ExxI of Exx = Cat-[VP] ** open Lang, Constructors in {
 
 -- examples for Constructors.
 
+  lincat VP = Lang.VP ; --- hack to circumvent missing lockfields in overload resolution
+
   lin
     ex1_Text = mkText (mkPhr but_PConj (mkUtt (mkCl john_NP walk_V))) ;
     ex2_Text = mkText (mkPhr (mkCl john_NP walk_V)) questMarkPunct (mkText yes_Phr) ;
@@ -79,8 +81,8 @@ incomplete concrete ExxI of Exx = Cat ** open Lang, Constructors in {
     ex8_VP = mkVP paint_V2A (mkNP it_Pron) (mkAP red_A) ;
 
     ex9_VP = mkVP old_A ;
----    ex10_VP = mkVP old_A (mkNP she_Pron) ;
----    ex11_VP = mkVP married_A2 (mkNP she_Pron) ;
+    ex10_VP = mkVP old_A (mkNP she_Pron) ;
+    ex11_VP = mkVP married_A2 (mkNP she_Pron) ;
     ex12_VP = mkVP (mkAP very_AdA (mkAP old_A)) ;
 
     ex13_VP = mkVP man_N ;
@@ -94,9 +96,33 @@ incomplete concrete ExxI of Exx = Cat ** open Lang, Constructors in {
     ex21_VP = passiveVP love_V2 (mkNP she_Pron) ;
     ex22_VP = progressiveVP (mkVP sleep_V) ;
 
+    ex1_NP = mkNP (mkDet (mkQuantSg defQuant) first_Ord) man_N ;
+    ex2_NP = mkNP (mkDet (mkQuantSg defQuant) first_Ord) (mkCN old_A man_N) ;
+    ex3_NP = mkNP (mkQuantSg this_Quant) man_N ;
+    ex4_NP = mkNP (mkQuantSg this_Quant) (mkCN old_A man_N) ;
+    ex5_NP = mkNP (mkQuantPl this_Quant) man_N ;
+    ex6_NP = mkNP (mkQuantPl this_Quant) (mkCN old_A man_N) ;
+    ex7_NP = mkNP n20_Numeral man_N ;
+    ex8_NP = mkNP n20_Numeral (mkCN old_A man_N) ;
+---    ex9_NP = mkNP (mkInt "45") man_N ;
+---    ex10_NP = mkNP (mkInt "45") (mkCN old_A man_N) ;
+    ex11_NP = mkNP (mkNum almost_AdN (mkNum n20_Numeral)) man_N ;
+    ex12_NP = mkNP (mkNum almost_AdN (mkNum n20_Numeral)) (mkCN old_A man_N) ;
+    ex13_NP = mkNP i_Pron man_N ;
+    ex14_NP = mkNP i_Pron (mkCN old_A man_N) ;
+    ex15_NP = mkNP john_PN ;
+    ex16_NP = mkNP i_Pron ;
+    ex17_NP = mkNP only_Predet john_NP ;
+    ex18_NP = mkNP john_NP kill_V2 ;
+    ex19_NP = mkNP john_NP (mkAdv in_Prep (mkNP paris_PN)) ;
+    ex20_NP = mkNP and_Conj john_NP (mkNP i_Pron) ;
+    ex21_NP = mkNP and_Conj (mkListNP john_NP (mkListNP (mkNP i_Pron) that_NP)) ;
+    ex22_NP = mkNP either7or_DConj john_NP (mkNP i_Pron) ;
+    ex23_NP = mkNP either7or_DConj (mkListNP john_NP (mkListNP (mkNP i_Pron) that_NP)) ;
 
 
----    utt u = mkUtt u ;
+
+    utt u = mkUtt u ;  -- a hack to linearize VPs
 
   oper
     john_PN = paris_PN ; ----

lib/resource-1.0/api/examples/ExxSwe.gf

@@ -1,6 +1,6 @@
 --# -path=.:..:alltenses:prelude
 
-concrete ExxSwe of Exx = CatSwe ** ExxI with
+concrete ExxSwe of Exx = CatSwe-[VP] ** ExxI with
   (Lang = LangSwe),
   (Constructors = ConstructorsSwe) ;
 

lib/resource-1.0/api/examples/mkgfs.hs

@@ -13,7 +13,7 @@ mkgfs = do
 addLin s = case words s of
   c@('e':'x':_):_ -> appendFile script ("l " ++ cc ++ "\n") where
     cc = case take 2 (reverse c) of
-      --- "PV" -> "utt " ++ c
+      "PV" -> "utt " ++ c
       _ -> c 
   _ -> return ()