; SPDX-FileCopyrightText: 2020 Arvydas Silanskas
; SPDX-License-Identifier: MIT

(define-library (srfi 194)
  (cond-expand
    (gambit
     ;; Should work for any Gambit no earlier than
     ;; v4.9.5-104-g562e58da 20240201212453
     (import (gambit)))
    (else
     (import (scheme base)
             (srfi 133))))
  (import (scheme case-lambda)
          (scheme inexact)
          (scheme complex)
          (scheme write)
          (srfi 27)
          (srfi 158)
          (chicken platform))
  (export
   clamp-real-number
   current-random-source
   with-random-source
   make-random-integer-generator
   make-random-u1-generator
   make-random-u8-generator make-random-s8-generator
   make-random-u16-generator make-random-s16-generator
   make-random-u32-generator make-random-s32-generator
   make-random-u64-generator make-random-s64-generator
   make-random-boolean-generator
   make-random-char-generator
   make-random-string-generator
   make-random-real-generator
   make-random-rectangular-generator
   make-random-polar-generator
   make-bernoulli-generator
   make-binomial-generator
   make-categorical-generator
   make-normal-generator
   make-exponential-generator
   make-geometric-generator
   make-poisson-generator
   make-zipf-generator
   make-sphere-generator
   make-ellipsoid-generator
   make-ball-generator
   make-random-source-generator
   gsampling)
  (begin (register-feature! 'srfi-194))
  (include "194-impl.scm")
  (include "zipf-zri.scm")
  (include "sphere.scm"))