Add Phrasebook to testsuite. Move grammars into subfolders. Add run-bench script.

testsuite/lpgf/README.md

@@ -13,8 +13,8 @@ Possible exceptions:
 ```
 stack build --test --bench --no-run-tests --no-run-benchmarks
 stack test gf:test:lpgf # all LPGF tests
-stack test gf:test:lpgf --test-arguments="Params" # specific grammar
-stack test gf:test:lpgf --test-arguments="Foods Fre Ger" # specific grammar and languages
+stack test gf:test:lpgf --test-arguments="unittests/Params" # specific grammar
+stack test gf:test:lpgf --test-arguments="foods/Foods Fre Ger" # specific grammar and languages
 ```
 
 ## Benchmark
@@ -41,9 +41,9 @@ The `+RTS -T -RTS` is so that GHC can report its own memory usage.
 
 ```
 stack build --test --bench --no-run-tests --no-run-benchmarks
-stack bench --benchmark-arguments "compile pgf  testsuite/lpgf/Foods*.gf +RTS -T -RTS"
-stack bench --benchmark-arguments "compile lpgf testsuite/lpgf/Foods*.gf +RTS -T -RTS"
-stack bench --benchmark-arguments "run pgf  Foods.pgf  testsuite/lpgf/foods-all.trees +RTS -T -RTS"
-stack bench --benchmark-arguments "run pgf2 Foods.pgf  testsuite/lpgf/foods-all.trees +RTS -T -RTS"
-stack bench --benchmark-arguments "run lpgf Foods.lpgf testsuite/lpgf/foods-all.trees +RTS -T -RTS"
+stack bench --benchmark-arguments "compile pgf  testsuite/lpgf/foods/Foods*.gf +RTS -T -RTS"
+stack bench --benchmark-arguments "compile lpgf testsuite/lpgf/foods/Foods*.gf +RTS -T -RTS"
+stack bench --benchmark-arguments "run pgf  Foods.pgf  testsuite/lpgf/foods/Foods-all.trees +RTS -T -RTS"
+stack bench --benchmark-arguments "run pgf2 Foods.pgf  testsuite/lpgf/foods/Foods-all.trees +RTS -T -RTS"
+stack bench --benchmark-arguments "run lpgf Foods.lpgf testsuite/lpgf/foods/Foods-all.trees +RTS -T -RTS"
 ```

testsuite/lpgf/phrasebook/Greetings.gf

@@ -0,0 +1,28 @@
+abstract Greetings = Sentences [Greeting] ** {
+
+fun
+  GBye : Greeting ;
+  GCheers : Greeting ;
+  GDamn : Greeting ;
+  GExcuse, GExcusePol : Greeting ;
+  GGoodDay : Greeting ; 
+  GGoodEvening : Greeting ;
+  GGoodMorning : Greeting ;
+  GGoodNight : Greeting ;
+  GGoodbye : Greeting ;
+  GHello  : Greeting ;
+  GHelp : Greeting ;
+  GHowAreYou : Greeting ;
+  GLookOut : Greeting ;
+  GNiceToMeetYou : Greeting ;
+  GPleaseGive, GPleaseGivePol : Greeting ;
+  GSeeYouSoon : Greeting ;
+  GSorry, GSorryPol : Greeting ;
+  GThanks : Greeting ;
+  GTheCheck : Greeting ;
+  GCongratulations : Greeting ;
+  GHappyBirthday : Greeting ;
+  GGoodLuck : Greeting ; 
+  GWhatTime : Greeting ;
+
+}

testsuite/lpgf/phrasebook/GreetingsBul.gf

@@ -0,0 +1,31 @@
+concrete GreetingsBul of Greetings = SentencesBul [Greeting,mkGreeting] ** open Prelude in {
+
+flags
+  coding=utf8;
+
+lin 
+  GBye = mkGreeting "чао" ;
+  GCheers = mkGreeting "наздраве" ;
+  GDamn = mkGreeting "по дяволите" ;
+  GExcuse, GExcusePol = mkGreeting "извинете" ;
+  GGoodDay = mkGreeting "добър ден" ;
+  GGoodEvening = mkGreeting "добра вечер" ;
+  GGoodMorning = mkGreeting "добро утро" ;
+  GGoodNight = mkGreeting "лека нощ" ;
+  GGoodbye = mkGreeting "довиждане" ;
+  GHello = mkGreeting "здравей" ;
+  GHelp = mkGreeting "помощ" ;
+  GHowAreYou = mkGreeting "как си" ;
+  GLookOut = mkGreeting "погледни" ;
+  GNiceToMeetYou = mkGreeting "радвам се да се видим" ;
+  GPleaseGive, GPleaseGivePol = mkGreeting "моля" ;
+  GSeeYouSoon = mkGreeting "до скоро" ;
+  GSorry, GSorryPol = mkGreeting "извинете" ;
+  GThanks = mkGreeting "благодаря ти" ;
+  GTheCheck = mkGreeting "сметката" ;
+  GCongratulations = mkGreeting "поздравления";
+  GHappyBirthday = mkGreeting "честит рожден ден" ;
+  GGoodLuck = mkGreeting "успех" ; 
+  GWhatTime = mkGreeting "колко е часът" ;
+
+}

testsuite/lpgf/phrasebook/GreetingsCat.gf

@@ -0,0 +1,31 @@
+--# -coding=latin1
+concrete GreetingsCat of Greetings = SentencesCat [Greeting,mkGreeting] ** open Prelude in {
+
+lin 
+  GBye = mkGreeting "adéu" ;
+  GCheers = mkGreeting "salut" ;
+  GDamn = mkGreeting "merda" ;
+  GExcuse = mkGreeting "perdona" ;
+  GExcusePol = mkGreeting ("perdoni" | "disculpi") ;
+  GCongratulations = mkGreeting "felicitats" ;
+  GHappyBirthday = mkGreeting "feliç aniversari" ;
+  GGoodLuck = mkGreeting "sort" ;
+  GGoodDay = mkGreeting "bon dia" ;
+  GGoodEvening = mkGreeting "bona tarda" ;
+  GGoodMorning = mkGreeting "bon dia" ;
+  GGoodNight = mkGreeting "bona nit" ;
+  GGoodbye = mkGreeting "a reveure" ;
+  GHello = mkGreeting "hola" ;
+  GHelp = mkGreeting "socors" ;
+  GHowAreYou = mkGreeting "què tal" ;
+  GLookOut = mkGreeting "compte" ;
+  GNiceToMeetYou = mkGreeting "encantat de conèixer-lo" ; -- make distinction Masc/Fem
+  GPleaseGive = mkGreeting "si et plau" ;
+  GPleaseGivePol = mkGreeting "si us plau" ;
+  GSeeYouSoon = mkGreeting "fins aviat" ; 
+  GSorry = mkGreeting "perdoni" ;
+  GSorryPol = mkGreeting "em sap greu" ; 
+  GThanks = mkGreeting "gràcies" ;
+  GTheCheck = mkGreeting "el compte" ;
+
+}

testsuite/lpgf/phrasebook/GreetingsChi.gf

@@ -0,0 +1,33 @@
+concrete GreetingsChi of Greetings =
+SentencesChi [Greeting,mkGreeting] **
+open ParadigmsChi, ResChi, Prelude in {
+
+flags coding = utf8 ;
+
+lin
+GBye = (mkInterj "再见" ) ;
+GCheers = (mkInterj "干杯" ) ;
+GDamn = (mkInterj "该死的" ) ;
+GExcuse, GExcusePol = (mkInterj "原谅我" ) ;
+GGoodDay = (mkInterj "你好" ) ;
+GGoodEvening = (mkInterj "下午好" ) ;
+GGoodMorning = (mkInterj "早上好" ) ;
+GGoodNight = (mkInterj "晚安" ) ;
+GGoodbye = (mkInterj "再见" ) ;
+GHello = (mkInterj "你好" ) ;
+GHelp = mkInterj "帮助" ;
+GHowAreYou = mkInterj "你好吗" ;
+GLookOut = mkInterj "留意" ;
+GNiceToMeetYou = mkInterj "很高兴见到你" ;
+GNiceToMeetYouPol = mkInterj "很高兴见到您" ;
+GPleaseGive, GPleaseGivePol = mkInterj "请" ;
+GSeeYouSoon = mkInterj "很快再见" ;
+GSorry, GSorryPol = mkInterj "对不起" ;
+GThanks = (mkInterj "谢谢" ) ;
+GTheCheck = mkInterj "检查" ;
+GCongratulations = mkInterj "祝贺您" ;
+GHappyBirthday = mkInterj "祝你生日快乐" ;
+GGoodLuck = (mkInterj "祝你好运" ) ;
+GWhatTime = mkInterj "现在是什么时候" ;
+
+}

testsuite/lpgf/phrasebook/GreetingsDan.gf

@@ -0,0 +1,29 @@
+--# -coding=latin1
+concrete GreetingsDan of Greetings = SentencesDan [Greeting,mkGreeting] ** open Prelude in {
+
+lin 
+  GBye = mkGreeting "hej hej" ; -- not google translate
+  GCheers = mkGreeting "skål" ;
+  GDamn = mkGreeting "satans" ; -- X  
+  GExcuse, GExcusePol = mkGreeting "undskyld mig" ;
+  GGoodDay = mkGreeting "god dag" ;
+  GGoodEvening = mkGreeting "god aften" ;
+  GGoodMorning = mkGreeting "god morgen" ;
+  GGoodNight = mkGreeting "godnat" ;
+  GGoodbye = mkGreeting "farvel" ;
+  GHello = mkGreeting "hej" ;
+  GHelp = mkGreeting "hjælp" ;
+  GHowAreYou = mkGreeting "hvordan har du det" ;
+  GLookOut = mkGreeting "pas på" ;
+  GNiceToMeetYou, GNiceToMeetYouPol = mkGreeting "hyggeligt at møde dig" ; -- more common than rart (google translate) 
+  GPleaseGive = mkGreeting "vær så sød" ; -- can also have flink instead of sod
+  GPleaseGivePol = mkGreeting "venligst" ; -- X not behage 
+  GSeeYouSoon = mkGreeting "vi ses snart" ; -- X se dig snart
+  GSorry, GSorryPol = mkGreeting "undskyld" ;
+  GThanks = mkGreeting "tak" ;
+  GTheCheck = mkGreeting "regningen" ;
+  GCongratulations = mkGreeting "tillykke";
+  GHappyBirthday = mkGreeting "tillykke med fødselsdagen" ;
+  GGoodLuck = mkGreeting "held og lykke" ; 
+
+}

testsuite/lpgf/phrasebook/GreetingsDut.gf

@@ -0,0 +1,30 @@
+concrete GreetingsDut of Greetings = SentencesDut [Greeting,mkGreeting] ** open Prelude in {
+
+
+lin 
+  GBye = mkGreeting "doei" ; 
+  GCheers = mkGreeting "proost" ;
+  GDamn = mkGreeting "verdomme" ; 
+  GExcuse, GExcusePol = mkGreeting "pardon" ; 
+  GGoodDay = mkGreeting "goedendag" ;
+  GGoodEvening = mkGreeting "goedenavond" ;
+  GGoodMorning = mkGreeting "goedemorgen" ;
+  GGoodNight = mkGreeting "goedenacht" ;
+  GGoodbye = mkGreeting "tot ziens" ;
+  GHello = mkGreeting "hallo" ;
+  GHelp = mkGreeting "help" ;
+  GHowAreYou = mkGreeting "hoe gaat het" ;
+  GLookOut = mkGreeting "kijk uit" ;
+  GNiceToMeetYou = mkGreeting "leuk je te ontmoeten" ;
+  GNiceToMeetYouPol = mkGreeting "leuk je u ontmoeten" ;
+  GPleaseGive, GPleaseGivePol = mkGreeting "alstublieft" ; 
+  GSeeYouSoon = mkGreeting "tot ziens" ;
+  GSorry = mkGreeting "sorry";
+  GSorryPol = mkGreeting "mijn verontschuldiging" ;
+  GThanks = mkGreeting "dank je wel" ; 
+  GTheCheck = mkGreeting "rekening" ; 
+  GCongratulations = mkGreeting "gefeliciteerd";
+  GHappyBirthday = mkGreeting "gelukkige verjaardag" ;
+  GGoodLuck = mkGreeting "veel geluk" ; 
+  GWhatTime = mkGreeting "hoe laat is het" ;
+}

testsuite/lpgf/phrasebook/GreetingsEng.gf

@@ -0,0 +1,27 @@
+concrete GreetingsEng of Greetings = SentencesEng [Greeting,mkGreeting] ** open Prelude in {
+
+lin 
+  GBye = mkGreeting "bye" ;
+  GCheers = mkGreeting "cheers" ;
+  GDamn = mkGreeting "damn" ;
+  GExcuse, GExcusePol = mkGreeting "excuse me" ;
+  GGoodDay = mkGreeting "good afternoon" ; ----
+  GGoodEvening = mkGreeting "good evening" ;
+  GGoodMorning = mkGreeting "good morning" ;
+  GGoodNight = mkGreeting "good night" ;
+  GGoodbye = mkGreeting "goodbye" ;
+  GHello = mkGreeting "hello" ;
+  GHelp = mkGreeting "help" ;
+  GHowAreYou = mkGreeting "how are you" ;
+  GLookOut = mkGreeting "look out" ;
+  GNiceToMeetYou, GNiceToMeetYouPol = mkGreeting "nice to meet you" ;
+  GPleaseGive, GPleaseGivePol = mkGreeting "please" ;
+  GSeeYouSoon = mkGreeting "see you soon" ;
+  GSorry, GSorryPol = mkGreeting "sorry" ;
+  GThanks = mkGreeting "thank you" ;
+  GTheCheck = mkGreeting "the bill" ;
+  GCongratulations = mkGreeting "congratulations";
+  GHappyBirthday = mkGreeting "happy birthday" ;
+  GGoodLuck = mkGreeting "good luck" ; 
+  GWhatTime = mkGreeting "what time is it" | mkGreeting "what is the time" ;
+}

testsuite/lpgf/phrasebook/GreetingsEst.gf

@@ -0,0 +1,26 @@
+concrete GreetingsEst of Greetings = SentencesEst [Greeting,mkGreeting] ** open Prelude in {
+
+lin
+  GBye = mkGreeting "head aega" ;
+  GCheers = mkGreeting "terviseks" ;
+  GDamn = mkGreeting "neetud" ;
+  GExcuse, GExcusePol = mkGreeting "vabandust" ;
+  GGoodDay = mkGreeting "tere päevast" ;
+  GGoodEvening = mkGreeting "tere õhtust" ;
+  GGoodMorning = mkGreeting "tere hommikust" ;
+  GGoodNight = mkGreeting "head ööd" ;
+  GGoodbye = mkGreeting "head aega" ;
+  GHello = mkGreeting "tere" ;
+  GHelp = mkGreeting "appi" ;
+  GHowAreYou = mkGreeting "kuidas käsi käib" ;
+  GLookOut = mkGreeting "ettevaatust" ;
+  GNiceToMeetYou = mkGreeting "meeldiv tutvuda" ;
+  GPleaseGive, GPleaseGivePol = mkGreeting "palun" ;
+  GSeeYouSoon = mkGreeting "kohtumiseni" ;
+  GSorry, GSorryPol = mkGreeting "vabandust" ;
+  GThanks = mkGreeting "suur tänu" ;
+  GTheCheck = mkGreeting "arve" ;
+  GCongratulations = mkGreeting "palju õnne";
+  GHappyBirthday = mkGreeting "palju õnne sünnipäevaks" ;
+  GGoodLuck = mkGreeting "palju edu" ;
+}

testsuite/lpgf/phrasebook/GreetingsFin.gf

@@ -0,0 +1,30 @@
+--# -coding=latin1
+concrete GreetingsFin of Greetings = SentencesFin [Greeting,mkGreeting] ** open Prelude in {
+
+lin 
+  GBye = mkGreeting "hei hei" ;
+  GCheers = mkGreeting "terveydeksi" ;
+  GDamn = mkGreeting "hitto" ;
+  GExcuse, GExcusePol = mkGreeting "anteeksi" ;
+  GGoodDay = mkGreeting "hyvää päivää" ;
+  GGoodEvening = mkGreeting "hyvää iltaa" ;
+  GGoodMorning = mkGreeting "hyvää huomenta" ;
+  GGoodNight = mkGreeting "hyvää yötä" ;
+  GGoodbye = mkGreeting "näkemiin" ;
+  GHello = mkGreeting "hei" ;
+  GHelp = mkGreeting "apua" ;
+  GHowAreYou = mkGreeting "mitä kuuluu" ;
+  GLookOut = mkGreeting "varo" ;
+  GNiceToMeetYou = mkGreeting "hauska tutustua" ;
+  GPleaseGive = mkGreeting "ole hyvä" ;
+  GPleaseGivePol = mkGreeting "olkaa hyvä" ;
+  GSeeYouSoon = mkGreeting "nähdään pian" ;
+  GSorry, GSorryPol = mkGreeting "anteeksi" ;
+  GThanks = mkGreeting "kiitos" ;
+  GTheCheck = mkGreeting "lasku" ;
+  GCongratulations = mkGreeting "onnittelut";
+  GHappyBirthday = mkGreeting "hyvää syntymäpäivää" ;
+  GGoodLuck = mkGreeting "onnea" ; 
+  GWhatTime = mkGreeting "paljonko kello on" | mkGreeting "mitä kello on" ;
+
+}

testsuite/lpgf/phrasebook/GreetingsFre.gf

@@ -0,0 +1,31 @@
+--# -coding=latin1
+concrete GreetingsFre of Greetings = SentencesFre [Greeting,mkGreeting] ** open Prelude in {
+
+lin 
+  GBye = mkGreeting "au revoir" ;
+  GCheers = mkGreeting "santé" ;
+  GDamn = mkGreeting "maudit" ;
+  GExcuse = mkGreeting "excuse-moi" ;
+  GExcusePol = mkGreeting "excusez-moi" ;
+  GGoodDay = mkGreeting "bonjour" ;
+  GGoodEvening = mkGreeting "bon soir" ;
+  GGoodMorning = mkGreeting "bonjour" ;
+  GGoodNight = mkGreeting "bonne nuit" ;
+  GGoodbye = mkGreeting "au revoir" ;
+  GHello = mkGreeting "salut" ;
+  GHelp = mkGreeting "au secours" ;
+  GHowAreYou = mkGreeting "comment ça va" ;
+  GLookOut = mkGreeting "attention" ;
+  GNiceToMeetYou = mkGreeting "enchanté" ;
+  GPleaseGive = mkGreeting "s'il te plaît" ;
+  GPleaseGivePol = mkGreeting "s'il vous plaît" ;
+  GSeeYouSoon = mkGreeting "à bientôt" ;
+  GSorry, GSorryPol = mkGreeting "pardon" ;
+  GThanks = mkGreeting "merci" ;
+  GTheCheck = mkGreeting "l'addition" ;
+  GCongratulations = mkGreeting "félicitations";
+  GHappyBirthday = mkGreeting "joyeux anniversaire" ;
+  GGoodLuck = mkGreeting "bonne chance" ; 
+  GWhatTime = mkGreeting "quelle heure est-il" ;
+
+}

testsuite/lpgf/phrasebook/GreetingsGer.gf

@@ -0,0 +1,31 @@
+--# -path=.:abstract:prelude:german:api:common
+--# -coding=latin1
+concrete GreetingsGer of Greetings = SentencesGer [Greeting,mkGreeting] ** open Prelude in {
+
+lin 
+  GBye = mkGreeting "tschüß" ;
+  GCheers = mkGreeting "zum Wohl" ;
+  GDamn = mkGreeting "verdammt" ;
+  GExcuse, GExcusePol = mkGreeting "Entschuldigung" ;
+  GGoodDay = mkGreeting "guten Tag" ;
+  GGoodEvening = mkGreeting "guten Abend" ;
+  GGoodMorning = mkGreeting "guten Morgen" ;
+  GGoodNight = mkGreeting "gute Nacht" ;
+  GGoodbye = mkGreeting "auf Wiedersehen" ;
+  GHello = mkGreeting "Hallo" ;
+  GHelp = mkGreeting "Hilfe" ;
+  GHowAreYou = mkGreeting "wie geht's" ;
+  GLookOut = mkGreeting "Achtung" ;
+  GNiceToMeetYou = mkGreeting "nett, Sie zu treffen" ;
+  GPleaseGive, GPleaseGivePol = mkGreeting "bitte" ;
+  GSeeYouSoon = mkGreeting "bis bald" ;
+  GSorry, GSorryPol = mkGreeting "Entschuldigung" ;
+  GThanks = mkGreeting "Danke" ;
+  GTheCheck = mkGreeting "die Rechnung" ;
+  GCongratulations = mkGreeting "herzlichen Glückwunsch";
+  GHappyBirthday = mkGreeting "alles Gute zum Geburtstag" ;
+  GGoodLuck = mkGreeting "viel Glück" ; 
+  GWhatTime = mkGreeting "wieviel Uhr ist es" | mkGreeting "wie spät ist es" ;
+
+}
+

testsuite/lpgf/phrasebook/GreetingsHin.gf

@@ -0,0 +1,31 @@
+concrete GreetingsHin of Greetings = SentencesHin [Greeting,mkGreeting] ** open (P=Prelude) in {
+
+-- lincat 
+--  Greeting = {s : Str; lock_Text : {}} ;
+flags coding = utf8 ;
+lin 
+  GBye = P.ss "नमस्कार" ;
+  GCheers = P.ss "चियर्ज़" ;
+  GDamn = P.ss "ाफ़" ;
+  GExcuse, GExcusePol = P.ss "क्षमा कीजिये" ;
+  GGoodDay = P.ss "नमस्कार" ; ----
+  GGoodEvening = P.ss "नमस्कार" ;
+  GGoodMorning = P.ss "नमस्कार" ;
+  GGoodNight = P.ss "नमस्कार" ;
+  GGoodbye = P.ss "हम आपसे विदा लेते हैं" ;
+  GHello = P.ss "नमस्कार" ;
+  GHelp = P.ss "सहायता" ;
+  GHowAreYou = P.ss "आप कैसे हैं" ;
+  GLookOut = P.ss "सावधान" ;
+  GNiceToMeetYou, GNiceToMeetYouPol = P.ss "आप से मिल कर च्छा लगा" ;
+  GPleaseGive, GPleaseGivePol = P.ss "कृपया" ;
+  GSeeYouSoon = P.ss "फिर मिलेंगे" ;
+  GSorry, GSorryPol = P.ss "क्षमा कीजिये" ;
+  GThanks = P.ss "धन्यवाद" ;
+  GTheCheck = P.ss "बिल" ;
+  GCongratulations = P.ss "बधाई हो";
+  GHappyBirthday = P.ss "जन्मदिन की शुभकामनाएँ" ;
+  GGoodLuck = P.ss "शुभकामनाएँ" ; 
+  GWhatTime = P.ss "कितने बजे हैं" ;
+
+}

testsuite/lpgf/phrasebook/GreetingsIta.gf

@@ -0,0 +1,31 @@
+concrete GreetingsIta of Greetings = SentencesIta [Greeting,mkGreeting] ** open Prelude in {
+
+lin 
+  GBye = mkGreeting "ciao" ;
+  GCheers = mkGreeting "cincin" ;
+  GDamn = mkGreeting "maledizione" ;
+  GExcuse = mkGreeting "scusa" ;
+  GExcusePol = mkGreeting "scusi" ;
+  GGoodDay = mkGreeting "buongiorno" ;
+  GGoodEvening = mkGreeting "buona sera" ;
+  GGoodMorning = mkGreeting "buongiorno" ;
+  GGoodNight = mkGreeting "buona notte" ;
+  GGoodbye = mkGreeting "arrivederci" ;
+  GHello = mkGreeting "ciao" ;
+  GHelp = mkGreeting "aiuto" ;
+  GHowAreYou = mkGreeting "come sta" ;
+  GLookOut = mkGreeting "attenzione" ;
+  GNiceToMeetYou = mkGreeting "piacere di conoscerti" ;
+  GNiceToMeetYouPol = mkGreeting "piacere di conoscerLa" ;
+  GPleaseGive, GPleaseGivePol = mkGreeting "per favore" ;
+  GSeeYouSoon = mkGreeting "a presto" ; ----
+  GSorry = mkGreeting "scusami" ; ----
+  GSorryPol = mkGreeting "scusimi" ; ----
+  GThanks = mkGreeting "grazie" ;
+  GTheCheck = mkGreeting "il conto" ;
+  GCongratulations = mkGreeting "congratulazioni";
+  GHappyBirthday = mkGreeting "buon compleanno" ;
+  GGoodLuck = mkGreeting "buona fortuna" ; 
+  GWhatTime = mkGreeting "che ore sono" ;
+
+}

testsuite/lpgf/phrasebook/GreetingsJpn.gf

@@ -0,0 +1,30 @@
+concrete GreetingsJpn of Greetings = SentencesJpn [Greeting,mkGreeting] ** open Prelude in {
+
+flags coding = utf8 ;
+
+lin 
+  GBye = mkGreeting "バイ" ;
+  GCheers = mkGreeting "かんぱい" ;
+  GDamn = mkGreeting "くそ" ;
+  GExcuse, GExcusePol = mkGreeting "すみません" ;
+  GGoodDay, GHello = mkGreeting "こんにちは" ; ----
+  GGoodEvening = mkGreeting "こんばんは" ;
+  GGoodMorning = mkGreeting "おはようございます" ;
+  GGoodNight = mkGreeting "おやすみなさい" ;
+  GGoodbye = mkGreeting "さようなら" ;
+  GHelp = mkGreeting "助けて" ;
+  GHowAreYou = mkGreeting "お元気ですか" ;
+  GLookOut = mkGreeting "危ない" ;
+  GNiceToMeetYou = mkGreeting "初めまして" ;
+  GPleaseGive = mkGreeting "ください" ;
+  GPleaseGivePol = mkGreeting "お願いします" ;
+  GSeeYouSoon = mkGreeting "またね" ;
+  GSorry = mkGreeting "ごめんなさい" ;
+  GSorryPol = mkGreeting "申し訳ありません" ;
+  GThanks = mkGreeting "ありがとう" ;
+  GTheCheck = mkGreeting "会計" ;
+  GCongratulations = mkGreeting "お目出度うご座います";
+  GHappyBirthday = mkGreeting "お誕生日おめでとうございます" ;
+  GGoodLuck = mkGreeting "がんばってください" ; 
+  GWhatTime = mkGreeting "今何時ですか" ;
+}

testsuite/lpgf/phrasebook/GreetingsLav.gf

@@ -0,0 +1,33 @@
+--# -path=.:present
+concrete GreetingsLav of Greetings = SentencesLav [Greeting, mkGreeting] **
+open Prelude 
+in {
+
+	flags
+		coding = utf8 ;
+
+	lin
+		GBye = mkGreeting "atā" ;
+		GCheers = mkGreeting "priekā" ;
+		GDamn = mkGreeting "sasodīts" ;
+		GExcuse, GExcusePol = mkGreeting "atvainojiet" ;
+		GGoodDay = mkGreeting "labdien" ;
+		GGoodEvening = mkGreeting "labvakar" ;
+		GGoodMorning = mkGreeting "labrīt" ;
+		GGoodNight = mkGreeting "ar labunakti" ;
+		GGoodbye = mkGreeting "visu labu" ;
+		GHello = mkGreeting "sveiki" ;
+		GHelp = mkGreeting "palīdziet" ;
+		GHowAreYou = mkGreeting "kā klājas" ;
+		GLookOut = mkGreeting "uzmanīgi" ;
+		GNiceToMeetYou, GNiceToMeetYouPol = mkGreeting "prieks iepazīties" ;
+		GPleaseGive, GPleaseGivePol = mkGreeting "lūdzu" ;
+		GSeeYouSoon = mkGreeting "uz drīzu tikšanos" ;
+		GSorry, GSorryPol = mkGreeting "piedodiet" ;
+		GThanks = mkGreeting "paldies" ;
+		GTheCheck = mkGreeting "rēķins" ;
+		GCongratulations = mkGreeting "apsveicu" ;
+		GHappyBirthday = mkGreeting "daudz laimes dzimšanas dienā" ;
+		GGoodLuck = mkGreeting "veiksmīgi" ;
+
+}

testsuite/lpgf/phrasebook/GreetingsNor.gf

@@ -0,0 +1,28 @@
+--# -coding=latin1
+concrete GreetingsNor of Greetings = SentencesNor [Greeting,mkGreeting] ** open Prelude in {
+
+lin 
+  GBye = mkGreeting "ha det" ;
+  GCheers = mkGreeting "skål" ; -- google translate ! 
+  GDamn = mkGreeting "faen" ; 
+  GExcuse, GExcusePol = mkGreeting "unnskyld" ;
+  GGoodDay = mkGreeting "god dag" ;
+  GGoodEvening = mkGreeting "god kveld" ;
+  GGoodMorning = mkGreeting "god morgen" ;
+  GGoodNight = mkGreeting "god natt" ;
+  GGoodbye = mkGreeting "ha det bra" ;
+  GHello = mkGreeting "hei" ;
+  GHelp = mkGreeting "hjelp" ;
+  GHowAreYou = mkGreeting "hvordan går det" ;
+  GLookOut = mkGreeting "se opp" ; -- google translate !
+  GNiceToMeetYou, GNiceToMeetYouPol = mkGreeting "hyggelig å treffe deg" ;
+  GPleaseGive, GPleaseGivePol = mkGreeting "vær så snill" ;
+  GSeeYouSoon = mkGreeting "se deg snart" ; -- google translate !
+  GSorry, GSorryPol = mkGreeting "beklager" ;
+  GThanks = mkGreeting "takk" ;
+  GTheCheck = mkGreeting "regningen" ;
+  GCongratulations = mkGreeting "gratulerer";
+  GHappyBirthday = mkGreeting "gratulerer med dagen" ;
+  GGoodLuck = mkGreeting "lykke til" ; 
+
+}

testsuite/lpgf/phrasebook/GreetingsPes.gf

@@ -0,0 +1,29 @@
+concrete GreetingsPes of Greetings = SentencesPes [mkGreeting] ** open (P=Prelude) in {
+
+-- lincat 
+--  Greeting = {s : Str; lock_Text : {}} ;
+flags coding = utf8 ;
+lin 
+  GBye = P.ss ["خداحافظ"] ;
+  GCheers = P.ss ["به سلامتی"] ; 
+  GDamn = P.ss "لعنتی" ;
+  GExcuse, GExcusePol = P.ss ["ببخشید"] ;
+  GGoodDay = P.ss ["روز به خیر"] ; ----
+  GGoodEvening = P.ss ["عصر به خیر"] ;
+  GGoodMorning = P.ss ["صبح به خیر"] ;
+  GGoodNight = P.ss ["شب به خیر"] ;
+  GGoodbye = P.ss ["خداحافظ"] ;
+  GHello = P.ss "سلام" ;
+  GHelp = P.ss "کمک" ;
+  GHowAreYou = P.ss ["حال شما چطور است"] ;
+  GLookOut = P.ss ["مراقب باشید"] ;
+  GNiceToMeetYou, GNiceToMeetYouPol = P.ss ["از ملاقات شما خوشوقتم"] ;
+  GPleaseGive, GPleaseGivePol = P.ss ["لطفاً بدهید"] ;
+  GSeeYouSoon = P.ss ["به امید دیدار"] ;
+  GSorry, GSorryPol = P.ss "متأسفم" ;
+  GThanks = P.ss "ممنونم" ;
+  GTheCheck = P.ss "چک" ;
+  GCongratulations = P.ss ["تبریک میگم"];
+  GHappyBirthday = P.ss ["تولدت مبارک"] ;
+  GGoodLuck = P.ss ["موفق باشید"] ; 
+}

testsuite/lpgf/phrasebook/GreetingsPol.gf

@@ -0,0 +1,27 @@
+concrete GreetingsPol of Greetings = SentencesPol [Greeting,mkGreeting] ** open Prelude in {
+
+flags
+  optimize =values ; coding =utf8 ; 
+
+lin 
+  GBye = mkGreeting "cześć" ;
+  GCheers = mkGreeting "na zdrowie" ;
+  GDamn = mkGreeting "cholera" ; -- not polite
+  GExcuse, GExcusePol, GSorry, GSorryPol = mkGreeting "przepraszam" ;
+  GGoodDay, GGoodMorning = mkGreeting "dzień dobry" ;
+  GGoodEvening = mkGreeting "dobry wieczór" ;
+  GGoodNight = mkGreeting "dobranoc" ;
+  GGoodbye = mkGreeting "do widzenia" ;
+  GHello = mkGreeting "cześć" ;
+  GHelp = mkGreeting "pomocy" ;
+  GHowAreYou = mkGreeting "jak się masz" ;
+  GLookOut = mkGreeting "uwaga" ;
+  GNiceToMeetYou = mkGreeting "miło mi" ; 
+  GPleaseGive, GPleaseGivePol = mkGreeting "poproszę" ;
+  GSeeYouSoon = mkGreeting "do zobaczenia" ;
+  GThanks = mkGreeting "dziękuję" ;
+  GTheCheck = mkGreeting "rachunek" ;
+  GCongratulations = mkGreeting "gratulacje";
+  GHappyBirthday = mkGreeting "wszystkiego najlepszego z okazji urodzin" ;
+  GGoodLuck = mkGreeting "powodzenia" ; 
+}

testsuite/lpgf/phrasebook/GreetingsRon.gf

@@ -0,0 +1,31 @@
+concrete GreetingsRon of Greetings = SentencesRon [Greeting,mkGreeting] ** open Prelude in {
+
+flags coding = utf8 ;
+
+lin 
+  GBye = mkGreeting "pa" ;
+  GCheers = mkGreeting "noroc" ;
+  GDamn = mkGreeting "ptiu" ;
+  GExcuse = mkGreeting "pardon" ;
+  GExcusePol = mkGreeting "mă scuzați" ;
+  GGoodDay = mkGreeting "bună ziua" ;
+  GGoodEvening = mkGreeting "bună seara" ;
+  GGoodMorning = mkGreeting "bună dimineaţa" ;
+  GGoodNight = mkGreeting "noapte bună" ;
+  GGoodbye = mkGreeting "la revedere" ;
+  GHello = mkGreeting "salut" ;
+  GHelp = mkGreeting "ajutor" ;
+  GHowAreYou = mkGreeting "ce faci" ;
+  GLookOut = mkGreeting "atenţie" ;
+  GNiceToMeetYou = mkGreeting "încântat" ;
+  GPleaseGive = mkGreeting "te rog" ;
+  GPleaseGivePol = mkGreeting "vă rog" ;
+  GSeeYouSoon = mkGreeting "pe curând" ;
+  GSorry, GSorryPol = mkGreeting "îmi pare rău" ;
+  GThanks = mkGreeting "mulţumesc" ;
+  GTheCheck = mkGreeting "nota de plată" ;
+  GCongratulations = mkGreeting "felicitări";
+  GHappyBirthday = mkGreeting "la mulți ani" ;
+  GGoodLuck = mkGreeting "baftă" ; 
+
+}

testsuite/lpgf/phrasebook/GreetingsRus.gf

@@ -0,0 +1,29 @@
+concrete GreetingsRus of Greetings = open Prelude in {
+
+flags coding = utf8 ;
+
+lin 
+  GBye = ss "до свидания" ;
+  GCheers = ss "ура" ;
+  GDamn = ss "чёрт" ;
+  GExcuse, GExcusePol = ss "извините" ;
+  GGoodDay = ss "добрый день" ; ----
+  GGoodEvening = ss "добрый вечер" ;
+  GGoodMorning = ss "доброе утро" ;
+  GGoodNight = ss "спокойной ночи" ;
+  GGoodbye = ss "до свидания" ;
+  GHello = ss "привет" ;
+  GHelp = ss "помогите" ;
+  GHowAreYou = ss "Как поживаете" ;
+  GLookOut = ss "смотреть" ;
+  GNiceToMeetYou, GNiceToMeetYouPol = ss "приятно познакомиться" ;
+  GPleaseGive, GPleaseGivePol = ss "пожалуйста" ;
+  GSeeYouSoon = ss "до скорой встречи" ;
+  GSorry, GSorryPol = ss "Мне жаль" ;
+  GThanks = ss "спасибо" ;
+  GTheCheck = ss "проверить" ;
+  GCongratulations = ss "поздравляю";
+  GHappyBirthday = ss "с днем рождения" ;
+  GGoodLuck = ss "желаю удачи" ; 
+
+}

testsuite/lpgf/phrasebook/GreetingsSnd.gf

@@ -0,0 +1,29 @@
+concrete GreetingsSnd of Greetings = SentencesSnd [mkGreeting,Greeting] ** open (P=Prelude) in {
+
+-- lincat 
+--  Greeting = {s : Str; lock_Text : {}} ;
+flags coding = utf8 ;
+lin 
+  GBye = P.ss "خدا حافظ" ;
+  GCheers = P.ss "چيئرز" ;
+  GDamn = P.ss "اف" ;
+  GExcuse, GExcusePol = P.ss "معاف ڪجو" ;
+  GGoodDay = P.ss "ڏينهن بخير" ; ----
+  GGoodEvening = P.ss "شام بخير" ;
+  GGoodMorning = P.ss "صبح بخير" ;
+  GGoodNight = P.ss "رات بخير" ;
+  GGoodbye = P.ss "خدا حافظ" ;
+  GHello = P.ss "السلام عليڪم" ;
+  GHelp = P.ss "مدد" ;
+  GHowAreYou = P.ss "توهان ڪيئن آهيو" ;
+  GLookOut = P.ss "سنڀالي" ;
+  GNiceToMeetYou, GNiceToMeetYouPol = P.ss "توهان سان ملي ڪري سٺو لڳو" ;
+  GPleaseGive, GPleaseGivePol = P.ss "مهرباني ڪريو" ;
+  GSeeYouSoon = P.ss "موڪلاڻي ڪانهي" ;
+  GSorry, GSorryPol = P.ss "معاف ڪجو" ;
+  GThanks = P.ss "ٿورا" ;
+  GTheCheck = P.ss "بل" ;
+  GCongratulations = P.ss "مبارڪ هجي";
+  GHappyBirthday = P.ss "جنم ڏينهن مبارڪ" ;
+  GGoodLuck = P.ss "قسمت ڀلي هجي" ; 
+}

testsuite/lpgf/phrasebook/GreetingsSpa.gf

@@ -0,0 +1,31 @@
+concrete GreetingsSpa of Greetings = SentencesSpa [Greeting,mkGreeting] ** open Prelude in {
+
+flags coding = utf8 ;
+
+lin
+  GBye = mkGreeting "adiós" ;
+  GCheers = mkGreeting "salud" ;
+  GDamn = mkGreeting "joder" ;
+  GExcuse = mkGreeting "perdón" ;
+  GExcusePol = mkGreeting "perdone" ;
+  GCongratulations = mkGreeting "felicitaciones" ;
+  GGoodLuck = mkGreeting "buena suerte" ;
+  GHappyBirthday = mkGreeting "feliz cumpleaños" ;
+  GGoodMorning, GGoodDay = mkGreeting "buenos días" ;
+  GGoodEvening = mkGreeting "buenas tardes" ;
+  GGoodNight = mkGreeting "buenas noches" ;
+  GGoodbye = mkGreeting "hasta luego" ;
+  GHello = mkGreeting "hola" ;
+  GHelp = mkGreeting "socorro" ;
+  GHowAreYou = mkGreeting "cómo está" ; -- the polite singular "you"
+  GLookOut = mkGreeting "atención" ;
+  GNiceToMeetYou = mkGreeting "encantado de conocerle" ; -- the polite singular "you"
+  GPleaseGive, GPleaseGivePol = mkGreeting "por favor" ;
+  GSeeYouSoon = mkGreeting "nos vemos pronto" ;
+  GSorry = mkGreeting "disculpa" ;
+  GSorryPol = mkGreeting "disculpe" ;
+  GThanks = mkGreeting "gracias" ;
+  GTheCheck = mkGreeting "la cuenta" ;
+  GWhatTime = mkGreeting "qué hora es" ;
+
+}

testsuite/lpgf/phrasebook/GreetingsSwe.gf

@@ -0,0 +1,29 @@
+--# -coding=latin1
+concrete GreetingsSwe of Greetings = SentencesSwe [Greeting,mkGreeting] ** open Prelude in {
+
+lin 
+  GBye = mkGreeting "hej då" ;
+  GCheers = mkGreeting "skål" ;
+  GDamn = mkGreeting "fan" ;
+  GExcuse, GExcusePol = mkGreeting "ursäkta" ;
+  GGoodDay = mkGreeting "god dag" ;
+  GGoodEvening = mkGreeting "god afton" ;
+  GGoodMorning = mkGreeting "god morgon" ;
+  GGoodNight = mkGreeting "god natt" ;
+  GGoodbye = mkGreeting "hej då" ;
+  GHello = mkGreeting "hej" ;
+  GHelp = mkGreeting "hjälp" ;
+  GHowAreYou = mkGreeting "hur står det till" ;
+  GLookOut = mkGreeting "se upp" ;
+  GNiceToMeetYou, GNiceToMeetYouPol = mkGreeting "trevligt att träffas" ;
+  GPleaseGive, GPleaseGivePol = mkGreeting "var så god" ;
+  GSeeYouSoon = mkGreeting "vi ses snart" ;
+  GSorry, GSorryPol = mkGreeting "förlåt" ;
+  GThanks = mkGreeting "tack" ;
+  GTheCheck = mkGreeting "notan" ;
+  GCongratulations = mkGreeting "grattis";
+  GHappyBirthday = mkGreeting "grattis på födelsedagen" ;
+  GGoodLuck = mkGreeting "lycka till" ; 
+  GWhatTime = mkGreeting "vad är klockan" | mkGreeting "hur mycket är klockan" ;
+
+}

testsuite/lpgf/phrasebook/GreetingsTha.gf

@@ -0,0 +1,35 @@
+concrete GreetingsTha of Greetings = 
+  SentencesTha [Greeting,mkGreeting] ** 
+  open ResTha, Prelude in {
+
+-- สุขสันต์วันเกิด
+
+flags coding = utf8 ;
+
+lin 
+  GBye = mkGreeting (thword "ลา" "ก่อน") ;
+  GCheers = mkGreeting (thword "ไช" "โย") ;
+  GDamn = mkGreeting (thword "ชิบ" "หาย") ;
+  GExcuse, GExcusePol = mkGreeting (thword "ขอ" "โทษ") ;
+  GGoodDay = mkGreeting (thword "สวัส" "ดี") ;
+  GGoodEvening = mkGreeting (thword "สวัส" "ดี") ;
+  GGoodMorning = mkGreeting (thword "สวัส" "ดี") ;
+  GGoodNight = mkGreeting (thword "รา" "ตรี" "สวัส" "ดิ์") ;
+  GGoodbye = mkGreeting (thword "ลา" "ก่อน") ;
+  GHello = mkGreeting (thword "สวัส" "ดี") ;
+  GHelp = mkGreeting (thword "ช่วย" "ด้วย") ;
+  GHowAreYou = mkGreeting (thword "สบาย" "ดี" "ไหม") ;
+  GLookOut = mkGreeting (thword "ระ" "วัง") ; ---- google
+  GNiceToMeetYou, GNiceToMeetYouPol = 
+    mkGreeting (thword "ยิน" "ดี" "ที่" "ได้" "รู้" "จัก") ;
+  GPleaseGive, GPleaseGivePol = mkGreeting "นะ" ;
+  GSeeYouSoon = mkGreeting (thword "เจอ" "กัน" "นะ") ;
+  GSorry, GSorryPol = mkGreeting (thword "ขอ" "โทษ") ;
+  GThanks = mkGreeting (thword "ขอบ" "คุณ") ;
+  GTheCheck = mkGreeting (thword "เช็ค" "บิล") ;
+  GCongratulations = mkGreeting (thword "ยิน" "ดี" "ด้วย") ;
+  GHappyBirthday = mkGreeting (thword "สุข" "สันต์" "วัน" "เกิด") ;
+  GGoodLuck = mkGreeting (thword "โชค" "ดี" "นะ") ; 
+}
+
+

testsuite/lpgf/phrasebook/GreetingsUrd.gf

@@ -0,0 +1,29 @@
+concrete GreetingsUrd of Greetings = SentencesUrd [mkGreeting,Greeting] ** open (P=Prelude) in {
+
+-- lincat 
+--  Greeting = {s : Str; lock_Text : {}} ;
+flags coding = utf8 ;
+lin 
+  GBye = P.ss "خدا حافظ" ;
+  GCheers = P.ss "چیرز" ;
+  GDamn = P.ss "اف" ;
+  GExcuse, GExcusePol = P.ss "معاف كیجیے گا" ;
+  GGoodDay = P.ss "دن بخیر" ; ----
+  GGoodEvening = P.ss "شام بخیر" ;
+  GGoodMorning = P.ss "صبح بخیر" ;
+  GGoodNight = P.ss "رات بخیر" ;
+  GGoodbye = P.ss "خدا حافظ" ;
+  GHello = P.ss "اسلام علیكم" ;
+  GHelp = P.ss "مدد" ;
+  GHowAreYou = P.ss "آپ كیسی ہو" ;
+  GLookOut = P.ss "دیكھ كر" ;
+  GNiceToMeetYou, GNiceToMeetYouPol = P.ss "آپ سے مل كر اچھا لگا" ;
+  GPleaseGive, GPleaseGivePol = P.ss "مہربانی كر كے" ;
+  GSeeYouSoon = P.ss "ملتے ہیں" ;
+  GSorry, GSorryPol = P.ss "معاف كیجیے گا" ;
+  GThanks = P.ss "شكریہ" ;
+  GTheCheck = P.ss "بل" ;
+  GCongratulations = P.ss "مبارك ہو";
+  GHappyBirthday = P.ss "سالگرہ مبارك" ;
+  GGoodLuck = P.ss "گڈ لك" ; 
+}

testsuite/lpgf/phrasebook/Phrasebook.gf

@@ -0,0 +1,8 @@
+abstract Phrasebook = 
+  Greetings,
+  Words
+  ** {
+
+flags startcat = Phrase ;
+
+}

testsuite/lpgf/phrasebook/PhrasebookBul.gf

@@ -0,0 +1,9 @@
+--# -path=.:present
+
+concrete PhrasebookBul of Phrasebook = 
+  GreetingsBul,
+  WordsBul ** open 
+    SyntaxBul,
+    Prelude in {
+
+}

testsuite/lpgf/phrasebook/PhrasebookCat.gf

@@ -0,0 +1,11 @@
+--# -path=.:present
+
+concrete PhrasebookCat of Phrasebook = 
+  GreetingsCat,
+  WordsCat
+  ** open 
+    SyntaxCat,
+    Prelude in {
+
+}
+

testsuite/lpgf/phrasebook/PhrasebookChi.gf

@@ -0,0 +1,11 @@
+--# -path=.:alltenses
+
+concrete PhrasebookChi of Phrasebook = 
+  GreetingsChi,
+  WordsChi
+ ** open 
+    SyntaxChi,
+    Prelude in {
+
+
+}

testsuite/lpgf/phrasebook/PhrasebookDan.gf

@@ -0,0 +1,9 @@
+--# -path=.:present:alltenses
+
+concrete PhrasebookDan of Phrasebook = 
+  GreetingsDan,
+  WordsDan ** open 
+    SyntaxDan,
+    Prelude in {
+
+}

testsuite/lpgf/phrasebook/PhrasebookDut.gf

@@ -0,0 +1,10 @@
+--# -path=.:present
+
+concrete PhrasebookDut of Phrasebook = 
+  GreetingsDut,
+  WordsDut ** open 
+    SyntaxDut,
+    Prelude in {
+
+
+}

testsuite/lpgf/phrasebook/PhrasebookEng.gf

@@ -0,0 +1,12 @@
+--# -path=.:present
+
+concrete PhrasebookEng of Phrasebook = 
+  GreetingsEng,
+  WordsEng ** open 
+    SyntaxEng,
+    Prelude in {
+
+flags 
+  language = en_US ;
+
+}

testsuite/lpgf/phrasebook/PhrasebookEst.gf

@@ -0,0 +1,7 @@
+concrete PhrasebookEst of Phrasebook = 
+  GreetingsEst,
+  WordsEst ** open 
+    SyntaxEst,
+    Prelude in {
+
+}

testsuite/lpgf/phrasebook/PhrasebookFin.gf

@@ -0,0 +1,9 @@
+--# -path=.:present
+
+concrete PhrasebookFin of Phrasebook = 
+  GreetingsFin,
+  WordsFin ** open 
+    SyntaxFin,
+    Prelude in {
+
+}

testsuite/lpgf/phrasebook/PhrasebookFre.gf

@@ -0,0 +1,11 @@
+--# -path=.:present
+
+concrete PhrasebookFre of Phrasebook = 
+  GreetingsFre,
+  WordsFre
+  ** open 
+    SyntaxFre,
+    Prelude in {
+
+  
+}

testsuite/lpgf/phrasebook/PhrasebookGer.gf

@@ -0,0 +1,10 @@
+--# -path=.:present
+
+concrete PhrasebookGer of Phrasebook = 
+  GreetingsGer,
+  WordsGer ** open 
+    SyntaxGer,
+    Prelude in {
+
+
+}

testsuite/lpgf/phrasebook/PhrasebookHin.gf

@@ -0,0 +1,10 @@
+--# -path=.:alltenses
+
+
+concrete PhrasebookHin of Phrasebook = 
+  GreetingsHin,
+  WordsHin ** open 
+    SyntaxHin,
+    Prelude in {
+
+}

testsuite/lpgf/phrasebook/PhrasebookIta.gf

@@ -0,0 +1,13 @@
+--# -path=.:present
+
+concrete PhrasebookIta of Phrasebook = 
+  GreetingsIta,
+  WordsIta
+  ** open 
+    SyntaxIta,
+    Prelude in {
+
+flags language = it_IT ;
+
+}
+

testsuite/lpgf/phrasebook/PhrasebookJpn.gf

@@ -0,0 +1,7 @@
+concrete PhrasebookJpn of Phrasebook = 
+  GreetingsJpn,
+  WordsJpn ** open 
+    SyntaxJpn,
+    Prelude in {
+
+}

testsuite/lpgf/phrasebook/PhrasebookLav.gf

@@ -0,0 +1,7 @@
+--# -path=.:present
+
+concrete PhrasebookLav of Phrasebook = GreetingsLav, WordsLav **
+open
+    SyntaxLav,
+    Prelude
+in {} ;

testsuite/lpgf/phrasebook/PhrasebookNor.gf

@@ -0,0 +1,9 @@
+--# -path=.:present
+
+concrete PhrasebookNor of Phrasebook = 
+  GreetingsNor,
+  WordsNor ** open 
+    SyntaxNor,
+    Prelude in {
+
+}

testsuite/lpgf/phrasebook/PhrasebookPol.gf

@@ -0,0 +1,13 @@
+--# -path=.:present
+
+concrete PhrasebookPol of Phrasebook = 
+  GreetingsPol,
+  WordsPol ** open 
+    SyntaxPol,
+    Prelude in {
+
+flags 
+  language = pl_PL ; optimize =values ; coding =utf8 ; 
+      
+
+}

testsuite/lpgf/phrasebook/PhrasebookRon.gf

@@ -0,0 +1,11 @@
+--# -path=.:present
+
+concrete PhrasebookRon of Phrasebook = 
+  GreetingsRon,
+  WordsRon
+  ** open 
+    SyntaxRon,
+    Prelude in {
+
+
+}

testsuite/lpgf/phrasebook/PhrasebookSnd.gf

@@ -0,0 +1,9 @@
+--# -path=.:present
+
+concrete PhrasebookSnd of Phrasebook = 
+  GreetingsSnd,
+  WordsSnd ** open 
+    SyntaxSnd,
+    Prelude in {
+
+}

testsuite/lpgf/phrasebook/PhrasebookSpa.gf

@@ -0,0 +1,12 @@
+--# -path=.:present
+
+concrete PhrasebookSpa of Phrasebook = 
+  GreetingsSpa,
+  WordsSpa
+  ** open 
+    SyntaxSpa,
+    Prelude in {
+
+
+}
+

testsuite/lpgf/phrasebook/PhrasebookSwe.gf

@@ -0,0 +1,11 @@
+--# -path=.:present
+
+concrete PhrasebookSwe of Phrasebook = 
+  GreetingsSwe,
+  WordsSwe ** open 
+    SyntaxSwe,
+    Prelude in {
+flags  
+  language = sv_SE ;
+
+}