/
salmonella-common.scm
56 lines (49 loc) · 1.61 KB
/
salmonella-common.scm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
(import irregex)
(use srfi-1 ports files posix)
(define (get-egg-dependencies meta-data #!key with-test-dependencies?
with-versions?)
(define (deps key)
(or (and-let* ((d (assq key meta-data)))
(cdr d))
'()))
(map (lambda (dep)
(if with-versions?
dep
(if (pair? dep)
(car dep)
dep)))
(append (deps 'depends)
(deps 'needs)
(if with-test-dependencies?
(deps 'test-depends)
'()))))
(define (cmd-line-arg option args)
;; Returns the argument associated to the command line option OPTION
;; in ARGS or #f if OPTION is not found in ARGS or doesn't have any
;; argument.
(let ((val (any (lambda (arg)
(irregex-match
`(seq ,(->string option) "=" (submatch (* any)))
arg))
args)))
(and val (irregex-match-substring val 1))))
(define (die . msg)
(with-output-to-port (current-error-port)
(lambda ()
(for-each display msg)
(newline)
(flush-output)))
(exit 1))
(define (mktempdir)
;; For compatibility with older chickens.
;; `create-temporary-directory' has been introduced by 4.6.0
(let loop ()
(let ((dir (make-pathname
(current-directory)
(string-append "salmonella-tmp-"
(number->string (random 1000000) 16)))))
(if (file-exists? dir)
(loop)
(begin
(create-directory dir)
dir)))))