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

towards LangFre

Browse Source
This commit is contained in:
aarne
2005-02-15 16:33:08 +00:00
parent fa87001298
commit 12f3fab00e
10 changed files with 1228 additions and 771 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/resource/romance/SyntaxRomance.gf
View File

@@ -256,14 +256,14 @@ oper
superlNounPhrase : AdjDegr -> CommNoun -> NounPhrase = \bon, mec ->
normalNounPhrase
(\\c => artDef mec.g Sg c ++ if_then_else Str bon.p
(bon.s ! Sup ! AF mec.g Sg ++ mec.s ! Sg)
(mec.s ! Sg ++ artDef mec.g Sg nominative ++ bon.s ! Sup ! AF mec.g Sg)
(bon.s ! Comp ! AF mec.g Sg ++ mec.s ! Sg)
(mec.s ! Sg ++ artDef mec.g Sg nominative ++ bon.s ! Comp ! AF mec.g Sg)
)
mec.g
Sg ;
superlAdjPhrase : AdjDegr -> AdjPhrase = \bon ->
{s = \\a => artDef (genAForm a) (numAForm a) nominative ++ bon.s ! Sup ! a ;
{s = \\a => artDef (genAForm a) (numAForm a) nominative ++ bon.s ! Comp ! a ;
p = bon.p
} ;

2
lib/resource/romance/TypesRomance.gf
View File

@@ -19,7 +19,7 @@ param
Gender = Masc | Fem ;
Person = P1 | P2 | P3 ;
Mode = Ind | Con ;
Degree = Pos | Comp | Sup ;
Degree = Pos | Comp ;
-- The case must be made an abstract type, since it varies from language to
-- language. The same concerns those parameter types that depend on case.