%Usage: \newcommand{\scom}[1]{{\rm\scriptsize \# #1}}
%       \sinput{/mypath/my.s}
% Run latex with latex --shell-escape myfile
% Thanks to Terry Cox <TAC@nei.nih.gov>
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{sinput}[2002/11/19 LaTeX package sinput]
\RequirePackage{alltt}

\newcommand{\Gets}{\(\leftarrow\)}
\newcommand{\Twiddle}{\mbox{\(\tt\sim\)}}
\newcommand{\Hat}{\mbox{\boldmath\({}^{\wedge}\)}}

\newcommand{\sinput}[1]{%
\immediate\write18{s2latx.pl #1 /tmp/_s2latx.tmp}
\begin{list}{}{\setlength{\leftmargin}{\parindent}}%
\item%
\begin{alltt}%
\input{/tmp/_s2latx.tmp}%
\end{alltt}%
\end{list}%
\immediate\write18{rm -f /tmp/_s2latx.tmp}%
}
\endinput
% End of file 'sinput.sty'