From f7f0112256b738a7c640c37d5bcbfc8a33bdb307 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Wed, 17 Feb 2010 11:07:24 +0000
Subject: added examples/SUMO

---
 examples/SUMO/RGLExt/ExtensionFre.gf | 64 ++++++++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100644 examples/SUMO/RGLExt/ExtensionFre.gf

(limited to 'examples/SUMO/RGLExt/ExtensionFre.gf')

diff --git a/examples/SUMO/RGLExt/ExtensionFre.gf b/examples/SUMO/RGLExt/ExtensionFre.gf
new file mode 100644
index 000000000..16040d03e
--- /dev/null
+++ b/examples/SUMO/RGLExt/ExtensionFre.gf
@@ -0,0 +1,64 @@
+--# -path=.:../romance:../common:../abstract:../prelude:
+concrete ExtensionFre of Extension = CatFre ** open MorphoFre, Prelude, Coordination,ParamBasic, ResFre, GrammarFre, ParadigmsFre in {
+
+
+lincat 
+    PolSentence = {s : SentForm => Polarity => Str ; flag : Flag};
+    [CN] = {s1,s2 : Number => Str ; g : Gender} ;  
+    SS = {s : Str};
+   
+    
+
+lin 
+
+VerbToNoun v = {s = \\_ => v.s ! (VInfin True);
+                g = Masc};
+
+VerbToNounV2 v2 = VerbToNoun v2 ** {c2 = v2.c2};
+
+VerbToGerundA v = {s = \\_,af => case af of
+                              {AF g n => v.s ! VGer; -- need more data for feminine and plural forms 
+                               AA     => "en" ++ v.s ! VGer  
+                              };
+                   isPre = False};
+
+VerbToParticipeA v = {s = \\_,af => case af of 
+                              {AF g n => v.s ! (VPart g n);
+                               AA     => "en" ++ v.s ! VGer
+                              }; 
+                      isPre = False} ;  
+
+mkPolSent cl = {s = \\f,b => cl.s ! DDir ! RPres ! Simul ! b ! Indic ;
+                flag = NothingS ;
+                lock_PolSentence = <>
+               };                      
+
+sentToNoun ps = heavyNP {s = \\_ => "\"" ++ ps.s ! Indep ! Pos ++ "\"";
+                         a = agrP3 Masc Sg
+                        };     
+
+at_Prep = mkPreposition "à" ;
+per_Prep = mkPreposition "per" ;                                    
+                         
+ConjCN conj ss = conjunctDistrTable Number conj ss ** {
+                g = ss.g                
+                };               
+
+BaseCN x y ={
+      s1 = \\n => x.s ! n ;
+      s2 = \\n => y.s ! n ;   
+      g  =  x.g};  
+
+ConsCN xs x = consrTable Number comma xs x ** {g = x.g} ;
+               
+UsePolSentence p ps = {s = ps.s ! Indep ! p.p};
+
+O1 = UsePN (mkPN "o1") ; 
+O2 = UsePN (mkPN "o2") ; 
+O3 = UsePN (mkPN "o3") ;      
+O4 = UsePN (mkPN "o4") ;       
+O5 = UsePN (mkPN "o5") ;
+           
+ 
+            
+} 
\ No newline at end of file
-- 
cgit v1.2.3