summaryrefslogtreecommitdiff
path: root/guimb
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2004-01-03 14:11:12 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2004-01-03 14:11:12 +0000
commitdc7ead60fcb1d7b15424c2a4b4a52af65bf85be5 (patch)
tree5df8fb9d5378a1d3cbde33efc553f78cbccec06a /guimb
parent21311fdb7bf5dd916da005d1a101bc285b398298 (diff)
downloadmailutils-dc7ead60fcb1d7b15424c2a4b4a52af65bf85be5.tar.gz
mailutils-dc7ead60fcb1d7b15424c2a4b4a52af65bf85be5.tar.bz2
(sieve-version): New function. Supports the required --version option.
Diffstat (limited to 'guimb')
-rw-r--r--guimb/scm/sieve.scm.in11
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))
('()

Return to:

Send suggestions and report system problems to the System administrator.