summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-03-17 23:42:54 +0000
committerKarl Berry <karl@freefriends.org>2011-03-17 23:42:54 +0000
commit3bf95a44b19b38cd429bb35ec50c1a68fef77122 (patch)
tree528c4c5139da4554837d4e439789c0f79a205294 /Master/texmf-dist/tex/plain
parent3284646675a6adb2f7ba29cd47ee29116a223c61 (diff)
levy license update (15mar11)
git-svn-id: svn://tug.org/texlive/trunk@21750 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/plain')
-rw-r--r--Master/texmf-dist/tex/plain/levy/greekmacros.tex51
1 files changed, 0 insertions, 51 deletions
diff --git a/Master/texmf-dist/tex/plain/levy/greekmacros.tex b/Master/texmf-dist/tex/plain/levy/greekmacros.tex
deleted file mode 100644
index 8e88c6a645b..00000000000
--- a/Master/texmf-dist/tex/plain/levy/greekmacros.tex
+++ /dev/null
@@ -1,51 +0,0 @@
-\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}}}