mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-29 12:48:54 -06:00
Possessive constructor in Romance: un-record arguments to work around a PGF bug
This commit is contained in:
@@ -110,10 +110,10 @@ oper
|
|||||||
Aton Acc => le ;
|
Aton Acc => le ;
|
||||||
Aton (CPrep P_a) => lui ;
|
Aton (CPrep P_a) => lui ;
|
||||||
Aton q => prepCase q ++ Lui ; ---- GF bug with c or p!
|
Aton q => prepCase q ++ Lui ; ---- GF bug with c or p!
|
||||||
Poss {n = Sg ; g = Masc} => son ;
|
Poss Masc Sg => son ;
|
||||||
Poss {n = Sg ; g = Fem} => sa ;
|
Poss Fem Sg => sa ;
|
||||||
Poss {n = Pl ; g = Masc} => ses ;
|
Poss Masc Pl => ses ;
|
||||||
Poss {n = Pl ; g = Fem} => see
|
Poss Fem Pl => see
|
||||||
} ;
|
} ;
|
||||||
a = {g = g ; n = n ; p = p} ;
|
a = {g = g ; n = n ; p = p} ;
|
||||||
hasClit = True
|
hasClit = True
|
||||||
|
|||||||
@@ -169,9 +169,9 @@ oper
|
|||||||
Aton Acc => le ;
|
Aton Acc => le ;
|
||||||
Aton (CPrep P_de) => "en" ; --- hmm
|
Aton (CPrep P_de) => "en" ; --- hmm
|
||||||
Aton (CPrep _) => lui ;
|
Aton (CPrep _) => lui ;
|
||||||
Poss {n = Sg ; g = Masc} => son ;
|
Poss Masc Sg => son ;
|
||||||
Poss {n = Sg ; g = Fem} => sa ;
|
Poss Fem Sg => sa ;
|
||||||
Poss {n = Pl} => ses
|
Poss _ Pl => ses
|
||||||
} ;
|
} ;
|
||||||
a = {g = g ; n = n ; p = p} ;
|
a = {g = g ; n = n ; p = p} ;
|
||||||
hasClit = True
|
hasClit = True
|
||||||
|
|||||||
@@ -146,10 +146,10 @@ oper
|
|||||||
Aton (CPrep P_di) => "ne" ; --- hmm
|
Aton (CPrep P_di) => "ne" ; --- hmm
|
||||||
Aton (CPrep P_a) => lui ;
|
Aton (CPrep P_a) => lui ;
|
||||||
Aton q => prepCase q ++ Lui ; ---- GF bug with c or p!
|
Aton q => prepCase q ++ Lui ; ---- GF bug with c or p!
|
||||||
Poss {n = Sg ; g = Masc} => son ;
|
Poss Masc Sg => son ;
|
||||||
Poss {n = Sg ; g = Fem} => sa ;
|
Poss Fem Sg => sa ;
|
||||||
Poss {n = Pl ; g = Masc} => ses ;
|
Poss Masc Pl => ses ;
|
||||||
Poss {n = Pl ; g = Fem} => see
|
Poss Fem Pl => see
|
||||||
} ;
|
} ;
|
||||||
a = {g = g ; n = n ; p = p} ;
|
a = {g = g ; n = n ; p = p} ;
|
||||||
hasClit = True
|
hasClit = True
|
||||||
|
|||||||
@@ -53,7 +53,7 @@ interface DiffRomance = open CommonRomance, Prelude in {
|
|||||||
|
|
||||||
--2 Constants that must derivatively depend on language
|
--2 Constants that must derivatively depend on language
|
||||||
|
|
||||||
param NPForm = Ton Case | Aton Case | Poss {g : Gender ; n : Number} ; --- AAgr
|
param NPForm = Ton Case | Aton Case | Poss Gender Number ; --- AAgr
|
||||||
|
|
||||||
oper dative : Case ;
|
oper dative : Case ;
|
||||||
oper genitive : Case ;
|
oper genitive : Case ;
|
||||||
|
|||||||
@@ -79,7 +79,7 @@ incomplete concrete NounRomance of Noun =
|
|||||||
} ;
|
} ;
|
||||||
|
|
||||||
PossPron p = {
|
PossPron p = {
|
||||||
s = \\n,g,c => possCase g n c ++ p.s ! Poss (aagr g n) ---- il mio!
|
s = \\n,g,c => possCase g n c ++ p.s ! Poss g n ---- il mio!
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
NumSg = {s = \\_ => [] ; isNum = False ; n = Sg} ;
|
NumSg = {s = \\_ => [] ; isNum = False ; n = Sg} ;
|
||||||
|
|||||||
@@ -28,7 +28,7 @@ oper
|
|||||||
|
|
||||||
npform2case : NPForm -> Case = \p -> case p of {
|
npform2case : NPForm -> Case = \p -> case p of {
|
||||||
Ton x => x ;
|
Ton x => x ;
|
||||||
Poss _ => genitive ;
|
Poss _ _ => genitive ;
|
||||||
Aton x => x
|
Aton x => x
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|||||||
@@ -101,10 +101,10 @@ oper
|
|||||||
Aton Acc => le ;
|
Aton Acc => le ;
|
||||||
Aton (CPrep P_a) => lui ;
|
Aton (CPrep P_a) => lui ;
|
||||||
Aton q => prepCase q ++ Lui ; ---- GF bug with c or p!
|
Aton q => prepCase q ++ Lui ; ---- GF bug with c or p!
|
||||||
Poss {n = Sg ; g = Masc} => son ;
|
Poss Masc Sg => son ;
|
||||||
Poss {n = Sg ; g = Fem} => sa ;
|
Poss Fem Sg => sa ;
|
||||||
Poss {n = Pl ; g = Masc} => ses ;
|
Poss Masc Pl => ses ;
|
||||||
Poss {n = Pl ; g = Fem} => see
|
Poss Fem Pl => see
|
||||||
} ;
|
} ;
|
||||||
a = {g = g ; n = n ; p = p} ;
|
a = {g = g ; n = n ; p = p} ;
|
||||||
hasClit = True
|
hasClit = True
|
||||||
|
|||||||
Reference in New Issue
Block a user