mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-06 02:30:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

example 'cl-repl': allow building of 32bit APK, see 'qmake-android .. "CONFIG+=32bit"'

Browse source
This commit is contained in:
pls.153 2023-01-12 20:35:15 +01:00
parent 608c17f121
commit c7d631697a
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
examples/cl-repl/make.lisp
View file

@ -1,5 +1,7 @@
;;; check target
(defvar *32bit* (<= most-positive-fixnum (expt 2 32)))
(let ((arg (first (ext:command-args))))
(mapc (lambda (name feature)
(when (search name arg)
@ -33,7 +35,8 @@
(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 "ECL_ANDROID" #+ios "ECL_IOS")
(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/")))
@ -44,9 +47,8 @@
(unless (probe-file (cc *assets* "encodings"))
(shell (cc "cp " lib "*.doc " *assets*))
(shell (cc "cp -r " lib "encodings " *assets*)))
#+android
(unless (probe-file (cc *assets* "ecl-quicklisp.fas"))
(shell (cc "cp " lib "ecl-quicklisp.fas " *assets*)))))
#+android ; always copy (might be either 32 or 64 bit)
(shell (cc "cp " lib "ecl-quicklisp.fas " *assets*))))
#+mobile
(unless (find-swank)