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-bv.scm

    r35340 r35341  
    3737
    3838;;
     39
     40;FIXME do not 'type' check-/error- procs
    3941
    4042(define (check-blob/slice loc blb start end)
     
    8284;; Single Source API
    8385
    84 (define: (message-digest-blob (mdp message-digest-primitive) (blb blob) . (opts list)) -> message-digest-result-form
     86(define: (message-digest-blob (mdp message-digest-primitive) (blb blob) . (opts list)) -> message-digest-result-type
    8587  (let-optionals* opts (
    86     (result-type (message-digest-result-form))
     88    (restyp (message-digest-result-form))
    8789    (start 0)
    8890    (end (blob-size blb)) )
     
    9092      (md (initialize-message-digest mdp)) )
    9193      (message-digest-update-blob md blb start end)
    92       (finalize-message-digest md result-type) ) ) )
     94      (finalize-message-digest md restyp) ) ) )
    9395
    94 (define: (message-digest-string (mdp message-digest-primitive) (str string) . (opts list)) -> message-digest-result-form
     96(define: (message-digest-string (mdp message-digest-primitive) (str string) . (opts list)) -> message-digest-result-type
    9597  (let-optionals* opts (
    96     (result-type (message-digest-result-form))
     98    (restyp (message-digest-result-form))
    9799    (start 0)
    98100    (end (string-length str)) )
     
    100102      (md (initialize-message-digest mdp)) )
    101103      (message-digest-update-string md str start end)
    102       (finalize-message-digest md result-type) ) ) )
     104      (finalize-message-digest md restyp) ) ) )
    103105
    104 (define: (message-digest-blob! (mdp message-digest-primitive) (blb blob) (buf message-digest-buffer) . (opts list)) -> message-digest-result-form
     106(define: (message-digest-blob! (mdp message-digest-primitive) (blb blob) (buf message-digest-buffer) . (opts list)) -> message-digest-result-type
    105107  (let-optionals* opts (
    106108    (start 0)
     
    111113      (finalize-message-digest! md buf) ) ) )
    112114
    113 (define: (message-digest-string! (mdp message-digest-primitive) (str string) (buf message-digest-buffer) . (opts list)) -> message-digest-result-form
     115(define: (message-digest-string! (mdp message-digest-primitive) (str string) (buf message-digest-buffer) . (opts list)) -> message-digest-result-type
    114116  (let-optionals* opts (
    115117    (start 0)
Note: See TracChangeset for help on using the changeset viewer.