French phrasebook

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") ;
+
+}

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") ;
 
 }

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) ;
+
+}

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

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" ;
+
+
+}

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
 

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 ;
+
+}

examples/phrasebook/SentencesFre.gf

@@ -0,0 +1,3 @@
+concrete SentencesFre of Sentences = NumeralFre ** SentencesI with 
+  (DiffPhrasebook = DiffPhrasebookFre), 
+  (Syntax = SyntaxFre) ;