;; Loader for dbindel's MiniJava interpreter

(setf *cs164-class-dir* "/home/ff/cs164/public_html/software/")
(defun dsb-load (fname)
  (load (concatenate 'string *cs164-class-dir* "build/sunos-6.2" fname)))

(dsb-load "util")
(dsb-load "make-ll1")
(dsb-load "simple-lex")
(dsb-load "simple-parse")
(dsb-load "simple-interp")

(defun dsb-run-example (fname)
  (run-java (concatenate 'string *cs164-class-dir* "test/" fname)))