;  LOAD4

; Quiet the garbage collector

(setf *gc-silence* t)

; Load all the world files:

(load "tw")
(load "tw-interface")
(load-foreign-files '("twdisp4.o")
		    '("-lcurses" "-ltermcap" "-lc"))

; Load all the plan-expansion files:

(def-foreign-function (moveplan (:return-type :simple-string))
    (rows :signed-32bit) (cols :signed-32bit)
    (grid :simple-string) (occupied :simple-string)
    (row :signed-32bit) (col :signed-32bit))

(def-foreign-function (pushplan (:return-type :simple-string))
    (rows :signed-32bit) (cols :signed-32bit)
    (grid :simple-string) (occupied :simple-string)
    (row :signed-32bit) (col :signed-32bit) (orientation :signed-32bit))

(load-foreign-files '("twmove4.o" "twpush4.o" 
		      "bfs4.o" "heap4.o"))

(load "pplan")


; Load all the agent files:

(load "agent-structures")
(load "tw-vars")
(load "save-history")
(load "agent")
(load "agent-access")
;(load "ex.l")


; Load all the parameter settings:

(load "defaults.l")
;(load "twparms.l")
(load "parms.l")
;(load "ctw.l")


(load "exper.l")



