Changeset 30403 for lang/scheme

Timestamp:

02/21/09 10:45:15 (4 years ago)

Author:

mokehehe

Message:

Add command line option.

Files:

• lang/scheme/3imp/3imp.scm (modified) (2 diffs)

lang/scheme/3imp/3imp.scm

@@ -2 +2 @@
 
 (use file.util)
+(use gauche.parseopt)
 (require "./4.7")
 
@@ -9 +10 @@
        (file->sexp-list fn)))
 
-(define (run code)
-  (VM '() code 0 '() 0))
+(define (run-code code)
+  (dolist (x code)
+    (run x)))
+
+(define (dofile srcfn)
+  (run-code (compile-file srcfn)))
+
+(define (write-compiled-code srcfn)
+  (let ((code (compile-file srcfn)))
+    (dolist (x code)
+      (write/ss x)
+      (newline))))
+
+(define (run-file srcfn)
+  (run-code (file->sexp-list srcfn)))
+
+(define (usage)
+  (print "3imp scheme compiler.")
+  (print "usage: 3imp [options] srcfn ...")
+  (print "options:")
+  (print "  -h,--help     disp help")
+  (print "  -c,--compile  compile only")
+  (print "  -r,--run      run compiled code")
+  )
 
 (define (main args)
-  (if (null? (cdr args))
-      (repl)
-    (let ((srcfn (cadr args)))
-      (let ((code (compile-file srcfn)))
-        (dolist (x code)
-          (run x))))))
+  (let-args (cdr args)
+            ((help?          "h|help")
+             (compile-only?  "c|compile")
+             (run?           "r|run")
+             . restargs)
+    (cond (help? (usage))
+          ((null? restargs) (repl))
+          (else
+           (dolist (srcfn restargs)
+             (cond (compile-only? (write-compiled-code srcfn))
+                   (run? (run-file srcfn))
+                   (else (dofile srcfn))))))))