forked from higepon/spon
-
Notifications
You must be signed in to change notification settings - Fork 1
/
spon.ss
35 lines (33 loc) · 1.17 KB
/
spon.ss
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
(import (rnrs)
(srfi :39)
(srfi :48)
(spon tools)
(spon config))
(define (main args)
(case (string->symbol (cadr args))
((install)
(cond
[(null? (cddr args))
(display (format "ERROR ~a: package name not specified\n" system-name)
(current-error-port))
(exit #f)]
[else
(parameterize ((verbose? #f))
(guard (exception
[(download-error? exception)
(format (current-error-port) "\n failed to download package ~a.\n" (download-error-uri exception))]
[else (raise exception)])
(cond
((install (caddr args))
(exit))
(else
(display (format "ERROR ~A: install failed\n" system-name)
(current-error-port))
(exit #f)))))]))
((use)
(let ((impl (caddr args)))
(call-with-current-working-directory library-path
(lambda () (command impl (string-append base-path "/setup." impl ".ss"))))
(make-symbolic-link (string-append base-path "/spon." impl ".sh") command-path)))
(else (exit #f))))
(main (command-line))