lgreek

git-svn-id: svn://tug.org/texlive/trunk@1037 c570f23f-e606-0410-a88d-b1316a301751

4 files changed, 134 insertions, 0 deletions

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
+