Possessive constructor in Romance: un-record arguments to work around a PGF bug

This commit is contained in:
aarne
2008-09-09 13:11:08 +00:00
parent 7826a445b0
commit 6f9efe9373
7 changed files with 18 additions and 18 deletions

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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 ;

View File

@@ -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} ;

View File

@@ -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
} ; } ;

View File

@@ -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