diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/babel-serbian/serbian.ldf')
-rw-r--r-- | Master/texmf-dist/tex/generic/babel-serbian/serbian.ldf | 56 |
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 } |