GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

completed PhrasebookChi with many expressions, using Google translate as main source

Browse Source
This commit is contained in:
aarne
2013-10-12 20:32:05 +00:00
parent 968c65266f
commit abfa2ee536
2 changed files with 65 additions and 68 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
examples/phrasebook/GreetingsChi.gf
View File

@@ -1,6 +1,6 @@
concrete GreetingsChi of Greetings = concrete GreetingsChi of Greetings =
SentencesChi [Greeting,mkGreeting] ** SentencesChi [Greeting,mkGreeting] **
open (D = DictEngChi), ResChi, Prelude in { open (D = DictEngChi), ParadigmsChi, ResChi, Prelude in {
flags coding = utf8 ; flags coding = utf8 ;
@@ -15,18 +15,17 @@ lin
GGoodNight = D.good_night_Interj ; GGoodNight = D.good_night_Interj ;
GGoodbye = D.goodbye_Interj ; GGoodbye = D.goodbye_Interj ;
GHello = D.hi_Interj ; GHello = D.hi_Interj ;
-- GHelp = mkGreeting (thword "ช่วย" "ด้วย") ; GHelp = mkInterj "帮助" ;
-- GHowAreYou = mkGreeting (thword "สบาย" "ดี" "ไหม") ; GHowAreYou = mkInterj "你好" ;
-- GLookOut = mkGreeting (thword "ระ" "วัง") ; google GLookOut = mkInterj "留意" ;
-- GNiceToMeetYou, GNiceToMeetYouPol = mkGreeting (thword "ยิน" "ดี" "ที่" "ได้" "รู้" "จัก") ; GNiceToMeetYou, GNiceToMeetYouPol = mkInterj "很高兴见到你" ;
-- GPleaseGive, GPleaseGivePol = mkGreeting "นะ" ; GPleaseGive, GPleaseGivePol = mkInterj "请" ;
-- GSeeYouSoon = mkGreeting (thword "เจอ" "กัน" "นะ") ; GSeeYouSoon = mkInterj "很快再见" ;
-- GSorry, GSorryPol = mkGreeting (thword "ขอ" "โทษ") ; GSorry, GSorryPol = mkInterj "对不起" ;
GThanks = D.thanks_Interj ; GThanks = D.thanks_Interj ;
-- GTheCheck = mkGreeting (thword "เช็ค" "บิล") ; GTheCheck = mkInterj "检查" ;
-- GCongratulations = mkGreeting (thword "ยิน" "ดี" "ด้วย") ; GCongratulations = mkInterj "祝贺您" ;
-- GHappyBirthday = mkGreeting (thword "สุข" "สันต์" "วัน" "เกิด") ; GHappyBirthday = mkInterj "祝你生日快乐" ;
GGoodLuck = D.good_luck_Interj ; GGoodLuck = D.good_luck_Interj ;
} }

110
examples/phrasebook/WordsChi.gf
View File

@@ -23,7 +23,7 @@ concrete WordsChi of Words = SentencesChi **
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 D.pizza_N ; Pizza = mkCN (mkN "比萨饼") ;
Salt = mkCN L.salt_N ; Salt = mkCN L.salt_N ;
Tea = mkCN D.tea_N ; Tea = mkCN D.tea_N ;
Water = mkCN L.water_N ; Water = mkCN L.water_N ;
@@ -32,10 +32,10 @@ concrete WordsChi of Words = SentencesChi **
-- Properties; many of them are in the resource lexicon, others can be built by $mkA$. -- Properties; many of them are in the resource lexicon, others can be built by $mkA$.
Bad = L.bad_A ; Bad = L.bad_A ;
-- Boring = D.boring_A ; Boring = mkA "难吃" ;
Cheap = D.cheap_A ; Cheap = D.cheap_A ;
Cold = L.cold_A ; Cold = L.cold_A ;
-- Delicious = D.delicious_A ; Delicious = mkA "美味" ;
Expensive = D.expensive_A ; Expensive = D.expensive_A ;
Fresh = D.fresh_A ; Fresh = D.fresh_A ;
Good = D.good_A ; Good = D.good_A ;
@@ -47,33 +47,33 @@ concrete WordsChi of Words = SentencesChi **
-- defined by $mkPlace$. -- defined by $mkPlace$.
Airport = mkPlace ((D.airport_N)) ; Airport = mkPlace ((D.airport_N)) ;
-- AmusementPark = mkPlace (placeN (D.amusement_park_N)) ; --- AmusementPark = mkPlace (placeN (D.amusement_park_N)) ;
Bank = mkPlace ((D.bank_N)) ; Bank = mkPlace ((D.bank_N)) ;
Bar = mkPlace ((D.bar_N)) ; Bar = mkPlace ((D.bar_N)) ;
Cafeteria = mkPlace ((D.bank_N)) ; Cafeteria = mkPlace ((D.bank_N)) ;
--- Center = mkPlace D.center_N ; --- Center = mkPlace D.center_N ;
-- Cinema = mkPlace (placeN (R.thword "โรง" "หนัง")) ; --- Cinema = mkPlace D.cinema_N ;
-- Church = mkPlace (placeN (R.thword "โบส" "ถ์")) ; Church = mkPlace D.church_N ;
-- Disco = mkPlace (placeN (R.thword "ดิส" "โก้")) ; --- Disco = mkPlace D.disco_N ;
Hospital = mkPlace D.hospital_N ; Hospital = mkPlace D.hospital_N ;
Hotel = mkPlace D.hotel_N ; Hotel = mkPlace D.hotel_N ;
Museum = mkPlace D.museum_N ; Museum = mkPlace D.museum_N ;
-- Park = mkPlace (placeN (R.thword "สวน")) ; Park = mkPlace D.park_N ;
-- Parking = mkPlace (placeN (R.thword "ที่" "จอด" "รถ")) ; Parking = mkPlace (mkN "地方停车") ;
-- Pharmacy = mkPlace (placeN (R.thword "ร้าน" "ขาย" "ยา")) ; Pharmacy = mkPlace (mkN "药店") ;
-- PostOffice = mkPlace (placeN (R.thword "ไปร" "ษณี" "ย์")) ; PostOffice = mkPlace (mkN "邮局") ;
-- Pub = mkPlace (placeN (R.thword "ร้าน" "เหล้า")) ; Pub = mkPlace (mkN "酒吧") ;
Restaurant = mkPlace L.restaurant_N ; Restaurant = mkPlace L.restaurant_N ;
School = mkPlace L.school_N ; School = mkPlace L.school_N ;
Shop = mkPlace L.shop_N ; Shop = mkPlace L.shop_N ;
-- Station = mkPlace (placeN (R.thword "สถา" "นี")) ; Station = mkPlace D.station_N ;
-- Supermarket = mkPlace (placeN (R.thword "ซุป" "เปอ" "ร์" "มา" "เก็ต")) ; Supermarket = mkPlace D.supermarket_N ;
-- Theatre = mkPlace (placeN (R.thword "โรง" "ละ" "คร")) ; Theatre = mkPlace (mkN "剧院") ;
-- Toilet = mkPlace (placeN (R.thword "ห้อง" "น้ำ")) ; Toilet = mkPlace D.toilet_N ;
University = mkPlace L.university_N ; University = mkPlace L.university_N ;
-- Zoo = mkPlace (placeN (R.thword "สวน" "สัต" "ว์")) ; Zoo = mkPlace (mkN "动物园") ;
-- 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.
@@ -115,62 +115,60 @@ concrete WordsChi of Words = SentencesChi **
Bike = mkTransport L.bike_N ; Bike = mkTransport L.bike_N ;
Bus = mkTransport D.bus_N ; Bus = mkTransport D.bus_N ;
Car = mkTransport L.car_N ; Car = mkTransport L.car_N ;
-- Ferry = mkTransport (mkN (R.thword "เรือ" "เฟอ" "รี่")) ; Ferry = mkTransport (mkN "渡船") ;
Plane = mkTransport L.airplane_N ; Plane = mkTransport L.airplane_N ;
-- Subway = mkTransport (mkN (R.thword "รถ" "ไฟ" "ใต้" "ดิน")) ; Subway = mkTransport (mkN "地铁") ;
-- Taxi = mkTransport (mkN (R.thword "รถ" "แท็ก" "ซี่")) ; Taxi = mkTransport (mkN "出租车") ;
Train = mkTransport L.train_N ; Train = mkTransport L.train_N ;
-- Tram = mkTransport (mkN (R.thword "รถ" "ราง")) ; Tram = mkTransport (mkN "电车") ;
-- ByFoot = P.mkAdv (R.thword "ด้วย" "การ" "เดิน") ; -- 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) (ParadigmsChi.mkAdv (R.thword "อา" "ยุ"))) ; AHasAge p nu = mkCl (lin NP {s = p.name.s ++ nu.s}) (mkV "岁") ; ----
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 "ห้อง")) (SyntaxChi.mkAdv for_Prep (mkNP num (mkN "หมาย" "เลข")))) ; (mkNP (mkNP a_Det D.room_N) (SyntaxChi.mkAdv for_Prep (mkNP num D.person_N))) ;
-- AHasTable p num = mkCl p.name have_V2 AHasTable p num = mkCl p.name have_V2
-- (mkNP (mkNP a_Det (mkN "โต๊ะ")) (SyntaxChi.mkAdv for_Prep (mkNP num (mkN "ตัว" "ที่")))) ; (mkNP (mkNP a_Det D.table_N) (SyntaxChi.mkAdv for_Prep (mkNP num D.person_N))) ;
-- AHasName p name = mkCl p.name (mkV2 "ชื่อ") name ; --- AHasName p name = mkCl p.name (mkV2 "叫") name ;
-- AHungry p = mkCl p.name (mkA (R.thword "หิว" "ข้าว")) ; AHungry p = mkCl p.name (mkA "饿") ;
-- AIll p = mkCl p.name (mkA (R.thword "เจ็บ" "ปวย")) ; AIll p = mkCl p.name D.ill_A ;
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 D.like_V2 item ; ALike p item = mkCl p.name D.like_V2 item ;
--- ALive p co = mkCl p.name D.live_V2 co ; ALive p co = mkCl p.name (mkV2 (mkV "住")) 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 (R.thword "กระ" "หาย" "น้ำ")) ; AThirsty p = mkCl p.name (mkA "渴") ;
-- 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 (lin V D.understand_V) ;
-- AWant p obj = mkCl p.name (mkV2 (mkV (R.thword "ต้อง" "การ"))) obj ; AWant p obj = mkCl p.name (mkV2 "要") 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
-- QWhatName p = mkQS (mkQCl whatSg_IP p.name (mkV2 "ชื่อ")) ; --- QWhatName p = lin QS {s = p.name.s ++ R.word "贵姓"} ; ---
-- QWhatAge p = mkQS (mkQCl (mkIComp how8much_IAdv) (mkNP p.name (ParadigmsChi.mkAdv (R.thword "อา" "ยุ")))) ; --- Adv QWhatAge p = lin QS {s = p.name.s ++ (R.word "几岁" | R.word "多大")} ; ---
-- HowMuchCost item = mkQS (mkQCl (mkIComp how8much_IAdv) item) ; HowMuchCost item = lin QS {s = item.s ++ R.word "是多少呢"} ;
-- ItCost item price = mkCl item (mkV2 (R.thword "เป็น" "รา" "คา")) price ; ItCost item price = mkCl item (mkV2 "成本") price ;
-- PropOpen p = mkCl p.name open_A ; PropOpen p = mkCl p.name D.open_A ;
-- PropClosed p = mkCl p.name closed_A ; PropClosed p = mkCl p.name closed_A ;
-- PropOpenDate p d = mkCl p.name (mkVP (mkVP open_A) d) ; PropOpenDate p d = mkCl p.name (mkVP (mkVP D.open_A) d) ;
-- PropClosedDate p d = mkCl p.name (mkVP (mkVP closed_A) d) ; PropClosedDate p d = mkCl p.name (mkVP (mkVP closed_A) d) ;
-- PropOpenDay p d = mkCl p.name (mkVP (mkVP open_A) d.habitual) ; PropOpenDay p d = mkCl p.name (mkVP (mkVP D.open_A) d.habitual) ;
-- PropClosedDay p d = mkCl p.name (mkVP (mkVP closed_A) d.habitual) ; PropClosedDay p d = mkCl p.name (mkVP (mkVP closed_A) d.habitual) ;
-- 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 ( R.thword "เจอ" "กัน"))) (mkPhrase (mkUtt d)) ; PSeeYouDate d = lin Text (ss (d.s ++ "见")) ;
-- PSeeYouPlace p = mkText (lin Text (ss (R.thword "เจอ" "กัน" "ที่"))) (mkPhrase (mkUtt p.at)) ; PSeeYouPlace p = lin Text (ss (p.at.s ++ "见")) ; ---
-- PSeeYouPlaceDate p d = PSeeYouPlaceDate p d = lin Text (ss (d.s ++ p.at.s ++ "见")) ; ----
-- mkText (lin Text (ss (R.thword "เจอ" "กัน" "ที่")))
-- (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
@@ -193,7 +191,7 @@ concrete WordsChi of Words = SentencesChi **
Saturday = mkDay "星期六" ; Saturday = mkDay "星期六" ;
Sunday = mkDay "星期日" ; Sunday = mkDay "星期日" ;
Tomorrow = mkAdv "明天" ; Tomorrow = ParadigmsChi.mkAdv "明天" ;
-- modifiers of places -- modifiers of places
@@ -209,7 +207,7 @@ concrete WordsChi of Words = SentencesChi **
-- transports -- transports
-- HowFar place = mkQS (mkQCl howFar.howfar place.name) ; ---- (mkNP place.name howFar.far)) ; HowFar place = lin QS {s = place.name.s ++ R.word "有多远"} ;
-- HowFarFrom x y = -- HowFarFrom x y =
-- mkQS (mkQCl howFar.how (mkCl (mkNP y.name howFar.far) (lin AP (R.thbind from_Prep x.name)))) ; --- no yuu -- mkQS (mkQCl howFar.how (mkCl (mkNP y.name howFar.far) (lin AP (R.thbind from_Prep x.name)))) ; --- no yuu
@@ -236,7 +234,7 @@ concrete WordsChi of Words = SentencesChi **
mkNat : Str -> NPNationality = \nat -> mkNat : Str -> NPNationality = \nat ->
mkNPNationality (mkNP (mkCN (mkA nat) L.language_N)) (mkNP (mkCN (mkA nat) L.country_N)) (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 : SyntaxChi.Adv ; habitual : SyntaxChi.Adv} = \d ->
let day = mkNP (mkPN d) in let day = mkNP (mkPN d) in
mkNPDay day (SyntaxChi.mkAdv noPrep day) mkNPDay day (SyntaxChi.mkAdv noPrep day)
(SyntaxChi.mkAdv noPrep (mkNP a_Quant plNum (mkCN (mkN d)))) ; (SyntaxChi.mkAdv noPrep (mkNP a_Quant plNum (mkCN (mkN d)))) ;
@@ -247,7 +245,7 @@ concrete WordsChi of Words = SentencesChi **
placeN : Str -> N = \s -> mkN s "间" ; placeN : Str -> N = \s -> mkN s "间" ;
-- open_A = P.mkA "เปิด" ; -- open_A = P.mkA "เปิด" ;
-- closed_A = P.mkA "ปิด" ; closed_A = P.mkA "关闭" ;
xOf : N -> NPPerson -> NPPerson = \f,p -> xOf : N -> NPPerson -> NPPerson = \f,p ->
{name = mkNP the_Det (mkCN f (SyntaxChi.mkAdv possess_Prep p.name)) ; {name = mkNP the_Det (mkCN f (SyntaxChi.mkAdv possess_Prep p.name)) ;