Changeset 35338 in project
- Timestamp:
- 03/25/18 04:49:47 (3 years ago)
- Location:
- release/4/message-digest/trunk
- Files:
-
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/message-digest/trunk/message-digest-basic.scm
r34373 r35338 7 7 (module message-digest-basic () 8 8 9 (import scheme) 10 11 (import chicken) 9 (import scheme chicken) 12 10 13 11 (reexport -
release/4/message-digest/trunk/message-digest-int.scm
r35044 r35338 34 34 message-digest-type 35 35 message-digest-support 36 blob-set-int) 36 blob-set-int 37 typed-define) 37 38 38 39 ;;; Support 40 39 41 ;; 40 42 41 (define (get-byte-order loc obj) 43 (define-type message-digest (struct message-digest)) 44 45 ;; 46 47 (define: (get-byte-order (loc symbol) (obj *)) --> symbol 42 48 (case obj 43 49 ((big-endian be big msb) 'big-endian ) … … 48 54 ;; 49 55 50 (define (*message-digest-update-uint loc md n size setter) 51 (let ((blb (setup-message-digest-buffer! (check-message-digest loc md) size))) 56 (define: (*message-digest-update-uint (loc symbol) (md message-digest) (n number) (size fixnum) (setter procedure)) -> void 57 (let ( 58 (blb (setup-message-digest-buffer! (check-message-digest loc md) size)) ) 52 59 (setter blb (check-integer loc n) 0) 53 60 (*message-digest-update-blob md blb size) ) ) … … 57 64 ;; Char 58 65 59 (define (message-digest-update-char-u8 md ch) 60 (*message-digest-update-uint 61 'message-digest-update-char-u8 66 (define: (message-digest-update-char-u8 (md message-digest) (ch char)) -> void 67 (*message-digest-update-uint 'message-digest-update-char-u8 62 68 md 63 69 (char->integer (check-char 'message-digest-update-char-u8 ch)) … … 65 71 *blob-set-u8!) ) 66 72 67 (define (message-digest-update-char-be md ch) 68 (*message-digest-update-uint 69 'message-digest-update-char-be 73 (define: (message-digest-update-char-be (md message-digest) (ch char)) -> void 74 (*message-digest-update-uint 'message-digest-update-char-be 70 75 md 71 76 (char->integer (check-char 'message-digest-update-char ch)) … … 73 78 *blob-set-u32-be!) ) 74 79 75 (define (message-digest-update-char-le md ch) 76 (*message-digest-update-uint 77 'message-digest-update-char-le 80 (define: (message-digest-update-char-le (md message-digest) (ch char)) -> void 81 (*message-digest-update-uint 'message-digest-update-char-le 78 82 md 79 83 (char->integer (check-char 'message-digest-update-char ch)) … … 83 87 ;; Unsigned Integer 8, 16, 32, & 64 bits 84 88 85 (define (message-digest-update-u8 md n)89 (define: (message-digest-update-u8 (md message-digest) (n number)) -> void 86 90 (*message-digest-update-uint 'message-digest-update-u8 md n 1 *blob-set-u8!) ) 87 91 88 (define (message-digest-update-u16-be md n)92 (define: (message-digest-update-u16-be (md message-digest) (n number)) -> void 89 93 (*message-digest-update-uint 'message-digest-update-u16-be md n 2 *blob-set-u16-be!) ) 90 94 91 (define (message-digest-update-u16-le md n)95 (define: (message-digest-update-u16-le (md message-digest) (n number)) -> void 92 96 (*message-digest-update-uint 'message-digest-update-u16-le md n 2 *blob-set-u16-le!) ) 93 97 94 (define (message-digest-update-u32-be md n)98 (define: (message-digest-update-u32-be (md message-digest) (n number)) -> void 95 99 (*message-digest-update-uint 'message-digest-update-u32-be md n 4 *blob-set-u32-be!) ) 96 100 97 (define (message-digest-update-u32-le md n)101 (define: (message-digest-update-u32-le (md message-digest) (n number)) -> void 98 102 (*message-digest-update-uint 'message-digest-update-u32-le md n 4 *blob-set-u32-le!) ) 99 103 100 (define (message-digest-update-u64-be md n)104 (define: (message-digest-update-u64-be (md message-digest) (n number)) -> void 101 105 (*message-digest-update-uint 'message-digest-update-u64-be md n 8 *blob-set-u64-be!) ) 102 106 103 (define (message-digest-update-u64-le md n)107 (define: (message-digest-update-u64-le (md message-digest) (n number)) -> void 104 108 (*message-digest-update-uint 'message-digest-update-u64-le md n 8 *blob-set-u64-le!) ) 105 109 106 110 ;; Machine Byte Order w/ Char & Unsigned Integer 107 111 108 (define (message-digest-update-char md ch #!optional (order (machine-byte-order))) 109 (case (get-byte-order 'message-digest-update-char order) 110 ((little-endian) (message-digest-update-char-le md ch) ) 111 ((big-endian) (message-digest-update-char-be md ch) ) ) ) 112 (define: (message-digest-update-char (md message-digest) (ch char) . (opts (list-of symbol))) -> void 113 (let ( 114 (order (optional opts (machine-byte-order))) ) 115 (case (get-byte-order 'message-digest-update-char order) 116 ((little-endian) (message-digest-update-char-le md ch) ) 117 ((big-endian) (message-digest-update-char-be md ch) ) ) ) ) 112 118 113 (define (message-digest-update-u16 md n #!optional (order (machine-byte-order))) 114 (case (get-byte-order 'message-digest-update-u16 order) 115 ((little-endian) (message-digest-update-u16-le md n) ) 116 ((big-endian) (message-digest-update-u16-be md n) ) ) ) 119 (define: (message-digest-update-u16 (md message-digest) (n number) . (opts (list-of symbol))) -> void 120 (let ( 121 (order (optional opts (machine-byte-order))) ) 122 (case (get-byte-order 'message-digest-update-u16 order) 123 ((little-endian) (message-digest-update-u16-le md n) ) 124 ((big-endian) (message-digest-update-u16-be md n) ) ) ) ) 117 125 118 (define (message-digest-update-u32 md n #!optional (order (machine-byte-order))) 119 (case (get-byte-order 'message-digest-update-u32 order) 120 ((little-endian) (message-digest-update-u32-le md n) ) 121 ((big-endian) (message-digest-update-u32-be md n) ) ) ) 126 (define: (message-digest-update-u32 (md message-digest) (n number) . (opts (list-of symbol))) -> void 127 (let ( 128 (order (optional opts (machine-byte-order))) ) 129 (case (get-byte-order 'message-digest-update-u32 order) 130 ((little-endian) (message-digest-update-u32-le md n) ) 131 ((big-endian) (message-digest-update-u32-be md n) ) ) ) ) 122 132 123 (define (message-digest-update-u64 md n #!optional (order (machine-byte-order))) 124 (case (get-byte-order 'message-digest-update-u64 order) 125 ((little-endian) (message-digest-update-u64-le md n) ) 126 ((big-endian) (message-digest-update-u64-be md n) ) ) ) 133 (define: (message-digest-update-u64 (md message-digest) (n number) . (opts (list-of symbol))) -> void 134 (let ( 135 (order (optional opts (machine-byte-order))) ) 136 (case (get-byte-order 'message-digest-update-u64 order) 137 ((little-endian) (message-digest-update-u64-le md n) ) 138 ((big-endian) (message-digest-update-u64-be md n) ) ) ) ) 127 139 128 140 ) ;module message-digest-int -
release/4/message-digest/trunk/message-digest-item.scm
r35044 r35338 20 20 21 21 (import scheme chicken) 22 23 22 (use 24 23 message-digest-type 25 message-digest-update-item) 24 message-digest-update-item 25 typed-define) 26 27 ;;; 28 29 (define-type pathname string) 30 31 (define-type message-digest-primitive (struct message-digest-primitive)) 32 33 (define-type message-digest-buffer (or string blob u8vector)) 34 35 (define-type message-digest-result-form (or string blob u8vector)) 26 36 27 37 ;;; Single Source API … … 29 39 ;; 30 40 31 (define (message-digest-object mdp obj #!optional (result-type (message-digest-result-form)) (start 0) (end #f)) 32 (let ((md (initialize-message-digest mdp))) 33 (message-digest-update-object md obj start end) 34 (finalize-message-digest md result-type) ) ) 41 (define: (message-digest-object (mdp message-digest-primitive) (obj *) . (opts list)) -> message-digest-result-form 42 (let-optionals* opts ( 43 (result-type (message-digest-result-form)) 44 (start 0) 45 (end #f) ) 46 (let ((md (initialize-message-digest mdp))) 47 (message-digest-update-object md obj start end) 48 (finalize-message-digest md result-type) ) ) ) 35 49 36 (define (message-digest-file mdp flnm #!optional (result-type (message-digest-result-form))) 37 (let ((md (initialize-message-digest mdp))) 50 (define: (message-digest-file (mdp message-digest-primitive) (flnm pathname) . (opts list)) -> message-digest-result-form 51 (let* ( 52 (result-type (message-digest-result-form)) 53 (md (initialize-message-digest mdp)) ) 38 54 (message-digest-update-file md flnm) 39 55 (finalize-message-digest md result-type) ) ) 40 56 41 (define (message-digest-port mdp port #!optional (result-type (message-digest-result-form))) 42 (let ((md (initialize-message-digest mdp))) 57 (define: (message-digest-port (mdp message-digest-primitive) (port output-port) . (opts list)) -> message-digest-result-form 58 (let* ( 59 (result-type (message-digest-result-form)) 60 (md (initialize-message-digest mdp)) ) 43 61 (message-digest-update-port md port) 44 62 (finalize-message-digest md result-type) ) ) … … 46 64 ;; 47 65 48 (define (message-digest-object! mdp obj buffer #!optional (start 0) (end #f)) 49 (let ((md (initialize-message-digest mdp))) 50 (message-digest-update-object md obj start end) 51 (finalize-message-digest! md buffer) ) ) 66 (define: (message-digest-object! (mdp message-digest-primitive) (obj *) (buf message-digest-buffer) . (opts list)) -> message-digest-result-form 67 (let-optionals* opts ( 68 (start 0) 69 (end #f) ) 70 (let ( 71 (md (initialize-message-digest mdp)) ) 72 (message-digest-update-object md obj start end) 73 (finalize-message-digest! md buf) ) ) ) 52 74 53 (define (message-digest-file! mdp flnm buffer) 54 (let ((md (initialize-message-digest mdp))) 75 (define: (message-digest-file! (mdp message-digest-primitive) (flnm pathname) (buf message-digest-buffer)) -> message-digest-result-form 76 (let ( 77 (md (initialize-message-digest mdp)) ) 55 78 (message-digest-update-file md flnm) 56 (finalize-message-digest! md buf fer) ) )79 (finalize-message-digest! md buf) ) ) 57 80 58 (define (message-digest-port! mdp port buffer)81 (define: (message-digest-port! (mdp message-digest-primitive) (port output-port) (buf message-digest-buffer)) -> message-digest-result-form 59 82 (let ((md (initialize-message-digest mdp))) 60 83 (message-digest-update-port md port) 61 (finalize-message-digest! md buf fer) ) )84 (finalize-message-digest! md buf) ) ) 62 85 63 86 ) ;module message-digest-item -
release/4/message-digest/trunk/message-digest-primitive.scm
r35044 r35338 27 27 28 28 (import scheme chicken) 29 30 29 (use 31 30 (only type-checks … … 34 33 check-procedure) 35 34 (only type-errors 36 error-argument-type)) 35 error-argument-type) 36 typed-define) 37 37 38 38 ;;; Support 39 40 (define-type message-digest-primitive (struct message-digest-primitive)) 39 41 40 42 ;; … … 53 55 ;; 54 56 55 (define (check-message-digest-arguments loc ctx-info digest-len init update final block-len name raw-update)57 (define-inline (check-message-digest-arguments loc ctx-info digest-len init update final block-len name raw-update) 56 58 (unless (primitive-ctx-info? ctx-info) 57 59 (error-argument-type loc ctx-info "positive-fixnum or procedure" 'context-info) ) … … 68 70 ;; 69 71 70 (define -record-type message-digest-primitive72 (define:-record-type message-digest-primitive 71 73 (*make-message-digest-primitive ctxi digest-len init update final block-len name raw-update) 72 74 message-digest-primitive? 73 (ctxi message-digest-primitive-context-info)74 (digest-len message-digest-primitive-digest-length)75 (init message-digest-primitive-init)76 (update message-digest-primitive-update)77 (final message-digest-primitive-final)78 (block-len message-digest-primitive-block-length)79 (name message-digest-primitive-name)80 (raw-update message-digest-primitive-raw-update) )75 (ctxi (or fixnum procedure) message-digest-primitive-context-info) 76 (digest-len fixnum message-digest-primitive-digest-length) 77 (init procedure message-digest-primitive-init) 78 (update procedure message-digest-primitive-update) 79 (final procedure message-digest-primitive-final) 80 (block-len fixnum message-digest-primitive-block-length) 81 (name * message-digest-primitive-name) 82 (raw-update procedure message-digest-primitive-raw-update) ) 81 83 82 84 (define-check+error-type message-digest-primitive) 83 85 84 (define (make-message-digest-primitive ctx-info digest-len init update final . rest) 86 (define: (make-message-digest-primitive 87 (ctx-info (or fixnum procedure)) (digest-len fixnum) 88 (init procedure) (update procedure) (final procedure) 89 . (opts (list-of *))) -> message-digest-primitive 85 90 ; 86 91 (define (pull-arg args pred defprc) … … 89 94 (values (defprc) args) ) ) 90 95 ; 91 (let*-values (((block-len rest) (pull-arg rest number? (lambda () 4))) 92 ((name rest) (pull-arg rest primitive-name? (lambda () (gensym 'message-digest-primitive)))) 93 ((raw-update rest) (pull-arg rest procedure? (lambda () #f))) ) 96 (let*-values ( 97 ((block-len opts) 98 (pull-arg opts number? (lambda () 4))) 99 ((name opts) 100 (pull-arg opts (lambda (x) (not (procedure? x))) (lambda () (gensym 'mdp)))) 101 ((raw-update opts) 102 (pull-arg opts procedure? (lambda () #f))) ) 94 103 (check-message-digest-arguments 'make-message-digest-primitive 95 104 ctx-info digest-len init update final block-len name raw-update) -
release/4/message-digest/trunk/message-digest-support.scm
r35044 r35338 51 51 message-digest-primitive 52 52 message-digest-type 53 fx-utils) 53 fx-utils 54 typed-define) 54 55 55 56 ;;; Support … … 57 58 ;; 58 59 60 (define-type srfi4vector (or u8vector s8vector u16vector s16vector u32vector s32vector f32vector f64vector)) 61 62 (define-type message-digest (struct message-digest)) 63 64 ;; 65 59 66 ;Used by update-item & srfi-4 modules 60 (define (packed-vector->blob/shared obj) 67 68 (define: (packed-vector->blob/shared (obj srfi4vector)) -> (or boolean blob) 61 69 (cond 62 70 ((u8vector? obj) (u8vector->blob/shared obj)) … … 74 82 ;; 75 83 76 (define (u8vector/slice u8vec start end)84 (define: (u8vector/slice (u8vec u8vector) (start fixnum) (end (or boolean fixnum))) -> u8vector 77 85 (let ((end (or end (u8vector-length u8vec)))) 78 86 (if (and (fxzero? start) (fx= end (u8vector-length u8vec))) … … 80 88 (subu8vector u8vec start end) ) ) ) 81 89 82 (define (blob/slice blb start end) 83 (let ((end (or end (blob-size blb)))) 90 (define: (blob/slice (blb blob) (start fixnum) (end (or boolean fixnum))) -> blob 91 (let ( 92 (end (or end (blob-size blb))) ) 84 93 (if (and (fxzero? start) (fx= end (blob-size blb))) 85 94 blb 86 95 (string->blob (##sys#substring (blob->string blb) start end)) ) ) ) 87 96 88 (define (string/slice str start end) 89 (let ((end (or end (string-length str)))) 97 (define: (string/slice (str string) (start fixnum) (end (or boolean fixnum))) -> string 98 (let ( 99 (end (or end (string-length str))) ) 90 100 (if (and (fxzero? start) (fx= end (string-length str))) 91 101 str … … 94 104 ;; 95 105 96 (define (*message-digest-update-blob md blb #!optional (siz (blob-size blb))) 97 ((message-digest-algorithm-update md) 98 (message-digest-context md) 99 blb 100 siz) ) 106 (define: (*message-digest-update-blob (md message-digest) (blb blob) . (opts (list-of fixnum))) -> void 107 (let ( 108 (siz (optional opts (blob-size blb))) ) 109 ((message-digest-algorithm-update md) 110 (message-digest-context md) 111 blb 112 siz) ) ) 101 113 102 (define (*message-digest-update-string md str)114 (define: (*message-digest-update-string (md message-digest) (str string)) -> void 103 115 (*message-digest-update-blob md (string->blob str)) ) 104 116 105 (define (message-digest-algorithm-update md)117 (define: (message-digest-algorithm-update (md message-digest)) -> procedure 106 118 (message-digest-primitive-update (message-digest-algorithm md)) ) 107 119 -
release/4/message-digest/trunk/message-digest-type.scm
r35044 r35338 14 14 (;export 15 15 ; MD API 16 message-digest-default-result-type ;DEPRECATED17 16 message-digest-result-form 18 17 message-digest? check-message-digest error-message-digest … … 20 19 initialize-message-digest 21 20 finalize-message-digest finalize-message-digest! 22 setup-message-digest-buffer!) 21 setup-message-digest-buffer! 22 ;DEPRECATED 23 message-digest-default-result-type) 23 24 24 25 (import scheme chicken) 25 26 26 (use 27 27 (only lolevel allocate free number-of-bytes) … … 34 34 error-argument-type) 35 35 miscmacros 36 message-digest-primitive) 36 message-digest-primitive 37 typed-define) 37 38 38 39 (declare … … 91 92 92 93 (define (check-result-type loc mdp obj) 93 (let ((siz 94 (cond 95 ((string? obj) 96 (string-length obj)) 97 ((blob? obj) 98 (blob-size obj)) 99 ((u8vector? obj) 100 (u8vector-length obj)) 101 (else 102 (error loc "unsupported result buffer" obj) ) ) ) 103 (rqr (message-digest-primitive-digest-length mdp)) ) 94 (let ( 95 (siz 96 (cond 97 ((string? obj) 98 (string-length obj)) 99 ((blob? obj) 100 (blob-size obj)) 101 ((u8vector? obj) 102 (u8vector-length obj)) 103 (else 104 (error loc "unsupported result buffer" obj) ) ) ) 105 (rqr (message-digest-primitive-digest-length mdp)) ) 106 ; 104 107 (unless (<= rqr siz) 105 108 (error loc "result buffer too small" rqr obj) ) ) … … 113 116 (lambda (x) 114 117 (or 115 (if x (canonical-result-name x) #;DEFAULT-RESULT-TYPE 'hex-string) 116 (begin 117 (warning 'message-digest-result-form "invalid result-form" x) 118 (message-digest-result-form) ) ) ) ) 119 120 ;DEPRECATED 121 (define message-digest-default-result-type message-digest-result-form) 122 123 ;; 124 125 (define-record-type message-digest 118 (if x 119 (canonical-result-name x) 120 (begin 121 (warning 'message-digest-result-form "invalid result-form" x) 122 (message-digest-result-form) ) ) ) ) ) 123 124 ;; 125 126 (define-type srfi4vector (or u8vector s8vector u16vector s16vector u32vector s32vector f32vector f64vector)) 127 128 ;(define-type message-digest-buffer (or string blob srfi4vector procedure input-port pointer)) 129 (define-type message-digest-buffer (or string blob u8vector)) 130 131 (define-type message-digest-result-form (or string blob u8vector)) 132 133 (define-type message-digest-context (or fixnum procedure)) 134 135 (define-type message-digest-primitive (struct message-digest-primitive)) 136 137 (define:-record-type message-digest 126 138 (*make-message-digest mdp ctx buf) 127 139 message-digest? 128 (mdp message-digest- algorithm)129 (ctx message-digest-context )130 (buf message-digest-buffer message-digest-buffer-set!) )140 (mdp message-digest-primitive message-digest-algorithm) 141 (ctx message-digest-context message-digest-context) 142 (buf (or boolean message-digest-buffer) message-digest-buffer message-digest-buffer-set!) ) 131 143 132 144 (define-check+error-type message-digest) … … 134 146 ;; 135 147 136 (define (get-message-digest-primitive-context mdp) 137 (let ((ctx-info (message-digest-primitive-context-info mdp))) 148 (define: (get-message-digest-primitive-context (mdp message-digest-primitive)) -> * 149 (let ( 150 (ctx-info (message-digest-primitive-context-info mdp)) ) 138 151 (if (procedure? ctx-info) 139 152 (ctx-info) … … 142 155 ;; 143 156 144 (define (initialize-message-digest mdp) 145 (let ((ctx 146 (get-message-digest-primitive-context 147 (check-message-digest-primitive 'initialize-message-digest mdp)))) 157 (define: (initialize-message-digest (mdp message-digest-primitive)) -> message-digest 158 (let ( 159 (ctx 160 (get-message-digest-primitive-context 161 (check-message-digest-primitive 'initialize-message-digest mdp)))) 148 162 ((message-digest-primitive-init mdp) ctx) 149 163 (*make-message-digest mdp ctx #f) ) ) … … 151 165 ;; 152 166 153 (define (finalize-message-digest md #!optional (result-type (message-digest-result-form))) 154 (let* ((mdp 155 (message-digest-algorithm 156 (check-message-digest 'finalize-message-digest md))) 157 (res 158 (make-blob (message-digest-primitive-digest-length mdp))) ) 159 ;side-effects res 160 ((message-digest-primitive-final mdp) (message-digest-context md) res) 161 (get-result-form 'finalize-message-digest res result-type) ) ) 162 163 (define (finalize-message-digest! md result-buffer) 164 (let* ((mdp 165 (message-digest-algorithm (check-message-digest 'finalize-message-digest md))) 166 (res 167 (check-result-type 'finalize-message-digest mdp result-buffer)) ) 167 (define: (finalize-message-digest (md message-digest) . (opts (list-of message-digest-result-form))) -> message-digest-result-form 168 (let* ( 169 (result-type 170 (optional opts (message-digest-result-form))) 171 (mdp 172 (message-digest-algorithm (check-message-digest 'finalize-message-digest md))) 173 (res 174 (make-blob (message-digest-primitive-digest-length mdp))) ) 175 ;side-effects res 176 ((message-digest-primitive-final mdp) (message-digest-context md) res) 177 (get-result-form 'finalize-message-digest res result-type) ) ) 178 179 (define: (finalize-message-digest! (md message-digest) (result-buffer message-digest-buffer)) -> message-digest-result-form 180 (let* ( 181 (mdp 182 (message-digest-algorithm (check-message-digest 'finalize-message-digest md))) 183 (res 184 (check-result-type 'finalize-message-digest mdp result-buffer)) ) 168 185 ;side-effects res 169 186 (let ((buf (if (u8vector? res) (##sys#slot res 1) res))) … … 173 190 ;; 174 191 175 (define (setup-message-digest-buffer! md sz) 176 (let ((buf (message-digest-buffer md)) 177 (sz (fxmax sz MINIMUM-BUFFER-SIZE)) ) 192 (define: (setup-message-digest-buffer! (md message-digest) (sz fixnum)) -> message-digest-buffer 193 (let ( 194 (buf (message-digest-buffer md)) 195 (sz (fxmax sz MINIMUM-BUFFER-SIZE)) ) 178 196 ;enough space? then reuse, otherwise new buffer 197 (if buf (print "buf " buf)) 179 198 (if (and buf (fx<= sz (number-of-bytes buf))) 180 199 buf 181 200 (new-message-digest-buffer! md sz) ) ) ) 182 201 183 (define (new-message-digest-buffer! md sz) 184 (let ((buf (make-blob sz))) 202 (define: (new-message-digest-buffer! (md message-digest) (sz fixnum)) -> message-digest-buffer 203 (let ( 204 (buf (make-blob sz)) ) 185 205 (message-digest-buffer-set! md buf) 186 206 buf ) ) 187 207 208 ;;DEPRECATED 209 210 (: message-digest-default-result-type (deprecated message-digest-result-form)) 211 (define message-digest-default-result-type message-digest-result-form) 212 188 213 ) ;module message-digest-type -
release/4/message-digest/trunk/message-digest.meta
r34426 r35338 13 13 (blob-utils "1.0.0") 14 14 (string-utils "1.2.1") 15 (mathh "3.2.0")) 15 (mathh "3.2.0") 16 (dsssl-utils "2.2.0")) 16 17 (test-depends test) 17 18 (files -
release/4/message-digest/trunk/message-digest.setup
r35044 r35338 9 9 -no-procedure-checks-for-toplevel-bindings)) 10 10 11 (setup-shared+static-extension-module 'message-digest-primitive (extension-version "3. 8.0")11 (setup-shared+static-extension-module 'message-digest-primitive (extension-version "3.9.0") 12 12 #:inline? #t 13 13 #:types? #t 14 14 #:compile-options *md-csc-optn*) 15 15 16 (setup-shared+static-extension-module 'message-digest-type (extension-version "3. 8.0")16 (setup-shared+static-extension-module 'message-digest-type (extension-version "3.9.0") 17 17 #:inline? #t 18 18 #:types? #t 19 19 #:compile-options *md-csc-optn*) 20 20 21 (setup-shared+static-extension-module 'message-digest-chunk (extension-version "3. 8.0")21 (setup-shared+static-extension-module 'message-digest-chunk (extension-version "3.9.0") 22 22 #:inline? #t 23 23 #:types? #t 24 24 #:compile-options *md-csc-optn*) 25 25 26 (setup-shared+static-extension-module 'message-digest-parameters (extension-version "3. 8.0")26 (setup-shared+static-extension-module 'message-digest-parameters (extension-version "3.9.0") 27 27 #:inline? #t 28 28 #:types? #t 29 29 #:compile-options *md-csc-optn*) 30 30 31 (setup-shared+static-extension-module 'message-digest-support (extension-version "3. 8.0")31 (setup-shared+static-extension-module 'message-digest-support (extension-version "3.9.0") 32 32 #:inline? #t 33 33 #:types? #t 34 34 #:compile-options *md-csc-optn*) 35 35 36 (setup-shared+static-extension-module 'message-digest-bv (extension-version "3. 8.0")36 (setup-shared+static-extension-module 'message-digest-bv (extension-version "3.9.0") 37 37 #:inline? #t 38 38 #:types? #t 39 39 #:compile-options *md-csc-optn*) 40 40 41 (setup-shared+static-extension-module 'message-digest-int (extension-version "3. 8.0")41 (setup-shared+static-extension-module 'message-digest-int (extension-version "3.9.0") 42 42 #:inline? #t 43 43 #:types? #t 44 44 #:compile-options *md-csc-optn*) 45 45 46 (setup-shared+static-extension-module 'message-digest-srfi-4 (extension-version "3. 8.0")46 (setup-shared+static-extension-module 'message-digest-srfi-4 (extension-version "3.9.0") 47 47 #:inline? #t 48 48 #:types? #t 49 49 #:compile-options *md-csc-optn*) 50 50 51 (setup-shared+static-extension-module 'message-digest-update-item (extension-version "3. 8.0")51 (setup-shared+static-extension-module 'message-digest-update-item (extension-version "3.9.0") 52 52 #:inline? #t 53 53 #:types? #t 54 54 #:compile-options *md-csc-optn*) 55 55 56 (setup-shared+static-extension-module 'message-digest-item (extension-version "3. 8.0")56 (setup-shared+static-extension-module 'message-digest-item (extension-version "3.9.0") 57 57 #:inline? #t 58 58 #:types? #t 59 59 #:compile-options *md-csc-optn*) 60 60 61 (setup-shared+static-extension-module 'message-digest-port (extension-version "3. 8.0")61 (setup-shared+static-extension-module 'message-digest-port (extension-version "3.9.0") 62 62 #:inline? #t 63 63 #:types? #t 64 64 #:compile-options *md-csc-optn*) 65 65 66 (setup-shared+static-extension-module 'message-digest-basic (extension-version "3. 8.0")66 (setup-shared+static-extension-module 'message-digest-basic (extension-version "3.9.0") 67 67 #:inline? #t 68 68 #:types? #t 69 69 #:compile-options *md-csc-optn*) 70 70 71 (setup-shared+static-extension-module 'message-digest (extension-version "3. 8.0")71 (setup-shared+static-extension-module 'message-digest (extension-version "3.9.0") 72 72 #:inline? #t 73 73 #:types? #t -
release/4/message-digest/trunk/tests/message-digest-test.scm
r34562 r35338 21 21 (define simple-res (ashexstr simple-src)) 22 22 23 (define digest-length 5)24 (define context-size 10)25 (define block-length 64)23 (define-constant digest-length 5) 24 (define-constant context-size 10) 25 (define-constant block-length 64) 26 26 27 27 (define-constant BLOCK-LENGTH-DEFAULT 4)
Note: See TracChangeset
for help on using the changeset viewer.