implement UsePron

This commit is contained in:
Krasimir Angelov
2026-03-20 08:27:46 +01:00
parent 928889b2aa
commit 74848d304e
5 changed files with 14 additions and 13 deletions
+6 -6
View File
@@ -2,12 +2,12 @@ concrete VerbMkd of Verb = CatMkd ** open Prelude,ResMkd in {
lin ComplSlash vps np = {present = \\a,n,p => vps.present ! a ! n
! p
++ np.s;
aorist = \\n,p => vps.aorist ! n ! p ++ np.s;
imperfect = \\a,n,p => vps.imperfect ! a ! n ! p ++ np.s;
imperative = \\a,n => vps.imperative ! a ! n ++ np.s;
participle = {aorist = \\a,gn => vps.participle.aorist ! a ! gn ++ np.s;
perfect = \\a => vps.participle.perfect ! a ++ np.s}} ;
++ np.s ! RObj Acc ;
aorist = \\n,p => vps.aorist ! n ! p ++ np.s ! RObj Acc;
imperfect = \\a,n,p => vps.imperfect ! a ! n ! p ++ np.s ! RObj Acc;
imperative = \\a,n => vps.imperative ! a ! n ++ np.s ! RObj Acc;
participle = {aorist = \\a,gn => vps.participle.aorist ! a ! gn ++ np.s ! RObj Acc;
perfect = \\a => vps.participle.perfect ! a ++ np.s ! RObj Acc}} ;
lin SlashV2a v = v ;
}