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

some more words and phrases in PhrasebookChi ; native speaker check should be done soon

Browse Source
This commit is contained in:
aarne
2014-05-03 15:57:21 +00:00
parent 500a874fd2
commit bd4728b313
1 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
examples/phrasebook/WordsChi.gf
View File

@@ -39,7 +39,7 @@ concrete WordsChi of Words = SentencesChi **
Expensive = D.expensive_A ; Expensive = D.expensive_A ;
Fresh = D.fresh_A ; Fresh = D.fresh_A ;
Good = D.good_A ; Good = D.good_A ;
-- Suspect = D.suspect_A ; Suspect = mkA "可疑" ;
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
@@ -47,14 +47,14 @@ 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 (mkN "游乐园") ;
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 (mkN "中心") ;
--- Cinema = mkPlace D.cinema_N ; Cinema = mkPlace (mkN "电影院") ;
Church = mkPlace D.church_N ; Church = mkPlace D.church_N ;
--- Disco = mkPlace D.disco_N ; Disco = mkPlace (mkN "迪斯科") ;
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 ;
@@ -209,8 +209,7 @@ concrete WordsChi of Words = SentencesChi **
HowFar place = lin QS {s = place.name.s ++ R.word "有多远"} ; HowFar place = lin QS {s = place.name.s ++ R.word "有多远"} ;
-- HowFarFrom x y = HowFarFrom x y = lin QS {s = y.name.s ++ "从" ++ x.name.s ++ R.word "有多远"} ; ----
-- mkQS (mkQCl howFar.how (mkCl (mkNP y.name howFar.far) (lin AP (R.thbind from_Prep x.name)))) ; --- no yuu
-- HowFarFromBy x y t = -- HowFarFromBy x y t =
-- mkQS (mkQCl howFar.how (mkCl (mkNP y.name howFar.far) -- mkQS (mkQCl howFar.how (mkCl (mkNP y.name howFar.far)