From 3bf95a44b19b38cd429bb35ec50c1a68fef77122 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 17 Mar 2011 23:42:54 +0000 Subject: levy license update (15mar11) git-svn-id: svn://tug.org/texlive/trunk@21750 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/plain/levy/greekmacros.tex | 51 ------------------------ 1 file changed, 51 deletions(-) delete mode 100644 Master/texmf-dist/tex/plain/levy/greekmacros.tex (limited to 'Master/texmf-dist/tex/plain') 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}}} -- cgit v1.2.3