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

needed for Sevilla lights

Browse Source
This commit is contained in:
aarne
2004-12-10 11:24:42 +00:00
parent a3b75f842f
commit bb5c5066bd
20 changed files with 663 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -407,6 +407,11 @@ oper
VPF _ f => nombreVerb f
} ;
isNotImperative : VPForm -> Bool = \v -> case v of {
VPF _ (VImper _) => False ;
_ => True
} ;
-- Predication is language-dependent in the negative case.
predVerb : Verb -> VerbGroup = \aller ->
@@ -520,7 +525,7 @@ oper
Jean = jean.s ! (case2pformClit aime.c) ;
AAime = formVerb2 aime g w ;
A = AAime.verb ;
clit = (andB (isNounPhraseClit jean) (isTransVerbClit aime)) ;
clit = (andB (isNounPhraseClit jean) (andB (isTransVerbClit aime) (isNotImperative w))) ;
Aime = if_then_Str clit
(AAime.part ! pgen2gen jean.g ! jean.n)
(AAime.part ! Masc ! Sg)