Changeset 35486 in project


Ignore:
Timestamp:
04/29/18 22:05:19 (4 months ago)
Author:
kon
Message:

windows crypt entropy type

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

Legend:

Unmodified
Added
Removed
  • release/4/srfi-27/trunk/composite-entropy-source.scm

    r34780 r35486  
    3333  composite-entropy-source)
    3434
    35 (import scheme)
     35(import scheme chicken)
    3636
    37 (import chicken)
    38 
    39 (import
     37(use
    4038  (only data-structures conc reverse-string-append ->string intersperse)
    41   (only type-errors error-argument-type))
    42 (require-library data-structures type-errors)
    43 
    44 (use srfi-1)
    45 (use srfi-4)
    46 (use entropy-source srfi-27-vector-support srfi-27)
     39  (only type-errors error-argument-type)
     40  srfi-1
     41  srfi-4
     42  entropy-source
     43  srfi-27-vector-support
     44  srfi-27)
    4745
    4846;;
  • release/4/srfi-27/trunk/entropy-windows.scm

    r34779 r35486  
    77  make-entropy-source-crypt)
    88
    9 (import scheme)
     9(import scheme chicken foreign)
    1010
    11 (import chicken foreign)
     11(use
     12  (only ports make-input-port)
     13  (only srfi-4 make-u8vector u8vector-ref)
     14  entropy-source entropy-port)
    1215
    13 (import
    14   (only ports make-input-port)
    15   (only srfi-4 make-u8vector u8vector-ref) )
    16 (require-library ports srfi-4)
     16;;;
    1717
    18 (use entropy-source entropy-port)
     18(include "srfi-27-common-types")
    1919
    2020;;; Entropy from CryptContext
     
    139139;;;
    140140
     141(: make-entropy-source-crypt (#!optional fixnum --> entropy-source))
     142;
    141143(define (make-entropy-source-crypt #!optional (buflen DEFAULT-CRYPT-BUFFLEN))
    142144  (make-entropy-source/port-open
  • release/4/srfi-27/trunk/srfi-27-numbers.scm

    r35477 r35486  
    5656    integer? real?
    5757    exact->inexact inexact->exact) )
     58
     59;;;
     60
     61(include "srfi-27-common-types")
    5862
    5963;;;
  • release/4/srfi-27/trunk/well512.scm

    r34855 r35486  
    1111(import chicken foreign)
    1212
    13 (import
     13(use (only numbers <= inexact->exact exact->inexact number?))
     14(use
    1415  srfi-4
    15   (only numbers <= inexact->exact exact->inexact number?)
    1616  random-source
    1717  entropy-source
     
    2020    random-large-integer random-large-real
    2121    native-real-precision?))
    22 (require-library
    23   srfi-4
    24   numbers
    25   random-source entropy-source
    26   srfi-27-numbers)
    2722
    2823(declare
Note: See TracChangeset for help on using the changeset viewer.