random.c: adding a "libc" version of random for performance testing.

diff --git a/extra/random/c/authors.txt b/extra/random/c/authors.txt
new file mode 100644 (file)
index 0000000..e091bb8
--- /dev/null
+++ b/extra/random/c/authors.txt
@@ -0,0 +1 @@
+John Benediktsson

diff --git a/extra/random/c/c.factor b/extra/random/c/c.factor
new file mode 100644 (file)
index 0000000..1782cb2
--- /dev/null
+++ b/extra/random/c/c.factor
@@ -0,0 +1,17 @@
+! Copyright (C) 2013 John Benediktsson
+! See http://factorcode.org/license.txt for BSD license
+
+USING: alien.c-types alien.syntax kernel random ;
+
+IN: random.c
+
+LIBRARY: libc
+
+FUNCTION: int rand ( ) ;
+
+SINGLETON: c-random
+
+M: c-random random-32* drop rand ;
+
+: with-c-random ( quot -- )
+    [ c-random ] dip with-random ; inline

diff --git a/extra/random/c/platforms.txt b/extra/random/c/platforms.txt
new file mode 100644 (file)
index 0000000..509143d
--- /dev/null
+++ b/extra/random/c/platforms.txt
@@ -0,0 +1 @@
+unix