diff options
Diffstat (limited to 'Master/texmf-dist/tex/plain/pdcmac/magrmac.tex')
-rw-r--r-- | Master/texmf-dist/tex/plain/pdcmac/magrmac.tex | 67 |
1 files changed, 67 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/plain/pdcmac/magrmac.tex b/Master/texmf-dist/tex/plain/pdcmac/magrmac.tex new file mode 100644 index 00000000000..eebec3bdfac --- /dev/null +++ b/Master/texmf-dist/tex/plain/pdcmac/magrmac.tex @@ -0,0 +1,67 @@ +% magrmac.tex 1.3 1995/03/29 -- Malvern Greek Macros +%%%@TeX-definition-file { +%%% filename = "$texmf/tex/plain/pdcmac/magrmac.tex", +%%% version = "1.3", +%%% date = "1995/03/29", +%%% package = "pdcmac 1.0", +%%% author = "P. Damian Cugley", +%%% email = "damian.cugley@comlab.ox.ac.uk", +%%% address = "Oxford University Computing Laboratory, +%%% Parks Road, Oxford OX1 3QD, UK", +%%% codetable = "USASCII", +%%% keywords = "TeX, plain TeX, Malvern, Greek, macros", +%%% supported = "Maybe", +%%% abstract = "Macros for using Malvern Greek fonts. +%%% This file was generated by running +%%% plain TeX on magrmac.dtx", +%%% copyright = "Copyright (c) 1991-1995 P. Damian Cugley", +%%% copying = "DO NOT DISTRIBUTE THIS FILE. +%%% Distribute magrmac.dtx only as part of the +%%% package it came in.", +%%% dependencies = "", +%%%} + +\message{1.3 1995/03/29} + +\newtoks\everygreek +\chardef\other=12 +\def\begingreek{% + \begingroup + \catcode`\~\other \catcode`\|\other \catcode`\"\other + \the\everygreek +} +\let\endgreek=\endgroup +\toksdef\toksa=0 +\begingroup \let\\=\toksa \catcode`\s=13 \catcode`\S=13 \\={\endgroup + \def\tmp{% + \catcode`\s\active \chardef s`c + \catcode`\S\active \chardef S`C + } +}\the\\ +\let\grlunatesigma=\tmp +\chardef\ninetytwo=92 +\begingroup \uccode`\~=`f \uppercase{\toksa={\endgroup + \def\grvarphi{% + \catcode`\f\active \chardef~\ninetytwo + } +}} \the\toksa +\begingroup \catcode`\<=\active \catcode`\>=\active + \catcode`\'=\active \catcode`\`=\active \toksa={\endgroup + \def\monotoniko{% + \catcode\lq\'\active \chardef'3 + \catcode\lq\`\active \chardef`3 + \catcode\lq\~\active \chardef~3 + \catcode\lq\<\active \let<\relax + \catcode\lq\>\active \let>\relax + \catcode\lq\|\active \let|\relax + } +}\the\toksa +\def\plutoniko{% + \catcode`\'\other \catcode`\`\other \catcode`\~\other + \catcode`\<\other \catcode`\>\other \catcode`\|\other +} +\def\grdelimiter#1{ + \begingroup \uccode`~=`#1 \uppercase{\toksa={\endgroup + \def~{\begingreek \let~\endgreek} + }} \the\toksa +} |