Changeset 34380 in project


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

add raw-update

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

Legend:

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

    r31016 r34380  
    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 "md5-base.c" "md5.meta" "md5.setup" "tests/run.scm" "md5.scm"))
  • release/4/md5/trunk/md5.scm

    r31016 r34380  
    1919(define update (foreign-lambda void MD5Update c-pointer scheme-pointer unsigned-int))
    2020(define final (foreign-lambda void MD5Final c-pointer scheme-pointer))
     21(define raw-update (foreign-lambda void MD5Update c-pointer c-pointer unsigned-int))
    2122
    2223(define md5-primitive
     
    2728              (make-message-digest-primitive context-size digest-length
    2829                                             init update final
    29                                              block-length 'md5-primitive)) )
     30                                             block-length 'md5-primitive
     31                                             raw-update)) )
    3032      the-md5-primitive ) ) )
    3133)
  • release/4/md5/trunk/md5.setup

    r31016 r34380  
    55  'md5
    66  '("md5.so" "md5.import.so")
    7   `((version "3.1.0")))
     7  `((version "3.2.0")))
Note: See TracChangeset for help on using the changeset viewer.