summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/lgreek/lgreek.sty
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/lgreek/lgreek.sty')
-rw-r--r--macros/latex/contrib/lgreek/lgreek.sty70
1 files changed, 70 insertions, 0 deletions
diff --git a/macros/latex/contrib/lgreek/lgreek.sty b/macros/latex/contrib/lgreek/lgreek.sty
new file mode 100644
index 0000000000..c97474e335
--- /dev/null
+++ b/macros/latex/contrib/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
+