;;;  MS-PROJECT

;;;  Define the package :TJ

(unless (find-package :tj)
  (make-package :tj :use '(:common-lisp :ccl :cl-user)))
(in-package :tj)
(use-package :cl-user :tj)
(use-package :tj :cl-user)

(defvar *using-sim* nil)
(require :defaclass)
(use-package :defaclass)

(load "drive")             ;; robot-control primitives in TJ package

(load "exports")                        ; exports, macros and parameters

;; (if (y-or-n-dialog
;;     "Would you like to use the physical robot TJ, or the simulator?"
;;     :yes-text "TJ" :no-text "SIM")
;; (progn
;;    (setf *using-sim* nil)
;;    (load "tj-interface"))      ;; tj-interface
;;  (progn
;;    (setf *using-sim* t)
 ;;   (load "ccl:common;Robot Simulator;sim")
;;    (load "sim-interface")     ;; simulator interface
 ;;   ))

;; The new parser. The only changes made to these files are as follows:
;; 1) The (load "nlp") is added here
;; 2) "process-line" in nl-commands2 is now "old-process-line"
;; 3) The command (use-package :nlp) was added to the top of mac-interface2
;;
;; simple, no?
;;
;; /sdd

(load "nlp")       


(setf *using-sim* nil)
(load "tj-interface")
(load "mac-interface2")     ;; window graphics for Mac
(load "map2")               ;; map building utilities
(load "nl-commands2")       ;; natural language commands
(tj-win)

;; (load "7ai")               ;; initial map of 7th floor