From 93daaabf3df88b5fa16065c027c370cdf9b487b2 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Sun, 28 Mar 2010 19:29:06 +0000
Subject: Action category, more doc in Phrasebook

---
 examples/phrasebook/WordsFre.gf | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'examples/phrasebook/WordsFre.gf')

diff --git a/examples/phrasebook/WordsFre.gf b/examples/phrasebook/WordsFre.gf
index e8a65a3b8..266d0ed6c 100644
--- a/examples/phrasebook/WordsFre.gf
+++ b/examples/phrasebook/WordsFre.gf
@@ -2,6 +2,8 @@
 
 concrete WordsFre of Words = SentencesFre ** open
   SyntaxFre,
+  DiffPhrasebookFre,
+  IrregFre,
   ParadigmsFre in
 {
 flags coding=utf8 ;
@@ -33,6 +35,18 @@ Boring = mkAPA "ennuyeux" ;
     Dollar = mkCN (mkN "dollar") ;
     Lei = mkCN (mkN "lei") ; ---- ?
 
+    AWant p obj = mkCl p want_V2 obj ;
+    ALike p item = mkCl item plaire_V2 p ;
+    AHave p kind = mkCl p have_V2 (mkNP kind) ;
+    ASpeak p lang = mkCl p  (mkV2 (mkV "parler")) lang ;
+    ALove p q = mkCl p (mkV2 (mkV "aimer")) q ;
+
+    English = mkNP (mkPN "anglais") ;
+    Finnish = mkNP (mkPN "finnois") ;
+    French = mkNP (mkPN "français") ; 
+    Romanian = mkNP (mkPN "roumain") ;
+    Swedish = mkNP (mkPN "suédois") ;
+
 oper
 mkAPA : (_ : Str) -> AP = \x -> mkAP (mkA x) ;
 
-- 
cgit v1.2.3