forked from GitHub/gf-rgl
50 lines
1.0 KiB
Plaintext
50 lines
1.0 KiB
Plaintext
-- SentenceMlt.gf: clauses and sentences
|
|
--
|
|
-- Maltese GF Resource Grammar
|
|
-- John J. Camilleri 2011 -- 2013
|
|
-- Angelo Zammit 2012
|
|
-- Licensed under LGPL
|
|
|
|
--# -path=.:abstract:common:prelude
|
|
|
|
concrete SentenceMlt of Sentence = CatMlt ** open
|
|
Prelude,
|
|
ResMlt,
|
|
ParamX,
|
|
CommonX in {
|
|
|
|
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 ;
|
|
} ;
|
|
} ;
|
|
|
|
-- Temp -> Polarity -> Cl -> S
|
|
UseCl t p cl = {
|
|
s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p
|
|
} ;
|
|
|
|
-- Cl
|
|
-- Imp
|
|
-- QS
|
|
-- RS
|
|
-- S
|
|
-- SC
|
|
-- SSlash
|
|
|
|
}
|