;; This program is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or (at ;; your option) any later version. ;; This program is distributed in the hope that it will be useful, but ;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; A full copy of the GPL license can be found at ;; . (module data-generators (gen-current-fixnum-min gen-current-fixnum-max gen-current-default-size generator <- gen-for-each register-generator-for-type! gen gen-constant gen-int8 gen-uint8 gen-int16 gen-uint16 gen-int32 gen-uint32 gen-int64 gen-uint64 fixnums even-fixnums odd-fixnums flonums gen-bool booleans gen-char chars gen-fixnum gen-even-fixnum gen-odd-fixnum gen-real gen-sample gen-sample-of gen-pair-of gen-tuple-of gen-list-of gen-alist-of gen-vector-of gen-string-of gen-symbol-of gen-symbol gen-hash-table-of gen-record gen-values-of gen-transform with-size range size-spec->gen) (import chicken scheme) (use (prefix random-bsd bsd:) (only ports with-output-to-string) (only srfi-1 iota list-tabulate list-ref find) (only data-structures o) srfi-14 srfi-69 numbers) (include "data-generators-impl.scm") )