summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/supp-ran.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-11-16 01:02:47 +0000
committerKarl Berry <karl@freefriends.org>2006-11-16 01:02:47 +0000
commit3c85b55e2f245fb7edac7e445f107e6d0bb423ae (patch)
treec62b7f80edafe0455310d08e09f4218127bf9e87 /Master/texmf-dist/tex/context/base/supp-ran.tex
parente5ecff27a26ef59e1dbe9702677687fd7107be3a (diff)
context update
git-svn-id: svn://tug.org/texlive/trunk@2444 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context/base/supp-ran.tex')
-rw-r--r--Master/texmf-dist/tex/context/base/supp-ran.tex27
1 files changed, 6 insertions, 21 deletions
diff --git a/Master/texmf-dist/tex/context/base/supp-ran.tex b/Master/texmf-dist/tex/context/base/supp-ran.tex
index 1266c0e0f34..8c76ab443f6 100644
--- a/Master/texmf-dist/tex/context/base/supp-ran.tex
+++ b/Master/texmf-dist/tex/context/base/supp-ran.tex
@@ -52,14 +52,6 @@
{\writestatus{loading}{Donald Arseneau's 'random.tex' (found)}}
{\writestatus{loading}{Donald Arseneau's 'random.tex' (not found)}}
- % avoid scratch dimens 0 and 2 (already recoded in third-ran)
- %
- % \def\setrandim#1#2#3% dimen register, minimum length, maximum length
- % {\scratchdimen#2\edef\!!stringa{\number\scratchdimen}%
- % \scratchdimen#3\edef\!!stringb{\number\scratchdimen}%
- % \setrannum\ranval\!!stringa\!!stringb
- % #1\ranval\s!sp\relax}
-
\fi
\ifx\nextrandom\undefined
@@ -73,18 +65,6 @@
\let\nextrandom\relax
-% \def\getrandomdimen #1#2#3{\scratchdimen #2\relax#1\scratchdimen }
-% \def\getrandomcount #1#2#3{\scratchcounter#2\relax#1\scratchcounter}
-% \def\getrandomnumber#1#2#3{\edef#1{0}}
-% \def\getrandomfloat #1#2#3{\edef#1{0}}
-% \unexpanded\def\setrandomseed #1{}
-% \unexpanded\def\getrandomseed #1{\edef#1{0}}
-
-% \chardef\randomseedfrozen\zerocount
-
-% \def\freezerandomseed {\global\chardef\randomseedfrozen\plusone }
-% \def\defrostrandomseed{\global\chardef\randomseedfrozen\zerocount}
-
\fi
\ifx\nextrandom\undefined \endinput \fi
@@ -165,9 +145,14 @@
\edef#1{\withoutpt\the\scratchdimen}}
\unexpanded \def\setrandomseed#1%
- {\randomi#1\relax}
+ {\global\randomi#1\relax} % global added
\unexpanded \def\getrandomseed#1%
{\edef#1{\number\randomi}}
+\def\getnewrandomseed#1%
+ {\setrandomseed\minusone % signals thrd-ran to auto reseed
+ \nextrandom % this signal is needed for the
+ #1\randomi} % pseudo randomizer (see: third-ran)
+
\endinput