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

patchJpn

Browse Source
This commit is contained in:
lizazim
2015-01-07 23:44:49 +00:00
parent ef84f7d842
commit 68b4bb74cc
3 changed files with 306 additions and 209 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
examples/phrasebook/GreetingsJpn.gf
View File

@@ -1,27 +1,30 @@
concrete GreetingsJpn of Greetings = SentencesJpn [Greeting,mkGreeting] ** open Prelude in { concrete GreetingsJpn of Greetings = SentencesJpn [Greeting,mkGreeting] ** open Prelude in {
flags coding = utf8 ;
lin lin
GBye = mkGreeting "bye" ; GBye = mkGreeting "バイ" ;
GCheers = mkGreeting "cheers" ; GCheers = mkGreeting "かんぱい" ;
GDamn = mkGreeting "damn" ; GDamn = mkGreeting "くそ" ;
GExcuse, GExcusePol = mkGreeting "excuse me" ; GExcuse, GExcusePol = mkGreeting "すみません" ;
GGoodDay = mkGreeting "good afternoon" ; ---- GGoodDay, GHello = mkGreeting "こんにちは" ; ----
GGoodEvening = mkGreeting "good evening" ; GGoodEvening = mkGreeting "こんばんは" ;
GGoodMorning = mkGreeting "good morning" ; GGoodMorning = mkGreeting "おはようございます" ;
GGoodNight = mkGreeting "good night" ; GGoodNight = mkGreeting "おやすみなさい" ;
GGoodbye = mkGreeting "goodbye" ; GGoodbye = mkGreeting "さようなら" ;
GHello = mkGreeting "hello" ; GHelp = mkGreeting "助けて" ;
GHelp = mkGreeting "help" ; GHowAreYou = mkGreeting "お元気ですか" ;
GHowAreYou = mkGreeting "how are you" ; GLookOut = mkGreeting "危ない" ;
GLookOut = mkGreeting "look out" ; GNiceToMeetYou = mkGreeting "初めまして" ;
GNiceToMeetYou, GNiceToMeetYouPol = mkGreeting "nice to meet you" ; GPleaseGive = mkGreeting "ください" ;
GPleaseGive, GPleaseGivePol = mkGreeting "please" ; GPleaseGivePol = mkGreeting "お願いします" ;
GSeeYouSoon = mkGreeting "see you soon" ; GSeeYouSoon = mkGreeting "またね" ;
GSorry, GSorryPol = mkGreeting "sorry" ; GSorry = mkGreeting "ごめんなさい" ;
GThanks = mkGreeting "thank you" ; GSorryPol = mkGreeting "申し訳ありません" ;
GTheCheck = mkGreeting "the bill" ; GThanks = mkGreeting "ありがとう" ;
GCongratulations = mkGreeting "congratulations"; GTheCheck = mkGreeting "会計" ;
GHappyBirthday = mkGreeting "happy birthday" ; GCongratulations = mkGreeting "お目出度うご座います";
GGoodLuck = mkGreeting "good luck" ; GHappyBirthday = mkGreeting "お誕生日おめでとうございます" ;
GWhatTime = mkGreeting "what time is it" | mkGreeting "what is the time" ; GGoodLuck = mkGreeting "がんばってください" ;
GWhatTime = mkGreeting "今何時ですか" ;
} }

48
examples/phrasebook/SentencesJpn.gf
View File

@@ -3,27 +3,42 @@ concrete SentencesJpn of Sentences = NumeralJpn **
VDrink,VEat,VRead,VWait,VWrite, VDrink,VEat,VRead,VWait,VWrite,
phrasePlease, mkSentence, mkPhrase, phrasePlease, mkSentence, mkPhrase,
NameNN, NameNN,
PSentence, PQuestion, GObjectPlease PSentence, PQuestion, GObjectPlease,
ACitizen, Citizenship, CitiNat, Nationality, NPNationality, mkNPNationality, PropCit, PCitizenship
] ]
with with
(Syntax = SyntaxJpn), (Syntax = SyntaxJpn),
-- (Symbolic = SymbolicJpn), -- (Symbolic = SymbolicJpn),
(Lexicon = LexiconJpn) ** open SyntaxJpn, ParadigmsJpn in { (Lexicon = LexiconJpn) ** open SyntaxJpn, ParadigmsJpn in {
flags coding = utf8 ;
lincat
Citizenship = NPCitizenship ;
Nationality = NPNationality ;
lin lin
VDrink = v2toVP drink_V2 ; VDrink = v2toVP drink_V2 ;
VEat = v2toVP eat_V2 ; VEat = v2toVP eat_V2 ;
VRead = v2toVP read_V2 ; VRead = v2toVP read_V2 ;
VWait = v2toVP wait_V2 ; VWait = v2toVP wait_V2 ;
VWrite = v2toVP write_V2 ; VWrite = v2toVP write_V2 ;
NameNN = mkNP (mkPN "NN") ; NameNN = mkNP (mkPN "NN") ;
PSentence s = mkText (mkPhr (mkUtt s)) | lin Text (mkPhr (mkUtt s)) ; -- optional '.' PSentence s = mkText (mkPhr (mkUtt s)) | lin Text (mkPhr (mkUtt s)) ; -- optional '.'
PQuestion s = mkText (mkPhr (mkUtt s)) | lin Text (mkPhr (mkUtt s)) ; -- optional '?' PQuestion s = mkText (mkPhr (mkUtt s)) | lin Text (mkPhr (mkUtt s)) ; -- optional '?'
GObjectPlease o = lin Text (mkPhr noPConj (mkUtt o) please_Voc) | lin Text (mkPhr (mkUtt o)) ; GObjectPlease o = lin Text (mkPhr noPConj (mkUtt o) please_Voc) | lin Text (mkPhr (mkUtt o)) ;
ACitizen p n = mkCl p.name n.citizenship ;
CitiNat n = {prop = n.prop ; citizenship = n.citizenship} ;
PropCit c = c.prop ;
PCitizenship x = mkPhrase (mkUtt x.citizenship) ;
oper oper
v2toVP : V2 -> VP = \v2 -> mkVP <lin V (v2 ** {needSubject = True}) : V> ; v2toVP : V2 -> VP = \v2 -> mkVP <lin V (v2 ** {needSubject = True}) : V> ;
@@ -33,4 +48,15 @@ oper
mkPhrase : Utt -> Text = \u -> lin Text (mkPhr u) ; -- no punctuation mkPhrase : Utt -> Text = \u -> lin Text (mkPhr u) ; -- no punctuation
mkSentence : Utt -> Text = \t -> lin Text (postfixSS "." (mkPhr t) | (mkPhr t)) ; -- optional . mkSentence : Utt -> Text = \t -> lin Text (postfixSS "." (mkPhr t) | (mkPhr t)) ; -- optional .
NPCitizenship : Type = {prop : A ; citizenship : NP} ;
NPNationality : Type = NPCitizenship ** {lang : NP ; country : NP} ;
mkNPNationality : NP -> NP -> A -> NP -> NPNationality = \la,co,pro,ci ->
{lang = la ;
country = co ;
prop = pro ;
citizenship = ci
} ;
} }

414
examples/phrasebook/WordsJpn.gf
View File

@@ -6,9 +6,13 @@ concrete WordsJpn of Words = SentencesJpn **
ParadigmsJpn, ParadigmsJpn,
(L = LexiconJpn), (L = LexiconJpn),
(P = ParadigmsJpn), (P = ParadigmsJpn),
(R = ResJpn),
-- IrregJpn, -- IrregJpn,
ExtraJpn, ExtraJpn,
Prelude in { Prelude in {
flags coding = utf8 ;
lin lin
-- Kinds; many of them are in the resource lexicon, others can be built by $mkN$. -- Kinds; many of them are in the resource lexicon, others can be built by $mkN$.
@@ -16,197 +20,205 @@ concrete WordsJpn of Words = SentencesJpn **
Apple = mkCN L.apple_N ; Apple = mkCN L.apple_N ;
Beer = mkCN L.beer_N ; Beer = mkCN L.beer_N ;
Bread = mkCN L.bread_N ; Bread = mkCN L.bread_N ;
Cheese = mkCN (mkN "cheese") ; Cheese = mkCN (mkN "チーズ" R.Inanim) ; -- "chiizu"
Chicken = mkCN (mkN "chicken") ; Chicken = mkCN (mkN "鶏" R.Inanim "切れ" False) ; -- "tori" "kire"
Coffee = mkCN (mkN "coffee") ; Coffee = mkCN (mkN "コーヒー" R.Inanim "杯" False) ; -- "koohi" "hai" (cups of)
Fish = mkCN L.fish_N ; Fish = mkCN L.fish_N ;
Meat = mkCN (mkN "meat") ; Meat = mkCN (mkN "肉" R.Inanim "切れ" False) ; -- "niku" "kire"
Milk = mkCN L.milk_N ; Milk = mkCN L.milk_N ;
Pizza = mkCN (mkN "pizza") ; Pizza = mkCN (mkN "ピザ" R.Inanim "枚" False) ; -- "piza" "mai" (smth flat)
Salt = mkCN L.salt_N ; Salt = mkCN L.salt_N ;
Tea = mkCN (mkN "tea") ; Tea = mkCN (mkN "お茶" R.Inanim "杯" False) ; -- "ocha" "hai" (cups of)
Water = mkCN L.water_N ; Water = mkCN L.water_N ;
Wine = mkCN L.wine_N ; Wine = mkCN L.wine_N ;
-- 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 = mkA "boring" ; Boring = mkA "つまらない" ;
-- Cheap = mkA "cheap" ; Cheap = mkA "安い" ; -- "yasui"
Cold = L.cold_A ; Cold = L.cold_A ;
-- Delicious = mkA "delicious" ; Delicious = mkA "美味しい" ; -- "oishii"
-- Expensive = mkA "expensive" ; Expensive = mkA "高い" ; -- "takai"
-- Fresh = mkA "fresh" ; Fresh = mkA "新鮮な" ; -- "shinsenna"
Good = L.good_A ; Good = L.good_A ;
-- Suspect = mkA "suspect" ; Suspect = mkA "怪しい" ; -- "ayashii"
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 "airport" "at" ; Airport = mkPlace "空港" "で" ; -- "kuukou" "de"
AmusementPark = mkCompoundPlace "amusement" "park" "at" ; AmusementPark = mkPlace "遊園地" "で" ; -- "yuuenchi" "de"
Bank = mkPlace "bank" "at" ; Bank = mkPlace "銀行" "で" ; -- "ginkou" "de"
Bar = mkPlace "bar" "in" ; Bar = mkPlace "バー" "で" ; -- "baa" "de"
Cafeteria = mkPlace "canteen" "in" ; Cafeteria = mkPlace "食堂" "で" ; -- "shokudou" "de"
Center = mkPlace "center" "in" ; Center = mkPlace "センター" "で" ; -- "sentaa" "de"
Cinema = mkPlace "cinema" "at" ; Cinema = mkPlace "映画館" "で" ; -- "eigakan" "de"
Church = mkPlace "church" "in" ; Church = mkPlace "教会" "で" ; -- "kyoukai" "de"
Disco = mkPlace "disco" "at" ; Disco = mkPlace "ディスコ" "で" ; -- "disuko" "de"
Hospital = mkPlace "hospital" "in" ; Hospital = mkPlace "病院" "で" ; -- "byouin" "de"
Hotel = mkPlace "hotel" "in" ; Hotel = mkPlace "ホテル" "で" ; -- "hoteru" "de"
Museum = mkPlace "museum" "at" ; Museum = mkPlace "博物館" "で" ; -- "hakubutsukan" "de"
Park = mkPlace "park" "in" ; Park = mkPlace "公園" "で" ; -- "kouen" "de"
Parking = mkCompoundPlace "car" "park" "in" ; Parking = mkPlace "駐車場" "で" ; -- "chuushajou" "de"
Pharmacy = mkPlace "pharmacy" "at" ; Pharmacy = mkPlace "薬局" "で" ; -- "kyoukai" "de"
PostOffice = mkCompoundPlace "post" "office" "at" ; PostOffice = mkPlace "郵便局" "で" ; -- "yuubinkyoku" "de"
Pub = mkPlace "pub" "at" ; Pub = mkPlace "パブ" "で" ; -- "pabu" "de"
Restaurant = mkPlace "restaurant" "in" ; Restaurant = mkPlace "レストラン" "で" ; -- "resutoran" "de"
School = mkPlace "school" "at" ; School = mkPlace "学校" "で" ; -- "gakkou" "de"
Shop = mkPlace "shop" "at" ; Shop = mkPlace "商店" "で" ; -- "mise" "de"
Station = mkPlace "station" "at" ; Station = mkPlace "駅" "で" ; -- "eki" "de"
Supermarket = mkPlace "supermarket" "at" ; Supermarket = mkPlace "スーパー" "で" ; -- "suupaa" "de"
Theatre = mkPlace "theatre" "at" ; Theatre = mkPlace "劇場" "で" ; -- "gekijou" "de"
Toilet = mkPlace "toilet" "in" ; Toilet = mkPlace "お手洗い" "で" ; -- "otearai" "de"
University = mkPlace "university" "at" ; University = mkPlace "大学" "で" ; -- "daigaku" "de"
Zoo = mkPlace "zoo" "at" ; Zoo = mkPlace "動物園" "で" ; -- "doubutsuen" "de"
CitRestaurant cit = mkCNPlace (mkCN cit (mkN "restaurant")) in_Prep to_Prep ; CitRestaurant cit = mkCNPlace (mkCN cit.prop (mkN "レストラン")) in_Prep to_Prep ; -- "resutoran"
-- Currencies; $crown$ is ambiguous between Danish and Swedish crowns. -- Currencies; $crown$ is ambiguous between Danish and Swedish crowns.
---- DanishCrown = mkCN (mkA "Danish") (mkN "crown") | mkCN (mkN "crown") ; DanishCrown = mkCur "デンマーク・クローネ" | mkCur "クローナ" ; -- "denmaaku kuroune"
Dollar = mkCN (mkN "dollar") ; Dollar = mkCur "ドル" ; -- "doru"
Euro = mkCN (mkN "euro") ; -- to prevent euroes Euro = mkCur "ユーロ" ; -- "yuuro"
Lei = mkCN (mkN "leu") ; Lei = mkCur "レウ" ; -- "reu"
Leva = mkCN (mkN "lev") ; Leva = mkCur "レフ" ; -- "refu"
---- NorwegianCrown = mkCN (mkA "Norwegian") (mkN "crown") | mkCN (mkN "crown") ; NorwegianCrown = mkCur "ノルウェー・クローネ" | mkCur "クローナ" ; -- "noruwee kuroune"
Pound = mkCN (mkN "pound") ; Pound = mkCur "ポンド" ; -- "pondo"
Rouble = mkCN (mkN "rouble") ; Rouble = mkCur "ルーブル" ; -- "ruuburu"
Rupee = mkCN (mkN "rupee") ; Rupee = mkCur "ルピ" ; -- "rupii"
---- SwedishCrown = mkCN (mkA "Swedish") (mkN "crown") | mkCN (mkN "crown") ; SwedishCrown = mkCur "スウェーデン・クローナ" | mkCur "クローナ" ; -- "Suu~eeden kurouna"
Zloty = mkCN (mkN "zloty") ; Zloty = mkCur "ズロティ" ; -- "zuroti"
Yuan = mkCN (mkN "yuan") ; Yuan = mkCur "元" ; -- "gen"
-- Nationalities -- Nationalities
-- Belgian = mkA "Belgian" ; Belgian = {prop = mkA "ベルギー の" ; citizenship = mkNP (mkN "ベルギー 人")} ; -- "berugii no"
Belgium = mkNP (mkPN "Belgium") ; Belgium = mkNP (mkPN "ベルギー") ; -- "berugii"
Bulgarian = mkNat "Bulgarian" "Bulgaria" ; Bulgarian = mkNat "ブルガリア" ; -- "burugaria"
---- Catalan = mkNPNationality (mkNP (mkPN "Catalan")) (mkNP (mkPN "Catalonia")) (mkA "Catalonian") ; Catalan = mkNat "カタロニア" ; -- "kataronia"
Chinese = mkNat "Chinese" "China" ; Chinese = mkNat"中国" ; -- "chuugoku"
Danish = mkNat "Danish" "Denmark" ; Danish = mkNat "デンマーク" ; -- "denmaaku"
---- Dutch = mkNPNationality (mkNP (mkPN "Dutch")) (mkNP the_Quant (mkN "Netherlands")) (mkA "Dutch") ; Dutch = mkNat "オランダ" ; -- "oranda"
English = mkNat "English" "England" ; English = mkNPNationality (mkNP (mkPN "英語")) (mkNP (mkPN "イギリス")) -- "eigo"
Finnish = mkNat "Finnish" "Finland" ; (mkA "イギリスの") (mkNP (mkPN "イギリス人")) ;
Flemish = mkNP (mkPN "Flemish") ; Finnish = mkNat "フィンランド" ; -- "finrando"
French = mkNat "French" "France" ; Flemish = mkNP (mkPN "フラマン 語") ; -- "furaman go"
German = mkNat "German" "Germany" ; French = mkNat "フランス" ; -- "furansu"
Hindi = mkNP (mkPN "Hindi") ; German = mkNat "ドイツ" ; -- "doitsu"
India = mkNP (mkPN "India") ; Hindi = mkNP (mkPN "ヒンディー語") ; -- "hindii"
---- Indian = mkA "Indian" ; India = mkNP (mkPN "インド") ; -- "indo"
Italian = mkNat "Italian" "Italy" ; Indian = {prop = mkA "インドの" ; citizenship = mkNP (mkN "インド人")} ; -- "indo no"
Norwegian = mkNat "Norwegian" "Norway" ; Italian = mkNat "イタリア" ; -- "itaria"
Polish = mkNat "Polish" "Poland" ; Norwegian = mkNat "ノルウェー" ; -- "noruwee"
Romanian = mkNat "Romanian" "Romania" ; Polish = mkNat "ポーランド" ; -- "porando"
Russian = mkNat "Russian" "Russia" ; Romanian = mkNat "ルーマニア" ; -- "ruumania"
Spanish = mkNat "Spanish" "Spain" ; Russian = mkNat "ロシア" ; -- "roshia"
Swedish = mkNat "Swedish" "Sweden" ; Spanish = mkNat "スペイン" ; -- "supein"
Swedish = mkNat "スウェーデン" ; -- "suweeden"
-- Means of transportation -- Means of transportation
Bike = mkTransport L.bike_N ; Bike = mkTransport L.bike_N ;
Bus = mkTransport (mkN "bus") ; Bus = mkTransport (mkN "バス") ; -- "basu"
Car = mkTransport L.car_N ; Car = mkTransport L.car_N ;
Ferry = mkTransport (mkN "ferry") ; Ferry = mkTransport (mkN "フェリー") ; -- "ferii"
Plane = mkTransport L.airplane_N ; Plane = mkTransport L.airplane_N ;
Subway = mkTransport (mkN "subway") ; Subway = mkTransport (mkN "地下鉄") ; -- "chikatetsu"
Taxi = mkTransport (mkN "taxi") ; Taxi = mkTransport (mkN "タクシー") ; -- "takushii"
Train = mkTransport (mkN "train") ; Train = mkTransport (mkN "電車") ; -- "densha"
Tram = mkTransport (mkN "tram") ; Tram = mkTransport (mkN "市電") ; -- "shiden"
ByFoot = P.mkAdv "by foot" ; ByFoot = P.mkAdv "徒歩で" ; -- "toho de"
-- 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) (ParadigmsJpn.mkAdv "old")); AHasAge p num = mkCl p.name (mkNP num (mkNounWOCounter "歳")) ;
AHasChildren p num = mkCl p.name have_V2 (mkNP num L.child_N) ; AHasChildren p num = mkCl p.name (mkV2 "いる" "が" R.Gr2) (mkNP num L.child_N) ;
AHasRoom p num = mkCl p.name have_V2
(mkNP (mkNP a_Det (mkN "room")) (SyntaxJpn.mkAdv for_Prep (mkNP num (mkN "person")))) ;
AHasTable p num = mkCl p.name have_V2
(mkNP (mkNP a_Det (mkN "table")) (SyntaxJpn.mkAdv for_Prep (mkNP num (mkN "person")))) ;
AHasName p name = mkCl (nameOf p) name ; AHasName p name = mkCl (nameOf p) name ;
-- AHungry p = mkCl p.name (mkA "hungry") ; AHasRoom p num = mkCl p.name have_V2
-- AIll p = mkCl p.name (mkA "ill") ; (mkNP (mkNP a_Det (mkN "部屋")) (SyntaxJpn.mkAdv for_Prep (mkNP num (mkNounWOCounter "人")))) ; -- "heya"
AKnow p = mkCl p.name (v2toVP L.know_V2) ; AHasTable p num = mkCl p.name have_V2
ALike p item = mkCl p.name L.like_V2 item ; (mkNP (mkNP a_Det (mkN "テーブル")) (SyntaxJpn.mkAdv for_Prep (mkNP num (mkNounWOCounter "人")))) ;
ALive p co = mkCl p.name (mkVP (mkVP L.live_V) (SyntaxJpn.mkAdv in_Prep co)) ; AHungry p = mkCl p.name (P.mkV "お腹が空いている" R.Gr1) ; -- "onaka ga suite iru"
ALove p q = mkCl p.name L.love_V2 q.name ; AIll p = mkCl p.name (mkA "病気の") ;
-- AMarried p = mkCl p.name (mkA "married") ; AKnow p = mkCl p.name mkKnow ;
-- AReady p = mkCl p.name (mkA "ready") ; ALike p item = mkCl p.name (mkA2 "好きな" "が") item ;
-- AScared p = mkCl p.name (mkA "scared") ; ALive p co = mkCl p.name (mkVP (mkVP (mkV "住んでいる" R.Gr2)) (SyntaxJpn.mkAdv in_Prep co)) ; -- "sundeiru"
ALove p q = mkCl p.name (mkV2 "愛している" "を" R.Gr2) q.name ; -- "aishiteiru"
AMarried p = mkCl p.name (mkA "結婚している" "既婚の") ; -- "kekkonshiteiru" "kikonno"
AReady p = mkCl p.name L.ready_A ;
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 "thirsty") ; AThirsty p = mkCl p.name (mkA "喉が乾いている" "渇した") ;
-- ATired p = mkCl p.name (mkA "tired") ; -- "nodo ga kawaiteiru" "kasshita"
AUnderstand p = mkCl p.name (v2toVP L.understand_V2) ; ATired p = mkCl p.name (mkA "疲れている" "疲れた") ;
AWant p obj = mkCl p.name (mkV2 "want") obj ; -- "tsukareteiru" "tsukareta"
AUnderstand p = case p.name.meaning of {
R.SomeoneElse => mkCl p.name (v2toVP L.understand_V2) ;
R.Me => mkCl p.name (mkV "分かる" R.Gr1) -- "wakaru"
} ;
AWant p obj = case (p.name).meaning of {
R.Me => mkCl p.name (mkA2 "欲しい" "が") obj ;
R.SomeoneElse => mkCl p.name (mkA2 "欲しがっている" "欲しい" "が") 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 (mkIComp whatSg_IP) (nameOf p)) ; QWhatName p = mkQS (mkQCl (mkIComp whatSg_IP) (nameOf p)) ;
-- QWhatName p = mkQS (mkQCl whatSg_IP (mkVP (nameOf p))) ; QWhatAge p = mkQS (mkQCl howOld_IAdv (mkCl p.name R.mkCopula)) ;
-- QWhatAge p = mkQS (mkQCl (ICompAP (mkAP L.old_A)) p.name) ; HowMuchCost item = mkQS (mkQCl how8much_IAdv (mkCl item (mkV "かかる"))) ;
HowMuchCost item = mkQS (mkQCl how8much_IAdv (mkCl item (mkV "cost"))) ; ItCost item price = mkCl item (mkV2 "かかる" "" R.Gr1) price ;
ItCost item price = mkCl item (mkV2 "cost") price ;
PropOpen p = mkCl p.name open_Adv ; PropOpen p = mkCl p.name mkOpen ;
PropClosed p = mkCl p.name closed_Adv ; PropClosed p = mkCl p.name mkClosed ;
PropOpenDate p d = mkCl p.name (mkVP (mkVP open_Adv) d) ; PropOpenDate p d = mkCl p.name (mkVP (mkVP mkOpen) d) ;
PropClosedDate p d = mkCl p.name (mkVP (mkVP closed_Adv) d) ; PropClosedDate p d = mkCl p.name (mkVP (mkVP mkClosed) d) ;
PropOpenDay p d = mkCl p.name (mkVP (mkVP open_Adv) d.habitual) ; PropOpenDay p d = mkCl p.name (mkVP (mkVP mkOpen) d.habitual) ;
PropClosedDay p d = mkCl p.name (mkVP (mkVP closed_Adv) d.habitual) ; PropClosedDay p d = mkCl p.name (mkVP (mkVP mkClosed) 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 ("see you"))) (mkPhrase (mkUtt d)) ; PSeeYouDate d = mkText (mkPhrase (mkUtt d)) (lin Text (ss ("会いましょう"))) ; -- "aimashou"
PSeeYouPlace p = mkText (lin Text (ss ("see you"))) (mkPhrase (mkUtt p.at)) ; PSeeYouPlace p = mkText (mkPhrase (mkUtt p.at)) (lin Text (ss ("会いましょう"))) ; -- "aimashou"
PSeeYouPlaceDate p d = PSeeYouPlaceDate p d =
mkText (lin Text (ss ("see you"))) mkText (mkText (mkPhrase (mkUtt p.at)) (mkPhrase (mkUtt d)))
(mkText (mkPhrase (mkUtt p.at)) (mkPhrase (mkUtt d))) ; (lin Text (ss ("会いましょう"))) ; -- "aimashou"
-- Relations are expressed as "my wife" or "my son's wife", as defined by $xOf$ -- Relations are expressed as "my wife" or "my son's wife", as defined by $xOf$
-- below. Languages without productive genitives must use an equivalent of -- below. Languages without productive genitives must use an equivalent of
-- "the wife of my son" for non-pronouns. -- "the wife of my son" for non-pronouns.
Wife = xOf (mkN "wife") ; Wife = xOf (mkN "妻" "奥さん" R.Anim "人" False "妻たち") ; -- "tsuma" "okusan"
Husband = xOf (mkN "husband") ; Husband = xOf (mkN "夫" "ご主人" R.Anim "人" False "夫たち") ; -- "otto" "goshujin"
Son = xOf (mkN "son") ; Son = xOf (mkN "息子" "息子さん" R.Anim "人" False "息子たち") ; -- "musuko"
Daughter = xOf (mkN "daughter") ; Daughter = xOf (mkN "娘" "お嬢さん" R.Anim "人" False "娘たち") ; -- "musume" "ojousan"
Children = xOf L.child_N ; Children = xOf L.child_N ;
-- week days -- week days
Monday = mkDay "Monday" ; Monday = mkDay "月曜日" ; -- "getsuyoubi"
Tuesday = mkDay "Tuesday" ; Tuesday = mkDay "火曜日" ; -- "kayoubi"
Wednesday = mkDay "Wednesday" ; Wednesday = mkDay "水曜日" ; -- "suiyoubi"
Thursday = mkDay "Thursday" ; Thursday = mkDay "木曜日" ; -- "mokuyoubi"
Friday = mkDay "Friday" ; Friday = mkDay "金曜日" ; -- "kin'youbi"
Saturday = mkDay "Saturday" ; Saturday = mkDay "土曜日" ; -- "doyoubi"
Sunday = mkDay "Sunday" ; Sunday = mkDay "日曜日" ; -- "nichiyoubi"
Tomorrow = P.mkAdv "tomorrow" ; Tomorrow = P.mkAdv "明日" ; -- "ashita"
-- 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 "cheap") ; TheCheapest = mkSuperl (mkA "安い") ; -- "yasui"
---- TheMostExpensive = mkSuperl (mkA "expensive") ; TheMostExpensive = mkSuperl (mkA "高い") ; -- "takai"
---- TheMostPopular = mkSuperl (mkA "popular") ; TheMostPopular = mkSuperl (mkA "盛んな") ; -- "sakanna"
TheWorst = mkSuperl L.bad_A ; TheWorst = mkSuperl L.bad_A ;
SuperlPlace sup p = placeNP sup p ; SuperlPlace sup p = placeNP sup p ;
@@ -214,14 +226,14 @@ concrete WordsJpn of Words = SentencesJpn **
-- transports -- transports
{- HowFar place = mkQS (mkQCl howFar_IAdv (mkCl place.name (mkA "遠い"))) ;
HowFar place = mkQS (mkQCl far_IAdv place.name) ;
HowFarFrom x y = HowFarFrom x y =
mkQS (mkQCl far_IAdv (mkCl y.name (SyntaxJpn.mkAdv from_Prep x.name))) ; mkQS (mkQCl howFar_IAdv (mkCl (mkNP y.name (SyntaxJpn.mkAdv from_Prep x.name)) (mkA "遠い"))) ;
HowFarFromBy x y t = HowFarFromBy x y t =
mkQS (mkQCl far_IAdv (mkCl y.name (SyntaxJpn.mkAdv from_Prep (mkNP x.name t)))) ; mkQS (mkQCl howFar_IAdv (mkCl
HowFarBy y t = mkQS (mkQCl far_IAdv (mkCl y.name t)) ; (mkNP y.name (SyntaxJpn.mkAdv from_Prep (mkNP x.name t))) (mkA "遠い"))) ;
-} HowFarBy y t = mkQS (mkQCl howFar_IAdv (mkCl (mkNP y.name t) (mkA "遠い"))) ;
WhichTranspPlace trans place = WhichTranspPlace trans place =
mkQS (mkQCl (mkIP which_IDet trans.name) (mkVP (mkVP L.go_V) place.to)) ; mkQS (mkQCl (mkIP which_IDet trans.name) (mkVP (mkVP L.go_V) place.to)) ;
@@ -234,13 +246,14 @@ concrete WordsJpn of Words = SentencesJpn **
oper oper
mkNat : Str -> Str -> NPNationality = \nat,co -> mkNat : Str -> NPNationality = \co ->
mkNPNationality (mkNP (mkPN nat)) (mkNP (mkPN co)) L.good_A ; ---- mkA ... mkNPNationality (mkNP (mkPN (co + "語"))) (mkNP (mkPN co))
(mkA (co + "の")) (mkNP (mkPN (co + "人"))) ; ---- mkA ...
mkDay : Str -> {name : NP ; point : Adv ; habitual : Adv} = \d -> mkDay : Str -> {name : NP ; point : Adv ; habitual : Adv} = \d ->
let day : NP = mkNP (mkPN d) in let day : NP = mkNP (mkPN d) in
mkNPDay day (SyntaxJpn.mkAdv on_Prep day) mkNPDay day (SyntaxJpn.mkAdv in_Prep day)
(SyntaxJpn.mkAdv on_Prep (mkNP a_Quant plNum (mkCN (mkN d)))) ; (SyntaxJpn.mkAdv in_Prep (mkNP a_Quant plNum (mkCN (mkN d)))) ;
mkCompoundPlace : Str -> Str -> Str -> {name : CN ; at : Prep ; to : Prep; isPl : Bool} = \comp, p, i -> mkCompoundPlace : Str -> Str -> Str -> {name : CN ; at : Prep ; to : Prep; isPl : Bool} = \comp, p, i ->
mkCNPlace (mkCN (P.mkN (comp + p))) (P.mkPrep i) to_Prep ; mkCNPlace (mkCN (P.mkN (comp + p))) (P.mkPrep i) to_Prep ;
@@ -248,16 +261,14 @@ concrete WordsJpn of Words = SentencesJpn **
mkPlace : Str -> Str -> {name : CN ; at : Prep ; to : Prep; isPl : Bool} = \p,i -> mkPlace : Str -> Str -> {name : CN ; at : Prep ; to : Prep; isPl : Bool} = \p,i ->
mkCNPlace (mkCN (mkN p)) (P.mkPrep i) to_Prep ; mkCNPlace (mkCN (mkN p)) (P.mkPrep i) to_Prep ;
open_Adv = P.mkAdv "open" ;
closed_Adv = P.mkAdv "closed" ;
xOf : N -> NPPerson -> NPPerson = \f,p -> xOf : N -> NPPerson -> NPPerson = \f,p ->
{name = mkNP the_Det (mkCN f (SyntaxJpn.mkAdv possess_Prep p.name)) ; {name = mkNP the_Det (mkCN f (SyntaxJpn.mkAdv possess_Prep p.name)) ;
isPron = False ; poss = the_Quant} ; ---- poss not used isPron = False ; poss = the_Quant} ; ---- poss not used
mkOpen : A = mkA "開いている" "開いた" ; -- "aiteiru"
mkClosed : A = mkA "閉まっている" "閉まった" ; -- "shimatteiru"
nameOf : NPPerson -> NP = \p -> (xOf (mkN "name") p).name ; nameOf : NPPerson -> NP = \p -> (xOf (mkN "名前") p).name ;
mkTransport : N -> {name : CN ; by : Adv} = \n -> { mkTransport : N -> {name : CN ; by : Adv} = \n -> {
name = mkCN n ; name = mkCN n ;
@@ -266,51 +277,108 @@ concrete WordsJpn of Words = SentencesJpn **
mkSuperl : A -> Det = \a -> SyntaxJpn.mkDet the_Art (SyntaxJpn.mkOrd a) ; mkSuperl : A -> Det = \a -> SyntaxJpn.mkDet the_Art (SyntaxJpn.mkOrd a) ;
far_IAdv = lin IAdv (ss "how far") ; howFar_IAdv : IAdv = lin IAdv {s = \\st => "どのくらい" ; particle = "" ; wh8re = False} ;
howOld_IAdv : IAdv = lin IAdv {s = \\st => "何歳" ; particle = "" ; wh8re = False} ;
mkCur : Str -> Currency = \c -> lin Currency (lin CN {
s = \\n,st => c ;
anim = R.Inanim ;
counter = c ;
counterReplace = True ;
counterTsu, hasAttr = False ;
object, prepositive = \\st => ""
} ) ;
mkNounWOCounter : Str -> CN = \noun -> lin CN {
s = \\n,st => noun ;
anim = R.Inanim ;
counter = noun ;
counterReplace = True ;
counterTsu, hasAttr = False ;
object, prepositive = \\st => ""
} ;
mkKnow : V = lin V {
s = table {
R.Resp => table {
(R.TPres|R.TFut) => table {
R.Pos => "知っています" ;
R.Neg => "知りません"
} ;
R.TPast => table {
R.Pos => "知っていました" ;
R.Neg => "知りませんでした"
}
} ;
R.Plain => table {
(R.TPres|R.TFut) => table {
R.Pos => "知っている" ;
R.Neg => "知らない"
} ;
R.TPast => table {
R.Pos => "知っていた" ;
R.Neg => "知らなかった"
}
}
} ;
te = table {
R.Pos => "知って" ;
R.Neg => "知らないで"
} ;
a_stem = "知ら" ;
i_stem = "知り" ;
ba = table {
R.Pos => "知れば" ;
R.Neg => "知らなければ"
} ;
needSubject = True
} ;
-------------------------------------------------- --------------------------------------------------
-- New 30/11/2011 AR -- New 30/11/2011 AR
-------------------------------------------------- --------------------------------------------------
lin lin
Thai = mkNat "Thai" "Thailand" ; Thai = mkNat "タイ" ; -- "tai"
Baht = mkCN (mkN "baht" "baht") ; Baht = mkCur "バーツ" ; -- "baatsu"
Rice = mkCN (mkN "rice") ; Rice = mkCN (mkN "ご飯") ; -- "gohan"
Pork = mkCN (mkN "pork") ; Pork = mkCN (mkN "豚肉") ; -- "butaniku"
Beef = mkCN (mkN "beef") ; Beef = mkCN (mkN "牛肉") ; -- "gyuuniku"
Egg = mkCN L.egg_N ; Egg = mkCN L.egg_N ;
Noodles = mkCN (mkN "noodle") ; Noodles = mkCN (mkN "ヌードル") ; -- "nuudoru"
Shrimps = mkCN (mkN "shrimp") ; Shrimps = mkCN (mkN "海老") ; -- "ebi"
Chili = mkCN (mkN "chili") ; Chili = mkCN (mkN "チリ") ; -- "chiri"
Garlic = mkCN (mkN "garlic") ; Garlic = mkCN (mkN "大蒜") ; -- "ninniku"
Durian = mkCN (mkN "durian") ; Durian = mkCN (mkN "ドリアン") ; -- "dorian"
Mango = mkCN (mkN "mango") ; Mango = mkCN (mkN "マンゴ") ; -- "mango"
Pineapple = mkCN (mkN "pineapple") ; Pineapple = mkCN (mkN "パイナップル") ; -- "painappuru"
Coke = mkCN (mkN "coke") ; Coke = mkCN (mkN "コーク") ; -- "kooku"
IceCream = mkCN (mkN "ice cream") ; IceCream = mkCN (mkN "アイスクリーム") ; -- "aisukuriimu"
Salad = mkCN (mkN "salad") ; Salad = mkCN (mkN "サラダ") ; -- "sarada"
OrangeJuice = mkCN (mkN "orange juice") ; OrangeJuice = mkCN (mkN "オレンジジュース") ; -- "orenjijuusu"
Lemonade = mkCN (mkN "lemonade") ; Lemonade = mkCN (mkN "レモネード") ; -- "remoneedo"
Beach = mkPlace "beach" "on" ; Beach = mkPlace "beach" "on" ;
ItsRaining = mkCl (progressiveVP (mkVP L.rain_V0)) ; ItsRaining = mkCl (mkVP R.mkRain) ;
ItsCold = mkCl (mkVP L.cold_A) ; ItsCold = mkCl (mkVP L.cold_A) ;
ItsWarm = mkCl (mkVP L.warm_A) ; ItsWarm = mkCl (mkVP L.warm_A) ;
ItsWindy = mkCl (mkVP (P.mkA "windy")) ; ItsWindy = mkCl (mkVP (P.mkA "風が強い")) ;
SunShine = mkCl (mkNP the_Det L.sun_N) (progressiveVP (mkVP (mkV "shine"))) ; SunShine = mkCl (mkNP L.sun_N) (mkVP (mkV "輝いている" R.Gr2)) ;
-- "taiyou wa kagayaite iru"
Smoke = mkVP (P.mkV "smoke") ; Smoke = mkVP (P.mkV "煙草を吸う" R.Gr1) ; -- "tabako o suu"
ADoctor = mkProfession (mkN "doctor") ; ADoctor = mkProfession (mkN "医者") ; -- "isha"
AProfessor = mkProfession (mkN "professor") ; AProfessor = mkProfession (mkN "教授") ; -- "kyouju"
ALawyer = mkProfession (mkN "lawyer") ; ALawyer = mkProfession (mkN "弁護士") ; -- "bengoshi"
AEngineer = mkProfession (mkN "engineer") ; AEngineer = mkProfession (mkN "技術者") ; -- "gijutsusha"
ATeacher = mkProfession (mkN "teacher") ; ATeacher = mkProfession (mkN "先生") ; -- "sensei"
ACook = mkProfession (mkN "cook") ; ACook = mkProfession (mkN "料理人") ; -- "ryourinin"
AStudent = mkProfession (mkN "student") ; AStudent = mkProfession (mkN "学生") ; -- "gakusei"
ABusinessman = mkProfession (mkN "businessman" "businessmen") ; ABusinessman = mkProfession (mkN "実業家") ; -- "jitsugyouka"
oper oper
mkProfession : N -> NPPerson -> Cl = \n,p -> mkCl p.name n ; mkProfession : N -> NPPerson -> Cl = \n,p -> mkCl p.name n ;