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

italian and spanish polite imperatives

Browse Source
This commit is contained in:
aarne
2006-12-14 10:46:38 +00:00
parent 7d6c6a52cd
commit c9f3540395
10 changed files with 23 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/resource-1.0/spanish/DiffSpa.gf
View File

@@ -75,12 +75,13 @@ instance DiffSpa of DiffRomance = open CommonRomance, PhonoSpa, BeschSpa, Prelud
_ => <pdatp.p1 ++ paccp.p1, [],orB paccp.p3 pdatp.p3>
} ;
mkImperative p vp = {
mkImperative b p vp = {
s = \\pol,aag =>
let
agr = aag ** {p = p} ;
verb = case <aag.n, pol> of {
<Sg,Neg> => (vp.s ! VPFinite (VPres Conjunct) Simul).fin ! agr ;
pe = case b of {True => P3 ; _ => p} ;
agr = aag ** {p = pe} ;
verb = case <aag.n, pol, pe> of {
<Sg,Neg,P2> => (vp.s ! VPFinite (VPres Conjunct) Simul).fin ! agr ;
_ => (vp.s ! VPImperat).fin ! agr
} ;
neg = vp.neg ! pol ;

2
lib/resource-1.0/spanish/IdiomSpa.gf
View File

@@ -37,7 +37,7 @@ concrete IdiomSpa of Idiom = CatSpa **
(predV (verboV (estar_2 "estar"))) ;
ImpPl1 vp = {s =
(mkImperative P1 vp).s ! Pos ! {n = Pl ; g = Masc} --- fem
(mkImperative False P1 vp).s ! Pos ! {n = Pl ; g = Masc} --- fem
} ;
}

2
lib/resource-1.0/spanish/StructuralSpa.gf
View File

@@ -147,7 +147,7 @@ lin
mkPronoun
"usted" "la" "le" "usted"
"su" "su" "sus" "sus"
Masc Pl P2 ;
Masc Sg P3 ;
oper
etConj : {s : Str ; n : Number} = {s = pre {