added Structural.language_title_Utt and a script for making alignment logo

2026-04-09 04:59:31 -06:00 · 2009-06-23 19:23:27 +00:00
parent 4546203f9e
commit 0a167199ce
18 changed files with 49 additions and 0 deletions
--- a/lib/src/abstract/Structural.gf
+++ b/lib/src/abstract/Structural.gf
@@ -120,4 +120,7 @@ abstract Structural = Cat ** {
  as_CAdv : CAdv ;

  have_V2 : V2 ;
+
+  fun language_title_Utt : Utt ;
+
 }
--- a/lib/src/arabic/StructuralAra.gf
+++ b/lib/src/arabic/StructuralAra.gf
@@ -109,4 +109,6 @@ concrete StructuralAra of Structural = CatAra **

  have_V2      = dirV2 (regV "يَملِك") ; 

+  lin language_title_Utt = ss "العربية" ;
+
 }
--- a/lib/src/bulgarian/StructuralBul.gf
+++ b/lib/src/bulgarian/StructuralBul.gf
@@ -121,5 +121,7 @@ concrete StructuralBul of Structural = CatBul **

  have_V2 = dirV2 (stateV (mkV186 "èìàì")) ;

+  lin language_title_Utt = ss "Áúëãàðñêè" ;
+
 }

--- a/lib/src/catalan/StructuralCat.gf
+++ b/lib/src/catalan/StructuralCat.gf
@@ -165,4 +165,6 @@ lin
 oper
  etConj : {s : Str ; n : MorphoCat.Number} = {s = "i" } ** {n = Pl} ;

+  lin language_title_Utt = ss "català" ;
+
 }
--- a/lib/src/danish/StructuralDan.gf
+++ b/lib/src/danish/StructuralDan.gf
@@ -125,5 +125,7 @@ concrete StructuralDan of Structural = CatDan **
  oper
    vem = MorphoDan.mkNP "hvem" "hvem" "hvis" "hvis" "hvis" SgUtr P3 ;

+  lin language_title_Utt = ss "dansk" ;
+
 }

--- a/lib/src/english/StructuralEng.gf
+++ b/lib/src/english/StructuralEng.gf
@@ -137,5 +137,7 @@ concrete StructuralEng of Structural = CatEng **

  have_V2 = dirV2 (mk5V "have" "has" "had" "had" "having") ;

+  lin language_title_Utt = ss "English" ;
+
 }

--- a/lib/src/finnish/StructuralFin.gf
+++ b/lib/src/finnish/StructuralFin.gf
@@ -304,5 +304,7 @@ lin

  have_V2 = mkV2 (caseV adessive vOlla) ;

+  lin language_title_Utt = ss "suomi" ;
+
 }

--- a/lib/src/french/StructuralFre.gf
+++ b/lib/src/french/StructuralFre.gf
@@ -189,5 +189,7 @@ lin

  have_V2 = avoir_V2 ;

+  lin language_title_Utt = ss "français" ;
+
 }

--- a/lib/src/german/StructuralGer.gf
+++ b/lib/src/german/StructuralGer.gf
@@ -148,4 +148,6 @@ concrete StructuralGer of Structural = CatGer **
  as_CAdv = X.mkCAdv "ebenso" "wie" ;
  have_V2 = P.dirV2 IrregGer.haben_V ;

+  lin language_title_Utt = ss "Deutsch" ;
+
 }
--- a/lib/src/hindi/StructuralHin.gf
+++ b/lib/src/hindi/StructuralHin.gf
@@ -128,5 +128,7 @@ concrete StructuralHin of Structural = CatHin **
 --    s = table Number [x ; y]
 --    } ;
 --
+
+
 }
 --
--- a/lib/src/interlingua/StructuralIna.gf
+++ b/lib/src/interlingua/StructuralIna.gf
@@ -113,5 +113,7 @@ oper
      Pl => y
      }} ;

+  lin language_title_Utt = ss "interlingua" ;
+
 }

--- a/lib/src/italian/StructuralIta.gf
+++ b/lib/src/italian/StructuralIta.gf
@@ -176,5 +176,7 @@ lin

  have_V2 = dirV2 (verboV (avere_2 "avere")) ;

+  lin language_title_Utt = ss "italiano" ;
+
 }

--- a/lib/src/latin/StructuralLat.gf
+++ b/lib/src/latin/StructuralLat.gf
@@ -120,5 +120,9 @@ concrete StructuralLat of Structural = CatLat **
  youSg_Pron = personalPronoun Masc Sg P2 ;
  youPl_Pron = personalPronoun Masc Pl P2 ;
  youPol_Pron = personalPronoun Masc Sg P2 ;
+
+  lin language_title_Utt = ss "latina" ;
+
+
 }

--- a/lib/src/mkLogo.gfs
+++ b/lib/src/mkLogo.gfs
@@ -0,0 +1,13 @@
+i LangBul.gfo
+i LangCat.gfo
+i LangDan.gfo
+i LangEng.gfo
+i LangFin.gfo
+i LangFre.gfo
+i LangGer.gfo
+i LangIta.gfo
+i LangNor.gfo
+i LangRus.gfo
+i LangSpa.gfo
+i LangSwe.gfo
+p -cat=S -lang=LangEng "this grammar wants to speak twenty - three new languages" | aw -view=open
--- a/lib/src/norwegian/StructuralNor.gf
+++ b/lib/src/norwegian/StructuralNor.gf
@@ -126,5 +126,7 @@ concrete StructuralNor of Structural = CatNor **
  oper
    vem = MorphoNor.mkNP "hvem" "hvem" "hvis" "hvis" "hvis" SgUtr P3 ;

+  lin language_title_Utt = ss "norsk" ;
+
 }

--- a/lib/src/russian/StructuralRus.gf
+++ b/lib/src/russian/StructuralRus.gf
@@ -127,4 +127,6 @@ lin
 ---  NeitherNor = sd2 "ни" [", ни"]  ** {n = Sg} ;
 ---  NowhereNP = ss "нигде" ;
 ---  AgentPrep = { s = "" ; c = Nom}; -- missing in Russian
+
+  lin language_title_Utt = ss "Русский" ;
 }
--- a/lib/src/spanish/StructuralSpa.gf
+++ b/lib/src/spanish/StructuralSpa.gf
@@ -172,5 +172,6 @@ lin
  as_CAdv = X.mkCAdv "si" conjThan ; ----
   have_V2 = dirV2 (verboV (tener_4 "tener")) ;

+  lin language_title_Utt = ss "español" ;
 }

--- a/lib/src/swedish/StructuralSwe.gf
+++ b/lib/src/swedish/StructuralSwe.gf
@@ -151,5 +151,7 @@ lin
  as_CAdv = X.mkCAdv "lika" "som" ;
  have_V2 = dirV2 (mkV "ha" "har" "ha" "hade" "haft" "haft") ; ---- pp

+  lin language_title_Utt = ss "svenska" ;
+
 }