summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/babel-serbian/serbian.ldf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/babel-serbian/serbian.ldf')
-rw-r--r--Master/texmf-dist/tex/generic/babel-serbian/serbian.ldf56
1 files changed, 54 insertions, 2 deletions
diff --git a/Master/texmf-dist/tex/generic/babel-serbian/serbian.ldf b/Master/texmf-dist/tex/generic/babel-serbian/serbian.ldf
index 376f972f0d0..d92cdcfcc38 100644
--- a/Master/texmf-dist/tex/generic/babel-serbian/serbian.ldf
+++ b/Master/texmf-dist/tex/generic/babel-serbian/serbian.ldf
@@ -7,7 +7,7 @@
%% serbian.dtx (with options: `code')
%% This is a generated file.
%%
-%% Copyright 2019 Uroš Stefanović and any individual authors
+%% Copyright 2019--2021 Uroš Stefanović and any individual authors
%% listed elsewhere in this file. All rights reserved.
%%
%% This file is intended to be used with the Babel system.
@@ -29,7 +29,7 @@
%% and covered by LPPL is defined by the unpacking scripts (with
%% extension .ins) which are part of the distribution.
\ProvidesLanguage{serbian}
- [2019/12/15 2.0a Serbian Latin support for the Babel system]
+ [2021/04/10 2.1 Serbian Latin support for the Babel system]
%% File `serbian.dtx'
\LdfInit{serbian}{captionsserbian}
\ifdefined\if@srb@uni@ode
@@ -141,6 +141,58 @@
\def\bbl@nonserbianindent{\let\@afterindentfalse\@aifORI\@afterindentfalse}
\addto\extrasserbian{\bbl@serbianindent}
\addto\noextrasserbian{\bbl@nonserbianindent}
+\newcount\srbl@lettering \srbl@lettering=\z@
+\addto\extrasserbian{\babel@save\@Alph \let\@Alph\srbl@Alph}
+\def\srbl@Alph#1{%
+\ifcase\srbl@lettering
+ \ifcase#1\or A\or B\or C\or D\or E\or F\or G\or H\or I\or
+ J\or K\or L\or M\or N\or O\or P\or R\or S\or T\or U\or V\or
+ Z\else\@ctrerr\fi
+\or
+ \if@srb@uni@ode
+ \ifcase#1\or A\or B\or V\or G\or D\or Đ\or E\or Ž\or Z\or
+ I\or J\or K\or L\or Lj\or M\or N\or Nj\or O\or
+ P\or R\or S\or T\or Ć\or U\or F\or H\or C\or
+ Č\or Dž\or Š\else\@ctrerr\fi
+ \else
+ \ifcase#1\or A\or B\or V\or G\or D\or\DJ\or E\or\v Z\or Z\or
+ I\or J\or K\or L\or Lj\or M\or N\or Nj\or O\or
+ P\or R\or S\or T\or\'C\or U\or F\or H\or C\or
+ \v C\or D\v z\or\v S\else\@ctrerr\fi
+ \fi
+\or
+ \ifcase#1\or A\or B\or C\or D\or E\or F\or G\or H\or I\or
+ J\or K\or L\or M\or N\or O\or P\or Q\or R\or S\or T\or U\or V\or
+ W\or X\or Y\or Z\else\@ctrerr\fi
+\fi}%
+\addto\extrasserbian{\babel@save\@alph \let\@alph\srbl@alph}
+\def\srbl@alph#1{%
+\ifcase\srbl@lettering
+ \ifcase#1\or a\or b\or c\or d\or e\or f\or g\or h\or i\or
+ j\or k\or l\or m\or n\or o\or p\or r\or s\or t\or u\or v\or
+ z\else\@ctrerr\fi
+\or
+ \if@srb@uni@ode
+ \ifcase#1\or a\or b\or v\or g\or d\or đ\or e\or ž\or z\or
+ i\or j\or k\or l\or lj\or m\or n\or nj\or o\or
+ p\or r\or s\or t\or ć\or u\or f\or h\or c\or
+ č\or dž\or š\else\@ctrerr\fi
+ \else
+ \ifcase#1\or a\or b\or v\or g\or d\or\dj\or e\or\v z\or z\or
+ i\or j\or k\or l\or lj\or m\or n\or nj\or o\or
+ p\or r\or s\or t\or\'c\or u\or f\or h\or c\or
+ \v c\or d\v z\or\v s\else\@ctrerr\fi
+ \fi
+\or
+ \ifcase#1\or a\or b\or c\or d\or e\or f\or g\or h\or i\or
+ j\or k\or l\or m\or n\or o\or p\or q\or r\or s\or t\or u\or v\or
+ w\or x\or y\or z\else\@ctrerr\fi
+\fi}%
+\addto\extrasserbian{%
+ \babel@save\enumEng \def\enumEng{\srbl@lettering=\tw@}
+ \babel@save\enumLat \def\enumLat{\srbl@lettering=\z@}
+ \babel@save\enumCyr \def\enumCyr{\srbl@lettering=\@ne}
+}%
\bbl@declare@ttribute{serbian}{ijekav}{%
\PackageInfo{babel}{Serbian attribute set to ijekav}%
\let\captionsserbian=\captionsserbian@ijekav }