diff options
| author | aarne <aarne@chalmers.se> | 2010-09-02 16:18:35 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-09-02 16:18:35 +0000 |
| commit | 952fb7685b4db2af8e8369feb5349c134e4f65f5 (patch) | |
| tree | 75704eb2ac3046626daa812d951f56454ec49190 | |
| parent | b1bf971066022e8c41d33b353d0de3ba63c83247 (diff) | |
word order in indirect 'how far' questions in Eng and Dan
| -rw-r--r-- | examples/phrasebook/WordsDan.gf | 11 | ||||
| -rw-r--r-- | examples/phrasebook/WordsEng.gf | 7 |
2 files changed, 11 insertions, 7 deletions
diff --git a/examples/phrasebook/WordsDan.gf b/examples/phrasebook/WordsDan.gf index a810b839a..99e7da1af 100644 --- a/examples/phrasebook/WordsDan.gf +++ b/examples/phrasebook/WordsDan.gf @@ -212,11 +212,14 @@ concrete WordsDan of Words = SentencesDan ** -- transports - HowFar place = mkQS (mkQCl long_IAdv (mkCl (mkVP (SyntaxDan.mkAdv to_Prep place.name)))) ; - HowFarFrom place x = mkQS (mkQCl long_IAdv (mkCl place.name (SyntaxDan.mkAdv from_Prep x.name))) ; + HowFar place = + mkQS (mkQCl long_IAdv (mkCl (mkVP (SyntaxDan.mkAdv to_Prep place.name)))) ; + HowFarFrom place x = + mkQS (mkQCl long_IAdv (mkCl place.name (SyntaxDan.mkAdv from_Prep x.name))) ; HowFarFromBy x y t = - mkQS (mkQCl long_IAdv (mkNP (mkNP y.name (SyntaxDan.mkAdv from_Prep x.name)) t)) ; - HowFarBy y t = mkQS (mkQCl long_IAdv (mkNP y.name t)) ; + mkQS (mkQCl long_IAdv (mkCl y.name (SyntaxDan.mkAdv from_Prep (mkNP x.name t)))) ; + HowFarBy y t = + mkQS (mkQCl long_IAdv (mkCl y.name t)) ; -- not sure ! WhichTranspPlace trans place = mkQS (mkQCl (mkIP which_IDet trans.name) (mkVP (mkVP L.go_V) place.to)) ; diff --git a/examples/phrasebook/WordsEng.gf b/examples/phrasebook/WordsEng.gf index 38db65f62..96af50d07 100644 --- a/examples/phrasebook/WordsEng.gf +++ b/examples/phrasebook/WordsEng.gf @@ -208,10 +208,11 @@ concrete WordsEng of Words = SentencesEng ** -- transports HowFar place = mkQS (mkQCl far_IAdv place.name) ; - HowFarFrom x y = mkQS (mkQCl far_IAdv (mkNP y.name (SyntaxEng.mkAdv from_Prep x.name))) ; + HowFarFrom x y = + mkQS (mkQCl far_IAdv (mkCl y.name (SyntaxEng.mkAdv from_Prep x.name))) ; HowFarFromBy x y t = - mkQS (mkQCl far_IAdv (mkNP (mkNP y.name (SyntaxEng.mkAdv from_Prep x.name)) t)) ; - HowFarBy y t = mkQS (mkQCl far_IAdv (mkNP y.name t)) ; + mkQS (mkQCl far_IAdv (mkCl y.name (SyntaxEng.mkAdv from_Prep (mkNP x.name t)))) ; + HowFarBy y t = mkQS (mkQCl far_IAdv (mkCl y.name t)) ; WhichTranspPlace trans place = mkQS (mkQCl (mkIP which_IDet trans.name) (mkVP (mkVP L.go_V) place.to)) ; |