added Sindhi Phrasebook

2026-04-24 03:52:50 -06:00 · 2013-06-15 20:12:48 +00:00
parent 9caa9cd44e
commit 73e68685ef
4 changed files with 357 additions and 0 deletions
--- a/examples/phrasebook/WordsSnd.gf
+++ b/examples/phrasebook/WordsSnd.gf
@@ -0,0 +1,281 @@
+--2 Implementations of Words, with English as example
+
+
+
+concrete WordsSnd of Words = SentencesSnd ** 
+
+    open 
+
+      SyntaxSnd,
+
+--      CommonHindustani,
+
+      ParadigmsSnd, 
+
+      (L = LexiconSnd), 
+
+      (P = ParadigmsSnd),
+      MorphoSnd,
+
+--      IrregSnd, 
+
+     ExtraSnd, 
+
+      Prelude in {
+
+flags coding = utf8 ;
+
+  lin
+
+
+
+-- Kinds; many of them are in the resource lexicon, others can be built by $mkN$.
+
+
+
+    Apple = mkCN L.apple_N ;
+
+    Beer = mkCN L.beer_N ;
+
+    Bread = mkCN L.bread_N ;
+
+    Cheese = mkCN (mkN03 "پنير") ;
+
+    Chicken = mkCN (mkN04 "ڪڪڙ") ;
+
+    Coffee = mkCN (mkN03 "ڪافي") ;
+
+    Fish = mkCN L.fish_N ;
+
+    Meat = mkCN (mkN03 "گوشت") ;
+
+    Milk = mkCN L.milk_N ;
+
+    Pizza = mkCN (mkN12 "پيزا") ;
+
+    Salt = mkCN L.salt_N ;
+
+    Tea = mkCN (mkN09 "چانھ") ;
+
+    Water = mkCN L.water_N;
+
+    Wine = mkCN L.wine_N ;
+
+
+
+-- Properties; many of them are in the resource lexicon, others can be built by $mkA$.
+
+
+
+    Bad = L.bad_A ;
+
+    Boring = mkA "فضول" ;
+
+    Cheap = mkA "سستو" ;
+
+    Cold = L.cold_A ;
+
+    Delicious = mkA "ذائقيدار" ;
+
+    Expensive = mkA "مهانگو" ;
+
+    Fresh = mkA "تازو" ;
+
+    Good = L.good_A ;
+
+    Suspect = mkA "برو" ;
+
+    Warm = L.warm_A ;
+
+
+
+-- Places require different prepositions to express location; in some languages 
+
+-- also the directional preposition varies, but in English we use $to$, as
+
+-- defined by $mkPlace$.
+
+
+
+    Airport = mkPlace "هوائي اڏو" "تي" ;
+
+--    AmusementPark = mkCompoundPlace "اميوزيم" "پارڪ" "۾" ;
+
+    Bank = mkPlace "بئنڪ" "۾" ;
+
+    Bar = mkPlace "بار" "۾" ;
+
+    Cafeteria = mkPlace "ڪينٽين" "۾" ;
+
+    Center = mkPlace "سينٽر" "تي" ;
+
+    Cinema = mkPlace "سينيما" "۾" ;
+
+    Church = mkPlace "چرچ" "۾" ;
+
+    Disco = mkPlace "ڊسڪو" "۾" ;
+
+    Hospital = mkPlace "اسپتال" "۾" ;
+
+    Hotel = mkPlace "هوٽل" "۾" ;
+
+    Museum = mkPlace "ميوزيم" "۾" ;
+
+    Park = mkPlace "پارڪ" "۾" ;
+
+    Parking = mkCompoundPlace "ڪار" "پارڪ" "۾" ; 
+
+    Pharmacy = mkPlace "ميڊيڪل اسٽور" "تي" ;
+
+    PostOffice = mkCompoundPlace "پوسٽ" "آفيس" "۾" ;
+
+    Pub = mkPlace "پب" "۾" ;
+
+    Restaurant = mkPlace "هوٽل" "۾" ;
+
+    School = mkPlace "اسڪول" "۾" ;
+
+    Shop = mkPlaceFem "دڪان" "۾" Fem;
+
+    Station = mkPlace "اسٽيشن" "تي" ;
+
+    Supermarket = mkPlace "سپر مارڪيٽ" "۾" ; 
+
+    Theatre = mkPlace "ٿيٽر" "۾" ;
+
+    Toilet = mkPlace "ڪاڪوس" "۾" ;
+
+    University = mkPlaceFem "يونيورسٽي" "۾" Fem;
+
+    Zoo = mkPlace "راڻي باغ" "۾" ;
+
+   
+
+--    CitRestaurant cit = mkCNPlace (mkCN cit (mkN09 "هوٽل")) in_Prep to_Prep ;
+
+
+
+
+
+-- Currencies; $crown$ is ambiguous between Danish and Swedish crowns.
+
+
+
+    DanishCrown = mkCN (mkA "ڊينش") (mkCN (mkN03 "ڪراؤن")) | mkCN (mkN03 "ڪراؤن") ;
+
+    Dollar = mkCN (mkN03 "ڊالر") ;
+
+    Euro = mkCN (mkN12 "يورو") ; -- to prevent euroes
+
+    Lei = mkCN (mkN03 "لي") ;
+
+    Leva = mkCN (mkN12 "ليوا") ;
+
+    NorwegianCrown = mkCN (mkA "نارويجين") (mkCN (mkN03 "ڪراؤن")) | mkCN (mkN03 "ڪراؤن") ;
+
+    Pound = mkCN (mkN03 "پاؤنڊ") ;
+
+    Rouble = mkCN (mkN03 "روبل") ;
+
+    SwedishCrown = mkCN (mkA "سويڊش") (mkCN (mkN03 "ڪراؤن")) | mkCN (mkN03 "ڪراؤن") ;
+
+    Zloty = mkCN (mkN03 "زلوٽي") ;
+
+
+
+-- Nationalities
+
+
+
+    Belgian = mkA "بيلجين" ;
+
+    Belgium = mkNP (mkPN "بيلجيم") ;
+
+    Bulgarian = mkNat "بلغارين" "بلغاريا" ;
+
+--    Catalan = mkNPNationality (mkNP (mkPN "كیٹالان")) (mkNP (mkPN "كاٹالان")) (mkA "كاٹالانین") ;
+
+    Danish = mkNat "ڊينش" "ڊينمارڪ" ;
+
+--    Dutch =  mkNPNationality (mkNP (mkPN "ڊچ")) (mkNP the_Quant (mkN14 "نيدرلئنڊ")) (mkA "ڊچ") ;
+
+    English = mkNat "انگلش" "انگلئنڊ" ;
+
+    Finnish = mkNat "فنش" "فنلئنڊ" ;
+
+    Flemish = mkNP (mkPN "فليمش") ;
+
+    French = mkNat "فرانسيسي" "فرانس" ; 
+
+    German = mkNat "جرمن" "جرمني" ;
+
+    Italian = mkNat "اٽالوي" "اٽلي" ;
+
+    Norwegian = mkNat "نارويجين" "ناروي" ;
+
+    Polish = mkNat "پولش" "پولئنڊ" ;
+
+    Romanian = mkNat "رومانين" "رومانيا" ;
+
+    Russian = mkNat "روسي" "روس" ;
+
+    Spanish = mkNat "سپيني" "سپين" ;
+
+    Swedish = mkNat "سويڊش" "سويڊن" ;
+
+
+
+-- Means of transportation 
+
+ 
+
+   Bike = mkTransport L.bike_N ;
+
+   Bus = mkTransport (mkN09 "بس" ) ;
+
+   Car = mkTransport L.car_N ;
+
+   Ferry = mkTransport (mkN09 "فيري") ;
+
+   Plane = mkTransport L.airplane_N ;
+
+   Subway = mkTransport (mkN12 "سب وي") ;
+
+   Taxi = mkTransport (mkN09 "ٽئڪسي") ;
+
+   Train = mkTransport (mkN09 "ريل گاڏي") ;
+
+   Tram = mkTransport (mkN09 "ٽرام") ;
+
+
+
+   ByFoot = P.mkAdv "پيادو" ;
+
+
+
+-- Actions: the predication patterns are very often language-dependent.
+
+
+
+--    AHasAge p num = mkCl p.name (mkNP (mkNP num L.year_N) (ParadigmsSnd.mkAdv "جو"));
+
+    AHasAge p num = mkCl p.name  (mkNP num (mkCN L.year_N));
+
+    AHasChildren p num = mkCl p.name have_V2 (mkNP num L.child_N) ;
+
+--    AHasRoom p num = mkCl p.name have_V2 
+
+--      (mkNP (mkNP a_Det (mkN01 "ڪمرو")) (SyntaxSnd.mkAdv for_Prep (mkNP num (mkN03 "شخص")))) ;
+
+--    AHasTable p num = mkCl p.name have_V2 
+
+ --     (mkNP (mkNP a_Det (mkN04 "ميز")) (SyntaxSnd.mkAdv for_Prep (mkNP num (mkN03 "شخص")))) ;
+
+    AHasName p name = mkCl (nameOf p) name ;
+
+    AHungry p = mkCl p.name (mkA "بکيو") ;
+
+    AIll p = mkCl p.name (mkA "بيمار") ;
+
+    AKnow p = mkCl p.name (mkV "ڄاڻڻ") ;
+