diff options
| author | aarne <aarne@chalmers.se> | 2014-07-05 08:34:22 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2014-07-05 08:34:22 +0000 |
| commit | ac1e58817b62cb80d58d283ccad372d69210af65 (patch) | |
| tree | 37a2419235965209e69b18c6b6e77b05dbe4ab85 /examples | |
| parent | 7ad2f7dac33a57692495fecf10e1467e303e45d4 (diff) | |
making hard-wired questiong in PhrasebookChi type correct after addition of indirect questions
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/phrasebook/WordsChi.gf | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/examples/phrasebook/WordsChi.gf b/examples/phrasebook/WordsChi.gf index 130d19b2b..2cdb531c0 100644 --- a/examples/phrasebook/WordsChi.gf +++ b/examples/phrasebook/WordsChi.gf @@ -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) |