working towards tram in 4 langs

lib/resource-1.0/multimodal/DemonstrativeEng.gf

@@ -1,6 +1,4 @@
 --# -path=.:../english/:../abstract:../common:prelude
 
 concrete DemonstrativeEng of Demonstrative = CatEng, TenseX ** DemonstrativeI with
-  (Test = TestEng),
-  (Structural = StructuralEng) ;
-
+  (Lang = LangEng) ;

lib/resource-1.0/multimodal/DemonstrativeFre.gf

@@ -0,0 +1,2 @@
+concrete DemonstrativeFre of Demonstrative = CatFre, TenseX ** DemonstrativeI with
+  (Lang = LangFre) ;

lib/resource-1.0/multimodal/DemonstrativeGer.gf

@@ -0,0 +1,4 @@
+--# -path=.:../german/:../abstract:../common:prelude
+
+concrete DemonstrativeGer of Demonstrative = CatGer, TenseX ** DemonstrativeI with
+  (Lang = LangGer) ;

lib/resource-1.0/multimodal/DemonstrativeI.gf

@@ -1,5 +1,5 @@
 incomplete concrete DemonstrativeI of Demonstrative = Cat, TenseX **
-  open Prelude, Test, Structural, ParamX, DemRes in {
+  open Prelude, Lang, ParamX, DemRes in {
 
   lincat
 
@@ -24,8 +24,8 @@ incomplete concrete DemonstrativeI of Demonstrative = Cat, TenseX **
       mkDem 
         {s : Polarity => Str} 
         (polCases 
-          (UttS (PosCl cl)) 
-          (UttS (NegCl cl))) 
+          (UttS (UseCl TPres ASimul PPos cl)) 
+          (UttS (UseCl TPres ASimul PNeg cl))) 
         (concatPoint np vp) ;
 
     MQPredVP np vp = 
@@ -34,8 +34,8 @@ incomplete concrete DemonstrativeI of Demonstrative = Cat, TenseX **
       mkDem 
         {s : Polarity => Str} 
         (polCases 
-           (UttQS (PosQCl cl)) 
-           (UttQS (NegQCl cl)))
+           (UttQS (UseQCl TPres ASimul PPos cl)) 
+           (UttQS (UseQCl TPres ASimul PNeg cl)))
         (concatPoint np vp) ;
 
     MQuestVP np vp = 
@@ -44,8 +44,8 @@ incomplete concrete DemonstrativeI of Demonstrative = Cat, TenseX **
       mkDem 
         {s : Polarity => Str} 
         (polCases 
-           (UttQS (PosQCl cl)) 
-           (UttQS (NegQCl cl)))
+           (UttQS (UseQCl TPres ASimul PPos cl)) 
+           (UttQS (UseQCl TPres ASimul PNeg cl)))
         vp ;
 
     MImpVP vp =
@@ -80,9 +80,9 @@ incomplete concrete DemonstrativeI of Demonstrative = Cat, TenseX **
     that_MNP = mkDem NP that_NP ;
 
     thisDet_MNP cn = 
-      mkDem NP (DetCN (MkDet NoPredet this_Quant NoNum NoOrd) cn) ;
+      mkDem NP (DetCN (DetSg this_Quant NoOrd) cn) ;
     thatDet_MNP cn = 
-      mkDem NP (DetCN (MkDet NoPredet that_Quant NoNum NoOrd) cn) ;
+      mkDem NP (DetCN (DetSg that_Quant NoOrd) cn) ;
 
     here_MAdv      = mkDem Adv here_Adv ;
     here7from_MAdv = mkDem Adv here7from_Adv ;

lib/resource-1.0/multimodal/DemonstrativeSwe.gf

@@ -1,4 +1,4 @@
 concrete DemonstrativeSwe of Demonstrative = CatSwe, TenseX ** DemonstrativeI with
-  (Test = TestSwe),
-  (Structural = StructuralSwe) ;
+  (Lang = LangSwe) ;
+
 

lib/resource-1.0/multimodal/MultimodalFre.gf

@@ -0,0 +1,19 @@
+--# -path=.:../french/:../romancs:../abstract:../common:prelude
+
+concrete MultimodalFre of Multimodal =
+  NounFre,
+--  Verb, 
+  AdjectiveFre,
+  AdverbFre,
+--  NumeralFre,
+--  Sentence, 
+--  Question,
+--  Relative,
+--  Conjunction,
+--  Phrase,
+--  Tensed,
+  StructuralFre,
+  DemonstrativeFre,
+  BasicFre
+  ** {} ;
+

lib/resource-1.0/multimodal/MultimodalGer.gf

@@ -0,0 +1,18 @@
+--# -path=.:../german/:../abstract:../common:prelude
+
+concrete MultimodalGer of Multimodal =
+  NounGer,
+--  Verb, 
+  AdjectiveGer,
+  AdverbGer,
+  NumeralGer,
+--  Sentence, 
+--  Question,
+--  Relative,
+--  Conjunction,
+--  Phrase,
+--  Tensed,
+  StructuralGer,
+  DemonstrativeGer,
+  BasicGer
+  ** {} ;