diff options
Diffstat (limited to 'old-lib/resource/arabic/VerbAra.gf')
| -rw-r--r-- | old-lib/resource/arabic/VerbAra.gf | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/old-lib/resource/arabic/VerbAra.gf b/old-lib/resource/arabic/VerbAra.gf deleted file mode 100644 index 95e386d35..000000000 --- a/old-lib/resource/arabic/VerbAra.gf +++ /dev/null @@ -1,44 +0,0 @@ -concrete VerbAra of Verb = CatAra ** open Prelude, ResAra in { - - flags optimize=all_subs ; - - lin - UseV = predV ; - - SlashV2a v = predV v ** {c2 = v.c2}; - - ComplSlash vp np = insertObj np vp ; - --- ComplV3 v np np2 = insertObj np2 (insertObj np (predV v)) ; - -{-{s = \\_ => v.c2 ++ np.s ! Acc ++ v.c3 ++ np2.s ! Acc ; - a = {pgn = Per3 Masc Sg ; isPron = False} } --FIXME - (predV v) ;-} --- --- ComplVV v vp = insertObj (\\a => infVP v.isAux vp a) (predVV v) ; --- --- ComplVS v s = insertObj (\\_ => conjThat ++ s.s) (predV v) ; --- ComplVQ v q = insertObj (\\_ => q.s ! QIndir) (predV v) ; --- --- ComplVA v ap = insertObj (ap.s) (predV v) ; --- ComplV2A v np ap = --- insertObj (\\_ => v.c2 ++ np.s ! Acc ++ ap.s ! np.a) (predV v) ; --- - UseComp xabar = kaan xabar ; - - AdvVP vp adv = insertStr adv.s vp ; - --- AdVVP adv vp = insertAdV adv.s vp ; --- --- ReflV2 v = insertObj (\\a => v.c2 ++ reflPron ! a) (predV v) ; --- --- PassV2 v = insertObj (\\_ => v.s ! VPPart) (predAux auxBe) ; --- - -- UseVS, UseVQ = \vv -> {s = vv.s ; c2 = [] ; isRefl = vv.isRefl} ; -- no "تْ" --- - CompAP ap = {s = \\agr,c => ap.s ! Hum ! agr.g ! agr.n ! Indef ! c} ; --FIXME - CompNP np = {s = \\_,c => np.s ! c}; --- CompAdv a = {s = \\_ => a.s} ; --- --- -} |
