mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-06 10:31:34 -08:00
36 lines
893 B
Common Lisp
36 lines
893 B
Common Lisp
(in-package :qml)
|
|
|
|
(export
|
|
(list #+android '*shell-output*
|
|
#+android 'shell))
|
|
|
|
;;; add function 'shell' (android only)
|
|
|
|
#+android
|
|
(defvar *shell-output* nil)
|
|
|
|
#+android
|
|
(defun shell (command)
|
|
"Run shell commands; example:
|
|
(shell \"df -h\")"
|
|
(let ((s (ext:run-program "sh" (list "-c" command))))
|
|
(setf *shell-output*
|
|
(loop :for line = (read-line s nil nil)
|
|
:while line :collect line)))
|
|
(princ (x:join *shell-output* #\Newline))
|
|
(values))
|
|
|
|
#+android
|
|
(progn
|
|
;; copied asset files are read-only by default
|
|
(when (probe-file "settings/")
|
|
(shell "chmod 664 settings/*.lisp")))
|
|
|
|
;;; create default '.eclrc'
|
|
|
|
#+mobile
|
|
(let ((ecl-rc (merge-pathnames ".eclrc")))
|
|
(unless (probe-file ecl-rc)
|
|
(with-open-file (s ecl-rc :direction :output)
|
|
(format s "(x:when-it (probe-file \"settings/colors.lisp\")~
|
|
~% (load x:it))"))))
|