;
; loader file for planning stuff
;
(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 '("~ringuett/tile/twmove.o" "~ringuett/tile/twpush.o" 
		      "~ringuett/tile/bfs.o" "~ringuett/tile/heap.o"))

(load "~ringuett/tile/pplan")
