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

texts and idioms

Browse Source
This commit is contained in:
aarne
2006-02-20 14:52:37 +00:00
parent 4cd96c5d52
commit b6957f4e41
13 changed files with 80 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/resource-1.0/romance/ConjunctionRomance.gf
View File

@@ -34,12 +34,12 @@ incomplete concrete ConjunctionRomance of Conjunction =
BaseAdv = twoSS ;
ConsAdv = consrSS comma ;
BaseNP x y = {
s1 = \\c => x.s ! c ;
s1 = \\c => x.s ! stressedCase c ;
s2 = \\c => y.s ! (conjunctCase c) ;
a = conjAgr x.a y.a
} ;
ConsNP x xs = {
s1 = \\c => x.s ! c ++ comma ++ xs.s1 ! (conjunctCase c) ;
s1 = \\c => x.s ! stressedCase c ++ comma ++ xs.s1 ! (conjunctCase c) ;
s2 = \\c => xs.s2 ! (conjunctCase c) ;
a = conjAgr x.a xs.a
} ;

7
lib/resource-1.0/romance/ResRomance.gf
View File

@@ -39,6 +39,13 @@ oper
_ => Ton c
} ;
-- Pronouns in $NP$ lists are always in stressed forms.
stressedCase : NPForm -> NPForm = \c -> case c of {
Aton k => Ton k ;
_ => c
} ;
appCompl : Compl -> (NPForm => Str) -> Str = \comp,np ->
comp.s ++ np ! Ton comp.c ;

2
lib/resource-1.0/romance/SentenceRomance.gf
View File

@@ -26,7 +26,7 @@ incomplete concrete SentenceRomance of Sentence =
SlashVVV2 np vv v2 =
mkClause
(np.s ! Aton Nom) np.a
(insertComplement (\\a => prepCase vv.c2.c ++ v2.s ! VInfin) (predV v2)) **
(insertComplement (\\a => prepCase vv.c2.c ++ v2.s ! VInfin) (predV v2)) **
{c2 = v2.c2} ;
AdvSlash slash adv = {