mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-19 09:49:33 -06:00
574 lines
20 KiB
Plaintext
574 lines
20 KiB
Plaintext
--# -path=.:../abstract:../common:../../prelude
|
|
|
|
--1 Bulgarian auxiliary operations.
|
|
|
|
-- This module contains operations that are needed to make the
|
|
-- resource syntax work. To define everything that is needed to
|
|
-- implement $Test$, it moreover contains regular lexical
|
|
-- patterns needed for $Lex$.
|
|
|
|
resource ResBul = ParamX ** open Prelude in {
|
|
|
|
flags optimize=all ;
|
|
|
|
-- Some parameters, such as $Number$, are inherited from $ParamX$.
|
|
|
|
--2 For $Noun$
|
|
|
|
-- This is the worst-case $Case$ needed for pronouns.
|
|
|
|
param
|
|
Role = RSubj | RObj Case | RVoc ;
|
|
Case = Acc | Dat;
|
|
|
|
NForm =
|
|
NF Number Species
|
|
| NFSgDefNom
|
|
| NFPlCount
|
|
| NFVocative
|
|
;
|
|
|
|
GenNum = GSg Gender | GPl ;
|
|
|
|
-- Agreement of $NP$ is a record. We'll add $Gender$ later.
|
|
|
|
oper
|
|
Agr = {gn : GenNum ; p : Person} ;
|
|
|
|
param
|
|
Gender = Masc | Fem | Neut ;
|
|
|
|
Species = Indef | Def ;
|
|
|
|
-- The plural never makes a gender distinction.
|
|
|
|
--2 For $Verb$
|
|
|
|
Aspect = Imperf | Perf ;
|
|
|
|
VForm =
|
|
VPres Number Person
|
|
| VAorist Number Person
|
|
| VImperfect Number Person
|
|
| VPerfect AForm
|
|
| VPluPerfect AForm
|
|
| VPassive AForm
|
|
| VPresPart AForm
|
|
| VImperative Number
|
|
| VGerund
|
|
;
|
|
|
|
VType =
|
|
VNormal
|
|
| VMedial Case
|
|
| VPhrasal Case
|
|
;
|
|
|
|
-- The order of sentence is needed already in $VP$.
|
|
|
|
Order = Main | Inv | Quest ;
|
|
|
|
--2 For $Adjective$
|
|
|
|
AForm =
|
|
ASg Gender Species
|
|
| ASgMascDefNom
|
|
| APl Species
|
|
;
|
|
|
|
--2 For $Numeral$
|
|
|
|
DGender =
|
|
DMasc
|
|
| DMascPersonal
|
|
| DFem
|
|
| DNeut
|
|
;
|
|
|
|
DGenderSpecies =
|
|
DMascIndef
|
|
| DMascDef
|
|
| DMascDefNom
|
|
| DMascPersonalIndef
|
|
| DMascPersonalDef
|
|
| DMascPersonalDefNom
|
|
| DFemIndef
|
|
| DFemDef
|
|
| DNeutIndef
|
|
| DNeutDef
|
|
;
|
|
|
|
CardOrd = NCard DGenderSpecies | NOrd AForm ;
|
|
DForm = unit | teen | ten | hundred ;
|
|
|
|
--2 Transformations between parameter types
|
|
|
|
oper
|
|
agrP3 : GenNum -> Agr = \gn ->
|
|
{gn = gn; p = P3} ;
|
|
|
|
conjGenNum : GenNum -> GenNum -> GenNum = \a,b ->
|
|
case <a,b> of {
|
|
<GSg _,GSg g> => GSg g ;
|
|
_ => GPl
|
|
} ;
|
|
|
|
conjAgr : Agr -> Agr -> Agr = \a,b -> {
|
|
gn = conjGenNum a.gn b.gn ;
|
|
p = conjPerson a.p b.p
|
|
} ;
|
|
|
|
gennum : DGender -> Number -> GenNum = \g,n ->
|
|
case n of {
|
|
Sg => GSg (case g of {
|
|
DMasc => Masc ;
|
|
DMascPersonal => Masc ;
|
|
DFem => Fem ;
|
|
DNeut => Neut
|
|
}) ;
|
|
Pl => GPl
|
|
} ;
|
|
|
|
numGenNum : GenNum -> Number = \gn ->
|
|
case gn of {
|
|
GSg _ => Sg ;
|
|
GPl => Pl
|
|
} ;
|
|
|
|
aform : GenNum -> Species -> Role -> AForm = \gn,spec,role ->
|
|
case gn of {
|
|
GSg g => case <g,spec,role> of {
|
|
<Masc,Def,RSubj> => ASgMascDefNom ;
|
|
_ => ASg g spec
|
|
} ;
|
|
GPl => APl spec
|
|
} ;
|
|
|
|
dgenderSpecies : DGender -> Species -> Role -> DGenderSpecies =
|
|
\g,spec,role -> case <g,spec> of {
|
|
<DMasc,Indef> => DMascIndef ;
|
|
<DMasc,Def> => case role of {
|
|
RSubj => DMascDefNom ;
|
|
_ => DMascDef
|
|
} ;
|
|
<DMascPersonal,Indef> => DMascPersonalIndef ;
|
|
<DMascPersonal,Def> => case role of {
|
|
RSubj => DMascPersonalDefNom ;
|
|
_ => DMascPersonalDef
|
|
} ;
|
|
<DFem ,Indef> => DFemIndef ;
|
|
<DFem ,Def> => DFemDef ;
|
|
<DNeut,Indef> => DNeutIndef ;
|
|
<DNeut,Def> => DNeutDef
|
|
} ;
|
|
|
|
nform2aform : NForm -> DGender -> AForm
|
|
= \nf,g -> case nf of {
|
|
NF n spec => aform (gennum g n) spec (RObj Acc) ;
|
|
NFSgDefNom => aform (gennum g Sg) Def RSubj ;
|
|
NFPlCount => APl Indef ;
|
|
NFVocative => aform (gennum g Sg) Indef (RObj Acc)
|
|
} ;
|
|
|
|
indefNForm : NForm -> NForm
|
|
= \nf -> case nf of {
|
|
NF n spec => NF n Indef ;
|
|
NFSgDefNom => NF Sg Indef ;
|
|
NFPlCount => NFPlCount ;
|
|
NFVocative => NFVocative
|
|
} ;
|
|
|
|
numNForm : NForm -> Number
|
|
= \nf -> case nf of {
|
|
NF n spec => n ;
|
|
NFSgDefNom => Sg ;
|
|
NFPlCount => Pl ;
|
|
NFVocative => Sg
|
|
} ;
|
|
|
|
oper
|
|
-- For $Verb$.
|
|
VTable = VForm => Str ;
|
|
|
|
Verb : Type = {
|
|
s : Aspect => VTable ;
|
|
vtype : VType
|
|
} ;
|
|
|
|
VP : Type = {
|
|
s : Tense => Anteriority => Polarity => Agr => Bool => Aspect => Str ;
|
|
imp : Polarity => Number => Aspect => Str ;
|
|
ad : Bool => Str ; -- sentential adverb
|
|
s2 : Agr => Str ;
|
|
subjRole : Role
|
|
} ;
|
|
|
|
predV : Verb -> VP =
|
|
\verb ->
|
|
{ s = \\t,a,p,agr,q,asp =>
|
|
let clitic = case verb.vtype of {
|
|
VNormal => {s=[]; agr=agr} ;
|
|
VMedial c => {s=reflClitics ! c; agr=agr} ;
|
|
VPhrasal c => {s=personalClitics ! c ! agr.gn ! agr.p; agr={gn=GSg Neut; p=P3}}
|
|
} ;
|
|
|
|
present = verb.s ! asp ! (VPres (numGenNum clitic.agr.gn) clitic.agr.p) ;
|
|
presentImperf = verb.s ! Imperf ! (VPres (numGenNum clitic.agr.gn) clitic.agr.p) ;
|
|
aorist = verb.s ! asp ! (VAorist (numGenNum clitic.agr.gn) clitic.agr.p) ;
|
|
perfect = verb.s ! asp ! (VPerfect (aform clitic.agr.gn Indef (RObj Acc))) ;
|
|
|
|
auxPres = auxBe ! VPres (numGenNum clitic.agr.gn) clitic.agr.p ;
|
|
auxAorist = auxBe ! VAorist (numGenNum clitic.agr.gn) clitic.agr.p ;
|
|
auxCond = auxWould ! VAorist (numGenNum clitic.agr.gn) clitic.agr.p ;
|
|
|
|
apc : Str -> Str = \s ->
|
|
case <numGenNum clitic.agr.gn, clitic.agr.p> of {
|
|
<Sg, P3> => clitic.s++s++auxPres ;
|
|
_ => auxPres++s++clitic.s
|
|
} ;
|
|
|
|
li = case q of {True => "ëè"; False => []} ;
|
|
|
|
vf1 : Str -> {s1 : Str; s2 : Str} = \s ->
|
|
case p of {
|
|
Pos => case q of {True => {s1=[]; s2="ëè"++apc []};
|
|
False => {s1=apc []; s2=[]}} ;
|
|
Neg => {s1="íå"++apc li; s2=[]}
|
|
} ;
|
|
|
|
vf2 : Str -> {s1 : Str; s2 : Str} = \s ->
|
|
case p of {
|
|
Pos => case q of {True => {s1=[]; s2="ëè"++s};
|
|
False => {s1=s; s2=[]}} ;
|
|
Neg => case verb.vtype of
|
|
{VNormal => {s1="íå"; s2=li} ;
|
|
_ => {s1="íå"++s++li; s2=[]}}
|
|
} ;
|
|
|
|
vf3 : Str -> {s1 : Str; s2 : Str} = \s ->
|
|
case p of {
|
|
Pos => {s1="ùå"++s; s2=li} ;
|
|
Neg => {s1="íÿìà"++li++"äà"++s; s2=[]}
|
|
} ;
|
|
|
|
vf4 : Str -> {s1 : Str; s2 : Str} = \s ->
|
|
case p of {
|
|
Pos => {s1= s++li++clitic.s; s2=[]} ;
|
|
Neg => {s1="íå"++s++li++clitic.s; s2=[]}
|
|
} ;
|
|
|
|
verbs : {aux:{s1:Str; s2:Str}; main:Str}
|
|
= case <t,a> of {
|
|
<Pres,Simul> => {aux=vf2 clitic.s; main=presentImperf} ;
|
|
<Pres,Anter> => {aux=vf1 clitic.s; main=perfect} ;
|
|
<Past,Simul> => {aux=vf2 clitic.s; main=aorist} ;
|
|
<Past,Anter> => {aux=vf4 auxAorist; main=perfect} ;
|
|
<Fut, Simul> => {aux=vf3 clitic.s; main=present} ;
|
|
<Fut, Anter> => {aux=vf3 (apc []); main=perfect} ;
|
|
<Cond,_ > => {aux=vf4 auxCond ; main=perfect}
|
|
}
|
|
|
|
in verbs.aux.s1 ++ verbs.main ++ verbs.aux.s2 ;
|
|
imp = \\p,n,asp =>
|
|
case p of {
|
|
Pos => verb.s ! asp ! VImperative n ;
|
|
Neg => "íå" ++ verb.s ! Imperf ! VImperative n
|
|
} ;
|
|
ad = \\_ => [] ;
|
|
s2 = \\_ => [] ;
|
|
subjRole = case verb.vtype of {
|
|
VNormal => RSubj ;
|
|
VMedial _ => RSubj ;
|
|
VPhrasal c => RObj c
|
|
}
|
|
} ;
|
|
|
|
insertObj : (Agr => Str) -> VP -> VP = \obj,vp -> {
|
|
s = vp.s ;
|
|
imp = vp.imp ;
|
|
ad = vp.ad ;
|
|
s2 = \\a => vp.s2 ! a ++ obj ! a ;
|
|
subjRole = vp.subjRole
|
|
} ;
|
|
|
|
auxBe : VTable =
|
|
table {
|
|
VPres Sg P1 => "ñúì" ;
|
|
VPres Sg P2 => "ñè" ;
|
|
VPres Sg P3 => "å" ;
|
|
VPres Pl P1 => "ñìå" ;
|
|
VPres Pl P2 => "ñòå" ;
|
|
VPres Pl P3 => "ñà" ;
|
|
VAorist Sg P1 => "áÿõ" ;
|
|
VAorist Sg _ => "áåøå" ;
|
|
VAorist Pl P1 => "áÿõìå" ;
|
|
VAorist Pl P2 => "áÿõòå" ;
|
|
VAorist Pl P3 => "áÿõà" ;
|
|
VImperfect Sg P1 => "áÿõ" ;
|
|
VImperfect Sg _ => "áåøå" ;
|
|
VImperfect Pl P1 => "áÿõìå" ;
|
|
VImperfect Pl P2 => "áÿõòå" ;
|
|
VImperfect Pl P3 => "áÿõà" ;
|
|
VPerfect aform => regAdjective "áèë" ! aform ;
|
|
VPluPerfect aform => regAdjective "áèë" ! aform ;
|
|
VPassive aform => regAdjective "áúäåí" ! aform ;
|
|
VPresPart aform => regAdjective "áúäåù" ! aform ;
|
|
VImperative Sg => "áúäè" ;
|
|
VImperative Pl => "áúäåòå" ;
|
|
VGerund => "áèäåéêè"
|
|
} ;
|
|
|
|
auxWould : VTable =
|
|
table {
|
|
VPres Sg P1 => "áúäà" ;
|
|
VPres Sg P2 => "áúäåø" ;
|
|
VPres Sg P3 => "áúäå" ;
|
|
VPres Pl P1 => "áúäåì" ;
|
|
VPres Pl P2 => "áúäåòå" ;
|
|
VPres Pl P3 => "áúäàò" ;
|
|
VAorist Sg P1 => "áèõ" ;
|
|
VAorist Sg _ => "áè" ;
|
|
VAorist Pl P1 => "áèõìå" ;
|
|
VAorist Pl P2 => "áèõòå" ;
|
|
VAorist Pl P3 => "áèõà" ;
|
|
VImperfect Sg P1 => "áúäåõ" ;
|
|
VImperfect Sg _ => "áúäåøå" ;
|
|
VImperfect Pl P1 => "áúäåõìå" ;
|
|
VImperfect Pl P2 => "áúäåõòå" ;
|
|
VImperfect Pl P3 => "áúäåõà" ;
|
|
VPerfect aform => regAdjective "áèë" ! aform ;
|
|
VPluPerfect aform => regAdjective "áúäåë" ! aform ;
|
|
VPassive aform => regAdjective "áúäåí" ! aform ;
|
|
VPresPart aform => regAdjective "áúäåù" ! aform ;
|
|
VImperative Sg => "áúäè" ;
|
|
VImperative Pl => "áúäåòå" ;
|
|
VGerund => "áúäåéêè"
|
|
} ;
|
|
|
|
verbBe : Verb = {s=\\_=>auxBe ; vtype=VNormal} ;
|
|
verbWould : Verb = {s=\\_=>auxWould ; 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 "ó"
|
|
\s -> case s of {
|
|
x@(_*+_) + "ÿ" + y@(("á"|"â"|"ã"|"ä"|"æ"|"ç"|"ê"|"ë"|"ì"|"í"|"ï"|"ð"|"ñ"|"ò"|"ô"|"õ"|"ö"|"÷"|"ø"|"ù")*)
|
|
=> x+"e"+y;
|
|
_ => s
|
|
};
|
|
|
|
regAdjective : Str -> AForm => Str =
|
|
\base -> table {
|
|
ASg Masc Indef => base ;
|
|
ASg Masc Def => (base+"èÿ") ;
|
|
ASgMascDefNom => (base+"èÿò") ;
|
|
ASg Fem Indef => (base+"a") ;
|
|
ASg Fem Def => (base+"àòà") ;
|
|
ASg Neut Indef => (base+"î") ;
|
|
ASg Neut Def => (base+"îòî") ;
|
|
APl Indef => (ia2e base+"è") ;
|
|
APl Def => (ia2e base+"èòå")
|
|
};
|
|
|
|
-- For $Sentence$.
|
|
|
|
Clause : Type = {
|
|
s : Tense => Anteriority => Polarity => Order => Str
|
|
} ;
|
|
|
|
mkClause : Str -> Agr -> VP -> Clause =
|
|
\subj,agr,vp -> {
|
|
s = \\t,a,p,o =>
|
|
let
|
|
verb : Bool => Str
|
|
= \\q => vp.ad ! q ++ vp.s ! t ! a ! p ! agr ! q ! Perf ;
|
|
compl = vp.s2 ! agr
|
|
in case o of {
|
|
Main => subj ++ verb ! False ++ compl ;
|
|
Inv => verb ! False ++ compl ++ subj ;
|
|
Quest => subj ++ verb ! True ++ compl
|
|
}
|
|
} ;
|
|
|
|
-- For $Numeral$.
|
|
|
|
mkDigit : Str -> Str -> Str -> Str -> Str -> {s : DForm => CardOrd => Str} =
|
|
\dva, dvama, dve, vtori, dvesta ->
|
|
{s = table {
|
|
unit => mkCardOrd dva dvama dve vtori ;
|
|
teen => mkCardOrd (dva+"íàäåñåò") (dva+"íàäåñåòèìà") (dva+"íàäåñåò") (dva+"íàäåñåòè") ;
|
|
ten => mkCardOrd (dva+"äåñåò") (dva+"äåñåòèìà") (dva+"äåñåò") (dva+"äåñåòè") ;
|
|
hundred => let dvesten : Str
|
|
= case dvesta of {
|
|
dvest+"à" => dvest+"åí" ;
|
|
chetiristot+"èí" => chetiristot+"åí"
|
|
}
|
|
in mkCardOrd dvesta dvesta dvesta dvesten
|
|
}
|
|
} ;
|
|
|
|
mkCardOrd : Str -> Str -> Str -> Str -> CardOrd => Str =
|
|
\dva, dvama, dve, vtori ->
|
|
table {
|
|
NCard dg => digitGenderSpecies dva dvama dve ! dg ;
|
|
NOrd aform => let vtora = init vtori + "à" ;
|
|
vtoro = init vtori + "î"
|
|
in case aform of {
|
|
ASg Masc Indef => vtori ;
|
|
ASg Masc Def => vtori+"ÿ" ;
|
|
ASgMascDefNom => vtori+"ÿò" ;
|
|
ASg Fem Indef => vtora ;
|
|
ASg Fem Def => vtora+"òà" ;
|
|
ASg Neut Indef => vtoro ;
|
|
ASg Neut Def => vtoro+"òî" ;
|
|
APl Indef => vtori ;
|
|
APl Def => vtori+"òå"
|
|
}
|
|
} ;
|
|
|
|
digitGenderSpecies : Str -> Str -> Str -> DGenderSpecies => Str =
|
|
\dva, dvama, dve
|
|
-> let addDef : Str -> Str =
|
|
\s -> case s of {
|
|
dves+"òà" => dves+"òàòå" ;
|
|
dv+"à" => dv+"àòà" ;
|
|
x => x+"òå"
|
|
}
|
|
in table {
|
|
DMascIndef => dva ;
|
|
DMascDef => addDef dva ;
|
|
DMascDefNom => addDef dva ;
|
|
DMascPersonalIndef => dvama ;
|
|
DMascPersonalDef => addDef dvama ;
|
|
DMascPersonalDefNom => addDef dvama ;
|
|
DFemIndef => dve ;
|
|
DFemDef => addDef dve ;
|
|
DNeutIndef => dve ;
|
|
DNeutDef => addDef dve
|
|
} ;
|
|
|
|
mkIP : Str -> Str -> GenNum -> {s : Role => Str ; gn : GenNum} =
|
|
\koi,kogo,gn -> {
|
|
s = table {
|
|
RSubj => koi ;
|
|
RObj Acc => kogo ;
|
|
RObj Dat => "íà" ++ kogo ;
|
|
RVoc => koi
|
|
} ;
|
|
gn = gn
|
|
} ;
|
|
|
|
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 -> {
|
|
s = table {
|
|
RSubj => az ;
|
|
RObj Acc => men ;
|
|
RObj Dat => mi ;
|
|
RVoc => az
|
|
} ;
|
|
gen = table {
|
|
ASg Masc Indef => moj ;
|
|
ASg Masc Def => moia ;
|
|
ASgMascDefNom => moiat ;
|
|
ASg Fem Indef => moia_ ;
|
|
ASg Fem Def => moiata ;
|
|
ASg Neut Indef => moe ;
|
|
ASg Neut Def => moeto ;
|
|
APl Indef => moi ;
|
|
APl Def => moite
|
|
} ;
|
|
a = {
|
|
gn = gn ;
|
|
p = p
|
|
}
|
|
} ;
|
|
|
|
mkNP : Str -> GenNum -> Person -> {s : Role => Str; a : Agr} =
|
|
\s,gn,p -> {
|
|
s = table {
|
|
RSubj => s ;
|
|
RObj Acc => s ;
|
|
RObj Dat => "íà" ++ s ;
|
|
RVoc => s
|
|
} ;
|
|
a = {
|
|
gn = gn ;
|
|
p = p
|
|
}
|
|
} ;
|
|
|
|
Preposition : Type = {s : Str; c : Case};
|
|
|
|
mkQuestion :
|
|
{s1,s2 : Str} -> Clause ->
|
|
{s : Tense => Anteriority => Polarity => QForm => Str} = \wh,cl ->
|
|
{
|
|
s = \\t,a,p =>
|
|
let cls = cl.s ! t ! a ! p ;
|
|
in table {
|
|
QDir => wh.s1 ++ cls ! Inv ;
|
|
QIndir => wh.s2 ++ cls ! Main
|
|
}
|
|
} ;
|
|
|
|
whichRP : GenNum => Str
|
|
= table {
|
|
GSg Masc => "êîéòî" ;
|
|
GSg Fem => "êîÿòî" ;
|
|
GSg Neut => "êîåòî" ;
|
|
GPl => "êîèòî"
|
|
} ;
|
|
|
|
suchRP : GenNum => Str
|
|
= table {
|
|
GSg Masc => "òàêúâ" ;
|
|
GSg Fem => "òàêàâà" ;
|
|
GSg Neut => "òàêîâà" ;
|
|
GPl => "òàêèâà"
|
|
} ;
|
|
|
|
thisRP : GenNum => Str
|
|
= table {
|
|
GSg Masc => "òîçè" ;
|
|
GSg Fem => "òaçè" ;
|
|
GSg Neut => "òîâà" ;
|
|
GPl => "òåçè"
|
|
} ;
|
|
}
|