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

Revision 7, 389 bytes (checked in by naoya_t, 17 years ago)

Zu interpreter for Gauche: initial import

Line 
1#!/usr/bin/env gosh
2;;
3;; Zu interpreter for Gauche. (c)2007 by naoya_t
4;;
5(use nt.zu)
6
7(define (usage . prog-name)
8  (format (current-error-port)
9                  "Usage: ~a file\n" *program-name*)
10  (exit 2))
11
12(define (main args)
13  (if (null? (cdr args))
14          (usage (car args))
15          (let1 data (call-with-input-file (cadr args)
16                                   (lambda (port) (port->string port)))
17                (zu-interpreter data)))
18  0)
Note: See TracBrowser for help on using the browser.