source 1

git-svn-id: svn://tug.org/texlive/trunk@105 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 2273 insertions, 0 deletions

diff --git a/Master/texmf-dist/source/fontinst/base/fibasics.dtx b/Master/texmf-dist/source/fontinst/base/fibasics.dtx
new file mode 100644
index 00000000000..9c459a075b6
--- /dev/null
+++ b/Master/texmf-dist/source/fontinst/base/fibasics.dtx
@@ -0,0 +1,2273 @@
+% \CheckSum{1456}
+% \iffalse meta-comment
+%
+% Copyright 1993, 1994, 1995, 1996 Alan Jeffrey,
+% hacked and maintained 1997, 1998 Sebastian Rahtz,
+% copyright 1998, 1999, 2000, 2001 the fontinst maintenance team and any 
+% individual authors listed elsewhere in this file.  All rights reserved.
+% 
+% This file is part of the fontinst system version 1.9.
+% -----------------------------------------------------
+% 
+% It may be distributed under the terms of the LaTeX Project Public
+% License, as described in lppl.txt in the base LaTeX distribution.
+% Either version 1.1 or, at your option, any later version.
+% 
+%%% From file: fibasics.dtx
+%
+%<*driver>
+\documentclass{ltxdoc}
+\title{The \package{fontinst} utility}
+\author{Alan Jeffrey\and Sebastian Rahtz\and Ulrik Vieth\and 
+  Lars Hellstr\"om}
+\usepackage{fisource}
+\begin{document}
+\maketitle
+\DocInput{fibasics.dtx}
+\PrintIndex
+\end{document}
+%</driver>
+% \fi
+%
+% \StopEventually{}
+%
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% \begin{quote}
+%   ``Can't say I've ever been too fond of beginnings, myself. 
+%   \emph{Messy} little things. Give me a good ending any time. 
+%   You know where you \emph{are} with an ending.''\relax
+%   \nobreak\hskip 0pt plus 1fill\penalty0\hskip 2em\relax
+%   \vadjust{}\nobreak\hskip 1em plus 1fill\textemdash
+%   \ from \emph{The kindly ones} by \textsc{Neil Gaiman} et al.^^A
+%   \nobreak\hskip-\parfillskip\vadjust{}
+% \end{quote}
+%
+%
+% \section{The first and the last}
+% 
+% \subsection{Version numbers}
+%
+% We start by making some default catcode assignments, in case we are 
+% using ini\TeX{}.
+%    \begin{macrocode}
+%<*pkg>
+\catcode`\{=1
+\catcode`\}=2
+\catcode`\#=6
+\catcode`\^=7
+%</pkg>
+%    \end{macrocode}
+%
+% \begin{macro}{\fontinstversion}
+%   If we are running under ini\TeX{} we cannot put the identification
+%   stuff any earlier than this.  Note that |\fontinstversion| is not
+%   just used for indentification but also in |\needsfontinstversion|.
+%    \begin{macrocode}
+%<pkg|doc>\def\fontinstversion{1.927}
+%    \end{macrocode}
+% \end{macro}
+%
+% If we are running under ini\TeX{} or \texttt{plain}, we have to get
+% around the \LaTeX{}-specific |\ProvidesPackage| stuff.
+%
+%    \begin{macrocode}
+%<*pkg>
+\ifx\ProvidesPackage\undefined
+   \def\NeedsTeXFormat#1{}
+   \def\ProvidesPackage#1[#2]{}
+\fi
+%</pkg>
+%    \end{macrocode}
+%
+% Now we can identify ourselves as usual.
+%
+%    \begin{macrocode}
+%<doc>\NeedsTeXFormat{LaTeX2e}[1995/06/01]
+%<doc>\ProvidesPackage{fontdoc}
+%<pkg>\ProvidesPackage{fontinst}
+%<pkg|doc>[2004/08/07 v\fontinstversion\space
+%<doc>  fontinst documentation package]
+%<pkg>  fontinst installation package]
+%    \end{macrocode}
+%
+% While we're at version numbers anyway, we might as well define the 
+% command for testing them. Note however that the module name is not 
+% \Module{pkg} as above, but \Module{pkg2}. Code in the latter module 
+% ends up at the very end of \texttt{fontinst.sty}!
+% 
+% \begin{macro}{\needsfontinstversion}
+%   The macro:
+%   \begin{quote}
+%      |\needsfontinstversion|\marg{number}
+%   \end{quote}
+%   checks the version number.
+%
+%    \begin{macrocode}
+%<*pkg2>
+\def\needsfontinstversion#1{{
+   \a_dimen=#1pt
+   \b_dimen=\fontinstversion~pt\x_relax
+   \ifnum\a_dimen>\b_dimen
+      \immediate\write16{}
+      \immediate\write16{Warning:~This~file~needs~fontinst~version~#1.}
+      \immediate\write16{Warning:~You~are~using~version~
+         \fontinstversion.}
+      \immediate\write16{Warning:~This~may~cause~errors.}
+      \immediate\write16{}
+   \fi
+}}
+%</pkg2>
+%    \end{macrocode}
+%
+%   In \package{fontdoc}, |\needsfontinstversion| is printed out as a 
+%   comment.
+%   \changes{1.918}{2001/06/19}{Different formatting in encoding 
+%     specification files. (LH)}
+%    \begin{macrocode}
+%<*doc>
+\newcommand*\needsfontinstversion[1]{%
+   \ifFD@spec@
+      \comment{Automatic processing of this document as a data file 
+      requires \textsf{fontinst} v\,#1 or higher.}%
+   \else
+      \Bheading{Needs fontinst v\thinspace#1}%
+   \fi
+}
+%</doc>
+%    \end{macrocode}
+% \end{macro}
+% 
+% 
+% \subsection{Special catcodes and configuration file}
+% 
+% \package{fontinst} uses some unusual, but convenient, settings of 
+% |\catcode|. |@| and |_| are made letters, |~| is made a space, and 
+% space and newline are ignored. Before setting those however, we save 
+% the current values of the catcodes, so that they can be restored at 
+% the end of \texttt{fontinst.sty}.
+%
+% \begin{macro}{\normalcc}
+% \begin{macro}{\fontinstcc}
+%   \multchanges{\cs{fontinstcc}\cs{normalcc}}{1.915}{2000/08/09}^^A
+%      {Introduced commands for changing between \package{fontinst} 
+%       internal catcodes and normal catcodes, as suggested by 
+%       Karsten Tinnefeld. (LH)}
+%   The |\fontinstcc| command changes the catcodes of certain characters 
+%   to what is used in the \package{fontinst} source and the |\normalcc| 
+%   command changes them back; their use is analogous to that of the 
+%   |\make|\-|at|\-|letter| and |\make|\-|at|\-|other| commands in 
+%   \LaTeX.
+%   
+%   If, for some reason, you use other ``normal'' catcodes than 
+%   \package{fontinst} does by default, you may have to redefine 
+%   |\fontinstcc| and |\normalcc|. The easiest way to do this is 
+%   probably to use the |\add_to| macro.
+%   
+%   \multchanges{\cs{spacecatcode}\cs{nlcatcode}\cs{atcatcode}^^A
+%      \cs{underscorecatcode}\cs{tildecatcode}}{1.915}{2000/08/09}^^A
+%      {Removed since the contents can just as well be stored in 
+%       \cs{normalcc}. (LH)}
+%    \begin{macrocode}
+%<*pkg>
+\def\a_macro#1{\catcode\number`#1=\the\catcode`#1 }
+\edef\normalcc{%
+   \a_macro{\ }\a_macro{\^^M}\a_macro{\@}\a_macro{\_}\a_macro{\~}
+}
+%    \end{macrocode}
+%   The above definition makes the |\normalcc| macro end with a space. 
+%   This is deliberate; the space is used to terminate the last number 
+%   in the macro.
+%   
+%    \begin{macrocode}
+\def\fontinstcc{%
+   \catcode`\ =9%
+   \catcode`\^^M=9%
+   \catcode`\@=11%
+   \catcode`\_=11%
+   \catcode`\~=10
+}
+\fontinstcc
+%</pkg>
+%    \end{macrocode}
+% \end{macro}\end{macro}
+% 
+% We input the \texttt{fontinst.rc} file, if it exists.\relax
+% \changes{1.6}{1997/02/07}{\texttt{fontinst.rc} search order changed 
+%    (Thierry Bouche).}\relax
+% \SortIndex{fontinst.rc file}{\texttt{fontinst.rc} file}
+%
+% UV, 06/1998:  What is this \texttt{fontinst.rc} file good for?
+% It turns out that you can use it to do |\def\raw_encoding{8y}|
+% if you prefer to install your fonts the other way.
+%
+%    \begin{macrocode}
+%<*pkg2>
+%<*!misc>
+\if_file_exists{fontinst.rc}\then
+   \primitiveinput fontinst.rc
+\else
+   \immediate\write16{No~file~fontinst.rc.}
+\fi
+%</!misc>
+%    \end{macrocode}
+% Use a different configuration file for \texttt{finstmsc.sty}.^^A
+% \changes{1.905}{1999/06/21}{Different config file for 
+%    \texttt{finstmsc.sty}. (LH)}
+%    \begin{macrocode}
+%<*misc>
+\if_file_exists{finstmsc.rc}\then
+   \primitiveinput finstmsc.rc
+\else
+   \immediate\write16{No~file~finstmsc.rc.}
+\fi
+%</misc>
+%    \end{macrocode}
+%
+% At the end of \texttt{fontinst.sty}, we restore the catcodes we 
+% changed. 
+% \changes{1.910}{1999/11/01}{Catcodes restored \emph{after} reading 
+%    \texttt{.rc} file. (LH\&UV)}
+%
+%    \begin{macrocode}
+\normalcc
+%</pkg2>
+%    \end{macrocode}
+%
+%
+% \subsection
+% {Plain \TeX{} macros from \texttt{fontinst.ini}}
+% ^^A \subsection{PlainTeX macros from fontinst.ini}
+%
+% If we're running in ini\TeX{} we input some definitions taken
+% from \texttt{plain}.
+%
+%    \begin{macrocode}
+%<*pkg>
+\ifx\@ne\undefined_command
+   \input fontinst.ini\relax
+\fi
+%</pkg>
+%    \end{macrocode}
+%
+%    \begin{macrocode}
+%<*ini>
+\chardef\active=13
+
+\chardef\@ne=1
+\chardef\tw@=2
+\chardef\thr@@=3
+\chardef\sixt@@n=16
+\chardef\@cclv=255
+\mathchardef\@cclvi=256
+\mathchardef\@m=1000
+\mathchardef\@M=10000
+\mathchardef\@MM=20000
+
+\count10=22 % allocates \count registers 23, 24, ...
+\count11=9 % allocates \dimen registers 10, 11, ...
+\count15=9 % allocates \toks registers 10, 11, ...
+\count16=-1 % allocates input streams 0, 1, ...
+\count17=-1 % allocates output streams 0, 1, ...
+\count20=255 % allocates insertions 254, 253, ...
+\countdef\insc@unt=20 % the insertion counter
+\countdef\allocationnumber=21 % the most recent allocation
+\countdef\m@ne=22 \m@ne=-1 % a handy constant
+\def\wlog{\immediate\write\m@ne} % write on log file (only)
+
+\countdef\count@=255
+\dimendef\dimen@=0
+
+\outer\def\newcount{\alloc@0\count\countdef\insc@unt}
+\outer\def\newdimen{\alloc@1\dimen\dimendef\insc@unt}
+\outer\def\newtoks{\alloc@5\toks\toksdef\@cclvi}
+\outer\def\newread{\alloc@6\read\chardef\sixt@@n}
+\outer\def\newwrite{\alloc@7\write\chardef\sixt@@n}
+
+\def\alloc@#1#2#3#4#5{\global\advance\count1#1by\@ne
+  \ch@ck#1#4#2% make sure there's still room
+  \allocationnumber=\count1#1%
+  \global#3#5=\allocationnumber
+  \wlog{\string#5=\string#2\the\allocationnumber}}
+\outer\def\newinsert#1{\global\advance\insc@unt by\m@ne
+  \ch@ck0\insc@unt\count
+  \ch@ck1\insc@unt\dimen
+  \ch@ck2\insc@unt\skip
+  \ch@ck4\insc@unt\box
+  \allocationnumber=\insc@unt
+  \global\chardef#1=\allocationnumber
+  \wlog{\string#1=\string\insert\the\allocationnumber}}
+\def\ch@ck#1#2#3{\ifnum\count1#1<#2%
+  \else\errmessage{No~room~for~a~new~#3}\fi}
+
+\outer\def\newif#1{\count@\escapechar \escapechar\m@ne
+  \expandafter\expandafter\expandafter
+   \edef\@if#1{true}{\let\noexpand#1=\noexpand\iftrue}%
+  \expandafter\expandafter\expandafter
+   \edef\@if#1{false}{\let\noexpand#1=\noexpand\iffalse}%
+  \@if#1{false}\escapechar\count@} % the condition starts out false
+\def\@if#1#2{\csname\expandafter\if@\string#1#2\endcsname}
+{\uccode`1=`i \uccode`2=`f \uppercase{\gdef\if@12{}}} % `if' is required
+
+\newdimen\p@ \p@=1pt % this saves macro space and time
+\newdimen\z@ \z@=0pt % can be used both for 0pt and 0
+
+\def\space{~}
+\let\bgroup={
+\let\egroup=}
+
+\def\loop#1\repeat{\def\body{#1}\iterate}
+\def\iterate{\body \let\next\iterate \else\let\next\relax\fi \next}
+\let\repeat=\fi % this makes \loop...\if...\repeat skippable
+
+\def\supereject{\par\penalty-\@MM}
+\outer\def\bye{\par\vfill\supereject\end}
+%</ini>
+%    \end{macrocode}
+% The two last commands above also need to be defined if we're 
+% running under \LaTeX. In that case we need to be careful with |\bye| 
+% however, as no |\if|\textellipsis\ can skip over code that explicitly 
+% contains that control sequence, if it has been defined as above.
+%    \begin{macrocode}
+%<*pkg>
+\ifx\bye\undefined_command
+   \def\supereject{\par\penalty-\@MM}
+   \outer\expandafter\def \csname bye\endcsname
+     {\par\vfill\supereject\@@end}
+\fi
+%</pkg>
+%    \end{macrocode}
+% 
+% \changes{1.910}{1999/11/01}{Make \cs{everyjob} code optional, and 
+%    simplify it a little. (LH\&UV)}
+%    \begin{macrocode}
+%<*ini&everyjob>
+\everyjob{%
+   \if_file_exists{fontinst.rc}\then
+      \primitiveinput~fontinst.rc
+   \else
+      \immediate\write16{No~file~fontinst.rc.}
+   \fi
+}
+%</ini&everyjob>
+%    \end{macrocode}
+%
+% 
+% \section{Basic definitions}
+% 
+% \subsection{Declaring variables and constants}
+%
+% Some temporary variables:
+% 
+% \begin{macro}{\a_count}
+% \begin{macro}{\b_count}
+% \begin{macro}{\c_count}
+% \begin{macro}{\d_count}
+% \begin{macro}{\e_count}
+% \begin{macro}{\f_count}
+% \begin{macro}{\g_count}
+%    \begin{macrocode}
+%<*pkg>
+\newcount\a_count
+\newcount\b_count
+\newcount\c_count
+\newcount\d_count
+\newcount\e_count
+\newcount\f_count
+\newcount\g_count
+%    \end{macrocode}
+% \end{macro}\end{macro}\end{macro}\end{macro}\end{macro}\end{macro}
+% \end{macro}
+% \begin{macro}{\a_dimen}
+% \begin{macro}{\b_dimen}
+% \begin{macro}{\c_dimen}
+% \begin{macro}{\d_dimen}
+%    \begin{macrocode}
+\newdimen\a_dimen
+\newdimen\b_dimen
+\newdimen\c_dimen
+\newdimen\d_dimen
+%    \end{macrocode}
+% \end{macro}\end{macro}\end{macro}\end{macro}
+% \begin{macro}{\a_toks}
+% \begin{macro}{\b_toks}
+% \begin{macro}{\c_toks}
+%    \begin{macrocode}
+\newtoks\a_toks
+\newtoks\b_toks
+\newtoks\c_toks
+%    \end{macrocode}
+% \end{macro}\end{macro}\end{macro}
+% 
+% \begin{switch}{_a_}
+%   \changes{1.901}{1999/03/07}{Temporary switch added. (LH)}
+%    \begin{macrocode}
+\newif\if_a_
+%    \end{macrocode}
+% \end{switch}
+% 
+% \describecsfamily{\meta{letter}_macro}
+% Besides these temporary variables that have to be declared, the family 
+% of control sequences with names of the form |\|\meta{letter}|_macro|, 
+% such as |\a_macro|, |\b_macro|, etc., should be used as ``macro valued'' 
+% temporary variables.
+% \changes{1.903}{1999/05/13}{Introduced the 
+%    \cs{\meta{letter}_macro} temporary variables, 
+%    replaced \cs{temp_command}. (LH)}
+% 
+% \begin{macro}{\out_file}
+%   Some global variables:
+%    \begin{macrocode}
+\newwrite\out_file
+%    \end{macrocode}
+% \end{macro}
+%
+% 
+% \begin{macro}{\one_thousand}
+% \begin{macro}{\five_hundred}
+% \begin{macro}{\one_hundred}
+% \begin{macro}{\max_mathchardef}
+% \begin{macro}{\two_thousand}
+%   \changes{1.913}{2000/03/11}{Constant added. (LH)}
+% \begin{macro}{\half_point}
+%   \changes{1.913}{2000/03/04}{Constant added. (LH)}
+%   Some constants:
+%    \begin{macrocode}
+\mathchardef\one_thousand=1000
+\mathchardef\five_hundred=500
+\mathchardef\one_hundred=100
+\mathchardef\max_mathchardef="7FFF
+\mathchardef\two_thousand=2000
+\newdimen\half_point    \half_point=0.5pt
+%    \end{macrocode}
+% \end{macro}\end{macro}\end{macro}\end{macro}\end{macro}\end{macro}
+%
+%
+%  \subsection{Trigonometry macros}
+%
+% Include David Carlisle's trigonometry macros.  First, do some hacks
+% to get round all that |\NeedsTeXFormat{LaTeX2e}| stuff that David
+% put in :-)  In v\,1.8 these hacks been moved to an earlier place since
+% we put in |\ProvidesPackage| ourselves.
+% \SortIndex{trig package}{\package{trig} package}
+%
+%    \begin{macrocode}
+\let\@tempdima\a_dimen
+\let\@tempdimb\b_dimen
+\input trig.sty
+%</pkg>
+%    \end{macrocode}
+%
+% 
+% \subsection
+% {\package{fontdoc}-specific declarations}
+% ^^A \subsection{fontdoc-specific declarations}
+% 
+% As of v\,1.917, \package{fontdoc} has options, so we better start 
+% with declaration and processing of these.
+% \changes{1.917}{2001/03/31}{Option processing added. (LH)}
+% 
+% \begin{option}{specification}
+% \begin{switch}{FD@spec@}
+%   The \texttt{specification} option tells \package{fontdoc} that the 
+%   document is an encoding specification rather than a production 
+%   file---this changes some minor details in the typesetting. The 
+%   state of this option is recorded in the |FD@spec@| switch. 
+%    \begin{macrocode}
+%<*doc>
+\newif\ifFD@spec@
+\FD@spec@false
+\DeclareOption{specification}{\FD@spec@true}
+%    \end{macrocode}
+% \end{switch}\end{option}
+% 
+% \begin{option}{hypertex}
+%   \changes{1.918}{2001/06/17}{Option added. (LH)}
+% \begin{option}{pdftex}
+%   \changes{1.920}{2001/09/24}{Option added. (LH)}
+% \begin{macro}{\FD@codepoint}
+%   The \texttt{hypertex} and \texttt{pdftex} options tell 
+%   \package{fontdoc} to include Hyper\TeX\ |\special|s and pdf\TeX\ 
+%   annotations, in every code point number set using |\Unicode| or 
+%   |\textunicode|, for links to glyph images on the Unicode 
+%   consortium web site. The URLs to use are as follows:
+%   \begin{quote}
+%     \small
+%     To access the reference glyph for any Unicode character, 
+%     you can use the new URL syntax like this:
+%     \begin{quote}
+%       \texttt{http://www.unicode.org/cgi-bin/refglyph?}^^A
+%       \meta{XX}\texttt{-}\meta{nnnn}
+%     \end{quote}
+%     where \meta{XX} is the point size and \meta{nnnn} is the 
+%     hexadecimal codepoint. Please note however that only \texttt{24} 
+%     is supported as a size parameter at this time. (We are 
+%     reserving the possibility of providing other sizes in the 
+%     future.) Here is an example of usage for \texttt{U+4E78}:
+%     \begin{quote}
+%       \texttt{http://www.unicode.org/cgi-bin/refglyph?24-4E78}
+%     \end{quote}
+%     (This supports up to 6 hex digits, so it can also be used 
+%     with the supplementary characters.)
+%   \end{quote}
+%   
+%   \iffalse
+%   Documentation for a similar older service:
+%   \begin{quotation}
+%     \small
+%     You may embed references to the glyph images on the Unicode site 
+%     in your own web pages. For example, to display a Euro sign 
+%     (\texttt{U+20AC}) you can use the following HTML:
+%     \begin{quote}
+%       |<IMG SRC="http://charts.unicode.org/Glyphs/20/U20AC.gif">|
+%     \end{quote}
+%     The subdirectory to use within the \texttt{Glyphs/} directory 
+%     is the first two hexadecimal digits of the Unicode code point.
+%     The set of glyphs available covers all of Unicode 3.0 with the 
+%     exception of Han ideographs and Hangul syllables.
+%     
+%     However, you should only make occasional use of these glyphs. 
+%     If there is too much web traffic the Unicode
+%     Consortium may be forced to discontinue this service.
+%   \end{quotation}
+%   \fi
+%   Coding this for Hyper\TeX\ is pretty straightforward.
+%    \begin{macrocode}
+\DeclareOption{hypertex}{
+   \providecommand*\FD@codepoint[1]{%
+      \uppercase{\edef\@tempa{#1}}%
+      \special{html:<a href="%
+         http://www.unicode.org/cgi-bin/refglyph?24-\@tempa
+         ">%
+      }%
+      \texttt{U+\@tempa}%
+      \special{html:</a>}%
+   }%
+}
+%    \end{macrocode}
+%   The pdf\TeX\ implementation is easy too, but there is one 
+%   complication: The key primitive is called |\pdfannotlink| in 
+%   v\,0.13, but |\pdfstartlink| in v\,0.14. My thanks goes to H\`an 
+%   Th\'{\^e} Th\`anh, who helped me sort that out.
+%    \begin{macrocode}
+\DeclareOption{pdftex}{
+   \providecommand*\FD@codepoint[1]{%
+      \mbox{%
+         \uppercase{\edef\@tempa{#1}}%
+         \ifx \pdfstartlink\@undefined
+            \pdfannotlink
+         \else
+            \pdfstartlink
+         \fi attr {/Border [0 0 0]} user {%
+            /Subtype /Link /A <<%
+               /S /URI /URI (%
+                  http://www.unicode.org/cgi-bin/refglyph?24-\@tempa
+               )%
+            >>}%
+         \textcolor{blue}{\texttt{U+\@tempa}}%
+         \pdfendlink
+      }%
+   }%
+   \AtEndOfPackage{\RequirePackage[pdftex]{color}}%
+}
+%    \end{macrocode}
+%   It would be quite possible to make these links according to some 
+%   other standard (e.g.~\LaTeX\-to\-HTML) instead by including a suitable 
+%   definition of |\FD@codepoint| in your \texttt{fontdoc.cfg} file. 
+%   I could include code for those standards as well if someone sends 
+%   it to me.
+%   
+%   I decided against using commands in the \package{hyperref} or 
+%   \package{hyper} packages for this as these packages do so much more 
+%   that I don't want. If some day a package providing a basic interface 
+%   for making hyperlinks is included in required \LaTeX\ then this 
+%   decision should certainly be reconsidered.
+% \end{macro}\end{option}\end{option}
+% 
+% Input a local configuration file, if it exists.
+%    \begin{macrocode}
+\InputIfFileExists{fontdoc.cfg}{%
+   \typeout{*************************************^^J%
+            * Local config file fontdoc.cfg used^^J%
+            *************************************}%
+}{}
+%    \end{macrocode}
+%    
+% Finally process the options.
+%    \begin{macrocode}
+\ProcessOptions\relax
+%    \end{macrocode}
+% 
+% 
+% The \package{amstext} package is required, since the |\text| command 
+% is used in formatting some integer expressions.
+% \changes{1.916}{2001/01/02}{Requiring the \package{amstext} package 
+%    in \package{fontdoc}. (LH)}
+%    \begin{macrocode}
+\RequirePackage{amstext}
+%    \end{macrocode}
+% 
+% \begin{macro}{\a@count}
+% \begin{macro}{\b@count}
+%   \changes{1.916}{2001/01/02}{Variable added. (LH)}
+% \begin{macro}{\a@dimen}
+%   Three private variables:
+%    \begin{macrocode}
+\newcount\a@count
+\newcount\b@count
+\newdimen\a@dimen
+%    \end{macrocode}
+% \end{macro}\end{macro}\end{macro}
+%
+% Some useful macros and constrol structures:
+%
+%    \begin{macrocode}
+\def\x@cs#1#2{\expandafter#1\csname#2\endcsname}
+\def\FD@swap@two#1#2{#2#1}
+%    \end{macrocode}
+%
+% \begin{macro}{\Aheading}
+%   \changes{1.909}{1999/10/18}{Use \cs{addvspace} to make space 
+%      above. (LH)}
+%   \changes{1.909}{1999/10/20}{Insert a \cs{penalty} for pagebreaking 
+%      after an \cs{Aheading}. (LH)}
+%   \changes{1.920}{2001/10/19}{Encouraged page breaks before an 
+%      \cs{Aheading}. (LH)}
+% \begin{macro}{\Bheading}
+%   |\Aheading| and |\Bheading| are used to typeset various headings.
+%    \begin{macrocode}
+\newcommand\Aheading[1]{%
+   \par\pagebreak[1]\addvspace\medskipamount
+   \noindent\textbf{#1}\vadjust{\penalty200}\par
+}
+\newcommand\Bheading[1]{\par\noindent\textbf{#1}}
+%    \end{macrocode}
+% \end{macro}\end{macro}
+%
+% Some formating commands and a macro that comes in handy. It used to 
+% say |\raggedright| at this point as well, but that functionality has 
+% been moved into |\encoding| and |\metrics|.
+% 
+% \definechange{raggedright}{1.920}{2001/09/16}{The body (between 
+%   \cs{metrics} and \cs{endmetrics}, and \cs{encoding} and 
+%   \cs{endencoding} respectively) of a \package{fontdoc} document is 
+%   now typeset in a \texttt{flushleft} environment. It used to be that 
+%   the entire document was typeset this way. (LH)}
+% \usechange{raggedright}
+% \changes{1.923}{2002/10/26}{Making sure \cs{lineskiplimit} is 
+%    positive. (LH)}
+% 
+%    \begin{macrocode}
+\raggedbottom
+\ifdim 1sp>\lineskiplimit \lineskiplimit=0.5pt \fi
+\newcommand\plain{\texttt{plain}}
+%    \end{macrocode}
+%
+% \begin{macro}{\plainint}
+% \begin{macro}{\plaindiv}
+% \begin{macro}{\plainmax}
+% \begin{macro}{\plainmin}
+%   \package{fontdoc} saves away \LaTeX's |\int|, |\div|, |\max|, and 
+%   |\min| as |\plainint|, |\plaindiv|, |\plainmax|, and |\plainmin|, 
+%   since these control sequences are going to be used for other 
+%   purposes.
+%    \begin{macrocode}
+\let\plainint=\int
+\let\plaindiv=\div
+\let\plainmax=\max
+\let\plainmin=\min
+%    \end{macrocode}
+% \end{macro}\end{macro}\end{macro}\end{macro}
+% 
+% \begin{macro}{\TypesetList}
+%   \changes{1.914}{2000/05/13}{Macro added. (LH)}
+% \begin{macro}{\list@item@counter}
+%   The |\TypesetList| command typesets the \meta{arg}s in a sequence of 
+%   |\do|\marg{arg} macros with separators depending on position in and 
+%   length of the sequence. It is loosely based on a description of a 
+%   similar command in the \package{amsref} package, but it has fewer 
+%   features, and I don't know if there is any similarity between the 
+%   implementations.
+%   
+%   The syntax is
+%   \begin{isyntax}
+%     |\TypesetList|\marg{left}\marg{onlysep}\marg{nonlastsep}\penalty0
+%       \marg{lastsep}\penalty0\marg{right}\penalty0
+%       \marg{empty}\penalty0\marg{wrap}\penalty0\marg{list}
+%   \end{isyntax}
+%   \meta{list} is the actual list of |\do|\marg{arg}s. If that is 
+%   empty then \meta{empty} is typeset. Otherwise the typeset text 
+%   begins with \meta{left}, ends with \meta{right}, and contains the 
+%   formatted forms of every \meta{arg} in the list of |\do|\marg{arg}s. 
+%   The formatting here consists of passing the \meta{arg} as the 
+%   argument to \meta{wrap}, which is typically a one-argument macro.
+%   Between two ``formatted \meta{arg}s'' will \meta{onlysep}, 
+%   \meta{nonlastsep}, or \meta{lastsep} be put, depending on the number 
+%   of \meta{arg}s in the list and the position in the list. If the list 
+%   has length two then \meta{onlysep} will be used for the only separator 
+%   needed. If the list has length greater than two then \meta{nonlastsep} 
+%   will be used for all separators but the last, and \meta{lastsep} will 
+%   be used for the last.
+%   
+%   All of the arguments of |\TypesetList| must survive being passed 
+%   through a |\def|.
+%    \begin{macrocode}
+\newcount\list@item@counter
+\newcommand\TypesetList[8]{%
+   \begingroup
+      \list@item@counter=\z@
+      \def\do##1{\advance\list@item@counter\@ne}%
+      #8%
+      \ifcase \list@item@counter \or
+         \def\do##1{#1#7{##1}}%
+      \or
+         \def\do##1{%
+            \advance\list@item@counter\@ne
+            \ifnum \list@item@counter=\@ne #1\else #2\fi
+            #7{##1}%
+         }%
+      \else
+         \advance\list@item@counter\m@ne
+         \expandafter\def \expandafter\do \expandafter##\expandafter1%
+            \expandafter{\expandafter\ifnum \the\list@item@counter
+               =\list@item@counter
+               #4%
+            \else\ifnum \z@=\list@item@counter
+               #1%
+            \else
+               #3%
+            \fi\fi
+            \advance\list@item@counter\@ne
+            #7{##1}%
+         }%
+      \fi
+      \ifnum \z@=\list@item@counter
+         #6%
+      \else
+         \list@item@counter=\z@
+         #8%
+         #5%
+      \fi
+   \endgroup
+}
+%</doc>
+%    \end{macrocode}
+% \end{macro}\end{macro}
+% 
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% 
+% 
+% \section
+% {\TeX{} hackery}
+% ^^A \section{TeX hackery}
+% \changes{1.902}{1999/05/01}{Moved Section \thesection\space to 
+%     \texttt{fibasics.dtx}. (LH)}
+% 
+% \subsection{Utiltiy macros}
+%
+% \begin{macro}{\x_cs}
+% \begin{macro}{\x_relax}
+% \begin{macro}{\g_let}
+%    \begin{macrocode}
+%<*pkg>
+\def\x_cs#1#2{\expandafter#1\csname#2\endcsname}
+\let\x_relax=\relax
+\def\g_let{\global\let}
+%</pkg>
+%    \end{macrocode}
+% \end{macro}\end{macro}\end{macro}
+% \changes{1.900}{1999/02/07}{Replaced \cs{relax} by \cs{x_relax}. (LH)}
+%
+% \begin{macro}{\x@relax}
+%    \begin{macrocode}
+%<doc>\let\x@relax=\relax
+%    \end{macrocode}
+% \end{macro}
+% 
+% \begin{macro}{\empty_command}
+% \begin{macro}{\gobble_one}
+% \begin{macro}{\gobble_two}
+% \begin{macro}{\gobble_three}
+% \begin{macro}{\identity_one}
+% \begin{macro}{\first_of_two}
+% \begin{macro}{\second_of_two}
+% \begin{macro}{\swap_two}
+%   \changes{1.912}{2000/02/16}{Macro added. (LH)}
+% \begin{macro}{\first_of_three}
+%   \changes{1.914}{2000/05/30}{Macro added. (LH)}
+%    \begin{macrocode}
+%<*pkg>
+\def\empty_command{}
+\def\gobble_one#1{}
+\def\gobble_two#1#2{}
+\def\gobble_three#1#2#3{}
+\def\identity_one#1{#1}
+\def\first_of_two#1#2{#1}
+\def\second_of_two#1#2{#2}
+\def\swap_two#1#2{#2#1}
+\def\first_of_three#1#2#3{#1}
+%    \end{macrocode}
+% \end{macro}\end{macro}\end{macro}\end{macro}\end{macro}\end{macro}
+% \end{macro}\end{macro}\end{macro}
+%
+% \begin{macro}{\hash_char}
+% \begin{macro}{\percent_char}
+% \begin{macro}{\left_brace_char}
+% \begin{macro}{\right_brace_char}
+%    \begin{macrocode}
+\bgroup
+   \catcode`\[=1
+   \catcode`\]=2
+   \catcode`\#=12
+   \catcode`\%=12
+   \catcode`\{=12
+   \catcode`\}=12
+   \gdef\hash_char[#]
+   \gdef\percent_char[%]
+   \gdef\left_brace_char[{]
+   \gdef\right_brace_char[}]
+\egroup
+%    \end{macrocode}
+% \end{macro}\end{macro}\end{macro}\end{macro}
+%
+% \begin{macro}{\first_char}
+% Return the first character of a string.
+%
+%    \begin{macrocode}
+\def\first_char#1#2={#1}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\add_to}
+%   Append one or more tokens to the replacement text of a 
+%   parameterless macro.
+%    \begin{macrocode}
+\def\add_to#1#2{
+   \ifx#1\x_relax
+      \def#1{#2}
+   \else
+      \expandafter\def\expandafter#1\expandafter{#1#2}
+   \fi
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\prep_to}
+%   Prepend one or more tokens to the replacement text of a 
+%   parameterless macro. Note that if more than one token is added then 
+%   the second parameter must contain an |\expandafter| between every 
+%   pair of tokens you actually mean to contribute. Thus if you want 
+%   to prepend |abc| to |\next|, you must write
+%   \begin{quote}
+%     |\prep_to\next{a\expandafter b\expandafter c}|
+%   \end{quote}
+%   Also note that the second argument must not be empty.
+%    \begin{macrocode}
+\def\prep_to#1#2{
+   \ifx#1\x_relax
+      \expandafter\def\expandafter#1\expandafter{\expandafter#2}
+   \else
+      \expandafter\def\expandafter#1\expandafter{\expandafter#2#1}
+   \fi
+}
+%    \end{macrocode}
+% \end{macro}
+% 
+% \begin{macro}{\never_do}
+%   The command |\do|, protected from expansion.
+%   
+%    \begin{macrocode}
+\def\never_do{\noexpand\do}
+%</pkg>
+%    \end{macrocode}
+% \end{macro}
+%
+% 
+% \subsection{Testing for \TeX\ extensions}
+% \changes{1.914}{2000/05/13}{Added commands for testing for 
+%    \protect\TeX\ extensions. (LH)}
+% Some tasks can be done better (and usually with simpler code) if 
+% one can assume that certain features in some \TeX\ extensions, such as 
+% \eTeX, is available. Unfortunately one cannot generally make this 
+% assumption, but it is sometimes possible to provide two implementations 
+% of a macro and at runtime choose the one which best utilizes the 
+% available features. This subsection defines macros for making these 
+% tests.
+% 
+% There is also a command |\needsTeXextension| which is used like 
+% |\needs|\-|fontinst|\-|version|, but which tests the \TeX\ rather than 
+% the version of \package{fontinst}. This ought to be of use for ETX files 
+% that describe 16 bit encodings,\footnote{At the time of writing, no 
+% such ETX files exist that I know of, but \package{fontinst} should 
+% not have any problem using them. /LH} as the current implementation 
+% of the (V)PL writer in this case requires the underlying \TeX\ to 
+% support 16 bit character codes.
+% 
+% The normal operation of the extension-testing macros is to set the |_a_| 
+% switch to true if the requested extension is present, and to leave the 
+% switch as it was if it isn't present. This is so that one can easily 
+% test for a feature that has been added to several different extensions 
+% of \TeX\ simply by doing the tests in sequence. That, however, is what 
+% the testing macros do if the switch |_extensions_warning_| is set to 
+% false. When it is set to true they instead expand to a short piece of 
+% text suitable for inclusion in a warning message about the absence of 
+% a needed feature.
+% 
+% \begin{switch}{_extensions_warning_}
+%   This switch controls whether extension-testing macros should 
+%   actually do the test (false) or produce a warning (true).
+%    \begin{macrocode}
+%<*pkg>
+\newif\if_extensions_warning_
+\_extensions_warning_false
+%    \end{macrocode}
+% \end{switch}
+% 
+% 
+% \begin{macro}{\eTeX}
+%   The |\eTeX| command has the syntax
+%   \begin{quote}
+%     |\eTeX|\marg{version number}
+%   \end{quote}
+%   where the \meta{version number} is the complete version number 
+%   (version number plus revision) of the \eTeX\ one wishes to test for.
+%   
+%   The code below is geared towards not letting unnecessary control 
+%   sequences get tokenized, as they will then always occupy a position 
+%   in \TeX's hash table, but it seems one cannot get around testing 
+%   whether |\eTeXversion| is defined, so we start with that and then 
+%   do a |\catcode| trick to prevent \TeX\ from seeing |\eTeXrevision|.
+%    \begin{macrocode}
+\ifx \eTeXversion\undefined_command
+   \catcode`\~=14 % 14=comment
+\fi
+\def\eTeX#1{
+   \if_extensions_warning_
+      \space/\space e-TeX\space version\space #1
+~  \else
+~     \ifdim \number\eTeXversion\eTeXrevision\p@ < #1\p@ \else
+~        \_a_true
+~     \fi
+   \fi
+}
+\catcode`\~=10
+%</pkg>
+%    \end{macrocode}
+%   \begin{macro}{\eTeXlogo}
+%     The |\eTeXlogo| command prints the \eTeX\ logo.
+%     \changes{1.923}{2002/10/20}{Added kern, to match 
+%       \package{ltugboat} definition. (LH)}
+%    \begin{macrocode}
+%<*doc>
+\def\eTeX#1{\do{\eTeXlogo\nolinebreak[3] v\,#1}}
+\def\eTeXlogo{\ensuremath{\varepsilon}-\kern-.125em\TeX}
+%</doc>
+%    \end{macrocode}
+% \end{macro}\end{macro}
+% 
+% 
+% \begin{macro}{\pdfTeX}
+%   The |\pdfTeX| command has the syntax
+%   \begin{quote}
+%     |\pdfTeX|\marg{version number}\marg{revision}
+%   \end{quote}
+%   where the \meta{version number} is the version number as returned 
+%   by |\pdftexversion|, i.e., 100 times what it would normally be 
+%   printed as, and the \meta{revision} is the revision code as returned 
+%   by |\pdftexrevision|. To test for pdf\TeX\ 0.13c or newer, one would 
+%   say |\pdfTeX{13}{c}|.
+%   
+%   The code below uses the same |\catcode| trick as that in |\eTeX|.
+%    \begin{macrocode}
+%<*pkg>
+\ifx \pdftexversion\undefined_command
+   \catcode`\~=14 % 14=comment
+\fi
+%</pkg>
+%<*pkg|doc>
+\def\pdfTeX#1#2{%
+%<pkg>   \if_extensions_warning_
+%<pkg>      \space/\space pdfTeX\space version\space 
+%<doc>   \do{pdf\TeX\nolinebreak[3] v\,%
+      \ifnum #1<100\space
+         0.\ifnum #1<10\space 0\fi
+      \else
+%<pkg>         \expandafter\swap_two \expandafter.
+%<doc>         \expandafter\FD@swap@two \expandafter.%
+      \fi
+      #1#2%
+%<doc>   }
+%<doc>}
+%</pkg|doc>
+%<*pkg>
+%    \end{macrocode}
+%   The above is not ideal, but it will do for now.
+%    \begin{macrocode}
+~  \else
+~     \ifdim #1>\pdftexversion \else
+~        \ifnum \expandafter\expandafter \expandafter` 
+~                   \expandafter\first_char \pdftexrevision= <
+~               \expandafter` \first_char#2=
+~        \else \_a_true \fi
+~     \fi
+   \fi
+}
+\catcode`\~=10
+%    \end{macrocode}
+% \end{macro}
+% 
+% 
+% \begin{macro}{\needsTeXextension}
+%   The |\needsTeXextension| command has the syntax
+%   \begin{quote}
+%     |\needsTeXextension|\marg{extension tests}\marg{who}
+%   \end{quote}
+%   If none of the extension tests set the |_a_| switch to true, then 
+%   it prints a warning detailing the extensions tests which failed. 
+%   \meta{who} is what should be listed as the originator of this 
+%   message; it is typically the name of the file which contains the 
+%   |\needsTeXextension| command.
+%   
+%   An example (assuming that there will be an |\Omega| test as well 
+%   some time in the future; I haven't really looked into what that 
+%   should look like, so maybe the arguments should be different): The 
+%   command
+%   \begin{quote}
+%     |\needsTeXextension{\eTeX{1.2}\Omega{1.0}}{foobar.etx}|
+%   \end{quote}
+%   tests if the current \TeX\ is \eTeX\ verision 1.2 (or newer) 
+%   \emph{or} Omega version 1.0 (or newer). The implied conjunction 
+%   between the tests is always `or'.
+%    \begin{macrocode}
+\def\needsTeXextension#1#2{
+   \_a_false
+   #1
+   \if_a_ \else
+      \_extensions_warning_true
+      \edef\a_macro{#1}
+      \_extensions_warning_false
+      \fontinstwarningnoline{#2}{
+         This~file~needs:\messagebreak
+         \expandafter\second_of_two\a_macro
+         \iffalse
+            <no~sufficient~extensions~were~listed!!>\if_false
+         \fi
+         \messagebreak
+         You~are~not~using~any~of~them.~This~is~likely~to~cause~errors
+      }
+   \fi
+}
+%</pkg>
+%    \end{macrocode}
+%    \begin{macrocode}
+%<*doc>
+\def\needsTeXextension#1#2{%
+   \Bheading{Needs 
+      \TypesetList{}{ or }{, }{, or }{}{(unspecified)}{\@firstofone}{#1}}%
+}
+%</doc>
+%    \end{macrocode}
+% \end{macro}
+% 
+% 
+% 
+% \subsection{Writing to output files}
+% 
+% \changes{1.901}{1999/03/04}{Pooled output file allocation added. (LH)}
+% As of v\,1.901, there are two different output file 
+% models in \package{fontinst}. One has been along ``forever'' and is 
+% for writing output to files which are only open for a short period of 
+% time---every \package{fontinst} file command that opens a file in this 
+% model must also close it---and it can only be used for one file at at 
+% time. The other model offers pooled allocation of output files---as 
+% long as there is an unused \TeX\ output stream to open, you may open a 
+% new file, and it does not matter if files are not closed in the revese 
+% order of that in which they were opened.
+% 
+% \begin{macro}{\open_out}
+%   \changes{1.901}{1999/03/04}
+%      {\cs{xdef} instead of \cs{def} on \cs{out_filename}. (LH)}
+% \begin{macro}{\close_out}
+% \begin{macro}{\out_line}
+% \begin{macro}{\out_lline}
+%   \changes{1.908}{1999/08/25}{\cs{edef}, to save macro expansions 
+%      later. (LH)}
+% \begin{macro}{\out_llline}
+%   \changes{1.908}{1999/08/25}{\cs{edef} and don't use \cs{out_lline}, 
+%      to save macro expansions later. (LH)}
+%   These macros implement the classical output file commands.
+%    \begin{macrocode}
+%<*pkg>
+\def\open_out#1{
+   \immediate\openout\out_file=#1 \xdef\out_filename{#1}}
+\def\close_out#1{
+   \immediate\write16{#1~written~on~\out_filename.}
+   \immediate\closeout\out_file}
+\def\out_line#1{\immediate\write\out_file{#1}}
+\edef\out_lline#1{\noexpand\out_line{\space\space\space#1}}
+\edef\out_llline#1{
+   \noexpand\out_line{\space\space\space\space\space\space#1}
+}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% 
+% 
+% In the new model, the basic writing command 
+% \DescribeMacro{\pout_line}|\pout_line| takes two arguments: a file 
+% identifier control sequence and the token sequence to write. Thus its 
+% call looks like
+% \begin{quote}
+%   |\pout_line|\meta{identifier}\marg{text}
+% \end{quote}
+% The \meta{identifier} is usually a chardef token whose number tells 
+% which input stream is used, but if \TeX\ runs out of output streams 
+% then it might be defined as a parameterless macro which expands to 
+% |\m@ne|. This has the effect of making all output to that ``file'' go 
+% to the log file, from which the data might be salvaged.
+% 
+% The new model operates using the control sequence family 
+% \describecsfamily{out_filename-\meta{stream}}^^A
+% |\out_filename-|\meta{stream} 
+% both for storing the name of the output file and for handling 
+% allocation of output streams.
+% 
+% \begin{macro}{\TeX_terminal}
+% \begin{macro}{\closed_stream}
+% \begin{macro}{\out_filename-99}
+% \begin{macro}{\out_filename--1}
+%   Output streams 16 and above always write to \TeX's terminal, and any 
+%   output file that gets closed gets its identifier set to 99 so that 
+%   any attempts to write to a closed file can be easily spotted. (99 
+%   is the character code for |c|.) Output stream --1 is the log file, and 
+%   if another output stream cannot be allocated then attempts to write to 
+%   the output file will be redirected to the log file.
+%    \begin{macrocode}
+\def\TeX_terminal{\string\TeX\space terminal}
+\chardef\closed_stream=99
+\x_cs\let{out_filename-99}=\TeX_terminal
+\x_cs\def{out_filename--1}{\jobname.log}
+%    \end{macrocode}
+% \end{macro} \end{macro} \end{macro} \end{macro}
+% 
+% \begin{macro}{\allocate_stream}
+% \begin{macro}{\ch@ck}
+%    \begin{macrocode}
+\def\allocate_stream{
+   \a_count=\m@ne
+   \b_count=\m@ne
+   \loop \ifnum \count17>\a_count
+%    \end{macrocode}
+%   While |\a_count|${}<$ the number of the last allocated output 
+%   stream \textellipsis
+%    \begin{macrocode}
+      \advance \a_count \@ne
+      \x_cs\ifx{out_filename-\the\a_count}\TeX_terminal
+%    \end{macrocode}
+%   If |\out_filename-|\meta{stream}, where \meta{stream} is the value 
+%   of |\a_count|, is equal to |\TeX_terminal|, then output stream 
+%   |\a_count| is allocated to the pool but is not used for any 
+%   currently open file. Thus we've found a stream that can be used.
+%    \begin{macrocode}
+         \b_count=\a_count
+         \a_count=\count17
+      \fi
+   \repeat
+   \ifnum \b_count=\m@ne
+%    \end{macrocode}
+%   In this case all streams allocated to the pool are currently in use, 
+%   so try to allocate a new one.
+%    \begin{macrocode}
+      \global\advance\count17by\@ne
+      \ifnum \count17<\sixt@@n
+%    \end{macrocode}
+%   Then case: There was another output stream.
+%    \begin{macrocode}
+         \b_count=\count17
+         \global\x_cs\let{out_filename-\the\b_count}\TeX_terminal
+         \wlog{\string\write\the\b_count\space allocated~to~the~pool.}
+      \else
+%    \end{macrocode}
+%   Else case: See to that the output stream allocation register holds 
+%   at 16.
+%    \begin{macrocode}
+         \global\count17=\sixt@@n
+      \fi
+   \fi
+}
+%    \end{macrocode}
+%   By now, if a new stream could be allocated then the number of that 
+%   stream is in |\b_count|, and if it couldn't then |\b_count| is --1.
+%   
+%   All output streams up to and including that whose number is in 
+%   |\count17| is checked to see if it is available. Many unsuccessful 
+%   |\newwrite|s could therefore mean we have to do quite a lot of 
+%   checking. What's more, output stream 99 would incorrectly be 
+%   interpreted as being in the pool but not used. To guard against these 
+%   (improbable) errors, |\ch@ck| is redefined to stop allocation 
+%   |\count| registers at their limit value.
+%    \begin{macrocode}
+\def\ch@ck#1#2#3{
+   \ifnum \count1#1<#2 \else
+      \errmessage{No~room~for~a~new~#3}
+      \global\count1#1=#2
+   \fi
+}
+%    \end{macrocode}
+% \end{macro} \end{macro}
+% 
+% 
+% \begin{macro}{\open_pout}
+% \begin{macro}{\close_pout}
+%   The syntax for |\open_pout| is
+%   \begin{quote}
+%     |\open_pout|\meta{identifier}\marg{name}
+%   \end{quote}
+%   \meta{name} is the name of the output file one wishes to open. 
+%   \meta{identifier} is a control sequence which will be redefined 
+%   (globally) to act as an identifier of the file.
+%    \begin{macrocode}
+\def\open_pout#1#2{
+   \allocate_stream
+   \ifnum \b_count=\m@ne
+      \immediate\write\sixt@@n{fontinst~is~out~of~output~streams.^^J
+         Output~file~#2~cannot~be~opened.^^J
+         Writes~will~be~redirected~to~the~log~file.
+      }
+      \gdef#1{\m@ne}
+   \else
+      \immediate\openout\b_count=#2\x_relax
+      \x_cs\xdef{out_filename-\the\b_count}{#2}
+      \global\chardef#1=\b_count
+   \fi
+}
+%    \end{macrocode}
+%   
+%   The syntax for |\close_pout| is
+%   \begin{quote}
+%     |\close_pout|\meta{identifier}\marg{what}
+%   \end{quote}
+%   \meta{identifier} is the output stream identifier which should have 
+%   been defined in an earlier call of |\open_pout|. \meta{what} is a 
+%   string which describes what has been written to the output file, 
+%   e.g.\ |Metrics| or |Raw~font|. It will be used to write a message on 
+%   the terminal.
+%    \begin{macrocode}
+\def\close_pout#1#2{
+   \ifnum #1=\closed_stream
+      \errmessage{Output~file~\string#1~(#2)~not~closed,^^J
+         since~it~was~not~open}
+   \else
+      \immediate\write\sixt@@n{#2~written~on~
+         \csname out_filename-\the#1\endcsname.}
+      \ifnum #1=\m@ne \else
+         \immediate\closeout#1
+         \global\x_cs\let{out_filename-\the#1}=\TeX_terminal
+      \fi
+      \global\chardef#1=\closed_stream
+   \fi
+}
+%    \end{macrocode}
+% \end{macro} \end{macro}
+% 
+% 
+% \begin{macro}{\pout_line}
+%   The syntax for |\pout_line| is
+%   \begin{quote}
+%     |\pout_line|\meta{identifier}\marg{text}
+%   \end{quote}
+%   \meta{identifier} is the output stream identifier which should have 
+%   been defined in an earlier call to |\open_pout|. \meta{text} is 
+%   what will be written to the file.
+%    \begin{macrocode}
+\def\pout_line#1#2{\immediate\write#1{#2}}
+%    \end{macrocode}
+%   
+% \begin{macro}{\pout_lline}
+%   \changes{1.904}{1999/06/15}{Command added. (LH)}
+%   \changes{1.908}{1999/08/25}{\cs{edef}, to save macro expansions 
+%      later. (LH)}
+% \begin{macro}{\pout_llline}
+%   \changes{1.904}{1999/06/15}{Command added. (LH)}
+%   \changes{1.908}{1999/08/25}{\cs{edef} and don't use \cs{pout_lline}, 
+%      to save macro expansions later. (LH)}
+%   There relate to |\pout_line| as |\out_lline| and |\out_llline| to 
+%   |\out_line|.
+%    \begin{macrocode}
+\edef\pout_lline#1#2{\noexpand\pout_line#1{\space\space\space#2}}
+\edef\pout_llline#1#2{
+   \noexpand\pout_line#1{\space\space\space\space\space\space#2}
+}
+%    \end{macrocode}
+% \end{macro}\end{macro}\end{macro}
+% 
+%
+% \begin{macro}{\tempfileprefix}
+% \begin{macro}{\temp_prefix}
+%   Selecting the directory for temporary files.
+%
+%    \begin{macrocode}
+\def\tempfileprefix#1{\def\temp_prefix{#1}}
+\tempfileprefix{}
+%</pkg>
+%    \end{macrocode}
+% \end{macro} \end{macro}
+%
+%
+% \subsection{Conditionals}
+%
+% \subsubsection
+% {Conditionals in \package{fontinst}}
+% ^^A \subsubsection{Conditionals in fontinst}
+% 
+% \begin{macro}{\then}
+% \begin{macro}{\if_true}
+% \begin{macro}{\if_false}
+%   In order to write macros that expand out to nested |\if|-statements,
+%   I say:
+%   \begin{quote}
+%      |\ifblah| \textellipsis\ |\then| \textellipsis\ |\else| 
+%      \textellipsis\ |\fi|
+%   \end{quote}
+%   In order to match the |\fi|, |\then| has to be an |\if|.
+%   
+%    \begin{macrocode}
+%<pkg|doc>\let\then=\iffalse
+%<*pkg>
+\def\if_false{\iffalse}
+\def\if_true{\iftrue}
+%    \end{macrocode}
+% \end{macro} \end{macro} \end{macro}
+%
+% \begin{macro}{\if_defined}
+% \begin{macro}{\if_undefined}
+%   \multchanges{\cs{if_defined}\cs{if_undefined}}{1.912}
+%      {2000/02/10}{Macro added. (LH)}
+%   These two macros are used as
+%   \begin{quote}
+%     |\if_defined|\marg{control sequence name}|\then|\\
+%     |\if_undefined|\marg{control sequence name}|\then|
+%   \end{quote}
+%   The latter is functionally equivalent to
+%   \begin{quote}
+%     |\x_cs\ifx|\marg{control sequence name}|\x_relax|
+%   \end{quote}
+%   but it is shorter (1--3 tokens, depending on whether the 
+%   unnecessary braces around \meta{control sequence name} are included 
+%   or not). The former tests the same thing, but has true and false 
+%   cases reversed.
+%   
+%   Apart from that it is shorter, another important reason for 
+%   introducing these macros is that the \eTeX\ primitives 
+%   |\ifcsname| and |\unless| provide a much better implementation than 
+%   what is possible in normal \TeX. Therefore it is desirable to use 
+%   these commands as much as possible, and by introducing these macros 
+%   one can achieve this without having double definitions for more 
+%   than these two macros.
+%   
+%   To avoid trouble with mismatched ifs and tokenizing control 
+%   sequences special for \eTeX, |~| is temporarily made a comment 
+%   character. I'm not sure |\ifcsname| and |\unless| weren't available 
+%   in \eTeX\ versions before 2.0, but that's the oldest version I have 
+%   a manual for.
+%   \multchanges{\cs{if_defined}\cs{if_undefined}}{1.914}{2000/05/13}
+%      {Automatically selecting between \protect\TeX\ and \eTeX\ 
+%       definitions. (LH)}
+%   \multchanges{\cs{if_defined}\cs{if_undefined}}{1.927}{2003/12/11}
+%      {Modified \eTeX\ definitions to make them work with the 
+%        crufty old ``unset is \cs{let} to \cs{relax}'' tradition 
+%        of \package{fontinst} implementation. (LH) This was found
+%        to be a show-stopper for using v\,1.926 with \eTeX;
+%        Heiko Oberdiek found the cause of it.}
+%   \changes{1.927}{2004/08/07}{Fixed problem with \cs{unless}. (LH)}
+%    \begin{macrocode}
+\_a_false\eTeX{2.0}
+\if_a_\else \catcode`\~=14\x_relax \fi
+%    \end{macrocode}
+%   The following use of |\if| is a trick I learnt from the 
+%   implementation of \package{docstrip}. |\if| will expand any amount of 
+%   material until it has two unexpandable tokens to compare, hence one 
+%   can use it to evaluate arbitrary boolean expressions in a single 
+%   \TeX\ conditional, by expressing the expression as something which 
+%   expands in \TeX's mouth to the value of the expression (either |0| 
+%   or |1|). In this case the expression is ``the control sequence is 
+%   defined and that definition is not \cs{relax}''.
+%    \begin{macrocode}
+~  \def\if_defined#1\then{
+~     \if
+~        \ifcsname#1\endcsname
+~           \expandafter\ifx \csname#1\endcsname \x_relax
+~              0
+~           \else
+~              1
+~           \fi
+~        \else
+~           0
+~        \fi
+~        1
+~  }
+~  \def\if_undefined{\expandafter\unless\if_defined}
+%    \end{macrocode}
+%    \begin{macrocode}
+\catcode`\~=\if_a_ 14 \else 10 \fi \x_relax
+%    \end{macrocode}
+%    \begin{macrocode}
+~  \def\if_defined#1\then{
+~     \expandafter\ifx \csname#1\endcsname\x_relax
+~        \expandafter\if_false
+~     \else
+~        \expandafter\if_true
+~     \fi
+~  }
+~  \def\if_undefined#1\then{
+~     \expandafter\ifx \csname#1\endcsname\x_relax
+~  }
+%    \end{macrocode}
+%    \begin{macrocode}
+\catcode`\~=10\x_relax
+%    \end{macrocode}
+% \end{macro}\end{macro}
+% 
+% \begin{macro}{\gobble_if}
+%   It is sometimes best to skip both the then-part and 
+%   the else-part of a conditional. |\gobble_if| does this by using the 
+%   fact that expanding |\else| skips everything until the next matching 
+%   |\fi| without looking for other |\else|s.
+%   \changes{1.900}{1998/12/11}{Macro added. (LH)}
+%   \changes{1.913}{2000/03/03}{Macro redefined; it now works entirely 
+%      in the mouth. (LH)}
+%    \begin{macrocode}
+\def\gobble_if{\iftrue\else}
+%    \end{macrocode}
+% \end{macro}
+% 
+% \begin{macro}{\if_or}
+% \begin{macro}{\or_else}
+%   |\if_or| \textellipsis\ |\or_else| \textellipsis\ |\then| gives the 
+%   disjunction of two booleans.
+%    \begin{macrocode}
+\def\if_or#1\or_else#2\then{
+   #1\then
+      \expandafter\if_true
+   \else
+      #2\then
+         \expandafter\expandafter\expandafter\if_true
+      \else
+         \expandafter\expandafter\expandafter\if_false
+      \fi
+   \fi
+}
+%    \end{macrocode}
+% \end{macro}\end{macro}
+% 
+% \begin{macro}{\if_equal}
+%   The |\if_equal| macro is a \textellipsis|\then|-style wrapper around the 
+%   |\ifx| primitive. Its calling syntax is
+%   \begin{quote}
+%     |\if_equal|\meta{token1}\meta{token2}|\then|
+%   \end{quote}
+%   \changes{1.912}{2000/02/23}{Macro added. (LH)}
+%    \begin{macrocode}
+\def\if_equal#1\then{\ifx#1}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\if_file_exists}
+%   |\if_file_exists| checks to see if a file exits, using |\openin|.
+%
+%    \begin{macrocode}
+\def\if_file_exists#1\then{
+   \immediate\openin1=#1\x_relax
+   \ifeof1\x_relax
+      \immediate\closein1
+      \expandafter\if_false
+   \else
+      \immediate\closein1
+      \expandafter\if_true
+   \fi
+}
+%</pkg>
+%    \end{macrocode}
+% \end{macro}
+% 
+% 
+% \subsubsection
+% {Conditionals in \package{fontdoc}}
+% ^^A \subsubsection{Conditionals in fontdoc}
+% 
+% \changes{1.909}{1999/10/16}{System for documenting both branches of 
+%    \texttt{if} statements in ETX and MTX files added. (LH)}
+% In order to get a reasonable documentation of branches in an ETX or 
+% MTX file, the code in both branches must be typeset and the positions 
+% of the if, the else, and the fi must be clearly marked. There seems to 
+% be no reasonable way to achieve this if the standard names for the 
+% else and fi are used. Therefore the alternative names |\Else| and 
+% |\Fi| for |\else| and |\fi| have been introduced, to be used as in 
+% for example
+% \begin{quote}
+%   |\ifisint{monowidth}\then|\\
+%   \vadjust{}\quad\meta{then-part}\\
+%   |\Else|\\
+%   \vadjust{}\quad\meta{else-part}\\
+%   |\Fi|
+% \end{quote}
+% 
+% \begin{macro}{\Else}
+% \begin{macro}{\Fi}
+%   By default, these are identical to their lowercase counterparts.
+%    \begin{macrocode}
+%<*pkg|doc>
+\let\Else=\else
+\let\Fi=\fi
+%</pkg|doc>
+%    \end{macrocode}
+% \end{macro}\end{macro}
+% 
+% The interesting part begins if the ETX or MTX file gives the command 
+% |\showbranches|, since this means (i) that it wants the branches to be 
+% shown and (ii) that it complies to a simple rule about where to use 
+% |\Else| and |\Fi|. The rule is as follows: If an \texttt{if} statement 
+% is of \package{fontinst} form (it uses |\then|), then it must be 
+% terminated by |\Fi|, and a possible else in the statement must be an 
+% |\Else|. If an \texttt{if} statement is \emph{not} of \package{fontinst} 
+% form (it has no |\then|), then it must be terminated by |\fi|, and a 
+% possible else in the statement must be an |\else|. Only the 
+% \package{fontinst} form \texttt{if} statements are affected by 
+% |\showbranches|.
+% 
+% \begin{macro}{\showbranches}
+% \begin{macro}{\generic@if}
+%   The |\showbranches| command changes the definitions of 
+%   |\generic@if|, |\then|, |\Else|, and |\Fi| so that the branches of 
+%   \texttt{if} statements will be made visible. |\generic@if| is used 
+%   to implement all the \package{fontinst} form \texttt{if} statements 
+%   in \package{fontdoc}. It is called as
+%   \begin{quote}
+%     |\generic@if|\marg{description}
+%   \end{quote}
+%   and this will by default expand to |\iftrue|, but after executing 
+%   |\showbranches| it will instead typeset
+%   \begin{quote}
+%     If \meta{description} then
+%   \end{quote}
+%   and do a bit of additional housekeeping.
+%   
+%    \begin{macrocode}
+%<*doc>
+\def\generic@if#1{\iftrue}
+%    \end{macrocode}
+%    \begin{macrocode}
+\newcommand\showbranches{%
+   \let\generic@if=\branches@if
+   \let\then=\x@relax
+   \let\Else=\branches@else
+   \let\Fi=\branches@fi
+}   
+%    \end{macrocode}
+% \end{macro}\end{macro}
+% 
+% \begin{macro}{\saved@slot@number}
+%   The |\saved@slot@number| is used for storing the value of 
+%   |\slot@number| at the \texttt{if} until the |\Else|. Unlike 
+%   |\slot@number|, it is always set locally.
+%    \begin{macrocode}
+\newcount\saved@slot@number
+%    \end{macrocode}
+% \end{macro}
+% 
+% \begin{macro}{\branches@if}
+% \begin{macro}{\branches@else}
+% \begin{macro}{\branches@fi}
+%   \changes{1.916}{2001/01/25}{Commented out test which concatenates 
+%      consecutive \cs{Fi}s, since that doesn't work together with the 
+%      \texttt{IfBranch} environment. (LH)}
+% \begin{macro}{\branches@type}
+% \begin{macro}{\branches@par}
+%   The macros |\branches@if|, |\branches@else|, and |\branches@fi| 
+%   contain the definitions of |\generic@if|, |\Else|, and |\Fi| 
+%   respectively that are used when branches are to be shown. Their 
+%   basic task is to typeset the texts |If #1 then|, |Else|, and |Fi| in 
+%   an appropriate style and with appropriate spacing around. A 
+%   complicating matter is however that |\slot@number| must have the 
+%   same value at the beginning of the \textit{else} part as at the 
+%   beginning of the \textit{then} part. To achieve this, the value of 
+%   |\slot@number| is saved in |\saved@slot@number| at the \textit{if} 
+%   and copied back at the \textit{else}. To make this work even with 
+%   nested \textit{if}s, both the \textit{then} branch and the 
+%   \textit{else} branch are enclosed in groups and 
+%   |\saved@slot@number| is assigned locally.
+%   
+%   There are still some formatting issues to solve, however. In some 
+%   cases it works best to put the text of adjacent \textit{if}, 
+%   \textit{else}, or \textit{fi} in the same paragraph, and it must be 
+%   possible to recognize those cases. This is done by looking at the 
+%   macro |\branches@type|, which should expand to
+%   \begin{enumerate}
+%     \item[\texttt{0}] if the preceeding item was an \textit{if},
+%     \item[\texttt{1}] if the preceeding item was an \textit{else} 
+%        preceeded by an \textit{if},
+%     \item[\texttt{2}] if the preceeding item was an \textit{else} 
+%        not preceeded by an \textit{if},
+%     \item[\texttt{3}] if the preceeding item was a \textit{fi},
+%     \item[\texttt{4}] if it was anything else.
+%   \end{enumerate}
+%   |\branches@par| is used for resetting |\branches@type| to \texttt{4}. 
+%   It is an auto-resetting definition of |\par|.
+%   
+%    \begin{macrocode}
+\def\branches@if#1{%
+   \ifnum \branches@type=\tw@
+      \begin{IfBranchDummy}%
+      \textit{ if #1 then}%
+   \else
+      \par
+      \ifFD@tight@\else \addvspace\medskipamount \fi
+      \noindent\textit{If #1 then}%
+   \fi
+   \saved@slot@number=\slot@number
+   \gdef\branches@type{0}%
+   \let\par=\branches@par
+}
+%    \end{macrocode}
+%    \begin{macrocode}
+\def\branches@else{%
+   \ifnum \branches@type=\z@
+      \textit{ relax else}%
+      \gdef\branches@type{1}%
+   \else
+      \par
+      \end{IfBranch}%
+      \noindent\textit{Else}%
+      \gdef\branches@type{2}%
+   \fi
+   \global\slot@number=\saved@slot@number
+   \let\par=\branches@par
+}
+%    \end{macrocode}
+%    \begin{macrocode}
+\def\branches@fi{%
+   \ifnum \branches@type=\thr@@
+      \expandafter\end \expandafter{\@currenvir}%
+      \expandafter\gdef \expandafter\FD@saved@fis 
+         \expandafter{\FD@saved@fis \space fi}%
+   \else
+      \end{IfBranch}%
+      \gdef\FD@saved@fis{Fi}%
+   \fi
+   \gdef\branches@type{3}%
+   \let\par=\branches@par
+}
+%    \end{macrocode}
+%    \begin{macrocode}
+\gdef\branches@type{4}
+%    \end{macrocode}
+%    \begin{macrocode}
+\def\branches@par{%
+   \@restorepar
+   \ifnum \branches@type=\thr@@
+      \noindent\textit{\FD@saved@fis}\par
+   \else
+      \begin{IfBranch}%
+   \fi
+   \gdef\branches@type{4}%
+}
+%    \end{macrocode}
+% \end{macro}\end{macro}\end{macro}\end{macro}\end{macro}
+% 
+% \begin{environment}{IfBranch}
+%   \changes{1.916}{2001/01/09}{Environment added. (LH)}
+%   \changes{1.920}{2001/09/16}{Removed assignment to \cs{listparindent}. 
+%     I don't know why it was there in the first place. (LH)}
+% \begin{switch}{FD@tight@}
+%   \changes{1.916}{2001/01/09}{Switch added. (LH)}
+%   The branches of a conditional that is being shown are put in an 
+%   \texttt{IfBranch} environment, to emphasize the branches as logical 
+%   units in the file. Depending on the value of the \texttt{FD@tight@} 
+%   switch, there are two different ways that the branches can be 
+%   distinguished. In the non-tight setting (\texttt{FD@tight@} false), 
+%   there is one |\medskip|\-|amount| of vertical space before and after 
+%   the branch, but no indentation. In the tight setting (which is used 
+%   for \meta{glyph commands} and \meta{slot commands}), there is no 
+%   extra vertical space around the branch, instead it is indented by 
+%   $1\,\mathrm{em}$.
+%    \begin{macrocode}
+\newif\ifFD@tight@
+\newenvironment{IfBranch}{%
+   \list{}{%
+      \ifFD@tight@
+         \setlength\topsep{\z@skip}%
+         \@beginparpenalty=\z@
+         \@endparpenalty=\z@
+         \setlength\leftmargin{1em}%
+      \else
+         \setlength\topsep{\medskipamount}%
+         \@beginparpenalty=-10%
+         \@endparpenalty=\@beginparpenalty
+         \setlength\leftmargin{\z@}%
+      \fi
+      \setlength\partopsep{\z@skip}%
+      \setlength\itemsep{\z@skip}%
+      \setlength\parsep{\z@ plus\p@}%
+      \setlength\rightmargin{\z@}%
+      \setlength\itemindent{\z@}%
+   }%
+   \item[]%
+}{\endlist}
+%    \end{macrocode}
+% \end{switch}\end{environment}
+% 
+% \begin{environment}{IfBranchDummy}
+%   \changes{1.916}{2001/01/25}{Environment added. (LH)}
+%   In order to get the nesting right, each |\branches@else| command has 
+%   to |\begin| a new environment, but if it is immediately followed by 
+%   a |\branches@if| then that environment should not cause an 
+%   indentation. In these cases the \texttt{IfBranchDummy} environment 
+%   is used instead of \texttt{IfBranch}.
+%    \begin{macrocode}
+\newenvironment{IfBranchDummy}{}{}
+%</doc>
+%    \end{macrocode}
+% \end{environment}
+% 
+% 
+% \subsubsection{Miscellanea}
+% 
+% \begin{macro}{\primitiveinput}
+%
+% If |\@@input| is defined, I'll assume it's the \LaTeX{} version
+% of the \TeX{} |\input| primitive.  I need this so that I can say
+% |\expandafter\foo\primitiveinput|, which doesn't work with the
+% \LaTeX{} version of |\input|.
+%
+%    \begin{macrocode}
+%<*pkg>
+\x_cs\ifx{@@input}\x_relax
+   \let\primitiveinput=\input
+\else
+   \let\primitiveinput=\@@input
+\fi
+%    \end{macrocode}
+%  \end{macro}
+%
+% 
+% \DescribeMacro{\process_csep_list}
+% The macro
+% \begin{quote}
+%   |\process_csep_list|\marg{pretext}\meta{comma-sep~list}^^A
+%      |,\process_csep_list,|
+% \end{quote}
+% executes \meta{pretext}\marg{item} for every item in the 
+% \meta{comma-sep~list}.
+% 
+% \begin{macro}{\process_csep_list}
+%    \begin{macrocode}
+\def\process_csep_list#1#2,{
+   \ifx\process_csep_list#2
+      \expandafter\gobble_one
+   \else
+      \expandafter\identity_one
+   \fi{
+      #1{#2}
+      \process_csep_list{#1}
+   }
+}
+%</pkg>
+%    \end{macrocode}
+% \end{macro}
+% 
+% 
+% \begin{macro}{\print@csep@list}
+%   \textit{Use of this macro is now deprecated; use \cs{TypesetList} 
+%   instead wherever possible.} The macro call
+%   \begin{quote}
+%     |\print@csep@list|\marg{format}\marg{list}
+%   \end{quote}
+%   prints the comma-separated list \meta{list} in math mode. 
+%   \meta{format} can be used to set the style in which the list is 
+%   printed, since it is executed in the beginning of the same group as 
+%   in which the list is printed.
+%   
+%   The formating is based on changing the |\mathcode| of comma to 
+%   |"8000| so that the comma can be used as if it was an active character 
+%   without actually having to be one.
+%    \begin{macrocode}
+%<*doc>
+\begingroup
+   \catcode`\,=13
+   \gdef\print@csep@list#1#2{%
+      $%
+      \ifnum "8000=\mathcode`\,\else
+         \mathchardef\private@comma=\mathcode`\,%
+         \mathcode`\,="8000\x@relax
+      \fi
+      #1%
+      \let,=\active@comma
+      #2%
+      $%
+   }
+\endgroup
+\def\active@comma{\private@comma \penalty\binoppenalty}
+%</doc>
+%    \end{macrocode}
+% \end{macro}
+% 
+% 
+% 
+% \subsection{Real numbers}
+% 
+% \TeX's \meta{number}s are merely integers, but \package{fontinst} 
+% needs to store and calculate with numerical entities (most of which 
+% are lengths) that are intrinsically real numbers. Most of the time, 
+% \package{fontinst} does this by using a representation of real numbers 
+% by integers in which a real number $x$ is represented by the integer 
+% that $1000x$ gets rounded to. This representation has proved 
+% sufficiently precise for most purposes.
+% 
+% There are however a few cases in which real numbers must be delt with 
+% in a more general fashion. Generic routines for this appear in this 
+% subsection.
+% 
+% \begin{macro}{\make_factor}
+%   \changes{1.903}{1999/05/13}{Macro added. (LH)}
+%   The |\make_factor| macro is meant to be used in the context
+%   \begin{quote}
+%     |\make_factor|\marg{number}
+%   \end{quote}
+%   where \meta{number} can be any legal \TeX\ number. It expands to 
+%   the same number divided by 1000, with decimals, so that what it 
+%   expands to matches the regular expression
+%   \begin{quote}
+%     |-?[0-9]+\.[0-9][0-9][0-9]|
+%   \end{quote}
+%   
+%   More specifically, |\make_factor| has two tasks to perform: it takes 
+%   care of the sign, so that its subsidary macros need only work with 
+%   unsigned numbers, and it converts the \meta{number} (which could 
+%   well be a countdef or mathchardef token) to a sequence of digits.
+%    \begin{macrocode}
+%<*pkg>
+\def\make_factor#1{
+   \ifnum #1<\z@
+      -\expandafter\make_factor_i\expandafter{\number-#1}
+   \else
+      \expandafter\make_factor_i\expandafter{\number#1}
+   \fi
+}
+%    \end{macrocode}
+%   
+%   \begin{macro}{\make_factor_i}
+%     |\make_factor_i| distinguishes between the two main cases of 
+%     numbers that in absolute value are less than 1000 and numbers that 
+%     in absolute value are greater than or equal to 1000. In the former 
+%     case, zeros need to be inserted. In the latter case, some number 
+%     of digits need to be stepped over before the decimal point can be 
+%     inserted.
+%    \begin{macrocode}
+\def\make_factor_i#1{
+   \ifnum #1<\one_thousand
+      \make_factor_ii{#1}
+   \else
+      \make_factor_iii #1
+   \fi
+   #1
+}
+%    \end{macrocode}
+%   \end{macro}
+%   
+%   \begin{macro}{\make_factor_ii}
+%     |\make_factor_ii| inserts extra zeros, in the extent it is 
+%     needed.
+%    \begin{macrocode}
+\def\make_factor_ii#1{
+   0.
+   \ifnum #1<\one_hundred
+      0
+      \ifnum #1<10~ 0\fi
+   \fi
+}
+%    \end{macrocode}
+%   \end{macro}
+%   
+%   \begin{macro}{\make_factor_iii}
+%     |\make_factor_iii| steps over one digit and checks if this is the 
+%     correct position for the decimal point. Note that |#2#3| is 
+%     exactly the digits in the number that has not been stepped over. 
+%     Also note that comparision with |#2#3| would not work, since |#2| 
+%     can be |0|.
+%    \begin{macrocode}
+\def\make_factor_iii#1#2#3\fi#4{
+   \fi
+   #4
+   \ifnum 1#3<\one_thousand
+      .
+   \else
+      \make_factor_iii#2#3
+   \fi
+}
+%    \end{macrocode}
+%   \end{macro}
+% \end{macro}
+% 
+% It also happens that real numbers are represented by dimens, in the 
+% common way that the number 1 is represented by the dimen 1\,pt. For 
+% those cases the following macro is indispensable.
+% 
+% \begin{macro}{\lose_measure}
+%   Get rid of a trailing |pt| when converting dimension.
+%    \begin{macrocode}
+{
+   \catcode`\p=12
+   \catcode`\t=12
+   \gdef\lose_measure#1pt{#1}
+}
+%</pkg>
+%    \end{macrocode}
+% \end{macro}
+% 
+% 
+% \subsection{Error, warning, and info messages}
+% 
+% The code in this subsection is an adaptation of code from the 
+% \LaTeX\ kernel---more precisely from the source file 
+% \texttt{lterror.dtx}---and the same is true for some of the comments. 
+% As authors of that code are listed Johannes Braams, David Carlisle, 
+% Alan Jeffrey, Leslie Lamport, Frank Mittelbach, Chris Rowley, and 
+% Rainer Sch\"opf. The original source can be found in the file 
+% \texttt{lterror.dtx} in the \texttt{macros}\slash\texttt{latex}\slash
+% \texttt{base} directory in any of the Comprehensive \TeX\ Archive 
+% Network FTP sites.\footnote{As if anyone who has managed to get this 
+% far didn't already know that!}
+% 
+% That should have fulfilled the conditions in the LPPL.^^A
+% \changes{1.906}{1999/07/23}{Adaptation of \LaTeX's message system 
+%    completed. (LH)}
+% \par\bigskip
+% 
+% 
+% \subsubsection{General commands}
+%
+% \begin{macro}{\messagebreak}
+%   This command prints a new-line inside a message, followed by a 
+%   continuation whose exact appearence may depend on the context. 
+%   Normally this command is defined to be |\relax|, but inside messages 
+%   it gets redefined to a linebreak (|^^J|) followed by the appropriate 
+%   continuation.
+%   \changes{1.909}{1999/10/16}{New name for \cs{message_break}. (LH)}
+%    \begin{macrocode}
+%<pkg>\let\messagebreak\x_relax
+%<doc>\let\messagebreak\space
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\generic_info}
+%    This takes two arguments: a continuation and a message, and sends 
+%    the result to the log file.
+%    \begin{macrocode}
+%<*pkg>
+\def\generic_info#1#2{
+   \begingroup
+      \def\messagebreak{^^J#1}
+      \immediate\write\m@ne{#2\on_line.}
+   \endgroup
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\generic_warning}
+%    This takes two arguments: a continuation and a message, and sends 
+%    the result to the screen.
+%    \begin{macrocode}
+\def\generic_warning#1#2{
+   \begingroup
+      \def\messagebreak{^^J#1}
+      \immediate\write\closed_stream{^^J#2\on_line.^^J}
+   \endgroup
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\generic_error}
+%   ``This macro takes four arguments: a continuation,
+%   an error message, where to go for further information, and the help
+%   information.  It displays the error message, and sets the error help
+%   (the result of typing |h| to the prompt), and does a horrible hack
+%   to turn the last context line (which by default is the only context
+%   line) into just three dots.  This could be made more efficient.''
+%   
+%   Thus far the \LaTeX\ comments, but the horrible hack it mensions 
+%   has been removed since it just makes things look strange when 
+%   |\errorcontextlines| is larger than one.
+% ^^A What the hack actually does is that it turns 
+% ^^A as much as possible of the topmost context line to spaces. It has 
+% ^^A two ways of achieving this. The first is to make the context line 
+% ^^A too long to display in full, by ending the argument of |\errmessage| 
+% ^^A with the control sequence
+% ^^A \begin{quote}
+% ^^A   \tiny\verb*+\@err@                          +^^A
+% ^^A   \verb*+                                       +
+% ^^A \end{quote}
+% ^^A As its name ends with a long sequence of spaces, it won't be visible; 
+% ^^A the |@err@| appears in the |...| part of the line. The other method 
+% ^^A it uses is to turn every token in the context line that is not part 
+% ^^A of a control sequence name to spaces (as characters, not in 
+% ^^A category) through a |\lowercase| trick. The only characters that 
+% ^^A cannot be turned into spaces this way are the three continuation 
+% ^^A dots.
+%   The ``where to go for further information'' message is currently not 
+%   used (it is commented out in |\fontinsterror| below), since there 
+%   is no good place to refer to anyway. If the documentation is ever 
+%   improved in this respect, it would of course be best to reinsert 
+%   this message. Note however that unlike the case in \LaTeX, this 
+%   message should end with a |^^J|.
+%   
+%   A complication is that \TeX\ versions older than 3.141 have a bug 
+%   which causes |^^J| to not force a linebreak in |\message| and 
+%   |\errmessage| commands. So for these old \TeX's we use a |\write| to 
+%   produce the message, and then have an empty |\errmessage| command. 
+%   This causes an extra line of the form
+%\begin{verbatim}
+%! .
+%\end{verbatim}
+%   to appear on the terminal, but if you do not like it, you can always
+%   upgrade your \TeX!
+%   
+%   Since I don't think many \package{fontinst} users use such old 
+%   \TeX s, I removed \LaTeX's test for \TeX\ version at this point. The 
+%   code for old \TeX s is still there, but it lies in a \package{docstrip} 
+%   module of its own.
+%   
+%   First the `standard case'.
+%    \begin{macrocode}
+%<*!oldTeX>
+\def\generic_error#1#2#3#4{
+   \begingroup
+      \immediate\write\closed_stream{}
+      \def\messagebreak{^^J}
+      \edef\a_macro{{#4}}
+      \errhelp\a_macro
+      \def\messagebreak{^^J#1}
+      \errmessage{#2.^^J^^J#3
+         Type~\space H~<return>~\space for~immediate~help
+      }
+   \endgroup
+}
+%</!oldTeX>
+%    \end{macrocode}
+%
+% Secondly the version for old \TeX's.
+%    \begin{macrocode}
+%<*oldTeX>
+\def\generic_error#1#2#3#4{%
+   \begingroup
+      \immediate\write\closed_stream{}
+      \def\messagebreak{^^J}
+      \edef\a_macro{{#4}}
+      \errhelp\a_macro
+      \def\messagebreak{^^J#1}
+      \immediate\write\closed_stream{!~#2.^^J^^J#3^^J
+         Type~\space H~<return>~\space for~immediate~help.
+      }
+      \errmessage{}
+   \endgroup
+}
+%</oldTeX>
+%    \end{macrocode}
+% \end{macro}
+% 
+% 
+% 
+% \begin{macro}{\fontinsterror}
+%   \changes{1.909}{1999/10/16}{New name for \cs{fontinst_error}. (LH)}
+% \begin{macro}{\fontinstwarning}
+%   \changes{1.909}{1999/10/16}{New name for \cs{fontinst_warning}. (LH)}
+% \begin{macro}{\fontinstwarningnoline}
+%   \changes{1.909}{1999/10/16}{New name for 
+%       \cs{fontinst_warning_no_line}. (LH)}
+% \begin{macro}{\fontinstinfo}
+%   \changes{1.909}{1999/10/16}{New name for \cs{fontinst_info}. (LH)}
+%   These commands are intended for giving a uniformed, and for the 
+%   programmers hopefully simplified, form of error, warning, and info 
+%   messages. The syntax is:
+%   \begin{quote}
+%     |\fontinsterror|\marg{subsystem}\marg{error}\marg{help}\\
+%     |\fontinstwarning|\marg{subsystem}\marg{warning}\\
+%     |\fontinstwarningnoline|\marg{subsystem}\marg{warning}\\
+%     |\fontinstinfo|\marg{subsystem}\marg{info}
+%   \end{quote}
+%   A \meta{subsystem} in this context is intended to be some piece of 
+%   text which identifies some functionally clearly defined part of 
+%   \package{fontinst}. Examples of \meta{subsystem}s could be 
+%   \texttt{PL to MTX converter}, \texttt{Ligful (V)PL writer}, and 
+%   \texttt{Latin family}.
+%   
+%   The |\fontinsterror| command prints the \meta{error} message, and 
+%   presents the interactive prompt; if the user types |h|, then the 
+%   \meta{help} information is displayed. The |\fontinstwarning| 
+%   command produces a warning but does not present the interactive 
+%   prompt. The |\fontinstwarningnoline| command does the same, but 
+%   doesn't print the input line number. The |\fontinstinfo| command 
+%   writes the message to the |log| file. Within the messages, the 
+%   command |\messagebreak| can be used to break a line and |\space| is 
+%   a space, for example:
+% \begin{verbatim}
+%    \def\foo{FOO}
+%    \fontinstwarning{Hungarian}{
+%       Your~hovercraft~is~full~of~eels,\messagebreak
+%       and~\string\foo\space is~\foo}
+% \end{verbatim}
+%    produces:
+% \begin{verbatim}
+%    Hungarian warning:
+%            Your hovercraft is full of eels,
+%            and \foo is FOO on input line 54.
+% \end{verbatim}
+% 
+%    \begin{macrocode}
+\def\fontinsterror#1#2#3{
+   \generic_error{
+      \four_spaces\four_spaces
+   }{
+      #1~error:\messagebreak #2
+   }{
+%       See~the~#1~package~documentation~for~explanation.^^J
+   }{#3}
+}
+%    \end{macrocode}
+%    \begin{macrocode}
+\def\fontinstwarning#1#2{
+   \generic_warning{
+      \four_spaces\four_spaces
+   }{
+      #1~warning:\messagebreak #2
+   }
+}
+%    \end{macrocode}
+%    \begin{macrocode}
+\def\fontinstwarningnoline#1#2{
+   \fontinstwarning{#1}{#2\gobble_one}
+}
+%    \end{macrocode}
+%    \begin{macrocode}
+\def\fontinstinfo#1#2{
+   \generic_info{
+      \four_spaces\four_spaces
+   }{
+      #1~info:\messagebreak #2
+   }
+}
+%</pkg>
+%    \end{macrocode}
+%    \begin{macrocode}
+%<*doc>
+\def\fontinsterror#1#2#3{%
+   \Bheading{Error} observed by #1:%
+   \begin{quote}#2.\end{quote}%
+}
+%    \end{macrocode}
+%    \begin{macrocode}
+\def\fontinstwarning#1#2{
+   \Bheading{Warning} from #1:%
+   \begin{quote}#2.\end{quote}%
+}
+%    \end{macrocode}
+%    \begin{macrocode}
+\let\fontinstwarningnoline=\fontinstwarning
+%    \end{macrocode}
+%    \begin{macrocode}
+\def\fontinstinfo#1#2{
+   \Bheading{Info} from #1:%
+   \begin{quote}#2.\end{quote}%
+}
+%</doc>
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\on_line}
+%   The message ` on input line~$n$'. \LaTeX\ has special code for 
+%   \TeX~2, but since \package{fontinst} has assumed the existence of 
+%   the |\errorcontextlines| parameter since v\,1.500, the removal of 
+%   that code shouldn't cause problems for anyone who wasn't already 
+%   having related problems.
+%   
+%    \begin{macrocode}
+%<*pkg>
+\def\on_line{~on~input~line~\the\inputlineno}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\four_spaces}
+%   Four spaces. Using |\edef| (rather than |\def| as in \LaTeX) to 
+%   save some macro expansions.
+%    \begin{macrocode}
+\edef\four_spaces{\space\space\space\space}
+%    \end{macrocode}
+% \end{macro}
+% 
+%
+% \subsubsection{Specific errors}
+%
+% \begin{macro}{\error_help_a}
+% \begin{macro}{\error_help_c}
+% \begin{macro}{\error_help_d}
+% \begin{macro}{\error_help_e}
+%   \changes{1.912}{2000/02/12}{Macro added. (LH)}
+%   The more common error help messages. The first three are called 
+%   |\@eha|, |\@ehc|, and |\@ehd| in \LaTeX. |\@ehb| is of no use for 
+%   \package{fontinst}, so it has been omitted. |\error_help_e| is a 
+%   new one for \package{fontinst}.
+%    \begin{macrocode}
+\gdef\error_help_a{
+  Your~command~was~ignored.\messagebreak
+  Type~\space I~<command>~<return>~\space to~replace~it~
+  with~another~command,\messagebreak
+  or~\space <return>~\space to~continue~without~it.}
+\gdef\error_help_c{
+  Try~typing~\space <return>~
+  \space to~proceed.\messagebreak
+  If~that~doesn't~work,~type~\space X~<return>~\space to~quit.}
+\gdef\error_help_d{
+  You're~in~trouble~here.~\space\error_help_c}
+\def\error_help_e#1{You~can~continue,~but~the~#1~wrong.}
+%    \end{macrocode}
+% \end{macro}\end{macro}\end{macro}\end{macro}
+%
+% 
+% \subsubsection{\TeX\ parameters}
+% 
+% \multchanges{\cs{newlinechar}\cs{errorcontextlines}}{1.914}
+%    {2000/05/20}{Moved to error message subsection. (LH)}
+% \begin{macro}{\newlinechar}
+%   Set |\newlinechar| for |\errhelp| messages.
+%    \begin{macrocode}
+\newlinechar=`\^^J
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\errorcontextlines}
+%   By default, show as much error info as you can.
+%   (We assume \package{fontinst} users are \TeX{}perts.)
+%    \begin{macrocode}
+\errorcontextlines=999
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\tracinglostchars}
+%   \changes{1.915}{2000/07/31}{Added setting this parameter. (LH)}
+%   Make |\tracinglostchars| positive---this will simplify catching 
+%   bugs, as many \package{fontinst} bugs show up in that output is 
+%   being generated, but that used to disappear silently when 
+%   \package{fontinst} was run under Ini\TeX.
+%    \begin{macrocode}
+\tracinglostchars=1
+%</pkg>
+%    \end{macrocode}
+% \end{macro}
+% 
+% \Finale
+\endinput
\ No newline at end of file