language specific extensions started

lib/resource-1.0/english/English.gf

@@ -3,5 +3,5 @@
 concrete English of EnglishAbs = 
   LangEng,
 --  IrregEng,
-  ExtEng 
+  ExtraEng 
   ** {} ;

lib/resource-1.0/english/EnglishAbs.gf

@@ -1,5 +1,5 @@
 abstract EnglishAbs = 
   Lang,
 ---  IrregEngAbs,
-  ExtEngAbs
+  ExtraEngAbs
   ** {} ;

lib/resource-1.0/english/ExtEng.gf

@@ -1,26 +0,0 @@
-concrete ExtEng of ExtEngAbs = CatEng ** open ResEng in {
-
-  lincat
-
-    Aux = {s : Polarity => Str} ;
-    
-  lin
- 
-    PredAux np aux vp = mkClause (np.s ! Nom) np.a {
-      s = \\t,ant,b,ord,agr => 
-        let 
-          fin  = aux.s ! b ;
-          vf : Str -> Str -> {fin, inf : Str} = \x,y -> 
-            {fin = x ; inf = y} ;
-        in
-        case ant of {
-          Simul => vf fin [] ;
-          Anter => vf fin "have"
-          } ;
-      s2 = \\agr => infVP vp agr
-      } ;
-
-    can_Aux  = {s = \\p => posneg p "can"} ; ---- cannt
-    must_Aux = {s = \\p => posneg p "must"} ;
-
-}

lib/resource-1.0/english/ExtEngAbs.gf

@@ -1,15 +0,0 @@
-abstract ExtEngAbs = Cat ** {
-
-  cat
-    Aux ;  -- auxiliary verbs: "can", "must", etc
-
--- Notice that $Aux$ cannot form $VP$ with infinitive, imperative, etc.
-
-  fun
-    PredAux  : NP -> Aux -> VP -> Cl ;
-    QuestAux : IP -> Aux -> VP -> QCl ;
-
-    can_Aux  : Aux ;
-    must_Aux : Aux ;
-
-}

lib/resource-1.0/english/ExtraEng.gf

@@ -0,0 +1,8 @@
+concrete ExtraEng of ExtraEngAbs = CatEng ** open ResEng in {
+
+  lin
+    GenNP np = {s = \\_ => np.s ! Gen} ;
+    EmbedBareS s = s ;
+    ComplBareVS v s  = insertObj (\\_ => s.s) (predV v) ;
+
+} 

lib/resource-1.0/english/ExtraEngAbs.gf

@@ -0,0 +1,3 @@
+abstract ExtraEngAbs = Extra ** {
+
+}