Ignore:
Timestamp:
03/25/18 19:50:42 (2 years ago)
Author:
Kon Lovett
Message:

add types, message-digest-result-form -> -type, -form is symbol, -byte-order is symbol, do not type check-/error- (no no no no no)

File:
1 edited

Legend:

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

    r35339 r35341  
    3535;;
    3636
    37 (define: (message-digest-object (mdp message-digest-primitive) (obj *) . (opts list)) -> message-digest-result-form
     37(define: (message-digest-object (mdp message-digest-primitive) (obj *) . (opts list)) -> message-digest-result-type
    3838  (let-optionals* opts (
    39     (result-type (message-digest-result-form))
     39    (restyp (message-digest-result-form))
    4040    (start 0)
    4141    (end #f) )
    4242    (let ((md (initialize-message-digest mdp)))
    4343      (message-digest-update-object md obj start end)
    44       (finalize-message-digest md result-type) ) ) )
     44      (finalize-message-digest md restyp) ) ) )
    4545
    46 (define: (message-digest-file (mdp message-digest-primitive) (flnm pathname) . (opts list)) -> message-digest-result-form
    47   (let* (
    48     (result-type (message-digest-result-form))
     46(define: (message-digest-file (mdp message-digest-primitive) (flnm pathname) . (opts list)) -> message-digest-result-type
     47  (let (
     48    (restyp (message-digest-result-form))
    4949    (md (initialize-message-digest mdp)) )
    5050    (message-digest-update-file md flnm)
    51     (finalize-message-digest md result-type) ) )
     51    (finalize-message-digest md restyp) ) )
    5252
    53 (define: (message-digest-port (mdp message-digest-primitive) (port output-port) . (opts list)) -> message-digest-result-form
    54   (let* (
    55     (result-type (message-digest-result-form))
     53(define: (message-digest-port (mdp message-digest-primitive) (port output-port) . (opts list)) -> message-digest-result-type
     54  (let (
     55    (restyp (message-digest-result-form))
    5656    (md (initialize-message-digest mdp)) )
    5757    (message-digest-update-port md port)
    58     (finalize-message-digest md result-type) ) )
     58    (finalize-message-digest md restyp) ) )
    5959
    6060;;
    6161
    62 (define: (message-digest-object! (mdp message-digest-primitive) (obj *) (buf message-digest-buffer) . (opts list)) -> message-digest-result-form
     62(define: (message-digest-object! (mdp message-digest-primitive) (obj *) (buf message-digest-buffer) . (opts list)) -> message-digest-result-type
    6363  (let-optionals* opts (
    6464    (start 0)
     
    6969      (finalize-message-digest! md buf) ) ) )
    7070
    71 (define: (message-digest-file! (mdp message-digest-primitive) (flnm pathname) (buf message-digest-buffer)) -> message-digest-result-form
     71(define: (message-digest-file! (mdp message-digest-primitive) (flnm pathname) (buf message-digest-buffer)) -> message-digest-result-type
    7272  (let (
    7373    (md (initialize-message-digest mdp)) )
     
    7575    (finalize-message-digest! md buf) ) )
    7676
    77 (define: (message-digest-port! (mdp message-digest-primitive) (port output-port) (buf message-digest-buffer)) -> message-digest-result-form
    78   (let ((md (initialize-message-digest mdp)))
     77(define: (message-digest-port! (mdp message-digest-primitive) (port output-port) (buf message-digest-buffer)) -> message-digest-result-type
     78  (let (
     79    (md (initialize-message-digest mdp)) )
    7980    (message-digest-update-port md port)
    8081    (finalize-message-digest! md buf) ) )
Note: See TracChangeset for help on using the changeset viewer.