* Makefile (OBJS): new object file, rand.o.

* eval.c: Includes rand.h header.
(eval_init): New variable and functions from rand module registered.

* lib.c: Includes rand.h header.
(init): Call rand_init.

* rand.c: New file.

* rand.h: New file.

1 files changed, 33 insertions, 0 deletions

diff --git a/rand.h b/rand.h
new file mode 100644
index 00000000..7426b461
--- /dev/null
+++ b/rand.h
@@ -0,0 +1,33 @@
+/* Copyright 2012
+ * Kaz Kylheku <kaz@kylheku.com>
+ * Vancouver, Canada
+ * All rights reserved.
+ *
+ * BSD License:
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ *   1. Redistributions of source code must retain the above copyright
+ *      notice, this list of conditions and the following disclaimer.
+ *   2. Redistributions in binary form must reproduce the above copyright
+ *      notice, this list of conditions and the following disclaimer in
+ *      the documentation and/or other materials provided with the
+ *      distribution.
+ *   3. The name of the author may not be used to endorse or promote
+ *      products derived from this software without specific prior
+ *      written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+ * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+ */
+
+extern val random_state;
+extern val random_state_s;
+val make_random_state(val seed);
+val random_state_p(val obj);
+val random_fixnum(val state);
+val random(val state, val modulus);
+void rand_init(void);