diff options
| author | aarne <aarne@chalmers.se> | 2010-04-30 06:55:15 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-04-30 06:55:15 +0000 |
| commit | 7a4cb3c2715c5dd61309b9bc0309142a44393c29 (patch) | |
| tree | 4bfb5e613c547fadd120235bd220dc771aea066f /examples/phrasebook/WordsRon.gf | |
| parent | e3c883fdb3859b4eef1f8e59737da171b4231f4e (diff) | |
small fixes in Phrasebook, particularly PSeeYouPlaceDate
Diffstat (limited to 'examples/phrasebook/WordsRon.gf')
| -rw-r--r-- | examples/phrasebook/WordsRon.gf | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/examples/phrasebook/WordsRon.gf b/examples/phrasebook/WordsRon.gf index f6fa48a0e..704c66b6b 100644 --- a/examples/phrasebook/WordsRon.gf +++ b/examples/phrasebook/WordsRon.gf @@ -123,7 +123,7 @@ concrete WordsRon of Words = SentencesRon ** open HowFarFrom x y = mkQS (mkQCl how8much_IAdv (mkNP (mkDestination y.name) (SyntaxRon.mkAdv from_Prep x.name))) ; HowFarFromBy x y t = mkQS (mkQCl how8much_IAdv (mkNP (mkNP (mkDestination y.name) (SyntaxRon.mkAdv from_Prep x.name)) t)) ; - HowFarBy y t = mkQS (mkQCl how8much_IAdv (mkNP (mkDestination y.name) t.by)) ; + HowFarBy y t = mkQS (mkQCl how8much_IAdv (mkNP (mkDestination y.name) t)) ; WhichTranspPlace trans place = mkQS (mkQCl (mkIP which_IDet trans.name) (mkVP (mkVP L.go_V) place.to)) ; @@ -176,10 +176,11 @@ concrete WordsRon of Words = SentencesRon ** open -- Building phrases from strings is complicated: the solution is to use -- mkText : Text -> Text -> Text ; - PSeeYou d = mkText (lin Text {s = ("ne" ++ "vedem")}) (mkPhrase (mkUtt d)) ; - PSeeYouPlace p d = + PSeeYouDate d = mkText (lin Text {s = ("ne" ++ "vedem")}) (mkPhrase (mkUtt d)) ; + PSeeYouPlaceDate p d = mkText (lin Text { s = ("ne" ++ "vedem")}) (mkText (mkPhrase (mkUtt p.at)) (mkPhrase (mkUtt d))) ; + PSeeYouPlace p = mkText (lin Text {s = ("ne" ++ "vedem")}) (mkPhrase (mkUtt p.at)) ; -- Relations are expressed as "my wife" or "the wife of my son", as defined by $xOf$ -- below. Languages with productive genitives can use an equivalent of |