Add make-binary support to dump dynamic libraries together

Author: ryukinix

src/make-binary.lisp

@@ -4,14 +4,60 @@
 (in-package :starwar)
 
 (defparameter *compression* 9)
+(defparameter *libprefix* "lib/")
+(defvar *libraries* nil)
+
+(defun libpath (prefix)
+  (merge-pathnames prefix (uiop/os:getcwd)))
+
+(defun get-libraries-names (&key (loaded-only t))
+  (remove-duplicates
+   (mapcar #'cffi:foreign-library-pathname
+           (cffi:list-foreign-libraries :loaded-only loaded-only))))
+
+(defun get-libraries (&optional (from "/lib/"))
+  (loop for l in (get-libraries-names)
+        for lfrom = (merge-pathnames l from)
+        for lpath = (probe-file lfrom)
+        when lpath
+          collect lfrom))
+
+(defun dump-libraries (&optional (to *libprefix*))
+  (format t "~%LIBPATH: ~a~%" (libpath to))
+  (ensure-directories-exist (libpath to))
+  (let ((libs (get-libraries)))
+    (setq *libraries* (get-libraries-names))
+    (loop for lib in (get-libraries)
+          do (sb-ext:run-program "/bin/cp"
+                                 (list "-v"
+                                       (namestring lib)
+                                       (namestring (libpath to)))
+                                 :output *standard-output*))))
+
+(defun load-library (library-name)
+  (cffi:load-foreign-library library-name))
+
+(defun import-libraries (&optional (libpath *libprefix*))
+  (pushnew libpath
+           cffi:*foreign-library-directories*
+           :test #'equal)
+  (loop for l in *libraries*
+        do (load-library l)))
+
+(defun close-libraries ()
+  (loop for library in (cffi:list-foreign-libraries :loaded-only t)
+        do (cffi:close-foreign-library library)))
+
+(defun main-wrapper ()
+  (import-libraries)
+  (starwar:main))
 
-(defun dump-binaries ()
-  (cffi)
-  )
 
 (defun make-binary ()
+  (dump-libraries)  ;; put all libraries into /lib
+  (close-libraries) ;; close currently open libraries
   (sb-ext:save-lisp-and-die #+unix "starwar-linux"
                             #+win32 "starwar-win32.exe"
-                            :toplevel #'starwar:main
+                            :toplevel #'main-wrapper
                             :executable t
-                            :compression compression))
+                            :compression *compression*))