;
; 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/twmove4.o" "~ringuett/tile/twpush4.o" 
		      "~ringuett/tile/bfs4.o" "~ringuett/tile/heap4.o"))

(load "pplan")
