more example languages

lib/resource/Examples/Examples.gf

@@ -1,10 +1,12 @@
 abstract Examples = {
 
+flags startcat = Ex ;
+
 cat
   Ex ;
 fun 
-  ex1, ex2, ex4, ex8, ex13, ex19, ex20, ex23,
-  ex3, ex5, ex6, ex7, ex10, ex12, ex14, ex15, ex16, ex24, ex25, ex26, ex27,
-  ex9,
+  ex01, ex02, ex04, ex08, ex13, ex19, ex20, ex23,
+  ex03, ex05, ex06, ex07, ex10, ex12, ex14, ex15, ex16, ex24, ex25, ex26, ex27,
+  ex09,
   ex11, ex17, ex18, ex21, ex22 : Ex ;
 }

lib/resource/Examples/ExamplesDan.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+concrete ExamplesDan of Examples = ExamplesI with
+  (Syntax=SyntaxDan),
+  (Lang=LangDan) ;
+

lib/resource/Examples/ExamplesI.gf

@@ -3,47 +3,47 @@ incomplete concrete ExamplesI of Examples = open Syntax,Lang in {
 lincat Ex = Text ;
 
 lin
-  ex1 = mkText (UttS (UseCl TPres ASimul PPos (PredVP (UsePron he_Pron) 
+  ex01 = mkText (UttS (UseCl TPres ASimul PPos (PredVP (UsePron he_Pron) 
           (AdvVP (UseV sing_V) (AdAdv almost_AdA (PositAdvAdj correct_A))))));
 
-  ex2 = mkText (UttAdv (SubjS when_Subj (ConjS and_Conj (BaseS (UseCl TPast ASimul PPos
+  ex02 = mkText (UttAdv (SubjS when_Subj (ConjS and_Conj (BaseS (UseCl TPast ASimul PPos
           (PredVP everybody_NP (UseComp (CompAP (ConjAP and_Conj (BaseAP
           (PositA young_A) (PositA beautiful_A))))))) (UseCl TPast ASimul PPos
           (PredVP everything_NP (ComplVA become_VA (PositA probable_AS)))))))) ;
 
-  ex3 = mkText (UseCl TPres ASimul PPos (CleftNP (PredetNP only_Predet 
+  ex03 = mkText (UseCl TPres ASimul PPos (CleftNP (PredetNP only_Predet 
           (DetCN (DetPl ( IndefArt) (NumDigits n2_Digits) NoOrd) (UseN woman_N)))
           (UseRCl TCond ASimul PPos (RelSlash IdRP
           (AdvSlash (SlashPrep (PredVP (UsePron i_Pron) (ComplVV want_VV
           (PassV2 see_V2))) with_Prep) (PrepNP in_Prep (DetCN (DetSg 
           (DefArt) NoOrd) (UseN rain_N)))))))) ;
 
-  ex4 = mkText (UttNP (DetCN someSg_Det (RelCN (UseN day_N) (UseRCl TFut ASimul PPos
+  ex04 = mkText (UttNP (DetCN someSg_Det (RelCN (UseN day_N) (UseRCl TFut ASimul PPos
           (RelCl (ExistNP (AdvNP (DetCN (DetSg ( IndefArt) NoOrd)
           (UseN peace_N)) (PrepNP on_Prep (DetCN (DetSg ( IndefArt)
            NoOrd) (UseN earth_N)))))))))) ;
 
-  ex5 = mkText (UseCl TPres ASimul PPos (PredVP (UsePron they_Pron) (AdvVP
+  ex05 = mkText (UseCl TPres ASimul PPos (PredVP (UsePron they_Pron) (AdvVP
           (ProgrVP (UseV play_V)) (ComparAdvAdjS less_CAdv clever_A
           (UseCl TPres ASimul PPos (GenericCl (UseV think_V))))))) ;
        
-  ex6 = mkText (UseCl TPres ASimul PPos (CleftAdv (AdvSC (EmbedVP (AdVVP always_AdV
+  ex06 = mkText (UseCl TPres ASimul PPos (CleftAdv (AdvSC (EmbedVP (AdVVP always_AdV
           (UseV stop_V)))) (UseCl TPres ASimul PPos (PredVP (UsePron we_Pron)
           (ComplV2 beg_V2V (UsePron youPl_Pron)))))) ;
 
-  ex7 = mkText (UseCl TCond ASimul PNeg (PredVP (UsePron i_Pron) (ComplV3 give_V3 
+  ex07 = mkText (UseCl TCond ASimul PNeg (PredVP (UsePron i_Pron) (ComplV3 give_V3 
           (DetCN (DetPl ( IndefArt) (AdNum (AdnCAdv more_CAdv) 
           (NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))))) NoOrd)
           (UseN star_N)) (DetCN (DetSg ( this_Quant) NoOrd)
           (UseN restaurant_N))))) ;
 
-  ex8 = mkText (UttImpSg PPos (ImpVP (ComplV2A paint_V2A (DetCN (DetSg ( DefArt)
+  ex08 = mkText (UttImpSg PPos (ImpVP (ComplV2A paint_V2A (DetCN (DetSg ( DefArt)
           NoOrd) (UseN earth_N)) (DConjAP both7and_DConj (BaseAP (ComparA
           small_A (DetCN (DetSg ( DefArt) NoOrd) (UseN sun_N)))
           (ComparA big_A (DetCN (DetSg ( DefArt) NoOrd) (UseN moon_N
            ))))))) ) ;
 
-  ex9 = mkText (UseCl TPres ASimul PPos (PredVP everybody_NP (ComplVQ wonder_VQ
+  ex09 = mkText (UseCl TPres ASimul PPos (PredVP everybody_NP (ComplVQ wonder_VQ
           (UseQCl TPres ASimul PPos (QuestSlash whatSg_IP (SlashV2 (UsePron
            youSg_Pron)love_V2)))))) ;
 

lib/resource/Examples/ExamplesNor.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+concrete ExamplesNor of Examples = ExamplesI with
+  (Syntax=SyntaxNor),
+  (Lang=LangNor) ;
+

lib/resource/Examples/ExamplesRus.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+concrete ExamplesRus of Examples = ExamplesI with
+  (Syntax=SyntaxRus),
+  (Lang=LangRus) ** {flags coding=utf8} ;
+

lib/resource/Examples/ExamplesSpa.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+concrete ExamplesSpa of Examples = ExamplesI with
+  (Syntax=SyntaxSpa),
+  (Lang=LangSpa) ;
+

lib/resource/Examples/mkExx.gfs

@@ -0,0 +1,12 @@
+i ExamplesDan.gf
+i ExamplesEng.gf
+i ExamplesFin.gf
+i ExamplesFre.gf
+i ExamplesGer.gf
+i ExamplesIta.gf
+i ExamplesNor.gf
+i ExamplesRus.gf
+i ExamplesSpa.gf
+i ExamplesSwe.gf
+pm -printer=gfcc | wf examples.gfcc
+gt | tb | wf examples.txt