support for aspectual verb pairs

This commit is contained in:
Krasimir Angelov
2024-11-01 07:45:59 +01:00
parent e8bda853df
commit 466c7da532
5 changed files with 646 additions and 323 deletions
+34 -1
View File
@@ -1559,11 +1559,44 @@ mkV = overload {
mkV : Str -> V = regV;
mkV : Str -> Str -> V = reg2V;
mkV : Str -> Str -> Str -> V = reg3V;
mkV : Str -> Str -> Str -> Str -> V = reg4V
mkV : Str -> Str -> Str -> Str -> V = reg4V ;
} ;
reflV : V -> V = \v -> v ** {isRefl=True} ;
dualV : V -> V -> V = \impf,perf -> lin V
{ present = table {
Imperfective => impf.present ! Imperfective ;
Perfective => perf.present ! Perfective
} ;
aorist = perf.aorist ;
imperfect = table {
Imperfective => impf.imperfect ! Imperfective ;
Perfective => perf.imperfect ! Perfective
} ;
Imperative = table {
Imperfective => impf.Imperative ! Imperfective ;
Perfective => perf.Imperative ! Perfective
} ;
participle = { aorist = table {
Imperfective => impf.participle.aorist ! Imperfective ;
Perfective => perf.participle.aorist ! Perfective
} ;
imperfect = impf.participle.imperfect ;
perfect = table {
Imperfective => impf.participle.perfect ! Imperfective ;
Perfective => perf.participle.perfect ! Perfective
} ;
adjectival = table {
Imperfective => impf.participle.adjectival ! Imperfective ;
Perfective => perf.participle.adjectival ! Perfective
} ;
adverbial = impf.participle.adverbial
} ;
noun_from_verb = impf.noun_from_verb ;
isRefl = impf.isRefl
} ;
mkV2 = overload {
mkV2 : V -> V2 = \v -> lin V2 v ** {c2=noPrep} ;
mkV2 : V -> Prep -> V2 = \v,p -> lin V2 v ** {c2=p} ;