init

1 files changed, 51 insertions, 0 deletions

diff --git a/194.sld b/194.sld
new file mode 100644
index 0000000..b7f2cb3
--- /dev/null
+++ b/194.sld
@@ -0,0 +1,51 @@
+; 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)
+          (srfi 121))
+  (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)
+  (include "194-impl.scm")
+  (include "zipf-zri.scm")
+  (include "sphere.scm"))