root/lang/zu/interpreter/scheme/trunk/zu.scm @ 40

#!/usr/bin/env gosh
;;
;; Zu interpreter for Gauche. (c)2007 by naoya_t
;;
(use nt.zu)

(define (usage . prog-name)
  (format (current-error-port)
                  "Usage: ~a file\n" *program-name*)
  (exit 2))

(define (main args)
  (if (null? (cdr args))
          (usage (car args))
          (let1 data (call-with-input-file (cadr args)
                                   (lambda (port) (port->string port)))
                (zu-interpreter data)))
  0)