diff options
| author | aarne <aarne@chalmers.se> | 2010-03-30 15:39:11 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-03-30 15:39:11 +0000 |
| commit | de909a4e44419562ca4ba071e15cf9b8e00288be (patch) | |
| tree | fdae4da7fbce3edb0276a93219495c019fdaca08 /examples/phrasebook/WordsSwe.gf | |
| parent | 4bae49c6341fc831f474f1fffc0f763892ef696d (diff) | |
disambiguation in Phrasebook grammars, PGF server, and the GUI
Diffstat (limited to 'examples/phrasebook/WordsSwe.gf')
| -rw-r--r-- | examples/phrasebook/WordsSwe.gf | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/examples/phrasebook/WordsSwe.gf b/examples/phrasebook/WordsSwe.gf index 19160d004..2f5f83944 100644 --- a/examples/phrasebook/WordsSwe.gf +++ b/examples/phrasebook/WordsSwe.gf @@ -33,11 +33,11 @@ concrete WordsSwe of Words = SentencesSwe ** Romanian = mkNP (mkPN "rumänska") ; Swedish = mkNP (mkPN "svenska") ; - AWant p obj = mkCl p want_VV (mkVP have_V2 obj) ; - ALike p item = mkCl p (mkV2 (mkV "tycker") (mkPrep "om")) item ; - AHave p kind = mkCl p have_V2 (mkNP kind) ; - ASpeak p lang = mkCl p (mkV2 (mkV "tala")) lang ; - ALove p q = mkCl p (mkV2 (mkV "älska")) q ; + AWant p obj = {s = \\r => mkCl (p.s ! r) want_VV (mkVP have_V2 obj)} ; + ALike p item = {s = \\r => mkCl (p.s ! r) (mkV2 (mkV "tycker") (mkPrep "om")) item} ; + AHave p kind = {s = \\r => mkCl (p.s ! r) have_V2 (mkNP kind)} ; + ASpeak p lang = {s = \\r => mkCl (p.s ! r) (mkV2 (mkV "tala")) lang} ; + ALove p q = {s = \\r => mkCl (p.s ! r) (mkV2 (mkV "älska")) (q.s ! r)} ; } |