Diff interface for Phrasebook

examples/phrasebook/DiffPhrasebook.gf

@@ -0,0 +1,8 @@
+interface DiffPhrasebook = open Syntax in {
+
+oper
+  want_V2 : V2 ;
+  like_V2 : V2 ;
+
+
+}

examples/phrasebook/DiffPhrasebookFin.gf

@@ -0,0 +1,12 @@
+instance DiffPhrasebookFin of DiffPhrasebook = open 
+  SyntaxFin,
+  ParadigmsFin 
+in {
+
+flags coding = utf8 ;
+
+oper
+  want_V2 = mkV2 (mkV "haluta")  ;
+  like_V2 = mkV2 (mkV "pitää") elative ;
+
+}

examples/phrasebook/DiffPhrasebookRon.gf

@@ -0,0 +1,12 @@
+instance DiffPhrasebookRon of DiffPhrasebook = open 
+  SyntaxRon,
+  ParadigmsRon 
+in {
+
+flags coding = utf8 ;
+
+oper
+  want_V2 = dirV2 (lin V want_VV)  ;  -- mkVV (v_besch74 "vrea")
+  like_V2 = dirV2 (mkV "părăsi") ;
+
+}

examples/phrasebook/Sentences.gf

@@ -8,6 +8,7 @@ abstract Sentences = Numeral ** {
     IsNot : Item -> Quality -> Sentence ;
 
     IWant : Object -> Sentence ;
+    ILike : Item -> Sentence ; 
     DoYouHave : Kind -> Sentence ;
     WhetherIs : Item -> Quality -> Sentence ;
     ObjItem : Item -> Object ;

examples/phrasebook/SentencesFin.gf

@@ -1,2 +1,3 @@
 concrete SentencesFin of Sentences = NumeralFin ** SentencesI with 
+  (DiffPhrasebook = DiffPhrasebookFin), 
   (Syntax = SyntaxFin) ;

examples/phrasebook/SentencesI.gf

@@ -1,5 +1,8 @@
 incomplete concrete SentencesI of Sentences = Numeral ** 
-  open Syntax in {
+  open
+    DiffPhrasebook, 
+    Syntax 
+  in {
   lincat
     Sentence = Utt ; 
     Item = NP ;
@@ -10,7 +13,8 @@ incomplete concrete SentencesI of Sentences = Numeral **
     Is item quality = mkUtt (mkCl item quality) ;
     IsNot item quality = mkUtt (mkS negativePol (mkCl item quality)) ;
     WhetherIs item quality = mkUtt (mkQCl (mkCl item quality)) ;
-    IWant obj = mkUtt (mkCl (mkNP i_Pron) want_VV (mkVP have_V2 obj)) ;
+    IWant obj = mkUtt (mkCl (mkNP i_Pron) want_V2 obj) ;
+    ILike item = mkUtt (mkCl (mkNP i_Pron) like_V2 item) ;
     DoYouHave kind = 
       mkUtt (mkQCl (mkCl (mkNP youPol_Pron) have_V2 (mkNP kind))) ;
     ObjItem i = i ;

examples/phrasebook/SentencesRon.gf

@@ -1,2 +1,3 @@
 concrete SentencesRon of Sentences = NumeralRon ** SentencesI with 
+  (DiffPhrasebook = DiffPhrasebookRon), 
   (Syntax = SyntaxRon) ;