New random-state-get-vec function.

* arith.c (UINT_PTR_MAX_MP): New static variable.
(biggnum_from_uintptr): New function.
(in_uint_ptr_range): New static function.
(c_uint_ptr_num): New function.
(arith_init): Initialize UINT_PTR_MAX_MP.

* arith.h (bignum_from_uintptr, c_uint_ptr_num): Declared.

* eval.c (eval_init): Register random-state-get-vec.

* mpi/mpi.c (mp_set_uintptr, mp_get_uintptr): New functions.
(mp_set_intptr, mp_get_intptr): Expressed in terms of
mp_set_uintptr and mp_get_uintptr.

* mpi/mpi.h (mp_set_uintptr, mp_get_uintptr): Declared.

* rand.c (make_random_state): Handle vector seed.
(random_state_get_vec): New function.

* rand.h (random_state_get_vec): Declared.

* txr.1: Documented new feature in make-random-state
and new random-state-get-vec function.

1 files changed, 26 insertions, 3 deletions

diff --git a/txr.1 b/txr.1
index 9568e6b1..3062001f 100644
--- a/txr.1
+++ b/txr.1
@@ -34757,8 +34757,10 @@ an object of the same kind as what is stored in the
 .code *random-state*
 variable.
 
-The seed, if specified, must be either an integer value, or an
-existing random state object.
+The seed, if specified, must be either an integer value, an
+existing random state object, or a vector returned from a call
+to the function
+.codn random-state-get-vec .
 
 Note that the sign of the seed is ignored, so that negative seed
 values are equivalent to their additive inverses.
@@ -34779,11 +34781,17 @@ a millisecond apart may predictably produce the same seed.
 If an integer seed is specified, then the integer value is mapped to a
 pseudo-random sequence, in a platform-independent way.
 
-If a random state is specified as a seed, then it is duplicated. The
+If an existing random state is specified as a seed, then it is duplicated. The
 returned random state object is a distinct object which is in the same
 state as the input object. It will produce the same remaining pseudo-random
 number sequence, as will the input object.
 
+If a vector is specified as a seed, then a random state is constructed
+which duplicates the random state object which was captured in that vector
+representation by the
+.code random-state-get-vec
+function.
+
 .coNP Function @ random-state-p
 .synb
 .mets (random-state-p << obj )
@@ -34799,6 +34807,21 @@ is a random state, otherwise it
 returns
 .codn nil .
 
+.coNP Function @ random-state-get-vec
+.synb
+.mets (random-state-get-vec <> [ random-state ])
+.syne
+.desc
+The
+.code random-state-get-vec
+function converts a random state into a vector of integer values.
+If the
+.meta random-state
+argument, which must be a random state object, is omitted,
+then the value of the
+.code *random-state*
+is used.
+
 .coNP Functions @, random-fixnum @ random and @ rand
 .synb
 .mets (random-fixnum <> [ random-state ])