mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-06 10:31:34 -08:00
118 lines
3.6 KiB
Common Lisp
118 lines
3.6 KiB
Common Lisp
;;; check target
|
|
|
|
(defvar *32bit* (<= most-positive-fixnum (expt 2 32)))
|
|
|
|
(let ((arg (first (ext:command-args))))
|
|
(mapc (lambda (name feature)
|
|
(when (search name arg)
|
|
(pushnew feature *features*)))
|
|
(list "/ecl-android" "/ecl-ios")
|
|
(list :android :ios)))
|
|
|
|
#+(or android ios)
|
|
(pushnew :mobile *features*)
|
|
|
|
(when (probe-file "/etc/sailfish-release")
|
|
(pushnew :sfos *features*))
|
|
|
|
;;; copy Swank and ECL contrib files (mobile only)
|
|
|
|
(defun cc (&rest args)
|
|
(apply 'concatenate 'string args))
|
|
|
|
#+mobile
|
|
(defvar *assets* #+android "../platforms/android/assets/lib/"
|
|
#+ios "../platforms/ios/assets/Library/")
|
|
|
|
#+mobile
|
|
(defun find-swank ()
|
|
(probe-file (cc *assets* "quicklisp/local-projects/slime/swank.lisp")))
|
|
|
|
#+mobile
|
|
(defun shell (command)
|
|
(ext:run-program "sh" (list "-c" command)))
|
|
|
|
#+mobile
|
|
(progn
|
|
(unless (find-swank)
|
|
(let ((to (cc *assets* "quicklisp/local-projects/slime/")))
|
|
(ensure-directories-exist to)
|
|
(shell (cc "cp -r ../../../slime/src/* " to))))
|
|
(let ((lib (cc (ext:getenv #+android (if *32bit* "ECL_ANDROID_32" "ECL_ANDROID")
|
|
#+ios "ECL_IOS")
|
|
"/lib/ecl-*/"))
|
|
(examples #+android *assets*
|
|
#+ios (cc *assets* "../Documents/")))
|
|
(shell (cc "cp ../www/index.html " *assets*))
|
|
#+ios
|
|
(ensure-directories-exist (cc examples "examples/"))
|
|
(shell (cc "cp -r ../examples " examples))
|
|
(unless (probe-file (cc *assets* "encodings"))
|
|
(shell (cc "cp " lib "*.doc " *assets*))
|
|
(shell (cc "cp -r " lib "encodings " *assets*)))
|
|
#+android ; always copy (might be either 32 or 64 bit)
|
|
(shell (cc "cp " lib "ecl-quicklisp.fas " *assets*))))
|
|
|
|
#+mobile
|
|
(unless (find-swank)
|
|
(error "Swank files missing, please see <LQML root>/slime/src/readme-sources.md"))
|
|
|
|
;;; compile ASDF system
|
|
|
|
(require :asdf)
|
|
(require :cmp)
|
|
|
|
(push (merge-pathnames "../")
|
|
asdf:*central-registry*)
|
|
|
|
(setf *default-pathname-defaults*
|
|
(truename (merge-pathnames "../../../"))) ; LQML root
|
|
|
|
(defvar *current*
|
|
(let ((name (namestring *load-truename*)))
|
|
(subseq name
|
|
(length (namestring *default-pathname-defaults*))
|
|
(1+ (position #\/ name :from-end t)))))
|
|
|
|
(dolist (file (list "package" "x" "ecl-ext" "ini" "qml")) ; load LQML symbols
|
|
(load (merge-pathnames file "src/lisp/")))
|
|
|
|
(progn
|
|
(defvar cl-user::*tr-path* (truename (cc *current* "i18n/")))
|
|
(load "src/lisp/tr"))
|
|
|
|
#-mobile
|
|
(progn
|
|
(require :ecl-curl)
|
|
(asdf:make-build "app"
|
|
:monolithic t
|
|
:type :static-library
|
|
:move-here (cc *current* "build/tmp/")
|
|
:init-name "ini_app"))
|
|
|
|
#+mobile
|
|
(progn
|
|
(pushnew :interpreter *features*)
|
|
(defvar *asdf-system* "app")
|
|
(defvar *ql-libs* (cc *current* "ql-libs.lisp"))
|
|
(defvar *init-name* "ini_app")
|
|
(defvar *library-path* (format nil "~Abuild-~A/tmp/"
|
|
*current*
|
|
#+android "android"
|
|
#+ios "ios"))
|
|
(defvar *require* (list :ecl-curl))
|
|
(load "platforms/shared/make"))
|
|
|
|
;;; rename lib
|
|
|
|
(let* ((from #-mobile (cc *current* (format nil "build/tmp/app--all-systems.~A"
|
|
#+msvc "lib"
|
|
#-msvc "a"))
|
|
#+mobile (cc *library-path* "app--all-systems.a"))
|
|
(to #+msvc "app.lib"
|
|
#-msvc "libapp.a")
|
|
(to* #-mobile (cc *current* "build/tmp/" to)
|
|
#+mobile (cc *library-path* to)))
|
|
(when (probe-file to*)
|
|
(delete-file to*))
|
|
(rename-file from to))
|