cleaning up resource module structure

lib/resource-1.0/german/LexGer.gf

@@ -1,91 +0,0 @@
-concrete LexGer of Lex = CatGer ** open ResGer, Prelude in {
-
-  flags optimize = values ;
-
-  lin
-    walk_V = 
-      mkV 
-        "gehen" "gehe" "gehst" "geht" "geht" "geh" 
-        "ging" "gingst" "gingt" "gingen"
-        "ginge" "gegangen" "aus" VSein ;
-    help_V2 = 
-      mkV 
-        "helfen" "helfe" "hilfst" "hilft" "helft" "hilf" 
-        "half" "halfst" "halft" "halfen" 
-        "hälfe" "geholfen" [] VHaben ** 
-      {c2 = {s = [] ; c = Dat}} ;
-    show_V3 = 
-      regV "zeigen" ** 
-      {c2 = {s = [] ; c = Acc} ; c3 = {s = [] ; c = Dat}} ;
-    want_VV = auxVV 
-      (mkV 
-        "wollen" "will" "willst" "will" "wollt" "woll" 
-        "wollte" "wolltest" "wollten" "wolltet"
-        "wollte" "gewollen" [] 
-        VHaben) ;
-    claim_VS = 
-      mkV
-        "behaupten" "behaupte" "bahauptest" "behauptet" "behauptet" "behaupte"
-        "behauptete" "behauptetest" "behauptetet" "behaupteten"
-        "behauptete" "behauptet" [] VHaben ;
-    ask_VQ = 
-      regV "fragen" ;
-
-    dog_N  = mkN4 "Hund" "Hundes" "Hunde" "Hunden" Masc ;
-    son_N2 = mkN4 "Sohn" "Sohnes" "Söhne" "Söhnen" Masc ** 
-             {c2 = {s = "von" ; c = Dat}} ;
-    way_N3 = mkN4 "Weg" "Weges" "Wege" "Wegen" Masc ** 
-             {c2 = {s = "von" ; c = Dat} ; c3 = {s = "nach" ; c = Dat}} ;
-
-    warm_A = mkA "warm" "warm" "wärmer" "wärmst" ;
-    close_A2 = regA "eng" ** {c2 = {s = "bei" ; c = Dat}} ;
-
-    here_Adv = {s = "hier"} ;
-    very_AdA = {s = "sehr"} ;
-    always_AdV = {s = "immer"} ;
-
-    only_Predet = {s = \\_,_,_ => "nur"} ;
-    all_Predet = {s = appAdj (regA "all")} ;
-    this_Quant = {s = appAdj (regA "dies") ! Sg ; n = Sg ; a = Weak} ;
-    these_Quant = {s = appAdj (regA "dies") ! Pl ; n = Pl ; a = Weak} ;
-    
-    i_Pron  = mkPronPers "ich" "mich" "mir"   "meiner" "mein"  Sg P1 ;
-    he_Pron = mkPronPers "er"  "ihn"  "ihm"   "seiner" "sein"  Sg P3 ;
-    we_Pron = mkPronPers "wir" "uns"  "uns"   "unser"  "unser" Pl P1 ;
-
-    whoSg_IP = {s = caselist "wer" "wen" "wem" "wessen" ; n = Sg} ;
-    whoPl_IP = {s = caselist "wer" "wen" "wem" "wessen" ; n = Pl} ;
-
-    when_IAdv = {s = "wann"} ;
-    where_IAdv = {s = "wo"} ;
-    why_IAdv = {s = "warum"} ;
-
-    whichSg_IDet = {s = appAdj (regA "welch") ! Sg ; n = Sg} ;
-    whichPl_IDet = {s = appAdj (regA "welch") ! Sg ; n = Pl} ;
-
---    one_Numeral = {s = table {NCard => "one" ; NOrd => "first"} ; n = Sg} ;
-    forty_Numeral = {
-      s = table {
-        NCard => "vierzig" ; 
-        NOrd af => (regA "vierzigt").s ! Posit ! af
-        } ;
-      n = Pl
-      } ;
-
-    in_Prep = {s = "in" ; c = Dat} ;
-    of_Prep = {s = "von" ; c = Dat} ;
-
-    and_Conj = {s = "und" ; n = Pl} ;
-    either7or_DConj = {s1 = "entweder" ; s2 = "oder" ; n = Sg} ;
-
-    if_Subj = ss "wenn" ;
-    because_Subj = ss "weil" ;
-
-    but_PConj = {s = "aber"} ;
-   
-    please_Voc = {s = "," ++ "bitte"} ;
-
-    more_CAdv = ss "mehr" ;
-    less_CAdv = ss "weniger" ;
-
-}

lib/resource-1.0/german/ListConjunctionGer.gf

@@ -1,43 +0,0 @@
---concrete ListConjunctionGer of Conjunction = 
---  CatGer ** open ResGer, Coordination, Prelude in {
---
---  lin
---
---    ConjS conj ss = {s = conjunctX conj ss} ;
---    DConjS conj ss = {s = conjunctDistrX conj ss} ;
---
---    ConjAdv conj ss = {s = conjunctX conj ss} ;
---    DConjAdv conj ss = {s = conjunctDistrX conj ss} ;
---
---    ConjNP conj ss = conjunctTable Case conj ss ** {
---      a = {n = conjNumber conj.n ss.a.n ; p = ss.a.p}
---      } ;
---    DConjNP conj ss = conjunctDistrTable Case conj ss ** {
---      a = {n = conjNumber conj.n ss.a.n ; p = ss.a.p}
---      } ;
---
---    ConjAP conj ss = conjunctTable Agr conj ss ** {
---      isPre = ss.isPre
---      } ;
---    DConjAP conj ss = conjunctDistrTable Agr conj ss ** {
---      isPre = ss.isPre
---      } ;
---
----- These fun's are generated from the list cat's.
---
---    BaseS = twoSS ;
---    ConsS = consrSS comma ;
---    BaseAdv = twoSS ;
---    ConsAdv = consrSS comma ;
---    BaseNP x y = twoTable Case x y ** {a = conjAgr x.a y.a} ;
---    ConsNP xs x = consrTable Case comma xs x ** {a = conjAgr xs.a x.a} ;
---    BaseAP x y = twoTable Agr x y ** {isPre = andB x.isPre y.isPre} ;
---    ConsAP xs x = consrTable Agr comma xs x ** {isPre = andB xs.isPre x.isPre} ;
---
---  lincat
---    [S] = {s1,s2 : Str} ;
---    [Adv] = {s1,s2 : Str} ;
---    [NP] = {s1,s2 : Case => Str ; a : Agr} ;
---    [AP] = {s1,s2 : Agr => Str ; isPre : Bool} ;
---
---}

lib/resource-1.0/german/SeqConjunctionGer.gf

@@ -1,41 +0,0 @@
---concrete SeqConjunctionGer of Conjunction = 
---  CatGer ** open ResGer, Coordination, Prelude in {
---
---  lin
---
---    ConjS conj ss = {s = conjunctX conj ss} ;
---    DConjS conj ss = {s = conjunctDistrX conj ss} ;
---
---    ConjAdv conj ss = {s = conjunctX conj ss} ;
---    DConjAdv conj ss = {s = conjunctDistrX conj ss} ;
---
---    ConjNP conj ss = conjunctTable Case conj ss ** {
---      a = {n = conjNumber conj.n ss.a.n ; p = ss.a.p}
---      } ;
---    DConjNP conj ss = conjunctDistrTable Case conj ss ** {
---      a = {n = conjNumber conj.n ss.a.n ; p = ss.a.p}
---      } ;
---
---    ConjAP conj ss = conjunctTable Agr conj ss ** {
---      isPre = ss.isPre
---      } ;
---    DConjAP conj ss = conjunctDistrTable Agr conj ss ** {
---      isPre = ss.isPre
---      } ;
---
---    TwoS = twoSS ;
---    AddS = consSS comma ;
---    TwoAdv = twoSS ;
---    AddAdv = consSS comma ;
---    TwoNP x y = twoTable Case x y ** {a = conjAgr x.a y.a} ;
---    AddNP xs x = consTable Case comma xs x ** {a = conjAgr xs.a x.a} ;
---    TwoAP x y = twoTable Agr x y ** {isPre = andB x.isPre y.isPre} ;
---    AddAP xs x = consTable Agr comma xs x ** {isPre = andB xs.isPre x.isPre} ;
---
---  lincat
---    SeqS = {s1,s2 : Str} ;
---    SeqAdv = {s1,s2 : Str} ;
---    SeqNP = {s1,s2 : Case => Str ; a : Agr} ;
---    SeqAP = {s1,s2 : Agr => Str ; isPre : Bool} ;
---
---}

lib/resource-1.0/german/TestGer.gf

@@ -1,19 +0,0 @@
---# -path=.:../abstract:../common:prelude
-
-concrete TestGer of Test = 
-  NounGer, 
-  VerbGer, 
-  AdjectiveGer,
-  AdverbGer,
-  -- NumeralGer,
-  SentenceGer,
-  QuestionGer,
-  RelativeGer,
-  ConjunctionGer,
-  PhraseGer,
-  UntensedGer,
-  -- TensedGer,
-  LexGer 
-  ** {
-  flags startcat = Phr ;
-} ;

lib/resource-1.0/german/UntensedGer.gf

@@ -1,15 +0,0 @@
-concrete UntensedGer of Untensed = CatGer ** open ResGer in {
-
-  flags optimize=all_subs ;
-
-  lin
-    PosCl cl = {s = cl.s ! Pres ! Simul ! Pos} ;
-    NegCl cl = {s = cl.s ! Pres ! Simul ! Neg} ;
-
-    PosQCl cl = {s = cl.s ! Pres ! Simul ! Pos} ;
-    NegQCl cl = {s = cl.s ! Pres ! Simul ! Neg} ;
-
-    PosRCl cl = {s = cl.s ! Pres ! Simul ! Pos} ;
-    NegRCl cl = {s = cl.s ! Pres ! Simul ! Neg} ;
-
-}