GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Proper reflexive and medial verbs support together with completelly reworked case system.

Browse Source
This commit is contained in:
krasimir
2008-02-26 16:59:47 +00:00
parent 7cf94a854d
commit 775c4cc34e
13 changed files with 279 additions and 182 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/resource/bulgarian/AdjectiveBul.gf
View File

@@ -6,14 +6,14 @@ concrete AdjectiveBul of Adjective = CatBul ** open ResBul, Prelude in {
} ; } ;
ComparA a np = { ComparA a np = {
s = \\aform => "ïî" ++ "-" ++ a.s ! aform ++ "îò" ++ np.s ! Nom ; s = \\aform => "ïî" ++ "-" ++ a.s ! aform ++ "îò" ++ np.s ! RSubj ;
isPre = True isPre = True
} ; } ;
-- $SuperlA$ belongs to determiner syntax in $Noun$. -- $SuperlA$ belongs to determiner syntax in $Noun$.
ComplA2 a np = { ComplA2 a np = {
s = \\aform => a.s ! aform ++ a.c2 ++ np.s ! Acc ; s = \\aform => a.s ! aform ++ a.c2 ++ np.s ! RObj Acc ;
isPre = True isPre = True
} ; } ;

4
lib/resource/bulgarian/AdverbBul.gf
View File

@@ -2,13 +2,13 @@ concrete AdverbBul of Adverb = CatBul ** open ResBul, Prelude in {
lin lin
PositAdvAdj a = {s = a.s ! ASg Neut Indef} ; PositAdvAdj a = {s = a.s ! ASg Neut Indef} ;
ComparAdvAdj cadv a np = { ComparAdvAdj cadv a np = {
s = cadv.s ++ "ïî" ++ "-" ++ a.s ! ASg Neut Indef ++ "îò" ++ np.s ! Acc s = cadv.s ++ "ïî" ++ "-" ++ a.s ! ASg Neut Indef ++ "îò" ++ np.s ! RObj Acc
} ; } ;
ComparAdvAdjS cadv a s = { ComparAdvAdjS cadv a s = {
s = cadv.s ++ "ïî" ++ "-" ++ a.s ! ASg Neut Indef ++ "îò" ++ s.s s = cadv.s ++ "ïî" ++ "-" ++ a.s ! ASg Neut Indef ++ "îò" ++ s.s
} ; } ;
PrepNP prep np = {s = prep.s ++ np.s ! prep.c} ; PrepNP prep np = {s = prep.s ++ np.s ! RObj prep.c} ;
AdAdv = cc2 ; AdAdv = cc2 ;

23
lib/resource/bulgarian/CatBul.gf
View File

@@ -30,23 +30,24 @@ concrete CatBul of Cat = open ResBul, Prelude, (R = ParamX) in {
Cl = {s : ResBul.Tense => Anteriority => Polarity => Order => Str} ; Cl = {s : ResBul.Tense => Anteriority => Polarity => Order => Str} ;
Slash = { Slash = {
s : ResBul.Tense => Anteriority => Polarity => Order => Str ; s : ResBul.Tense => Anteriority => Polarity => Order => Str ;
c2 : Prep c2 : Preposition
} ; } ;
Imp = {s : Polarity => GenNum => Str} ; Imp = {s : Polarity => GenNum => Str} ;
-- Question -- Question
QCl = {s : ResBul.Tense => Anteriority => Polarity => QForm => Str} ; QCl = {s : ResBul.Tense => Anteriority => Polarity => QForm => Str} ;
IP = {s : Case => Str; gn : GenNum} ; IP = {s : Role => Str; gn : GenNum} ;
IComp = {s : Str} ; IComp = {s1,s2 : Str} ;
IDet = {s : GenNum => Str; n : Number} ; IDet = {s : GenNum => Str; n : Number} ;
-- Verb -- Verb
VP = { VP = {
s : ResBul.Tense => Anteriority => Polarity => Agr => Str ; s : ResBul.Tense => Anteriority => Polarity => Agr => Bool => Str ;
imp : Polarity => Number => Str ; imp : Polarity => Number => Str ;
s2 : Agr => Str s2 : Agr => Str ;
subjRole : Role
} ; } ;
Comp = {s : Agr => Str} ; Comp = {s : Agr => Str} ;
@@ -60,15 +61,15 @@ concrete CatBul of Cat = open ResBul, Prelude, (R = ParamX) in {
Adv = {s : Str} ; Adv = {s : Str} ;
CAdv = {s : Str; sn : Str} ; CAdv = {s : Str; sn : Str} ;
IAdv = {s : Str} ; IAdv = {s1,s2 : Str} ;
AdA = {s : Str} ; AdA = {s : Str} ;
-- Noun -- Noun
CN = {s : NForm => Str; g : DGender} ; CN = {s : NForm => Str; g : DGender} ;
NP = {s : Case => Str; a : Agr} ; NP = {s : Role => Str; a : Agr} ;
Pron = {s : Case => Str; gen : AForm => Str; a : Agr} ; Pron = {s : Role => Str; gen : AForm => Str; a : Agr} ;
Det = {s : DGender => Case => Str ; n : Number; countable : Bool; spec : Species} ; Det = {s : DGender => Role => Str ; n : Number; countable : Bool; spec : Species} ;
Predet = {s : GenNum => Str} ; Predet = {s : GenNum => Str} ;
Ord = {s : AForm => Str; nonEmpty : Bool} ; Ord = {s : AForm => Str; nonEmpty : Bool} ;
Num = {s : DGenderSpecies => Str; n : Number; nonEmpty : Bool} ; Num = {s : DGenderSpecies => Str; n : Number; nonEmpty : Bool} ;
@@ -88,8 +89,8 @@ concrete CatBul of Cat = open ResBul, Prelude, (R = ParamX) in {
-- Open lexical classes, e.g. Lexicon -- Open lexical classes, e.g. Lexicon
V, VS, VQ, VA = Verb ; V, VS, VQ, VA = Verb ;
V2, V2A = Verb ** {c2 : Prep} ; V2, V2A = Verb ** {c2 : Preposition} ;
V3 = Verb ** {c2, c3 : Prep} ; V3 = Verb ** {c2, c3 : Preposition} ;
A = {s : AForm => Str} ; A = {s : AForm => Str} ;
A2 = {s : AForm => Str ; c2 : Str} ; A2 = {s : AForm => Str ; c2 : Str} ;

8
lib/resource/bulgarian/LexiconBul.gf
View File

@@ -113,7 +113,7 @@ lin
flow_V = mkV148 "ňĺęŕ" ; flow_V = mkV148 "ňĺęŕ" ;
fly_V = mkV177 "ëĺň˙" ; fly_V = mkV177 "ëĺň˙" ;
freeze_V = mkV186 "çŕěđúçâŕě" ; freeze_V = mkV186 "çŕěđúçâŕě" ;
laugh_V = mkV160 "ńěĺ˙" ; laugh_V = reflV (mkV160 "ńěĺ˙") Acc ;
lie_V = mkV178 "ëĺćŕ" ; lie_V = mkV178 "ëĺćŕ" ;
play_V = mkV161 "čăđŕ˙" ; play_V = mkV161 "čăđŕ˙" ;
-- sew_V = IrregEng.sew_V ; -- sew_V = IrregEng.sew_V ;
@@ -131,9 +131,9 @@ lin
-- bite_V2 = dirV2 IrregEng.bite_V ; -- bite_V2 = dirV2 IrregEng.bite_V ;
count_V2 = dirV2 (mkV175 "áđî˙") ; count_V2 = dirV2 (mkV175 "áđî˙") ;
cut_V2 = dirV2 (mkV157 "đĺćŕ") ; cut_V2 = dirV2 (mkV157 "đĺćŕ") ;
fear_V2 = dirV2 (mkV186 "ńňđŕőóâŕě") ; fear_V2 = dirV2 (reflV (mkV186 "ńňđŕőóâŕě") Acc) ;
fight_V2 = dirV2 (mkV173 "áîđ˙") ; fight_V2 = dirV2 (reflV (mkV173 "áîđ˙") Acc) ;
-- hit_V2 = dirV2 hit_V ; hit_V2 = dirV2 (mkV173 "óäŕđ˙") ;
-- hold_V2 = dirV2 hold_V ; -- hold_V2 = dirV2 hold_V ;
hunt_V2 = dirV2 (mkV174 "ëîâ˙") ; hunt_V2 = dirV2 (mkV174 "ëîâ˙") ;
kill_V2 = dirV2 (mkV163 "óáč˙") ; kill_V2 = dirV2 (mkV163 "óáč˙") ;

4
lib/resource/bulgarian/MorphoBul.gf
View File

@@ -15,9 +15,9 @@ resource MorphoBul = ResBul ** open Prelude, (Predef=Predef) in {
oper oper
--2 Determiners --2 Determiners
mkDeterminerSg : Str -> Str -> Str -> {s : DGender => Case => Str; n : Number; countable : Bool ; spec : Species} = \vseki,vsiaka,vsiako -> mkDeterminerSg : Str -> Str -> Str -> {s : DGender => Role => Str; n : Number; countable : Bool ; spec : Species} = \vseki,vsiaka,vsiako ->
{s = \\g,_ => table DGender [vseki;vseki;vsiaka;vsiako] ! g; n = Sg; countable = False; spec = Indef} ; {s = \\g,_ => table DGender [vseki;vseki;vsiaka;vsiako] ! g; n = Sg; countable = False; spec = Indef} ;
mkDeterminerPl : Str -> {s : DGender => Case => Str ; n : Number; countable : Bool ; spec : Species} = \vsicki -> mkDeterminerPl : Str -> {s : DGender => Role => Str ; n : Number; countable : Bool ; spec : Species} = \vsicki ->
{s = \\_,_ => vsicki; n = Pl; countable = False; spec = Indef} ; {s = \\_,_ => vsicki; n = Pl; countable = False; spec = Indef} ;
mkQuant : Str -> Str -> Str -> Str -> {s : GenNum => Str; spec : Species} = \tozi,tazi,towa,tezi -> { mkQuant : Str -> Str -> Str -> Str -> {s : GenNum => Str; spec : Species} = \tozi,tazi,towa,tezi -> {

44
lib/resource/bulgarian/NounBul.gf
View File

@@ -4,27 +4,27 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
lin lin
DetCN det cn = DetCN det cn =
{ s = \\c => let nf = case <det.n,det.spec> of { { s = \\role => let nf = case <det.n,det.spec> of {
<Sg,Def> => case c of { <Sg,Def> => case role of {
Nom => NFSgDefNom ; RSubj => NFSgDefNom ;
_ => NF Sg Def _ => NF Sg Def
} ; } ;
<Pl,Indef> => case det.countable of { <Pl,Indef> => case det.countable of {
True => NFPlCount ; True => NFPlCount ;
False => NF Pl Indef False => NF Pl Indef
} ; } ;
_ => NF det.n det.spec _ => NF det.n det.spec
} ; } ;
s = det.s ! cn.g ! c ++ cn.s ! nf s = det.s ! cn.g ! role ++ cn.s ! nf
in case c of { in case role of {
Dat => "íà" ++ s; RObj Dat => "íà" ++ s;
_ => s _ => s
} ; } ;
a = {gn = gennum cn.g det.n; p = P3} ; a = {gn = gennum cn.g det.n; p = P3} ;
} ; } ;
UsePN pn = { s = \\c => case c of { UsePN pn = { s = \\role => case role of {
Dat => "íà" ++ pn.s; RObj Dat => "íà" ++ pn.s;
_ => pn.s _ => pn.s
} ; } ;
a = {gn = GSg pn.g; p = P3} a = {gn = GSg pn.g; p = P3}
} ; } ;
@@ -58,7 +58,7 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
} ; } ;
PossPron p = { PossPron p = {
s = \\gn => p.gen ! aform gn Indef Nom ; s = \\gn => p.gen ! aform gn Indef RSubj ;
spec = Indef spec = Indef
} ; } ;
@@ -97,8 +97,8 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
UseN2 noun = noun ; UseN2 noun = noun ;
UseN3 noun = noun ; UseN3 noun = noun ;
ComplN2 f x = {s = \\nf => f.s ! nf ++ f.c2 ++ x.s ! Acc; g=f.g} ; ComplN2 f x = {s = \\nf => f.s ! nf ++ f.c2 ++ x.s ! RObj Acc; g=f.g} ;
ComplN3 f x = {s = \\nf => f.s ! nf ++ f.c2 ++ x.s ! Acc; c2 = f.c3; g=f.g} ; ComplN3 f x = {s = \\nf => f.s ! nf ++ f.c2 ++ x.s ! RObj Acc; c2 = f.c3; g=f.g} ;
AdjCN ap cn = { AdjCN ap cn = {
s = \\nf => preOrPost ap.isPre (ap.s ! nform2aform nf cn.g) (cn.s ! (indefNForm nf)) ; s = \\nf => preOrPost ap.isPre (ap.s ! nform2aform nf cn.g) (cn.s ! (indefNForm nf)) ;

17
lib/resource/bulgarian/ParadigmsBul.gf
View File

@@ -59,12 +59,18 @@ oper
--2 Verbs --2 Verbs
-- --
reflV : V -> Case -> V ;
phrasalV : V -> Case -> V ;
--3 Two-place verbs --3 Two-place verbs
-- --
-- Two-place verbs need a preposition, except the special case with direct object. -- Two-place verbs need a preposition, except the special case with direct object.
-- (transitive verbs). Notice that a particle comes from the $V$. -- (transitive verbs). Notice that a particle comes from the $V$.
reflV v c = {s = v.s; vtype = VMedial c; lock_V=<>} ;
phrasalV v c = {s = v.s; vtype = VPhrasal c; lock_V=<>} ;
mkAdv x = ss x ** {lock_Adv = <>} ; mkAdv x = ss x ** {lock_Adv = <>} ;
mkAdV x = ss x ** {lock_AdV = <>} ; mkAdV x = ss x ** {lock_AdV = <>} ;
mkAdA x = ss x ** {lock_AdA = <>} ; mkAdA x = ss x ** {lock_AdA = <>} ;
@@ -84,17 +90,17 @@ oper
mkVS : V -> VS ; mkVS : V -> VS ;
mkPN : Str -> Gender -> PN ; mkPN : Str -> Gender -> PN ;
mkIAdv : Str -> IAdv ;
mkAdv x = ss x ** {lock_Adv = <>} ;
mkPrep p c = {s = p; c = c; lock_Prep = <>} ; mkPrep p c = {s = p; c = c; lock_Prep = <>} ;
noPrep = mkPrep [] Acc ; noPrep = mkPrep [] Acc ;
prepV2 v p = {s = v.s ; c2 = p ; lock_V2 = <>} ; prepV2 v p = {s = v.s; c2 = p; vtype = v.vtype; lock_V2 = <>} ;
dirV2 v = prepV2 v noPrep ; dirV2 v = prepV2 v noPrep ;
mkV3 v p q = v ** {s = v.s ; s1 = v.s1 ; c2 = p ; c3 = q ; lock_V3 = <>} ; mkV3 v p q = {s = v.s; s1 = v.s1; c2 = p; c3 = q; vtype = v.vtype; lock_V3 = <>} ;
dirV3 v p = mkV3 v noPrep p ; dirV3 v p = mkV3 v noPrep p ;
dirdirV3 v = dirV3 v noPrep ; dirdirV3 v = dirV3 v noPrep ;
@@ -102,4 +108,5 @@ oper
mkPN s g = {s = s; g = g ; lock_PN = <>} ; mkPN s g = {s = s; g = g ; lock_PN = <>} ;
mkIAdv s = {s1 = s; s2 = s + "òî"; lock_IAdv = <>} ;
} }

2
lib/resource/bulgarian/PhraseBul.gf
View File

@@ -7,5 +7,5 @@ concrete PhraseBul of Phrase = CatBul ** open Prelude, ResBul in {
UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p ! GPl} ; UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p ! GPl} ;
UttImpPol pol imp = {s = pol.s ++ imp.s ! pol.p ! GPl} ; UttImpPol pol imp = {s = pol.s ++ imp.s ! pol.p ! GPl} ;
UttIAdv iadv = iadv ; UttIAdv iadv = {s = iadv.s1} ;
} }

12
lib/resource/bulgarian/QuestionBul.gf
View File

@@ -14,18 +14,18 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
} ; } ;
QuestVP ip vp = QuestVP ip vp =
let cl = mkClause (ip.s ! Nom) {gn = ip.gn ; p = P3} vp let cl = mkClause (ip.s ! RSubj) {gn = ip.gn ; p = P3} vp
in {s = \\t,a,b,_ => cl.s ! t ! a ! b ! Main} ; in {s = \\t,a,b,_ => cl.s ! t ! a ! b ! Main} ;
QuestSlash ip slash = QuestSlash ip slash =
mkQuestion (ss (slash.c2.s ++ ip.s ! slash.c2.c)) slash ; mkQuestion {s1 = slash.c2.s ++ ip.s ! (RObj slash.c2.c); s2 = slash.c2.s ++ ip.s ! (RObj slash.c2.c)} slash ;
QuestIAdv iadv cl = mkQuestion iadv cl ; QuestIAdv iadv cl = mkQuestion iadv cl ;
QuestIComp icomp np = QuestIComp icomp np =
mkQuestion icomp (mkClause (np.s ! Nom) np.a (predV auxBe)) ; mkQuestion icomp (mkClause (np.s ! RSubj) np.a (predV verbBe)) ;
PrepIP p ip = {s = p.s ++ ip.s ! Nom} ; PrepIP p ip = {s1 = p.s ++ ip.s ! RSubj; s2 = p.s ++ ip.s ! RSubj} ;
AdvIP ip adv = { AdvIP ip adv = {
s = \\c => ip.s ! c ++ adv.s ; s = \\c => ip.s ! c ++ adv.s ;
@@ -38,8 +38,8 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
_ => NF idet.n Indef _ => NF idet.n Indef
} }
in idet.s ! gennum cn.g idet.n ++ in idet.s ! gennum cn.g idet.n ++
num.s ! dgenderSpecies cn.g Indef Nom ++ num.s ! dgenderSpecies cn.g Indef RSubj ++
ord.s ! aform (gennum cn.g num.n) Indef Nom ++ ord.s ! aform (gennum cn.g num.n) Indef RSubj ++
cn.s ! nf ; cn.s ! nf ;
gn = gennum cn.g idet.n gn = gennum cn.g idet.n
} ; } ;

316
lib/resource/bulgarian/ResBul.gf
View File

@@ -18,7 +18,8 @@ resource ResBul = ParamX ** open Prelude in {
-- This is the worst-case $Case$ needed for pronouns. -- This is the worst-case $Case$ needed for pronouns.
param param
Case = Nom | Acc | Dat; Role = RSubj | RObj Case ;
Case = Acc | Dat;
NForm = NForm =
NF Number Species NF Number Species
@@ -54,6 +55,12 @@ resource ResBul = ParamX ** open Prelude in {
| VImperative Number | VImperative Number
| VGerund | VGerund
; ;
VType =
VNormal
| VMedial Case
| VPhrasal Case
;
-- The order of sentence is needed already in $VP$. -- The order of sentence is needed already in $VP$.
@@ -112,39 +119,39 @@ resource ResBul = ParamX ** open Prelude in {
GPl => Pl GPl => Pl
} ; } ;
aform : GenNum -> Species -> Case -> AForm = \gn,spec,c -> aform : GenNum -> Species -> Role -> AForm = \gn,spec,role ->
case gn of { case gn of {
GSg g => case <g,spec,c> of { GSg g => case <g,spec,role> of {
<Masc,Def,Nom> => ASgMascDefNom ; <Masc,Def,RSubj> => ASgMascDefNom ;
_ => ASg g spec _ => ASg g spec
} ; } ;
GPl => APl spec GPl => APl spec
} ; } ;
dgenderSpecies : DGender -> Species -> Case -> DGenderSpecies = dgenderSpecies : DGender -> Species -> Role -> DGenderSpecies =
\g,spec,c -> case <g,spec> of { \g,spec,role -> case <g,spec> of {
<DMasc,Indef> => DMascIndef ; <DMasc,Indef> => DMascIndef ;
<DMasc,Def> => case c of { <DMasc,Def> => case role of {
Nom => DMascDefNom ; RSubj => DMascDefNom ;
_ => DMascDef _ => DMascDef
} ; } ;
<DMascPersonal,Indef> => DMascPersonalIndef ; <DMascPersonal,Indef> => DMascPersonalIndef ;
<DMascPersonal,Def> => case c of { <DMascPersonal,Def> => case role of {
Nom => DMascPersonalDefNom ; RSubj => DMascPersonalDefNom ;
_ => DMascPersonalDef _ => DMascPersonalDef
} ; } ;
<DFem ,Indef> => DFemIndef ; <DFem ,Indef> => DFemIndef ;
<DFem ,Def> => DFemDef ; <DFem ,Def> => DFemDef ;
<DNeut,Indef> => DNeutIndef ; <DNeut,Indef> => DNeutIndef ;
<DNeut,Def> => DNeutDef <DNeut,Def> => DNeutDef
} ; } ;
nform2aform : NForm -> DGender -> AForm nform2aform : NForm -> DGender -> AForm
= \nf,g -> case nf of { = \nf,g -> case nf of {
NF n spec => aform (gennum g n) spec Acc ; NF n spec => aform (gennum g n) spec (RObj Acc) ;
NFSgDefNom => aform (gennum g Sg) Def Nom ; NFSgDefNom => aform (gennum g Sg) Def RSubj ;
NFPlCount => APl Indef ; NFPlCount => APl Indef ;
NFVocative => aform (gennum g Sg) Indef Acc NFVocative => aform (gennum g Sg) Indef (RObj Acc)
} ; } ;
indefNForm : NForm -> NForm indefNForm : NForm -> NForm
@@ -159,96 +166,174 @@ resource ResBul = ParamX ** open Prelude in {
-- For $Verb$. -- For $Verb$.
Verb : Type = { Verb : Type = {
s : VForm => Str ; s : VForm => Str ;
vtype : VType
} ; } ;
VP : Type = { VP : Type = {
s : Tense => Anteriority => Polarity => Agr => Str ; s : Tense => Anteriority => Polarity => Agr => Bool => Str ;
imp : Polarity => Number => Str ; imp : Polarity => Number => Str ;
s2 : Agr => Str s2 : Agr => Str ;
subjRole : Role
} ; } ;
predV : Verb -> VP = predV : Verb -> VP =
\verb -> \verb ->
let pol : Polarity -> Str -> Str = \p,vf -> case p of { Pos => vf ; Neg => "íå" ++ vf } { s = \\t,a,p,agr,q => let
in { s = \\t,a,p,agr => let present = verb.s ! (VPres (numGenNum agr.gn) agr.p) ; clitic = case verb.vtype of {
aorist = verb.s ! (VAorist (numGenNum agr.gn) agr.p) ; VNormal => {s=[]; agr=agr} ;
perfect = verb.s ! (VPerfect (aform agr.gn Indef Acc)) ; VMedial c => {s=reflClitics ! c; agr=agr} ;
vf = case <t,a> of { VPhrasal c => {s=personalClitics ! c ! agr.gn ! agr.p; agr={gn=GSg Neut; p=P3}}
<Pres,Simul> => present ; } ;
<Pres,Anter> => auxBe.s ! (VPres (numGenNum agr.gn) agr.p) ++ perfect ;
<Past,Simul> => aorist ; present = verb.s ! (VPres (numGenNum clitic.agr.gn) clitic.agr.p) ;
<Past,Anter> => auxBe.s ! (VAorist (numGenNum agr.gn) agr.p) ++ perfect ; aorist = verb.s ! (VAorist (numGenNum clitic.agr.gn) clitic.agr.p) ;
<Fut, Simul> => "ùå" ++ present ; perfect = verb.s ! (VPerfect (aform clitic.agr.gn Indef (RObj Acc))) ;
<Fut, Anter> => "ùå" ++ auxBe.s ! (VPres (numGenNum agr.gn) agr.p) ++ perfect ;
<Cond,Simul> => auxWould.s ! (VAorist (numGenNum agr.gn) agr.p) ++ perfect ; auxPres = auxBe clitic.s ! VPres (numGenNum clitic.agr.gn) clitic.agr.p ;
<Cond,Anter> => auxWould.s ! (VAorist (numGenNum agr.gn) agr.p) ++ auxBe.s ! (VPerfect (aform agr.gn Indef Acc)) ++ perfect auxAorist = auxBe clitic.s ! VAorist (numGenNum clitic.agr.gn) clitic.agr.p ;
auxPerfect = auxBe clitic.s ! VPerfect (aform clitic.agr.gn Indef (RObj Acc)) ;
auxCondS = auxWould clitic.s ! VAorist (numGenNum clitic.agr.gn) clitic.agr.p ;
auxCondA = auxCondS ++
auxBe [] ! VPerfect (aform clitic.agr.gn Indef (RObj Acc)) ;
verbs : {aux:Str; main:Str}
= case <t,a> of {
<Pres,Simul> => {aux=clitic.s; main=present} ;
<Pres,Anter> => {aux=auxPres; main=perfect} ;
<Past,Simul> => {aux=clitic.s; main=aorist} ;
<Past,Anter> => {aux=auxAorist; main=perfect} ;
<Fut, Simul> => {aux=clitic.s; main=present} ;
<Fut, Anter> => {aux=auxPres; main=perfect} ;
<Cond,Simul> => {aux=auxCondS; main=perfect} ;
<Cond,Anter> => {aux=auxCondA; main=perfect}
} ; } ;
in pol p vf ;
imp = \\p,n => pol p (verb.s ! VImperative n) ; li = case q of {True => "ëè"; False => []} ;
s2 = \\_ => [] aux = case p of {
Pos => case t of {
Fut => {s1="ùå"++verbs.aux; s2=li} ;
_ => case q of {True => {s1=[]; s2="ëè"++verbs.aux};
False => {s1=verbs.aux; s2=[]}}
} ;
Neg => case t of {
Fut => {s1="íå"++"ùå"++verbs.aux; s2=li} ;
_ => case q of {True => {s1="íå"++verbs.aux; s2="ëè"};
False => {s1="íå"++verbs.aux; s2=[]}}
}
}
in aux.s1 ++ verbs.main ++ aux.s2;
imp = \\p,n => let ne = case p of {Pos => []; Neg => "íå"} ;
in ne ++ verb.s ! VImperative n ;
s2 = \\_ => [] ;
subjRole = case verb.vtype of {
VNormal => RSubj ;
VMedial _ => RSubj ;
VPhrasal c => RObj c
}
} ; } ;
insertObj : (Agr => Str) -> VP -> VP = \obj,vp -> { insertObj : (Agr => Str) -> VP -> VP = \obj,vp -> {
s = vp.s ; s = vp.s ;
imp = vp.imp ; imp = vp.imp ;
s2 = \\a => vp.s2 ! a ++ obj ! a s2 = \\a => vp.s2 ! a ++ obj ! a ;
subjRole = vp.subjRole
} ; } ;
auxBe : Verb = { auxBe : Str -> VForm => Str = \se ->
s = table { table {
VPres Sg P1 => "ñúì" ; VPres Sg P1 => "ñúì" ++ se ;
VPres Sg P2 => "ñè" ; VPres Sg P2 => "ñè" ++ se ;
VPres Sg P3 => "å" ; VPres Sg P3 => se ++ "å" ;
VPres Pl P1 => "ñìå" ; VPres Pl P1 => "ñìå" ++ se ;
VPres Pl P2 => "ñòå" ; VPres Pl P2 => "ñòå" ++ se ;
VPres Pl P3 => "ñà" ; VPres Pl P3 => "ñà" ++ se ;
VAorist Sg P1 => "áÿõ" ; VAorist Sg P1 => "áÿõ" ++ se ;
VAorist Sg _ => "áåøå" ; VAorist Sg P2 => "áåøå" ++ se ;
VAorist Pl P1 => "áÿõìå" ; VAorist Sg P3 => se ++ "áåøå" ;
VAorist Pl P2 => "áÿõòå" ; VAorist Pl P1 => "áÿõìå" ++ se ;
VAorist Pl P3 => "áÿõà" ; VAorist Pl P2 => "áÿõòå" ++ se ;
VImperfect Sg P1 => "áÿõ" ; VAorist Pl P3 => "áÿõà" ++ se ;
VImperfect Sg _ => "áåøå" ; VImperfect Sg P1 => "áÿõ" ++ se ;
VImperfect Pl P1 => "áÿõìå" ; VImperfect Sg _ => "áåøå" ++ se ;
VImperfect Pl P2 => "áÿõòå" ; VImperfect Pl P1 => "áÿõìå" ++ se ;
VImperfect Pl P3 => "áÿõà" ; VImperfect Pl P2 => "áÿõòå" ++ se ;
VPerfect aform => (regAdjective "áèë").s ! aform ; VImperfect Pl P3 => "áÿõà" ++ se ;
VPluPerfect aform => (regAdjective "áèë").s ! aform ; VPerfect aform => (regAdjective "áèë").s ! aform ++ se ;
VPassive aform => (regAdjective "áúäåí").s ! aform ; VPluPerfect aform => (regAdjective "áèë").s ! aform ++ se ;
VPresPart aform => (regAdjective "áúäåù").s ! aform ; VPassive aform => (regAdjective "áúäåí").s ! aform ++ se ;
VImperative Sg => "áúäè" ; VPresPart aform => (regAdjective "áúäåù").s ! aform ++ se ;
VImperative Pl => "áúäåòå" ; VImperative Sg => "áúäè" ++ se ;
VGerund => "áèäåéêè" VImperative Pl => "áúäåòå" ++ se ;
} VGerund => "áèäåéêè" ++ se
} ; } ;
auxWould : Verb = { auxWould : Str -> VForm => Str = \se ->
s = table { table {
VPres Sg P1 => "áúäà" ; VPres Sg P1 => "áúäà" ++ se ;
VPres Sg P2 => "áúäåø" ; VPres Sg P2 => "áúäåø" ++ se ;
VPres Sg P3 => "áúäå" ; VPres Sg P3 => se ++ "áúäå" ;
VPres Pl P1 => "áúäåì" ; VPres Pl P1 => "áúäåì" ++ se ;
VPres Pl P2 => "áúäåòå" ; VPres Pl P2 => "áúäåòå" ++ se ;
VPres Pl P3 => "áúäàò" ; VPres Pl P3 => "áúäàò" ++ se ;
VAorist Sg P1 => "áèõ" ; VAorist Sg P1 => "áèõ" ++ se ;
VAorist Sg _ => "áè" ; VAorist Sg _ => "áè" ++ se ;
VAorist Pl P1 => "áèõìå" ; VAorist Pl P1 => "áèõìå" ++ se ;
VAorist Pl P2 => "áèõòå" ; VAorist Pl P2 => "áèõòå" ++ se ;
VAorist Pl P3 => "áèõà" ; VAorist Pl P3 => "áèõà" ++ se ;
VImperfect Sg P1 => "áúäåõ" ; VImperfect Sg P1 => "áúäåõ" ++ se ;
VImperfect Sg _ => "áúäåøå" ; VImperfect Sg _ => "áúäåøå" ++ se ;
VImperfect Pl P1 => "áúäåõìå" ; VImperfect Pl P1 => "áúäåõìå" ++ se ;
VImperfect Pl P2 => "áúäåõòå" ; VImperfect Pl P2 => "áúäåõòå" ++ se ;
VImperfect Pl P3 => "áúäåõà" ; VImperfect Pl P3 => "áúäåõà" ++ se ;
VPerfect aform => (regAdjective "áèë").s ! aform ; VPerfect aform => (regAdjective "áèë").s ! aform ++ se ;
VPluPerfect aform => (regAdjective "áúäåë").s ! aform ; VPluPerfect aform => (regAdjective "áúäåë").s ! aform ++ se ;
VPassive aform => (regAdjective "áúäåí").s ! aform ; VPassive aform => (regAdjective "áúäåí").s ! aform ++ se ;
VPresPart aform => (regAdjective "áúäåù").s ! aform ; VPresPart aform => (regAdjective "áúäåù").s ! aform ++ se ;
VImperative Sg => "áúäè" ; VImperative Sg => "áúäè" ++ se ;
VImperative Pl => "áúäåòå" ; VImperative Pl => "áúäåòå" ++ se ;
VGerund => "áúäåéêè" VGerund => "áúäåéêè" ++ se
} } ;
verbBe : Verb = {s=auxBe []; vtype=VNormal} ;
reflClitics : Case => Str = table {Acc => "ñå"; Dat => "ñè"} ;
personalClitics : Case => GenNum => Person => Str =
table {
Acc => table {
GSg g => table {
P1 => "ìå" ;
P2 => "òå" ;
P3 => case g of {
Masc => "ãî" ;
Fem => "ÿ" ;
Neut => "ãî"
}
} ;
GPl => table {
P1 => "íè" ;
P2 => "âè" ;
P3 => "ãè"
}
} ;
Dat => table {
GSg g => table {
P1 => "ìè" ;
P2 => "òè" ;
P3 => case g of {
Masc => "ìó" ;
Fem => "é" ;
Neut => "ìó"
}
} ;
GPl => table {
P1 => "íè" ;
P2 => "âè" ;
P3 => "èì"
}
}
} ; } ;
ia2e : Str -> Str = -- to be used when the next syllable has vowel different from "à","ú","î" or "ó" ia2e : Str -> Str = -- to be used when the next syllable has vowel different from "à","ú","î" or "ó"
@@ -345,7 +430,8 @@ resource ResBul = ParamX ** open Prelude in {
_ => chete + "éêè" _ => chete + "éêè"
} }
} ; } ;
} ; vtype = VNormal
} ;
-- For $Sentence$. -- For $Sentence$.
@@ -357,12 +443,13 @@ resource ResBul = ParamX ** open Prelude in {
\subj,agr,vp -> { \subj,agr,vp -> {
s = \\t,a,b,o => s = \\t,a,b,o =>
let let
verb = vp.s ! t ! a ! b ! agr ; verb = vp.s ! t ! a ! b ! agr ! False ;
verbq = vp.s ! t ! a ! b ! agr ! True ;
compl = vp.s2 ! agr compl = vp.s2 ! agr
in case o of { in case o of {
Main => subj ++ verb ++ compl ; Main => subj ++ verb ++ compl ;
Inv => verb ++ subj ++ compl ; Inv => verb ++ compl ++ subj ;
Quest => subj ++ verb ++ "ëè" ++ compl Quest => subj ++ verbq ++ compl
} }
} ; } ;
@@ -421,22 +508,22 @@ resource ResBul = ParamX ** open Prelude in {
DNeutDef => addDef dve DNeutDef => addDef dve
} ; } ;
mkIP : Str -> Str -> GenNum -> {s : Case => Str ; gn : GenNum} = mkIP : Str -> Str -> GenNum -> {s : Role => Str ; gn : GenNum} =
\koi,kogo,gn -> { \koi,kogo,gn -> {
s = table { s = table {
Nom => koi ; RSubj => koi ;
Acc => kogo ; RObj Acc => kogo ;
Dat => "íà" ++ kogo RObj Dat => "íà" ++ kogo
} ; } ;
gn = gn gn = gn
} ; } ;
mkPron : (az,men,mi,moj,moia,moiat,moia_,moiata,moe,moeto,moi,moite : Str) -> GenNum -> Person -> {s : Case => Str; gen : AForm => Str; a : Agr} = mkPron : (az,men,mi,moj,moia,moiat,moia_,moiata,moe,moeto,moi,moite : Str) -> GenNum -> Person -> {s : Role => Str; gen : AForm => Str; a : Agr} =
\az,men,mi,moj,moia,moiat,moia_,moiata,moe,moeto,moi,moite,gn,p -> { \az,men,mi,moj,moia,moiat,moia_,moiata,moe,moeto,moi,moite,gn,p -> {
s = table { s = table {
Nom => az ; RSubj => az ;
Acc => men ; RObj Acc => men ;
Dat => mi RObj Dat => mi
} ; } ;
gen = (mkAdjective moj moia moiat moia_ moiata moe moeto moi moite).s ; gen = (mkAdjective moj moia moiat moia_ moiata moe moeto moi moite).s ;
a = { a = {
@@ -444,17 +531,18 @@ resource ResBul = ParamX ** open Prelude in {
p = p p = p
} }
} ; } ;
Preposition : Type = {s : Str; c : Case};
mkQuestion : mkQuestion :
{s : Str} -> Clause -> {s1,s2 : Str} -> Clause ->
{s : Tense => Anteriority => Polarity => QForm => Str} = \wh,cl -> {s : Tense => Anteriority => Polarity => QForm => Str} = \wh,cl ->
{ {
s = \\t,a,p => s = \\t,a,p =>
let cls = cl.s ! t ! a ! p ; let cls = cl.s ! t ! a ! p ;
why = wh.s
in table { in table {
QDir => why ++ cls ! Inv ; QDir => wh.s1 ++ cls ! Inv ;
QIndir => why ++ cls ! Main QIndir => wh.s2 ++ cls ! Main
} }
} ; } ;
} }

4
lib/resource/bulgarian/SentenceBul.gf
View File

@@ -3,7 +3,7 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
flags optimize=all_subs ; flags optimize=all_subs ;
lin lin
PredVP np vp = mkClause (np.s ! Nom) np.a vp ; PredVP np vp = mkClause (np.s ! vp.subjRole) np.a vp ;
ImpVP vp = { ImpVP vp = {
s = \\p,gn => s = \\p,gn =>
@@ -15,7 +15,7 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
} ; } ;
SlashV2 np v2 = SlashV2 np v2 =
mkClause (np.s ! Nom) np.a (predV v2) ** {c2 = v2.c2} ; mkClause (np.s ! RSubj) np.a (predV v2) ** {c2 = v2.c2} ;
AdvSlash slash adv = { AdvSlash slash adv = {
s = \\t,a,b,o => slash.s ! t ! a ! b ! o ++ adv.s ; s = \\t,a,b,o => slash.s ! t ! a ! b ! o ++ adv.s ;

8
lib/resource/bulgarian/StructuralBul.gf
View File

@@ -54,7 +54,7 @@ concrete StructuralBul of Structural = CatBul **
here_Adv = ss "òóê" ; here_Adv = ss "òóê" ;
here7to_Adv = ss ["äî òóê"] ; here7to_Adv = ss ["äî òóê"] ;
here7from_Adv = ss ["îò òóê"] ; here7from_Adv = ss ["îò òóê"] ;
how_IAdv = ss "êàê" ; how_IAdv = mkIAdv "êàê" ;
how8many_IDet = {s = \\_ => "êîëêî"; n = Pl} ; how8many_IDet = {s = \\_ => "êîëêî"; n = Pl} ;
if_Subj = ss "àêî" ; if_Subj = ss "àêî" ;
in8front_Prep = mkPrep "ïðåä" Acc ; in8front_Prep = mkPrep "ïðåä" Acc ;
@@ -133,16 +133,16 @@ concrete StructuralBul of Structural = CatBul **
we_Pron = mkPron "íèå" "íàñ" "íè" "íàø" "íàøèÿ" "íàøèÿò" "íàøà" "íàøàòà" "íàøå" "íàøåòî" "íàøè" "íàøèòå" GPl P1 ; we_Pron = mkPron "íèå" "íàñ" "íè" "íàø" "íàøèÿ" "íàøèÿò" "íàøà" "íàøàòà" "íàøå" "íàøåòî" "íàøè" "íàøèòå" GPl P1 ;
whatPl_IP = mkIP "êàêâè" "êàêâè" GPl ; whatPl_IP = mkIP "êàêâè" "êàêâè" GPl ;
whatSg_IP = mkIP "êàêúâ" "êàêúâ" (GSg Masc) ; whatSg_IP = mkIP "êàêúâ" "êàêúâ" (GSg Masc) ;
when_IAdv = ss "êîãà" ; when_IAdv = mkIAdv "êîãà" ;
{- {-
when_Subj = ss "when" ; when_Subj = ss "when" ;
-} -}
where_IAdv = ss "êúäå" ; where_IAdv = mkIAdv "êúäå" ;
whichPl_IDet = {s = table GenNum ["êîé";"êîÿ";"êîå";"êîè"]; n = Pl} ; whichPl_IDet = {s = table GenNum ["êîé";"êîÿ";"êîå";"êîè"]; n = Pl} ;
whichSg_IDet = {s = table GenNum ["êîé";"êîÿ";"êîå";"êîè"]; n = Sg} ; whichSg_IDet = {s = table GenNum ["êîé";"êîÿ";"êîå";"êîè"]; n = Sg} ;
whoSg_IP = mkIP "êîé" "êîãî" (GSg Masc) ; whoSg_IP = mkIP "êîé" "êîãî" (GSg Masc) ;
whoPl_IP = mkIP "êîè" "êîãî" GPl ; whoPl_IP = mkIP "êîè" "êîãî" GPl ;
why_IAdv = ss "çàùî" ; why_IAdv = mkIAdv "çàùî" ;
without_Prep = mkPrep "áåç" Acc ; without_Prep = mkPrep "áåç" Acc ;
with_Prep = mkPrep (pre { "ñ" ; with_Prep = mkPrep (pre { "ñ" ;
"ñúñ" / strs {"ñ" ; "ç" ; "Ñ" ; "Ç"} "ñúñ" / strs {"ñ" ; "ç" ; "Ñ" ; "Ç"}

15
lib/resource/bulgarian/VerbBul.gf
View File

@@ -4,22 +4,23 @@ concrete VerbBul of Verb = CatBul ** open ResBul, ParadigmsBul in {
lin lin
UseV = predV ; UseV = predV ;
ComplV2 v np = insertObj (\\_ => v.c2.s ++ np.s ! v.c2.c) (predV v) ; ComplV2 v np = insertObj (\\_ => v.c2.s ++ np.s ! RObj v.c2.c) (predV v) ;
ComplV3 v np np2 = ComplV3 v np np2 =
insertObj (\\_ => v.c2.s ++ np.s ! v.c2.c ++ v.c3.s ++ np2.s ! v.c3.c) (predV v) ; insertObj (\\_ => v.c2.s ++ np.s ! RObj v.c2.c ++ v.c3.s ++ np2.s ! RObj v.c3.c) (predV v) ;
ComplVS v s = insertObj (\\_ => "," ++ "֌" ++ s.s) (predV v) ; ComplVS v s = insertObj (\\_ => "," ++ "֌" ++ s.s) (predV v) ;
UseComp comp = insertObj comp.s (predV auxBe) ; UseComp comp = insertObj comp.s (predV verbBe) ;
AdvVP vp adv = insertObj (\\_ => adv.s) vp ; AdvVP vp adv = insertObj (\\_ => adv.s) vp ;
ReflV2 v = insertObj (\\_ => v.c2.s ++ case v.c2.c of {Dat => "ñè"; _ => "ñå"}) (predV v) ; ReflV2 v = predV (reflV v v.c2.c) ;
PassV2 v = insertObj (\\a => v.s ! VPassive (aform a.gn Indef Acc)) (predV auxBe) ; PassV2 v = insertObj (\\a => v.s ! VPassive (aform a.gn Indef (RObj Acc))) (predV verbBe) ;
UseVS, UseVQ = \vv -> {s = vv.s ; c2 = noPrep ; isRefl = vv.isRefl} ; -- no "to" UseVS, UseVQ = \vv -> {s = vv.s; c2 = noPrep; vtype = vv.vtype} ; -- no "to"
CompNP np = {s = \\_ => np.s ! Acc} ; CompAP ap = {s = \\agr => ap.s ! aform agr.gn Indef (RObj Acc)} ;
CompNP np = {s = \\_ => np.s ! RObj Acc} ;
CompAdv a = {s = \\_ => a.s} ; CompAdv a = {s = \\_ => a.s} ;
} }