Ignore:
Timestamp:
03/25/18 07:42:09 (9 months ago)
Author:
kon
Message:

add define-types include, add types, reflow

File:
1 edited

Legend:

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

    r35044 r35339  
    2121
    2222(import scheme chicken)
    23 
    2423(use
    2524  (only srfi-13 substring/shared)
     
    2827  message-digest-primitive
    2928  message-digest-type
    30   message-digest-support)
     29  message-digest-support
     30  typed-define)
    3131
    32 (declare
    33   (bound-to-procedure ##sys#substring))
     32;;; Support
     33
     34;;
     35
     36(include "message-digest-types")
    3437
    3538;;; Message Digest API
     
    6568            (result-type (message-digest-result-form))
    6669            (start 0) (end (blob-size blb)))
    67   (let ((md (initialize-message-digest mdp)))
     70  (let (
     71    (md (initialize-message-digest mdp)) )
    6872    (message-digest-update-blob md blb start end)
    6973    (finalize-message-digest md result-type) ) )
     
    7377            (result-type (message-digest-result-form))
    7478            (start 0) (end (string-length str)))
    75   (let ((md (initialize-message-digest mdp)))
     79  (let (
     80    (md (initialize-message-digest mdp)) )
    7681    (message-digest-update-string md str start end)
    7782    (finalize-message-digest md result-type) ) )
     
    8085            #!optional
    8186            (start 0) (end (blob-size blb)))
    82   (let ((md (initialize-message-digest mdp)))
     87  (let (
     88    (md (initialize-message-digest mdp)) )
    8389    (message-digest-update-blob md blb start end)
    8490    (finalize-message-digest! md result-buffer) ) )
     
    8793            #!optional
    8894            (start 0) (end (string-length str)))
    89   (let ((md (initialize-message-digest mdp)))
     95  (let (
     96    (md (initialize-message-digest mdp)) )
    9097    (message-digest-update-string md str start end)
    9198    (finalize-message-digest! md result-buffer) ) )
     
    94101
    95102(define (check-blob/slice loc blb start end)
    96   (check-blob loc blb)
    97103  (check-fixnum-range loc start end)
    98   (blob/slice blb start end) )
     104  (blob/slice (check-blob loc blb) start end) )
    99105
    100106(define (check-string/slice loc str start end)
    101   (check-string loc str)
    102107  (check-fixnum-range loc start end)
    103   (string/slice str start end) )
     108  (string/slice (check-string loc str) start end) )
    104109
    105110(define (check-fixnum-range loc start end)
Note: See TracChangeset for help on using the changeset viewer.