GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 19:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

webalt fixes

Browse Source
This commit is contained in:
aarne
2005-11-04 15:54:12 +00:00
parent b59faa21df
commit 4f6afbab98
5 changed files with 36 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1039,14 +1039,22 @@ oper
{s1,s2 : CaseA => Str ; g : PronGen ; n : Number ; p : Person} ;
twoNounPhrase : (_,_ : NounPhrase) -> ListNounPhrase = \x,y ->
{s1 = \\c => x.s ! stressed c ; s2 = \\c => y.s ! stressed c} **
{s1 = \\c => x.s ! stressed c ;
s2 = \\c => y.s ! stressed (conjunctCase c)} **
{n = conjNumber x.n y.n ; g = conjGender x.g y.g ; p = conjPers x.p y.p} ;
consNounPhrase : ListNounPhrase -> NounPhrase -> ListNounPhrase = \xs,x ->
{s1 = \\c => xs.s1 ! c ++ CO.comma ++ xs.s2 ! c ;
s2 = \\c => x.s ! stressed c} **
{s1 = \\c => xs.s1 ! c ++ CO.comma ++ xs.s2 ! conjunctCase c ;
s2 = \\c => x.s ! stressed (conjunctCase c)} **
{n = conjNumber xs.n x.n ; g = conjGender xs.g x.g ; p =conjPers xs.p x.p} ;
-- French says "la somme de x et de y" whereas
-- Italian says "la somma di x e y" and similarly for Spanish.
conjunctCase : CaseA -> CaseA ;
-- conjunctCase c = nominative ; -- Spanish, Italian
-- conjunctCase c = c ; -- French
conjunctNounPhrase : Conjunction -> ListNounPhrase -> NounPhrase = \co,xs ->
{s = \\c => xs.s1 ! pform2case c ++ co.s ++ xs.s2 ! pform2case c} **
{n = conjNumber co.n xs.n ; g = xs.g ; p = xs.p ; c = Clit0 } ;