fused Conj and DConj in exper

lib/resource/exper/english/CatEng.gf

@@ -64,8 +64,9 @@ concrete CatEng of Cat = CommonX ** open ResEng, Prelude in {
 
 -- Structural
 
-    Conj = {s : Str ; n : Number} ;
-    DConj = {s1,s2 : Str ; n : Number} ;
+    Conj = {s1,s2 : Str ; n : Number} ;
+---b    Conj = {s : Str ; n : Number} ;
+---b    DConj = {s1,s2 : Str ; n : Number} ;
     Subj = {s : Str} ;
     Prep = {s : Str} ;
 

lib/resource/exper/english/ConjunctionEng.gf

@@ -5,6 +5,20 @@ concrete ConjunctionEng of Conjunction =
 
   lin
 
+    ConjS = conjunctDistrSS ;
+
+    ConjAdv = conjunctDistrSS ;
+
+    ConjNP conj ss = conjunctDistrTable Case conj ss ** {
+      a = conjAgr (agrP3 conj.n) ss.a
+      } ;
+
+    ConjAP conj ss = conjunctDistrTable Agr conj ss ** {
+      isPre = ss.isPre
+      } ;
+
+{---b
+
     ConjS = conjunctSS ;
     DConjS = conjunctDistrSS ;
 
@@ -24,6 +38,7 @@ concrete ConjunctionEng of Conjunction =
     DConjAP conj ss = conjunctDistrTable Agr conj ss ** {
       isPre = ss.isPre
       } ;
+-}
 
 -- These fun's are generated from the list cat's.
 

lib/resource/exper/english/PhraseEng.gf

@@ -16,7 +16,7 @@ concrete PhraseEng of Phrase = CatEng ** open Prelude, ResEng in {
     UttAdv adv = adv ;
 
     NoPConj = {s = []} ;
-    PConjConj conj = conj ;
+    PConjConj conj = {s = conj.s2} ; ---
 
     NoVoc = {s = []} ;
     VocNP np = {s = "," ++ np.s ! Nom} ;

lib/resource/exper/english/StructuralEng.gf

@@ -10,7 +10,8 @@ concrete StructuralEng of Structural = CatEng **
   almost_AdA, almost_AdN = ss "almost" ;
   although_Subj = ss "although" ;
   always_AdV = ss "always" ;
-  and_Conj = ss "and" ** {n = Pl} ;
+  and_Conj = sd2 [] "and" ** {n = Pl} ;
+---b  and_Conj = ss "and" ** {n = Pl} ;
   because_Subj = ss "because" ;
   before_Prep = ss "before" ;
   behind_Prep = ss "behind" ;
@@ -73,7 +74,7 @@ concrete StructuralEng of Structural = CatEng **
   on_Prep = ss "on" ;
 ----  one_Quant = mkDeterminer Sg "one" ; -- DEPRECATED
   only_Predet = ss "only" ;
-  or_Conj = ss "or" ** {n = Sg} ;
+  or_Conj = sd2 [] "or" ** {n = Sg} ;
   otherwise_PConj = ss "otherwise" ;
   part_Prep = ss "of" ;
   please_Voc = ss "please" ;