Changeset 18796 in project


Ignore:
Timestamp:
07/11/10 23:57:35 (10 years ago)
Author:
Kon Lovett
Message:

Forgot to export.

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

Legend:

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

    r18790 r18796  
    88    close-output-digest
    99    get-output-digest-string
     10    get-output-digest-byte-string
    1011    get-output-digest-hexstring
    1112    get-output-digest-blob
     
    5455  (let* ((md (begin-message-digest mdp))
    5556         (writer (cut message-digest-update-string md <>))
    56          (port (make-output-port writer void #f)) )
     57         (port (make-output-port writer void)) )
    5758    (##sys#set-port-data! port md)
    5859    (##sys#setslot port 7 'digest)
  • release/4/message-digest/trunk/message-digest.scm

    r18790 r18796  
    3333                begin-message-digest    ;start-message-digest ?
    3434                message-digest? check-message-digest error-message-digest
     35                message-digest-algorithm
     36                message-digest-context
    3537                end-message-digest      ;finish-message-digest ?
    3638                message-digest-update-object
     
    4042                message-digest-update-u8
    4143                message-digest-update-u16
     44                message-digest-update-u16-be
     45                message-digest-update-u16-le
    4246                message-digest-update-u32
     47                message-digest-update-u32-be
     48                message-digest-update-u32-le
    4349                message-digest-update-u64
     50                message-digest-update-u64-be
     51                message-digest-update-u64-le
    4452                message-digest-update-procedure
    4553                message-digest-update-port
     
    5159                message-digest-u8vector
    5260                message-digest-file
    53                 ; Old API
     61                ; DEPRECATED
    5462                make-binary-message-digest
    5563                make-message-digest
     
    240248        (*make-message-digest mdp ctx)
    241249        message-digest?
    242         (mdp message-digest-primitive)
     250        (mdp message-digest-algorithm)
    243251        (ctx message-digest-context) )
    244252
     
    253261(define (end-message-digest md #!optional (result-type 'hex))
    254262  (check-message-digest 'end-message-digest md)
    255   (let ((mdp (message-digest-primitive md))
     263  (let ((mdp (message-digest-algorithm md))
    256264        (ctx (message-digest-context md)) )
    257265    (let ((res (make-byte-string (message-digest-primitive-digest-length mdp))))
     
    261269(define (message-digest-update-object md src)
    262270  (check-message-digest 'message-digest-update-object md)
    263   (let ((mdp (message-digest-primitive md))
     271  (let ((mdp (message-digest-algorithm md))
    264272        (ctx (message-digest-context md)) )
    265273    (update-from-source 'message-digest-update ctx src (message-digest-primitive-update mdp)) ) )
    266274
    267275(define-inline (*message-digest-update-string md src)
    268   (let ((mdp (message-digest-primitive md))
     276  (let ((mdp (message-digest-algorithm md))
    269277        (ctx (message-digest-context md)) )
    270278    ((message-digest-primitive-update mdp) ctx src (byte-string-length src)) ) )
     
    276284
    277285(define-inline (*message-digest-update-blob md src)
    278   (let ((mdp (message-digest-primitive md))
     286  (let ((mdp (message-digest-algorithm md))
    279287        (ctx (message-digest-context md)) )
    280288    ((message-digest-primitive-update mdp) ctx src (blob-size src)) ) )
     
    439447  (check-message-digest 'message-digest-update-procedure md)
    440448  (check-procedure 'message-digest-update-procedure src)
    441   (let ((mdp (message-digest-primitive md))
     449  (let ((mdp (message-digest-algorithm md))
    442450        (ctx (message-digest-context md)) )
    443451    (update-while-procedure
     
    448456  (check-message-digest 'message-digest-update-port md)
    449457  (check-input-port 'message-digest-update-port src)
    450   (let ((mdp (message-digest-primitive md))
     458  (let ((mdp (message-digest-algorithm md))
    451459        (ctx (message-digest-context md)) )
    452460    (update-while-procedure
     
    460468    (handle-exceptions exn
    461469        (begin (close-input-port in) (abort exn))
    462       (let ((mdp (message-digest-primitive md))
     470      (let ((mdp (message-digest-algorithm md))
    463471            (ctx (message-digest-context md)) )
    464472        (update-while-procedure
     
    498506;;
    499507
    500 (define (message-digest-primitive-apply mdp src . args)
     508(define (message-digest-primitive-apply mdp src . args) ;DEPRECATED
    501509  (message-digest-object mdp src 'string) )
    502510
     
    504512
    505513(define (make-binary-message-digest src ctx-info digest-len init update final
    506                                     #!optional (name 'make-binary-message-digest))
     514                                    #!optional (name 'make-binary-message-digest)) ;DEPRECATED
    507515  (message-digest-object
    508516    (make-message-digest-primitive ctx-info digest-len init update final name)
     
    513521
    514522(define (make-message-digest src ctx-info digest-len init update final
    515                              #!optional (name 'make-message-digest))
     523                             #!optional (name 'make-message-digest)) ;DEPRECATED
    516524  (message-digest-object
    517525    (make-message-digest-primitive ctx-info digest-len init update final name)
  • release/4/message-digest/trunk/message-digest.setup

    r18680 r18796  
    1010
    1111(setup-shared-extension-module 'message-digest (extension-version "2.1.0")
    12   #:compile-options '(-optimize-level 3 -fixnum-arithmetic -no-procedure-checks))
     12  #:compile-options '(-scrutinize -optimize-level 3 -fixnum-arithmetic -no-procedure-checks))
    1313
    1414(setup-shared-extension-module 'message-digest-port (extension-version "2.1.0")
    15   #:compile-options '(-optimize-level 3 -fixnum-arithmetic -no-procedure-checks))
     15  #:compile-options '(-scrutinize -optimize-level 3 -fixnum-arithmetic -no-procedure-checks))
  • release/4/message-digest/trunk/tests/run.scm

    r18790 r18796  
    11;;;; message-digest-test.scm
    2 
    32
    43;; Issues
     
    5352        (test "6162206364" (byte-string->hexadecimal res)) ) )
    5453)
     54
     55(test-group "Message Digest Blob Source"
     56)
     57
     58(test-group "Message Digest u8vector Source"
     59)
     60
     61(test-group "Message Digest Port Source"
     62)
     63
     64(test-group "Message Digest Procedure Source"
     65)
     66
     67(test-group "Message Digest Integer Source"
     68)
     69
     70(test-group "Message Digest File Source"
     71)
Note: See TracChangeset for help on using the changeset viewer.