mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-06 02:30:38 -08:00
33 lines
611 B
Common Lisp
33 lines
611 B
Common Lisp
(defpackage :qt
|
|
(:use :cl :qml)
|
|
(:export
|
|
#:*cpp*
|
|
#:data-path
|
|
#:disconnect
|
|
#:has-feature
|
|
#:ini
|
|
#:ini-db
|
|
#:ini-positioning
|
|
#+(or android ios)
|
|
#:keep-screen-on
|
|
#:last-position
|
|
#:local-ip
|
|
#:start-device-discovery
|
|
#:stop-device-discovery
|
|
#:read*
|
|
#:set-connection-type
|
|
#:set-device-filter
|
|
#:sql-query
|
|
#:wifi-connectable
|
|
#:write*))
|
|
|
|
(in-package :qt)
|
|
|
|
(defvar *cpp* nil)
|
|
|
|
(defun ini ()
|
|
(setf *cpp*
|
|
#+qt-plugin (qload-c++ "cpp/qt")
|
|
#-qt-plugin (qfind-child nil "QT"))
|
|
(let ((*package* (find-package :qt)))
|
|
(define-qt-wrappers *cpp*)))
|