Changeset 28760 in project


Ignore:
Timestamp:
04/19/13 21:40:01 (7 years ago)
Author:
felix winkelmann
Message:

inline 1.9: use simple-sha1, as md5 introduces too many dependencies

Location:
release/4/inline
Files:
6 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/inline/tags/1.9/inline.meta

    r26563 r28760  
    55 (license "BSD")
    66 (doc-from-wiki)
    7  (depends bind (md5 "3.0.0") (message-digest "3.0.0"))
     7 (depends bind simple-sha1)
    88 (author "felix winkelmann")
    99 (files "inline.setup" "inline.meta" "inline.release-info" "tests/run.scm" "inline.scm"))
  • release/4/inline/tags/1.9/inline.scm

    r28351 r28760  
    2828
    2929(import scheme chicken foreign)
    30 (use bind md5 message-digest-bv files extras utils posix data-structures)
     30(use bind simple-sha1 files extras utils posix data-structures)
    3131
    3232(define-syntax inline
     
    5252  (let* ([opts (if (pair? more) (car more) "")]
    5353         [scheme? (and (pair? more) (pair? (cdr more)) (cadr more))]
    54          [hc (message-digest-string (md5-primitive) (if scheme? (->string text) text))]
     54         [hc (string->sha1sum (if scheme? (->string text) text))]
    5555         [tmp-sym (and scheme? (string->symbol (string-append "inline#" hc)))]
    5656         [fname (make-pathname (inline-cache) (->string hc) "scm")]
  • release/4/inline/tags/1.9/inline.setup

    r28351 r28760  
    77 'inline
    88 '("inline.so" "inline.import.so")
    9  '((version 1.8)))
     9 '((version 1.9)))
  • release/4/inline/trunk/inline.meta

    r26563 r28760  
    55 (license "BSD")
    66 (doc-from-wiki)
    7  (depends bind (md5 "3.0.0") (message-digest "3.0.0"))
     7 (depends bind simple-sha1)
    88 (author "felix winkelmann")
    99 (files "inline.setup" "inline.meta" "inline.release-info" "tests/run.scm" "inline.scm"))
  • release/4/inline/trunk/inline.scm

    r28351 r28760  
    2828
    2929(import scheme chicken foreign)
    30 (use bind md5 message-digest-bv files extras utils posix data-structures)
     30(use bind simple-sha1 files extras utils posix data-structures)
    3131
    3232(define-syntax inline
     
    5252  (let* ([opts (if (pair? more) (car more) "")]
    5353         [scheme? (and (pair? more) (pair? (cdr more)) (cadr more))]
    54          [hc (message-digest-string (md5-primitive) (if scheme? (->string text) text))]
     54         [hc (string->sha1sum (if scheme? (->string text) text))]
    5555         [tmp-sym (and scheme? (string->symbol (string-append "inline#" hc)))]
    5656         [fname (make-pathname (inline-cache) (->string hc) "scm")]
  • release/4/inline/trunk/inline.setup

    r28351 r28760  
    77 'inline
    88 '("inline.so" "inline.import.so")
    9  '((version 1.8)))
     9 '((version 1.9)))
Note: See TracChangeset for help on using the changeset viewer.