mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-21 01:06:21 -06:00
38 lines
975 B
Plaintext
38 lines
975 B
Plaintext
--# -path=.:../translator
|
|
|
|
concrete TransEng of Trans =
|
|
RGLBaseEng - [Pol]
|
|
,PredEng
|
|
,DictionaryEng - [Pol]
|
|
|
|
** open ResEng, Prelude in {
|
|
|
|
lin
|
|
LiftV v = v ** {v = v.s ; c1,c2 = [] ; isSubjectControl, isAux = False} ;
|
|
LiftV2 v = v ** {v = v.s ; c1 = v.c2 ; c2 = [] ; isSubjectControl, isAux = False} ;
|
|
LiftVS v = v ** {v = v.s ; c1,c2 = [] ; isSubjectControl, isAux = False} ;
|
|
|
|
LiftAP ap = {s = \\_ => ap.s ! AgP3Sg Neutr ; c1,c2 = [] ; obj1 = \\_ => []} ; --- agr, isPre
|
|
|
|
LiftAdv a = a ** {isAdV = False} ;
|
|
LiftAdV a = a ** {isAdV = True} ;
|
|
|
|
|
|
{-
|
|
LiftV2 : V2 -> PrV (aNP aNone) ;
|
|
LiftVS : VS -> PrV aS ;
|
|
LiftVQ : VQ -> PrV aQ ;
|
|
LiftVV : VV -> PrV aV ;
|
|
LiftVA : VA -> PrV aA ;
|
|
LiftVN : VA -> PrV aN ; ----
|
|
|
|
LiftV3 : V3 -> PrV (aNP (aNP aNone)) ;
|
|
LiftV2S : V2S -> PrV (aNP aS) ;
|
|
LiftV2Q : V2Q -> PrV (aNP aQ) ;
|
|
LiftV2V : V2V -> PrV (aNP aV) ;
|
|
LiftV2A : V2A -> PrV (aNP aA) ;
|
|
LiftV2N : V2A -> PrV (aNP aN) ; ----
|
|
-}
|
|
|
|
}
|