summaryrefslogtreecommitdiff
path: root/examples/phrasebook/WordsRon.gf
diff options
context:
space:
mode:
Diffstat (limited to 'examples/phrasebook/WordsRon.gf')
-rw-r--r--examples/phrasebook/WordsRon.gf15
1 files changed, 14 insertions, 1 deletions
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) ;