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/WordsRon.gf | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'examples/phrasebook/WordsRon.gf') diff --git a/examples/phrasebook/WordsRon.gf b/examples/phrasebook/WordsRon.gf index 616306989..8fb0aad5d 100644 --- a/examples/phrasebook/WordsRon.gf +++ b/examples/phrasebook/WordsRon.gf @@ -2,7 +2,8 @@ concrete WordsRon of Words = SentencesRon ** open SyntaxRon, - ParadigmsRon in + ParadigmsRon, + DiffPhrasebookRon in { flags coding=utf8 ; @@ -33,6 +34,18 @@ Boring = mkAPA "plictisitor" "plictisitoare" "plictisitori" "plictisitoare" ; Dollar = mkCN (mkN "dolar" masculine) ; Lei = mkCN (mkN "leu" "lei") ; + AWant p obj = mkCl p want_V2 obj ; + ALike p item = mkCl item like_V2 p ; + AHave p kind = mkCl p have_V2 (SyntaxRon.mkNP kind) ; + ASpeak p lang = mkCl p (dirV2 (mkV "vorbi")) lang ; + ALove p q = mkCl p (dirV2 (mkV "iubi")) q ; + + English = SyntaxRon.mkNP (mkPN "anglais") ; ---- ? +-- Finnish = mkNP (mkPN "finnois") ; +-- French = mkNP (mkPN "français") ; + Romanian = SyntaxRon.mkNP (mkPN "engleză") ; ---- ? +-- Swedish = mkNP (mkPN "suédois") ; + oper mkAPA : (_,_,_,_ : Str) -> AP = \x,y,z,u -> mkAP (mkA x y z u) ; -- cgit v1.2.3