forked from GitHub/gf-rgl
PassAgentVPSlash
This commit is contained in:
@@ -27,4 +27,14 @@ concrete ExtendTur of Extend = CatTur ** open ResTur, SuffixTur, Predef in {
|
|||||||
compl = []
|
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"
|
||||||
|
} ;
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user