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

    r35339 r35341  
    4444;;
    4545
    46 (define: (get-byte-order (loc symbol) (obj *)) --> symbol
     46(define: (get-byte-order (loc symbol) (obj *)) --> message-digest-byte-order
    4747  (case obj
    4848        ((big-endian be big msb)                                'big-endian )
     
    109109;; Machine Byte Order w/ Char & Unsigned Integer
    110110
    111 (define: (message-digest-update-char (md message-digest) (ch char) . (opts (list-of symbol))) -> void
     111(define: (message-digest-update-char (md message-digest) (ch char) . (opts (list message-digest-byte-order))) -> void
    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-of symbol))) -> void
     118(define: (message-digest-update-u16 (md message-digest) (n number) . (opts (list message-digest-byte-order))) -> void
    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-of symbol))) -> void
     125(define: (message-digest-update-u32 (md message-digest) (n number) . (opts (list message-digest-byte-order))) -> void
    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-of symbol))) -> void
     132(define: (message-digest-update-u64 (md message-digest) (n number) . (opts (list message-digest-byte-order))) -> void
    133133  (let (
    134134    (order (optional opts (machine-byte-order))) )
Note: See TracChangeset for help on using the changeset viewer.