%% %% This is file `docmfp.sty', %% generated with the docstrip utility. %% %% The original source files were: %% %% docmfp.dtx (with options: `usc') %% %% Copyright 1999 Peter R. Wilson %% %% This program is provided under the terms of the %% LaTeX Project Public License distributed from CTAN %% archives in directory macros/latex/base/lppl.txt. %% %% Author: Peter Wilson (CUA) %% now at: peter.r.wilson@boeing.com %% \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{docmfp}[2000/10/28 v1.1 General coding extension to the doc package] \newcommand{\m@fpmakeuscoreletter}{\catcode`\_11\relax} \newcommand{\m@fpmakehashletter}{\catcode`\#11\relax} \newcommand{\Makem@fpPrivateLetters}{\m@fpmakeuscoreletter\m@fpmakehashletter} \def\routine{\begingroup \catcode`\\12 \Makem@fpPrivateLetters \m@fpm@cro@ \iffalse} \let\endroutine\endtrivlist \def\variable{\begingroup \catcode`\\12 \Makem@fpPrivateLetters \m@fpm@cro@ \iftrue} \let\endvariable\endroutine \long\def\m@fpm@cro@#1#2{\endgroup \topsep\MacroTopsep \trivlist \def\makelabel##1{\llap{##1}}% \if@inlabel \let\@tempa\@empty \count@\macro@cnt \loop \ifnum\count@>\z@ \edef\@tempa{\@tempa\hbox{\strut}}\advance\count@\m@ne \repeat \edef\makelabel##1{\llap{\vtop to\baselineskip {\@tempa\hbox{##1}\vss}}}% \advance \macro@cnt \@ne \else \macro@cnt\@ne \fi \edef\@tempa{\noexpand\item[\noexpand\PrintMfpName{\string#2}]}% \@tempa \global\advance\c@CodelineNo\@ne #1% \SpecialMainMfpIndex{#2}{\variablestring}{\variableheadname}\nobreak \else \SpecialMainMfpIndex{#2}{\routinestring}{\routineheadname}\nobreak \fi \global\advance\c@CodelineNo\m@ne \ignorespaces} \newcommand{\routinestring}{\space(routine)} \newcommand{\routineheadname}{routines:} \newcommand{\variablestring}{\space(variable)} \newcommand{\variableheadname}{variables:} \def\Describe{\leavevmode\@bsphack\begingroup\Makem@fpPrivateLetters \Describem@fp} \def\Describem@fp#1#2#3{\endgroup \marginpar{\raggedleft\PrintMfpName{#3}}% \SpecialMfpIndex{#3}{#2}{#1}\@esphack\ignorespaces} \def\Code{\begingroup %% \catcode`\\12 \Makem@fpPrivateLetters \m@fpm@c} \let\endCode\endtrivlist \long\def\m@fpm@c#1#2#3{\endgroup \topsep\MacroTopsep \trivlist \def\makelabel##1{\llap{##1}}% \if@inlabel \let\@tempa\@empty \count@\macro@cnt \loop \ifnum\count@>\z@ \edef\@tempa{\@tempa\hbox{\strut}}% \advance\count@\m@ne \repeat \edef\makelabel##1{\llap{\vtop to\baselineskip {\@tempa\hbox{##1}\vss}}}% \advance\macro@cnt\@ne \else \macro@cnt\@ne \fi \edef\@tempa{\noexpand\item[\noexpand\PrintMfpName{\string#3}]}% \@tempa \global\advance\c@CodelineNo\@ne \SpecialMainMfpIndex{#3}{#2}{#1}\nobreak \global\advance\c@CodelineNo\m@ne \ignorespaces} \providecommand{\PrintMfpName}[1]{\strut \MacroFont \string #1\ } \newcommand{\SpecialMainMfpIndex}[3]{\@bsphack \special@index{% \string#1\actualchar \string\verb\quotechar*\verbatimchar\string#1\verbatimchar #2 \encapchar main}% \special@index{#3\levelchar \string#1\actualchar \string\verb\quotechar*\verbatimchar\string#1\verbatimchar \encapchar main} \@esphack} \def\DescribeRoutine{\leavevmode\@bsphack\begingroup\Makem@fpPrivateLetters \Describem@fpRoutine} \def\Describem@fpRoutine#1{\endgroup \marginpar{\raggedleft\PrintMfpName{#1}}% \SpecialMfpIndex{#1}{\routinestring}{\routineheadname}\@esphack\ignorespaces} \def\DescribeVariable{\leavevmode\@bsphack\begingroup\Makem@fpPrivateLetters \Describem@fpVariable} \def\Describem@fpVariable#1{\endgroup \marginpar{\raggedleft\PrintMfpName{#1}}% \SpecialMfpIndex{#1}{\variablestring}{\variableheadname}\@esphack\ignorespaces} \newcommand{\SpecialMfpIndex}[3]{\@bsphack \index{% \string#1\actualchar \string\verb\quotechar*\verbatimchar\string#1\verbatimchar #2 \encapchar usage}% \index{#3\levelchar \string#1\actualchar \string\verb\quotechar*\verbatimchar\string#1\verbatimchar \encapchar usage} \@esphack} \endinput %% %% End of file `docmfp.sty'.