diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-18 23:31:43 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-18 23:31:43 +0100 |
commit | ff4def43e39e7966014db746dda3039b0c3dbee0 (patch) | |
tree | c1bada9ba75d43ee0f0e62376d42a620829e7f85 /module | |
parent | Add week-stream. (diff) | |
download | calp-ff4def43e39e7966014db746dda3039b0c3dbee0.tar.gz calp-ff4def43e39e7966014db746dda3039b0c3dbee0.tar.xz |
Remove output flag to main main.
Diffstat (limited to '')
-rwxr-xr-x | module/main.scm | 43 |
1 files changed, 19 insertions, 24 deletions
diff --git a/module/main.scm b/module/main.scm index bb3fa041..fbf1992e 100755 --- a/module/main.scm +++ b/module/main.scm @@ -32,9 +32,8 @@ exec guile -e main -s $0 "$@" (parameters)) (define options - '((mode (value #t) (single-char #\m)) - (output (value #t) (single-char #\o)) - (statprof (value optional)))) + '((statprof (value optional)) + (help (single-char #\h)))) (define (ornull a b) (if (null? a) @@ -52,27 +51,23 @@ exec guile -e main -s $0 "$@" (when (file-exists? config-file) (primitive-load config-file))) - (with-output-to-port - (open-output-port (option-ref opts 'output "-")) - (lambda () - (let ((ropt (ornull (option-ref opts '() '()) - '("term")))) - ((case (string->symbol (car ropt)) - ((html) html-main) - ((term) terminal-main) - ((import) import-main) - ((text) text-main) - ((info) info-main) - ((ical) ical-main) - ((server) server-main) - ((benchmark) benchmark-main) - (else => (lambda (s) - (format (current-error-port) - "Unsupported mode of operation: ~a~%" - s) - (exit 1)))) - ropt)) - (newline))) + (let ((ropt (ornull (option-ref opts '() '()) + '("term")))) + ((case (string->symbol (car ropt)) + ((html) html-main) + ((term) terminal-main) + ((import) import-main) + ((text) text-main) + ((info) info-main) + ((ical) ical-main) + ((server) server-main) + ((benchmark) benchmark-main) + (else => (lambda (s) + (format (current-error-port) + "Unsupported mode of operation: ~a~%" + s) + (exit 1)))) + ropt)) (when stprof (statprof-stop) |