mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -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
|
||||
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) ;
|
||||
|
||||
}
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
abstract ExtraRomanceAbs = Extra ** {
|
||||
abstract ExtraRomanceAbs = Cat, Extra[
|
||||
VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI] ** {
|
||||
|
||||
fun TPasseSimple : Tense ; --# notpresent
|
||||
|
||||
|
||||
Reference in New Issue
Block a user