example generation started

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

@@ -0,0 +1,21 @@
+abstract Exx = Cat ** {
+
+fun
+
+  ex1_Text, ex2_Text, ex3_Text, ex4_Text, ex5_Text, ex6_Text, ex7_Text, ex8_Text : Text ;
+
+  ex1_Phr, ex2_Phr, ex3_Phr, ex4_Phr, ex5_Phr, ex6_Phr : Phr ;
+
+  ex1_PConj : PConj ;
+
+  ex1_Voc : Voc ;
+
+  ex1_Utt, ex2_Utt, ex3_Utt, ex4_Utt, ex5_Utt, ex6_Utt, ex7_Utt, ex8_Utt, ex8_Utt, ex9_Utt, ex10_Utt, ex11_Utt : Utt ;
+
+  ex1_S, ex2_S, ex3_S, ex4_S, ex5_S, ex6_S, ex7_S : S ;
+
+  ex1_Cl, ex2_Cl, ex3_Cl, ex4_Cl, ex5_Cl, ex6_Cl, ex7_Cl, ex8_Cl, ex8_Cl, ex10_Cl, 
+                    ex11_Cl, ex12_Cl, ex13_Cl, ex14_Cl, ex15_Cl, ex16_Cl, ex17_Cl, ex18_Cl : Cl ;
+
+
+}

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

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

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

@@ -0,0 +1,50 @@
+incomplete concrete ExxI of Exx = Cat ** open Lang, Constructors in {
+
+-- examples for Constructors.
+
+  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) ;
+    ex3_Text = mkText (mkUtt john_NP) ;
+    ex4_Text = mkText (mkS pastTense (mkCl john_NP walk_V)) ;
+    ex5_Text = mkText (mkCl john_NP walk_V) ;
+    ex6_Text = mkText (mkQS pastTense (mkQCl (mkCl john_NP walk_V))) ;
+    ex7_Text = mkText (mkImp walk_V) ;
+    ex8_Text = emptyText ;
+
+    ex1_Phr = mkPhr (mkUtt why_IAdv) ;
+    ex2_Phr = mkPhr but_PConj (mkUtt why_IAdv) (mkVoc john_NP) ;
+    ex3_Phr = mkPhr (mkS pastTense (mkCl john_NP walk_V)) ;
+    ex4_Phr = mkPhr (mkCl john_NP walk_V) ;
+    ex5_Phr = mkPhr (mkQS pastTense (mkQCl (mkCl john_NP walk_V))) ;
+    ex6_Phr = mkPhr (mkImp walk_V) ;
+
+    ex1_PConj = mkPConj and_Conj ;
+
+    ex1_Voc = mkVoc john_NP ;
+
+    ex1_Utt = mkUtt (mkS pastTense (mkCl john_NP walk_V)) ;
+    ex2_Utt = mkUtt (mkCl john_NP walk_V) ;
+    ex3_Utt = mkUtt (mkQS pastTense (mkQCl (mkCl john_NP walk_V))) ;
+    ex4_Utt = mkUtt (mkImp walk_V) ;
+    ex5_Utt = mkUtt pluralImpForm negativePol (mkImp (reflexiveVP love_V2)) ;
+    ex6_Utt = mkUtt whoSg_IP ;
+    ex7_Utt = mkUtt why_IAdv ;
+    ex8_Utt = mkUtt john_NP ;
+    ex9_Utt = mkUtt here_Adv ;
+    ex10_Utt = mkUtt (mkVP walk_V) ;
+    ex11_Utt = lets_Utt (mkVP walk_V) ;
+
+    ex1_S = mkS (mkCl john_NP walk_V) ;
+    ex2_S = mkS conditionalTense anteriorAnt negativePol (mkCl john_NP walk_V) ;
+    ex3_S = mkS and_Conj (mkS (mkCl john_NP walk_V)) (mkS (mkCl (mkNP i_Pron) run_V)) ;
+    ex4_S = mkS and_Conj (mkListS (mkS (mkCl john_NP walk_V)) (mkListS (mkS (mkCl (mkNP i_Pron) run_V)) (mkS (mkCl (mkNP youSg_Pron) sleep_V)))) ;
+    ex5_S = mkS either7or_DConj (mkS (mkCl john_NP walk_V)) (mkS (mkCl (mkNP i_Pron) run_V)) ;
+    ex6_S = mkS either7or_DConj (mkListS (mkS (mkCl john_NP walk_V)) (mkListS (mkS (mkCl (mkNP i_Pron) run_V)) (mkS (mkCl (mkNP youSg_Pron) sleep_V)))) ;
+
+
+
+  oper
+    john_PN = paris_PN ; ----
+    john_NP = mkNP john_PN ;
+}

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

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

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

@@ -0,0 +1,16 @@
+-- to process constructor examples to lin commans
+
+main = mkgfs
+
+src = "ExxI.gf"
+script = "exx.gfs"
+
+mkgfs = do
+  writeFile script ""
+  readFile src >>= (mapM addLin . lines)
+
+
+addLin s = case words s of
+  c@('e':'x':_):_ -> appendFile script ("l " ++ c ++ "\n")
+  _ -> return ()
+