summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain/pdcmac/magrmac.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/plain/pdcmac/magrmac.tex')
-rw-r--r--Master/texmf-dist/tex/plain/pdcmac/magrmac.tex67
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
+}