root/lang/zu/interpreter/scheme/trunk/zu.scm
@
7
Revision 7, 389 bytes (checked in by naoya_t, 17 years ago) |
---|
Rev | Line | |
---|---|---|
[7] | 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.