%% %% This is file `mftinc.sty', %% generated with the docstrip utility. %% %% The original source files were: %% %% mftinc.dtx (with options: `package') %% %% This is a generated file. %% %% Copyright (C) 2005 by Scott Pakin %% %% This file may be distributed and/or modified under the conditions of %% the LaTeX Project Public License, either version 1.2 of this license %% or (at your option) any later version. The latest version of this %% license is in: %% %% http://www.latex-project.org/lppl.txt %% %% and version 1.2 or later is part of all distributions of LaTeX version %% 1999/12/01 or later. %% \NeedsTeXFormat{LaTeX2e}[1999/12/01] \ProvidesPackage{mftinc} [2005/01/31 v1.0a Include pretty-printed Metafont listings in LaTeX] \RequirePackage{rawfonts} \newfam\bffam \newfam\itfam \DeclareRobustCommand{\mftinput}[1]{\begingroup\input #1\endgroup} \RequirePackage{keyval} \define@key{mft}{toprule}{\setlength{\mft@top@rule}{#1}} \define@key{mft}{bottomrule}{\setlength{\mft@bot@rule}{#1}} \define@key{mft}{tablewidth}{\setlength{\mft@table@width}{#1}}% \define@key{mft}{charrange}{% \def\mft@ranges{}% \def\mft@expanded@ranges{}% \mft@parse@ranges#1,,% {\let\@elt=\mft@expand@range\mft@ranges}% } \DeclareRobustCommand{\setmftdefaults}[1]{\setkeys{mft}{#1}} \newlength{\mft@top@rule} \setlength{\mft@top@rule}{1pt} \newlength{\mft@bot@rule} \setlength{\mft@bot@rule}{1pt} \newenvironment{explaincode}[1][]{% \setkeys{mft}{#1}% \par\vskip 4ex \@plus 2ex \hrule\@height\mft@top@rule \nobreak\medskip\nobreak\noindent\ignorespaces }{% \nobreak\medskip\nobreak \hrule\@height\mft@bot@rule \vskip 2ex \@minus 1ex } \newlength{\mft@wc@indent} \def\mft@eat@quads#1{% \ifx#1\quad \global\addtolength{\mft@wc@indent}{1em}% \expandafter\mft@eat@quads \else \def\quad{}% \settowidth{\@tempdima}{\%~}% \advance\@tempdima by \mft@wc@indent \vspace{-2ex}% \begin{adjustwidth}{\@tempdima}{}% \begin{linenumbers}% \internallinenumbers \renewcommand{\makeLineNumber}{% \rlap{\hspace*{\mft@wc@indent}\%}}% \expandafter#1% \fi } \newenvironment{wrapcomment}{% \global\setlength{\mft@wc@indent}{0pt}% \def\quad{% \global\addtolength{\mft@wc@indent}{1em}% \mft@eat@quads }% }{% \end{linenumbers}% \end{adjustwidth}% } \def\mft@missing#1{% \PackageWarning{mftinc}{% Disabling the wrapcomment environment\MessageBreak (can't find #1.sty)% } \renewenvironment{wrapcomment}{% \PackageError{mftinc}{The wrapcomment environment is disabled}{% Your LaTeX installation is lacking #1.sty.\space\space The\MessageBreak mftinc package relies on both the chngpage package and\MessageBreak the lineno package in order to implement the wrapcomment \MessageBreak environment.\space\space Either install those packages, or refrain\MessageBreak from using wrapcomment in code that is formatted with mft\MessageBreak and included into LaTeX. }% }{}% \def\mft@missing##1{}% } \IfFileExists{chngpage.sty}{\RequirePackage{chngpage}}{\mft@missing{chngpage}} \IfFileExists{lineno.sty}{\RequirePackage{lineno}}{\mft@missing{lineno}} \long\def\mfcomment#1\9#2\par{\unskip#2 } \def\mft@ranges{} \def\mft@parse@ranges#1,{% \def\mft@arg@i{#1}% \ifx\mft@arg@i\empty \else \@cons\mft@ranges{#1-!-!-!!}% \expandafter\mft@parse@ranges \fi } \def\mft@expanded@ranges{} \def\mft@gobble@range#1!!{} \def\mft@expand@range#1-#2-{% \def\mft@arg@i{#1}% \def\mft@arg@ii{#2}% \ifx\mft@arg@i\empty \def\mft@arg@i{-1}% \fi \ifx\mft@arg@ii\empty \def\mft@arg@ii{65535}% \fi \if\mft@arg@ii!% \def\mft@arg@ii{#1}% \fi \if\mft@arg@i!% \else \@cons\mft@expanded@ranges{\mft@arg@i|\mft@arg@ii|}% \fi \mft@gobble@range } \def\mft@check@char#1{% \begingroup \def\@elt##1|##2|{% \ifnum"\mft@h#1<##1 \else \ifnum"\mft@h#1>##2 \else \char"\mft@h#1 \fi \fi }% \mft@expanded@ranges \endgroup } \def\mft@char#1{% \begingroup \def\@elt##1|##2|{% \ifnum#1<##1 \else \ifnum#1>##2 \else \char#1 \fi \fi }% \mft@expanded@ranges \endgroup } \newlength{\mft@table@width} \setlength{\mft@table@width}{-1pt} \def\mft@expanded@ranges{\@elt 0|65535|} \DeclareRobustCommand{\fonttable}[2][]{% \begingroup \let\mft@old@ranges=\mft@ranges \let\mft@old@expanded@ranges=\mft@expanded@ranges \setkeys{mft}{#1}% \ifdim\mft@table@width<0pt \begin{minipage}{\linewidth}% \else \begin{minipage}{\mft@table@width}% \fi \font\testfont=#2\testfont \newcount\mft@m \newcount\mft@n \newcount\mft@p \newdimen\dim \def\oct##1{\hbox{\rm\'{}\kern-.2em\it##1\/\kern.05em}}% \def\hex##1{\hbox{\rm\H{}\tt##1}}% \def\setdigs##1"##2{\gdef\mft@h{##2}% \mft@m=\mft@n \divide\mft@m by 64 \xdef\mft@zero{\the\mft@m}% \multiply\mft@m by-64 \advance\mft@m by\mft@n \divide\mft@m by 8 \xdef\mft@one{\the\mft@m}}% \def\testrow{\setbox0=\hbox{\penalty 1\let\\=\mft@check@char \\0\\1\\2\\3\\4\\5\\6\\7\\8\\9\\A\\B\\C\\D\\E\\F% \global\mft@p=\lastpenalty}} % \mft@p=1 if none of the characters exist \def\oddline{\cr \noalign{\nointerlineskip}% \multispan{19}\hrulefill& \setbox0=\hbox{\lower 2.3pt\hbox{\hex{\mft@h x}}}\smash{\box0}\cr \noalign{\nointerlineskip}}% \newif\ifskipping \def\evenline{\loop\skippingfalse \ifnum\mft@n<256 \mft@m=\mft@n \divide\mft@m 16 \chardef\next=\mft@m \expandafter\setdigs\meaning\next \testrow \ifnum\mft@p=1 \skippingtrue \fi\fi \ifskipping \global\advance\mft@n 16 \repeat \ifnum\mft@n=256 \let\next=\endchart\else\let\next=\morechart\fi \next}% \def\morechart{\cr\noalign{\hrule\penalty5000}% \chartline \oddline \mft@m=\mft@one \advance\mft@m 1 \xdef\mft@one{\the\mft@m}% \chartline \evenline}% \def\chartline{&\oct{\mft@zero\mft@one x}% &&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&}% \def\chartstrut{\lower4.5pt\vbox to14pt{}}% \def\table{$$\global\mft@n=0 \halign to\hsize\bgroup \chartstrut####\tabskip0pt plus10pt& &\hfil####\hfil&\vrule####\cr \lower6.5pt\null &&&\oct0&&\oct1&&\oct2&&\oct3&&\oct4&&\oct5&&\oct6&&\oct7&\evenline}% \def\endchart{\cr\noalign{\hrule}% \raise11.5pt\null&&&\hex 8&&\hex 9&&\hex A&&\hex B& &\hex C&&\hex D&&\hex E&&\hex F&\cr\egroup$$\par}% \def\:{\setbox0=\hbox{\mft@char\mft@n}% \ifdim\ht0>7.5pt\reposition \else\ifdim\dp0>2.5pt\reposition\fi\fi \box0\global\advance\mft@n 1 }% \def\reposition{\setbox0=\vbox{\kern2pt\box0}\dim=\dp0 \advance\dim 2pt \dp0=\dim}% \def\centerlargechars{ \def\reposition{\setbox0=\hbox{$\vcenter{\kern2pt\box0\kern2pt}$}}}% \table \end{minipage}% \global\let\mft@ranges=\mft@old@ranges \global\let\mft@expanded@ranges=\mft@old@expanded@ranges \endgroup } \endinput %% %% End of file `mftinc.sty'.