Changeset 34532 in project


Ignore:
Timestamp:
09/12/17 19:34:01 (2 months ago)
Author:
kon
Message:

uses test

Location:
release/4/srfi-27
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/srfi-27/OO-example.scm

    r34114 r34532  
    1212;; Parameterized extension "concept"
    1313;;
     14;FIXME by having 'src' separate makes dependent on 'ctor' argument order
    1415(define-class <parameterized> () (ctor params src))
    1516
     
    1718;;
    1819(define-generic (next-value obj))
     20(define-generic (reset obj))
     21
    1922(define-method (next-value (obj <stepper>))
    2023  ((slot-value obj 'nxtval)))
    21 (define-generic (reset obj))
     24
    2225(define-method (reset (obj <stepper>))
    2326  (let-values (
     
    6467      (ctor
    6568        (car ctor-form) )
     69      (ctor-args
     70        (cdr ctor-form) )
    6671      (procinfo
    6772        (procedure-information ctor) )
     
    7378          (and-let* ((kndpos (string-index-right procname #\-)))
    7479            (substring/shared procname (add1 kndpos)) ) ) )
     80      ;(<generator-thunk> [<parameters-thunk>])
    7581      (dstr-vals
    76         (receive (apply ctor (cdr ctor-form))) )
     82        (receive (apply ctor ctor-args)) )
     83      (genny
     84        (first dstr-vals) )
    7785      (params
    78         (and
    79           (<= 2 (length dstr-vals))
    80           (receive ((second dstr-vals))) ) )
    81       (gen (first dstr-vals) ) )
     86        (and (<= 2 (length dstr-vals)) (receive ((second dstr-vals))) ) ) )
    8287    ;"free" the temp slot
    8388    (set! (slot-value obj 'tmpval) #f)
    8489    ;initialize state
    8590    (set! (slot-value obj 'namsym) (string->symbol procname))
    86     (set! (slot-value obj 'nxtval) gen)
     91    (set! (slot-value obj 'nxtval) genny)
    8792    (set! (slot-value obj 'ctor) ctor)
    8893    (set! (slot-value obj 'params) (if (pair? params) (drop-right params 1) '()))
     
    9095
    9196#|
     97(use test)
     98(use srfi-27-distributions)
     99
    92100(let ((expn-rd (make-random-distribution make-random-exponentials #:mu 0.5)))
    93101  (test <random-distribution> (class-of expn-rd))
  • release/4/srfi-27/trunk/srfi-27.meta

    r34023 r34532  
    1515        (numbers "2.8")
    1616        #;(random-bsd "0.2"))
     17 (test-depends test)
    1718 (files
    1819 ;"bsdrnd.scm" "composite-random-source.scm" "composite-entropy-source.scm"
  • release/4/srfi-27/trunk/srfi-27.setup

    r34208 r34532  
    1717#;(define publoptn '())
    1818
    19 (setup-shared-extension-module 'fp-extn (extension-version "3.2.9")
     19(setup-shared-extension-module 'fp-extn (extension-version "3.2.10")
    2020  #:inline? #t
    2121  #:types? #t
    2222  #:compile-options `(-scrutinize ,@utiloptn) )
    2323
    24 (setup-shared-extension-module 'source-registration (extension-version "3.2.9")
     24(setup-shared-extension-module 'source-registration (extension-version "3.2.10")
    2525  #:inline? #t
    2626  #:types? #t
    2727  #:compile-options `(-scrutinize ,@utiloptn) )
    2828
    29 (setup-shared-extension-module 'srfi-27-numbers (extension-version "3.2.9")
     29(setup-shared-extension-module 'srfi-27-numbers (extension-version "3.2.10")
    3030  #:inline? #t
    3131  #:types? #t
    3232  #:compile-options `(-scrutinize ,@utiloptn) )
    3333
    34 (setup-shared-extension-module 'srfi-27-vector-support (extension-version "3.2.9")
     34(setup-shared-extension-module 'srfi-27-vector-support (extension-version "3.2.10")
    3535  #:inline? #t
    3636  #:types? #t
     
    3939;; Entropy Source Modules
    4040
    41 (setup-shared-extension-module 'entropy-source (extension-version "3.2.9")
     41(setup-shared-extension-module 'entropy-source (extension-version "3.2.10")
    4242  #:inline? #t
    4343  #:types? #t
    4444  #:compile-options `(-scrutinize ,@utiloptn) )
    4545
    46 (setup-shared-extension-module 'entropy-support (extension-version "3.2.9")
     46(setup-shared-extension-module 'entropy-support (extension-version "3.2.10")
    4747  #:inline? #t
    4848  #:types? #t
    4949  #:compile-options `(-scrutinize ,@utiloptn) )
    5050
    51 (setup-shared-extension-module 'entropy-clock (extension-version "3.2.9")
     51(setup-shared-extension-module 'entropy-clock (extension-version "3.2.10")
    5252  #:inline? #t
    5353  #:types? #t
    5454  #:compile-options `(-scrutinize ,@publoptn) )
    5555
    56 (setup-shared-extension-module 'entropy-procedure (extension-version "3.2.9")
     56(setup-shared-extension-module 'entropy-procedure (extension-version "3.2.10")
    5757  #:inline? #t
    5858  #:types? #t
     
    6161    -no-procedure-checks) )
    6262
    63 (setup-shared-extension-module 'entropy-port (extension-version "3.2.9")
     63(setup-shared-extension-module 'entropy-port (extension-version "3.2.10")
    6464  #:inline? #t
    6565  #:types? #t
     
    6767
    6868#+unix
    69 (setup-shared-extension-module 'entropy-unix (extension-version "3.2.9")
     69(setup-shared-extension-module 'entropy-unix (extension-version "3.2.10")
    7070  #:inline? #t
    7171  #:types? #t
     
    7373
    7474#+windows
    75 (setup-shared-extension-module 'entropy-windows (extension-version "3.2.9")
     75(setup-shared-extension-module 'entropy-windows (extension-version "3.2.10")
    7676  #:inline? #t
    7777  #:types? #t
     
    7979
    8080#;
    81 (setup-shared-extension-module 'composite-entropy-source (extension-version "3.2.9")
     81(setup-shared-extension-module 'composite-entropy-source (extension-version "3.2.10")
    8282  #:inline? #t
    8383  #:types? #t
     
    8686;; Random Source Modules
    8787
    88 (setup-shared-extension-module 'random-source (extension-version "3.2.9")
     88(setup-shared-extension-module 'random-source (extension-version "3.2.10")
    8989  #:inline? #t
    9090  #:types? #t
    9191  #:compile-options `(-scrutinize ,@utiloptn) )
    9292
    93 (setup-shared-extension-module 'mrg32k3a (extension-version "3.2.9")
     93(setup-shared-extension-module 'mrg32k3a (extension-version "3.2.10")
    9494  #:inline? #t
    9595  #:types? #t
    9696  #:compile-options `(-scrutinize ,@utiloptn) )
    9797
    98 (setup-shared-extension-module 'mwc (extension-version "3.2.9")
     98(setup-shared-extension-module 'mwc (extension-version "3.2.10")
    9999  #:inline? #t
    100100  #:types? #t
    101101  #:compile-options `(-scrutinize ,@utiloptn) )
    102102
    103 (setup-shared-extension-module 'moa (extension-version "3.2.9")
     103(setup-shared-extension-module 'moa (extension-version "3.2.10")
    104104  #:inline? #t
    105105  #:types? #t
     
    107107
    108108#;
    109 (setup-shared-extension-module 'bsdrnd (extension-version "3.2.9")
     109(setup-shared-extension-module 'bsdrnd (extension-version "3.2.10")
    110110  #:inline? #t
    111111  #:types? #t
     
    113113
    114114#;
    115 (setup-shared-extension-module 'composite-random-source (extension-version "3.2.9")
     115(setup-shared-extension-module 'composite-random-source (extension-version "3.2.10")
    116116  #:inline? #t
    117117  #:types? #t
     
    120120;; Main Modules
    121121
    122 (setup-shared-extension-module 'srfi-27 (extension-version "3.2.9")
     122(setup-shared-extension-module 'srfi-27 (extension-version "3.2.10")
    123123  #:inline? #t
    124124  #:types? #t
    125125  #:compile-options `(-scrutinize ,@publoptn) )
    126126
    127 (setup-shared-extension-module 'srfi-27-uniform-random (extension-version "3.2.9")
     127(setup-shared-extension-module 'srfi-27-uniform-random (extension-version "3.2.10")
    128128  #:inline? #t
    129129  #:types? #t
    130130  #:compile-options `(-scrutinize ,@publoptn) )
    131131
    132 (setup-shared-extension-module 'srfi-27-distributions (extension-version "3.2.9")
     132(setup-shared-extension-module 'srfi-27-distributions (extension-version "3.2.10")
    133133  #:inline? #t
    134134  #:types? #t
    135135  #:compile-options `(-scrutinize ,@publoptn) )
    136136
    137 (setup-shared-extension-module 'srfi-27-vector (extension-version "3.2.9")
     137(setup-shared-extension-module 'srfi-27-vector (extension-version "3.2.10")
    138138  #:inline? #t
    139139  #:types? #t
Note: See TracChangeset for help on using the changeset viewer.