From 93daaabf3df88b5fa16065c027c370cdf9b487b2 Mon Sep 17 00:00:00 2001 From: aarne Date: Sun, 28 Mar 2010 19:29:06 +0000 Subject: Action category, more doc in Phrasebook --- examples/phrasebook/WordsFin.gf | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) (limited to 'examples/phrasebook/WordsFin.gf') diff --git a/examples/phrasebook/WordsFin.gf b/examples/phrasebook/WordsFin.gf index 159ad55ad..cb445eadf 100644 --- a/examples/phrasebook/WordsFin.gf +++ b/examples/phrasebook/WordsFin.gf @@ -1,7 +1,7 @@ -- (c) 2009 Aarne Ranta under LGPL concrete WordsFin of Words = SentencesFin ** - open SyntaxFin, ParadigmsFin in { + open SyntaxFin, ParadigmsFin, DiffPhrasebookFin in { lin Wine = mkCN (mkN "viini") ; Beer = mkCN (mkN "olut") ; @@ -31,7 +31,15 @@ concrete WordsFin of Words = SentencesFin ** Dollar = mkCN (mkN "dollari") ; Lei = mkCN (mkN "lei") ; --- oper ---- optimization lasts forever --- mkCNN : Str -> CN = \s -> mkCN (mkN s) ; --- mkAPA : Str -> AP = \s -> mkAP (mkA s) ; + AWant p obj = mkCl p want_V2 obj ; + ALike p item = mkCl item like_V2 p ; + 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") ; } -- cgit v1.2.3