Changeset 38984 in project


Ignore:
Timestamp:
09/01/20 00:52:30 (4 weeks ago)
Author:
Kon Lovett
Message:

export record id

Location:
release/5/message-digest-type/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/5/message-digest-type/trunk/message-digest-type.egg

    r38952 r38984  
    44
    55((synopsis "Message Digest Type")
    6  (version "4.2.0")
     6 (version "4.2.1")
    77 (category crypt)
    88 (author "[[kon lovett]]")
  • release/5/message-digest-type/trunk/message-digest-type.scm

    r38512 r38984  
    1818
    1919(;export
     20  ;
    2021  message-digest-result-form
    2122  ;MD API
     23  message-digest
    2224  message-digest? check-message-digest error-message-digest
    2325  message-digest-algorithm message-digest-context
     
    4547(include "message-digest-type.types")
    4648
     49(: canonical-result-name (message-digest-result-form -> (or boolean message-digest-result-form)))
     50(: get-result-form (symbol blob message-digest-result-form -> message-digest-result-type))
     51(: check-result-type (symbol message-digest-primitive message-digest-result-type -> message-digest-result-type))
     52(: message-digest-result-form (#!optional message-digest-result-form -> message-digest-result-form))
     53(: *make-message-digest (message-digest-primitive message-digest-primitive-context (or boolean message-digest-buffer) -> message-digest))
     54(: message-digest? (* -> boolean : message-digest))
     55(: message-digest-algorithm (message-digest -> message-digest-primitive))
     56(: message-digest-context (message-digest -> message-digest-primitive-context))
     57(: message-digest-buffer (message-digest -> (or boolean message-digest-buffer)))
     58(: message-digest-buffer-set! (message-digest (or boolean message-digest-buffer) -> void))
     59(: new-message-digest-buffer (message-digest fixnum -> message-digest-buffer))
     60(: new-message-digest (message-digest-primitive message-digest-primitive-context -> message-digest))
     61(: *finalize-message-digest (message-digest-buffer message-digest message-digest-primitive -> message-digest-buffer))
     62(: initialize-message-digest (message-digest-primitive -> message-digest))
     63(: ensure-message-digest-buffer! (message-digest fixnum -> message-digest-buffer))
     64(: finalize-message-digest (message-digest #!optional message-digest-result-form -> message-digest-result-type))
     65(: finalize-message-digest! (message-digest message-digest-buffer -> message-digest-result-type))
     66
    4767;;
    4868
     
    5878  (error-argument-type loc obj "symbol in {string hex blob u8vector}" 'result-form) )
    5979
    60 (: canonical-result-name (message-digest-result-form -> (or boolean message-digest-result-form)))
    6180;
    6281(define-inline (canonical-result-name x)
     
    7190;perform any conversion necessary for final result representation
    7291
    73 (: get-result-form (symbol blob message-digest-result-form -> message-digest-result-type))
    7492;
    7593(define-inline (get-result-form loc res restyp)
     
    106124      (error-result-form loc restyp) ) ) )
    107125
    108 (: check-result-type (symbol message-digest-primitive message-digest-result-type -> message-digest-result-type))
    109126;
    110127(define-inline (check-result-type loc mdp obj)
     
    127144;;
    128145
    129 (: message-digest-result-form (#!optional message-digest-result-form -> message-digest-result-form))
    130146;
    131147(define message-digest-result-form (make-parameter DEFAULT-RESULT-TYPE
     
    140156;;
    141157
    142 (: *make-message-digest (message-digest-primitive message-digest-primitive-context (or boolean message-digest-buffer) -> message-digest))
    143 (: message-digest? (* -> boolean : message-digest))
    144 (: message-digest-algorithm (message-digest -> message-digest-primitive))
    145 (: message-digest-context (message-digest -> message-digest-primitive-context))
    146 (: message-digest-buffer (message-digest -> (or boolean message-digest-buffer)))
    147 (: message-digest-buffer-set! (message-digest (or boolean message-digest-buffer) -> void))
    148158;
    149159(define-record-type message-digest
     
    158168;; Support
    159169
    160 (: new-message-digest-buffer (message-digest fixnum -> message-digest-buffer))
    161170;
    162171(define-inline (new-message-digest-buffer md siz)
     
    165174    buf ) )
    166175
    167 (: new-message-digest (message-digest-primitive message-digest-primitive-context -> message-digest))
    168176;
    169177(define-inline (new-message-digest mdp ctx)
     
    171179  (*make-message-digest mdp ctx #f) )
    172180
    173 (: *finalize-message-digest (message-digest-buffer message-digest message-digest-primitive -> message-digest-buffer))
    174181;
    175182(define-inline (*finalize-message-digest res md mdp)
     
    181188;;
    182189
    183 (: initialize-message-digest (message-digest-primitive -> message-digest))
    184190;
    185191(define (initialize-message-digest mdp)
     
    194200;;
    195201
    196 (: ensure-message-digest-buffer! (message-digest fixnum -> message-digest-buffer))
    197202;
    198203(define (ensure-message-digest-buffer! md siz)
     
    209214;;
    210215
    211 (: finalize-message-digest (message-digest #!optional message-digest-result-form -> message-digest-result-type))
    212216;
    213217(define (finalize-message-digest md #!optional (restyp (message-digest-result-form)))
     
    218222    (get-result-form 'finalize-message-digest res restyp) ) )
    219223
    220 (: finalize-message-digest! (message-digest message-digest-buffer -> message-digest-result-type))
    221224;
    222225(define (finalize-message-digest! md resbuf)
Note: See TracChangeset for help on using the changeset viewer.