Ignore:
Timestamp:
03/26/18 03:08:11 (2 years ago)
Author:
Kon Lovett
Message:

rmv unneeded -> void, mdp name is (or string symbol) per doc, add note about windows chunk test, some procs are pure

File:
1 edited

Legend:

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

    r35341 r35344  
    5353;;
    5454
    55 (define: (*message-digest-update-uint (loc symbol) (md message-digest) (n number) (size fixnum) (setter procedure)) -> void
     55(define: (*message-digest-update-uint (loc symbol) (md message-digest) (n number) (size fixnum) (setter procedure))
    5656  (let (
    5757    (blb (setup-message-digest-buffer! (check-message-digest loc md) size)) )
     
    6363;; Char
    6464
    65 (define: (message-digest-update-char-u8 (md message-digest) (ch char)) -> void
     65(define: (message-digest-update-char-u8 (md message-digest) (ch char))
    6666        (*message-digest-update-uint 'message-digest-update-char-u8
    6767          md
     
    7070          *blob-set-u8!) )
    7171
    72 (define: (message-digest-update-char-be (md message-digest) (ch char)) -> void
     72(define: (message-digest-update-char-be (md message-digest) (ch char))
    7373        (*message-digest-update-uint 'message-digest-update-char-be
    7474          md
     
    7777          *blob-set-u32-be!) )
    7878
    79 (define: (message-digest-update-char-le (md message-digest) (ch char)) -> void
     79(define: (message-digest-update-char-le (md message-digest) (ch char))
    8080        (*message-digest-update-uint 'message-digest-update-char-le
    8181          md
     
    8686;; Unsigned Integer 8, 16, 32, & 64 bits
    8787
    88 (define: (message-digest-update-u8 (md message-digest) (n number)) -> void
     88(define: (message-digest-update-u8 (md message-digest) (n number))
    8989        (*message-digest-update-uint 'message-digest-update-u8 md n 1 *blob-set-u8!) )
    9090
    91 (define: (message-digest-update-u16-be (md message-digest) (n number)) -> void
     91(define: (message-digest-update-u16-be (md message-digest) (n number))
    9292        (*message-digest-update-uint 'message-digest-update-u16-be md n 2 *blob-set-u16-be!) )
    9393
    94 (define: (message-digest-update-u16-le (md message-digest) (n number)) -> void
     94(define: (message-digest-update-u16-le (md message-digest) (n number))
    9595        (*message-digest-update-uint 'message-digest-update-u16-le md n 2 *blob-set-u16-le!) )
    9696
    97 (define: (message-digest-update-u32-be (md message-digest) (n number)) -> void
     97(define: (message-digest-update-u32-be (md message-digest) (n number))
    9898        (*message-digest-update-uint 'message-digest-update-u32-be md n 4 *blob-set-u32-be!) )
    9999
    100 (define: (message-digest-update-u32-le (md message-digest) (n number)) -> void
     100(define: (message-digest-update-u32-le (md message-digest) (n number))
    101101        (*message-digest-update-uint 'message-digest-update-u32-le md n 4 *blob-set-u32-le!) )
    102102
    103 (define: (message-digest-update-u64-be (md message-digest) (n number)) -> void
     103(define: (message-digest-update-u64-be (md message-digest) (n number))
    104104        (*message-digest-update-uint 'message-digest-update-u64-be md n 8 *blob-set-u64-be!) )
    105105
    106 (define: (message-digest-update-u64-le (md message-digest) (n number)) -> void
     106(define: (message-digest-update-u64-le (md message-digest) (n number))
    107107        (*message-digest-update-uint 'message-digest-update-u64-le md n 8 *blob-set-u64-le!) )
    108108
    109109;; Machine Byte Order w/ Char & Unsigned Integer
    110110
    111 (define: (message-digest-update-char (md message-digest) (ch char) . (opts (list message-digest-byte-order))) -> void
     111(define: (message-digest-update-char (md message-digest) (ch char) . (opts (list message-digest-byte-order)))
    112112  (let (
    113113    (order (optional opts (machine-byte-order))) )
     
    116116      ((big-endian)                     (message-digest-update-char-be md ch) ) ) ) )
    117117
    118 (define: (message-digest-update-u16 (md message-digest) (n number) . (opts (list message-digest-byte-order))) -> void
     118(define: (message-digest-update-u16 (md message-digest) (n number) . (opts (list message-digest-byte-order)))
    119119  (let (
    120120    (order (optional opts (machine-byte-order))) )
     
    123123      ((big-endian)                     (message-digest-update-u16-be md n) ) ) ) )
    124124
    125 (define: (message-digest-update-u32 (md message-digest) (n number) . (opts (list message-digest-byte-order))) -> void
     125(define: (message-digest-update-u32 (md message-digest) (n number) . (opts (list message-digest-byte-order)))
    126126  (let (
    127127    (order (optional opts (machine-byte-order))) )
     
    130130      ((big-endian)                     (message-digest-update-u32-be md n) ) ) ) )
    131131
    132 (define: (message-digest-update-u64 (md message-digest) (n number) . (opts (list message-digest-byte-order))) -> void
     132(define: (message-digest-update-u64 (md message-digest) (n number) . (opts (list message-digest-byte-order)))
    133133  (let (
    134134    (order (optional opts (machine-byte-order))) )
Note: See TracChangeset for help on using the changeset viewer.