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

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

View File

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