summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/ran_toks
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-11-25 23:23:46 +0000
committerKarl Berry <karl@freefriends.org>2012-11-25 23:23:46 +0000
commiteaed2ec0b95d86d210e6e2a8cc408b791146acda (patch)
tree1111bdca115fb597a4ad43e0eb652b0ab254ca6c /Master/texmf-dist/tex/latex/ran_toks
parent142ee8288b9abc285ad8df4e9e76817f099827b9 (diff)
new package ran_toks (25nov12)
git-svn-id: svn://tug.org/texlive/trunk@28361 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/ran_toks')
-rw-r--r--Master/texmf-dist/tex/latex/ran_toks/ran_toks.sty220
1 files changed, 220 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/ran_toks/ran_toks.sty b/Master/texmf-dist/tex/latex/ran_toks/ran_toks.sty
new file mode 100644
index 00000000000..97328c55b3f
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/ran_toks/ran_toks.sty
@@ -0,0 +1,220 @@
+%%
+%% This is file `ran_toks.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% ran_toks.dtx (with options: `copyright,package')
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% ran_toks.sty package, 2012/10/29 %%
+%% Copyright (C) 2012 D. P. Story %%
+%% dpstory@uakron.edu %%
+%% %%
+%% This program can redistributed and/or modified under %%
+%% the terms of the LaTeX Project Public License %%
+%% Distributed from CTAN archives in directory %%
+%% macros/latex/base/lppl.txt; either version 1 of the %%
+%% License, or (at your option) any later version. %%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{ran_toks}
+ [2012/11/18 v1.0a Randomizing tokens]
+\RequirePackage{verbatim}
+\input{random.tex}
+\def\nextrandom{\begingroup
+ \ifnum\randomi<\@ne % then initialize with time
+ \global\randomi\time
+ \global\multiply\randomi388 \global\advance\randomi\year
+ \global\multiply\randomi31 \global\advance\randomi\day
+ \global\multiply\randomi97 \global\advance\randomi\month
+ \message{Randomizer initialized to \the\randomi.}%
+ \nextrandom \nextrandom \nextrandom
+ \xdef\rtInitSeedValue{\the\randomi}%
+ \fi
+ \count@ii\randomi
+ \divide\count@ii 127773 % modulus = multiplier * 127773 + 2836
+ \count@\count@ii
+ \multiply\count@ii 127773
+ \global\advance\randomi-\count@ii % random mod 127773
+ \global\multiply\randomi 16807
+ \multiply\count@ 2836
+ \global\advance\randomi-\count@
+ \ifnum\randomi<\z@ \global\advance\randomi 2147483647\relax\fi
+ \endgroup
+}
+\newtoks\rt@listIn \rt@listIn={}
+\newtoks\rt@newListIn \rt@newListIn={}
+\newtoks\rt@listOut \rt@listOut={}
+\newcount\rt@nMax
+\newcount\rt@nCnt
+\newcount\rt@getRanNum
+\newif\ifrtdebug \rtdebugfalse
+\newif\ifwerandomize \werandomizetrue
+\newif\ifsaveseed\saveseedtrue
+\newwrite\rt@Verb@write
+\def\rt@nameedef#1{\expandafter\edef\csname #1\endcsname}
+\def\ranToksOn{\werandomizetrue}
+\def\ranToksOff{\werandomizefalse}
+\def\useThisSeed#1{\saveseedfalse\randomi=#1}
+\@onlypreamble\useThisSeed
+\def\useLastAsSeed{\IfFileExists{\jobname_rt.sav}%
+ {%
+ \PackageInfo{ran_toks}{Inputting \jobname_rt.sav}%
+ \newread\readsavfile
+ \openin\readsavfile=\jobname_rt.sav
+ \read\readsavfile to \rtInitSeedValue
+ \read\readsavfile to \lastRandomNum
+ \closein\readsavfile
+ \randomi=\lastRandomNum
+ }{%
+ \PackageInfo{ran_toks}{\jobname_rt.sav cannot
+ be found, \MessageBreak
+ using the random initializer}%
+ }%
+}
+\@onlypreamble\useLastAsSeed
+\def\verbatimwrite{\@bsphack
+ \let\do\@makeother\dospecials
+ \catcode`\^^M\active \catcode`\^^I=12
+ \def\verbatim@processline{%
+ \immediate\write\verbatim@out
+ {\the\verbatim@line}}%
+ \verbatim@start}
+\def\endverbatimwrite{\@esphack}
+\def\rt@IWVO{\immediate\write\verbatim@out}
+\def\rtInitSeedValue{\the\randomi}
+\def\rt@writeSeedData{%
+ \ifsaveseed
+ \newwrite\rt@savedata
+ \immediate\openout \rt@savedata \jobname_rt.sav
+ \let\verbatim@out\rt@savedata
+ \def\rt@msgi{initializing seed value}%
+ \def\rt@msgii{last random number used}%
+ \uccode`c=`\%\uppercase{%
+ \rt@IWVO{\rtInitSeedValue\space c \rt@msgi}%
+ \rt@IWVO{\the\randomi\space c \rt@msgii}%
+ }%
+ \fi
+}
+\AtEndDocument{\rt@writeSeedData}%
+\def\rt@populateList#1{%
+ \rt@listIn={}%
+ \rt@nCnt=0
+ \@whilenum\rt@nCnt<#1\do{%
+ \advance\rt@nCnt1
+ \edef\rt@listInHold{\the\rt@listIn\noexpand\\{\the\rt@nCnt}}%
+ \rt@listIn=\expandafter{\rt@listInHold}%
+ }%
+}
+\def\rt@RandomizeList#1{%
+ \global\rt@listIn={}\global\rt@newListIn={}\global\rt@listOut={}%
+ \rt@nMax=#1\relax\rt@populateList{\the\rt@nMax}%
+ \ifwerandomize
+ \expandafter\rt@randomizeList\else
+ \global\rt@listOut=\expandafter{\the\rt@listIn}\fi
+}
+\def\rt@randomizeList{%
+ \let\\=\rt@processi
+ \setrannum{\rt@getRanNum}{1}{\the\rt@nMax}%
+\ifrtdebug\typeout{\string\rt@getRanNum=\the\rt@getRanNum}\fi
+ \rt@nCnt=0\relax
+\ifrtdebug\typeout{LISTING: \the\rt@listIn}\fi
+ \the\rt@listIn
+ \rt@loopTest
+}
+\def\rt@loopTest{\advance\rt@nMax-1\relax
+ \ifnum\rt@nMax>0\relax
+ \def\rt@next{%
+ \rt@listIn=\expandafter{\the\rt@newListIn}%
+ \rt@newListIn={}\rt@randomizeList}%
+ \else
+ \let\rt@next\relax
+ \global\rt@listOut=\expandafter{\the\rt@listOut}%
+\ifrtdebug\typeout{Final Result: \string\rt@listOut=\the\rt@listOut}\fi
+ \fi
+ \rt@next
+}
+\def\rt@processi#1{\advance\rt@nCnt1
+ \ifnum\rt@nCnt=\rt@getRanNum
+ \edef\rt@listOutHold{\the\rt@listOut}%
+ \global\rt@listOut=\expandafter{\rt@listOutHold\\{#1}}%
+\ifrtdebug\typeout{Found it: \string\\{#1}}%
+\typeout{New \string\rt@listOut: \the\rt@listOut}\fi
+ \else
+ \edef\rt@listInHold{\the\rt@newListIn}%
+ \rt@newListIn=\expandafter{\rt@listInHold\\{#1}}%
+\ifrtdebug\typeout{\string\rt@newListIn: \the\rt@newListIn}\fi
+ \fi
+}
+\def\ranToks#1{\begingroup
+ \useRTName{#1}%
+ \r@nToks
+}
+\long\def\r@nToks#1{%
+ \rt@nMax=0
+ \r@ndToks#1\rt@NIL
+}
+\def\rt@NIL{@nil}
+\newcommand{\useRTName}[1]{\gdef\rt@BaseName{#1}}%
+\let\rt@BaseName\@empty
+\newcommand{\bRTVToks}[1]{%
+ \rt@nCnt=0
+ \useRTName{#1}%
+}
+\newcommand{\eRTVToks}{%
+ \global\rt@nameedef{\rt@BaseName Cnt}{\the\rt@nCnt}%
+ \expandafter\r@nVToks\expandafter{\rt@BaseName}%
+}
+\def\reVerbEnd{\ifhmode\unskip\fi}
+\newenvironment{rtVW}{%
+ \global\advance\rt@nCnt1
+ \immediate\openout\rt@Verb@write
+ \jobname_\rt@BaseName\the\rt@nCnt.cut
+ \let\verbatim@out\rt@Verb@write
+ \verbatimwrite
+}{%
+ \endverbatimwrite
+ \immediate\write\rt@Verb@write{\string\reVerbEnd}%
+ \immediate\closeout\rt@Verb@write
+}
+\def\r@nVToks#1{\begingroup
+ \gdef\rt@BaseName{#1}%
+ \expandafter\rt@nMax\@nameuse{#1Cnt}%
+ \rt@listIn={}\rt@nCnt=0\relax\let\rt@listInHold\@empty
+ \@whilenum\rt@nCnt<\rt@nMax\do{%
+ \advance\rt@nCnt1
+ \edef\rt@listInHold{%
+ \the\rt@listIn{\noexpand\rt@inputVerb{#1\the\rt@nCnt}}}%
+ \rt@listIn=\expandafter{\rt@listInHold}%
+ }%
+\ifrtdebug\typeout{\string\r@nVToks: \the\rt@listIn}\fi
+ \expandafter\r@nToks\expandafter{\the\rt@listIn}%
+}
+\def\rt@inputVerb#1{\input{\jobname_#1.cut}}
+\long\def\r@ndToks#1{%
+ \ifx#1\par\def\rt@next{\r@ndToks}\else
+ \advance\rt@nMax1
+ \global\@namedef{rtTok\the\rt@nMax\rt@BaseName}{#1}%
+ \def\rt@next{\@ifnextchar\rt@NIL
+ {\rt@endToks\@gobble}{\r@ndToks}}%
+ \fi\rt@next
+}
+\def\rt@endToks{%
+ \global\rt@nameedef{nMax4\rt@BaseName}{\the\rt@nMax}%
+ \rt@RandomizeList{\the\rt@nMax}%
+ \rt@nCnt=0
+ \let\\\assignRanToks
+ \the\rt@listOut
+ \endgroup
+}
+\def\assignRanToks#1{\advance\rt@nCnt1
+ \global\rt@nameedef{rtRanTok\the\rt@nCnt\rt@BaseName}%
+ {\noexpand\rtTokByNum[\rt@BaseName]{#1}}%
+}
+\newcommand{\nToksFor}[1]{\@nameuse{nMax4#1}}
+\newcommand{\rtTokByNum}[2][\rt@BaseName]{\@nameuse{rtTok#2#1}\ignorespaces}
+\newcommand{\useRanTok}[2][\rt@BaseName]{\@nameuse{rtRanTok#2#1}}
+\endinput
+%%
+%% End of file `ran_toks.sty'.