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

making hard-wired questiong in PhrasebookChi type correct after addition of indirect questions

Browse Source
This commit is contained in:
aarne
2014-07-05 08:34:22 +00:00
parent 7ad2f7dac3
commit ac1e58817b
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
examples/phrasebook/WordsChi.gf
View File

@@ -150,9 +150,9 @@ AWantGo p place = mkCl p.name want_VV (mkVP (mkVP L.go_V) place.to) ;
-- miscellaneous -- miscellaneous
QWhatName p = lin QS {s = p.name.s ++ R.word "贵姓"} ; --- QWhatName p = lin QS {s = \\_ => p.name.s ++ R.word "贵姓"} ; ---
QWhatAge p = lin QS {s = p.name.s ++ (R.word "几岁" | R.word "多大")} ; --- QWhatAge p = lin QS {s = \\_ => p.name.s ++ (R.word "几岁" | R.word "多大")} ; ---
HowMuchCost item = lin QS {s = item.s ++ R.word "是多少呢"} ; HowMuchCost item = lin QS {s = \\_ => item.s ++ R.word "是多少呢"} ;
ItCost item price = mkCl item (mkV2 "成本") price ; ItCost item price = mkCl item (mkV2 "成本") price ;
PropOpen p = mkCl p.name (mkA "开放" ) ; PropOpen p = mkCl p.name (mkA "开放" ) ;
@@ -206,9 +206,9 @@ SuperlPlace sup p = placeNP sup p ;
-- transports -- transports
HowFar place = lin QS {s = place.name.s ++ R.word "有多远"} ; HowFar place = lin QS {s = \\_ => place.name.s ++ R.word "有多远"} ;
HowFarFrom x y = lin QS {s = "从" ++ x.name.s ++ "到" ++ y.name.s ++ R.word "有多远"} ; ---- HowFarFrom x y = lin QS {s = \\_ => "从" ++ x.name.s ++ "到" ++ y.name.s ++ R.word "有多远"} ; ----
-- 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)