From d6e587bc0ce5e5d7048f43d642a138fbee077882 Mon Sep 17 00:00:00 2001
From: "ramona.enache" <ramona.enache@chalmers.se>
Date: Sun, 18 Apr 2010 13:55:44 +0000
Subject: [PATCH] WordsRonSumoFre

---
 src/romanian/ExtraRon.gf    | 30 ++++++++++++++++++++++++++++++
 src/romanian/ExtraRonAbs.gf |  8 ++++++++
 2 files changed, 38 insertions(+)
 create mode 100644 src/romanian/ExtraRon.gf
 create mode 100644 src/romanian/ExtraRonAbs.gf

diff --git a/src/romanian/ExtraRon.gf b/src/romanian/ExtraRon.gf
new file mode 100644
index 000000000..3f61556df
--- /dev/null
+++ b/src/romanian/ExtraRon.gf
@@ -0,0 +1,30 @@
+--# -path=.:../romance:../common:../abstract:../../prelude
+concrete ExtraRon of ExtraRonAbs = CatRon ** 
+  open ResRon, ParadigmsRon, Prelude, MorphoRon in {
+
+  lin
+ at_Prep = mkPrep "la" Ac;  
+ DatSubjCl np vp = mkClause (np.s ! Da).comp (agrP3 Masc Sg) (insertClit vp np);
+ 
+ 
+ 
+ oper     
+insertClit : VerbPhrase -> NounPhrase -> VerbPhrase = \vp, np ->      
+                        let  
+                             vcDa = case np.nForm of 
+                                        {HasClit => nextClit vp.nrClit PDat ;
+                                         _       => vp.nrClit
+                                         };                             
+                             vpp = insertObje (\\_ => "") RNoAg (clitFromNoun np Da) False vcDa vp;
+                            in 
+                         {isRefl = vpp.isRefl; 
+                          s = vpp.s ; isFemSg = vpp.isFemSg ; pReflClit = vp.pReflClit ;
+                          nrClit = vpp.nrClit; clAcc = vpp.clAcc ; 
+                          clDat = vpp.clDat ; neg   = vpp.neg ;
+                          comp  = \\a => vpp.comp ! (np.a);
+                          ext   = vpp.ext ;
+                          lock_VP = <> };
+
+
+    
+} 
diff --git a/src/romanian/ExtraRonAbs.gf b/src/romanian/ExtraRonAbs.gf
new file mode 100644
index 000000000..2115a820a
--- /dev/null
+++ b/src/romanian/ExtraRonAbs.gf
@@ -0,0 +1,8 @@
+--# -path=.:../romance:../common:../abstract:../../prelude
+abstract ExtraRonAbs = Cat **{
+
+
+  fun
+    DatSubjCl : NP -> VP -> Cl ;
+    at_Prep : Prep ;    
+}