diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-01-03 14:11:12 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-01-03 14:11:12 +0000 |
commit | dc7ead60fcb1d7b15424c2a4b4a52af65bf85be5 (patch) | |
tree | 5df8fb9d5378a1d3cbde33efc553f78cbccec06a /guimb/scm | |
parent | 21311fdb7bf5dd916da005d1a101bc285b398298 (diff) | |
download | mailutils-dc7ead60fcb1d7b15424c2a4b4a52af65bf85be5.tar.gz mailutils-dc7ead60fcb1d7b15424c2a4b4a52af65bf85be5.tar.bz2 |
(sieve-version): New function. Supports the required --version option.
Diffstat (limited to 'guimb/scm')
-rw-r--r-- | guimb/scm/sieve.scm.in | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/guimb/scm/sieve.scm.in b/guimb/scm/sieve.scm.in index 8d9108ccc..cdbb91483 100644 --- a/guimb/scm/sieve.scm.in +++ b/guimb/scm/sieve.scm.in @@ -929,12 +929,18 @@ (display " -o, --output FILENAME Set output file name\n") (display " -L, --lib-dir DIRNAME Set sieve library directory name\n") (display " -g, --guimb Make output file executable for guimb\n") - (display " -d, --debug LEVEL Set debugging level\n\n") + (display " -d, --debug LEVEL Set debugging level\n") + (display " --version Show program version\n\n") (display "If -o option is not given, the compiled program is executed\n") (display "immediately. It operates on the user system mailbox unless\n") (display "mailbox is given in the command line.\n") (exit 0)) +(define (sieve-version) + (display "sieve.scm (GNU %PACKAGE% %VERSION%)") + (newline) + (exit 0)) + ;;; Parse command line (use-modules (ice-9 getopt-long)) @@ -948,6 +954,7 @@ (lib-dir (single-char #\L) (value #t)) (guimb (single-char #\g)) + (version) (help (single-char #\h)))) (define program-name (car (command-line))) @@ -967,6 +974,8 @@ (set! output (cdr x))) ((guimb) (set! guimb-header #t)) + ((version) + (sieve-version)) ((help) (sieve-usage)) ('() |