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

French close to complete; reported on regexp bindings

Browse Source
This commit is contained in:
aarne
2006-01-23 16:38:42 +00:00
parent 10b56c81ed
commit dee140e107
11 changed files with 127 additions and 94 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
resource-1.0/romance/ResRomance.gf
View File

@@ -10,9 +10,6 @@ param
NPForm = Ton Case | Aton Case | Poss {g : Gender ; n : Number} ; --- AAgr
RelForm = RSimple Case | RComplex Gender Number Case ;
oper
nominative : Case = Nom ;
@@ -44,11 +41,6 @@ oper
_ => Ton c
} ;
npRelForm : NPForm -> RelForm = \np -> case np of {
Ton c => RSimple c ;
Aton c => RSimple c ;
Poss _ => RSimple genitive
} ;
appCompl : Compl -> (NPForm => Str) -> Str = \comp,np ->
comp.s ++ np ! Ton comp.c ;