From c3e5526cb66e073e0788f08876a52b15a297c6e9 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 8 Nov 2006 20:17:24 +0000 Subject: [PATCH] simple VPI in romance --- resource-1.0/romance/ExtraRomance.gf | 15 ++++++++++++++- resource-1.0/romance/ExtraRomanceAbs.gf | 3 ++- 2 files changed, 16 insertions(+), 2 deletions(-) diff --git a/resource-1.0/romance/ExtraRomance.gf b/resource-1.0/romance/ExtraRomance.gf index d00d0462..cd70f2c0 100644 --- a/resource-1.0/romance/ExtraRomance.gf +++ b/resource-1.0/romance/ExtraRomance.gf @@ -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) ; + } diff --git a/resource-1.0/romance/ExtraRomanceAbs.gf b/resource-1.0/romance/ExtraRomanceAbs.gf index 53bfbe5f..6a640347 100644 --- a/resource-1.0/romance/ExtraRomanceAbs.gf +++ b/resource-1.0/romance/ExtraRomanceAbs.gf @@ -1,4 +1,5 @@ -abstract ExtraRomanceAbs = Extra ** { +abstract ExtraRomanceAbs = Cat, Extra[ + VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI] ** { fun TPasseSimple : Tense ; --# notpresent