diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-10-01 16:05:20 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-10-01 16:05:37 +0200 |
| commit | 2828dbcf69fdf5e07ef24cab079ba8e49f7a4791 (patch) | |
| tree | 119a608716c92bf074fe587969bebf13b2e0b85c /module/main.scm | |
| parent | Add missing '$' sign in main. (diff) | |
| download | calp-2828dbcf69fdf5e07ef24cab079ba8e49f7a4791.tar.gz calp-2828dbcf69fdf5e07ef24cab079ba8e49f7a4791.tar.xz | |
Add --width flag to format.
Diffstat (limited to 'module/main.scm')
| -rwxr-xr-x | module/main.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/main.scm b/module/main.scm index 4e75bbf9..59b74b1b 100755 --- a/module/main.scm +++ b/module/main.scm @@ -65,6 +65,7 @@ exec guile -e main -s $0 "$@" (file (value #t) (single-char #\f)) (output (value #t) (single-char #\o)) (format (value #f)) + (width (value #t) (single-char #\w)) (statprof (value optional)))) (define (ornull a b) @@ -84,7 +85,8 @@ exec guile -e main -s $0 "$@" (for-each (lambda (l) (display l) (newline)) (flow-text (with-input-from-port (open-input-port (option-ref opts 'file "-")) - (@ (ice-9 rdelim) read-string)))) + (@ (ice-9 rdelim) read-string)) + #:width (or (string->number (option-ref opts 'width "")) 70))) (init (lambda (c e) |