Tense to Common ; Idiom ; Text

2006-02-20 22:11:57 +00:00
parent 599bbbd7d8
commit ca246d5943
37 changed files with 252 additions and 60 deletions
--- a/resource-1.0/french/IdiomFre.gf
+++ b/resource-1.0/french/IdiomFre.gf
@@ -0,0 +1,20 @@
+concrete IdiomFre of Idiom = CatFre ** 
+  open PhonoFre, MorphoFre, ParadigmsFre, Prelude in {
+
+  flags optimize=all_subs ;
+
+  lin
+    ExistNP np = 
+      mkClause "il" (agrP3 Masc Sg) 
+        (insertClit2 "y" (insertComplement (\\_ => np.s ! Ton Acc) (predV avoir_V))) ;
+    ImpersCl vp = mkClause "il" (agrP3 Masc Sg) vp ;
+    GenericCl vp = mkClause "on" (agrP3 Masc Sg) vp ;
+
+    ProgrVP vp = 
+      insertComplement 
+        (\\a => "en" ++ "train" ++ elisDe ++ infVP vp a) 
+        (predV copula) ;
+
+}
+
+