mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-15 22:22:51 -06:00
Latvian: added support for double negation, fixed some structural words
Double negation: sebject-dependent - works, object-dependent - still has to be fixed (in VerbsLav). Structural words: everybody, somebody, nobody. Both motivated by AttemptoLav.
This commit is contained in:
Normunds Gruzitis
@@ -1,13 +1,18 @@
|
||||
--# -path=.:../abstract:../common:../prelude
|
||||
|
||||
-- FIXME: module relations.
|
||||
-- VerbLav is included in many places because of buildVerb,
|
||||
-- VerbLav is included in many places because of buildVerb (SentenceLav, QuestionLav, RelativeLav, IdiomLav),
|
||||
-- and includes ParadigmsVerbsLav because of mkVerb_Irreg_Be -
|
||||
-- they need to be reallocated somehow to ResLav or something similar.
|
||||
-- they need to be reallocated somehow to ResLav or something similar ('be' - IrregLav).
|
||||
-- Not so simple since morphology itself needs ResLav & friends.
|
||||
|
||||
concrete VerbLav of Verb = CatLav **
|
||||
open StructuralLav, ParadigmsVerbsLav, ResLav, ParamX in {
|
||||
concrete VerbLav of Verb = CatLav ** open
|
||||
StructuralLav,
|
||||
ParadigmsVerbsLav,
|
||||
ResLav,
|
||||
ParamX,
|
||||
Prelude
|
||||
in {
|
||||
|
||||
flags
|
||||
|
||||
@@ -19,31 +24,36 @@ lin
|
||||
UseV v = {
|
||||
v = v ;
|
||||
compl = \\_ => [] ;
|
||||
agr = Topic Nom
|
||||
agr = Topic Nom ;
|
||||
objNeg = False
|
||||
} ;
|
||||
|
||||
ComplVV vv vp = {
|
||||
v = vv ;
|
||||
compl = \\agr => build_VP vp Pos Infinitive agr ;
|
||||
agr = Topic vv.topic
|
||||
agr = Topic vv.topic ;
|
||||
objNeg = False
|
||||
} ;
|
||||
|
||||
ComplVS vs s = {
|
||||
v = vs ;
|
||||
compl = \\_ => "," ++ vs.subj.s ++ s.s ;
|
||||
agr = Topic vs.topic
|
||||
agr = Topic vs.topic ;
|
||||
objNeg = False
|
||||
} ;
|
||||
|
||||
ComplVQ vq qs = {
|
||||
v = vq ;
|
||||
compl = \\_ => "," ++ qs.s ;
|
||||
agr = Topic vq.topic
|
||||
agr = Topic vq.topic ;
|
||||
objNeg = False
|
||||
} ;
|
||||
|
||||
ComplVA va ap = {
|
||||
v = va ;
|
||||
compl = \\agr => ap.s ! Indef ! (fromAgr agr).g ! (fromAgr agr).n ! Nom ;
|
||||
agr = Topic Nom
|
||||
agr = Topic Nom ;
|
||||
objNeg = False
|
||||
} ;
|
||||
|
||||
-- SlashV2a : V2 -> VPSlash ; -- love (it)
|
||||
@@ -52,7 +62,8 @@ lin
|
||||
v = v2 ;
|
||||
compl = \\_ => [] ;
|
||||
p = v2.p ;
|
||||
agr = TopicFocus v2.topic (AgP3 Sg Masc) -- FIXME: works only if the focus is P3 (Sg/Pl); TODO: P1, P2 (Sg, Pl)
|
||||
agr = TopicFocus v2.topic (AgP3 Sg Masc) ; -- FIXME: works only if the focus is P3 (Sg/Pl); TODO: P1, P2 (Sg, Pl)
|
||||
objNeg = False -- FIXME: inherit from the object
|
||||
} ;
|
||||
|
||||
-- Slash2V3 : V3 -> NP -> VPSlash ; -- give it (to her)
|
||||
@@ -63,7 +74,8 @@ lin
|
||||
v = v3 ;
|
||||
compl = \\_ => [] ;
|
||||
p = v3.p2 ;
|
||||
agr = TopicFocus v3.topic np.a -- TESTME: P1, P2 (in the focus)
|
||||
agr = TopicFocus v3.topic np.a ; -- TESTME: P1, P2 (in the focus)
|
||||
objNeg = np.isNeg -- TESTME
|
||||
} ;
|
||||
|
||||
-- Slash3V3 : V3 -> NP -> VPSlash ; -- give (it) to her
|
||||
@@ -74,35 +86,40 @@ lin
|
||||
v = v3 ;
|
||||
compl = \\_ => [] ;
|
||||
p = v3.p1 ;
|
||||
agr = TopicFocus v3.topic (AgP3 Sg Masc) -- FIXME: works only if the focus is P3 (Sg/Pl); TODO: P1, P2 (Sg, Pl)
|
||||
agr = TopicFocus v3.topic (AgP3 Sg Masc) ; -- FIXME: works only if the focus is P3 (Sg/Pl); TODO: P1, P2 (Sg, Pl)
|
||||
objNeg = np.isNeg -- TESTME
|
||||
} ;
|
||||
|
||||
SlashV2V v2v vp = {
|
||||
v = v2v ;
|
||||
compl = \\agr => build_VP vp Pos Infinitive agr ;
|
||||
p = v2v.p ;
|
||||
agr = Topic Nom
|
||||
agr = Topic Nom ;
|
||||
objNeg = False
|
||||
} ;
|
||||
|
||||
SlashV2S v2s s = {
|
||||
v = v2s ;
|
||||
compl = \\_ => "," ++ v2s.subj.s ++ s.s ;
|
||||
p = v2s.p ;
|
||||
agr = Topic Nom
|
||||
agr = Topic Nom ;
|
||||
objNeg = False
|
||||
} ;
|
||||
|
||||
SlashV2Q v2q qs = {
|
||||
v = v2q ;
|
||||
compl = \\_ => "," ++ qs.s ;
|
||||
p = v2q.p ;
|
||||
agr = Topic Nom
|
||||
agr = Topic Nom ;
|
||||
objNeg = False
|
||||
} ;
|
||||
|
||||
SlashV2A v2a ap = {
|
||||
v = v2a ;
|
||||
compl = \\agr => ap.s ! Indef ! (fromAgr agr).g ! (fromAgr agr).n ! Nom ;
|
||||
p = v2a.p ;
|
||||
agr = Topic Nom
|
||||
agr = Topic Nom ;
|
||||
objNeg = False
|
||||
} ;
|
||||
|
||||
ComplSlash vpslash np = insertObjPre
|
||||
@@ -113,7 +130,8 @@ lin
|
||||
v = vv ;
|
||||
compl = \\agr => build_VP vpslash Pos Infinitive agr ;
|
||||
p = vpslash.p ;
|
||||
agr = Topic vv.topic
|
||||
agr = Topic vv.topic ;
|
||||
objNeg = False
|
||||
} ;
|
||||
|
||||
SlashV2VNP v2v np vpslash = insertObjC
|
||||
@@ -122,7 +140,8 @@ lin
|
||||
v = v2v ;
|
||||
compl = \\agr => build_VP vpslash Pos Infinitive agr ;
|
||||
p = vpslash.p ;
|
||||
agr = Topic Nom
|
||||
agr = Topic Nom ;
|
||||
objNeg = False
|
||||
} ;
|
||||
|
||||
ReflVP vpslash = insertObjPre
|
||||
@@ -132,13 +151,15 @@ lin
|
||||
UseComp comp = {
|
||||
v = lin V mkVerb_Irreg_Be ;
|
||||
compl = \\agr => comp.s ! agr ;
|
||||
agr = Topic Nom
|
||||
agr = Topic Nom ;
|
||||
objNeg = False
|
||||
} ;
|
||||
|
||||
PassV2 v2 = {
|
||||
v = v2 ;
|
||||
compl = \\_ => [] ;
|
||||
agr = Topic v2.topic
|
||||
agr = Topic v2.topic ;
|
||||
objNeg = False -- FIXME: inherit from the object
|
||||
} ;
|
||||
|
||||
AdvVP vp adv = insertObj (\\_ => adv.s) vp ;
|
||||
@@ -165,7 +186,8 @@ oper
|
||||
insertObj : (Agr => Str) -> ResLav.VP -> ResLav.VP = \obj,vp -> {
|
||||
v = vp.v ;
|
||||
compl = \\agr => vp.compl ! agr ++ obj ! agr ;
|
||||
agr = vp.agr
|
||||
agr = vp.agr ;
|
||||
objNeg = vp.objNeg
|
||||
} ;
|
||||
|
||||
-- VP = { v : Verb ; topic : Case ; compl : Agr => Str }
|
||||
@@ -174,31 +196,38 @@ oper
|
||||
insertObjPre : (Agr => Str) -> ResLav.VP -> ResLav.VP = \obj,vp -> {
|
||||
v = vp.v ;
|
||||
compl = \\agr => obj ! agr ++ vp.compl ! agr ;
|
||||
agr = vp.agr
|
||||
agr = vp.agr ;
|
||||
objNeg = False
|
||||
} ;
|
||||
|
||||
buildVerb : Verb -> VerbMood -> Polarity -> Agr -> Str = \v,mood,pol,ag ->
|
||||
buildVerb : Verb -> VerbMood -> Polarity -> Agr -> Bool -> Bool -> Str =
|
||||
\v,mood,pol,agr,subjNeg,objNeg ->
|
||||
let
|
||||
ag = fromAgr ag
|
||||
pol_prim : Polarity = case <subjNeg, objNeg> of {
|
||||
<True, _> => Neg ;
|
||||
<_, True> => Neg ;
|
||||
_ => pol
|
||||
} ;
|
||||
agr = fromAgr agr
|
||||
; --# notpresent
|
||||
part = v.s ! ResLav.Pos ! (Participle ag.g ag.n Nom) --# notpresent
|
||||
part = v.s ! ResLav.Pos ! (Participle agr.g agr.n Nom) --# notpresent
|
||||
in case mood of {
|
||||
Ind Simul tense => v.s ! pol ! (Indicative ag.p ag.n tense)
|
||||
Ind Simul tense => v.s ! pol_prim ! (Indicative agr.p agr.n tense)
|
||||
; --# notpresent
|
||||
Ind Anter tense => mkVerb_Irreg_Be.s ! pol ! (Indicative ag.p ag.n tense) ++ part ; --# notpresent
|
||||
Ind Anter tense => mkVerb_Irreg_Be.s ! pol_prim ! (Indicative agr.p agr.n tense) ++ part ; --# notpresent
|
||||
|
||||
-- FIXME(?): Rel _ Past => ...
|
||||
Rel _ Past => ResLav.NON_EXISTENT ; --# notpresent
|
||||
Rel Simul tense => v.s ! pol ! (Relative tense) ; --# notpresent
|
||||
Rel Anter tense => mkVerb_Irreg_Be.s ! pol ! (Relative tense) ++ part ; --# notpresent
|
||||
Rel Simul tense => v.s ! pol_prim ! (Relative tense) ; --# notpresent
|
||||
Rel Anter tense => mkVerb_Irreg_Be.s ! pol_prim ! (Relative tense) ++ part ; --# notpresent
|
||||
|
||||
Deb Simul tense => mkVerb_Irreg_Be.s ! pol ! (Indicative P3 Sg tense) ++ --# notpresent
|
||||
Deb Simul tense => mkVerb_Irreg_Be.s ! pol_prim ! (Indicative P3 Sg tense) ++ --# notpresent
|
||||
v.s ! ResLav.Pos ! Debitive ; --# notpresent
|
||||
Deb Anter tense => mkVerb_Irreg_Be.s ! pol ! (Indicative P3 Sg tense) ++ --# notpresent
|
||||
Deb Anter tense => mkVerb_Irreg_Be.s ! pol_prim ! (Indicative P3 Sg tense) ++ --# notpresent
|
||||
mkVerb_Irreg_Be.s ! ResLav.Pos ! (Participle Masc Sg Nom) ++ --# notpresent
|
||||
v.s ! ResLav.Pos ! Debitive ; --# notpresent
|
||||
|
||||
Condit Simul => v.s ! pol ! (Indicative ag.p ag.n ParamX.Cond) ; --# notpresent
|
||||
Condit Anter => mkVerb_Irreg_Be.s ! pol ! (Indicative ag.p ag.n ParamX.Cond) ++ part --# notpresent
|
||||
Condit Simul => v.s ! pol_prim ! (Indicative agr.p agr.n ParamX.Cond) ; --# notpresent
|
||||
Condit Anter => mkVerb_Irreg_Be.s ! pol_prim ! (Indicative agr.p agr.n ParamX.Cond) ++ part --# notpresent
|
||||
} ;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user