glib/glib.rand.lisp

   1 (in-package :glib)
   2
   3 (defcfun (random-set-seed "g_random_set_seed") :void
   4   (seed :uint32))
   5
   6 (export 'random-set-seed)
   7
   8 (defcfun (random-int "g_random_int") :uint32)
   9
  10 (export 'random-int)
  11
  12 (defcfun (random-int-range "g_random_int_range") :int32
  13   (begin :int32)
  14   (end :int32))
  15
  16 (export 'random-int-range)
  17
  18 (defun random-boolean ()
  19   (logtest (random-int) #X8000))
  20
  21 (export 'random-boolean)
  22
  23 (defcfun (random-double "g_random_double") :double)
  24
  25 (export 'random-double)
  26
  27 (defcfun (random-double-range "g_random_double_range") :double
  28   (begin :double)
  29   (end :double))
  30
  31 (export 'random-double-range)
  32