Changeset 34377 in project


Ignore:
Timestamp:
08/26/17 23:26:59 (4 weeks ago)
Author:
kon
Message:

add raw-update

Location:
release/4/sha1/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/sha1/trunk/sha1.meta

    r31018 r34377  
    77 (doc-from-wiki)
    88 (license "Public Domain")
    9 (depends (message-digest "3.1.0"))
     9(depends (message-digest "3.4.0"))
    1010 (test-depends test)
    1111 (files "sha1.setup" "sha1.scm" "sha1-base.c" "sha1.meta" "sha1.release-info" "tests/run.scm" "sha1.h") )
  • release/4/sha1/trunk/sha1.scm

    r31018 r34377  
    1616(define-foreign-variable *context-size* unsigned-int "sizeof(SHA1_CTX)")
    1717
    18 ;(define *context-size* (foreign-value "sizeof(SHA1_CTX)" unsigned-int))
    19 
    2018(define init (foreign-lambda void SHA1Init c-pointer))
    2119(define update (foreign-lambda void SHA1Update c-pointer scheme-pointer unsigned-int))
    2220(define final (foreign-lambda void SHA1Final c-pointer scheme-pointer))
     21(define raw-update (foreign-lambda void SHA1Update c-pointer c-pointer unsigned-int))
    2322
    2423(define sha1-primitive
     
    2928              (make-message-digest-primitive *context-size* *digest-length*
    3029                                             init update final
    31                                              *block-length* 'sha1-primitive)) )
     30                                             *block-length* 'sha1-primitive
     31                                             raw-update)) )
    3232      the-sha1-primitive ) ) )
    3333)
  • release/4/sha1/trunk/sha1.setup

    r31018 r34377  
    55  'sha1
    66  '("sha1.so" "sha1.import.so")
    7   '((version "3.1.0")))
     7  '((version "3.2.0")))
Note: See TracChangeset for help on using the changeset viewer.