<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">%%                                   
%%
%% This is file 'rvwrite.sty'.
%%
%% File: rvwrite.sty Copyright (c) 2010 C. V. Radhakrishnan
%%       River Valley, Mepukada, Malayinkil, Trivandrum 695571
%%       http://www.river-valley.com Email: &lt;cvr@river-valley.org&gt;
%%       
%% This package may be distributed under the terms of the LaTeX Project 
%% Public License, as described in lppl.txt in the base LaTeX distribution.
%% Either version 1.0 or, at your option, any later version.
%%
%% $Id: rvwrite.sty,v 1.2 2010/08/25 08:59:06 cvr Exp cvr $
%% 
\NeedsTeXFormat{LaTeX2e}
\def\Fileversion$#1: #2 ${\gdef\fileversion{#2}}
\def\Filedate$#1: #2 #3 ${\gdef\filedate{#2}}
\Fileversion$Revision: 1.2 $
\Filedate$Date: 2010/08/25 08:59:06 $
\ProvidesPackage{rvwrite}
   [\filedate\space\fileversion\space enhanced write registers (CVR)]
\PackageWarningNoLine{rvwrite}
   {****************************************\MessageBreak
    Package rvwrite v,\fileversion\space loaded\MessageBreak
    [enhanced write registers (CVR)]\MessageBreak
    ****************************************}
%
%
\newwrite\rvtwrite

\def\dlrchr{\expandafter\@gobble\string\$}
\def\hshchr{\expandafter\@gobble\string\#}
\def\bslchr{\expandafter\@gobble\string\\}
\def\lbrchr{\expandafter\@gobble\string\{}
\def\rbrchr{\expandafter\@gobble\string\}}
\def\tldchr{\expandafter\@gobble\string\~}
\def\ampchr{\expandafter\@gobble\string\&amp;}

\immediate\openout\rvtwrite=\jobname-write.tex
\immediate\write\rvtwrite{\string\documentclass{article}}
\immediate\write\rvtwrite{ }
\immediate\write\rvtwrite{\string\input\space ProTex.sty}
\immediate\write\rvtwrite{\string\AlProTex{tex,&lt;&lt;&lt;&gt;&gt;&gt;,list,title,|,[]}}
\immediate\write\rvtwrite{ }
\immediate\write\rvtwrite{\string\begin{document}}
\immediate\write\rvtwrite{ }

\def\newrvwrite#1{\@ifundefined{RV@#1}{\@namedef{RV@#1}{#1}}{}%
     \AtEndDocument{\immediate\write\rvtwrite{%
       \string\OutputCode\string\&lt;\jobname-#1\string\&gt;}}}
%
% \rvwrite #1 =&gt; file type
%          #2 =&gt; string(s) to write out
\def\ervwrite#1#2{\@ifundefined{RV@#1}{\newrvwrite{#1}}{}%
     \immediate\write\rvtwrite{\string\&lt;\jobname-#1\string\&gt;&lt;&lt;&lt;}
      \immediate\write\rvtwrite{#2^^J&gt;&gt;&gt;}}

\def\rvwrite#1#2{\@ifundefined{RV@#1}{\newrvwrite{#1}}{}\def\next{#2}%
    \immediate\write\rvtwrite{\string\&lt;\jobname-#1\string\&gt;%
       &lt;&lt;&lt;^^J\expandafter\strip@prefix\meaning\next^^J&gt;&gt;&gt;}}

\AtEndDocument{\write\rvtwrite{\space^^J\string\end{document}}}

\endinput

%%
%% End of file 'rvwrite.sty'
%%
</pre></body></html>