Changeset 35044 in project


Ignore:
Timestamp:
01/21/18 18:07:14 (4 weeks ago)
Author:
kon
Message:

why did i care ?

Location:
release/4/message-digest/trunk
Files:
13 edited

Legend:

Unmodified
Added
Removed
  • release/4/message-digest/trunk/message-digest-bv.scm

    r34426 r35044  
    2020  message-digest-update-substring)
    2121
    22 (import scheme)
     22(import scheme chicken)
    2323
    24 (import
    25   chicken
    26   (only srfi-13 substring/shared))
    27 (require-library
    28   srfi-13)
    29 
    30 (import
     24(use
     25  (only srfi-13 substring/shared)
    3126  (only type-checks
    32     check-blob check-string check-natural-fixnum check-range))
    33 (require-library
    34   type-checks)
    35 
    36 (require-extension
     27    check-blob check-string check-natural-fixnum check-range)
    3728  message-digest-primitive
    3829  message-digest-type
    3930  message-digest-support)
    4031
    41 (declare (bound-to-procedure ##sys#substring))
     32(declare
     33  (bound-to-procedure ##sys#substring))
    4234
    4335;;; Message Digest API
  • release/4/message-digest/trunk/message-digest-chunk.scm

    r34426 r35044  
    2323  message-digest-chunk-converter)
    2424
    25 (import scheme)
     25(import scheme chicken)
    2626
    27 (import chicken)
    28 
    29 (import
     27(use
    3028  (only posix file-size)
    3129  (only srfi-4
    3230    u8vector->blob/shared subu8vector
    33     read-u8vector! make-u8vector))
    34 (require-library
    35   posix srfi-4)
    36 
    37 (require-extension
     31    read-u8vector! make-u8vector)
    3832  miscmacros)
    3933
  • release/4/message-digest/trunk/message-digest-int.scm

    r34300 r35044  
    2525  message-digest-update-u64-le)
    2626
    27 (import scheme)
     27(import scheme chicken)
    2828
    29 (import chicken
     29(use
    3030  (only type-checks
    3131    check-integer check-char)
    3232  (only type-errors
    33     error-argument-type))
    34 (require-library
    35   type-checks
    36   type-errors)
    37 
    38 (require-extension
     33    error-argument-type)
    3934  message-digest-type
    4035  message-digest-support
  • release/4/message-digest/trunk/message-digest-item.scm

    r34434 r35044  
    1919  message-digest-port!)
    2020
    21 (import scheme)
     21(import scheme chicken)
    2222
    23 (import chicken)
    24 
    25 (require-extension
     23(use
    2624  message-digest-type
    2725  message-digest-update-item)
  • release/4/message-digest/trunk/message-digest-old.scm

    r34688 r35044  
    1818  message-digest-primitive-apply)
    1919
    20 (import scheme)
     20(import scheme chicken)
    2121
    22 (import chicken)
    23 
    24 (import (only string-hexadecimal string->hex))
    25 (require-library string-hexadecimal)
    26 
    27 (require-extension
     22(use
     23  (only string-hexadecimal string->hex)
    2824  message-digest-basic
    2925  message-digest-single)
  • release/4/message-digest/trunk/message-digest-port.scm

    r34302 r35044  
    1717  with-output-to-digest)
    1818
    19 (import scheme)
     19(import scheme chicken)
    2020
    21 (import
    22   chicken
     21(use
    2322  (only data-structures ->string)
    2423  (only ports make-output-port with-input-from-port)
    25   (only srfi-13 string-suffix-length-ci))
    26 (require-library
    27   data-structures
    28   ports
    29   srfi-13)
    30 
    31 (import
     24  (only srfi-13 string-suffix-length-ci)
    3225  (only type-checks define-check+error-type check-output-port)
    33   (only type-errors error-argument-type make-error-type-message signal-type-error))
    34 (require-library
    35   type-checks
    36   type-errors)
    37 
    38 (require-extension
     26  (only type-errors error-argument-type make-error-type-message signal-type-error)
    3927  message-digest-primitive
    4028  message-digest-type
  • release/4/message-digest/trunk/message-digest-primitive.scm

    r34396 r35044  
    2626  message-digest-primitive-raw-update)
    2727
    28 (import scheme)
     28(import scheme chicken)
    2929
    30 (import chicken)
    31 
    32 (import
     30(use
    3331  (only type-checks
    3432    define-check+error-type
     
    3735  (only type-errors
    3836    error-argument-type))
    39 (require-library
    40   type-checks
    41   type-errors)
    4237
    4338;;; Support
     
    5247
    5348(define (primitive-name? obj)
    54   (or (symbol? obj) (string? obj)) )
     49  #t )
    5550
    5651;;; Message Digest Algorithm API
  • release/4/message-digest/trunk/message-digest-srfi-4.scm

    r34426 r35044  
    2020  )
    2121
    22 (import scheme)
     22(import scheme chicken)
    2323
    24 (import
    25   chicken
     24(use
    2625  data-structures
    2726  srfi-4
    28   (only lolevel number-of-bytes))
    29 (require-library
    30   data-structures
    31   srfi-4
    32   lolevel)
    33 
    34 (import
     27  (only lolevel number-of-bytes)
    3528  (only srfi-4-checks check-u8vector)
    36   (only type-errors error-argument-type))
    37 (require-library
    38   type-errors)
    39 
    40 (require-extension
     29  (only type-errors error-argument-type)
    4130  message-digest-primitive
    4231  message-digest-type
     
    5039(define (get-bytevector-object loc obj)
    5140        (cond
    52                 ((string? obj)                                                                            (string->blob obj) )
    53                 ((blob? obj)                                                                                      obj )
    54                 ((packed-vector->blob/shared obj)   )
     41                ((string? obj)
     42                  (string->blob obj) )
     43                ((blob? obj)
     44                  obj )
     45                ((packed-vector->blob/shared obj)
     46                  )
    5547                (else
    5648        (error-argument-type loc obj "string, blob, or SRFI 4 vector" obj) ) ) )
  • release/4/message-digest/trunk/message-digest-support.scm

    r34426 r35044  
    2323  *message-digest-update-string)
    2424
    25 (import scheme)
     25(import scheme chicken)
    2626
    27 (import
    28   chicken
     27(use
    2928  (only lolevel number-of-bytes)
    3029  (only srfi-4
     
    4948    f32vector->blob/shared
    5049    f64vector->blob/shared
    51     subu8vector u8vector-length))
    52 (require-library
    53   lolevel
    54   srfi-4)
    55 
    56 (require-extension
     50    subu8vector u8vector-length)
    5751  message-digest-primitive
    5852  message-digest-type
  • release/4/message-digest/trunk/message-digest-type.scm

    r34396 r35044  
    2222  setup-message-digest-buffer!)
    2323
    24 (import scheme)
     24(import scheme chicken)
    2525
    26 (import
    27   chicken
     26(use
    2827  (only lolevel allocate free number-of-bytes)
    29   (only srfi-4 blob->u8vector/shared u8vector-length u8vector?))
    30 (require-library
    31   lolevel
    32   srfi-4)
    33 
    34 (import
     28  (only srfi-4 blob->u8vector/shared u8vector-length u8vector?)
    3529  (only blob-hexadecimal blob->hex)
    3630  (only string-hexadecimal string->hex)
     
    3832    define-check+error-type)
    3933  (only type-errors
    40     error-argument-type))
    41 (require-library
    42   blob-hexadecimal
    43   string-hexadecimal
    44   type-checks
    45   type-errors)
    46 
    47 (require-extension
     34    error-argument-type)
    4835  miscmacros
    4936  message-digest-primitive)
  • release/4/message-digest/trunk/message-digest-update-item.scm

    r34426 r35044  
    1515  message-digest-update-file)
    1616
    17 (import scheme)
     17(import scheme chicken)
    1818
    19 (import chicken)
    20 
    21 (import
    22   (only lolevel number-of-bytes pointer?))
    23 (require-library
    24   lolevel)
    25 
    26 (import
     19(use
     20  (only lolevel number-of-bytes pointer?)
    2721  (only posix
    2822    file-open file-close
    2923    open/rdonly
    30     directory?))
    31 (require-library
    32   posix)
    33 
    34 (import
    35   (only miscmacros while*))
    36 (require-library
    37   miscmacros)
    38 
    39 (require-extension
     24    directory?)
     25    (only miscmacros while*)
    4026  message-digest-primitive
    4127  message-digest-type
  • release/4/message-digest/trunk/message-digest.setup

    r34562 r35044  
    99  -no-procedure-checks-for-toplevel-bindings))
    1010
    11 (setup-shared+static-extension-module 'message-digest-primitive (extension-version "3.7.1")
     11(setup-shared+static-extension-module 'message-digest-primitive (extension-version "3.8.0")
    1212  #:inline? #t
    1313        #:types? #t
    1414  #:compile-options *md-csc-optn*)
    1515
    16 (setup-shared+static-extension-module 'message-digest-type (extension-version "3.7.1")
     16(setup-shared+static-extension-module 'message-digest-type (extension-version "3.8.0")
    1717  #:inline? #t
    1818        #:types? #t
    1919  #:compile-options *md-csc-optn*)
    2020
    21 (setup-shared+static-extension-module 'message-digest-chunk (extension-version "3.7.1")
     21(setup-shared+static-extension-module 'message-digest-chunk (extension-version "3.8.0")
    2222  #:inline? #t
    2323        #:types? #t
    2424  #:compile-options *md-csc-optn*)
    2525
    26 (setup-shared+static-extension-module 'message-digest-parameters (extension-version "3.7.1")
     26(setup-shared+static-extension-module 'message-digest-parameters (extension-version "3.8.0")
    2727  #:inline? #t
    2828        #:types? #t
    2929  #:compile-options *md-csc-optn*)
    3030
    31 (setup-shared+static-extension-module 'message-digest-support (extension-version "3.7.1")
     31(setup-shared+static-extension-module 'message-digest-support (extension-version "3.8.0")
    3232  #:inline? #t
    3333        #:types? #t
    3434  #:compile-options *md-csc-optn*)
    3535
    36 (setup-shared+static-extension-module 'message-digest-bv (extension-version "3.7.1")
     36(setup-shared+static-extension-module 'message-digest-bv (extension-version "3.8.0")
    3737  #:inline? #t
    3838        #:types? #t
    3939  #:compile-options *md-csc-optn*)
    4040
    41 (setup-shared+static-extension-module 'message-digest-int (extension-version "3.7.1")
     41(setup-shared+static-extension-module 'message-digest-int (extension-version "3.8.0")
    4242  #:inline? #t
    4343        #:types? #t
    4444  #:compile-options *md-csc-optn*)
    4545
    46 (setup-shared+static-extension-module 'message-digest-srfi-4 (extension-version "3.7.1")
     46(setup-shared+static-extension-module 'message-digest-srfi-4 (extension-version "3.8.0")
    4747  #:inline? #t
    4848        #:types? #t
    4949  #:compile-options *md-csc-optn*)
    5050
    51 (setup-shared+static-extension-module 'message-digest-update-item (extension-version "3.7.1")
     51(setup-shared+static-extension-module 'message-digest-update-item (extension-version "3.8.0")
    5252  #:inline? #t
    5353        #:types? #t
    5454  #:compile-options *md-csc-optn*)
    5555
    56 (setup-shared+static-extension-module 'message-digest-item (extension-version "3.7.1")
     56(setup-shared+static-extension-module 'message-digest-item (extension-version "3.8.0")
    5757  #:inline? #t
    5858        #:types? #t
    5959  #:compile-options *md-csc-optn*)
    6060
    61 (setup-shared+static-extension-module 'message-digest-port (extension-version "3.7.1")
     61(setup-shared+static-extension-module 'message-digest-port (extension-version "3.8.0")
    6262  #:inline? #t
    6363        #:types? #t
    6464  #:compile-options *md-csc-optn*)
    6565
    66 (setup-shared+static-extension-module 'message-digest-basic (extension-version "3.7.1")
     66(setup-shared+static-extension-module 'message-digest-basic (extension-version "3.8.0")
    6767  #:inline? #t
    6868        #:types? #t
    6969  #:compile-options *md-csc-optn*)
    7070
    71 (setup-shared+static-extension-module 'message-digest (extension-version "3.7.1")
     71(setup-shared+static-extension-module 'message-digest (extension-version "3.8.0")
    7272  #:inline? #t
    7373        #:types? #t
  • release/4/message-digest/trunk/tests/run.scm

    r34851 r35044  
     1
     2(define EGG-NAME "message-digest")
    13
    24;chicken-install invokes as "<csi> -s run.scm <eggnam> <eggdir>"
    3 
    4 (define *egg-name* "message-digest")
    55
    66(use files)
     
    1111(define *args* (argv))
    1212
    13 (define (test-name #!optional (eggnam *egg-name*))
     13(define (test-name #!optional (eggnam EGG-NAME))
    1414  (string-append eggnam "-test") )
    1515
    16 (define (egg-name #!optional (def *egg-name*))
     16(define (egg-name #!optional (def EGG-NAME))
    1717  (cond
    1818    ((<= 4 (length *args*))
     
    2525;;;
    2626
    27 (set! *egg-name* (egg-name))
     27(set! EGG-NAME (egg-name))
    2828
    29 (define (run-test #!optional (eggnam *egg-name*) (cscopts *csc-options*))
     29(define (run-test #!optional (eggnam EGG-NAME) (cscopts *csc-options*))
    3030  (let ((tstnam (test-name eggnam)))
    3131    (print "*** csi ***")
     
    3636    (system (make-pathname (cond-expand (unix "./") (else #f)) tstnam)) ) )
    3737
     38(define (run-tests eggnams #!optional (cscopts *csc-options*))
     39  (for-each (cut run-test <> cscopts) eggnams) )
     40
    3841;;;
    3942
Note: See TracChangeset for help on using the changeset viewer.