French phrasebook

8 files changed, 113 insertions, 9 deletions

diff --git a/examples/phrasebook/DiffPhrasebookFre.gf b/examples/phrasebook/DiffPhrasebookFre.gf
new file mode 100644
index 000000000..039258776
--- /dev/null
+++ b/examples/phrasebook/DiffPhrasebookFre.gf
@@ -0,0 +1,13 @@
+instance DiffPhrasebookFre of DiffPhrasebook = open 
+  SyntaxFre,
+  IrregFre,
+  ParadigmsFre 
+in {
+
+flags coding = utf8 ;
+
+oper
+  want_V2 = vouloir_V2 ;
+  like_V2 = mkV2 (mkV "aimer") ;
+
+}
diff --git a/examples/phrasebook/DiffPhrasebookRon.gf b/examples/phrasebook/DiffPhrasebookRon.gf
index 027ab1dfe..0b842bd81 100644
--- a/examples/phrasebook/DiffPhrasebookRon.gf
+++ b/examples/phrasebook/DiffPhrasebookRon.gf
@@ -1,5 +1,6 @@
 instance DiffPhrasebookRon of DiffPhrasebook = open 
   SyntaxRon,
+  BeschRon,
   ParadigmsRon 
 in {
 
@@ -7,6 +8,6 @@ flags coding = utf8 ;
 
 oper
   want_V2 = dirV2 (lin V want_VV)  ;  -- mkVV (v_besch74 "vrea")
-  like_V2 = dirV2 (mkV "părăsi") ;
+  like_V2 = dirV2 (v_besch71 "plăcea") ;
 
 }
diff --git a/examples/phrasebook/FoodFre.gf b/examples/phrasebook/FoodFre.gf
new file mode 100644
index 000000000..0c7c1af1c
--- /dev/null
+++ b/examples/phrasebook/FoodFre.gf
@@ -0,0 +1,26 @@
+-- (c) 2009 Ramona Enache and Aarne Ranta under LGPL

+

+concrete FoodFre of Food = SentencesFre ** open

+  SyntaxFre,

+  ParadigmsFre in

+{

+flags coding=utf8 ;

+

+lin

+

+Wine = mkCN (mkN "vin") ;

+Cheese = mkCN (mkN "fromage" masculine) ;

+Fish = mkCN (mkN "poisson" masculine) ;

+Pizza = mkCN (mkN "pizza" feminine) ;

+

+Fresh = mkAP (mkA "frais" "fraîche") ;

+Warm = mkAPA "chaud" ;

+Italian = mkAPA "italien" ;

+Expensive = mkAPA "cher" ;

+Delicious = mkAPA "délicieux" ;

+Boring = mkAPA "ennuyeux" ;

+

+oper

+mkAPA : (_ : Str) -> AP = \x -> mkAP (mkA x) ;

+

+}

diff --git a/examples/phrasebook/FoodRon.gf b/examples/phrasebook/FoodRon.gf
index 12679cbc6..76cc3753f 100644
--- a/examples/phrasebook/FoodRon.gf
+++ b/examples/phrasebook/FoodRon.gf
@@ -9,15 +9,15 @@ flags coding=utf8 ;
 lin

 

 Wine = mkCN (mkN "vin" "vinuri" neuter) ;

-Cheese = mkCN (mkN "brânzã" "brânzeturi" feminine) ;

-Fish = mkCN (mkN "peºte" "peºti" masculine) ;

+Cheese = mkCN (mkN "brânză" "brânzeturi" feminine) ;

+Fish = mkCN (mkN "peÅŸte" "peÅŸti" masculine) ;

 Pizza = mkCN (mkN "pizza" "pizze" feminine) ;

 

-Fresh = mkAPA "proaspãt" "proaspãtã" "proaspeþi" "proaspete" ;

-Warm = mkAPA "cald" "caldã" "calzi" "calde" ;

-Italian = mkAPA "italian" "italianã" "italieni" "italiene" ;

-Expensive = mkAPA "scump" "scumpã" "scumpi" "scumpe" ;

-Delicious = mkAPA "delicios" "delcioasã" "delicioºi" "delicioase" ;

+Fresh = mkAPA "proaspăt" "proaspătă" "proaspeţi" "proaspete" ;

+Warm = mkAPA "cald" "caldă" "calzi" "calde" ;

+Italian = mkAPA "italian" "italiană" "italieni" "italiene" ;

+Expensive = mkAPA "scump" "scumpă" "scumpi" "scumpe" ;

+Delicious = mkAPA "delicios" "delcioasă" "delicioşi" "delicioase" ;

 Boring = mkAPA "plictisitor" "plictisitoare" "plictisitori" "plictisitoare" ;

 

 oper

diff --git a/examples/phrasebook/GreetingsFre.gf b/examples/phrasebook/GreetingsFre.gf
new file mode 100644
index 000000000..1db9f6080
--- /dev/null
+++ b/examples/phrasebook/GreetingsFre.gf
@@ -0,0 +1,38 @@
+concrete GreetingsFre of Greetings = open Prelude in {
+
+flags coding = utf8 ;
+
+lincat 
+  Greeting, Politeness = SS ;
+
+lin 
+  GHello = ss "salut" ;
+  GThanks = ss "merci" ;
+  GHowAreYou = ss "comment ça va" ;
+  GPleaseGive = ss "s'il vous plaît" ; ---- politeness
+  GExcuse = ss "excusez-moi" ;
+  GSorry = ss "pardon" ;
+  GGoodbye = ss "au revoir" ;
+  GBye = ss "au revoir" ;
+  GWhatsYourName = ss "comment vous appelez-vous" ; ---- politeness
+  GNiceToMeetYou = ss "enchanté" ; ---- gender
+  GSeeYouSoon = ss "à bientôt" ;
+  GHelp = ss "au secours" ;
+  GLookOut = ss "attention" ;
+  GGoodMorning = ss "bonjour" ;
+  GGoodDay = ss "bonjour" ;
+  GGoodEvening = ss "bon soir" ;
+  GGoodNight = ss "bonne nuit" ;
+  GImHungry = ss "j'ai faim" ;
+  GImThirsty = ss "j'ai soif" ;
+  GImTired = ss "je suis fatigué" ; ---- gender
+  GImScared = ss "j'ai peur" ;
+  GIdontUnderstand = ss "je ne comprends pas" ;
+  GWheresTheBathroom = ss "où est la toilette" ;
+  GTheCheck = ss "l'addition" ;
+
+  GYes = ss "oui" ; ---- si
+  GNo = ss "non" ;
+
+
+}
diff --git a/examples/phrasebook/Makefile b/examples/phrasebook/Makefile
index 9df9280a7..5ece576a8 100644
--- a/examples/phrasebook/Makefile
+++ b/examples/phrasebook/Makefile
@@ -1,3 +1,3 @@
 all:
-	gf -make PhrasebookEng.gf PhrasebookFin.gf PhrasebookRon.gf
+	gf -make PhrasebookEng.gf PhrasebookFin.gf PhrasebookFre.gf PhrasebookRon.gf
 
diff --git a/examples/phrasebook/PhrasebookFre.gf b/examples/phrasebook/PhrasebookFre.gf
new file mode 100644
index 000000000..662f5aade
--- /dev/null
+++ b/examples/phrasebook/PhrasebookFre.gf
@@ -0,0 +1,23 @@
+--# -path=.:present
+
+concrete PhrasebookFre of Phrasebook = 
+  GreetingsFre,
+  FoodFre
+  ** open 
+    SyntaxFre,
+    ParadigmsFre,
+    ResFre, ---- for Num to Utt 
+    Prelude in {
+
+lincat 
+  Phrase = Utt ;
+
+lin
+  PNumeral n = mkPhrase (ss ((mkCard <n : Numeral>).s ! masculine)) ; ----
+  PGreeting g = mkPhrase g ;
+  PSentence s = s ;
+
+oper 
+  mkPhrase : SS -> Utt = \s -> lin Utt s ;
+
+}
diff --git a/examples/phrasebook/SentencesFre.gf b/examples/phrasebook/SentencesFre.gf
new file mode 100644
index 000000000..46c57b19c
--- /dev/null
+++ b/examples/phrasebook/SentencesFre.gf
@@ -0,0 +1,3 @@
+concrete SentencesFre of Sentences = NumeralFre ** SentencesI with 
+  (DiffPhrasebook = DiffPhrasebookFre), 
+  (Syntax = SyntaxFre) ;