mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 19:42:50 -06:00
simple VPI in romance
This commit is contained in:
@@ -1,8 +1,21 @@
|
|||||||
incomplete concrete ExtraRomance of ExtraRomanceAbs = CatRomance **
|
incomplete concrete ExtraRomance of ExtraRomanceAbs = CatRomance **
|
||||||
open
|
open
|
||||||
CommonRomance,
|
CommonRomance,
|
||||||
|
Coordination,
|
||||||
ResRomance in {
|
ResRomance in {
|
||||||
|
|
||||||
lin TPasseSimple = {s = []} ** {t = RPasse} ; --# notpresent
|
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) ;
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,4 +1,5 @@
|
|||||||
abstract ExtraRomanceAbs = Extra ** {
|
abstract ExtraRomanceAbs = Cat, Extra[
|
||||||
|
VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI] ** {
|
||||||
|
|
||||||
fun TPasseSimple : Tense ; --# notpresent
|
fun TPasseSimple : Tense ; --# notpresent
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user