simple VPI in romance

This commit is contained in:
aarne
2006-11-08 20:17:24 +00:00
parent 1093d0a8d5
commit c8eb85292c
2 changed files with 16 additions and 2 deletions

View File

@@ -1,8 +1,21 @@
incomplete concrete ExtraRomance of ExtraRomanceAbs = CatRomance **
incomplete concrete ExtraRomance of ExtraRomanceAbs = CatRomance **
open
CommonRomance,
Coordination,
ResRomance in {
lin TPasseSimple = {s = []} ** {t = RPasse} ; --# notpresent
lincat
VPI = {s : Str} ;
[VPI] = {s1,s2 : Str} ;
lin
BaseVPI = twoSS ;
ConsVPI = consrSS comma ;
MkVPI vp = {s = infVP vp (agrP3 Masc Sg)} ;
ConjVPI = conjunctSS ;
ComplVPIVV v vpi =
insertComplement (\\a => prepCase v.c2.c ++ vpi.s) (predV v) ;
}

View File

@@ -1,4 +1,5 @@
abstract ExtraRomanceAbs = Extra ** {
abstract ExtraRomanceAbs = Cat, Extra[
VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI] ** {
fun TPasseSimple : Tense ; --# notpresent