Changeset 34379 in project


Ignore:
Timestamp:
08/26/17 23:27:33 (3 months ago)
Author:
kon
Message:

add raw-update

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

Legend:

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

    r31019 r34379  
    77 (doc-from-wiki)
    88 (synopsis "Computes 256-, 385- and 512-bit SHA2 checksums")
    9  (depends (message-digest "3.1.0"))
     9 (depends (message-digest "3.4.0"))
    1010 (test-depends test)
    1111 (files "sha2-base.c" "sha2.setup" "sha2.h" "sha2.meta" "sha2.release-info" "tests/run.scm" "sha2.scm") )
  • release/4/sha2/trunk/sha2.scm

    r31019 r34379  
    3737(define sha256-update (foreign-lambda void "SHA256_Update" c-pointer scheme-pointer int))
    3838(define sha256-final (foreign-lambda void "SHA256_Final" c-pointer scheme-pointer))
     39(define sha256-raw-update (foreign-lambda void "SHA256_Update" c-pointer c-pointer int))
    3940
    4041(define sha256-primitive
     
    4647                context-size-256 digest-length-256
    4748                sha256-init sha256-update sha256-final
    48                 block-length-256 'sha256-primitive)) )
     49                block-length-256 'sha256-primitive
     50                sha256-raw-update)) )
    4951      the-sha256-primitive ) ) )
    5052
     
    5860(define sha384-update (foreign-lambda void "SHA384_Update" c-pointer scheme-pointer int))
    5961(define sha384-final (foreign-lambda void "SHA384_Final" c-pointer scheme-pointer))
     62(define sha384-raw-update (foreign-lambda void "SHA384_Update" c-pointer c-pointer int))
    6063
    6164(define sha384-primitive
     
    6770                context-size-384 digest-length-384
    6871                sha384-init sha384-update sha384-final
    69                 block-length-384 'sha384-primitive)) )
     72                block-length-384 'sha384-primitive
     73                sha384-raw-update)) )
    7074      the-sha384-primitive ) ) )
    7175
     
    7983(define sha512-update (foreign-lambda void "SHA512_Update" c-pointer scheme-pointer int))
    8084(define sha512-final (foreign-lambda void "SHA512_Final" c-pointer scheme-pointer))
     85(define sha512-raw-update (foreign-lambda void "SHA512_Update" c-pointer c-pointer int))
    8186
    8287(define sha512-primitive
     
    8893                context-size-512 digest-length-512
    8994                sha512-init sha512-update sha512-final
    90                 block-length-512 'sha512-primitive)) )
     95                block-length-512 'sha512-primitive
     96                sha512-raw-update)) )
    9197      the-sha512-primitive ) ) )
    9298
  • release/4/sha2/trunk/sha2.setup

    r31019 r34379  
    77  'sha2
    88  '("sha2.so" "sha2.import.so")
    9   '((version "3.1.0")))
     9  '((version "3.2.0")))
Note: See TracChangeset for help on using the changeset viewer.