forked from GitHub/gf-rgl
46 lines
1.2 KiB
Plaintext
46 lines
1.2 KiB
Plaintext
concrete SentenceBel of Sentence = CatBel ** open ResBel, (R = ParamX), Prelude in {
|
|
|
|
lin
|
|
PredVP np vp = {
|
|
s = \\t,p => np.s ! Nom ++ vp.s ! t ! p ! np.a
|
|
} ;
|
|
PredSCVP sc vp = {
|
|
s = \\t,p => sc.s ++ vp.s ! t ! p ! defaultAgr
|
|
} ;
|
|
|
|
SlashVP np vp = {
|
|
s = \\t,p => np.s ! Nom ++ vp.s ! t ! p ! np.a ++ vp.post ;
|
|
c = vp.c
|
|
} ;
|
|
AdvSlash cl adv = {
|
|
s = \\t,p => cl.s ! t ! p ++ adv.s ;
|
|
c = cl.c
|
|
} ;
|
|
SlashPrep cl prep = {
|
|
s = \\t,p => cl.s ! t ! p ++ prep.s ;
|
|
c = prep
|
|
} ;
|
|
SlashVS np vs ss = {
|
|
s = \\t,p => np.s ! Nom ++ finiteVerb vs t p np.a ++ ss.s ;
|
|
c = ss.c
|
|
} ;
|
|
|
|
ImpVP vp = {s = \\p,n => vp.imp ! p ! n} ;
|
|
AdvImp adv imp = {s = \\p,n => adv.s ++ imp.s ! p ! n} ;
|
|
|
|
EmbedS s = {s = "што" ++ s.s} ;
|
|
EmbedQS qs = {s = qs.s} ;
|
|
EmbedVP vp = {s = vp.inf} ;
|
|
|
|
UseCl temp pol cl = {s = temp.s ++ pol.s ++ cl.s ! temp.t ! pol.p} ;
|
|
UseQCl temp pol cl = {s = temp.s ++ pol.s ++ cl.s ! temp.t ! pol.p} ;
|
|
UseRCl temp pol cl = {s = cl.s ! temp.t ! pol.p} ;
|
|
UseSlash temp pol cl = {s = cl.s ! temp.t ! pol.p; c = cl.c} ;
|
|
|
|
AdvS adv s = {s = adv.s ++ s.s} ;
|
|
ExtAdvS adv s = {s = adv.s ++ s.s} ;
|
|
SSubjS s1 subj s2 = {s = s1.s ++ subj.s ++ s2.s} ;
|
|
RelS s rs = {s = s.s ++ rs.s} ;
|
|
|
|
}
|