1 files changed, 244 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/polyglossia/gloss-churchslavonic.ldf b/Master/texmf-dist/tex/latex/polyglossia/gloss-churchslavonic.ldf
new file mode 100644
index 00000000000..1d19cadcc98
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/polyglossia/gloss-churchslavonic.ldf
@@ -0,0 +1,244 @@
+\ProvidesFile{gloss-churchslavonic.ldf}[polyglossia: module for Church Slavonic]
+\PolyglossiaSetup{churchslavonic}{
+  script=Cyrillic,
+  scripttag=cyrl,
+  langtag=CHU,
+  hyphennames={churchslavonic},
+  hyphenmins={1,2},
+  frenchspacing=true,
+  fontsetup=true
+}
+
+% if spelling is set to modern, Russian date and caption
+% as well as ASCII digits are used.
+\define@key{churchslavonic}{spelling}[modern]{%
+  \ifstrequal{#1}{traditional}%
+    {\def\captionschurchslavonic{\captionschurchslavonic@traditional}%
+     \def\datechurchslavonic{\datechurchslavonic@traditional}}%
+    {\def\captionschurchslavonic{\captionschurchslavonic@modern}%
+     \def\datechurchslavonic{\datechurchslavonic@modern}}%
+}
+
+\newif\ifcyrillic@numerals
+\define@key{churchslavonic}{numerals}[latin]{%
+   \ifstrequal{#1}{cyrillic}%
+      {\cyrillic@numeralstrue}
+      {\cyrillic@numeralsfalse}%
+}
+
+\define@boolkey{churchslavonic}[churchslavonic@]{babelshorthands}[false]{}
+
+\setkeys{churchslavonic}{spelling,numerals}
+
+\ifsystem@babelshorthands
+  \setkeys{churchslavonic}{babelshorthands=true}
+\else
+ \setkeys{churchslavonic}{babelshorthands=false}
+\fi
+
+\ifcsundef{initiate@active@char}{%
+ \input{babelsh.def}%
+  \initiate@active@char{"}%
+}{}
+
+\def\churchslavonic@shorthands{%
+  \bbl@activate{"}%
+  \def\language@group{churchslavonic}%
+%  \declare@shorthand{russian}{"`}{„}%
+%  \declare@shorthand{russian}{"'}{“}%
+%  \declare@shorthand{russian}{"<}{«}%
+%  \declare@shorthand{russian}{">}{»}%
+  \declare@shorthand{churchslavonic}{""}{\hskip\z@skip}%
+  \declare@shorthand{churchslavonic}{"~}{\textormath{\leavevmode\hbox{-}}{-}}%
+  \declare@shorthand{churchslavonic}{"=}{\nobreak-\hskip\z@skip}%
+  \declare@shorthand{churchslavonic}{"|}{\textormath{\nobreak\discretionary{-}{}{\kern.03em}\allowhyphens}{}}%
+  \declare@shorthand{churchslavonic}{"-}{%
+    \def\churchslavonic@sh@tmp{%
+      \if\churchslavonic@sh@next-\expandafter\churchslavonic@sh@emdash
+      \else\expandafter\churchslavonic@sh@hyphen\fi
+    }%
+    \futurelet\churchslavonic@sh@next\churchslavonic@sh@tmp}%
+  \def\churchslavonic@sh@hyphen{%
+    \nobreak\-\bbl@allowhyphens}%
+  \def\churchslavonic@sh@emdash##1##2{\cdash-##1##2}%
+  \def\cdash##1##2##3{\def\tempx@{##3}%
+  \def\tempa@{-}\def\tempb@{~}\def\tempc@{*}%
+   \ifx\tempx@\tempa@\@Acdash\else
+    \ifx\tempx@\tempb@\@Bcdash\else
+     \ifx\tempx@\tempc@\@Ccdash\else
+      \errmessage{Wrong usage of cdash}\fi\fi\fi}%
+  \def\@Acdash{\ifdim\lastskip>\z@\unskip\nobreak\hskip.2em\fi
+    \cyrdash\hskip.2em\ignorespaces}%
+  \def\@Bcdash{\leavevmode\ifdim\lastskip>\z@\unskip\fi
+   \nobreak\cyrdash\penalty\exhyphenpenalty\hskip\z@skip\ignorespaces}%
+  \def\@Ccdash{\leavevmode
+   \nobreak\cyrdash\nobreak\hskip.35em\ignorespaces}%
+  \ifx\cyrdash\undefined
+    \def\cyrdash{\hbox to.8em{--\hss--}}
+  \fi
+  \declare@shorthand{churchslavonic}{",}{\nobreak\hskip.2em\ignorespaces}%
+}
+
+\def\nochurchslavonic@shorthands{%
+  \@ifundefined{initiate@active@char}{}{\bbl@deactivate{"}}%
+}
+
+
+\def\captionschurchslavonic@modern{%
+   \def\prefacename{Предисловие}%
+   \def\refname{Список литературы}%
+   \def\abstractname{Аннотация}%
+   \def\bibname{Литература}%
+\def\chaptername{Глава}%
+   \def\appendixname{Приложение}%
+   \ifcsundef{thechapter}%
+     {\def\contentsname{Содержание}}%
+     {\def\contentsname{Оглавление}}%
+   \def\listfigurename{Список иллюстраций}%
+   \def\listtablename{Список таблиц}%
+   \def\indexname{Предметный указатель}%
+   \def\authorname{Именной указатель}%
+   \def\figurename{Рис.}%
+   \def\tablename{Таблица}%
+   \def\partname{Часть}%
+   \def\enclname{вкл.}%
+   \def\ccname{исх.}%
+   \def\headtoname{вх.}%
+   \def\pagename{с.}%
+   \def\seename{см.}%
+   \def\alsoname{см.~также}%
+   \def\proofname{Доказательство}%
+}
+\def\datechurchslavonic@modern{%
+      \def\today{\number\day%
+      \space\ifcase\month\or%
+      января\or
+      февраля\or
+      марта\or
+      апреля\or
+      мая\or
+      июня\or
+      июля\or
+      августа\or
+      сентября\or
+      октября\or
+      ноября\or
+      декабря\fi%
+      \space \number\year\space г.}}
+    
+\def\captionschurchslavonic@traditional{%
+   \def\prefacename{Предисло́вїе}%
+   \def\refname{Примѣча̑нїѧ}%
+   \def\abstractname{А҆ннота́цїѧ}%
+   \def\bibname{Вивлїогра́фїѧ}%
+   \def\chaptername{Глава̀}%
+   \def\appendixname{Приложе́нїе}%
+   \ifcsundef{thechapter}%
+     {\def\contentsname{Содержа́нїе}}%
+     {\def\contentsname{Ѡ҆главле́нїе}}%
+   \def\listfigurename{Надписа́нїе и҆з̾ѡбраже́нїй}%
+   \def\listtablename{Надписа́нїе табли́цъ}%
+   \def\indexname{Предмѣ́тный ᲂу҆каза́тель}%
+   \def\authorname{И҆менно́й ᲂу҆каза́тель}%
+   \def\figurename{И҆з̾ѡбраже́нїе}%
+   \def\tablename{Табли́ца}%
+   \def\partname{Ча́сть}%
+   \def\enclname{вкл.}%
+   \def\ccname{исх.}%
+   \def\headtoname{вх.}%
+   \def\pagename{с.}%
+   \def\seename{зрѝ}%
+   \def\alsoname{зрѝ~та́кожде}%
+   \def\proofname{Доказа́тельство}%
+}  
+\def\datechurchslavonic@traditional{%
+      \def\today{\number\day%
+      \space\ifcase\month\or%
+      і҆аннꙋа́рїа\or
+      феврꙋа́рїа\or
+      ма́рта\or
+      а҆прі́ллїа\or
+      ма́їа\or
+      і҆ꙋ́нїа\or
+      і҆ꙋ́лїа\or
+      а҆́ѵгꙋста\or
+      септе́мврїа\or
+      ѻ҆ктѡ́врїа\or
+      ное́мврїа\or
+      деке́мврїа\fi%
+      \space л.\space\number\year\space}}
+
+% The following is based on some ideas from ruscor.sty
+\def\churchslavonic@capsformat{%
+   \def\@seccntformat##1{\csname pre##1\endcsname%
+      \csname the##1\endcsname%
+      \csname post##1\endcsname}%
+   \def\@aftersepkern{\hspace{0.5em}}%
+   \def\postchapter{.\@aftersepkern}%
+   \def\postsection{.\@aftersepkern}%
+   \def\postsubsection{.\@aftersepkern}%
+   \def\postsubsubsection{.\@aftersepkern}%
+   \def\postparagraph{.\@aftersepkern}%
+   \def\postsubparagraph{.\@aftersepkern}%
+   \def\prechapter{}%
+   \def\presection{}%
+   \def\presubsection{}%
+   \def\presubsubsection{}%
+   \def\preparagraph{}%
+   \def\presubparagraph{}}
+
+\def\Azbuk#1{\expandafter\churchslavonic@Alph\csname c@#1\endcsname}
+\def\churchslavonic@Alph#1{\ifcase#1\or
+   А\or Б\or В\or Г\or Д\or Є\or Ж\or Ѕ\or
+   З\or И\or І\or К\or Л\or М\or Н\or О\or
+   П\or Р\or С\or Т\or Ꙋ\or Ф\or Х\or Ѿ\or
+   Ц\or Ч\or Ш\or Щ\or Ъ\or Ы\or Ь\or Ѣ\or
+   Ю\or Ѫ\or Ѧ\or Ѯ\or Ѱ\or Ѳ\or Ѵ\else\xpg@ill@value{#1}{churchslavonic@Alph}\fi}
+
+\def\azbuk#1{\expandafter\churchslavonic@alph\csname c@#1\endcsname}
+\def\churchslavonic@alph#1{\ifcase#1\or
+   а\or б\or в\or г\or д\or е\or ж\or ѕ\or 
+   з\or и\or ї\or к\or л\or м\or н\or о\or
+   п\or р\or с\or т\or ꙋ\or ф\or х\or ѿ\or
+   ц\or ч\or ш\or щ\or ъ\or ы\or ь\or ѣ\or
+   ю\or ѫ\or ѧ\or ѯ\or ѱ\or ѳ\or ѵ\else\xpg@ill@value{#1}{churchslavonic@alph}\fi}
+
+%% Deleting stuff for Cyrillic numerals
+%% TODO: link with cu-num package
+\def\noextras@churchslavonic{%
+  \def\@seccntformat##1{\csname the##1\endcsname\quad}% = LaTeX kernel
+  \ifcyrillic@numerals\nochurchslavonic@numbers\fi
+ \nochurchslavonic@shorthands%
+}
+
+\def\blockextras@churchslavonic{%
+  \churchslavonic@capsformat%
+   \ifcyrillic@numerals\churchslavonic@numbers\fi
+  \ifchurchslavonic@babelshorthands\churchslavonic@shorthands\fi
+}
+
+\def\inlineextras@churchslavonic{%
+  \ifchurchslavonic@babelshorthands\churchslavonic@shorthands\fi%
+}
+
+%%% These lines taken from russianb.ldf, part of babel package.
+% make it optional?
+\def\sh    {\mathop{\operator@font sh}\nolimits}
+\def\ch    {\mathop{\operator@font ch}\nolimits}
+\def\tg    {\mathop{\operator@font tg}\nolimits}
+\def\arctg {\mathop{\operator@font arctg}\nolimits}
+\def\arcctg{\mathop{\operator@font arcctg}\nolimits}
+\def\th    {\mathop{\operator@font th}\nolimits}
+\def\ctg   {\mathop{\operator@font ctg}\nolimits}
+\def\cth   {\mathop{\operator@font cth}\nolimits}
+\def\cosec {\mathop{\operator@font cosec}\nolimits}
+\def\Prob  {\mathop{\kern\z@\mathsf{P}}\nolimits}
+\def\Variance{\mathop{\kern\z@\mathsf{D}}\nolimits}
+\def\nod   {\mathop{\mathrm{н.о.д.}}\nolimits}
+\def\nok   {\mathop{\mathrm{н.о.к.}}\nolimits}
+\def\NOD   {\mathop{\mathrm{НОД}}\nolimits}
+\def\NOK   {\mathop{\mathrm{НОК}}\nolimits}
+\def\Proj  {\mathop{\mathrm{Пр}}\nolimits}
+%\DeclareRobustCommand{\No}{№}
+
+\endinput