(in-package #:demo)

 (defvar *cargo-target* #P"/Users/ellis/dev/otom8/demo/target/")

 (defmacro rs-find-dll (name &optional debug)

   "Find the rust dll specified by NAME."

   (cond

     ((uiop:directory-exists-p (merge-pathnames *cargo-target* "release"))

      `,(mkstr "./target/release/" name))

     ((uiop:directory-exists-p  (merge-pathnames *cargo-target* "debug"))

      `,(mkstr "./target/debug/" name))

     (t (progn

 	 (uiop:run-program `("cargo" "build" ,(unless debug "--release")) :output t)

 	 `,(find-rust-dll name debug)))))

   "Cbindgen is quite the menace and really doesn't like our macros used

 to generate C FFI bindings. To compensate for this, we use a tool

 called cargo-expand by the most excellent dtolnay which expands Rust

 macros. The expansions are assembled into an equivalent Rust source

 file which cbindgen won't get stuck in an infinite compile loop on.")

 (defun random-id ()

   (format NIL "~8,'0x-~8,'0x" (random #xFFFFFFFF) (get-universal-time)))

 (defun scan-dir (dir filename callback)

   (dolist (path (directory (merge-pathnames (merge-pathnames filename "**/") dir)))

     (funcall callback path)))

 (defun mkstr (&rest args)

   (with-output-to-string (s)

     (dolist (a args) (princ a s))))

 (defun symb (&rest args)

   (values (intern (apply #'mkstr args))))

 (defun sbq-reader (stream sub-char numarg)

   "The anaphoric sharp-backquote reader: #`((,a1))"

   (declare (ignore sub-char))

   (unless numarg (setq numarg 1))

   `(lambda ,(loop for i from 1 to numarg

 		  collect (symb 'a i))

      ,(funcall

        (get-macro-character #\`) stream nil)))

 (eval-when (:execute)

   (set-dispatch-macro-character

    #\# #\` #'demo:sbq-reader))