29 lines
715 B
Scheme
29 lines
715 B
Scheme
|
(define-module (make main)
|
||
|
|
#:use-module (ice-9 getopt-long)
|
||
|
|
#:export (main)
|
||
|
|
)
|
||
|
|
|
||
|
|
(define EXIT_SUCCESS 0)
|
||
|
|
(define EXIT_NOT_UP_TO_DATE 1)
|
||
|
|
(define EXIT_FAILURE 2)
|
||
|
|
|
||
|
|
(define option-spec
|
||
|
|
'((environment-overrides (single-char #\e))
|
||
|
|
(makefile (single-char #\f) (value #t))
|
||
|
|
(ignore-errors (single-char #\i))
|
||
|
|
(keep-going (single-char #\k))
|
||
|
|
(dry-run (single-char #\n))
|
||
|
|
(print-data-base (single-char #\p))
|
||
|
|
(question (single-char #\q))
|
||
|
|
(no-builtin-rules (single-char #\r))
|
||
|
|
(stop (single-char #\S))
|
||
|
|
(silent (single-char #\s))
|
||
|
|
(touch (single-char #\t))))
|
||
|
|
|
||
|
|
(define (main args)
|
||
|
|
(let ((options (getopt-long args option-spec)))
|
||
|
|
(write options)
|
||
|
|
(newline)
|
||
|
|
EXIT_SUCCESS))
|
||
|
|
|