GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki 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
QWhatName p = lin QS {s = p.name.s ++ R.word "贵姓"} ; ---
QWhatAge p = lin QS {s = p.name.s ++ (R.word "几岁" | R.word "多大")} ; ---
HowMuchCost item = lin QS {s = item.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 "多大")} ; ---
HowMuchCost item = lin QS {s = \\_ => item.s ++ R.word "是多少呢"} ;
ItCost item price = mkCl item (mkV2 "成本") price ;
PropOpen p = mkCl p.name (mkA "开放" ) ;
@@ -206,9 +206,9 @@ SuperlPlace sup p = placeNP sup p ;
-- 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 =
-- mkQS (mkQCl howFar.how (mkCl (mkNP y.name howFar.far)