|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T g
Length: 1461 (0x5b5)
Types: TextFile
Names: »greekmacros.tex«
└─⟦060c9c824⟧ Bits:30007080 DKUUG TeX 2/12/89
└─⟦this⟧ »./babel/greek/greekmacros.tex«
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
└─⟦23cd347d5⟧ »unix3.0/babel.tar.Z«
└─⟦2fb9f645a⟧
└─⟦this⟧ »babel/greek/greekmacros.tex«
\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}}}