diff options
| author | aarne <aarne@chalmers.se> | 2010-03-30 18:48:59 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-03-30 18:48:59 +0000 |
| commit | 5cb147fa19fdd348a24bc9d90fc8b5a6041530d8 (patch) | |
| tree | 73a42a9aa38df413443e2a8a730e8e669f70604d /examples/phrasebook/WordsFin.gf | |
| parent | de909a4e44419562ca4ba071e15cf9b8e00288be (diff) | |
simplified the treatment of politeness in Phrasebook
Diffstat (limited to 'examples/phrasebook/WordsFin.gf')
| -rw-r--r-- | examples/phrasebook/WordsFin.gf | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/examples/phrasebook/WordsFin.gf b/examples/phrasebook/WordsFin.gf index 53d8c1897..140c7a343 100644 --- a/examples/phrasebook/WordsFin.gf +++ b/examples/phrasebook/WordsFin.gf @@ -31,16 +31,15 @@ concrete WordsFin of Words = SentencesFin ** Dollar = mkCN (mkN "dollari") ; Lei = mkCN (mkN "lei") ; + AWant p obj = mkCl p want_V2 obj ; + ALike p item = mkCl p like_V2 item ; + AHave p kind = mkCl p have_V2 (mkNP kind) ; + ASpeak p lang = mkCl p (mkV2 (mkV "puhua") partitive) lang ; + ALove p q = mkCl p (mkV2 (mkV "rakastaa") partitive) q ; + English = mkNP (mkPN "englanti") ; Finnish = mkNP (mkPN (mkN "suomi" "suomia")) ; French = mkNP (mkPN "ranska") ; Romanian = mkNP (mkPN "romania") ; Swedish = mkNP (mkPN "ruotsi") ; - - AWant p obj = {s = \\r => mkCl (p.s ! r) want_V2 obj} ; - ALike p item = {s = \\r => mkCl (p.s ! r) like_V2 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 "puhua") partitive) lang} ; - ALove p q = {s = \\r => mkCl (p.s ! r) (mkV2 (mkV "rakastaa") partitive) (q.s ! r)} ; - } |