%%
%% This is file `compsci.stq',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% compsci.sty 
%% 
%%     This program is part of the Frankenstein bundle for LaTeX.
%%     This file should have been distributed with the source listed above.
%% 
%%     Copyright (C) 1995 Matthew Swift <swift@bu.edu>
%% 
%%     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.
%% 
%%     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.
%% 
%%     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.
%% 
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
\def\fileinfo{macros for writing about macros (Frankenstein's conscience)}
\def\DoXNeeDME{}
\def\fileversion{v0.92 (beta)}
\def\filedate{1996/10/04}
\def\docdate{1996/10/04}
\edef\PPOptArg {%
  \filedate\space \fileversion\space \fileinfo
}
\makeatletter
\@ifundefined{JuStLoAdInFoRmAtIoN} {%
  }{% ELSE
  \@ifundefined{DoXNeeDME} {%
    }{% ELSE
    \UndefineCS\JuStLoAdInFoRmAtIoN
    \usepackage{compsci}%
  }
  \makeatother
  \endinput
}
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{compsci}[\PPOptArg]
%%
\RequirePackage{abbrevs,alltt,lips,moredefs,moreverb,relsize,shortvrb,%
                slemph,titles,url,verbatim}
\@ifclassloaded{ltxdoc}{%
  }{% ELSE
\MonsterWarning{compsci}
  {You may encounter errors with this version of the compsci package \MessageBreak
   since you are not using the ltxdoc class. \MessageBreak
   This will be fixed in a future version.}%
}
\MakeShortVerb{\|}
\newcommand\code {%
  \begingroup
  \urlstyle{ttnobreak}%
  \Url
}
\newcommand\url@ttnobreakstyle {%
  \def\UrlFont     {\ttfamily}%
  \def\UrlSpecials {\do\ {\ }}%
  \def\UrlOrds     {\do\*\do\-}%
}
\begingroup
  \catcode `|=0
  \catcode `[=1
  \catcode `]=2
  \catcode`\{=12
  \catcode`\}=12
  \catcode`\\=12
  |gdef|@xverbatim#1\end{codeexample}[#1|end[codeexample]]
  |gdef|@sxverbatim#1\end{codeexample*}[#1|end[codeexample*]]
|endgroup
\newcommand\codeexample {%
  \@beginparpenalty
  \predisplaypenalty
  \@docverbatim
  \MacroFont
  \frenchspacing
  \@vobeyspaces
  \@xverbatim
}
\NewName{codeexample*} {} {%
  \@beginparpenalty
  \predisplaypenalty
  \@docverbatim
  \MacroFont
  \@sxverbatim
}
\newcommand\@docverbatim {%
  \trivlist
  \item[]%
  \if@minipage\else
    \vskip\parskip
  \fi
  \leftskip\@totalleftmargin
  \rightskip\z@
  \parindent\z@
  \parfillskip\@flushglue
  \parskip\z@
  \@@par
  \@tempswafalse
  \def\par {%
    \if@tempswa
      \hbox{}%
    \fi
    \@tempswatrue
    \@@par
    \penalty\interlinepenalty
    \check@percent
  }%
  \obeylines
  \let\do\do@noligs
  \verbatim@nolig@list
  \let\do\@makeother
  \dospecials
}
\newenvironment{codeexamplex} {%
    \alltt
    \def\\{\char`\\}\catcode`\%=9\relax}{%
  \endalltt
}
\newenvironment{typesetexample} {%
    \quote
  }{%
  \endquote
}
{\catcode`\~=\active \lccode`\~=`\^^M \lccode`\N=`\N
 \lowercase{%
  \gdef\@verbatimtabinput[#1]#2{\begingroup
     \do@verbatimtab{#1}{%
       \@verbatim\frenchspacing\@vobeyspaces\@vobeytabs}%
     \def\verbatim@addtoline##1~{%
        \verbatim@line\expandafter{\the\verbatim@line##1}}%
     \openin\verbatim@in@stream=#2
     \ifeof\verbatim@in@stream\typeout{No file #2.}\else
       \verbtab@oktrue
       \catcode`\%=9
       \loop
          \read\verbatim@in@stream to \verbtab@line
          \ifeof\verbatim@in@stream\verbtab@okfalse\else
             \expandafter\verbatim@addtoline\verbtab@line
             \verbatim@processline
             \verbatim@startline
          \fi
       \ifverbtab@ok\repeat
       \closein\verbatim@in@stream\fi
     \endtrivlist\endgroup\@doendpe}}}
\newenvironment{bothexample} {%
    \par
    \begingroup
    \verbatimwrite{\jobname.vrb}%
  }{%
  \endverbatimwrite
  \verbatimtabinput{\jobname.vrb}%
  \endgroup
  \par
  \addvspace{-\baselineskip}%
  \noindent{\sffamily\large LOOKS LIKE:}%
  \par\smallskip
  \noindent\fbox{%
    \minipage{\textwidth}
    \DocInput{\jobname.vrb}%  ^^A FIX DocInput not defined
    \endminipage
  }%
  \par\medskip
}
\newenvironment{gogog}[1]
  {\verbatimwrite{\jobname.vrb}#1}
  {\endverbatimwrite}
\newenvironment{splitexample} [1] {%
  \gogog{#1}\endgogog
  \codeexample
  }{%
  \endcodeexample
  \par\smallskip
  \noindent\fbox{%
    \minipage{\textwidth}
    \catcode`\%=9
    \input{\jobname.vrb}%
    \endminipage
  }%
  \par\medskip
}
\newcommand\caveat [1] {%
  \cs@caveat
  #1%
  \endgroup
  \par
}
\newenvironment{warning} {%
    \cs@caveat
  }{%
  \endgroup
  \par
}
\newcommand\cs@caveat {%
  \par
  \begingroup
    \em {\bfseries Warning:}\space
}
\newcommand\todo [1] {%
  \cs@todo
    #1%
  \endgroup
  \par
}
\newenvironment{todoenv} {%
    \cs@todo
  }{%
  \endgroup
  \par
}
\newcommand\cs@todo {%
  \par
  \begingroup
    \em {\bfseries To do:}\space
}
\NewTextFontCommand \program \TMFontProgram % generic name of computer program
\NewTextFontCommand \bst     \ttfamily      % name of BibTeX bibliography style
\NewTextFontCommand \cat     \sffamily      % name of a category
\NewTextFontCommand \class   \slshape       % name of LaTeX class
\newlet             \defn    \textslswitch  % definition
\requirecommand     \email   {\url}         % email address
\NewTextFontCommand \env     \ttfamily      % name of environment
\NewTextFontCommand \ext     \ttfamily      % name of file extension
\requirecommand     \file    {\url}         % name of disk file
\NewTextFontCommand \option  \ttfamily      % name of package or class option
\NewTextFontCommand \package \slshape       % name of LaTeX package
\newlet             \term    \textslswitch  % technical term
\newlet             \typeset \fbox          % text as it appears when typeset
\newlet             \word    \textitswitch  % refer to a word as a word
\begingroup
\obeyspaces%
\catcode`\^^M\active%
\gdef\meta{\begingroup\def\\{\char`\\}\normalfont\obeyspaces\catcode`\^^M\active%
\let^^M\do@space\let \do@space%
\def\-{\egroup\discretionary{-}{}{}\hbox\bgroup\itshape}%
\m@ta}%
\endgroup
\defcommand\m@ta [1] {%
  \leavevmode
  \hbox\bgroup$\langle$\itshape#1\/$\rangle$\egroup
  \endgroup
}
\def\do@space {%
  \egroup
  \space
  \hbox\bgroup\itshape\futurelet\next\sp@ce
}
\def\sp@ce {%
  \ifx\next\do@space
    \expandafter\sp@@ce
  \fi
}
\defcommand\sp@@ce [1] {%
  \futurelet\next\sp@ce
}
\defcommand*\marg [1] {%
  \penalty 9999%
  {\ttfamily\char`\{\meta{#1}\char`\}}%
}
\defcommand*\oarg [1] {%
  \penalty 9999%
  {\ttfamily[\meta{#1}]}%
}
\DeclareRobustCommand*\cname [1] {%
  \expandafter\code\expandafter{\bslash#1}%
}
\DeclareRobustCommand*\cmd {%
  \leavevmode
  \@ifnextchar \bgroup
      \cs@cmd@grouped
    \cs@cmd@ungrouped
}
\newcommand\cs@cmd@grouped [1] {%
  \begingroup
    \maybe@ic
    \code{#1}%
    \aftergroup\maybe@ic
  \endgroup
}
\newcommand\cs@cmd@ungrouped [1] {%
  \begingroup
    \maybe@ic
    \code{#1}%
    \aftergroup\maybe@ic@space
  \endgroup
}
\let\cs\cmd
%%
\def\partname {%
  Part%
}
\newcommand*\ProcessDTXFile [1] {%
  \InitCS\JuStLoAdInFoRmAtIoN
  \def\filename {#1}%
  \UndefineCS\DoXNeeDME
  \input{#1}%
  \UndefineCS\JuStLoAdInFoRmAtIoN
}
\newcommand*\AddToCheckSum [1] {%
  \global\advance\check@sum #1%
}
\TMNewCategory{Program}
\NewUserAbbrevDefiner\newprogram{Program}
\def\TMFontProgram {%
  \relsize{-1}\ttfamily
}
\providecommand\BibTeX {%
  {\rmfamily B\kern-.05em{\scshape i\kern-.025em b}\kern-.08em
    T\kern-.1667em\raisebox{-.7ex}{E}\kern-.125emX}%
}
\InputIfFileExists{compsci.cfg}{}{}
\endinput
%%
%% End of file `compsci.stq'.