mirrors/EQL5
1
Fork 0
mirror of https://gitlab.com/eql/EQL5.git synced 2025-12-07 02:50:59 -08:00
Code Issues Projects Releases Packages Wiki Activity

fix and improve "qml-lisp" example; allow nested QVariantLists (JS arrays in QML);

Browse source
This commit is contained in:
polos 2017-01-17 10:13:45 +01:00
parent 0e82b0a517
commit 03c7a5ded5
5 changed files with 27 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

12
examples/M-modules/quick/qml-lisp/qml-lisp.lisp
View file

@ -7,9 +7,17 @@
(defvar *qml-lisp* (qload-c++ "lib/qml_lisp"))
(defun string-to-symbol (name)
(let* ((upper (string-upcase name))
(p (position #\: name)))
(if p
(intern (subseq upper (1+ (position #\: name :from-end t)))
(subseq upper 0 p))
(intern upper))))
(defun qml-apply (function arguments)
(let ((value (apply (intern (string-upcase function)) arguments)))
(let ((value (apply (string-to-symbol function)
arguments)))
(if (stringp value)
value
(princ-to-string value))))