summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/generic/babel-lithuanian/babel-lithuanian.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/generic/babel-lithuanian/babel-lithuanian.dtx')
-rw-r--r--Master/texmf-dist/source/generic/babel-lithuanian/babel-lithuanian.dtx282
1 files changed, 282 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/generic/babel-lithuanian/babel-lithuanian.dtx b/Master/texmf-dist/source/generic/babel-lithuanian/babel-lithuanian.dtx
new file mode 100644
index 00000000000..202276fe05f
--- /dev/null
+++ b/Master/texmf-dist/source/generic/babel-lithuanian/babel-lithuanian.dtx
@@ -0,0 +1,282 @@
+% \iffalse meta-comment
+%
+% Copyright 2023 Sigitas Tolušis, and any
+% individual authors listed elsewhere in this file. All rights
+% reserved.
+%
+% This file is part of the Babel system.
+% --------------------------------------
+%
+% It may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.3
+% of this license or (at your option) any later version.
+% The latest version of this license is in
+% http://www.latex-project.org/lppl.txt
+% and version 1.3 or later is part of all distributions of LaTeX
+% version 2003/12/01 or later.
+%
+% This work has the LPPL maintenance status "maintained".
+%
+% The Current Maintainer of this work is Sigitas Tolušis.
+%
+% The list of derived (unpacked) files belonging to the distribution
+% and covered by LPPL is defined by the unpacking scripts (with
+% extension .ins) which are part of the distribution.
+% \fi
+% \iffalse
+% Tell the \LaTeX\ system who we are and write an entry on the
+% transcript.
+%<*dtx>
+\ProvidesFile{babel-lithuanian.dtx}
+%</dtx>
+%<code>
+%<code>\ProvidesLanguage{lithuanian}
+%<code> [2023/03/07 v1.0 Lithuanian support from the babel system]
+% \fi
+% \iffalse
+%<*filedriver>
+\documentclass{ltxdoc}
+\usepackage[utf8]{inputenc}
+\usepackage[L7x,T1]{fontenc}
+\title{The Lithuanian style for babel, v1.0}
+\author{Sigitas Tolušis}
+\newcommand*\babel{\textsf{babel}}
+\begin{document}
+ \maketitle
+ \DocInput{babel-lithuanian.dtx}
+\end{document}
+%</filedriver>
+%\fi
+%
+% \section{The Lithuanian Language}
+%
+% The file \textsf{lithuanian.ldf} defines the language definition
+% macros for the Lithuanian language.
+%
+% Since the |T1| encoding doesn't contain all the characters required
+% for Lithuanian, you should use |L7x| instead for 8-bit fonts.
+% In this case best choice is to use \textsf{tex-gyre} fonts collection.
+% As alternative you can use Open Type fonts with \textsf{luatex} or
+% \textsf{xetex}.
+%
+% A complete example is:
+%\begin{verbatim}
+%\documentclass{article}
+% %
+% %% 8-bit fonts
+%\usepackage[utf8x]{inputenc}
+% %%\usepackage[utf8x]{luainputenc} %% in case using lualatex with 8-bit fonts
+%\usepackage[L7x]{fontenc}
+%\usepackage{tgtermes} %% or tgpagella, tgbonum, tgschola, etc.
+% %
+% %% Open Type fonts
+% %\usepackage{fontspec}
+% %\setmainfont{texgyrebonum-regular.otf}
+% %%
+%\usepackage[lithuanian]{babel}
+%\usepackage[pdftex,unicode]{hyperref}
+%
+%\begin{document}
+%
+%\section*{Abėcėlė}
+%Lietuvių kalbos abėcėlę sudaro 32 raidės:
+%\par\medskip
+% Aa Ąą Bb Cc Čč Dd Ee Ęę Ėė Ff Gg Hh Ii Įį Yy Jj
+% Kk Ll Mm Nn Oo Pp Rr Ss Šš Tt Uu Ųų Ūū Vv Zz Žž
+%
+%\subsection*{Didžiosios raidės}
+%\MakeUppercase{Aa Ąą Bb Cc Čč Dd Ee Ęę Ėė Ff Gg Hh Ii Įį Yy Jj
+% Kk Ll Mm Nn Oo Pp Rr Ss Šš Tt Uu Ųų Ūū Vv Zz Žž}
+%
+%\subsection*{Mažosios raidės}
+%\MakeLowercase{Aa Ąą Bb Cc Čč Dd Ee Ęę Ėė Ff Gg Hh Ii Įį Yy Jj
+% Kk Ll Mm Nn Oo Pp Rr Ss Šš Tt Uu Ųų Ūū Vv Zz Žž}
+%
+%\end{document}
+%\end{verbatim}
+%
+% \StopEventually{}
+%
+% \subsection*{The code}
+%
+% \begin{macrocode}
+%<*code>
+\LdfInit{lithuanian}\captionslithuanian
+\ifx\undefined\l@lithuanian
+ \@nopatterns{Lithuanian}
+ \adddialect\l@lithuanian0
+\fi
+% \end{macrocode}
+%
+% \subsubsection*{Hyphenmins}
+%
+% \begin{macrocode}
+
+\providehyphenmins{lithuanian}{\tw@\tw@}
+% \end{macrocode}
+%
+% \subsubsection*{Captions and date}
+%
+% \begin{macrocode}
+
+\StartBabelCommands*{lithuanian}{captions}
+ [unicode, charset=utf8, fontenc=TU EU1 EU2]
+
+ \SetString\prefacename{Pratarmė}
+ \SetString\refname{Literatūra}
+ \SetString\abstractname{Santrauka}
+ \SetString\bibname{Literatūra}
+ \SetString\chaptername{skyrius}
+ \SetString\appendixname{Priedas}
+ \SetString\contentsname{Turinys}
+ \SetString\listfigurename{Iliustracijų sąrašas}
+ \SetString\listtablename{Lentelių sąrašas}
+ \SetString\indexname{Rodyklė}
+ \SetString\figurename{pav.}
+ \SetString\tablename{lentelė}
+ \SetString\partname{Dalis}
+ \SetString\enclname{Įdėta}
+ \SetString\ccname{Kopijos}
+ \SetString\headtoname{Kam}
+ \SetString\pagename{puslapis}
+ \SetString\seename{žiūrėk}%% žr.
+ \SetString\alsoname{taip pat}%% ten pat, tas pat
+ \SetString\proofname{Įrodymas}
+ \SetString\glossaryname{Terminų žodynas}
+
+\StartBabelCommands*{lithuanian}{captions}
+
+ \SetString\prefacename{Pratarm\.e}
+ \SetString\refname{Literat\=ura}
+ \SetString\abstractname{Santrauka}
+ \SetString\bibname{Literat\=ura}
+ \SetString\chaptername{skyrius}
+ \SetString\appendixname{Priedas}
+ \SetString\contentsname{Turinys}
+ \SetString\listfigurename{Iliustracij\k{u} s\k{a}ra\v{s}as}
+ \SetString\listtablename{Lenteli\k{u} s\k{a}ra\v{s}as}
+ \SetString\indexname{Rodykl\.e}
+ \SetString\figurename{pav.}
+ \SetString\tablename{lentel\.e}
+ \SetString\partname{Dalis}
+ \SetString\enclname{\k{I}d\.eta}
+ \SetString\ccname{Kopijos}
+ \SetString\headtoname{Kam}
+ \SetString\pagename{puslapis}
+ \SetString\seename{\v{z}i\=ur\.ek}%% \v{z}.r.
+ \SetString\alsoname{taip pat}%% ten pat, tas pat
+ \SetString\proofname{\k{I}rodymas}
+ \SetString\glossaryname{Termin\k{u} \v{z}odynas}%
+
+\StartBabelCommands*{lithuanian}{date}
+ [unicode, charset=utf8, fontenc=TU EU1 EU2]
+
+ \SetStringLoop{month#1lithuanian}{%
+ sausio,vasario,kovo,balandžio,gegužės,birželio,%
+ liepos,rugpjūčio,rugsėjo,spalio,lapkričio,gruodžio%
+ }
+
+\StartBabelCommands*{lithuanian}{date}
+
+ \SetStringLoop{month#1lithuanian}{%
+ sausio,vasario,kovo,baland\v{z}io,gegu\v{z}\.es,bir\v{z}elio,%
+ liepos,rugpj\=u\v{c}io,rugs\.ejo,spalio,lapkri\v{c}io,gruod\v{z}io%
+ }
+
+\SetString\today{%
+ \number\year~m.%
+ ~\csname month\romannumeral\month lithuanian\endcsname
+ ~\number\day~d.%
+ }
+% \end{macrocode}
+%
+% \subsubsection*{Extra chars cases}
+%
+% \begin{macrocode}
+
+\StartBabelCommands{lithuanian}{}[l7xenc, fontenc=L7x]
+
+ \SetCase{%
+ \uccode"E0="C0\relax % ąĄ
+ \uccode"E8="C8\relax % čČ
+ \uccode"E6="C6\relax % ęĘ
+ \uccode"EB="CB\relax % ėĖ
+ \uccode"E1="C1\relax % įĮ
+ \uccode"F0="D0\relax % šŠ
+ \uccode"F8="D8\relax % ųŲ
+ \uccode"FB="DB\relax % ūŪ
+ \uccode"FE="DE\relax % žŽ
+ }{%
+ \lccode"C0="E0\relax % Ąą
+ \lccode"C8="E8\relax % Čč
+ \lccode"C6="E6\relax % Ęę
+ \lccode"CB="EB\relax % Ėė
+ \lccode"C1="E1\relax % Įį
+ \lccode"D0="F0\relax % Šš
+ \lccode"D8="F8\relax % Ųų
+ \lccode"DB="FB\relax % Ūū
+ \lccode"DE="FE\relax % Žž
+ }
+
+\StartBabelCommands{lithuanian}{}[unicode, fontenc=TU EU1 EU2, charset=utf8]
+
+ \SetCase{%
+ \uccode`ą=`Ą\relax
+ \uccode`č=`Č\relax
+ \uccode`ę=`Ę\relax
+ \uccode`ė=`Ė\relax
+ \uccode`į=`Į\relax
+ \uccode`š=`Š\relax
+ \uccode`ų=`Ų\relax
+ \uccode`ū=`Ū\relax
+ \uccode`ž=`Ž\relax
+ }{%
+ \lccode`Ą=`ą\relax
+ \lccode`Č=`č\relax
+ \lccode`Ę=`ę\relax
+ \lccode`Ė=`ė\relax
+ \lccode`Į=`į\relax
+ \lccode`Š=`š\relax
+ \lccode`Ų=`ų\relax
+ \lccode`Ū=`ū\relax
+ \lccode`Ž=`ž\relax
+ }
+
+\EndBabelCommands
+% \end{macrocode}
+%
+% \subsubsection*{Extras macros}
+%
+% \begin{macrocode}
+
+\addto\extraslithuanian{%
+ \babel@save\fnum@figure
+ \def\fnum@figure{\thefigure\nobreakspace\figurename}%
+ \babel@save\fnum@table
+ \def\fnum@table{\thetable\nobreakspace\tablename}%
+ }
+\addto\noextraslithuanian{}
+
+\ldf@finish{lithuanian}
+
+%</code>
+% \end{macrocode}
+%
+% \Finale
+% \endinput
+%% \CharacterTable
+%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%% Digits \0\1\2\3\4\5\6\7\8\9
+%% Exclamation \! Double quote \" Hash (number) \#
+%% Dollar \$ Percent \% Ampersand \&
+%% Acute accent \' Left paren \( Right paren \)
+%% Asterisk \* Plus \+ Comma \,
+%% Minus \- Point \. Solidus \/
+%% Colon \: Semicolon \; Less than \<
+%% Equals \= Greater than \> Question mark \?
+%% Commercial at \@ Left bracket \[ Backslash \\
+%% Right bracket \] Circumflex \^ Underscore \_
+%% Grave accent \` Left brace \{ Vertical bar \|
+%% Right brace \} Tilde \~}
+%%