diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/babel/greek.ldf')
-rw-r--r-- | Master/texmf-dist/tex/generic/babel/greek.ldf | 274 |
1 files changed, 274 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/babel/greek.ldf b/Master/texmf-dist/tex/generic/babel/greek.ldf new file mode 100644 index 00000000000..24cc2401828 --- /dev/null +++ b/Master/texmf-dist/tex/generic/babel/greek.ldf @@ -0,0 +1,274 @@ +%% +%% This is file `greek.ldf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% greek.dtx (with options: `code') +%% This is a generated file. +%% +%% Copyright 1989-2005 Johannes L. Braams and any individual authors +%% listed elsewhere in this file. All rights reserved. +%% +%% This file was generated from file(s) 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 Johannes Braams. +%% +%% This file may only be distributed together with a copy of the Babel +%% system. You may however distribute the Babel system without +%% such generated files. +%% +%% The list of all files belonging to the Babel distribution is +%% given in the file `manifest.bbl'. See also `legal.bbl for additional +%% information. +%% +%% 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. +\ProvidesLanguage{greek} + [2005/03/30 v1.3l Greek support from the babel system] +%% File `greek.dtx' +%% Babel package for LaTeX version 2e +%% Copyright (C) 1989 -- 2005 +%% by Johannes Braams, TeXniek +%% Greek language Definition File +%% Copyright (C) 1997, 2005 +%% by Apostolos Syropoulos +%% Johannes Braams, TeXniek +%% Please report errors to: Apostolos Syropoulos +%% apostolo at platon.ee.duth.gr or +%% apostolo at obelix.ee.duth.gr +%% (or J.L. Braams <babel at braams.cistron.nl) +\LdfInit\CurrentOption{captions\CurrentOption} +\gdef\CurrentOption{greek}% +\ifx\l@greek\@undefined + \@nopatterns{greek} + \adddialect\l@greek0\fi +\bbl@declare@ttribute{greek}{polutoniko}{% + \expandafter\addto\expandafter\extrasgreek + \expandafter{\extraspolutonikogreek}% + \let\captionsgreek\captionspolutonikogreek + \let\gr@month\gr@c@month + \let\l@polutonikogreek\l@greek + \let\datepolutonikogreek\dategreek + \let\extraspolutonikogreek\extrasgreek + \let\noextraspolutonikogreek\noextrasgreek + } +\InputIfFileExists{lgrenc.def}{% + \message{Loading the definitions for the Greek font encoding}}{% + \errhelp{I can't find the lgrenc.def file for the Greek fonts}% + \errmessage{Since I do not know what the LGR encoding means^^J + I can't typeset Greek.^^J + I stop here, while you get a suitable lgrenc.def file}\@@end + } +\DeclareRobustCommand{\greektext}{% + \fontencoding{LGR}\selectfont + \def\encodingdefault{LGR}} +\DeclareRobustCommand{\textgreek}[1]{\leavevmode{\greektext #1}} +\def\outlfamily{\usefont{LGR}{cmro}{m}{n}} +\DeclareTextFontCommand{\textol}{\outlfamily} +\providehyphenmins{\CurrentOption}{\@ne\@ne} +\addto\captionsgreek{% + \def\prefacename{Pr'ologos}% + \def\refname{Anafor'es}% + \def\abstractname{Per'ilhyh}% + \def\bibname{Bibliograf'ia}% + \def\chaptername{Kef'alaio}% + \def\appendixname{Par'arthma}% + \def\contentsname{Perieq'omena}% + \def\listfigurename{Kat'alogos Sqhm'atwn}% + \def\listtablename{Kat'alogos Pin'akwn}% + \def\indexname{Euret'hrio}% + \def\figurename{Sq'hma}% + \def\tablename{P'inakas}% + \def\partname{M'eros}% + \def\enclname{Sunhmm'ena}% + \def\ccname{Koinopo'ihsh}% + \def\headtoname{Pros}% + \def\pagename{Sel'ida}% + \def\seename{bl'epe}% + \def\alsoname{bl'epe ep'ishs}% + \def\proofname{Ap'odeixh}% + \def\glossaryname{Glwss'ari}% + } +\let\captionspolutonikogreek\captionsgreek +\addto\captionspolutonikogreek{% + \def\refname{>Anafor`es}% + \def\indexname{E<uret'hrio}% + \def\figurename{Sq~hma}% + \def\headtoname{Pr`os}% + \def\alsoname{bl'epe >ep'ishs}% + \def\proofname{>Ap'odeixh}% +} +\def\gr@month{% + \ifcase\month\or + Ianouar'iou\or Febrouar'iou\or Mart'iou\or April'iou\or + Ma'"iou\or Ioun'iou\or Ioul'iou\or Augo'ustou\or + Septembr'iou\or Oktwbr'iou\or Noembr'iou\or Dekembr'iou\fi} +\def\dategreek{% + \def\today{\number\day \space \gr@month\space \number\year}} +\def\gr@c@month{% + \ifcase\month\or >Ianouar'iou\or + Febrouar'iou\or Mart'iou\or >April'iou\or Ma"'iou\or + >Ioun'iou\or >Ioul'iou\or A>ugo'ustou\or Septembr'iou\or + >Oktwbr'iou\or Noembr'iou\or Dekembr'iou\fi} +\def\Grtoday{% + \expandafter\Greeknumeral\expandafter{\the\day}\space + \gr@c@month \space + \expandafter\Greeknumeral\expandafter{\the\year}} +\addto\extrasgreek{\greektext} +\addto\noextrasgreek{\latintext} +\def\gr@ill@value#1{% + \PackageWarning{babel}{Illegal value (#1) for greeknumeral}} +\DeclareRobustCommand\anw@false{% + \DeclareRobustCommand\anw@print{}} +\DeclareRobustCommand\anw@true{% + \DeclareRobustCommand\anw@print{\anwtonos}} +\anw@true +\def\greeknumeral#1{% + \ifnum#1<\@ne\space\gr@ill@value{#1}% + \else + \ifnum#1<10\expandafter\gr@num@i\number#1% + \else + \ifnum#1<100\expandafter\gr@num@ii\number#1% + \else + \ifnum#1<\@m\expandafter\gr@num@iii\number#1% + \else + \ifnum#1<\@M\expandafter\gr@num@iv\number#1% + \else + \ifnum#1<100000\expandafter\gr@num@v\number#1% + \else + \ifnum#1<1000000\expandafter\gr@num@vi\number#1% + \else + \space\gr@ill@value{#1}% + \fi + \fi + \fi + \fi + \fi + \fi + \fi +} +\def\Greeknumeral#1{% + \expandafter\MakeUppercase\expandafter{\greeknumeral{#1}}} +\let\latin@alph\@alph +\let\latin@Alph\@Alph +\def\greek@alph#1{\expandafter\greeknumeral\expandafter{\the#1}} +\def\greek@Alph#1{\expandafter\Greeknumeral\expandafter{\the#1}} +\addto\extrasgreek{% + \let\@alph\greek@alph + \let\@Alph\greek@Alph} +\addto\noextrasgreek{% + \let\@alph\latin@alph + \let\@Alph\latin@Alph} +\let\latin@roman\@roman +\let\latin@Roman\@Roman +\def\greek@roman#1{\textlatin{\latin@roman{#1}}} +\def\greek@Roman#1{\textlatin{\latin@Roman{#1}}} +\addto\extrasgreek{% + \let\@roman\greek@roman + \let\@Roman\greek@Roman} +\addto\noextrasgreek{% + \let\@roman\latin@roman + \let\@Roman\latin@Roman} +\let\ltx@amp\& +\def\greek@amp{\textlatin{\ltx@amp}} +\addto\extrasgreek{\let\&\greek@amp} +\addto\noextrasgreek{\let\&\ltx@amp} +\def\gr@num@i#1{% + \ifcase#1\or a\or b\or g\or d\or e\or \stigma\or z\or h\or j\fi + \ifnum#1=\z@\else\anw@true\fi\anw@print} +\def\gr@num@ii#1{% + \ifcase#1\or i\or k\or l\or m\or n\or x\or o\or p\or \qoppa\fi + \ifnum#1=\z@\else\anw@true\fi\gr@num@i} +\def\gr@num@iii#1{% + \ifcase#1\or r\or sv\or t\or u\or f\or q\or y\or w\or \sampi\fi + \ifnum#1=\z@\anw@false\else\anw@true\fi\gr@num@ii} +\def\gr@num@iv#1{% + \ifnum#1=\z@\else\katwtonos\fi + \ifcase#1\or a\or b\or g\or d\or e\or \stigma\or z\or h\or j\fi + \gr@num@iii} +\def\gr@num@v#1{% + \ifnum#1=\z@\else\katwtonos\fi + \ifcase#1\or i\or k\or l\or m\or n\or x\or o\or p\or \qoppa\fi + \gr@num@iv} +\def\gr@num@vi#1{% + \katwtonos + \ifcase#1\or r\or sv\or t\or u\or f\or q\or y\or w\or \sampi\fi + \gr@num@v} +\begingroup + \@ifundefined{active@char\string!}{}{\catcode`!=12\relax} + \catcode`\~=12 + \lccode`\!=`\~ + \lowercase{\def\x{\endgroup + \def\greek@tilde{!}}\x} +\addto\extraspolutonikogreek{% + \babel@save\~\let\~\greek@tilde} +\addto\extrasgreek{% + \babel@savevariable{\lccode`v}\lccode`v=`v% + \babel@savevariable{\lccode`\'}\lccode`\'=`\'% + \babel@savevariable{\lccode`\"}\lccode`\"=`\"} +\addto\extraspolutonikogreek{% + \babel@savevariable{\lccode`\<}\lccode`\<=`\<% + \babel@savevariable{\lccode`\>}\lccode`\>=`\>% + \babel@savevariable{\lccode`\~}\lccode`\~=`\~% + \babel@savevariable{\lccode`\|}\lccode`\|=`\|% + \babel@savevariable{\lccode`\`}\lccode`\`=`\`} +\addto\extrasgreek{% + \babel@savevariable{\uccode`\"}\uccode`\"=`\"% + \babel@savevariable{\uccode`\'}\uccode`\'=159} %% 159 == ^^9f +\addto\extraspolutonikogreek{% + \babel@savevariable{\uccode`\~}\uccode`\~=159% + \babel@savevariable{\uccode`\>}\uccode`\>=159% + \babel@savevariable{\uccode`\<}\uccode`\<=159% + \babel@savevariable{\uccode`\|}\uccode`\|=`\|% + \babel@savevariable{\uccode`\`}\uccode`\`=159} +\@tempcnta=\lccode`\~ +\lccode`\~=159 +\lowercase{% + \initiate@active@char{~}% + \declare@shorthand{greek}{~}{}} +\lccode`\~=\@tempcnta +\addto\extraspolutonikogreek{\languageshorthands{greek}}% +\declare@shorthand{greek}{~}{\greek@tilde} +\DeclareTextCommand{\anwtonos}{LGR}{\char"FE\relax} +\DeclareTextCommand{\katwtonos}{LGR}{\char"FF\relax} +\DeclareTextCommand{\qoppa}{LGR}{\char"12\relax} +\DeclareTextCommand{\stigma}{LGR}{\char"06\relax} +\DeclareTextCommand{\sampi}{LGR}{\char"1B\relax} +\DeclareTextCommand{\Digamma}{LGR}{\char"C3\relax} +\DeclareTextCommand{\ddigamma}{LGR}{\char"93\relax} +\DeclareTextCommand{\vardigamma}{LGR}{\char"07\relax} +\DeclareTextCommand{\euro}{LGR}{\char"18\relax} +\DeclareTextCommand{\permill}{LGR}{\char"19\relax} +\ldf@finish{\CurrentOption} +%% \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 \~} +%% +\endinput +%% +%% End of file `greek.ldf'. |