1 files changed, 50 insertions, 0 deletions
diff --git a/packages/gtk2/src/glib/grand.inc b/packages/gtk2/src/glib/grand.inc
new file mode 100644
index 0000000000..432044fde7
--- /dev/null
+++ b/packages/gtk2/src/glib/grand.inc
@@ -0,0 +1,50 @@
+{*
+ * grand.inc
+ *
+ * depends on gtypes.inc
+ *}
+
+
+
+  type
+    PGRand = pointer;   // check please
+
+  { GRand - a good and fast random number generator: Mersenne Twister
+     see http://www.math.keio.ac.jp/~matumoto/emt.html for more info.
+     The range functions return a value in the intervall [begin, end).
+     int          -> [0..2^32-1]
+     int_range    -> [begin..end-1]
+     double       -> [0..1)
+     double_range -> [begin..end)
+    }
+
+  function  g_rand_new_with_seed(seed:guint32):PGRand;cdecl;external gliblib name 'g_rand_new_with_seed';
+
+  function  g_rand_new:PGRand;cdecl;external gliblib name 'g_rand_new';
+
+  procedure g_rand_free(rand:PGRand);cdecl;external gliblib name 'g_rand_free';
+
+  procedure g_rand_set_seed(rand:PGRand; seed:guint32);cdecl;external gliblib name 'g_rand_set_seed';
+
+  function  g_rand_boolean(rand : PGRand) : gboolean;
+
+  function  g_rand_int(rand:PGRand):guint32;cdecl;external gliblib name 'g_rand_int';
+
+  function  g_rand_int_range(rand:PGRand; _begin:gint32; _end:gint32):gint32;cdecl;external gliblib name 'g_rand_int_range';
+
+  function  g_rand_double(rand:PGRand):gdouble;cdecl;external gliblib name 'g_rand_double';
+
+  function  g_rand_double_range(rand:PGRand; _begin:gdouble; _end:gdouble):gdouble;cdecl;external gliblib name 'g_rand_double_range';
+
+  procedure g_random_set_seed(seed:guint32);cdecl;external gliblib name 'g_random_set_seed';
+
+  function g_random_boolean : gboolean;
+
+  function g_random_int:guint32;cdecl;external gliblib name 'g_random_int';
+
+  function g_random_int_range(_begin:gint32; _end:gint32):gint32;cdecl;external gliblib name 'g_random_int_range';
+
+  function g_random_double:gdouble;cdecl;external gliblib name 'g_random_double';
+
+  function g_random_double_range(_begin:gdouble; _end:gdouble):gdouble;cdecl;external gliblib name 'g_random_double_range';
+