summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain/levy/greekmacros.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/plain/levy/greekmacros.tex')
-rw-r--r--Master/texmf-dist/tex/plain/levy/greekmacros.tex51
1 files changed, 51 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/plain/levy/greekmacros.tex b/Master/texmf-dist/tex/plain/levy/greekmacros.tex
new file mode 100644
index 00000000000..8e88c6a645b
--- /dev/null
+++ b/Master/texmf-dist/tex/plain/levy/greekmacros.tex
@@ -0,0 +1,51 @@
+\def\ifnextchar#1#2#3{\let\tempe #1\def\tempa{#2}\def\tempb{#3}\futurelet
+ \tempc\ifnch}
+\def\ifnch{\ifx\tempc\tempe\let\tempd\tempa\else\let\tempd\tempb\fi\tempd}
+\def\gobble#1{}
+\font\tengr=grreg10
+\font\tengrbf=grbld10
+\font\tengrtt=grtt10
+\def\greekmode{%
+\catcode`\<=13
+\catcode`\>=13
+\catcode`\'=11
+\catcode`\`=11
+\catcode`\~=11
+\catcode`\"=11
+\catcode`\|=11
+\lccode`\<=`\<%
+\lccode`\>=`\>%
+\lccode`\'=`\'%
+\lccode`\`=`\`%
+\lccode`\~=`\~%
+\lccode`\"=`\"%
+\lccode`\|=`\|%
+\tengr\def\bf{\tengrbf}\def\tt{\tengrtt}}
+\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}
+}
+
+\newif\ifgreek\greekfalse
+
+\def\begingreek{\bgroup\greektrue\greekmode}
+\def\endgreek{\egroup}
+
+\let\math=$
+{\catcode`\$=13
+\gdef\greekdelims{\catcode`\$=13
+\def${\ifgreek\endgreek\else\begingreek\fi}
+\def\display{\math\math}\def\enddisplay{\math\math}}}