(sieve-version): New function. Supports the required --version option.

@@ -929,12 +929,18 @@
   (display "   -o, --output FILENAME    Set output file name\n")
   (display "   -o, --output FILENAME    Set output file name\n")
   (display "   -L, --lib-dir DIRNAME    Set sieve library directory name\n")
   (display "   -L, --lib-dir DIRNAME    Set sieve library directory name\n")
   (display "   -g, --guimb              Make output file executable for guimb\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 "If -o option is not given, the compiled program is executed\n")
   (display "immediately. It operates on the user system mailbox unless\n")
   (display "immediately. It operates on the user system mailbox unless\n")
   (display "mailbox is given in the command line.\n")
   (display "mailbox is given in the command line.\n")
   (exit 0))
   (exit 0))
 
 
+(define (sieve-version)
+  (display "sieve.scm (GNU %PACKAGE% %VERSION%)")
+  (newline)
+  (exit 0))
+
 ;;; Parse command line 
 ;;; Parse command line 
 
 
 (use-modules (ice-9 getopt-long))
 (use-modules (ice-9 getopt-long))
@@ -948,6 +954,7 @@
     (lib-dir (single-char #\L)
     (lib-dir (single-char #\L)
 	     (value #t))
 	     (value #t))
     (guimb  (single-char #\g))
     (guimb  (single-char #\g))
+    (version)
     (help   (single-char #\h))))
     (help   (single-char #\h))))
 
 
 (define program-name (car (command-line)))
 (define program-name (car (command-line)))
@@ -967,6 +974,8 @@
 	(set! output (cdr x)))
 	(set! output (cdr x)))
        ((guimb)
        ((guimb)
 	(set! guimb-header #t))
 	(set! guimb-header #t))
+       ((version)
+	(sieve-version))
        ((help)
        ((help)
 	(sieve-usage))
 	(sieve-usage))
        ('()
        ('()