From dd924584334c660f0cda818ee0762c8ecd886490 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 12 Jan 2006 23:57:57 +0000 Subject: lgreek git-svn-id: svn://tug.org/texlive/trunk@1037 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/lgreek/LGcmr.fd | 33 +++++++++++++ Master/texmf-dist/tex/latex/lgreek/LGcmtt.fd | 29 +++++++++++ Master/texmf-dist/tex/latex/lgreek/LGenc.def | 2 + Master/texmf-dist/tex/latex/lgreek/lgreek.sty | 70 +++++++++++++++++++++++++++ 4 files changed, 134 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/lgreek/LGcmr.fd create mode 100644 Master/texmf-dist/tex/latex/lgreek/LGcmtt.fd create mode 100644 Master/texmf-dist/tex/latex/lgreek/LGenc.def create mode 100644 Master/texmf-dist/tex/latex/lgreek/lgreek.sty (limited to 'Master') diff --git a/Master/texmf-dist/tex/latex/lgreek/LGcmr.fd b/Master/texmf-dist/tex/latex/lgreek/LGcmr.fd new file mode 100644 index 00000000000..897d0517272 --- /dev/null +++ b/Master/texmf-dist/tex/latex/lgreek/LGcmr.fd @@ -0,0 +1,33 @@ +%% +%% This is file `LGcmr.fd', +%% written in close imitation of T1cmr.fd +%% +%% ---------------------------------------- +%% This system is distributed in the hope that it will be useful, +%% but WITHOUT ANY WARRANTY; without even the implied warranty of +%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. +%% +\ProvidesFile{LGcmr.fd} + [1995/04/22 v2.3f Standard LaTeX font definitions] +\DeclareFontFamily{LG}{cmr}{} +\DeclareFontShape{LG}{cmr}{m}{n}{% + <5> <6> <7> <8>grreg8 + <9>grreg9 + <10> <10.95> <12> <14.4> <17.28> <20.74> <24.88>grreg10}{} +\DeclareFontShape{LG}{cmr}{b}{n}{ + <5> <6> <7> <8>grbld8 + <9>grbld9 + <10> <10.95> <12> <14.4> <17.28> <20.74> <24.88>grbld10}{} +\DeclareFontShape{LG}{cmr}{bx}{n} + {<->sub * cmr/b/n}{} +\DeclareFontShape{LG}{cmr}{m}{sl} + {<->sub * cmr/m/n}{} +\DeclareFontShape{LG}{cmr}{m}{it} + {<->sub * cmr/m/n}{} +\DeclareFontShape{LG}{cmr}{bx}{sl} + {<->sub * cmr/bx/n}{} +\DeclareFontShape{LG}{cmr}{bx}{it} + {<->sub * cmr/bx/n}{} +\endinput +%% +%% End of file `LGcmr.fd'. diff --git a/Master/texmf-dist/tex/latex/lgreek/LGcmtt.fd b/Master/texmf-dist/tex/latex/lgreek/LGcmtt.fd new file mode 100644 index 00000000000..55cf19acd8f --- /dev/null +++ b/Master/texmf-dist/tex/latex/lgreek/LGcmtt.fd @@ -0,0 +1,29 @@ +%% +%% This is file `LGcmtt.fd', +%% +%% ---------------------------------------- +%% This system is distributed in the hope that it will be useful, +%% but WITHOUT ANY WARRANTY; without even the implied warranty of +%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. +%% +\ProvidesFile{LGcmtt.fd} + [1995/04/22 v2.3f Standard LaTeX font definitions] +\DeclareFontFamily{LG}{cmtt}{} +\DeclareFontShape{LG}{cmtt}{m}{n}{% + <5> <6> <7> <8> <9> <10> <10.95> + <12> <14.4> <17.28> <20.74> <24.88>grtt10}{} +\DeclareFontShape{LG}{cmtt}{b}{n} + {<->sub * cmtt/m/n}{} +\DeclareFontShape{LG}{cmtt}{bx}{n} + {<->sub * cmtt/m/n}{} +\DeclareFontShape{LG}{cmtt}{m}{sl} + {<->sub * cmtt/m/n}{} +\DeclareFontShape{LG}{cmtt}{m}{it} + {<->sub * cmtt/m/n}{} +\DeclareFontShape{LG}{cmtt}{bx}{sl} + {<->sub * cmtt/m/n}{} +\DeclareFontShape{LG}{cmtt}{bx}{it} + {<->sub * cmtt/m/n}{} +\endinput +%% +%% End of file `LGcmtt.fd'. diff --git a/Master/texmf-dist/tex/latex/lgreek/LGenc.def b/Master/texmf-dist/tex/latex/lgreek/LGenc.def new file mode 100644 index 00000000000..34f8fe3ad9f --- /dev/null +++ b/Master/texmf-dist/tex/latex/lgreek/LGenc.def @@ -0,0 +1,2 @@ +\DeclareFontEncoding{LG}{}{} +\endinput diff --git a/Master/texmf-dist/tex/latex/lgreek/lgreek.sty b/Master/texmf-dist/tex/latex/lgreek/lgreek.sty new file mode 100644 index 00000000000..c97474e3354 --- /dev/null +++ b/Master/texmf-dist/tex/latex/lgreek/lgreek.sty @@ -0,0 +1,70 @@ +\DeclareOption{allgreek}{\renewcommand{\encodingdefault}{LG}\greeknames} +\DeclareOption{delims}{\greekdelims} + +\def\greekmode{% +\catcode`\<=13 +\catcode`\>=13 +\catcode`\'=11 +\catcode`\`=11 +\catcode`\~=11 +\catcode`\"=11 +\catcode`\|=11 +\lccode`\<=`\<% +\lccode`\>=`\>% +\lccode`\'=`\'% +\lccode`\`=`\`% +\lccode`\~=`\~% +\lccode`\"=`\"% +\lccode`\|=`\|% +} +\newcount\vwl +\newcount\acct +\def\lt{<} +\def\gt{>} +{ + \greekmode + \gdef>{\@ifnextchar `{\expandafter\smoothgrave\@gobble}{\char\lq\>}} + \gdef<{\@ifnextchar `{\expandafter\roughgrave\@gobble}{\char\lq\<}} + \gdef\smoothgrave#1{\acct=\rq137 \vwl=\lq#1 \dobreathinggrave} + \gdef\roughgrave#1{\acct=\rq103 \vwl=\lq#1 \dobreathinggrave} + \gdef\dobreathinggrave{\ifnum\vwl\lt\rq140 %if uppercase + \char\the\acct\char\the\vwl\else\expandafter\testiota\fi} + \gdef\testiota{\@ifnextchar |{\addiota\doaccent\@gobble}{\doaccent}} + \gdef\addiota{\ifnum\vwl=\lq a\vwl=\rq370 + \else\ifnum\vwl=\lq h\vwl=\rq371 \else\vwl=\rq372 \fi\fi} + \gdef\doaccent{\accent\the\acct \char\the\vwl\relax} +} + +\DeclareFontEncoding{LG}{\greekmode}{} + +\newif\ifgreek\greekfalse +\newenvironment{greek}{\fontencoding{LG}\selectfont\greektrue}{} + +{\catcode`\$=13 +\gdef\greekdelims{\catcode`\$=13 +\def${\ifgreek\end{greek}\else\begin{greek}\fi}}} + +\def\greeknames{ +% \def\prefacename{Preface}% +% \def\refname{References}% +% \def\abstractname{Abstract}% +\def\bibname{Bibliograf'ia}% <---------- +\def\chaptername{Kef'alaio}% <---------- +\def\appendixname{Par'arthma}% <----------- +\def\contentsname{Perieq'omena}% <---------- +\def\listfigurename{Eik'onec}% <---------- +\def\listtablename{P'inakec}% <---------- +\def\indexname{Euret'hrio}% <---------- +\def\figurename{Eik'ona}% <---------- +\def\tablename{P'inakac}% <---------- +\def\partname{M'eroc}% <---------- +% \def\enclname{encl}% +% \def\ccname{cc}% +% \def\headtoname{To}% +% \def\pagename{Page}% +% \def\seename{see}% +% \def\alsoname{see also}} +} + +\ProcessOptions + -- cgit v1.2.3