X-Git-Url: https://jxself.org/git/?p=mes.git;a=blobdiff_plain;f=guile%2Fmescc.scm;h=364bfc50a99d686450538ba6928cdd403fe7fe65;hp=1aba0eacc133286ba19d10022aff2b0c43ce75a7;hb=da768a9f129835b41a655a709fd7d288f4377626;hpb=0f27e126727f55dab9f69b4d0868c5c3eefe8627

diff --git a/guile/mescc.scm b/guile/mescc.scm
index 1aba0eac..364bfc50 100755
--- 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)))