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

middle polarity for French in Romance (for "personne ne dort")

Browse Source
This commit is contained in:
aarne
2012-05-27 12:55:32 +00:00
parent 25435a6912
commit bc522704cd
27 changed files with 88 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/italian/CatIta.gf
View File

@@ -1,4 +1,4 @@
--# -path=.:../romance:../abstract:../common:prelude
concrete CatIta of Cat = CommonX - [SC,Temp,TTAnt,Tense,TPres,TPast,TFut,TCond] ** CatRomance with
concrete CatIta of Cat = CommonX - [SC,Temp,TTAnt,Tense,TPres,TPast,TFut,TCond,Pol] ** CatRomance with
(ResRomance = ResIta) ;

8
lib/src/italian/DiffIta.gf
View File

@@ -115,7 +115,7 @@ instance DiffIta of DiffRomance = open CommonRomance, PhonoIta, BeschIta, Prelud
agr = {g = g ; n = n ; p = pe} ;
clpr = <vp.clit1 ++ vp.clit2,[],False> ; ---- TODO: True is clit
verb = case <n,pol,pe> of {
<Sg,Neg,P2> => vp.s.s ! VInfin clpr.p3 ; ---- ! aag ;
<Sg,RNeg False,P2> => vp.s.s ! VInfin clpr.p3 ; ---- ! aag ;
_ => vp.s.s ! vImper n pe
} ;
neg = vp.neg ! pol ;
@@ -124,9 +124,9 @@ instance DiffIta of DiffRomance = open CommonRomance, PhonoIta, BeschIta, Prelud
neg.p1 ++ verb ++ bindIf clpr.p3 ++ clpr.p1 ++ compl ;
---- TODO non mi mangi
negation : Polarity => (Str * Str) = table {
Pos => <[],[]> ;
Neg => <"non",[]>
negation : RPolarity => (Str * Str) = table {
RPos => <[],[]> ;
RNeg _ => <"non",[]>
} ;
conjThan = "di" ; --- che

2
lib/src/italian/GrammarIta.gf
View File

@@ -11,7 +11,7 @@ concrete GrammarIta of Grammar =
RelativeIta,
ConjunctionIta,
PhraseIta,
TextX - [SC,Temp,Tense],
TextX - [SC,Temp,Tense,Pol,PPos,PNeg],
IdiomIta,
StructuralIta,
TenseIta

4
lib/src/italian/IdiomIta.gf
View File

@@ -37,14 +37,14 @@ concrete IdiomIta of Idiom = CatIta **
(\\agr =>
let
clpr = <[],[],False> ; ----e pronArg agr.n agr.p vp.clAcc vp.clDat ;
obj = clpr.p2 ++ vp.comp ! agr ++ vp.ext ! Pos ---- pol
obj = clpr.p2 ++ vp.comp ! agr ++ vp.ext ! RPos ---- pol
in
vp.s.s ! VGer ++ clpr.p1 ++ obj
)
(predV (essereV (verboV (stare_16 "stare")))) ;
ImpPl1 vp = {s =
mkImperative False P1 vp ! Pos ! Masc ! Pl --- fem
mkImperative False P1 vp ! RPos ! Masc ! Pl --- fem
} ;
}

2
lib/src/italian/TenseIta.gf
View File

@@ -1,3 +1,3 @@
concrete TenseIta of Tense = CatIta, TenseX [Ant,Pol,AAnter,ASimul,PNeg,PPos] **
concrete TenseIta of Tense = CatIta, TenseX [Ant,AAnter,ASimul] **
TenseRomance with
(ResRomance = ResIta) ;