scandinavian topological sentence model

lib/resource/french/LangFre.gf

@@ -1,8 +1,8 @@
 --# -path=.:../romance:../abstract:../../prelude
 
-concrete LangFre of Lang = 
+concrete LangFre of LangVP = 
   RulesFre, 
-  ClauseFre, 
+  VerbphraseFre, 
   StructuralFre,  
   BasicFre,
   TimeFre,

lib/resource/french/ResourceFre.gf

@@ -1,4 +1,4 @@
 --# -path=.:../romance:../abstract:../../prelude
 
-concrete ResourceFre of Resource = RulesFre, StructuralFre, ClauseFre ** {} ;
+concrete ResourceFre of ResourceVP = RulesFre, StructuralFre, VerbphraseFre ** {} ;
 

lib/resource/french/SimpleFre.gf

@@ -0,0 +1,8 @@
+--# -path=.:../romancs:../abstract:../../prelude
+
+concrete SimpleFre of Simple = CategoriesFre ** SimpleI with
+  (Categories = CategoriesFre),
+  (Rules = RulesFre),
+  (Structural = StructuralFre),
+  (Verbphrase = VerbphraseFre)
+  ;

lib/resource/french/SimpleLangFre.gf

@@ -0,0 +1,21 @@
+--# -path=.:../romance:../abstract:../../prelude
+
+concrete SimpleLangFre of SimpleLang = 
+  SimpleFre, 
+  StructuralFre,  
+  BasicFre,
+  TimeFre,
+  CountryFre
+
+   ** open Prelude, ParadigmsFre in {
+
+lin
+  AdvDate d = prefixSS "le" d ;
+  AdvTime t = prefixSS "à" t ;
+  NWeekday w = w ;
+  PNWeekday w = mkPN (w.s ! singular) w.g ;
+
+  PNCountry x = x ;
+  ANationality x = x ;
+  NLanguage x = x ;
+}