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, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 654fe8ae..d202cd81 100644
--- a/eval.c
+++ b/eval.c
@@ -5156,6 +5156,8 @@ void eval_init(void)
   reg_fun(intern(lit("interp-fun-p"), user_package), func_n1(interp_fun_p));
 
   reg_fun(intern(lit("make-random-state"), user_package), func_n1o(make_random_state, 0));
+  reg_fun(intern(lit("random-state-get-vec"), user_package),
+          func_n1o(random_state_get_vec, 0));
   reg_fun(intern(lit("random-state-p"), user_package), func_n1(random_state_p));
   reg_fun(intern(lit("random-fixnum"), user_package), func_n1o(random_fixnum, 0));
   reg_fun(intern(lit("random"), user_package), func_n2(random));