mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-27 11:56:29 -06:00
implement UsePron
This commit is contained in:
@@ -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 ;
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user