added basic concepts of the SUMO ontology for French and Romanian

examples/SUMO/MergeFre.gf

@@ -48,4 +48,22 @@ sister ob1 ob2 = mkPolSent (PredVP ob1 (AdvVP (UseComp (CompNP (DetCN (DetQuant
 -- ternary predicate 
 
 
+---------------- CNL demo
+Entity = UseN entity_N ;
+Abstract = UseN abstract_N ;
+Attribute = UseN attribute_N ; 
+Graph = UseN graph_N ;
+GraphElement = AdvCN (UseN element_N) (PrepNP part_Prep (MassNP (UseN graph_N))) ;
+Model = UseN model_N ; -- FIX ME
+ProcessTask = AdvCN (UseN task_N) (PrepNP possess_Prep (MassNP (UseN process_N))) ; -- FIX ME
+Proposition = UseN proposition_N ;
+Quantity = UseN quantity_N ;
+SetOrClass = ConjCN or_Conj (BaseCN (UseN set_N) (UseN class_N)) ;
+Physical = UseN physical_N ;
+ContentBearingPhysical = AdvCN (UseN physical_N) (PrepNP with_Prep (MassNP (UseN content_N))) ;
+Object = UseN object_N ;
+PhysicalSystem = AdjCN (PositA physical_A) (UseN system_N) ;
+Process = UseN process_N ;
+
+
 };

examples/SUMO/MergeRon.gf

@@ -51,4 +51,24 @@ sister ob1 ob2 = mkPolSent (PredVP ob1 (AdvVP (UseComp (CompNP (DetCN (DetQuant
 --others
 toInt x = mkNP x.s ("lui" ++ x.s) x.s Sg Masc;
 toRealNum x = mkNP x.s ("lui" ++ x.s) x.s Sg Masc; 
+
+
+---------------- CNL demo
+Entity = UseN entity_N ;
+Abstract = UseN abstract_N ;
+Attribute = UseN attribute_N ; 
+Graph = UseN graph_N ;
+GraphElement = AdvCN (UseN element_N) (PrepNP part_Prep (MassNP (UseN graph_N))) ;
+Model = UseN model_N ; -- FIX ME
+ProcessTask = AdvCN (UseN task_N) (PrepNP possess_Prep (MassNP (UseN process_N))) ; -- FIX ME
+Proposition = UseN proposition_N ;
+Quantity = UseN quantity_N ;
+SetOrClass = ConjCN or_Conj (BaseCN (UseN set_N) (UseN class_N)) ;
+Physical = UseN physical_N ;
+ContentBearingPhysical = AdvCN (UseN physical_N) (PrepNP with_Prep (MassNP (UseN content_N))) ;
+Object = UseN object_N ;
+PhysicalSystem = AdjCN (PositA physical_A) (UseN system_N) ;
+Process = UseN process_N ;
+
+
 };

examples/SUMO/RGLExt/ExtraLexicon.gf

@@ -4,4 +4,26 @@ fun
   square_A : A ;
   value_N : N ;
   element_N : N ;
+
+
+--------------------------
+--CNL presentation
+
+ entity_N : N ;
+ abstract_N : N ;
+ attribute_N : N ; 
+ graph_N : N ; 
+ model_N : N ; 
+ process_N : N ;
+ task_N : N ;
+ proposition_N : N ;
+ quantity_N : N ; 
+ set_N : N ;
+ class_N : N ;
+ physical_N : N ; 
+ content_N : N ; 
+ object_N : N ;
+ system_N : N ;
+ physical_A : A ;
+
 }

examples/SUMO/RGLExt/ExtraLexiconFre.gf

@@ -4,7 +4,7 @@ concrete ExtraLexiconFre of ExtraLexicon = CatFre **
   open ParadigmsFre,MorphoFre,BeschFre in {
 
 flags 
-  optimize=values ; 
+  optimize=values ; coding=utf8 ;
 
 lin
  value_N = regGenN "valeur" feminine ;
@@ -12,6 +12,22 @@ lin
  time_N = regN "heure" ;
  element_N = mkN "élément" ;
  
+ entity_N = regGenN "entité" feminine;
+ abstract_N = mkN "abstrait" ;
+ attribute_N = mkN "attribut" ; 
+ graph_N = regGenN "graph" masculine ; 
+ model_N = regGenN "modèle" masculine; 
+ process_N = mkN "processus" ;
+ task_N = regGenN "tâche" feminine;
+ proposition_N = regGenN "proposition" feminine ;
+ quantity_N = regGenN "quantité" feminine; 
+ set_N = regGenN "ensemble" masculine;
+ class_N = regGenN "classe" feminine;
+ physical_N = regGenN "physique" masculine; 
+ content_N = mkN "sens" ; 
+ object_N = mkN "objet" ;
+ system_N = mkN "système" ;
+ physical_A = regA "physique" ;
 
 
 

examples/SUMO/RGLExt/ExtraLexiconRon.gf

@@ -4,7 +4,7 @@ concrete ExtraLexiconRon of ExtraLexicon = CatRon **
   open ParadigmsRon,MorphoRon,BeschRon in {
 
 flags 
-  optimize=values ; 
+  optimize=values ; coding=utf8 ;
 
 lin
  value_N = mkN "valoare" "valori" ;
@@ -12,6 +12,22 @@ lin
  time_N = mkNR "timp" ;
  element_N = mkN "element" ;
  
+ entity_N = mkN "entitate" ;
+ abstract_N = mkN "abstract" ;
+ attribute_N = mkN "atribut" ; 
+ graph_N = mkNR "graf" ; 
+ model_N = mkN "model" ; 
+ process_N = mkN "proces" ;
+ task_N = mkN "sarcină" ;
+ proposition_N = mkN "propoziție" ;
+ quantity_N = mkN "cantitate" ; 
+ set_N = mkN "mulțime" ;
+ class_N = mkN "clasă" ;
+ physical_N = mkN "concret" ; 
+ content_N = mkN "conținut" ; 
+ object_N = mkN "obiect" ;
+ system_N = mkN "sistem" ;
+ physical_A = regA "concret" ;