This commit is contained in:
Thomas Hallgren
2017-08-24 18:20:03 +02:00
4 changed files with 5 additions and 2 deletions

View File

@@ -29,6 +29,7 @@ exx: exx-script
gf -retain -s $(GF_alltenses)/TryDut.gfo <api-examples.gfs >api-examples-Dut.txt gf -retain -s $(GF_alltenses)/TryDut.gfo <api-examples.gfs >api-examples-Dut.txt
gf -retain -s $(GF_alltenses)/TryEng.gfo <api-examples.gfs >api-examples-Eng.txt gf -retain -s $(GF_alltenses)/TryEng.gfo <api-examples.gfs >api-examples-Eng.txt
gf -retain -s $(GF_alltenses)/TryEst.gfo <api-examples.gfs >api-examples-Est.txt gf -retain -s $(GF_alltenses)/TryEst.gfo <api-examples.gfs >api-examples-Est.txt
gf -retain -s $(GF_alltenses)/TryEus.gfo <api-examples.gfs >api-examples-Eus.txt
gf -retain -s $(GF_alltenses)/TryFin.gfo <api-examples.gfs >api-examples-Fin.txt gf -retain -s $(GF_alltenses)/TryFin.gfo <api-examples.gfs >api-examples-Fin.txt
gf -retain -s $(GF_alltenses)/TryFre.gfo <api-examples.gfs >api-examples-Fre.txt gf -retain -s $(GF_alltenses)/TryFre.gfo <api-examples.gfs >api-examples-Fre.txt
gf -retain -s $(GF_alltenses)/TryGer.gfo <api-examples.gfs >api-examples-Ger.txt gf -retain -s $(GF_alltenses)/TryGer.gfo <api-examples.gfs >api-examples-Ger.txt

View File

@@ -36,6 +36,7 @@ mkIdent = concatMap unspec where
langsCoding = [ langsCoding = [
(("amharic", "Amh"),""), (("amharic", "Amh"),""),
(("arabic", "Ara"),""), (("arabic", "Ara"),""),
(("basque", "Eus"),""),
(("bulgarian","Bul"),""), (("bulgarian","Bul"),""),
(("catalan", "Cat"),"Romance"), (("catalan", "Cat"),"Romance"),
(("danish", "Dan"),"Scand"), (("danish", "Dan"),"Scand"),

View File

@@ -19,7 +19,7 @@ revealedLang = "Eng"
-- all languages shown -- all languages shown
apiExxFiles = ["api-examples-" ++ lang ++ ".txt" | lang <- words apiExxFiles = ["api-examples-" ++ lang ++ ".txt" | lang <- words
-- "Eng Chi" -- "Eng Chi"
"Afr Bul Cat Chi Dan Dut Eng Est Fin Fre Ger Gre Hin Ice Ita Jpn Lav Mlt Mon Nep Nor Nno Pes Pnb Pol Ron Rus Snd Spa Swe Tha Urd" "Afr Bul Cat Chi Dan Dut Eng Est Eus Fin Fre Ger Gre Hin Ice Ita Jpn Lav Mlt Mon Nep Nor Nno Pes Pnb Pol Ron Rus Snd Spa Swe Tha Urd"
] ]
main = do main = do
@@ -244,6 +244,7 @@ syntaxAPI = srcPath "/api/Constructors.gf"
structuralAPI = srcPath "/abstract/Structural.gf" structuralAPI = srcPath "/abstract/Structural.gf"
paradigmFiles = [ paradigmFiles = [
("Afrikaans", srcPath "/afrikaans/ParadigmsAfr.gf"), ("Afrikaans", srcPath "/afrikaans/ParadigmsAfr.gf"),
("Basque", srcPath "/basque/ParadigmsEus.gf"),
("Bulgarian", srcPath "/bulgarian/ParadigmsBul.gf"), ("Bulgarian", srcPath "/bulgarian/ParadigmsBul.gf"),
("Catalan", srcPath "/catalan/ParadigmsCat.gf"), ("Catalan", srcPath "/catalan/ParadigmsCat.gf"),
("Chinese", srcPath "/chinese/ParadigmsChi.gf"), ("Chinese", srcPath "/chinese/ParadigmsChi.gf"),

View File

@@ -16,7 +16,7 @@ concrete PhraseEus of Phrase = CatEus ** open Prelude, ResEus in {
UttIP ip = { s = ip.s ! Abs} ; UttIP ip = { s = ip.s ! Abs} ;
UttIAdv iadv = iadv ; UttIAdv iadv = iadv ;
UttNP np = { s = np.s ! Abs} ; UttNP np = { s = np.s ! Abs} ;
UttVP vp = { s = linVP vp } ; UttVP vp = { s = linVPPrc vp } ;
UttAdv adv = adv ; UttAdv adv = adv ;
UttCN n = {s = n.s ! Hau ++ artDef ! Sg ! Abs ! n.ph } ; UttCN n = {s = n.s ! Hau ++ artDef ! Sg ! Abs ! n.ph } ;
UttCard n = n ; UttCard n = n ;