% TeX macros for dumping included Postscript to files.
% Adapted from Knuth's \answer macro in the TeXbook.
% Jamie Stephens, jamies@math.utexas.edu, 28 Nov 94

\def\endofps{EndOfTheIncludedPostscriptMagicCookie}
\chardef\other=12
\newwrite\psdumphandle 
\outer\def\psdump#1{\par\medbreak
  \immediate\openout\psdumphandle=#1
  \copytoblankline}
\def\copytoblankline{\begingroup\setupcopy\copypsline}
\def\setupcopy{\def\do##1{\catcode`##1=\other}\dospecials
  \catcode`\\=\other \obeylines}
{\obeylines \gdef\copypsline#1
  {\def\next{#1}%
  \ifx\next\endofps\let\next=\endgroup %
  \else\immediate\write\psdumphandle{\next} \let\next=\copypsline\fi\next}}
\outer\def\closepsdump{
  \immediate\closeout\psdumphandle}

% EXAMPLE (remove the leading % signs to make it work):
%
%\psdump{example.ps}These three lines
%are going be dumped "as is"
%to the file example.ps
%EndOfTheIncludedPostscriptMagicCookie
%\closepsdump