Olga's etc corrections in Phrasebook

examples/phrasebook/DisambPhrasebookEng.gf

@@ -1,7 +1,12 @@
 --# -path=.:present
 
 concrete DisambPhrasebookEng of Phrasebook = PhrasebookEng - 
-   [YouFam, YouPol, GExcuse, GExcusePol, GSorry, GSorryPol, GPleaseGive, GPleaseGivePol] 
+   [YouFam, YouPol, 
+    GExcuse, GExcusePol, 
+    GSorry, GSorryPol, 
+    GPleaseGive, GPleaseGivePol,
+    GWhatsYourName, GWhatsYourNamePol
+   ] 
   ** open SyntaxEng, ParadigmsEng, Prelude in {
 lin
   YouFam = mkNP (mkNP youSg_Pron) (ParadigmsEng.mkAdv "(familiar)") ;
@@ -13,6 +18,8 @@ lin
   GSorryPol = pol "sorry" ;
   GPleaseGive = fam "please" ;
   GPleaseGivePol = pol "please" ;
+  GWhatsYourName = ss "what's your name (familiar)" ;
+  GWhatsYourNamePol = ss "what's your name (polite)" ;
 
 oper
   fam : Str -> SS = \s -> postfixSS "(familiar)" (ss s) ;

examples/phrasebook/Greetings.gf

@@ -12,6 +12,7 @@ fun
   GSorry, GSorryPol : Greeting ;
   GGoodbye : Greeting ;
   GBye : Greeting ;
+  GWhatsYourName, GWhatsYourNamePol : Greeting ;
   GNiceToMeetYou : Greeting ;
   GSeeYouSoon : Greeting ;
   GHelp : Greeting ;
@@ -25,6 +26,4 @@ fun
   GYes : Greeting ;
   GNo : Greeting ;
 
-  GWhatsYourName : Greeting ; ---- move
-
 }

examples/phrasebook/GreetingsEng.gf

@@ -12,7 +12,7 @@ lin
   GSorry, GSorryPol = ss "sorry" ;
   GGoodbye = ss "goodbye" ;
   GBye = ss "bye" ;
-  GWhatsYourName = ss "what's your name" ;
+  GWhatsYourName, GWhatsYourNamePol = ss "what's your name" ;
   GNiceToMeetYou = ss "nice to meet you" ;
   GSeeYouSoon = ss "see you soon" ;
   GHelp = ss "help" ;

examples/phrasebook/GreetingsFin.gf

@@ -16,6 +16,7 @@ lin
   GGoodbye = ss "näkemiin" ;
   GBye = ss "hei hei" ;
   GWhatsYourName = ss "mikä sinun nimesi on" ;
+  GWhatsYourNamePol = ss "mikä teidän nimenne on" ;
   GNiceToMeetYou = ss "hauska tutustua" ;
   GSeeYouSoon = ss "nähdään pian" ;
   GHelp = ss "apua" ;

examples/phrasebook/GreetingsFre.gf

@@ -16,7 +16,8 @@ lin
   GSorry, GSorryPol = ss "pardon" ;
   GGoodbye = ss "au revoir" ;
   GBye = ss "au revoir" ;
-  GWhatsYourName = ss "comment vous appelez-vous" ; ----
+  GWhatsYourName = ss "comment t'appelles-tu" ;
+  GWhatsYourNamePol = ss "comment vous appelez-vous" ;
   GNiceToMeetYou = ss "enchanté" ;
   GSeeYouSoon = ss "à bientôt" ;
   GHelp = ss "au secours" ;

examples/phrasebook/GreetingsIta.gf

@@ -14,7 +14,8 @@ lin
   GSorryPol = ss "scusimi" ; ----
   GGoodbye = ss "arrivederci" ;
   GBye = ss "ciao" ;
-  GWhatsYourName = ss "come si chiama" ;
+  GWhatsYourName = ss "come ti chiami" ;
+  GWhatsYourNamePol = ss "come si chiama" ;
 --  GNiceToMeetYou = ss "piacevole" ; ----
 --  GSeeYouSoon = ss "a poco tempo" ; ----
   GHelp = ss "aiuto" ;
@@ -23,14 +24,9 @@ lin
   GGoodDay = ss "buongiorno" ;
   GGoodEvening = ss "buona sera" ;
   GGoodNight = ss "buona notte" ;
-  GImHungry = ss "ho fame" ;
-  GImThirsty = ss "ho sete" ;
-  GImTired = ss "sono stanco" ; ----
-  GImScared = ss "ho paura" ;
-  GIdontUnderstand = ss "non capisco" ;
   GTheCheck = ss "il conto" ;
 
-  GYes = ss "sì" ; ---- si
+  GYes = ss "sì" ;
   GNo = ss "no" ;
 
 

examples/phrasebook/GreetingsSwe.gf

@@ -22,6 +22,7 @@ lin
   GGoodNight = ss "god natt" ;
 
   GWhatsYourName = ss "vad heter du" ;
+  GWhatsYourNamePol = ss "vad heter ni" ;
 
   GTheCheck = ss "notan" ;
 

examples/phrasebook/WordsIta.gf

@@ -41,9 +41,9 @@ Boring = mkAPA "noioso" ;
     ALove p q = mkCl p (mkV2 (mkV "amare")) q ;
 
     English = mkNP (mkPN "inglese") ;
-    Finnish = mkNP (mkPN "finnico") ;
+    Finnish = mkNP (mkPN "finlandese") ;
     French = mkNP (mkPN "francese") ; 
-    Romanian = mkNP (mkPN "romano") ;
+    Romanian = mkNP (mkPN "rumeno") ;
     Swedish = mkNP (mkPN "svedese") ;
 
     AHungry p = mkCl p (E.ComplCN have_V2 (mkCN (mkN "fame" feminine))) ;

examples/phrasebook/missing.txt

@@ -3,5 +3,5 @@ PhrasebookEng :
 PhrasebookFin :
 PhrasebookFre :
 PhrasebookIta : GNiceToMeetYou GSeeYouSoon Tea
-PhrasebookRon : AHungry AScared AThirsty ATired Coffee Finnish French GExcusePol GPleaseGivePol GSorryPol Swedish Tea
+PhrasebookRon : AHungry AScared AThirsty ATired Coffee Finnish French GExcusePol GPleaseGivePol GSorryPol GWhatsYourNamePol Swedish Tea
 PhrasebookSwe : GExcusePol GPleaseGivePol GSorryPol