mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-18 01:09:32 -06:00
107 lines
3.4 KiB
Plaintext
107 lines
3.4 KiB
Plaintext
--# -path=.:../abstract:../common:../prelude
|
|
|
|
concrete SentenceLav of Sentence = CatLav ** open
|
|
ResLav,
|
|
VerbLav,
|
|
Prelude
|
|
in {
|
|
|
|
flags
|
|
optimize = all_subs ;
|
|
coding = utf8 ;
|
|
|
|
lin
|
|
-- NP -> VP -> Cl
|
|
PredVP np vp = mkClause np vp ;
|
|
|
|
PredSCVP sc vp = mkClauseSC sc vp ;
|
|
|
|
ImpVP vp = { s = \\pol,num => vp.v.s ! pol ! (VImp num) ++ vp.compl ! (AgrP2 num Masc) } ;
|
|
|
|
SlashVP np vp = mkClause np vp ** { prep = vp.rightVal } ;
|
|
|
|
AdvSlash slash adv = {
|
|
s = \\m,p => slash.s ! m ! p ++ adv.s ;
|
|
prep = slash.prep
|
|
} ;
|
|
|
|
SlashPrep cl prep = cl ** { prep = prep } ;
|
|
|
|
-- NP -> VS -> SSlash -> ClSlash
|
|
-- e.g. '(whom) she says that he loves'
|
|
SlashVS np vs sslash = mkClause
|
|
np
|
|
(lin VP {
|
|
v = vs ;
|
|
compl = \\_ => "," ++ vs.conj.s ++ sslash.s ;
|
|
voice = Act ;
|
|
leftVal = vs.leftVal ;
|
|
rightAgr = AgrP3 Sg Masc ;
|
|
rightPol = Pos ;
|
|
objPron = False
|
|
}) ** { prep = sslash.prep } ;
|
|
|
|
-- ComplVS v s = { v = v ; compl = \\_ => "," ++ v.subj.s ++ s.s } ;
|
|
|
|
-- TODO: nočekot kāpēc te ir tieši 'ka'
|
|
EmbedS s = { s = "ka" ++ s.s } ;
|
|
|
|
EmbedQS qs = { s = qs.s } ;
|
|
|
|
-- FIXME: vai agr ir Pl?
|
|
EmbedVP vp = { s = buildVP vp Pos VInf (AgrP3 Pl Masc) } ;
|
|
|
|
UseCl t p cl = { s = t.s ++ p.s ++ cl.s ! (Ind t.a t.t) ! p.p } ;
|
|
UseQCl t p cl = { s = t.s ++ p.s ++ cl.s ! (Ind t.a t.t) ! p.p } ;
|
|
|
|
UseRCl t p cl =
|
|
{ s = \\ag => t.s ++ p.s ++ cl.s ! (Ind t.a t.t) ! p.p ! ag }
|
|
| { s = \\ag => t.s ++ p.s ++ cl.s ! (Rel t.a t.t) ! p.p ! ag } --# notpresent
|
|
;
|
|
|
|
UseSlash t p slash = { s = t.s ++ p.s ++ slash.s ! (Ind t.a t.t) ! p.p ; prep = slash.prep } ;
|
|
|
|
-- FIXME: placeholder
|
|
AdvS a s = { s = NON_EXISTENT } ;
|
|
|
|
oper
|
|
-- TODO: PassV2 verbs jāsaskaņo ar objektu, nevis subjektu (by8means_Prep: AgP3 Sg Masc)
|
|
mkClause : NP -> CatLav.VP -> Cl = \np,vp ->
|
|
let agr : Agreement = case <vp.voice, vp.leftVal> of {
|
|
<Act, Nom> => np.agr ;
|
|
<Act, _ > => vp.rightAgr ;
|
|
<Pass, Acc> => vp.rightAgr ;
|
|
<Pass, _ > => np.agr
|
|
}
|
|
in lin Cl {
|
|
s = \\mood,pol =>
|
|
case mood of { -- subject
|
|
Deb _ _ => np.s ! Dat ; --# notpresent
|
|
_ => np.s ! vp.leftVal
|
|
} ++
|
|
closeRelCl np.isRel ++ -- comma, if necessary
|
|
case vp.objPron of {
|
|
False =>
|
|
buildVerb vp.v mood pol agr np.pol vp.rightPol ++ -- verb
|
|
vp.compl ! np.agr ; -- object(s), modifiers and other complements
|
|
True =>
|
|
-- FIXME: the object should be separated from other complements that should remain on the right side
|
|
(
|
|
vp.compl ! np.agr ++ -- object(s), modifiers and other complements
|
|
buildVerb vp.v mood pol agr np.pol vp.rightPol -- verb
|
|
) --| (
|
|
--buildVerb vp.v mood pol agr np.pol vp.rightPol ++ -- verb
|
|
--vp.compl ! np.agr -- object(s), modifiers and other complements
|
|
--)
|
|
}
|
|
} ;
|
|
|
|
-- FIXME: quick&dirty - lai kompilētos pret RGL API
|
|
-- Eng: PredSCVP sc vp = mkClause sc.s (agrP3 Sg) vp
|
|
-- Ar SC nav iespējams neko saskaņot (sk. Cat.gf un Common.gf)
|
|
mkClauseSC : SC -> CatLav.VP -> Cl = \sc,vp -> lin Cl {
|
|
s = \\mood,pol => sc.s ++ buildVerb vp.v mood pol (AgrP3 Sg Masc) Pos vp.rightPol ++ vp.compl ! (AgrP3 Sg Masc)
|
|
} ;
|
|
|
|
}
|