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,7 +7,6 @@
|
||||
--# -path=.:abstract:common:prelude
|
||||
|
||||
concrete SentenceMlt of Sentence = CatMlt ** open
|
||||
ResMlt,
|
||||
Prelude,
|
||||
ResMlt,
|
||||
ParamX,
|
||||
@@ -15,6 +14,24 @@ concrete SentenceMlt of Sentence = CatMlt ** open
|
||||
|
||||
flags optimize=all_subs ;
|
||||
|
||||
lin
|
||||
-- NP -> VP -> Cl
|
||||
-- John walks
|
||||
PredVP np vp = {
|
||||
s = \\tense,ant,pol => (s ++ v ++ o)
|
||||
where {
|
||||
s = case np.isPron of {
|
||||
True => [] ; -- omit subject pronouns
|
||||
False => np.s ! Nom
|
||||
} ;
|
||||
v = joinVParts (vp.s ! VPIndicat tense (toVAgr np.a) ! ant ! pol) ;
|
||||
o = vp.s2 ! np.a ;
|
||||
-- s = if_then_Str np.isPron [] (np.s ! Nom) ; -- omit subject pronouns
|
||||
-- v = joinVParts (vp.s ! VPIndicat tense (toVAgr np.a) ! ant ! pol) ;
|
||||
-- o = vp.s2 ! np.a ;
|
||||
} ;
|
||||
} ;
|
||||
|
||||
-- Cl
|
||||
-- Imp
|
||||
-- QS
|
||||
|
||||
Reference in New Issue
Block a user