#! /usr/local/bin/scm \ %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
- !#

(define (go-script)
  (define args (list-tail *argv* *optind*))
  (cond ((not *script*))
	((and (= 3 (length args)) (string? (caddr args)))
	 (apply jfilt args))
	(else
	 (display "\
\
Usage: jfilt input-file output-file jcode
\

  Converts Japanese text in INPUT-FILE to format JCODE and writes
	result to OUTPUT-FILE.  JCODE can be jis, eucj, or sjis.

	      http://swissnet.ai.mit.edu/~jaffer/jfilter
"
		  (current-error-port))
	 (exit #f))))

(require 'jfilter)

(define (jfilt input-file output-file jcode)
  (set! jcode (string->symbol jcode))
  (cv-file input-file output-file #f jcode))

(go-script)

;;; Local Variables:
;;; mode:scheme
;;; End: