msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Thai phrasebook vocabulary from Nui

Browse Source
This commit is contained in:
aarne
2011-11-30 10:53:33 +00:00
parent 7863b21c1a
commit cac8f22129
2 changed files with 121 additions and 106 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
examples/phrasebook/GreetingsTha.gf
View File

@@ -2,7 +2,7 @@ concrete GreetingsTha of Greetings =
SentencesTha [Greeting,mkGreeting] ** SentencesTha [Greeting,mkGreeting] **
open ResTha, Prelude in { open ResTha, Prelude in {
-- สุคสันต์วันเกิด -- สุขสันต์วันเกิด
flags coding = utf8 ; flags coding = utf8 ;
@@ -16,19 +16,20 @@ lin
GGoodMorning = mkGreeting (thword "สวัส" "ดี") ; GGoodMorning = mkGreeting (thword "สวัส" "ดี") ;
GGoodNight = mkGreeting (thword "รา" "ตรี" "สวัส" "ดิ์") ; GGoodNight = mkGreeting (thword "รา" "ตรี" "สวัส" "ดิ์") ;
GGoodbye = mkGreeting (thword "ลา" "ก่อน") ; GGoodbye = mkGreeting (thword "ลา" "ก่อน") ;
GHello = mkGreeting (thword "หวัส" "ดี") ; GHello = mkGreeting (thword "สวัส" "ดี") ;
GHelp = mkGreeting (thword "ช่วย" "ด้วย") ; GHelp = mkGreeting (thword "ช่วย" "ด้วย") ;
GHowAreYou = mkGreeting (thword "สบาย" "ดี" "ไหม") ; GHowAreYou = mkGreeting (thword "สบาย" "ดี" "ไหม") ;
GLookOut = mkGreeting (thword "ระ" "วัง") ; ---- google GLookOut = mkGreeting (thword "ระ" "วัง") ; ---- google
GNiceToMeetYou, GNiceToMeetYouPol = GNiceToMeetYou, GNiceToMeetYouPol =
mkGreeting (thbind "ยิน" "ดี" "ฑี่" "ได้" "รู้" "จัก") ; mkGreeting (thword "ยิน" "ดี" "ที่" "ได้" "รู้" "จัก") ;
GPleaseGive, GPleaseGivePol = mkGreeting (thword "ช่วย") ; ---- GPleaseGive, GPleaseGivePol = mkGreeting (thword "ช่วย") ; ----
GSeeYouSoon = mkGreeting (thword "เจอ" "กัน" "นะ") ; GSeeYouSoon = mkGreeting (thword "เจอ" "กัน" "นะ") ;
GSorry, GSorryPol = mkGreeting (thword "ขอ" "โทษ") ; GSorry, GSorryPol = mkGreeting (thword "ขอ" "โทษ") ;
GThanks = mkGreeting (thword "ขอบ" "คุณ") ; GThanks = mkGreeting (thword "ขอบ" "คุณ") ;
GTheCheck = mkGreeting (thword "เช็ค" "บิล") ; GTheCheck = mkGreeting (thword "เช็ค" "บิล") ;
GCongratulations = mkGreeting (thword "ยิน" "ดี" "ด้วย") ; GCongratulations = mkGreeting (thword "ยิน" "ดี" "ด้วย") ;
GHappyBirthday = mkGreeting (thword "สุค" "สันต์" "วัน" "เกิด") ; GHappyBirthday = mkGreeting (thword "สุข" "สันต์" "วัน" "เกิด") ;
GGoodLuck = mkGreeting (thword "โจค" "ดี" "นะ") ; GGoodLuck = mkGreeting (thword "โชค" "ดี" "นะ") ;
} }

216
examples/phrasebook/WordsTha.gf
View File

@@ -17,14 +17,14 @@ concrete WordsTha of Words = SentencesTha **
Beer = mkCN L.beer_N ; Beer = mkCN L.beer_N ;
Bread = mkCN L.bread_N ; Bread = mkCN L.bread_N ;
Cheese = mkCN L.cheese_N ; Cheese = mkCN L.cheese_N ;
-- Chicken = mkCN (mkN "จหิจกเน") ; Chicken = mkCN (mkN "ไก่") ;
-- Coffee = mkCN (mkN "จoฝฝเเ") ; Coffee = mkCN (mkN (R.thword "กา" "แฟ")) ;
Fish = mkCN L.fish_N ; Fish = mkCN L.fish_N ;
Meat = mkCN L.meat_N ; Meat = mkCN L.meat_N ;
Milk = mkCN L.milk_N ; Milk = mkCN L.milk_N ;
Pizza = mkCN (mkN (R.thword "พิซ" "ซา") "ถาด") ; Pizza = mkCN (mkN (R.thword "พิซ" "ซา") "ถาด") ;
Salt = mkCN L.salt_N ; Salt = mkCN L.salt_N ;
-- Tea = mkCN (mkN "ตเั") ; Tea = mkCN (mkN "ชา") ;
Water = mkCN L.water_N ; Water = mkCN L.water_N ;
Wine = mkCN L.wine_N ; Wine = mkCN L.wine_N ;
@@ -32,120 +32,120 @@ concrete WordsTha of Words = SentencesTha **
Bad = L.bad_A ; Bad = L.bad_A ;
Boring = mkA (R.thword "น่า" "เบิ่อ") ; Boring = mkA (R.thword "น่า" "เบิ่อ") ;
-- Cheap = mkA "จหเัป" ; Cheap = mkA (R.thword "รา" "คา" "ถูก") ;
Cold = L.cold_A ; Cold = L.cold_A ;
Delicious = mkA "อร่อย" ; Delicious = mkA "อร่อย" ;
Expensive = mkA "แพง" ; Expensive = mkA "แพง" ;
Fresh = mkA "สด" ; Fresh = mkA "สด" ;
Good = mkA "ดี" ; Good = mkA "ดี" ;
-- Suspect = mkA "สุสปเจต" ; Suspect = mkA (R.thword "สง" "สัย") ;
Warm = L.warm_A ; Warm = L.warm_A ;
-- Places require different prepositions to express location; in some languages -- Places require different prepositions to express location; in some languages
-- also the directional preposition varies, but in English we use $to$, as -- also the directional preposition varies, but in English we use $to$, as
-- defined by $mkPlace$. -- defined by $mkPlace$.
-- Airport = mkPlace "ัิรปoรต" "ัต" ; Airport = mkPlace (placeN (R.thword "สนาม" "บิน")) ;
-- AmusementPark = mkCompoundPlace "ัมุสเมเนต" "ปัรก" "ัต" ; AmusementPark = mkPlace (placeN (R.thword "สวน" "สนุก")) ;
-- Bank = mkPlace "บันก" "ัต" ; Bank = mkPlace (placeN (R.thword "ธนา" "คาร")) ;
-- Bar = mkPlace "บัร" "ิน" ; Bar = mkPlace (placeN (R.thword "บา" "ร์")) ;
-- Cafeteria = mkPlace "จันตเเน" "ิน" ; Cafeteria = mkPlace (placeN (R.thword "โรง" "อา" "หาร")) ;
-- Center = mkPlace "จเนตเร" "ิน" ; Center = mkPlace (placeN (R.thword "ศูน" "ย์" "กลาง")) ;
-- Cinema = mkPlace "จินเมั" "ัต" ; Cinema = mkPlace (placeN (R.thword "โรง" "หนัง")) ;
-- Church = mkPlace "จหุรจห" "ิน" ; Church = mkPlace (placeN (R.thword "โบส" "ถ์")) ;
-- Disco = mkPlace "ดิสจo" "ัต" ; Disco = mkPlace (placeN (R.thword "ดิส" "โก้")) ;
-- Hospital = mkPlace "หoสปิตัล" "ิน" ; Hospital = mkPlace (placeN (R.thword "โรง" "พยา" "บาล")) ;
-- Hotel = mkPlace "หoตเล" "ิน" ; Hotel = mkPlace (placeN (R.thword "โรง" "แรม")) ;
-- Museum = mkPlace "มุสเุม" "ัต" ; Museum = mkPlace (placeN (R.thword "พิ" " พิธ" "ภัณ" "ฑ์")) ;
-- Park = mkPlace "ปัรก" "ิน" ; Park = mkPlace (placeN (R.thword "สวน")) ;
-- Parking = mkCompoundPlace "จัร" "ปัรก" "ิน" ; Parking = mkPlace (placeN (R.thword "ที่" "จอด" "รถ")) ;
-- Pharmacy = mkPlace "ปหัรมัจย" "ัต" ; Pharmacy = mkPlace (placeN (R.thword "ร้าน" "ขาย" "ยา")) ;
-- PostOffice = mkCompoundPlace "ปoสต" "oฝฝิจเ" "ัต" ; PostOffice = mkPlace (placeN (R.thword "ไปร" "ษณี" "ย์")) ;
-- Pub = mkPlace "ปุบ" "ัต" ; Pub = mkPlace (placeN (R.thword "ร้าน" "เหล้า")) ;
Restaurant = mkPlace L.restaurant_N at_Prep ; Restaurant = mkPlace L.restaurant_N ;
School = mkPlace L.school_N at_Prep ; School = mkPlace L.school_N ;
Shop = mkPlace L.shop_N at_Prep ; Shop = mkPlace L.shop_N ;
-- Station = mkPlace "สตัติoน" "ัต" ; Station = mkPlace (placeN (R.thword "สถา" "นี")) ;
-- Supermarket = mkPlace "สุปเรมัรกเต" "ัต" ; Supermarket = mkPlace (placeN (R.thword "ซุป" "เปอ" "ร์" "มา" "เก็ต")) ;
-- Theatre = mkPlace "ตหเัตรเ" "ัต" ; Theatre = mkPlace (placeN (R.thword "โรง" "ละ" "คร")) ;
-- Toilet = mkPlace "ตoิลเต" "ิน" ; Toilet = mkPlace (placeN (R.thword "ห้อง" "น้ำ")) ;
University = mkPlace L.university_N at_Prep ; University = mkPlace L.university_N ;
-- Zoo = mkPlace "zoo" "ัต" ; Zoo = mkPlace (placeN (R.thword "สวน" "สัต" "ว์")) ;
CitRestaurant cit = mkCNPlace (mkCN cit L.restaurant_N) at_Prep noPrep ; CitRestaurant cit = mkCNPlace (mkCN cit L.restaurant_N) at_Prep noPrep ;
-- Currencies; $crown$ is ambiguous between Danish and Swedish crowns. -- Currencies; $crown$ is ambiguous between Danish and Swedish crowns.
-- DanishCrown = mkCN (mkA "Dันิสห") (mkN "จรoวน") | mkCN (mkN "จรoวน") ; DanishCrown = mkCN (mkA (R.thword "เดน" "มาร์ค")) (mkN "โครน") | mkCurrency "โครน" ;
-- Dollar = mkCN (mkN "ดoลลัร") ; Dollar = mkCurrency (R.thword "ดอล" "ล่า" "ห์") ;
-- Euro = mkCN (mkN "เุรo" "เุรoส") ; -- to prevent euroes Euro = mkCurrency (R.thword "ยู" "โร") ;
-- Lei = mkCN (mkN "ลเุ" "ลเิ") ; Lei = mkCurrency "ลี" ;
-- Leva = mkCN (mkN "ลเึ") ; Leva = mkCurrency (R.thword "ลี" "วา") ;
-- NorwegianCrown = mkCN (mkA "Noรวเงิัน") (mkN "จรoวน") | mkCN (mkN "จรoวน") ; NorwegianCrown = mkCN (mkA (R.thword "นอร" "เว" "ย์")) (mkN "โครน") | mkCurrency "โครน" ;
-- Pound = mkCN (mkN "ปoุนด") ; Pound = mkCurrency (R.thword "ปอน" "ด์") ;
-- Rouble = mkCN (mkN "รoุบลเ") ; Rouble = mkCurrency (R.thword "รู" "เบิล") ;
-- SwedishCrown = mkCN (mkA "็วเดิสห") (mkN "จรoวน") | mkCN (mkN "จรoวน") ; SwedishCrown = mkCN (mkA (R.thword "สวี" "ดิช")) (mkN "โครน") | mkCurrency "โครน" ;
-- Zloty = mkCN (mkN "zลoตย" "zลoตย") ; Zloty = mkCurrency (R.thword "สะ" "ลอ" "ตี้") ;
-- Nationalities -- Nationalities
-- Belgian = mkA "Bเลงิัน" ; Belgian = mkA (R.thword "เบล" "เยี่ยน") ;
-- Belgium = mkNP (mkPN "Bเลงิุม") ; Belgium = mkNP (mkPN (R.thword "เบล" "เยี่ยม")) ;
-- Bulgarian = mkNat "Bุลงัริัน" "Bุลงัริั" ; Bulgarian = mkNat (R.thword "บัล" "แก" "เรียน") ;
-- Catalan = mkNPNationality (mkNP (mkPN "Cัตัลัน")) (mkNP (mkPN "Cัตัลoนิั")) (mkA "Cัตัลoนิัน") ; Catalan = mkNat (R.thword "คะ" "ตะ" "ลัน") ;
-- Danish = mkNat "Dันิสห" "Dเนมัรก" ; Danish = mkNat (R.thword "เดน" "นิช") ;
-- Dutch = mkNPNationality (mkNP (mkPN "Dุตจห")) (mkNP the_Quant (mkN "Nเตหเรลันดส")) (mkA "Dุตจห") ; Dutch = mkNat (R.thword "ดัทช์") ;
-- English = mkNat "Eนงลิสห" "Eนงลันด" ; -- citizen, language, adjective, country English = mkNat (R.thword "อัง" "กฤษ") ;
-- Finnish = mkNat "Fินนิสห" "Fินลันด" ; Finnish = mkNat (R.thword "ฟิน" "นิช") ;
-- Flemish = mkNP (mkPN "Fลเมิสห") ; Flemish = mkNP (mkPN (R.thword "เฟลม" "มิช")) ;
-- French = mkNat "Fรเนจห" "Fรันจเ" ; French = mkNat (R.thword "ฝรั่ง" "เศส") ;
-- German = mkNat "Gเรมัน" "Gเรมันย" ; German = mkNat (R.thword "เยอร" "มัน") ;
-- Italian = mkNat "Iตัลิัน" "Iตัลย" ; Italian = mkNat (R.thword "อิ" "ตา" "เลียน") ;
-- Norwegian = mkNat "Noรวเงิัน" "Noรวัย" ; Norwegian = mkNat (R.thword "นอร" "เวย์" "เจี้ยน") ;
-- Polish = mkNat "Poลิสห" "Poลันด" ; Polish = mkNat (R.thword "โป" "ลิช") ;
-- Romanian = mkNat "ๆoมันิัน" "ๆoมันิั" ; Romanian = mkNat (R.thword "โร" "มา" "เนียน") ;
-- Russian = mkNat "ๆุสสิัน" "ๆุสสิั" ; Russian = mkNat (R.thword "รัส" "เซียน") ;
-- Spanish = mkNat "็ปันิสห" "็ปัิน" ; Spanish = mkNat (R.thword "สแปน" "นิช") ;
-- Swedish = mkNat "็วเดิสห" "็วเดเน" ; Swedish = mkNat (R.thword "สวี" "ดิช") ;
-- Means of transportation -- Means of transportation
Bike = mkTransport L.bike_N ; Bike = mkTransport L.bike_N ;
-- Bus = mkTransport (mkN "บุส") ; Bus = mkTransport (mkN (R.thword "รถ" "เม" "ล์")) ;
Car = mkTransport L.car_N ; Car = mkTransport L.car_N ;
-- Ferry = mkTransport (mkN "ฝเรรย") ; Ferry = mkTransport (mkN (R.thword "เรือ" "เฟอ" "รี่")) ;
Plane = mkTransport L.airplane_N ; Plane = mkTransport L.airplane_N ;
-- Subway = mkTransport (mkN "สุบวัย") ; Subway = mkTransport (mkN (R.thword "รถ" "ไฟ" "ใต้" "ดิน")) ;
-- Taxi = mkTransport (mkN "ตัxิ") ; Taxi = mkTransport (mkN (R.thword "รถ" "แท็ก" "ซี่")) ;
Train = mkTransport L.train_N ; Train = mkTransport L.train_N ;
-- Tram = mkTransport (mkN "ตรัม") ; Tram = mkTransport (mkN (R.thword "รถ" "ราง")) ;
-- ByFoot = P.mkAdv "บย ฝooต" ; ByFoot = P.mkAdv (R.thword "ด้วย" "การ" "เดิน") ;
-- Actions: the predication patterns are very often language-dependent. -- Actions: the predication patterns are very often language-dependent.
-- AHasAge p num = mkCl p.name (mkNP (mkNP num L.year_N) (ParadigmsTha.mkAdv "oลด")); AHasAge p num = mkCl p.name (mkNP (mkNP num L.year_N) (ParadigmsTha.mkAdv (R.thword "อา" "ยุ"))) ;
AHasChildren p num = mkCl p.name have_V2 (mkNP num L.child_N) ; AHasChildren p num = mkCl p.name have_V2 (mkNP num L.child_N) ;
-- AHasRoom p num = mkCl p.name have_V2 AHasRoom p num = mkCl p.name have_V2
-- (mkNP (mkNP a_Det (mkN "รooม")) (SyntaxTha.mkAdv for_Prep (mkNP num (mkN "ปเรสoน")))) ; (mkNP (mkNP a_Det (mkN "ห้อง")) (SyntaxTha.mkAdv for_Prep (mkNP num (mkN "หมาย" "เลข")))) ;
-- AHasTable p num = mkCl p.name have_V2 AHasTable p num = mkCl p.name have_V2
-- (mkNP (mkNP a_Det (mkN "ตับลเ")) (SyntaxTha.mkAdv for_Prep (mkNP num (mkN "ปเรสoน")))) ; (mkNP (mkNP a_Det (mkN "โต๊ะ")) (SyntaxTha.mkAdv for_Prep (mkNP num (mkN "ตัว" "ที่")))) ;
AHasName p name = mkCl (nameOf p) name ; AHasName p name = mkCl (nameOf p) name ;
AHungry p = mkCl p.name (mkA (R.thword "หิว" "ข้าว")) ; AHungry p = mkCl p.name (mkA (R.thword "หิว" "ข้าว")) ;
AIll p = mkCl p.name (mkA (R.thword "เจ็บ่" "ปวย")) ; AIll p = mkCl p.name (mkA (R.thword "เจ็บ" "ปวย")) ;
AKnow p = mkCl p.name <lin V L.know_V2 : V> ; AKnow p = mkCl p.name <lin V L.know_V2 : V> ;
-- ALike p item = mkCl p.name (mkV2 (mkV "ลิกเ")) item ; ALike p item = mkCl p.name (mkV2 (mkV "ชอบ")) item ;
-- ALive p co = mkCl p.name (mkVP (mkVP (mkV "ลิึเ")) (SyntaxTha.mkAdv in_Prep co)) ; ALive p co = mkCl p.name (mkVP (mkVP (mkV (R.thword "อา" "ศัย" "อยู่"))) (SyntaxTha.mkAdv in_Prep co)) ;
ALove p q = mkCl p.name L.love_V2 q.name ; ALove p q = mkCl p.name L.love_V2 q.name ;
AMarried p = mkCl p.name (mkAP L.married_A2) ; AMarried p = mkCl p.name (mkAP L.married_A2) ;
AReady p = mkCl p.name L.ready_A ; AReady p = mkCl p.name L.ready_A ;
-- AScared p = mkCl p.name (mkA "สจัรเด") ; AScared p = mkCl p.name (mkA "กลัว") ;
ASpeak p lang = mkCl p.name L.speak_V2 lang ; ASpeak p lang = mkCl p.name L.speak_V2 lang ;
-- AThirsty p = mkCl p.name (mkA "ตหิรสตย") ; AThirsty p = mkCl p.name (mkA (R.thword "กระ" "หาย" "น้ำ")) ;
-- ATired p = mkCl p.name (mkA "ติรเด") ; ATired p = mkCl p.name (mkA "เหนื่อย") ;
AUnderstand p = mkCl p.name (mkV (R.thword "เข้า" "ไจ")) ; AUnderstand p = mkCl p.name (mkV (R.thword "เข้า" "ใจ")) ;
-- AWant p obj = mkCl p.name (mkV2 (mkV "วันต")) obj ; AWant p obj = mkCl p.name (mkV2 (mkV (R.thword "ต้อง" "การ"))) obj ;
AWantGo p place = mkCl p.name want_VV (mkVP (mkVP L.go_V) place.to) ; AWantGo p place = mkCl p.name want_VV (mkVP (mkVP L.go_V) place.to) ;
-- miscellaneous -- miscellaneous
@@ -165,41 +165,41 @@ concrete WordsTha of Words = SentencesTha **
-- Building phrases from strings is complicated: the solution is to use -- Building phrases from strings is complicated: the solution is to use
-- mkText : Text -> Text -> Text ; -- mkText : Text -> Text -> Text ;
-- PSeeYouDate d = mkText (lin Text (ss ("สเเ ยoุ"))) (mkPhrase (mkUtt d)) ; PSeeYouDate d = mkText (lin Text (ss (R.thword "เจอ" "กัน"))) (mkPhrase (mkUtt d)) ;
-- PSeeYouPlace p = mkText (lin Text (ss ("สเเ ยoุ"))) (mkPhrase (mkUtt p.at)) ; PSeeYouPlace p = mkText (lin Text (ss (R.thword "เจอ" "กัน" "ที่"))) (mkPhrase (mkUtt p.at)) ;
-- PSeeYouPlaceDate p d = PSeeYouPlaceDate p d =
-- mkText (lin Text (ss ("สเเ ยoุ"))) mkText (lin Text (ss (R.thword "เจอ" "กัน" "ที่")))
-- (mkText (mkPhrase (mkUtt p.at)) (mkPhrase (mkUtt d))) ; (mkText (mkPhrase (mkUtt p.at)) (mkPhrase (mkUtt d))) ;
-- Relations are expressed as "มย วิฝเ" or "มย สoณส วิฝเ", as defined by $xOf$ -- Relations are expressed as "มย วิฝเ" or "มย สoณส วิฝเ", as defined by $xOf$
-- below. Languages without productive genitives must use an equivalent of -- below. Languages without productive genitives must use an equivalent of
-- "ตหเ วิฝเ oฝ มย สoน" for non-pronouns. -- "ตหเ วิฝเ oฝ มย สoน" for non-pronouns.
Wife = xOf "เมีย" ; ---- familiar Wife = xOf "เมีย" ; ---- familiar
-- Husband = xOf "ผัว" ; ---- familiar Husband = xOf "ผัว" ; ---- familiar
Son = xOf (R.thbind "ลูก ชาย") ; Son = xOf (R.thword "ลูก ชาย") ;
Daughter = xOf (R.thbind "ลูก สาว") ; Daughter = xOf (R.thword "ลูก สาว") ;
Children = xOf L.child_N.s ; ---- Children = xOf L.child_N.s ; ----
-- week days -- week days
Monday = mkDay (R.thword "วัน" "จัน" "ทร์") ; Monday = mkDay (R.thword "วัน" "จัน" "ทร์") ;
-- Tuesday = mkDay "Tุเสดัย" ; Tuesday = mkDay (R.thword "วัน" "อัง" "คาร") ;
-- Wednesday = mkDay "Wเดนเสดัย" ; Wednesday = mkDay (R.thword "วัน" "พุธ") ;
-- Thursday = mkDay "Tหุรสดัย" ; Thursday = mkDay (R.thword "วัน" "พฤ" "หัส" "บดี") ;
-- Friday = mkDay "Fริดัย" ; Friday = mkDay (R.thword "วัน" "ศุก" "ร์") ;
-- Saturday = mkDay "็ัตุรดัย" ; Saturday = mkDay (R.thword "วัน" "เสา" "ร์") ;
-- Sunday = mkDay "็ุนดัย" ; Sunday = mkDay (R.thword "วัน" "อา" "ทิต" "ย์") ;
-- Tomorrow = P.mkAdv "ตoมoรรoว" ; Tomorrow = P.mkAdv (R.thword "วัน" "พรุ่ง" "นี้") ;
-- modifiers of places -- modifiers of places
TheBest = mkSuperl L.good_A ; TheBest = mkSuperl L.good_A ;
-- TheClosest = mkSuperl L.near_A ; -- TheClosest = mkSuperl L.near_A ;
-- TheCheapest = mkSuperl (mkA "จหเัป") ; TheCheapest = mkSuperl (mkA (R.thword "รา" "คา" "ถูก")) ;
TheMostExpensive = mkSuperl (mkA "แพง") ; TheMostExpensive = mkSuperl (mkA "แพง") ;
-- TheMostPopular = mkSuperl (mkA "ปoปุลัร") ; TheMostPopular = mkSuperl (mkA (R.thword "โด่ง" "ดัง")) ;
TheWorst = mkSuperl L.bad_A ; TheWorst = mkSuperl L.bad_A ;
SuperlPlace sup p = placeNP sup p ; SuperlPlace sup p = placeNP sup p ;
@@ -226,16 +226,16 @@ concrete WordsTha of Words = SentencesTha **
oper oper
-- mkNat : Str -> Str -> NPNationality = \nat,co -> mkNat : Str -> NPNationality = \nat ->
-- mkNPNationality (mkNP (mkPN nat)) (mkNP (mkPN co)) (mkA nat) ; mkNPNationality (mkNP (mkCN (mkA nat) L.language_N)) (mkNP (mkCN (mkA nat) L.country_N)) (mkA nat) ;
mkDay : Str -> {name : NP ; point : Adv ; habitual : Adv} = \d -> mkDay : Str -> {name : NP ; point : Adv ; habitual : Adv} = \d ->
let day = lin NP (ss d) in let day = lin NP (ss d) in
mkNPDay day (SyntaxTha.mkAdv noPrep day) mkNPDay day (SyntaxTha.mkAdv noPrep day)
(SyntaxTha.mkAdv noPrep (mkNP a_Quant plNum (mkCN (mkN d)))) ; (SyntaxTha.mkAdv noPrep (mkNP a_Quant plNum (mkCN (mkN d)))) ;
mkPlace : N -> Prep -> {name : CN ; at : Prep ; to : Prep; isPl : Bool} = \p,i -> mkPlace : N -> {name : CN ; at : Prep ; to : Prep; isPl : Bool} = \p ->
mkCNPlace (mkCN p) i noPrep ; mkCNPlace (mkCN p) at_Prep noPrep ;
open_Adv = P.mkAdv "เปิด" ; open_Adv = P.mkAdv "เปิด" ;
closed_Adv = P.mkAdv "ปิด" ; closed_Adv = P.mkAdv "ปิด" ;
@@ -253,10 +253,24 @@ concrete WordsTha of Words = SentencesTha **
} ; } ;
mkSuperl : A -> Det = \a -> SyntaxTha.mkDet the_Art (SyntaxTha.mkOrd a) ; mkSuperl : A -> Det = \a -> SyntaxTha.mkDet the_Art (SyntaxTha.mkOrd a) ;
mkCurrency : Str -> CN = \s -> mkCN (mkN s) ; ---- classifier
-- far_IAdv = ExtraTha.IAdvAdv (ss "ฝัร") ; -- far_IAdv = ExtraTha.IAdvAdv (ss "ไกล") ;
at_Prep = mkPrep "ที่" ; at_Prep = mkPrep "ที่" ;
noPrep = mkPrep [] ; noPrep = mkPrep [] ;
--------------------------------------------------
-- New 30/11/2011 AR
--------------------------------------------------
lin
Thai = mkNat "ไทย" ;
Baht = mkCurrency "บาท" ;
} }