Mercurial > demo / tk.lisp

 (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)))))
 
 (defmacro rs-macroexpand (env &body body)
   "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))