Changeset 18042 in project


Ignore:
Timestamp:
05/11/10 06:52:48 (9 years ago)
Author:
felix
Message:

use md5 program on BSD

Location:
release/4/autocompile/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/autocompile/trunk/autocompile.setup

    r17388 r18042  
    77 'autocompile
    88 '("chicken-scheme")
    9  '((version 0.5)))
     9 '((version 0.6)))
  • release/4/autocompile/trunk/chicken-scheme.scm

    r17386 r18042  
    3939  (regexp '(: bos (? #\\) (* space) (submatch (+ xdigit)) (* space))))
    4040
     41(define *md5sum-program*
     42  (cond-expand
     43   ((or netbsd freebsd openbsd dragonfly) "md5 -r")
     44   (else "md5sum")))
     45
    4146(define (usage code)
    4247  (print "usage: chicken-scheme [-help] [-purge] [-list] [-cache] [FILENAME ARGUMENT ...]")
     
    5863      (else
    5964       (with-input-from-pipe
    60         (sprintf "md5sum ~a" qsource)
     65        (sprintf "~a ~a" *md5sum-program* qsource)
    6166        (lambda ()
    6267          (let ((input (read-line)))
Note: See TracChangeset for help on using the changeset viewer.