1
0
forked from GitHub/gf-rgl

PassAgentVPSlash

This commit is contained in:
Krasimir Angelov
2024-07-25 18:41:34 +02:00
parent 4173353eb0
commit ca385925b6

View File

@@ -27,4 +27,14 @@ concrete ExtendTur of Extend = CatTur ** open ResTur, SuffixTur, Predef in {
compl = []
} ;
PassAgentVPSlash vps np = {
s = mkVerbForms {
s = vps.stems ! VPass ++ BIND ++ suffixStr vps.h infinitiveSuffix ;
stems = \\_ => vps.stems ! VPass ;
aoristType = vps.aoristType ;
h = vps.h ;
} ;
compl = np.s ! Acc ++ "tarafından"
} ;
}