% Copyright 2007 Levan Shoshiashvili shoshia@hotmail.com and Werner Lemberg . % This file is part of georgiantex package. License: LPPL, version 1.3 or newer, % according to http://www.latex-project.org/lppl.txt % % % georgian.ldf % % % History % % 1.0 2007/09/21 % % First version. % % \ProvidesLanguage{georgian} [2007/09/21 v1.0 Georgian support from the babel system] \LdfInit{georgian}{captionsgeorgian} \ifx\l@georgian\@undefined \@nopatterns{Georgian} \adddialect\l@georgian0 \fi %%%%%%%%%%%%%%%%%%%%%%%%% \let\latinencoding\cf@encoding \def\reserved@a#1#2{% \edef\reserved@b{#1}% \edef\reserved@c{#2}% \ifx\reserved@b\reserved@c \let\georgianencoding\reserved@c \fi} \def\cdp@elt#1#2#3#4{% \reserved@a{#1}{T8K}% \reserved@a{#1}{T8M}} \cdp@list \ifx\georgianencoding\undefined \IfFileExists{t8kenc.def}{\def\georgianencoding{T8K}}\relax \IfFileExists{t8menc.def}{\def\georgianencoding{T8M}}\relax \ifx\georgianencoding\undefined \PackageError{babel}% {No Georgian encoding definition files were found}% {Your installation is incomplete.\MessageBreak You need at least one of the following files:\MessageBreak \space\space t8menc.def, t8kenc.def,\MessageBreak \space\space .}% \else \lowercase \expandafter{\expandafter\input\georgianencoding enc.def\relax}% \fi \fi %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \DeclareRobustCommand{\Georgian}{% \fontencoding\georgianencoding\selectfont \let\encodingdefault\georgianencoding %% \expandafter\set@hyphenmins\georgianhyphenmins \language\l@georgian}% \DeclareRobustCommand{\English}{% \fontencoding\latinencoding\selectfont \let\encodingdefault\latinencoding \expandafter\set@hyphenmins\englishhyphenmins \language\l@english}% \let\Geo\Georgian \let\Eng\English \let\georgiantext\Georgian \let\geo\Georgian %%%%%%%%%%%%%%%%%% \let\lat\latintext \DeclareTextFontCommand{\textgeorgian}{\georgiantext} \addto\extrasgeorgian{\georgiantext} \addto\noextrasgeorgian{\latintext} \addto\extrasgeorgian{\bbl@frenchspacing} \addto\noextrasgeorgian{\bbl@nonfrenchspacing} %%%%%%%%%%%%%%%%%%%%%%%%%%%%% \declare@shorthand{georgian}{">}{\frqq} \declare@shorthand{georgian}{""}{\hskip\z@skip} \declare@shorthand{georgian}{"~}{\textormath{\leavevmode\hbox{-}}{-}} \declare@shorthand{georgian}{"=}{\nobreak-\hskip\z@skip} \declare@shorthand{georgian}{"|}{% \textormath{\nobreak\discretionary{-}{}{\kern.03em}% \allowhyphens}{}} \declare@shorthand{georgian}{"-}{% \def\georgian@sh@tmp{% \if\georgian@sh@next-\expandafter\georgian@sh@emdash \else\expandafter\georgian@sh@hyphen\fi }% \futurelet\georgian@sh@next\georgian@sh@tmp} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \def\georgian@sh@hyphen{% \nobreak\-\bbl@allowhyphens} \def\georgian@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 \geodash\hskip.2em\ignorespaces}% \def\@Bcdash{\leavevmode\ifdim\lastskip>\z@\unskip\fi \nobreak\geodash\penalty\exhyphenpenalty\hskip\z@skip\ignorespaces}% \def\@Ccdash{\leavevmode \nobreak\geodash\nobreak\hskip.35em\ignorespaces}% \ifx\geodash\undefined \def\geodash{\hbox to.8em{--\hss--}} \fi %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \declare@shorthand{georgian}{",}{\nobreak\hskip.2em\ignorespaces} \def\mdqon{\bbl@activate{"}} \def\mdqoff{\bbl@deactivate{"}} \providehyphenmins{\CurrentOption}{\tw@\tw@} \ifx\englishhyphenmins\undefined \def\englishhyphenmins{\tw@\thr@@} \fi \addto\extrasgeorgian{\bbl@frenchspacing} \addto\noextrasgeorgian{\bbl@nonfrenchspacing} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \def\ANBANI#1{\expandafter\@ANBANI\csname c@#1\endcsname} \def\@ANBANI#1{\ifcase#1\or \GEOA\or\GEOB\or\GEOG\or\GEOD\or\GEOE\or\GEOV\or\GEOZ\or \GEOTH\or\GEOI\or\GEOK\or\GEOL\or\GEOM\or\GEON\or\GEOO\or \GEOP\or\GEOZH\or\GEOR\or\GEOS\or\GEOT\or\GEOU\or\GEOPH\or \GEOQ\or\GEOGH\or\GEOY\or\GEOSH\or\GEOCH\or\GEOC\or\GEODZ\or \GEOTS\or\GEOTCH\or\GEOKH\or\GEOJ\or\GEOH\or\GEOHE\or\GEOIOT\or \GEOWE\or\GEOHAR\or\GEOHOE\else\@ctrerr\fi} \def\anbani#1{\expandafter\@anbani\csname c@#1\endcsname} \def\@anbani#1{\ifcase#1\or \geoa\or\geob\or\geog\or\geod\or\geoe\or\geov\or\geoz\or \geoth\or\geoi\or\geok\or\geol\or\geom\or\geon\or\geoo\or \geop\or\geozh\or\geor\or\geos\or\geot\or\geou\or\geoph\or \geoq\or\geogh\or\geoy\or\geosh\or\geoch\or\geoc\or\geodz\or \geots\or\geotch\or\geokh\or\geoj\or\geoh\or\geohe\or\geoiot\or \geowe\or\geohar\or\geohoe\or\geofi\else\@ctrerr\fi} \def\Anbani#1{\expandafter\@Anbani\csname c@#1\endcsname} \def\@Anbani#1{\ifcase#1\or \geoA\or\geoB\or\geoG\or\geoD\or\geoE\or\geoV\or\geoZ\or \geoTH\or\geoI\or\geoK\or\geoL\or\geoM\or\geoN\or\geoO\or \geoP\or\geoZH\or\geoR\or\geoS\or\geoT\or\geoU\or\geoPH\or \geoQ\or\geoGH\or\geoY\or\geoSH\or\geoCH\or\geoC\or\geoDZ\or \geoTS\or\geoTCH\or\geoKH\or\geoJ\or\geoH\or\geoHE\or\geoIOT\or \geoWE\or\geoHAR\or\geoHOE\or\geoFI\else\@ctrerr\fi} \@ifundefined{sym\georgianencoding letters}{}{% \SetSymbolFont{\georgianencoding letters}{bold}\georgianencoding \rmdefault\bfdefault\updefault \DeclareSymbolFontAlphabet\geomathrm{\georgianencoding letters} \DeclareMathAlphabet\geomathbf\georgianencoding \rmdefault\bfdefault\updefault \DeclareMathAlphabet\geomathsf\georgianencoding \sfdefault\mddefault\updefault \DeclareMathAlphabet\geomathit\georgianencoding \rmdefault\mddefault\itdefault \DeclareMathAlphabet\geomathtt\georgianencoding \ttdefault\mddefault\updefault \SetMathAlphabet\geomathsf{bold}\georgianencoding \sfdefault\bfdefault\updefault \SetMathAlphabet\geomathit{bold}\georgianencoding \rmdefault\bfdefault\itdefault } %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \input{georgiancaps.tex} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \ldf@finish{georgian} %%\endlinechar `\^^M \endinput % end of georgian.ldf