Changeset 34008 in project for release/4


Ignore:
Timestamp:
04/22/17 15:35:16 (3 years ago)
Author:
Kon Lovett
Message:

incl registration.scm

Location:
release/4/srfi-27
Files:
2 added
12 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/srfi-27/tags/3.2.0/composite-random-source.scm

    r33848 r34008  
    2323(define *composite-random-source
    2424  (let ((random-states?
    25          (lambda (obj k n)
    26            (and
    27             (pair? obj)
    28             (eq? k (car obj))
    29             (list? obj)
    30             (= n (- (length obj) 1)))))
     25          (lambda (obj k n)
     26            (and
     27              (pair? obj)
     28              (eq? k (car obj))
     29              (list? obj)
     30              (= n (- (length obj) 1)))))
    3131        (state-ref
    3232          (lambda (s)
  • release/4/srfi-27/tags/3.2.0/moa.scm

    r33848 r34008  
    187187;;
    188188
     189(define-constant maximum-unsigned-integer32-flonum 4294967295.0)
     190
    189191(cond-expand
    190192  (64bit
    191     (define-constant 32-BIT-FIXNUM-LIMIT 4294967295) )    ;MAX
     193    (define-constant maximum-unsigned-integer32 4294967295) )    ;MAX
    192194  (else ;32bit
    193     (define-constant 32-BIT-FIXNUM-LIMIT 1073741823) ) )  ;32bit most-positive-fixnum
    194 
    195 (define-constant fpMAX 4294967295.0)  ; 2^32 - 1
     195    (define-constant maximum-unsigned-integer32 1073741823) ) )  ;32bit most-positive-fixnum
     196
     197(define-constant fpMAX maximum-unsigned-integer32-flonum)  ; 2^32 - 1
    196198(define-constant LOG2-PERIOD 250)
    197199
    198200(define eMAX (inexact->exact fpMAX)) ; Create a "bignum" if necessary
    199201
    200 (define-constant INITIAL-SEED 4294967295.0)
     202(define-constant INITIAL-SEED maximum-unsigned-integer32-flonum)
    201203
    202204(define-constant STATE-LENGTH 10)
     
    285287            (64bit
    286288              (cond
    287                 ((and (fixnum? n) (<= n 32-BIT-FIXNUM-LIMIT))
     289                ((and (fixnum? n) (<= n maximum-unsigned-integer32))
    288290                  (moa-random-integer state n))
    289291                (else
     
    291293            (else ;32bit
    292294              (cond
    293                 ((and (fixnum? n) (<= n 32-BIT-FIXNUM-LIMIT))
     295                ((and (fixnum? n) (<= n maximum-unsigned-integer32))
    294296                  (moa-random-integer state n))
    295297                ; 'n' maybe bignum - must be convertable to "unsigned-integer32"
  • release/4/srfi-27/tags/3.2.0/mrg32k3a.scm

    r33848 r34008  
    125125;;;
    126126
     127(define-constant maximum-unsigned-integer32-flonum 4294967295.0)
     128
    127129(cond-expand
    128130  (64bit
    129     (define-constant 32-BIT-FIXNUM-LIMIT 4294967087) )    ;M1
     131    (define-constant maximum-unsigned-integer32 4294967087) )    ;M1
    130132  (else ;32bit
    131     (define-constant 32-BIT-FIXNUM-LIMIT 1073741823) ) )  ;32bit most-positive-fixnum
     133    (define-constant maximum-unsigned-integer32 1073741823) ) )  ;32bit most-positive-fixnum
    132134
    133135(define-constant fpM1 4294967087.0)   ; modulus of component 1
     
    498500            (64bit
    499501              (cond
    500                 ((and (fixnum? n) (<= n 32-BIT-FIXNUM-LIMIT))
     502                ((and (fixnum? n) (<= n maximum-unsigned-integer32))
    501503                  (mrg32k3a-random-integer state n))
    502504                (else
     
    504506            (else ;32bit
    505507              (cond
    506                 ((and (fixnum? n) (<= n 32-BIT-FIXNUM-LIMIT))
     508                ((and (fixnum? n) (<= n maximum-unsigned-integer32))
    507509                  (mrg32k3a-random-integer state n))
    508510                ; 'n' maybe bignum - must be convertable to "unsigned-integer32"
  • release/4/srfi-27/tags/3.2.0/mwc.scm

    r33848 r34008  
    181181;;
    182182
     183(define-constant maximum-unsigned-integer32-flonum 4294967295.0)
     184
    183185(cond-expand
    184186  (64bit
    185     (define-constant 32-BIT-FIXNUM-LIMIT 4294967295) )    ;MAX
     187    (define-constant maximum-unsigned-integer32 4294967295) )    ;MAX
    186188  (else ;32bit
    187     (define-constant 32-BIT-FIXNUM-LIMIT 1073741823) ) )  ;32bit most-positive-fixnum
    188 
    189 (define-constant fpMAX 4294967295.0)  ; 2^32 - 1
     189    (define-constant maximum-unsigned-integer32 1073741823) ) )  ;32bit most-positive-fixnum
     190
     191(define-constant fpMAX maximum-unsigned-integer32-flonum)  ; 2^32 - 1
    190192(define-constant LOG2-PERIOD 62)
    191193
    192194(define eMAX (inexact->exact fpMAX)) ; Create a "bignum" if necessary
    193195
    194 (define-constant INITIAL-SEED 4294967295.0)
     196(define-constant INITIAL-SEED maximum-unsigned-integer32-flonum)
    195197
    196198(define-constant STATE-LENGTH 2)
     
    282284            (64bit
    283285              (cond
    284                 ((and (fixnum? n) (<= n 32-BIT-FIXNUM-LIMIT))
     286                ((and (fixnum? n) (<= n maximum-unsigned-integer32))
    285287                  (mwc-random-integer state n))
    286288                (else
     
    288290            (else ;32bit
    289291              (cond
    290                 ((and (fixnum? n) (<= n 32-BIT-FIXNUM-LIMIT))
     292                ((and (fixnum? n) (<= n maximum-unsigned-integer32))
    291293                  (mwc-random-integer state n))
    292294                ; 'n' maybe bignum - must be convertable to "unsigned-integer32"
  • release/4/srfi-27/tags/3.2.0/srfi-27-vector.scm

    r33848 r34008  
    4141
    4242(define (vector-iota-set! vec n)
     43  #;(list->vector (iota n))
    4344  (do ((i 0 (fx+ i 1)))
    4445      ((fx= i n))
  • release/4/srfi-27/tags/3.2.0/srfi-27.setup

    r33848 r34008  
    1111;; Utility Modules
    1212
    13 (setup-shared-extension-module 'srfi-27-numbers (extension-version "3.1.9")
     13(setup-shared-extension-module 'srfi-27-numbers (extension-version "3.2.0")
    1414  #:inline? #t
    1515  #:types? #t
     
    1818    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    1919
    20 (setup-shared-extension-module 'srfi-27-vector-support (extension-version "3.1.9")
     20(setup-shared-extension-module 'srfi-27-vector-support (extension-version "3.2.0")
    2121  #:inline? #t
    2222  #:types? #t
     
    2525    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    2626
    27 (setup-shared-extension-module 'registration (extension-version "3.1.9")
     27(setup-shared-extension-module 'registration (extension-version "3.2.0")
    2828  #:inline? #t
    2929  #:types? #t
     
    3434;; Entropy Source Modules
    3535
    36 (setup-shared-extension-module 'entropy-source (extension-version "3.1.9")
     36(setup-shared-extension-module 'entropy-source (extension-version "3.2.0")
    3737  #:inline? #t
    3838  #:types? #t
     
    4141    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    4242
    43 (setup-shared-extension-module 'entropy-support (extension-version "3.1.9")
     43(setup-shared-extension-module 'entropy-support (extension-version "3.2.0")
    4444  #:inline? #t
    4545  #:types? #t
     
    4848    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    4949
    50 (setup-shared-extension-module 'entropy-clock (extension-version "3.1.9")
     50(setup-shared-extension-module 'entropy-clock (extension-version "3.2.0")
    5151  #:inline? #t
    5252  #:types? #t
     
    5555    -no-procedure-checks) )
    5656
    57 (setup-shared-extension-module 'entropy-procedure (extension-version "3.1.9")
     57(setup-shared-extension-module 'entropy-procedure (extension-version "3.2.0")
    5858  #:inline? #t
    5959  #:types? #t
     
    6262    -no-procedure-checks) )
    6363
    64 (setup-shared-extension-module 'entropy-port (extension-version "3.1.9")
     64(setup-shared-extension-module 'entropy-port (extension-version "3.2.0")
    6565  #:inline? #t
    6666  #:types? #t
     
    7070
    7171#+unix
    72 (setup-shared-extension-module 'entropy-unix (extension-version "3.1.9")
     72(setup-shared-extension-module 'entropy-unix (extension-version "3.2.0")
    7373  #:inline? #t
    7474  #:types? #t
     
    7878
    7979#+windows
    80 (setup-shared-extension-module 'entropy-windows (extension-version "3.1.9")
     80(setup-shared-extension-module 'entropy-windows (extension-version "3.2.0")
    8181  #:inline? #t
    8282  #:types? #t
     
    8787;; Random Source Modules
    8888
    89 (setup-shared-extension-module 'random-source (extension-version "3.1.9")
     89(setup-shared-extension-module 'random-source (extension-version "3.2.0")
    9090  #:inline? #t
    9191  #:types? #t
     
    9494    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    9595
    96 (setup-shared-extension-module 'mrg32k3a (extension-version "3.1.9")
     96(setup-shared-extension-module 'mrg32k3a (extension-version "3.2.0")
    9797  #:inline? #t
    9898  #:types? #t
     
    101101    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    102102
    103 (setup-shared-extension-module 'mwc (extension-version "3.1.9")
     103(setup-shared-extension-module 'mwc (extension-version "3.2.0")
    104104  #:inline? #t
    105105  #:types? #t
     
    108108    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    109109
    110 (setup-shared-extension-module 'moa (extension-version "3.1.9")
     110(setup-shared-extension-module 'moa (extension-version "3.2.0")
    111111  #:inline? #t
    112112  #:types? #t
     
    115115    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    116116
    117 (setup-shared-extension-module 'composite-random-source (extension-version "3.1.9")
     117(setup-shared-extension-module 'composite-random-source (extension-version "3.2.0")
    118118  #:inline? #t
    119119  #:types? #t
     
    124124;; Main Modules
    125125
    126 (setup-shared-extension-module 'srfi-27 (extension-version "3.1.9")
     126(setup-shared-extension-module 'srfi-27 (extension-version "3.2.0")
    127127  #:inline? #t
    128128  #:types? #t
     
    131131    -no-procedure-checks) )
    132132
    133 (setup-shared-extension-module 'srfi-27-uniform-random (extension-version "3.1.9")
     133(setup-shared-extension-module 'srfi-27-uniform-random (extension-version "3.2.0")
    134134  #:inline? #t
    135135  #:types? #t
     
    138138    -no-procedure-checks) )
    139139
    140 (setup-shared-extension-module 'srfi-27-distributions (extension-version "3.1.9")
     140(setup-shared-extension-module 'srfi-27-distributions (extension-version "3.2.0")
    141141  #:inline? #t
    142142  #:types? #t
     
    145145    -no-procedure-checks) )
    146146
    147 (setup-shared-extension-module 'srfi-27-vector (extension-version "3.1.9")
     147(setup-shared-extension-module 'srfi-27-vector (extension-version "3.2.0")
    148148  #:inline? #t
    149149  #:types? #t
  • release/4/srfi-27/trunk/composite-random-source.scm

    r33848 r34008  
    2323(define *composite-random-source
    2424  (let ((random-states?
    25          (lambda (obj k n)
    26            (and
    27             (pair? obj)
    28             (eq? k (car obj))
    29             (list? obj)
    30             (= n (- (length obj) 1)))))
     25          (lambda (obj k n)
     26            (and
     27              (pair? obj)
     28              (eq? k (car obj))
     29              (list? obj)
     30              (= n (- (length obj) 1)))))
    3131        (state-ref
    3232          (lambda (s)
  • release/4/srfi-27/trunk/moa.scm

    r33848 r34008  
    187187;;
    188188
     189(define-constant maximum-unsigned-integer32-flonum 4294967295.0)
     190
    189191(cond-expand
    190192  (64bit
    191     (define-constant 32-BIT-FIXNUM-LIMIT 4294967295) )    ;MAX
     193    (define-constant maximum-unsigned-integer32 4294967295) )    ;MAX
    192194  (else ;32bit
    193     (define-constant 32-BIT-FIXNUM-LIMIT 1073741823) ) )  ;32bit most-positive-fixnum
    194 
    195 (define-constant fpMAX 4294967295.0)  ; 2^32 - 1
     195    (define-constant maximum-unsigned-integer32 1073741823) ) )  ;32bit most-positive-fixnum
     196
     197(define-constant fpMAX maximum-unsigned-integer32-flonum)  ; 2^32 - 1
    196198(define-constant LOG2-PERIOD 250)
    197199
    198200(define eMAX (inexact->exact fpMAX)) ; Create a "bignum" if necessary
    199201
    200 (define-constant INITIAL-SEED 4294967295.0)
     202(define-constant INITIAL-SEED maximum-unsigned-integer32-flonum)
    201203
    202204(define-constant STATE-LENGTH 10)
     
    285287            (64bit
    286288              (cond
    287                 ((and (fixnum? n) (<= n 32-BIT-FIXNUM-LIMIT))
     289                ((and (fixnum? n) (<= n maximum-unsigned-integer32))
    288290                  (moa-random-integer state n))
    289291                (else
     
    291293            (else ;32bit
    292294              (cond
    293                 ((and (fixnum? n) (<= n 32-BIT-FIXNUM-LIMIT))
     295                ((and (fixnum? n) (<= n maximum-unsigned-integer32))
    294296                  (moa-random-integer state n))
    295297                ; 'n' maybe bignum - must be convertable to "unsigned-integer32"
  • release/4/srfi-27/trunk/mrg32k3a.scm

    r33848 r34008  
    125125;;;
    126126
     127(define-constant maximum-unsigned-integer32-flonum 4294967295.0)
     128
    127129(cond-expand
    128130  (64bit
    129     (define-constant 32-BIT-FIXNUM-LIMIT 4294967087) )    ;M1
     131    (define-constant maximum-unsigned-integer32 4294967087) )    ;M1
    130132  (else ;32bit
    131     (define-constant 32-BIT-FIXNUM-LIMIT 1073741823) ) )  ;32bit most-positive-fixnum
     133    (define-constant maximum-unsigned-integer32 1073741823) ) )  ;32bit most-positive-fixnum
    132134
    133135(define-constant fpM1 4294967087.0)   ; modulus of component 1
     
    498500            (64bit
    499501              (cond
    500                 ((and (fixnum? n) (<= n 32-BIT-FIXNUM-LIMIT))
     502                ((and (fixnum? n) (<= n maximum-unsigned-integer32))
    501503                  (mrg32k3a-random-integer state n))
    502504                (else
     
    504506            (else ;32bit
    505507              (cond
    506                 ((and (fixnum? n) (<= n 32-BIT-FIXNUM-LIMIT))
     508                ((and (fixnum? n) (<= n maximum-unsigned-integer32))
    507509                  (mrg32k3a-random-integer state n))
    508510                ; 'n' maybe bignum - must be convertable to "unsigned-integer32"
  • release/4/srfi-27/trunk/mwc.scm

    r33848 r34008  
    181181;;
    182182
     183(define-constant maximum-unsigned-integer32-flonum 4294967295.0)
     184
    183185(cond-expand
    184186  (64bit
    185     (define-constant 32-BIT-FIXNUM-LIMIT 4294967295) )    ;MAX
     187    (define-constant maximum-unsigned-integer32 4294967295) )    ;MAX
    186188  (else ;32bit
    187     (define-constant 32-BIT-FIXNUM-LIMIT 1073741823) ) )  ;32bit most-positive-fixnum
    188 
    189 (define-constant fpMAX 4294967295.0)  ; 2^32 - 1
     189    (define-constant maximum-unsigned-integer32 1073741823) ) )  ;32bit most-positive-fixnum
     190
     191(define-constant fpMAX maximum-unsigned-integer32-flonum)  ; 2^32 - 1
    190192(define-constant LOG2-PERIOD 62)
    191193
    192194(define eMAX (inexact->exact fpMAX)) ; Create a "bignum" if necessary
    193195
    194 (define-constant INITIAL-SEED 4294967295.0)
     196(define-constant INITIAL-SEED maximum-unsigned-integer32-flonum)
    195197
    196198(define-constant STATE-LENGTH 2)
     
    282284            (64bit
    283285              (cond
    284                 ((and (fixnum? n) (<= n 32-BIT-FIXNUM-LIMIT))
     286                ((and (fixnum? n) (<= n maximum-unsigned-integer32))
    285287                  (mwc-random-integer state n))
    286288                (else
     
    288290            (else ;32bit
    289291              (cond
    290                 ((and (fixnum? n) (<= n 32-BIT-FIXNUM-LIMIT))
     292                ((and (fixnum? n) (<= n maximum-unsigned-integer32))
    291293                  (mwc-random-integer state n))
    292294                ; 'n' maybe bignum - must be convertable to "unsigned-integer32"
  • release/4/srfi-27/trunk/srfi-27-vector.scm

    r33848 r34008  
    4141
    4242(define (vector-iota-set! vec n)
     43  #;(list->vector (iota n))
    4344  (do ((i 0 (fx+ i 1)))
    4445      ((fx= i n))
  • release/4/srfi-27/trunk/srfi-27.setup

    r33848 r34008  
    1111;; Utility Modules
    1212
    13 (setup-shared-extension-module 'srfi-27-numbers (extension-version "3.1.9")
     13(setup-shared-extension-module 'srfi-27-numbers (extension-version "3.2.0")
    1414  #:inline? #t
    1515  #:types? #t
     
    1818    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    1919
    20 (setup-shared-extension-module 'srfi-27-vector-support (extension-version "3.1.9")
     20(setup-shared-extension-module 'srfi-27-vector-support (extension-version "3.2.0")
    2121  #:inline? #t
    2222  #:types? #t
     
    2525    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    2626
    27 (setup-shared-extension-module 'registration (extension-version "3.1.9")
     27(setup-shared-extension-module 'registration (extension-version "3.2.0")
    2828  #:inline? #t
    2929  #:types? #t
     
    3434;; Entropy Source Modules
    3535
    36 (setup-shared-extension-module 'entropy-source (extension-version "3.1.9")
     36(setup-shared-extension-module 'entropy-source (extension-version "3.2.0")
    3737  #:inline? #t
    3838  #:types? #t
     
    4141    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    4242
    43 (setup-shared-extension-module 'entropy-support (extension-version "3.1.9")
     43(setup-shared-extension-module 'entropy-support (extension-version "3.2.0")
    4444  #:inline? #t
    4545  #:types? #t
     
    4848    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    4949
    50 (setup-shared-extension-module 'entropy-clock (extension-version "3.1.9")
     50(setup-shared-extension-module 'entropy-clock (extension-version "3.2.0")
    5151  #:inline? #t
    5252  #:types? #t
     
    5555    -no-procedure-checks) )
    5656
    57 (setup-shared-extension-module 'entropy-procedure (extension-version "3.1.9")
     57(setup-shared-extension-module 'entropy-procedure (extension-version "3.2.0")
    5858  #:inline? #t
    5959  #:types? #t
     
    6262    -no-procedure-checks) )
    6363
    64 (setup-shared-extension-module 'entropy-port (extension-version "3.1.9")
     64(setup-shared-extension-module 'entropy-port (extension-version "3.2.0")
    6565  #:inline? #t
    6666  #:types? #t
     
    7070
    7171#+unix
    72 (setup-shared-extension-module 'entropy-unix (extension-version "3.1.9")
     72(setup-shared-extension-module 'entropy-unix (extension-version "3.2.0")
    7373  #:inline? #t
    7474  #:types? #t
     
    7878
    7979#+windows
    80 (setup-shared-extension-module 'entropy-windows (extension-version "3.1.9")
     80(setup-shared-extension-module 'entropy-windows (extension-version "3.2.0")
    8181  #:inline? #t
    8282  #:types? #t
     
    8787;; Random Source Modules
    8888
    89 (setup-shared-extension-module 'random-source (extension-version "3.1.9")
     89(setup-shared-extension-module 'random-source (extension-version "3.2.0")
    9090  #:inline? #t
    9191  #:types? #t
     
    9494    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    9595
    96 (setup-shared-extension-module 'mrg32k3a (extension-version "3.1.9")
     96(setup-shared-extension-module 'mrg32k3a (extension-version "3.2.0")
    9797  #:inline? #t
    9898  #:types? #t
     
    101101    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    102102
    103 (setup-shared-extension-module 'mwc (extension-version "3.1.9")
     103(setup-shared-extension-module 'mwc (extension-version "3.2.0")
    104104  #:inline? #t
    105105  #:types? #t
     
    108108    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    109109
    110 (setup-shared-extension-module 'moa (extension-version "3.1.9")
     110(setup-shared-extension-module 'moa (extension-version "3.2.0")
    111111  #:inline? #t
    112112  #:types? #t
     
    115115    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    116116
    117 (setup-shared-extension-module 'composite-random-source (extension-version "3.1.9")
     117(setup-shared-extension-module 'composite-random-source (extension-version "3.2.0")
    118118  #:inline? #t
    119119  #:types? #t
     
    124124;; Main Modules
    125125
    126 (setup-shared-extension-module 'srfi-27 (extension-version "3.1.9")
     126(setup-shared-extension-module 'srfi-27 (extension-version "3.2.0")
    127127  #:inline? #t
    128128  #:types? #t
     
    131131    -no-procedure-checks) )
    132132
    133 (setup-shared-extension-module 'srfi-27-uniform-random (extension-version "3.1.9")
     133(setup-shared-extension-module 'srfi-27-uniform-random (extension-version "3.2.0")
    134134  #:inline? #t
    135135  #:types? #t
     
    138138    -no-procedure-checks) )
    139139
    140 (setup-shared-extension-module 'srfi-27-distributions (extension-version "3.1.9")
     140(setup-shared-extension-module 'srfi-27-distributions (extension-version "3.2.0")
    141141  #:inline? #t
    142142  #:types? #t
     
    145145    -no-procedure-checks) )
    146146
    147 (setup-shared-extension-module 'srfi-27-vector (extension-version "3.1.9")
     147(setup-shared-extension-module 'srfi-27-vector (extension-version "3.2.0")
    148148  #:inline? #t
    149149  #:types? #t
Note: See TracChangeset for help on using the changeset viewer.