@@ -18,21 +18,30 @@ case "$(mzscheme --version)" in *) plt4=no;; esac +if (( $# )) +then repl='#f' +else + # It seems like there ought to be a program for determining whether standard + # input is a tty, but I can't find one; so we use mzscheme instead. + if [ $plt4 = yes ] + then repl=$(mzscheme -e '(terminal-port? (current-input-port))') + else repl=$(mzscheme -mve '(display (terminal-port? (current-input-port)))') + fi +fi + opts="--no-init-file" -# It seems like there ought to be a program for determining whether standard -# input is a tty, but I can't find one; so we use mzscheme instead. if [ $plt4 = yes ]; then - case $(mzscheme -e '(terminal-port? (current-input-port))') in - '#t') # AFAICT, there is no equivalent of --mute-banner for mzscheme v4 - opts+=" --repl --load";; - *) opts+=" --script";; - esac + if [ $repl = '#t' ] + then # AFAICT, there is no equivalent of --mute-banner for mzscheme v4 + opts+=' --repl --load' + else opts+=' --script' + fi else - case $(mzscheme -mve '(display (terminal-port? (current-input-port)))') in - '#t') opts+=" --mute-banner --load";; - *) opts+=" --script";; - esac + if [ $repl = '#t' ] + then opts+=" --mute-banner --load" + else opts+=" --script" + fi fi $rl mzscheme $opts $arc_dir/as.scm $@ arc.sh @@ -13,5 +13,9 @@ (aload "arc.arc") (aload "libs.arc")) -(tl) +(let ((args (vector->list (current-command-line-arguments)))) + (if (null? args) + (tl) + ; command-line arguments are script filenames to execute + (for-each (lambda (f) (aload f)) args))) as.scm e518e3b323a63bc8bff13df75ec5b48eb06778a1 Michael Arntzenius daekharel@gmail.com http://github.com/nex3/arc/commit/5ac5d567bce08004c0dce6fc4cf4d63dbdc26535 5ac5d567bce08004c0dce6fc4cf4d63dbdc26535 2009-08-10T22:05:14-07:00 2009-08-10T22:05:14-07:00 Add support for running scripts via command-line arguments If there are any command-line arguments to as.scm, they will be interpreted as script filenames to be executed, and the REPL will not be run. arc.sh has been updated to understand this as well, and will pass on arguments to mzscheme sans REPL if they are present. a3faa773069337e532fe67f61217914f929cec2e Michael Arntzenius daekharel@gmail.com