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

add support for keyword arguments in 'Lisp.call()', like '":start", 10'

Browse source
This commit is contained in:
pls.153 2024-09-16 14:11:46 +02:00
parent a3879f7288
commit eb67c56fd2
1 changed files with 18 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

27
src/lisp/qml.lisp
View file

@ -38,24 +38,33 @@
;; Every 'Lisp.call()' or 'Lisp.apply()' function call in QML will call this ;; Every 'Lisp.call()' or 'Lisp.apply()' function call in QML will call this
;: function. The variable *CALLER* will be bound to the calling QQuickItem, ;: function. The variable *CALLER* will be bound to the calling QQuickItem,
;; if passed with 'this' as first argument to 'Lisp.call()' / 'Lisp.apply()'. ;; if passed with 'this' as first argument to 'Lisp.call()' / 'Lisp.apply()'.
;;
;; Possible integers encoded as hex strings in JS (see function HEX above) ;; Possible integers encoded as hex strings in JS (see function HEX above)
;; are automatically converted back to integers. ;; are automatically converted back to integers.
;;
;; Strings starting with ':' are assumed to be Lisp keywords, if composed by
;; alphanumeric characters, and if they have a following argument.
(let ((fun (string-to-symbol function)) (let ((fun (string-to-symbol function))
(*caller* (if (zerop caller) (*caller* (if (zerop caller)
*caller* *caller*
(qt-object caller)))) (qt-object caller))))
(if (fboundp fun) (if (fboundp fun)
(apply fun (mapcar (lambda (arg) (apply fun (let ((len (length arguments)))
(if (and (stringp arg) (loop :for arg :in arguments
(x:starts-with "#x" arg)) :for n :from 1 :to len
(or (ignore-errors (read-from-string arg)) :collect (if (and (stringp arg)
arg) (or (x:starts-with "#x" arg) ; integer
arg)) (and (char= #\: (char arg 0)) ; keyword
arguments)) (> (length arg) 1)
(every 'alphanumericp (subseq arg 1))
(< n len))))
(or (ignore-errors (read-from-string arg))
arg)
arg))))
(let ((msg (format nil "[LQML:error] Lisp.call(): ~S is undefined." function))) (let ((msg (format nil "[LQML:error] Lisp.call(): ~S is undefined." function)))
(when *break-on-errors* (when *break-on-errors*
(break msg) (break msg))
(format *error-output* "~%~A~%" msg)))))) (format *error-output* "~%~A~%" msg)))))
;;; utils ;;; utils