GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

slight refactoring of Phrasebook, with less start words

Browse Source
This commit is contained in:
aarne
2010-12-07 12:32:57 +00:00
parent e1c7cddc6c
commit e4b330b8cc
34 changed files with 398 additions and 447 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
examples/phrasebook/Greetings.gf
View File

@@ -1,7 +1,4 @@
abstract Greetings = {
cat
Greeting ; -- idiomatic phrase, not inflected, e.g. "hello"
abstract Greetings = Sentences [Greeting] ** {
fun
GBye : Greeting ;

49
examples/phrasebook/GreetingsBul.gf
View File

@@ -1,33 +1,30 @@
concrete GreetingsBul of Greetings = open Prelude in {
concrete GreetingsBul of Greetings = SentencesBul [Greeting,mkGreeting] ** open Prelude in {
flags
coding=utf8;
lincat
Greeting = SS ;
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 = ss "радвам се да се видим" ;
GPleaseGive, GPleaseGivePol = ss "моля" ;
GSeeYouSoon = ss "до скоро" ;
GSorry, GSorryPol = ss "извинете" ;
GThanks = ss "благодаря ти" ;
GTheCheck = ss "сметката" ;
GCongratulations = ss "поздравления";
GHappyBirthday = ss "честит рожден ден" ;
GGoodLuck = ss "успех" ;
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 "успех" ;
}

55
examples/phrasebook/GreetingsCat.gf
View File

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

51
examples/phrasebook/GreetingsDan.gf
View File

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

52
examples/phrasebook/GreetingsDut.gf
View File

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

49
examples/phrasebook/GreetingsEng.gf
View File

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

51
examples/phrasebook/GreetingsFin.gf
View File

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

53
examples/phrasebook/GreetingsFre.gf
View File

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

49
examples/phrasebook/GreetingsGer.gf
View File

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

55
examples/phrasebook/GreetingsIta.gf
View File

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

49
examples/phrasebook/GreetingsNor.gf
View File

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

45
examples/phrasebook/GreetingsPol.gf
View File

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

53
examples/phrasebook/GreetingsRon.gf
View File

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

51
examples/phrasebook/GreetingsSpa.gf
View File

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

49
examples/phrasebook/GreetingsSwe.gf
View File

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

3
examples/phrasebook/Phrasebook.gf
View File

@@ -5,7 +5,4 @@ abstract Phrasebook =
flags startcat = Phrase ;
fun
PGreeting : Greeting -> Phrase ;
}

3
examples/phrasebook/PhrasebookBul.gf
View File

@@ -6,7 +6,4 @@ concrete PhrasebookBul of Phrasebook =
SyntaxBul,
Prelude in {
lin
PGreeting g = lin Text g ;
}

3
examples/phrasebook/PhrasebookCat.gf
View File

@@ -7,8 +7,5 @@ concrete PhrasebookCat of Phrasebook =
SyntaxCat,
Prelude in {
lin
PGreeting g = lin Text (ss g.s) ;
}

3
examples/phrasebook/PhrasebookDan.gf
View File

@@ -6,7 +6,4 @@ concrete PhrasebookDan of Phrasebook =
SyntaxDan,
Prelude in {
lin
PGreeting g = lin Text (ss g.s) ;
}

2
examples/phrasebook/PhrasebookDut.gf
View File

@@ -6,7 +6,5 @@ concrete PhrasebookDut of Phrasebook =
SyntaxDut,
Prelude in {
lin
PGreeting g = lin Text (ss g.s) ;
}

3
examples/phrasebook/PhrasebookEng.gf
View File

@@ -9,7 +9,4 @@ concrete PhrasebookEng of Phrasebook =
flags
language = en_US ;
lin
PGreeting g = lin Text g ;
}

3
examples/phrasebook/PhrasebookFin.gf
View File

@@ -6,7 +6,4 @@ concrete PhrasebookFin of Phrasebook =
SyntaxFin,
Prelude in {
lin
PGreeting g = lin Text (ss g.s) ;
}

2
examples/phrasebook/PhrasebookFre.gf
View File

@@ -7,7 +7,5 @@ concrete PhrasebookFre of Phrasebook =
SyntaxFre,
Prelude in {
lin
PGreeting g = lin Text (ss g.s) ;
}

2
examples/phrasebook/PhrasebookGer.gf
View File

@@ -6,7 +6,5 @@ concrete PhrasebookGer of Phrasebook =
SyntaxGer,
Prelude in {
lin
PGreeting g = lin Text (ss g.s) ;
}

3
examples/phrasebook/PhrasebookIta.gf
View File

@@ -9,8 +9,5 @@ concrete PhrasebookIta of Phrasebook =
flags language = it_IT ;
lin
PGreeting g = lin Text (ss g.s) ;
}

3
examples/phrasebook/PhrasebookNor.gf
View File

@@ -6,7 +6,4 @@ concrete PhrasebookNor of Phrasebook =
SyntaxNor,
Prelude in {
lin
PGreeting g = lin Text (ss g.s) ;
}

4
examples/phrasebook/PhrasebookPol.gf
View File

@@ -10,8 +10,4 @@ flags
language = pl_PL ; optimize =values ; coding =utf8 ;
lin
PGreeting g = lin Text g ;
}

2
examples/phrasebook/PhrasebookRon.gf
View File

@@ -7,7 +7,5 @@ concrete PhrasebookRon of Phrasebook =
SyntaxRon,
Prelude in {
lin
PGreeting g = lin Text (ss g.s) ;
}

2
examples/phrasebook/PhrasebookSpa.gf
View File

@@ -7,8 +7,6 @@ concrete PhrasebookSpa of Phrasebook =
SyntaxSpa,
Prelude in {
lin
PGreeting g = lin Text (ss g.s) ;
}

2
examples/phrasebook/PhrasebookSwe.gf
View File

@@ -7,7 +7,5 @@ concrete PhrasebookSwe of Phrasebook =
Prelude in {
flags
language = sv_SE ;
lin
PGreeting g = lin Text (ss g.s) ;
}

53
examples/phrasebook/Sentences.gf
View File

@@ -14,9 +14,11 @@ abstract Sentences = Numeral ** {
cat
Phrase ; -- complete phrase, the unit of translation e.g. "Where are you?"
Word ; -- word that could be used as phrase e.g. "Monday"
Message ; -- sequence of phrases, longest unit e.g. "Hello! Where are you?"
Greeting ; -- idiomatic greeting e.g. "hello"
Sentence ; -- declarative sentence e.g. "I am in the bar"
Question ; -- question, either yes/no or wh e.g. "where are you"
-- Greeting ; -- idiomatic phrase, not inflected, e.g. "hello"
Proposition ; -- can be turned into sentence or question e.g. "this pizza is good"
Object ; -- the object of wanting, ordering, etc e.g. "three pizzas and a beer"
PrimObject ; -- single object of wanting, ordering, etc e.g. "three pizzas"
@@ -43,30 +45,45 @@ abstract Sentences = Numeral ** {
ByTransport ; -- mean of transportation e.g. "by tram"
Superlative ; -- superlative modifiers of places e.g. "the best restaurant"
-- Many of the categories are accessible as Phrases, i.e. as translation units.
fun
fun
-- To build a whole message
MPhrase : Phrase -> Message ;
MContinue : Phrase -> Message -> Message ;
-- Many of the categories are accessible as Phrases, i.e. as translation units.
-- To regulate whether words appear on the top level, change their status between
-- Word and Phrase, or uncomment PWord,
-- PWord : Word -> Phrase ;
PGreeting : Greeting -> Phrase ;
PSentence : Sentence -> Phrase ;
PQuestion : Question -> Phrase ;
PObject : Object -> Phrase ;
PKind : Kind -> Phrase ;
PMassKind : MassKind -> Phrase ;
PQuality : Quality -> Phrase ;
PNumber : Number -> Phrase ;
PPlace : Place -> Phrase ;
PPlaceKind : PlaceKind -> Phrase ;
PCurrency : Currency -> Phrase ;
PPrice : Price -> Phrase ;
PLanguage : Language -> Phrase ;
PCitizenship : Citizenship -> Phrase ;
PCountry : Country -> Phrase ;
PDay : Day -> Phrase ;
PByTransport : ByTransport -> Phrase ;
PTransport : Transport -> Phrase ;
PObject : Object -> Word ;
PKind : Kind -> Word ;
PMassKind : MassKind -> Word ;
PQuality : Quality -> Word ;
PPlace : Place -> Word ;
PPlaceKind : PlaceKind -> Word ;
PCurrency : Currency -> Word ;
PLanguage : Language -> Word ;
PCitizenship : Citizenship -> Word ;
PCountry : Country -> Word ;
PDay : Day -> Word ;
PByTransport : ByTransport -> Word ;
PTransport : Transport -> Word ;
PYes, PNo, PYesToNo : Phrase ; -- yes, no, si/doch (pos. answer to neg. question)
PYes, PNo, PYesToNo : Greeting ; -- yes, no, si/doch (pos. answer to neg. question)
-- To order something.
GObjectPlease : Object -> Greeting ; -- a pizza and beer, please!
-- This is the way to build propositions about inanimate items.

9
examples/phrasebook/SentencesFin.gf
View File

@@ -1,10 +1,12 @@
concrete SentencesFin of Sentences = NumeralFin ** SentencesI -
[Is, IsMass, NameNN, ObjMass,
IFemale, YouFamFemale, YouPolFemale, IMale, YouFamMale, YouPolMale
IFemale, YouFamFemale, YouPolFemale, IMale, YouFamMale, YouPolMale,
GObjectPlease
] with
(Syntax = SyntaxFin),
(Symbolic = SymbolicFin),
(Lexicon = LexiconFin) ** open SyntaxFin, ExtraFin, (P = ParadigmsFin), (V = VerbFin) in {
(Lexicon = LexiconFin) **
open SyntaxFin, ExtraFin, (P = ParadigmsFin), (V = VerbFin), Prelude in {
lin
Is item prop = mkCl item (V.UseComp (CompPartAP prop)) ; -- tämä pizza on herkullista
@@ -20,4 +22,7 @@ concrete SentencesFin of Sentences = NumeralFin ** SentencesI -
ObjMass = PartCN ;
GObjectPlease o = lin Text (mkPhr noPConj (mkUtt o) (lin Voc (ss "kiitos"))) ;
}

19
examples/phrasebook/SentencesI.gf
View File

@@ -11,6 +11,9 @@ incomplete concrete SentencesI of Sentences = Numeral **
in {
lincat
Phrase = Text ;
Word = Text ;
Message = Text ;
Greeting = Text ;
Sentence = S ;
Question = QS ;
Proposition = Cl ;
@@ -39,18 +42,26 @@ incomplete concrete SentencesI of Sentences = Numeral **
Transport = {name : CN ; by : Adv} ;
Superlative = Det ;
lin
MPhrase p = p ;
MContinue p m = mkText p m ;
PSentence s = mkText s | lin Text (mkUtt s) ; -- optional '.'
PQuestion s = mkText s | lin Text (mkUtt s) ; -- optional '?'
PGreeting g = mkText (lin Phr g) exclMarkPunct | g ;
-- PWord w = w ;
PNumber x = mkSentence (mkUtt x) ;
PPrice x = mkSentence (mkUtt x) ;
PObject x = mkPhrase (mkUtt x) ;
PKind x = mkPhrase (mkUtt x) ;
PMassKind x = mkPhrase (mkUtt x) ;
PQuality x = mkPhrase (mkUtt x) ;
PNumber x = mkPhrase (mkUtt x) ;
PPlace x = mkPhrase (mkUtt x.name) ;
PPlaceKind x = mkPhrase (mkUtt x.name) ;
PCurrency x = mkPhrase (mkUtt x) ;
PPrice x = mkPhrase (mkUtt x) ;
PLanguage x = mkPhrase (mkUtt x) ;
PCountry x = mkPhrase (mkUtt x) ;
PCitizenship x = mkPhrase (mkUtt (mkAP x)) ;
@@ -62,6 +73,8 @@ incomplete concrete SentencesI of Sentences = Numeral **
PNo = mkPhrase no_Utt ;
PYesToNo = mkPhrase yes_Utt ;
GObjectPlease o = lin Text (mkPhr noPConj (mkUtt o) please_Voc) ;
Is = mkCl ;
IsMass m q = mkCl (mkNP m) q ;
@@ -143,6 +156,8 @@ oper
-- These operations are used internally in Sentences.
mkPhrase : Utt -> Text = \u -> lin Text u ; -- no punctuation
mkGreeting : Str -> Text = \s -> lin Text (ss s) ; -- no punctuation
mkSentence : Utt -> Text = \t -> lin Text (postfixSS "." t | t) ; -- optional .
mkPerson : Pron -> {name : NP ; isPron : Bool ; poss : Quant} = \p ->
{name = mkNP p ; isPron = True ; poss = mkQuant p} ;

8
examples/phrasebook/Words.gf
View File

@@ -157,11 +157,9 @@ abstract Words = Sentences ** {
PropOpenDay : Place -> Day -> Proposition ; -- the museum is open on Mondays
PropClosedDay : Place -> Day -> Proposition ; -- the museum is closed on Mondays
PSeeYouPlaceDate : Place -> Date -> Phrase ; -- see you in the bar on Monday
PSeeYouPlace : Place -> Phrase ; -- see you in the bar
PSeeYouDate : Date -> Phrase ; -- see you on Monday
PSeeYouPlaceDate : Place -> Date -> Greeting ; -- see you in the bar on Monday
PSeeYouPlace : Place -> Greeting ; -- see you in the bar
PSeeYouDate : Date -> Greeting ; -- see you on Monday
-- family relations