forked from GitHub/gf-core
Maltese: new reduced verb implementation, using binding for pronominal suffixes
Also include some syntax stuff adapted from Angelo Zammit's dissertation.
These sections in the code are marked with [AZ]
The old verbs implementation can still be found at this point in the GitHub repo:
7b3f4a049d
This commit is contained in:
@@ -7,6 +7,28 @@
|
||||
concrete VerbMlt of Verb = CatMlt ** open Prelude, ResMlt in {
|
||||
flags optimize=all_subs ;
|
||||
|
||||
lin
|
||||
-- V -> VP ;
|
||||
UseV = predV ;
|
||||
|
||||
-- V2 -> VPSlash
|
||||
SlashV2a = predV ;
|
||||
|
||||
-- VPSlash -> NP -> VP
|
||||
ComplSlash vp np =
|
||||
case np.isPron of {
|
||||
-- Join pron to verb
|
||||
True => {
|
||||
s = \\vpf,ant,pol =>
|
||||
let bits = vp.s ! vpf ! ant ! pol in
|
||||
mkVParts (glue bits.stem (np.s ! CPrep)) bits.pol ;
|
||||
s2 = \\agr => [] ;
|
||||
} ;
|
||||
|
||||
-- Insert obj to VP
|
||||
_ => insertObj (\\agr => np.s ! CPrep) vp
|
||||
} ;
|
||||
|
||||
-- Comp
|
||||
-- VP
|
||||
-- VPSplash
|
||||
|
||||
Reference in New Issue
Block a user