<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">% magrmac.dtx -- documentation and source for magrmac.tex -*-tex-*-
        
%%%@TeX-document-file {
%%% title 	= "MAGRMAC.TEX -- Malvern Greek Macros",
%%% filename 	= "$texmf/doc/plain/pdcmac/magrmac.dtx",
%%% version 	= "$Revision: 1.3 $",
%%% package 	= "pdcmac 1.0",
%%% date 	= "$Date: 1995/03/29 16:32:24 $",
%%% author	= "P. Damian Cugley",
%%% email	= "damian.cugley@comlab.ox.ac.uk",
%%% address	= "Oxford University Computing Laboratory,"
%%%                Parks Road, Oxford  OX1 3QD, UK",
%%% abstract	= "This document describes and is the source code for 
%%%                the TeX definitions file magrmac.tex.
%%%                Running plain TeX on this file produces both the
%%%                definitions file and the printed documentation.",
%%% copyright	= "Copyright (c) 1991-1995 P. Damian Cugley",
%%% copying	= "This program is free software; you can redistribute
%%%		   it and/or modify it under the terms of the GNU
%%%		   General Public License as published by the Free
%%%		   Software Foundation; either version 2 of the License,
%%%		   or (at your option) any later version.",
%%% notice	= "This program is distributed in the hope that it will
%%%		   be useful, but WITHOUT ANY WARRANTY; without even the
%%%		   implied warranty of MERCHANTABILITY or FITNESS FOR A
%%%		   PARTICULAR PURPOSE.  See the GNU General Public
%%%		   License for more details.",
%%% notice	= "You should have received a copy of the GNU General
%%%		   Public License along with this program; if not, write
%%%		   to the Free Software Foundation, Inc., 675 Mass Ave,
%%%		   Cambridge, MA 02139, USA.",
%%% codetable	= "USASCII",
%%% dependencies = "pdccode.tex"
%%%}

%{{{ magrmac.dtx
%{{{  preamble

\relax
\input pdccode

\document
\rcs$Id: magrmac.dtx,v 1.3 1995/03/29 16:32:24 pdc Exp $\endrcs

\codefile{magrmac.tex}

%}}}  preamble
%{{{  introduction
\author{P. Dmaian Cugley}
\title{MAGRMAC---Malvern Greek Macros}

\section{Introduction}

	This document describes |magrmac.tex|, a small file of macros
	for setting Greek with Malvern~G fonts.  `Malvern~G' is the name
	of an encoding for typesetting Greek texts.  Malvern
	release~$1{\cdot}2$ has a collection of fonts ({\tt
	ma$XX$g$YY$}) which use this encoding.  The Levy and Dryllerakis
	fonts should work to an extent.

	The conventions for Malvern Greek text files are intended to be
	similar to those for K.~J.\ Dryllerakis's Greek\TeX\ (the
	`|kd|-' fonts), and will be most useful on computers where the
	operating system uses latin letters (as opposed to those which
	can display Greek letters on the screen).

	There is a brief guide for |magrmac.tex| called |magrman.tex|.
\notepar	
	These macros are not necessarily in final form and are not
	intended to be supported.  Use them at your own risk.  
\endnotepar

	The document you are reading is a plain \TeX\ file called
	|magrmac.dtx|.  This `documented \TeX\ macros'\footnote*{The
	suffix |dtx| is the same as files used to simlar effect in the
	\LaTeX~2e distribution.}  file produces the file `|magrmac.tex|'
	in the current directory, in addition to the usual |dvi| file.
	The code lines in the printed documentation are identical to
	those in the macros file.

%}}}  introduction
%{{{  file identification
\section{File identification}

	Nowadays, macro files start with some comments identifying the
	file, for the benefit of people wondering what the file is for.

\code
	\|\% magrmac.tex \fileversion~\filedate~-- Malvern Greek Macros
	|%%%@TeX-definition-file {
	|%%% filename       = "$texmf/tex/plain/pdcmac/magrmac.tex",
	\|\%\%\% version~~~~~~~~= "\fileversion",
	\|\%\%\% date~~~~~~~~~~~= "\filedate",
	|%%% 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\{\fileversion~\filedate\}
	|
\endcode
%}}}  file identification
%{{{  greek mode
\section{Greek Mode}

	The Greek Mode is started with |\begingreek| for compatibility
	with the precedent of Greek\TeX\ and Levy's original Greek
	macros.\footnote*{The conventions of PDCFMT2 would suggest
	|\greek|\dots|\endgreek| but (besides being incompatible with
	existing Greek macros) it is probable that the hyphenation table
	code (|\language| code) for Greek would be called |\greek|,
	based on the names I~have seen used.}

	The token register |\everygreek| is expanded each time we enter
	Greek mode.  At a minimum it should contain a command to select
	an appropriate Greek font.
\code
	|\newtoks\everygreek
	|\chardef\other=12
\smallbreak
	|\def\begingreek{%
	|    \begingroup
	|    \catcode`\~\other \catcode`\|\other \catcode`\"\other
	|    \the\everygreek
	|}
\smallbreak
	|\let\endgreek=\endgroup
\endcode
%}}}  greek mode
\section{Customization}
%{{{  lunate sigma, curly phi

\subsec{Lunate sigma}

	The macro |\grlunatesigma| belongs in |\everygreek|.  It makes
	|s| an active char expanding to |c|.  A certain amount of
	jiggery-pokery is required because making |s| active makes it
	impossible to use the name |\grlunatesigma|!

\code
	|\toksdef\toksa=0
\smallbreak
	|\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
\endcode

\subsec{Variant phi}

	In the end I~make the two-stroke phi $\phi$ the default one,
	with $\varphi$ as the `variant', for compatibility with plain
	\TeX.  
\code
	|\chardef\ninetytwo=92
\smallbreak
	|\begingroup \uccode`\~=`f \uppercase{\toksa={\endgroup
	|    \def\grvarphi{%
	|        \catcode`\f\active \chardef~\ninetytwo
	|    }
	|}} \the\toksa
\endcode
%}}}  lunate sigma
%{{{  accent

\subsec{One-accent Greek}

	The |\monotonik| macro makes all the accent characters generate
	the modern symmetrical accent, while the breathings and iota
	subscript do nothing.
\code
	|\begingroup \catcode`\&lt;=\active \catcode`\&gt;=\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\&lt;\active \let&lt;\relax
	|        \catcode\lq\&gt;\active \let&gt;\relax
	|        \catcode\lq\|\active \let|\relax
	|    }
	|}\the\toksa
\smallbreak
	|\def\plutoniko{%
	|    \catcode`\'\other \catcode`\`\other \catcode`\~\other
	|    \catcode`\&lt;\other \catcode`\&gt;\other \catcode`\|\other
	|}
\endcode
%}}}  accent
%{{{  define delims

\subsec{Choose shorthand delimiters for Greek Mode}

	Define |#1| to be a `greek shift' in the way |$| is a maths
	shift.  Like |$|, |#1| will stand for either |\begingreek| or
	|\endgreek| as required.  |#1| must be a one-character control
	sequence (as might be used after |`|).
\code
	|\def\grdelimiter#1{
	|    \begingroup \uccode`~=`#1 \uppercase{\toksa={\endgroup
	|        \def~{\begingreek \let~\endgreek}
	|    }} \the\toksa
	|}
\endcode

%}}}  define delims
\endcodefile
\enddocument
\bye
%}}} macros for greek

% Local variables:
% fold-folded-p: t
% tex-macros-p: t
% End:
</pre></body></html>