redrum.ins

%%
%% Copyright (C) 2014-2019 by Patrick Happel
%% Copyright (C) 2021 by Phelype Oleinik
%% Copyright (C) 2024 by Giorgio Comitini
%%
%% This file may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either
%% version 1.3 of this license or (at your option) any later
%% version. The latest version of this license is in:
%%
%% http://www.latex-project.org/lppl.txt
%%
%% and version 1.3 or later is part of all distributions of
%% LaTeX version 2005/12/01 or later.
%%
\input docstrip.tex
\askforoverwritefalse
\keepsilent
\preamble

This file is part of the package redrum for use with LaTeX2e.

Function: Access to 150 paragraphs of the "All work and no play"
dummy text.

This program may be distributed and/or modified under the
conditions of the LaTeX Project Public License, either version 1.3
of this license or (at your option) any later version.
The latest version of this license is in
   http://www.latex-project.org/lppl.txt
and version 1.3 or later is part of all distributions of LaTeX
version 2005/12/01 or later.

Please send error reports and suggestions for improvements to
    https://github.com/GComitini/redrum

\endpreamble
\postamble
\endpostamble

\generate{\file{redrum.sty}{\from{redrum.dtx}{package}}}

\newread\redrread
\newread\redrwrite
\newcount\parno
\newif\ifinpar
\def\empty{}%
\def\line{}%
\edef\lb{\string{}%
\edef\rb{\string}}%
\begingroup\lccode`\?=`\%
\lowercase{\endgroup\def\pc{?}}%
\def\wline{\immediate\write\redrwrite}%
\def\genredrum#1#2#3{%
  \begingroup
    \def\inFileName{redrum-#1.txt}%
    \def\outFileName{#2.ltd.tex}%
    \openin\redrread\inFileName\space
    \immediate\openout\redrwrite\outFileName\space
    \inparfalse
    \parno=0
    \endlinechar=-1
    \def\~{ }%
    \def\ReferenceLines{%
      \MetaPrefix ^^J%
      \MetaPrefix\~The original source files were:^^J%
      \MetaPrefix ^^J%
      \MetaPrefix\~\inFileName^^J}%
    \immediate\write\redrwrite{\defaultpreamble}%
    \immediate\write\redrwrite{\string\SetRedrumLanguage{#3}}%
    \genredrumaux\genredrumaux
    \closein\redrread
    \immediate\closeout\redrwrite
  \endgroup}
\def\genredrumaux#1\genredrumaux{%
  \ifeof\redrread\let\line\empty
  \else \read\redrread to \line \fi
  \toks0{#1}%
  \ifx\line\empty
    \ifinpar
      \wline{\the\toks0 \rb\pc^^J\pc}%
      \inparfalse
    \fi
  \else
    \ifinpar
      \wline{\the\toks0 }%
    \else
      \inpartrue
      \advance\parno by 1
      \wline{\string\NewRedrumPar\lb\pc\~{\the\parno}}%
    \fi
  \fi
  \ifeof\redrread\expandafter\genredrumend\fi
  \expandafter\genredrumaux\line\genredrumaux}
\def\genredrumend#1\genredrumaux#2\genredrumaux{}

\genredrum{shine}{redrum}{latin}

\catcode`\ =13 \edef {\space}%
\Msg{****************************************************}
\Msg{*                                                  *}
\Msg{* To finish the installation you have to move the  *}
\Msg{* following files into a directory searched        *}
\Msg{* by TeX:                                          *}
\Msg{*                                                  *}
\Msg{* redrum.sty                                       *}
\Msg{* redrum.ltd.tex                                   *}
\Msg{*                                                  *}
\Msg{* To produce the documentation run the file        *}
\Msg{* redrum.dtx through XeLaTeX or LuaLaTeX.          *}
\Msg{*                                                  *}
\Msg{* Happy TeXing!                                    *}
\Msg{*                                                  *}
\Msg{****************************************************}

\endbatchfile