Changeset 35341 in project for release/4/message-digest/trunk/message-digest-bv.scm

Timestamp:

03/25/18 19:50:42 (3 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:

• release/4/message-digest/trunk/message-digest-bv.scm (modified) (5 diffs)

release/4/message-digest/trunk/message-digest-bv.scm

@@ -37 +37 @@
 
 ;;
+
+;FIXME do not 'type' check-/error- procs
 
 (define (check-blob/slice loc blb start end)
@@ -82 +84 @@
 ;; Single Source API
 
-(define: (message-digest-blob (mdp message-digest-primitive) (blb blob) . (opts list)) -> message-digest-result-form
+(define: (message-digest-blob (mdp message-digest-primitive) (blb blob) . (opts list)) -> message-digest-result-type
   (let-optionals* opts (
-    (result-type (message-digest-result-form))
+    (restyp (message-digest-result-form))
     (start 0)
     (end (blob-size blb)) )
@@ -90 +92 @@
       (md (initialize-message-digest mdp)) )
       (message-digest-update-blob md blb start end)
-      (finalize-message-digest md result-type) ) ) )
+      (finalize-message-digest md restyp) ) ) )
 
-(define: (message-digest-string (mdp message-digest-primitive) (str string) . (opts list)) -> message-digest-result-form
+(define: (message-digest-string (mdp message-digest-primitive) (str string) . (opts list)) -> message-digest-result-type
   (let-optionals* opts (
-    (result-type (message-digest-result-form))
+    (restyp (message-digest-result-form))
     (start 0)
     (end (string-length str)) )
@@ -100 +102 @@
       (md (initialize-message-digest mdp)) )
       (message-digest-update-string md str start end)
-      (finalize-message-digest md result-type) ) ) )
+      (finalize-message-digest md restyp) ) ) )
 
-(define: (message-digest-blob! (mdp message-digest-primitive) (blb blob) (buf message-digest-buffer) . (opts list)) -> message-digest-result-form
+(define: (message-digest-blob! (mdp message-digest-primitive) (blb blob) (buf message-digest-buffer) . (opts list)) -> message-digest-result-type
   (let-optionals* opts (
     (start 0)
@@ -111 +113 @@
       (finalize-message-digest! md buf) ) ) )
 
-(define: (message-digest-string! (mdp message-digest-primitive) (str string) (buf message-digest-buffer) . (opts list)) -> message-digest-result-form
+(define: (message-digest-string! (mdp message-digest-primitive) (str string) (buf message-digest-buffer) . (opts list)) -> message-digest-result-type
   (let-optionals* opts (
     (start 0)