% 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
}
