forked from GitHub/gf-rgl
75 lines
2.0 KiB
Plaintext
75 lines
2.0 KiB
Plaintext
--# -path=.:abstract:common:prelude
|
|
|
|
concrete SentenceAra of Sentence = CatAra ** open
|
|
ResAra,
|
|
Prelude,
|
|
ResAra,
|
|
TenseX,
|
|
ParamX,
|
|
CommonX in {
|
|
|
|
|
|
flags optimize=all_subs ; coding=utf8 ;
|
|
|
|
lin
|
|
|
|
PredVP = predVP ;
|
|
|
|
ImpVP vp = {
|
|
s = \\p,g,n =>
|
|
case p of {
|
|
Pos => vp.s ! Per2 g n ! VPImp ;
|
|
Neg => "لَا" ++ vp.s ! Per2 g n ! VPImpf Jus
|
|
} ++ vp.obj.s ++ vp.pred.s ! {g=g;n=n} ! Acc ++ vp.s2
|
|
};
|
|
|
|
--
|
|
-- SlashV2 np v2 =
|
|
-- mkClause (np.s ! Nom) np.a (predV v2) ** {c2 = v2.c2} ;
|
|
--
|
|
-- SlashVVV2 np vv v2 =
|
|
-- mkClause (np.s ! Nom) np.a
|
|
-- (insertObj (\\a => infVP vv.isAux (predV v2) a) (predVV vv)) **
|
|
-- {c2 = v2.c2} ;
|
|
|
|
-- ClSlash
|
|
|
|
SlashVP = predVPSlash ;
|
|
AdvSlash slash adv = slash ** { s2 = slash.s2 ++ adv.s } ;
|
|
|
|
-- : Cl -> Prep -> ClSlash
|
|
-- SlashPrep cl prep = TODO
|
|
|
|
-- SlashVS np vs sslash = TODO
|
|
|
|
EmbedS s = {s = "مَا" ++ s.s ! Verbal} ;
|
|
EmbedQS qs = {s = qs.s ! QIndir} ;
|
|
EmbedVP vp = {s = uttVP VPPerf vp ! Masc} ; -- TODO: use VPGer once it's more stable
|
|
|
|
UseCl t p cl =
|
|
{s = \\o => t.s ++ p.s ++
|
|
case <t.t,t.a> of { --- IL guessed tenses
|
|
<Pres,Simul> => cl.s ! Pres ! p.p ! o ;
|
|
<Pres,Anter> => cl.s ! Past ! p.p ! o ;
|
|
<x ,_ > => cl.s ! x ! p.p ! o
|
|
}
|
|
};
|
|
|
|
UseQCl t p qcl =
|
|
{s = \\q => t.s ++ p.s ++
|
|
case <t.t,t.a> of { --- IL guessed tenses
|
|
<Pres,Simul> => qcl.s ! Pres ! p.p ! q ;
|
|
<Pres,Anter> => qcl.s ! Past ! p.p ! q ;
|
|
<x ,_ > => qcl.s ! x ! p.p ! q
|
|
}
|
|
};
|
|
|
|
UseRCl t p cl = {s = \\agr,c => t.s ++ p.s ++ cl.s ! t.t ! p.p ! agr ! c} ;
|
|
|
|
-- If the cls has a c2, the preposition will just hang there without an object.
|
|
-- If this bothers you, call complClSlash to cls ** {c2=noPrep}. /IL
|
|
UseSlash t p cls = UseCl t p (complClSlash cls) ;
|
|
|
|
AdvS adv s = s ** {s = \\o => adv.s ++ s.s ! o} ;
|
|
}
|