scripts: Support --help, --version.

[mes.git] / guile / mescc.scm

diff --git a/guile/mescc.scm b/guile/mescc.scm
index 1aba0eacc133286ba19d10022aff2b0c43ce75a7..364bfc50a99d686450538ba6928cdd403fe7fe65 100755 (executable)
--- a/guile/mescc.scm
+++ b/guile/mescc.scm
@@ -53,5 +53,12 @@ GUILE='~/src/guile-1.8/build/pre-inst-guile --debug -q' guile/mescc.scm
   (let* ((files (cdr arguments))
          (file (if (null? files) (string-append %docdir "examples/main.c")
                    (car files))))
+    (cond ((equal? file "--help")
+           (format (current-error-port) "Usage: mescc.scm [--help|--version|FILE] > a.out\n")
+           (exit 0))
+          ((equal? file "--version")
+           (format (current-error-port) "mescc.scm (mes) ~a\n" %version)
+           (exit 0)))
+    (format (current-error-port) "compiling: ~a\n" file)
     (with-input-from-file file
       compile)))