French working, but only in the old size.

1 files changed, 34 insertions, 0 deletions

diff --git a/grammars/resource/french/TestFra.gf b/grammars/resource/french/TestFra.gf
new file mode 100644
index 000000000..7193a6d5c
--- /dev/null
+++ b/grammars/resource/french/TestFra.gf
@@ -0,0 +1,34 @@
+--# -path=.:../romance:../abstract:../../prelude
+
+concrete TestFra of TestAbs = ResFra ** open Prelude, TypesFra, MorphoFra, SyntaxFra in {
+
+flags startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
+
+lin
+  Big = mkAdjDegrReg "grand" adjPre ;
+  Small = mkAdjDegrReg "petit" adjPre ;
+  Old = mkAdjDegrLong (mkAdj "vieux" "vieux" "vieille") adjPre ;
+  Young = mkAdjDegrLong (adjJeune "jeune") adjPre ;
+  Man = mkCNomReg "homme" Masc ;
+  Woman = mkCNomReg "femme" Fem ;
+  Car = mkCNomReg "voiture" Fem ;
+  Light = mkCNomReg "lumière" Fem ;
+  House = mkCNomReg "maison" Fem ;
+  Walk = verbPres (conj1aimer "marcher") ;
+  Run = verbPres (conj3courir "courir") ;
+  Send = mkTransVerbDir (verbPres (conj1envoyer "envoyer")) ;
+  Love = mkTransVerbDir (verbPres (conj1aimer "aimer")) ;
+  Wait = mkTransVerbDir (verbPres (conj3rendre "attendre")) ;
+  Say = verbSent (verbPres (conj3dire "dire")) Ind Ind ;
+  Prove = verbSent (verbPres (conj1aimer "démontrer")) Ind Ind ;
+  SwitchOn = mkTransVerbDir (verbPres (conj1aimer "allumer")) ; 
+  SwitchOff = mkTransVerbDir (verbPres (conj3peindre "éteindre")) ;
+  Mother = funDe (mkCNomReg "mère" Fem) ;
+  Uncle = funDe (mkCNomReg "oncle" Masc) ;
+
+  Well = ss "bien" ;
+  Always = ss "toujours" ;
+  
+  John = mkProperName "Jean" Masc ;
+  Mary = mkProperName "Marie" Fem ;
+}