more french

lib/resource-1.0/french/StructuralFre.gf

@@ -1,8 +1,116 @@
 concrete StructuralFre of Structural = CatFre ** 
-  open MorphoFre, Prelude in {
+  open PhonoFre, MorphoFre, ParadigmsFre, Prelude in {
 
   flags optimize=all ;
 
+lin
+
+  above_Prep = {s = ["au dessus"] ; c = genitive ; isDir = False} ;
+  after_Prep = mkPreposition "après" ;
+--  all_Predet = toutDet ;
+  almost_AdA, almost_AdN = ss "presque" ;
+  although_Subj = ss ("bien" ++ elisQue) ** {m = Conjunct} ;
+  and_Conj = ss "et" ** {n = Pl} ;
+  because_Subj = ss ("parce" ++ elisQue) ** {m = Indic} ;
+  before_Prep = mkPreposition "avant" ;
+  behind_Prep = mkPreposition "derrière" ;
+  between_Prep = mkPreposition "entre" ;
+  both7and_DConj = {s1,s2 = "et" ; n = Pl} ;
+  by8agent_Prep = mkPreposition "par" ;
+  by8means_Prep = mkPreposition "par" ;
+--  can8know_VV = mkVerbVerbDir (verbPres (conj3savoir "savoir") AHabere) ;
+--  can_VV = mkVerbVerbDir (verbPres (conj3pouvoir "pouvoir") AHabere) ;
+  during_Prep = mkPreposition "pendant" ;
+  either7or_DConj = {s1,s2 = "ou" ; n = Pl} ;
+--  everybody_NP = mkNameNounPhrase ["tout le monde"] Masc ;
+  every_Det = {s = \\_,_ => "chaque" ; n = Sg} ;
+--  everything_NP = mkNameNounPhrase ["tout"] Masc ;
+  everywhere_Adv = ss "partout" ;
+  from_Prep = complGen ; ---
+  he_Pron = 
+    mkPronoun
+      "il" (elision "l") "lui" "lui" "son" (elisPoss "s") "ses"
+      Masc Sg P3 Clit2 ;
+  how_IAdv = ss "comment" ;
+  how8many_IDet = {s = \\_ => "combien" ++ elisDe ; n = Pl} ;
+  if_Subj = ss elisSi ** {m = Indic} ;
+  in8front_Prep = mkPreposition "devant" ;
+  i_Pron = 
+    mkPronoun
+      (elision "j") (elision "m") (elision "m") "moi" "mon" (elisPoss "m") "mes"
+      Fem Sg P1 Clit1 ;
+  in_Prep = mkPreposition "dans" ;
+  it_Pron = 
+    mkPronoun
+      "il" (elision "l") "lui" "lui" "son" (elisPoss "s") "ses"
+      Masc Sg P3 Clit2 ;
+--  many_Det = mkDeterminer1 plural "plusieurs" ;
+--  most8many_Det = plupartDet ;
+--  most_Det = mkDeterminer1 singular (["la plupart"] ++ elisDe) ; --- de
+--  much_Det = mkDeterminer1 singular ("beaucoup" ++ elisDe) ; --- de
+--  must_VV = mkVerbVerbDir (verbPres (conj3devoir "devoir") AHabere) ;
+  no_Phr = ss "non" ; --- and also Si!
+  on_Prep = mkPreposition "sur" ;
+  or_Conj = {s = "ou" ; n = Sg} ;
+  otherwise_PConj = ss "autrement" ;
+  part_Prep = complGen ;
+  possess_Prep = complGen ;
+  quite_Adv = ss "assez" ;
+  she_Pron = 
+    mkPronoun
+      "elle" elisLa "lui" "elle" "son" (elisPoss "s") "ses"
+      Fem Sg P3 Clit2 ;
+
+  so_AdA = ss "si" ;
+--  somebody_NP = mkNameNounPhrase ["quelqu'un"] Masc ;
+--  some_Det = mkDeterminer1 singular "quelque" ;
+--  some_NDet = mkDeterminerNum "quelques" "quelques" ;
+--  something_NP = mkNameNounPhrase ["quelque chose"] Masc ;
+  somewhere_Adv = ss ["quelque part"] ; --- ne - pas
+--  that_Det = mkDeterminer singular (pre {"ce" ; "cet" / voyelle}) "cette" ; --- là
+--  that_NP = mkNameNounPhrase ["ça"] Masc ;
+  therefore_PConj = ss "donc" ;
+--  these_NDet = mkDeterminerNum "ces" "ces" ; --- ci
+--  they_Pron = pronNounPhrase pronIls ;
+--  they8fem_Pron = pronNounPhrase pronElles ;
+--  this_Det = mkDeterminer singular (pre {"ce" ; "cet" / voyelle}) "cette" ; --- ci
+--  this_NP = mkNameNounPhrase ["ceci"] Masc ;
+--  those_NDet = mkDeterminerNum "ces" "ces" ; --- là
+  thou_Pron = mkPronoun 
+    "tu" (elision "t") (elision "t") "toi" "ton" (elisPoss "t") "tes"
+    Fem Sg P2 Clit1 ;
+  through_Prep = mkPreposition "par" ;
+  too_AdA = ss "trop" ;
+  to_Prep = complDat ;
+  under_Prep = mkPreposition "sous" ;
+  very_AdA = ss "très" ;
+--  want_VV = mkVerbVerbDir (verbPres (conj3vouloir "vouloir") AHabere) ;
+  we_Pron = 
+    mkPronoun "nous" "nous" "nous" "nous" "notre" "notre" "nos"
+    Fem Pl P1 Clit3 ;
+  whatSg_IP = {s = \\_ => "quoi" ; a = aagr Fem Sg} ;
+--  what8many_IP = intPronWhat plural ;
+  when_IAdv = ss "quand" ;
+  when_Subj = ss "quand" ** {m = Indic} ;
+  where_IAdv = ss "où" ;
+--  which8many_IDet = mkDeterminerNum "quels" "quelles" ** {n = Pl} ;
+--  which8one_IDet = quelDet ;
+  whoSg_IP = {s = \\_ => "qui" ; a = aagr Fem Sg} ;
+--  who8many_IP = intPronWho plural ;
+  why_IAdv = ss "pourquoi" ;
+  without_Prep = mkPreposition "sans" ;
+  with_Prep = mkPreposition "avec" ;
+  ye_Pron = 
+    mkPronoun
+      "vous" "vous" "vous" "vous" "votre" "votre" "vos"
+       Fem Pl P2 Clit3 ;
+  yes_Phr = ss "oui" ; --- si
+--  you_Pron = pronNounPhrase pronVous ;
+
+}
+
+
+{-
   lin
   above_Prep = ss "ovanför" ;
   after_Prep = ss "efter" ;
@@ -113,3 +221,4 @@ concrete StructuralFre of Structural = CatFre **
 
 }
 
+-}