mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-30 02:58:35 -06:00
(Bul) Change encodings from CP1251 to UTF8 (#343)
This commit is contained in:
John J. Camilleri
committed by
GitHub
GitHub
parent
71782b8e04
commit
e199fbbb0c
+75
-75
@@ -1,5 +1,5 @@
|
||||
--# -path=.:../../prelude
|
||||
--# -coding=cp1251
|
||||
--# -coding=utf8
|
||||
|
||||
--1 A Simple English Resource Morphology
|
||||
--
|
||||
@@ -14,7 +14,7 @@ resource MorphoBul = ResBul ** open
|
||||
Prelude,
|
||||
CatBul
|
||||
in {
|
||||
flags coding=cp1251 ;
|
||||
flags coding=utf8 ;
|
||||
|
||||
|
||||
flags optimize=all ;
|
||||
@@ -95,73 +95,73 @@ oper
|
||||
\cheta,chete,chetoh,chetqh,chel,chetql,cheten,chetqst,cheti,chetene ->
|
||||
table {
|
||||
VPres Sg P1 => cheta;
|
||||
VPres Sg P2 => chete + "ø";
|
||||
VPres Sg P2 => chete + "ш";
|
||||
VPres Sg P3 => chete;
|
||||
VPres Pl P1 => case chete of {
|
||||
_ + ("à"|"ÿ") => chete + "ìå";
|
||||
_ => chete + "ì"
|
||||
_ + ("а"|"я") => chete + "ме";
|
||||
_ => chete + "м"
|
||||
};
|
||||
VPres Pl P2 => chete + "òå";
|
||||
VPres Pl P2 => chete + "те";
|
||||
VPres Pl P3 => case cheta of {
|
||||
vika + "ì" => case chete of {
|
||||
zn + "àå" => zn + "àÿò";
|
||||
dad + "å" => dad + "àò";
|
||||
vika => vika + "ò"
|
||||
vika + "м" => case chete of {
|
||||
zn + "ае" => zn + "аят";
|
||||
dad + "е" => dad + "ат";
|
||||
vika => vika + "т"
|
||||
};
|
||||
_ => cheta + "ò"
|
||||
_ => cheta + "т"
|
||||
};
|
||||
VAorist Sg P1 => chetoh;
|
||||
VAorist Sg _ => case chetoh of {
|
||||
chet+"îõ" => chete;
|
||||
zova+ "õ" => zova
|
||||
chet+"ох" => chete;
|
||||
zova+ "х" => zova
|
||||
};
|
||||
VAorist Pl P1 => chetoh + "ìå";
|
||||
VAorist Pl P2 => chetoh + "òå";
|
||||
VAorist Pl P3 => chetoh + "à";
|
||||
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 + "øå"
|
||||
rabot + "и" => rabot + "eше";
|
||||
_ => chete + "ше"
|
||||
};
|
||||
VImperfect Pl P1 => chetqh + "ìå";
|
||||
VImperfect Pl P2 => chetqh + "òå";
|
||||
VImperfect Pl P3 => chetqh + "à";
|
||||
VImperfect Pl P1 => chetqh + "ме";
|
||||
VImperfect Pl P2 => chetqh + "те";
|
||||
VImperfect Pl P3 => chetqh + "а";
|
||||
VPerfect aform =>let chel1 : Str =
|
||||
case chel of {
|
||||
pas+"úë" => pas+"ë";
|
||||
pas+"ъл" => pas+"л";
|
||||
_ => chel
|
||||
} ;
|
||||
chel2 : Str =
|
||||
case chel of {
|
||||
w+"ëÿçúë" => w+"ëåçë";
|
||||
w+"лязъл" => w+"лезл";
|
||||
_ => chel
|
||||
}
|
||||
in (mkAdjective chel
|
||||
(chel2+"èÿ")
|
||||
(chel2+"èÿò")
|
||||
(chel2+"ия")
|
||||
(chel2+"ият")
|
||||
(chel1+"a")
|
||||
(chel1+"àòà")
|
||||
(chel1+"î")
|
||||
(chel1+"îòî")
|
||||
(ia2e chel1+"è")
|
||||
(ia2e chel1+"èòå")).s ! aform ;
|
||||
(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 + "òå"
|
||||
chet + "и" => chet + "ете";
|
||||
ela => ela + "те"
|
||||
};
|
||||
VNoun nform => let v0 = init chetene
|
||||
in (mkNoun (v0+"å")
|
||||
(v0+"èÿ")
|
||||
(v0+"èÿ")
|
||||
(v0+"å")
|
||||
in (mkNoun (v0+"е")
|
||||
(v0+"ия")
|
||||
(v0+"ия")
|
||||
(v0+"е")
|
||||
ANeut) ! nform;
|
||||
VGerund => case chete of {
|
||||
rabot + "è" => rabot + "åéêè";
|
||||
_ => chete + "éêè"
|
||||
rabot + "и" => rabot + "ейки";
|
||||
_ => chete + "йки"
|
||||
}
|
||||
} ;
|
||||
|
||||
@@ -172,51 +172,51 @@ oper
|
||||
table {
|
||||
NF Sg Indef => sg ;
|
||||
NF Sg Def => case sg of {
|
||||
_+"à"=>sg+"òà" ;
|
||||
_+"ÿ"=>sg+"òà" ;
|
||||
_+"î"=>sg+"òî" ;
|
||||
_+"ó"=>sg+"òî" ;
|
||||
_+"å"=>sg+"òî" ;
|
||||
_+"è"=>sg+"òî" ;
|
||||
s+"é"=>s +"ÿ" ;
|
||||
_+("úð")
|
||||
=>sg +"à" ;
|
||||
_+("òåë"|"àð"|"ÿð"|"äåí"
|
||||
|"ïúò"|"îãúí"|"ñúí"
|
||||
|"êîí"|"êðàë"|"öàð"
|
||||
|"çåò"|"ëàêúò"|"íîêúò")
|
||||
=>sg +"ÿ" ;
|
||||
_+"а"=>sg+"та" ;
|
||||
_+"я"=>sg+"та" ;
|
||||
_+"о"=>sg+"то" ;
|
||||
_+"у"=>sg+"то" ;
|
||||
_+"е"=>sg+"то" ;
|
||||
_+"и"=>sg+"то" ;
|
||||
s+"й"=>s +"я" ;
|
||||
_+("ър")
|
||||
=>sg +"а" ;
|
||||
_+("тел"|"ар"|"яр"|"ден"
|
||||
|"път"|"огън"|"сън"
|
||||
|"кон"|"крал"|"цар"
|
||||
|"зет"|"лакът"|"нокът")
|
||||
=>sg +"я" ;
|
||||
_ =>case g of {
|
||||
AFem => sg+"òà" ;
|
||||
_ => sg+"à"
|
||||
AFem => sg+"та" ;
|
||||
_ => sg+"а"
|
||||
}
|
||||
} ;
|
||||
NF Pl Indef => pl ;
|
||||
NF Pl Def => case pl of {
|
||||
_+"à"=>pl+"òà" ;
|
||||
_+"å"=>pl+"òå" ;
|
||||
_+"è"=>pl+"òå" ;
|
||||
_+"ÿ"=>pl+"òà" ;
|
||||
_ =>pl+"òå"
|
||||
_+"а"=>pl+"та" ;
|
||||
_+"е"=>pl+"те" ;
|
||||
_+"и"=>pl+"те" ;
|
||||
_+"я"=>pl+"та" ;
|
||||
_ =>pl+"те"
|
||||
} ;
|
||||
NFSgDefNom => case sg of {
|
||||
_+"à"=>sg+"òà" ;
|
||||
_+"ÿ"=>sg+"òà" ;
|
||||
_+"î"=>sg+"òî" ;
|
||||
_+"ó"=>sg+"òî" ;
|
||||
_+"å"=>sg+"òî" ;
|
||||
_+"è"=>sg+"òî" ;
|
||||
s+"é"=>s +"ÿò" ;
|
||||
_+("úð")
|
||||
=>sg +"úò" ;
|
||||
_+("òåë"|"àð"|"ÿð"|"äåí"
|
||||
|"ïúò"|"îãúí"|"ñúí"
|
||||
|"êîí"|"êðàë"|"öàð"
|
||||
|"çåò"|"ëàêúò"|"íîêúò")
|
||||
=>sg+"ÿò" ;
|
||||
_+"а"=>sg+"та" ;
|
||||
_+"я"=>sg+"та" ;
|
||||
_+"о"=>sg+"то" ;
|
||||
_+"у"=>sg+"то" ;
|
||||
_+"е"=>sg+"то" ;
|
||||
_+"и"=>sg+"то" ;
|
||||
s+"й"=>s +"ят" ;
|
||||
_+("ър")
|
||||
=>sg +"ът" ;
|
||||
_+("тел"|"ар"|"яр"|"ден"
|
||||
|"път"|"огън"|"сън"
|
||||
|"кон"|"крал"|"цар"
|
||||
|"зет"|"лакът"|"нокът")
|
||||
=>sg+"ят" ;
|
||||
_ =>case g of {
|
||||
AFem => sg+"òà" ;
|
||||
_ => sg+"úò"
|
||||
AFem => sg+"та" ;
|
||||
_ => sg+"ът"
|
||||
}
|
||||
} ;
|
||||
NFPlCount => count ;
|
||||
|
||||
Reference in New Issue
Block a user