GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-30 21:28:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

French conj

Browse Source
This commit is contained in:
aarne
2006-01-23 10:54:49 +00:00
parent 5c50cbe5ca
commit 29b47a37c9
7 changed files with 41 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/resource-1.0/romance/NounRomance.gf
View File

@@ -19,7 +19,8 @@ incomplete concrete NounRomance of Noun =
UsePron p = p ;
PredetNP pred np = {
s = \\c => pred.s ! np.a ! npform2case c ++ np.s ! case2npform pred.c ;
s = \\c => pred.s ! aagr (np.a.g) (np.a.n) ! npform2case c ++ --- subtype
np.s ! case2npform pred.c ;
a = np.a ;
c = Clit0
} ;
@@ -48,12 +49,12 @@ incomplete concrete NounRomance of Noun =
NumInt n = {s = \\_ => n.s} ;
OrdInt n = {s = \\_ => n.s ++ "ème"} ; ---
---- NumNumeral numeral = {s = \\g => numeral.s ! NCard g ; isDet = True} ;
---- OrdNumeral numeral = {s = numeral.s ! NOrd SupWeak ; isDet = True} ;
NumNumeral numeral = {s = \\g => numeral.s ! NCard g} ;
OrdNumeral numeral = {s = \\a => numeral.s ! NOrd a.g a.n} ;
AdNum adn num = {s = \\a => adn.s ++ num.s ! a} ;
---- OrdSuperl a = {s = a.s ! AF (ASuperl SupWeak) Nom ; isDet = True} ;
OrdSuperl adj = {s = \\a => adj.s ! Superl ! AF a.g a.n} ;
DefSg = {
s = \\g,c => artDef g Sg c ;