msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

fixes in French morpho quiz grammar

Browse Source
This commit is contained in:
aarne
2010-09-28 16:52:48 +00:00
parent 31d0e84617
commit d85c491451
3 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
examples/morpho/Fre.gf
View File

@@ -12,7 +12,7 @@ cat
TMood ; Number ; Person ; NumPersI ; Gender ; Mood ;
fun
DAll : Word -> Display ;
-- DAll : Word -> Display ;
DForm : Word -> Form -> Display ;
VInfin : Form ;

4
examples/morpho/FreDescr.gf
View File

@@ -9,13 +9,13 @@ lincat
TMood, Number, Person, NumPersI, Gender, Mood = Str ;
lin
DAll w = w ++ ":" ++ "la conjugaison" ;
-- DAll w = w ++ ":" ++ "la conjugaison" ;
DForm w f = w ++ ":" ++ f ;
VInfin = "infinitif" ;
VFin m n p = m ++ n ++ p ;
VImper np = "imparfait" ++ np ;
VImper np = "impératif" ++ np ;
VPart g n = "participe passé" ++ g ++ n ;
VGer = "participe présent" ;

3
examples/morpho/FreReal.gf
View File

@@ -16,6 +16,7 @@ lincat
lin
-- display the same subset of forms as Petit Robert
{-
DAll w =
w ! R.VInfin True ++
w ! R.VFin (R.VPres R.Indic) R.Sg R.P1 ++
@@ -33,7 +34,7 @@ lin
w ! R.VImper R.PlP1 ++
w ! R.VGer ++
w ! R.VPart R.Masc R.Sg ;
-}
DForm w f = w ! f.v ++ f.s ; ---
VInfin = {s = [] ; v = R.VInfin True} ;