refinementsUrdPhrbook-2011-05-12

examples/phrasebook/GreetingsUrd.gf

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

examples/phrasebook/SentencesUrd.gf

@@ -1,4 +1,14 @@
-concrete SentencesUrd of Sentences =  NumeralUrd ** SentencesI - [sing] with 
+concrete SentencesUrd of Sentences =  NumeralUrd ** SentencesI - [sing,IFemale,YouFamFemale,YouPolFemale] with 
   (Syntax = SyntaxUrd),
   (Symbolic = SymbolicUrd),
-  (Lexicon = LexiconUrd) 
+  (Lexicon = LexiconUrd) **
+  open 
+  (P=ParadigmsUrd),
+  ParamX,
+  StringsUrdu,
+  CommonHindustani in {
+  lin IFemale = mkPerson (P.personalPN myN mjh "" myra myry myrE myry Sg Fem Pers1) ;
+      YouFamFemale = mkPerson (P.personalPN tw tw tw tyra tyry tyrE tyry Sg Fem Pers2_Casual) ;
+      YouPolFemale = mkPerson (P.personalPN ap ap ap apka apky apkE apky Pl Fem Pers2_Respect);
+
+  } ;

examples/phrasebook/WordsUrd.gf

@@ -3,6 +3,7 @@
 concrete WordsUrd of Words = SentencesUrd ** 
     open 
       SyntaxUrd,
+      CommonHindustani,
       ParadigmsUrd, 
       (L = LexiconUrd), 
       (P = ParadigmsUrd), 
@@ -65,12 +66,12 @@ flags coding = utf8 ;
     Pub = mkPlace "پب" "میں" ;
     Restaurant = mkPlace "ہوٹل" "میں" ;
     School = mkPlace "سكول" "میں" ;
-    Shop = mkPlace "دوكان" "میں" ;
+    Shop = mkPlaceFem "دوكان" "میں" Fem;
     Station = mkPlace "سٹیشن" "پر" ;
     Supermarket = mkPlace "سپر ماركیٹ" "میں" ; 
     Theatre = mkPlace "تھیٹر" "پر" ;
     Toilet = mkPlace "غسل خانہ" "میں" ;
-    University = mkPlace "یونیورسٹی" "میں" ;
+    University = mkPlaceFem "یونیورسٹی" "میں" Fem;
     Zoo = mkPlace "چڑیا گھر" "میں" ;
    
     CitRestaurant cit = mkCNPlace (mkCN cit (mkN "ہوٹل")) in_Prep to_Prep ;
@@ -142,10 +143,10 @@ flags coding = utf8 ;
     ALove p q = mkCl p.name (L.love_V2) q.name ;
     AMarried p = mkCl p.name (mkA "شادی شدہ") ;
     AReady p = mkCl p.name (mkA "تیار") ;
-    AScared p = mkCl p.name (mkA "ڈرا ہوا") ;
+    AScared p = mkCl p.name (P.mkCompoundA "ڈرا" "ہوا") ;
     ASpeak p lang = mkCl p.name  L.speak_V2 lang ;
     AThirsty p = mkCl p.name (mkA "پیاسا") ;
-    ATired p = mkCl p.name (mkA "تھكا ہوا") ;
+    ATired p = mkCl p.name (P.mkCompoundA "تھكا" "ہوا") ;
     AUnderstand p = mkCl p.name (mkV "سمجھنا") ;
     AWant p obj = mkCl p.name (mkV2 (mkV "چاہنا")) obj ;
 --    AWantGo p place = mkCl p.name want_VV (mkVP (mkVP L.go_V) place.name) ;
@@ -154,7 +155,7 @@ flags coding = utf8 ;
 -- miscellaneous
 
     QWhatName p = mkQS (mkQCl whatSg_IP (mkVP (nameOf p))) ;
-----    QWhatAge p = mkQS (mkQCl (ICompAP (mkAP L.old_A)) p.name) ;
+--    QWhatAge p = mkQS (mkQCl (ICompAP (mkAP L.old_A)) p.name) ;
 --    HowMuchCost item = mkQS (mkQCl how8much_IAdv (mkCl item IrregUrd.cost_V)) ; 
 --    ItCost item price = mkCl item (mkV2 IrregUrd.cost_V) price ;
 
@@ -168,10 +169,10 @@ flags coding = utf8 ;
 -- Building phrases from strings is complicated: the solution is to use
 -- mkText : Text -> Text -> Text ;
 
-    PSeeYouDate d = mkText (lin Text (ss ("ملتے ہیں"))) (mkPhrase (mkUtt d)) ;
+    PSeeYouDate d = mkText (lin Text (Prelude.ss ("ملتے ہیں"))) (mkPhrase (mkUtt d)) ;
-    PSeeYouPlace p = mkText (lin Text (ss ("ملتے ہیں"))) (mkPhrase (mkUtt p.at)) ;
+    PSeeYouPlace p = mkText (lin Text (Prelude.ss ("ملتے ہیں"))) (mkPhrase (mkUtt p.at)) ;
     PSeeYouPlaceDate p d = 
-      mkText (lin Text (ss ("ملتے ہیں"))) 
+      mkText (lin Text (Prelude.ss ("ملتے ہیں"))) 
         (mkText (mkPhrase (mkUtt p.at)) (mkPhrase (mkUtt d))) ;
 
 -- Relations are expressed as "می وiفع" or "می سon'س وiفع", as defined by $xOf$
@@ -235,7 +236,7 @@ flags coding = utf8 ;
     mkDay : Str -> {name : NP ; point : Adv ; habitual : Adv} = \d ->
       let day = mkNP (mkPN d) in 
       mkNPDay day (SyntaxUrd.mkAdv to_Prep day) 
-        (SyntaxUrd.mkAdv to_Prep (mkNP a_Quant plNum (mkCN (mkN d)))) ;
+        (SyntaxUrd.mkAdv to_Prep (mkNP a_Quant sgNum (mkCN (mkN d)))) ; --changed from plNum to sgNum
     
     mkCompoundPlace : Str -> Str -> Str -> {name : CN ; at : Prep ; to : Prep; isPl : Bool} = \comp, p, i ->
 --     mkCNPlace (mkCN (P.mkN comp (mkN p))) (P.mkPrep i) to_Prep ;
@@ -243,8 +244,10 @@ flags coding = utf8 ;
 
     mkPlace : Str -> Str -> {name : CN ; at : Prep ; to : Prep; isPl : Bool} = \p,i -> 
       mkCNPlace (mkCN (mkN p)) (P.mkPrep i i) to_Prep ;
+    mkPlaceFem : Str -> Str -> Gender -> {name : CN ; at : Prep ; to : Prep; isPl : Bool} = \p,i,g -> 
+      mkCNPlace (mkCN (P.mkN p g)) (P.mkPrep i i) to_Prep ;  
 
-    open_Adv = P.mkAdv "كھلا" ;
+    open_Adv = P.mkAdv "كھلا" "كھلی";
     closed_Adv = P.mkAdv "بند" ;
 
     xOf : SentencesUrd.GNumber -> N -> NPPerson -> NPPerson = \n,x,p ->