Welcome to the CHICKEN Scheme pasting service

#>
#include <gsl/gsl_rng.h>
#include <gsl/gsl_randist.h>
#include <gsl/gsl_cdf.h>
<#

(define-foreign-type gsl-rng-type*
  (c-pointer (struct "gsl_rng_type")))

(define-foreign-type gsl-rng*
  (c-pointer (struct "gsl_rng")))

;; gsl_rng * gsl_rng_alloc (const gsl_rng_type * T)

(define gsl-rng-alloc
  (foreign-lambda gsl-rng* "gsl_rng_alloc"
                  (const gsl-rng-type*)))

;; void gsl_rng_set (const gsl_rng * r, unsigned long int s)

(define gsl-rng-set
  (foreign-lambda void "gsl_rng_set"
                  (const gsl-rng*) unsigned-long))

;; void gsl_rng_free (gsl_rng * r)

(define gsl-rng-free
  (foreign-lambda void "gsl_rng_free" gsl-rng*))