romance interrogatives

This commit is contained in:
aarne
2006-12-13 10:48:21 +00:00
parent a970f40206
commit 491ea9c89e
7 changed files with 19 additions and 5 deletions

View File

@@ -139,6 +139,8 @@ instance DiffFre of DiffRomance = open CommonRomance, PhonoFre, Prelude in {
conjThan = elisQue ; conjThan = elisQue ;
conjThat = elisQue ; conjThat = elisQue ;
subjIf = "si" ; --- s'
clitInf _ cli inf = cli ++ inf ; clitInf _ cli inf = cli ++ inf ;
relPron : Bool => AAgr => Case => Str = \\b,a,c => relPron : Bool => AAgr => Case => Str = \\b,a,c =>
@@ -159,7 +161,7 @@ instance DiffFre of DiffRomance = open CommonRomance, PhonoFre, Prelude in {
quelPron : AAgr => Str = aagrForms "quel" "quelle" "quels" "quelles" ; quelPron : AAgr => Str = aagrForms "quel" "quelle" "quels" "quelles" ;
partQIndir = elision "c" ; partQIndir = [] ; --- only for qui,que: elision "c" ;
reflPron : Number -> Person -> Case -> Str = \n,p,c -> reflPron : Number -> Person -> Case -> Str = \n,p,c ->
let pron = argPron Fem n p c in let pron = argPron Fem n p c in

View File

@@ -281,3 +281,9 @@ work.)
The German resource implementation is considered complete, and it is released The German resource implementation is considered complete, and it is released
in the resource grammar version 1.0. in the resource grammar version 1.0.
--------------
13/12
When adding polite imperatives, have to change the lincat of Imp: ImpForm instead
of Number. But the required inflections exist already.

View File

@@ -128,6 +128,8 @@ instance DiffIta of DiffRomance = open CommonRomance, PhonoIta, BeschIta, Prelud
conjThan = "che" ; --- di conjThan = "che" ; --- di
conjThat = "che" ; conjThat = "che" ;
subjIf = "se" ;
clitInf b cli inf = inf ++ bindIf b ++ cli ; clitInf b cli inf = inf ++ bindIf b ++ cli ;
relPron : Bool => AAgr => Case => Str = \\b,a,c => relPron : Bool => AAgr => Case => Str = \\b,a,c =>
@@ -141,7 +143,7 @@ instance DiffIta of DiffRomance = open CommonRomance, PhonoIta, BeschIta, Prelud
quelPron : AAgr => Str = aagrForms "quale" "quale" "quali" "quali" ; quelPron : AAgr => Str = aagrForms "quale" "quale" "quali" "quali" ;
partQIndir = "ciò" ; partQIndir = [] ; --- "ciò" ;
reflPron : Number -> Person -> Case -> Str = reflPron : Number -> Person -> Case -> Str =
let let

View File

@@ -83,6 +83,8 @@ interface DiffRomance = open CommonRomance, Prelude in {
conjThan : Str ; conjThan : Str ;
conjThat : Str ; conjThat : Str ;
subjIf : Str ;
relPron : Bool => AAgr => Case => Str ; relPron : Bool => AAgr => Case => Str ;
pronSuch : AAgr => Str ; pronSuch : AAgr => Str ;

View File

@@ -10,7 +10,7 @@ incomplete concrete QuestionRomance of Question =
let cls = cl.s ! t ! a ! p let cls = cl.s ! t ! a ! p
in table { in table {
QDir => cls ! Indic ; QDir => cls ! Indic ;
QIndir => "si" ++ cls ! Indic ---- subjIf QIndir => subjIf ++ cls ! Indic
} }
} ; } ;

View File

@@ -93,6 +93,8 @@ instance DiffSpa of DiffRomance = open CommonRomance, PhonoSpa, BeschSpa, Prelud
conjThan = "que" ; conjThan = "que" ;
conjThat = "que" ; conjThat = "que" ;
subjIf = "si" ;
clitInf b cli inf = inf ++ bindIf b ++ cli ; clitInf b cli inf = inf ++ bindIf b ++ cli ;

View File

@@ -126,8 +126,8 @@ lin
when_IAdv = ss "cuando" ; when_IAdv = ss "cuando" ;
when_Subj = ss "cuando" ** {m = Indic} ; when_Subj = ss "cuando" ** {m = Indic} ;
where_IAdv = ss "donde" ; where_IAdv = ss "donde" ;
whichSg_IDet = {s = \\g,c => prepCase c ++ "cuale" ; n = Sg} ; whichSg_IDet = {s = \\g,c => prepCase c ++ "qué" ; n = Sg} ; --- cual
whichPl_IDet = {s = \\g,c => prepCase c ++ "cuales" ; n = Pl} ; whichPl_IDet = {s = \\g,c => prepCase c ++ "qué" ; n = Pl} ;
whoPl_IP = {s = \\c => prepCase c ++ "quién" ; a = aagr Masc Pl} ; whoPl_IP = {s = \\c => prepCase c ++ "quién" ; a = aagr Masc Pl} ;
whoSg_IP = {s = \\c => prepCase c ++ "quién" ; a = aagr Masc Sg} ; whoSg_IP = {s = \\c => prepCase c ++ "quién" ; a = aagr Masc Sg} ;
why_IAdv = ss "porqué" ; why_IAdv = ss "porqué" ;