GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-29 04:38:55 -06:00
Code Issues Packages Projects Releases Wiki 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
} ;