mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-02 19:58:55 -06:00
241 lines
9.9 KiB
Plaintext
241 lines
9.9 KiB
Plaintext
--# -path=.:../../prelude
|
|
--# -coding=cp1251
|
|
|
|
--1 A Simple English Resource Morphology
|
|
--
|
|
-- Aarne Ranta 2002 -- 2005
|
|
--
|
|
-- This resource morphology contains definitions needed in the resource
|
|
-- syntax. To build a lexicon, it is better to use $ParadigmsEng$, which
|
|
-- gives a higher-level access to this module.
|
|
|
|
resource MorphoBul = ResBul ** open
|
|
Predef,
|
|
Prelude,
|
|
CatBul
|
|
in {
|
|
flags coding=cp1251 ;
|
|
|
|
|
|
flags optimize=all ;
|
|
|
|
oper
|
|
--2 Determiners
|
|
|
|
mkDeterminerSg = overload {
|
|
mkDeterminerSg : Str -> Str -> Str -> {s : Bool => AGender => Role => Str; nn : NNumber; spec : Species; p : Polarity} = \vseki,vsiaka,vsiako ->
|
|
{s = \\_,g,_ => table AGender [vseki;vseki;vsiaka;vsiako] ! g; nn = NNum Sg; spec = Indef; p = Pos} ;
|
|
mkDeterminerSg : Str -> Str -> Str -> Str -> Str -> Str -> {s : Bool => AGender => Role => Str; nn : NNumber; spec : Species; p : Polarity} = \vseki,vsiaka,vsiako,vseki',vsiaka',vsiako' ->
|
|
{s = \\sp,g,_ => case sp of {
|
|
True => table AGender [vseki; vseki; vsiaka; vsiako ] ! g;
|
|
False => table AGender [vseki';vseki';vsiaka';vsiako'] ! g
|
|
};
|
|
nn = NNum Sg;
|
|
spec = Indef;
|
|
p = Pos
|
|
} ;
|
|
} ;
|
|
|
|
mkDeterminerPl = overload {
|
|
mkDeterminerPl : Str -> {s : Bool => AGender => Role => Str ; nn : NNumber ; spec : Species; p : Polarity} = \vsicki ->
|
|
{s = \\_,_,_ => vsicki; nn = NNum Pl; spec = Indef; p = Pos} ;
|
|
mkDeterminerPl : Str -> Str -> Str -> Str -> {s : Bool => AGender => Role => Str ; nn : NNumber ; spec : Species; p : Polarity} = \i_dvamata,i_dvata,i_dvete,i_dvete_neut ->
|
|
{s = \\_,g,_ => table AGender [i_dvamata;i_dvata;i_dvete;i_dvete_neut] ! g; nn = NNum Pl; spec = Indef; p = Pos} ;
|
|
mkDeterminerPl : Str -> Str -> Str -> Str -> Str -> Str -> Str -> Str -> {s : Bool => AGender => Role => Str ; nn : NNumber ; spec : Species; p : Polarity} = \i_dvamata,i_dvata,i_dvete,i_dvete_neut,i_dvamata',i_dvata',i_dvete',i_dvete_neut' ->
|
|
{s = \\sp,g,_ => case sp of {
|
|
True => table AGender [i_dvamata; i_dvata; i_dvete; i_dvete_neut ] ! g;
|
|
False => table AGender [i_dvamata';i_dvata';i_dvete';i_dvete_neut'] ! g
|
|
};
|
|
nn = NNum Pl;
|
|
spec = Indef;
|
|
p = Pos
|
|
} ;
|
|
} ;
|
|
|
|
mkQuant = overload {
|
|
mkQuant : Str -> Str -> Str -> Str -> {s : Bool => AForm => Str; nonEmpty : Bool; spec : Species; p : Polarity} = \tozi,tazi,towa,tezi ->
|
|
{ s = \\_ => table {
|
|
ASg Masc _ => tozi ;
|
|
ASgMascDefNom => tozi ;
|
|
ASg Fem _ => tazi ;
|
|
ASg Neut _ => towa ;
|
|
APl _ => tezi
|
|
} ;
|
|
nonEmpty = True ;
|
|
spec = Indef ;
|
|
p = Pos
|
|
} ;
|
|
|
|
mkQuant : Str -> Str -> Str -> Str -> Str -> Str -> Str -> Str -> {s : Bool => AForm => Str; nonEmpty : Bool; spec : Species; p : Polarity} = \tozi,tazi,towa,tezi,tozi',tazi',towa',tezi' ->
|
|
{ s = table {
|
|
True => table {
|
|
ASg Masc _ => tozi ;
|
|
ASgMascDefNom => tozi ;
|
|
ASg Fem _ => tazi ;
|
|
ASg Neut _ => towa ;
|
|
APl _ => tezi
|
|
} ;
|
|
False => table {
|
|
ASg Masc _ => tozi' ;
|
|
ASgMascDefNom => tozi' ;
|
|
ASg Fem _ => tazi' ;
|
|
ASg Neut _ => towa' ;
|
|
APl _ => tezi'
|
|
}
|
|
} ;
|
|
nonEmpty = True ;
|
|
spec = Indef ;
|
|
p = Pos
|
|
} ;
|
|
} ;
|
|
|
|
--2 Verbs
|
|
|
|
mkVerb : (_,_,_,_,_,_,_,_,_,_:Str) -> VTable =
|
|
\cheta,chete,chetoh,chetqh,chel,chetql,cheten,chetqst,cheti,chetene ->
|
|
table {
|
|
VPres Sg P1 => cheta;
|
|
VPres Sg P2 => chete + "ø";
|
|
VPres Sg P3 => chete;
|
|
VPres Pl P1 => case chete of {
|
|
_ + ("à"|"ÿ") => chete + "ìå";
|
|
_ => chete + "ì"
|
|
};
|
|
VPres Pl P2 => chete + "òå";
|
|
VPres Pl P3 => case cheta of {
|
|
vika + "ì" => case chete of {
|
|
zn + "àå" => zn + "àÿò";
|
|
dad + "å" => dad + "àò";
|
|
vika => vika + "ò"
|
|
};
|
|
_ => cheta + "ò"
|
|
};
|
|
VAorist Sg P1 => chetoh;
|
|
VAorist Sg _ => case chetoh of {
|
|
chet+"îõ" => chete;
|
|
zova+ "õ" => zova
|
|
};
|
|
VAorist Pl P1 => chetoh + "ìå";
|
|
VAorist Pl P2 => chetoh + "òå";
|
|
VAorist Pl P3 => chetoh + "à";
|
|
VImperfect Sg P1 => chetqh;
|
|
VImperfect Sg _ => case chete of {
|
|
rabot + "è" => rabot + "eøå";
|
|
_ => chete + "øå"
|
|
};
|
|
VImperfect Pl P1 => chetqh + "ìå";
|
|
VImperfect Pl P2 => chetqh + "òå";
|
|
VImperfect Pl P3 => chetqh + "à";
|
|
VPerfect aform =>let chel1 : Str =
|
|
case chel of {
|
|
pas+"úë" => pas+"ë";
|
|
_ => chel
|
|
}
|
|
in (mkAdjective chel
|
|
(chel+"èÿ")
|
|
(chel+"èÿò")
|
|
(chel1+"a")
|
|
(chel1+"àòà")
|
|
(chel1+"î")
|
|
(chel1+"îòî")
|
|
(ia2e chel1+"è")
|
|
(ia2e chel1+"èòå")).s ! aform ;
|
|
VPluPerfect aform => regAdjective chetql ! aform ;
|
|
VPassive aform => regAdjective cheten ! aform ;
|
|
VPresPart aform => regAdjective chetqst ! aform ;
|
|
VImperative Sg => cheti;
|
|
VImperative Pl => case cheti of {
|
|
chet + "è" => chet + "åòå";
|
|
ela => ela + "òå"
|
|
};
|
|
VNoun nform => let v0 = init chetene
|
|
in (mkNoun (v0+"å")
|
|
(v0+"èÿ")
|
|
(v0+"èÿ")
|
|
(v0+"å")
|
|
ANeut) ! nform;
|
|
VGerund => case chete of {
|
|
rabot + "è" => rabot + "åéêè";
|
|
_ => chete + "éêè"
|
|
}
|
|
} ;
|
|
|
|
|
|
--2 Nouns
|
|
|
|
mkNoun : Str -> Str -> Str -> Str -> AGender -> NForm => Str = \sg,pl,count,voc,g ->
|
|
table {
|
|
NF Sg Indef => sg ;
|
|
NF Sg Def => case sg of {
|
|
_+"à"=>sg+"òà" ;
|
|
_+"ÿ"=>sg+"òà" ;
|
|
_+"î"=>sg+"òî" ;
|
|
_+"ó"=>sg+"òî" ;
|
|
_+"å"=>sg+"òî" ;
|
|
_+"è"=>sg+"òî" ;
|
|
s+"é"=>s +"ÿ" ;
|
|
_+("úð")
|
|
=>sg +"à" ;
|
|
_+("òåë"|"àð"|"ÿð"|"äåí"
|
|
|"ïúò"|"îãúí"|"ñúí"
|
|
|"êîí"|"êðàë"|"öàð"
|
|
|"çåò"|"ëàêúò"|"íîêúò")
|
|
=>sg +"ÿ" ;
|
|
_ =>case g of {
|
|
AFem => sg+"òà" ;
|
|
_ => sg+"à"
|
|
}
|
|
} ;
|
|
NF Pl Indef => pl ;
|
|
NF Pl Def => case pl of {
|
|
_+"à"=>pl+"òà" ;
|
|
_+"å"=>pl+"òå" ;
|
|
_+"è"=>pl+"òå" ;
|
|
_+"ÿ"=>pl+"òà" ;
|
|
_ =>pl+"òå"
|
|
} ;
|
|
NFSgDefNom => case sg of {
|
|
_+"à"=>sg+"òà" ;
|
|
_+"ÿ"=>sg+"òà" ;
|
|
_+"î"=>sg+"òî" ;
|
|
_+"ó"=>sg+"òî" ;
|
|
_+"å"=>sg+"òî" ;
|
|
_+"è"=>sg+"òî" ;
|
|
s+"é"=>s +"ÿò" ;
|
|
_+("úð")
|
|
=>sg +"úò" ;
|
|
_+("òåë"|"àð"|"ÿð"|"äåí"
|
|
|"ïúò"|"îãúí"|"ñúí"
|
|
|"êîí"|"êðàë"|"öàð"
|
|
|"çåò"|"ëàêúò"|"íîêúò")
|
|
=>sg+"ÿò" ;
|
|
_ =>case g of {
|
|
AFem => sg+"òà" ;
|
|
_ => sg+"úò"
|
|
}
|
|
} ;
|
|
NFPlCount => count ;
|
|
NFVocative => voc
|
|
} ;
|
|
|
|
|
|
--2 Adjectives
|
|
|
|
mkAdjective : (_,_,_,_,_,_,_,_,_ : Str) -> A =
|
|
\dobyr,dobria,dobriat,dobra,dobrata,dobro,dobroto,dobri,dobrite -> {
|
|
s = table {
|
|
ASg Masc Indef => dobyr ;
|
|
ASg Masc Def => dobria ;
|
|
ASgMascDefNom => dobriat ;
|
|
ASg Fem Indef => dobra ;
|
|
ASg Fem Def => dobrata ;
|
|
ASg Neut Indef => dobro ;
|
|
ASg Neut Def => dobroto ;
|
|
APl Indef => dobri ;
|
|
APl Def => dobrite
|
|
} ;
|
|
adv = dobro ;
|
|
lock_A = <>
|
|
} ;
|
|
}
|