%D \module
%D   [       file=supp-ran,
%D        version=1998.01.21,
%D          title=\CONTEXT\ Support Macros,
%D       subtitle=Random Number Generation,
%D         author=Hans Hagen,
%D           date=\currentdate,
%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for 
%C details. 

\writestatus{loading}{Third Party Macros / Random Number Generation}

%D \macros
%D   {getrandomcount, getrandomdimen, 
%D    getrandomfloat, getrandomnumber,
%D    setrandomseed}
%D 
%D This module load Donald Arseneau's generic file
%D \type{random.tex}. A small shell is needed because we
%D redefine some \TEX\ primitives. We also use different names 
%D for the two generators and add an extra one.
%D 
%D \starttypen
%D \getrandomcount  \countregister {minimum} {maximum}
%D \getrandomdimen  \dimenregister {minimum} {maximum}
%D \getrandomnumber \macroname     {minimum} {maximum}
%D \getrandomfloat  \macroname     {minimum} {maximum}
%D \stoptypen 
%D
%D Of course the file \type{random.tex} needs to be present.
%D To prevent name clashes, the \CONTEXT\ distribution 
%D contains a copy in \type {thrd-ran.tex}.
%D
%D The randomseed can be set by: 
%D
%D \starttypen
%D \setrandomseed{number>0]
%D \stoptypen


\ifx\nextrandom\undefined

  \readfile{random.tex}
    {\writestatus{loading}{Donald Arseneau's 'random.tex'     (found)}}
    {\writestatus{loading}{Donald Arseneau's 'random.tex' (not found)}}

\fi

\ifx\nextrandom\undefined

  \def\setrannum#1#2#3{#1=1  }
  \def\setrandim#1#2#3{#1=1pt}

\else

  \let\normalnextrandom=\nextrandom

  \def\nextrandom%
    {\bgroup
     \let\time =\normaltime   
     \let\day  =\normalday
     \let\month=\normalmonth  
     \let\year =\normalyear
     \normalnextrandom
     \global\let\nextrandom=\normalnextrandom
     \egroup}

\fi

\let\getrandomcount = \setrannum
\let\getrandomdimen = \setrandim

\def\getrandomnumber#1#2#3%
  {\getrandomcount{\scratchcounter}{#2}{#3}%
   \edef#1{\the\scratchcounter}}

\def\getrandomfloat#1#2#3%
  {\getrandomdimen{\scratchdimen}{#2pt}{#3pt}%
   \edef#1{\withoutpt\the\scratchdimen}}

\def\setrandomseed#1%
  {\randomi=#1\relax}

\endinput
