~/.swank.lisp file (or copy file eql5/slime/.swank.lisp in your home directory):
(setf swank:*globally-redirect-io* t) ; show print output in Emacs-
eql5/slime/eql-start-swank.lisp in your slime/ directory
-
+ Copy file eql5/slime/eql-start-swank.lisp in your slime/ directory
qlet correctly, edit your slime/contrib/slime-cl-indent.el file and add a line:
+ +(let* (as let)) ; already there +(qlet (as let)) ; new
-slime can be omitted if the file name contains "start-swank"), optionally passing a Lisp file:
diff --git a/doc/auto-doc.htm b/doc/auto-doc.htm
index 0c63e6a..c411305 100644
--- a/doc/auto-doc.htm
+++ b/doc/auto-doc.htm
@@ -29,29 +29,29 @@ This macro simplifies the definition of UI variables:
Returns the qt-object of the given class/struct (see method the-qt-object in example X-extras/CLOS-encapsulation.lisp).qt-object argument is expected.
NIL, the event will be captured for the whole application.NIL, the event will be processed by Qt afterwards.qremove-event-filter.qoverride for QObject::eventFilter(QObject*,QEvent*) and QObject::installEventFilter(QObject*),QObject::removeEventFilter(QObject*).NIL, the event will be captured for the whole application.NIL, the event will be processed by Qt afterwards.qremove-event-filter.qoverride for QObject::eventFilter(QObject*,QEvent*) and QObject::installEventFilter(QObject*),QObject::removeEventFilter(QObject*).- (qadd-event-filter nil |QEvent.MouseButtonPress| (lambda (object mouse-event) (print object) nil)) + (qadd-event-filter nil |QEvent.MouseButtonPress| (lambda (object mouse-event) (print object) nil))
qApp.
+Convenience function returning qApp.
- (qapropos "html" "QTextEdit") - (qapropos nil "QWidget") - (qapropos) - (qapropos '|toString|) ; wrapper function symbol - (qapropos nil *qt-main*) ; see Qt_EQL, Qt_EQL (custom Qt classes) + (qapropos "html" "QTextEdit") + (qapropos nil "QWidget") + (qapropos) + (qapropos '|toString|) ; wrapper function symbol + (qapropos nil *qt-main*) ; see Qt_EQL, Qt_EQL (custom Qt classes)
qapropos, returning the results as nested list.
(setf *c++-reloaded* (lambda (var lib) (qapropos nil (symbol-value var)))) ; optional: set a notifier
qoverride).qoverride).- (qconnect edit "textChanged(QString)" label "setText(QString)") - (qconnect edit "textChanged(QString)" (lambda (txt) (print txt))) + (qconnect edit "textChanged(QString)" label "setText(QString)") + (qconnect edit "textChanged(QString)" (lambda (txt) (print txt)))
object using copy-on-write, if such a constructor is available (non QObject derived classes only).(qnew "QPixmap(QPixmap)" pixmap)qnew).
+Copies object using copy-on-write, if such a constructor is available (non QObject derived classes only).(qnew "QPixmap(QPixmap)" pixmap)qnew).
- (qcopy pixmap) ; QPen, QBrush, QFont, QPalette, QPixmap, QImage... + (qcopy pixmap) ; QPen, QBrush, QFont, QPalette, QPixmap, QImage...
pointer value to 0. Deleting a widget deletes all its child widgets, too.later is not NIL, the function QObject::deleteLater() will be called instead (but note: the object pointer will be set to 0 immediately.)T if the object has effectively been deleted.qlet for local Qt objects.
+Deletes any Qt object, and sets the pointer value to 0. Deleting a widget deletes all its child widgets, too.later is not NIL, the function QObject::deleteLater() will be called instead (but note: the object pointer will be set to 0 immediately.)T if the object has effectively been deleted.qlet for local Qt objects.
- (qdel widget) - (qdel socket :later) + (qdel widget) + (qdel socket :later)
NIL or omitted.T if something has effectively been disconnected.
+Disconnects signals to either Qt slots or Lisp functions. Anything but the caller can be either NIL or omitted.T if something has effectively been disconnected.
- (qdisconnect edit "textChanged(QString)" label "setText(QString)") - (qdisconnect edit "textChanged(QString)") - (qdisconnect edit nil label) - (qdisconnect edit) + (qdisconnect edit "textChanged(QString)" label "setText(QString)") + (qdisconnect edit "textChanged(QString)") + (qdisconnect edit nil label) + (qdisconnect edit)
class-name and enum-name (see Q_ENUMS in Qt sources).enum-name will return all meta enum lists of the class/scope.
+Returns the meta enum list of the given class-name and enum-name (see Q_ENUMS in Qt sources).enum-name will return all meta enum lists of the class/scope.
- (qenums "QLineEdit" "EchoMode") ; gives '("QLineEdit" ("EchoMode" ("Normal" . 0) ...))
- (qenums "Qt")
+ (qenums "QLineEdit" "EchoMode") ; gives '("QLineEdit" ("EchoMode" ("Normal" . 0) ...))
+ (qenums "Qt")
T for same instances of a Qt class. Comparing QVarian
(= (qt-object-id object1) (qt-object-id object2))
-QESCAPE (string)
+QESCAPE (string)
-Calls QString::toHtmlEscaped().
+Calls QString::toHtmlEscaped().
QEVAL (&rest forms)
@@ -145,14 +145,14 @@ Calls QString::toHtmlEscaped().
Slime mode :repl-hook only (not needed in default Slime mode): evaluate forms in GUI thread. Defaults to a simple progn outside of Slime.
-QEXEC (&optional milliseconds)
+QEXEC (&optional milliseconds)
-Convenience function to call QApplication::exec().
Optionally pass the time in milliseconds after which QEventLoop::exit() will be called.
See also qsleep.
+Convenience function to call QApplication::exec().
Optionally pass the time in milliseconds after which QEventLoop::exit() will be called.
See also qsleep.
-QEXIT ()
+QEXIT ()
-Calls QEventLoop::exit(), in order to exit event processing after a call to qexec with a timeout.
Returns T if the event loop has effectively been exited.
+Calls QEventLoop::exit(), in order to exit event processing after a call to qexec with a timeout.
Returns T if the event loop has effectively been exited.
QFIND-BOUND (&optional class-name)
@@ -168,25 +168,25 @@ Finds all symbols bound to Qt objects, returning both the Qt class names and the
Like qfind-bound, but returning the results as list of conses.
-QFIND-CHILD (object object-name)
+QFIND-CHILD (object object-name)
-Calls QObject::findChild<QObject*>().
Can be used to get the child objects of any Qt object (typically from a UI, see qload-ui), identified by QObject::objectName().
+Calls QObject::findChild<QObject*>().
Can be used to get the child objects of any Qt object (typically from a UI, see qload-ui), identified by QObject::objectName().
- (qfind-child *main* "editor")
+ (qfind-child *main* "editor")
-QFIND-CHILDREN (object &optional object-name class-name)
+QFIND-CHILDREN (object &optional object-name class-name)
-Calls QObject::findChildren<QObject*>(), returning a list of all child objects matching object-name and class-name.
Omitting the &optional arguments will find all children, recursively.
+Calls QObject::findChildren<QObject*>(), returning a list of all child objects matching object-name and class-name.
Omitting the &optional arguments will find all children, recursively.
- (qfind-children *qt-main* nil "LightWidget") ; see Qt_EQL example
+ (qfind-children *qt-main* nil "LightWidget") ; see Qt_EQL example
-QFROM-UTF8 (byte-array)
+QFROM-UTF8 (byte-array)
-Returns the byte array (vector of octets) converted using QString::fromUtf8().
+Returns the byte array (vector of octets) converted using QString::fromUtf8().
QGUI (&optional process-events)
@@ -194,36 +194,36 @@ Returns the byte array (vector of octets) converted using QString::fromUtf
Launches the EQL convenience GUI.
If you don't have an interactive environment, you can pass T to run a pseudo Qt event loop. A better option is to start the tool like so:
eql -qgui, in order to run the Qt event loop natively.
-QID (name)
+QID (name)
-Returns the internally used ID of the object name. Non QObject classes have negative ids.
+Returns the internally used ID of the object name. Non QObject classes have negative ids.
- (qid "QWidget")
+ (qid "QWidget")
-QINVOKE-METHOD (object function-name &rest arguments)
+QINVOKE-METHOD (object function-name &rest arguments)
-QFUN
+QFUN
-Calls any of Qt methods, slots, signals. Static methods can be called by passing the string name of an object.
The most convenient way of calling Qt methods is to use the wrapper functions (see alternative 2 below), which allows for tab completion, showing all possible candidates in case of ambiguous type lists (overloaded methods). Additionally, static functions are shown as one symbol (easily catching the eye).
(Optionally you can pass the argument types (as for qconnect and qoverride), which may result in better performance, but only in some edge cases.)
+Calls any of Qt methods, slots, signals. Static methods can be called by passing the string name of an object.
The most convenient way of calling Qt methods is to use the wrapper functions (see alternative 2 below), which allows for tab completion, showing all possible candidates in case of ambiguous type lists (overloaded methods). Additionally, static functions are shown as one symbol (easily catching the eye).
(Optionally you can pass the argument types (as for qconnect and qoverride), which may result in better performance, but only in some edge cases.)
- (qfun item "setText" 0 "Some objects are EQL.")
- (qfun "QDateTime" "currentDateTime") ; static method
- (qfun slider "valueChanged" 10) ; emit signal
-
- ;; alternative 1: (macro '!')
-
- (! "setText" item 0 "Some objects are EQL.")
- (! "currentDateTime" "QDateTime")
- (! "valueChanged" slider 10)
-
- ;; alternative 2: (wrapper functions)
-
- (|setText| item 0 "Some objects are EQL.")
- (|currentDateTime.QDateTime|)
- (|valueChanged| slider 10)
+ (qfun item "setText" 0 "Some objects are EQL.")
+ (qfun "QDateTime" "currentDateTime") ; static method
+ (qfun slider "valueChanged" 10) ; emit signal
+
+ ;; alternative 1: (macro '!')
+
+ (! "setText" item 0 "Some objects are EQL.")
+ (! "currentDateTime" "QDateTime")
+ (! "valueChanged" slider 10)
+
+ ;; alternative 2: (wrapper functions)
+
+ (|setText| item 0 "Some objects are EQL.")
+ (|currentDateTime.QDateTime|)
+ (|valueChanged| slider 10)
QINVOKE-METHOD* (object cast-class-name function-name &rest arguments)
@@ -312,29 +312,29 @@ Similar to let* (and to local C++ variables).
Creates tempor
Convenience function for Slime (or when loading EQL files from an ECL thread).
Loading files that create many Qt objects can be slow on the Slime REPL (many thread switches).
This function reduces all thread switches (GUI related) to a single one.
-QLOAD-C++
(library-name &optional unload)
+QLOAD-C++ (library-name &optional unload)
-Loads a custom Qt/C++ plugin (see Qt_EQL/).
The library-name has to be passed as path to the plugin, without file ending.
This offers a simple way to extend your application with your own Qt/C++ functions.
The plugin will be reloaded (if supported by the OS) every time you call this function (Linux: see also qauto-reload-c++).
If the unload argument is not NIL, the plugin will be unloaded (if supported by the OS).
+Loads a custom Qt/C++ plugin (see Qt_EQL/).
The library-name has to be passed as path to the plugin, without file ending.
This offers a simple way to extend your application with your own Qt/C++ functions.
The plugin will be reloaded (if supported by the OS) every time you call this function (Linux: see also qauto-reload-c++).
If the unload argument is not NIL, the plugin will be unloaded (if supported by the OS).
- (defparameter *c++* (qload-c++ "eql_cpp")) ; load (Linux: see also QAUTO-RELOAD-C++)
-
- (qapropos nil *c++*) ; documentation
-
- (! "mySpeedyQtFunction" (:qt *c++*)) ; call library function (note :qt)
+ (defparameter *c++* (qload-c++ "eql_cpp")) ; load (Linux: see also QAUTO-RELOAD-C++)
+
+ (qapropos nil *c++*) ; documentation
+
+ (! "mySpeedyQtFunction" (:qt *c++*)) ; call library function (note :qt)
-QLOAD-UI (file-name)
+QLOAD-UI (file-name)
-Calls a custom QUiLoader::load() function, loading a UI file created by Qt Designer. Returns the top level widget of the UI.
Use qfind-child to retrieve the child widgets.
+Calls a custom QUiLoader::load() function, loading a UI file created by Qt Designer. Returns the top level widget of the UI.
Use qfind-child to retrieve the child widgets.
- (qload-ui "my-fancy-gui.ui")
+ (qload-ui "my-fancy-gui.ui")
-QLOCAL8BIT (string)
+QLOCAL8BIT (string)
-Converts a Unicode pathname to a simple ECL base string, using QString::toLocal8Bit() (see QLocale settings).
Depending on the OS (namely Windows), this is necessary if you get a filename from Qt and want to use it in ECL.
See also QUTF8.
+Converts a Unicode pathname to a simple ECL base string, using QString::toLocal8Bit() (see QLocale settings).
Depending on the OS (namely Windows), this is necessary if you get a filename from Qt and want to use it in ECL.
See also QUTF8.
QMESSAGE-BOX (x)
@@ -344,17 +344,17 @@ Converts a Unicode pathname to a simple ECL base string, using QString::to
Convenience function: a simple message box, converting x to a string if necessary.
Returns its argument (just like print).
-QNEW-INSTANCE (class-name &rest arguments/properties)
+QNEW-INSTANCE (class-name &rest arguments/properties)
-QNEW
+QNEW
-Creates a new Qt object, optionally passing the given arguments to the constructor.
Additionally you can pass any number of property/value pairs.
Please note how you can abbreviate long type lists.
+Creates a new Qt object, optionally passing the given arguments to the constructor.
Additionally you can pass any number of property/value pairs.
Please note how you can abbreviate long type lists.
- (qnew "QWidget")
- (qnew "QPixmap(int,int)" 50 50) ; constructor
- (qnew "QLabel" "text" "Readme") ; set property
- (qnew "QMatrix4x4(qreal...)" 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4)
+ (qnew "QWidget")
+ (qnew "QPixmap(int,int)" 50 50) ; constructor
+ (qnew "QLabel" "text" "Readme") ; set property
+ (qnew "QMatrix4x4(qreal...)" 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4)
QNEW-INSTANCE* (class-name &rest arguments/properties)
@@ -371,32 +371,32 @@ Convenience function for the REPL.
Same as qnew, but showing the
Checks for a 0 Qt object pointer.
-QOBJECT-NAMES (&optional type)
+QOBJECT-NAMES (&optional type)
-Returns all supported object names. Passing either :q or :n returns only the QObject inherited, or not QObject inherited names, respectively.
+Returns all supported object names. Passing either :q or :n returns only the QObject inherited, or not QObject inherited names, respectively.
-QOK ()
+QOK ()
-Needed to get the boolean ok value in cases like this:
+Needed to get the boolean ok value in cases like this:
- (! "getFont(bool*)" "QFontDialog" nil)
-
- (|getFont.QFontDialog| nil) ; NIL needed for <bool*>
+ (! "getFont(bool*)" "QFontDialog" nil)
+
+ (|getFont.QFontDialog| nil) ; NIL needed for <bool*>
-QOVERRIDE (object name function)
+QOVERRIDE (object name function)
-Sets a Lisp function to be called on a virtual Qt method.
To remove a function, pass NIL instead of the function argument.
If you call qcall-default anywhere inside your overridden function, the base implementation will be called afterwards.
Instead of qcall-default you can directly call the base implementation, which is useful if you want to do post-processing of the returned value.
+Sets a Lisp function to be called on a virtual Qt method.
To remove a function, pass NIL instead of the function argument.
If you call qcall-default anywhere inside your overridden function, the base implementation will be called afterwards.
Instead of qcall-default you can directly call the base implementation, which is useful if you want to do post-processing of the returned value.
- (qoverride edit "keyPressEvent(QKeyEvent*)" (lambda (ev) (print (|key| ev)) (qcall-default)))
+ (qoverride edit "keyPressEvent(QKeyEvent*)" (lambda (ev) (print (|key| ev)) (qcall-default)))
-QPROCESS-EVENTS ()
+QPROCESS-EVENTS ()
-Convenience function to call QApplication::processEvents().
+Convenience function to call QApplication::processEvents().
QPROPERTIES (object &optional (depth 1))
@@ -409,14 +409,14 @@ Prints all current properties of object, searching both all Qt prop
(qproperties *tool-button* 2) ; depth 2: both QToolButton and QAbstractButton
-QPROPERTY (object name)
+QPROPERTY (object name)
-QGET
+QGET
-Gets a Qt property. Enumerator values are returned as int values.
Returns T as second return value for successful calls.
+Gets a Qt property. Enumerator values are returned as int values.
Returns T as second return value for successful calls.
- (qget label "text")
+ (qget label "text")
QQUIT (&optional (exit-status 0) (kill-all-threads t))
@@ -426,17 +426,17 @@ Gets a Qt property. Enumerator values are returned as int values.not ext:quit.
Negative values for exit-status will call abort() instead of normal program exit (e.g. to prevent infinite error message loops in some nasty cases).
-QREMOVE-EVENT-FILTER (handle)
+QREMOVE-EVENT-FILTER (handle)
-Removes the event filter corresponding to handle, which is the return value of qadd-event-filter.
Returns handle if the event filter has effectively been removed.
See also qclear-event-filters.
+Removes the event filter corresponding to handle, which is the return value of qadd-event-filter.
Returns handle if the event filter has effectively been removed.
See also qclear-event-filters.
-QREQUIRE
(module &optional quiet)
+QREQUIRE (module &optional quiet)
-Loads an EQL module, corresponding to a Qt module.
Returns the module name if both loading and initializing have been successful.
If the quiet argument is not NIL, no error message will be shown on failure.
Currently available modules: :help :multimedia :network :sql :svg :webkit
+Loads an EQL module, corresponding to a Qt module.
Returns the module name if both loading and initializing have been successful.
If the quiet argument is not NIL, no error message will be shown on failure.
Currently available modules: :help :multimedia :network :sql :svg :webkit
- (qrequire :network)
+ (qrequire :network)
QRGB (red green blue &optional (alpha 255))
@@ -444,14 +444,14 @@ Loads an EQL module, corresponding to a Qt module.
Returns the module name if
Constructs a (unsigned-byte 32) value that represents a 32 bit pixel color specified by the red, green, blue and alpha values.
-QRUN-IN-GUI-THREAD (function &optional (blocking t))
+QRUN-IN-GUI-THREAD (function &optional (blocking t))
-QRUN
+QRUN
-Runs function in GUI thread while (by default) blocking the calling thread (if called from main thread, function will simply be called directly).
This is needed to run GUI code from ECL threads other than the main thread.
Returns T on success.
There are 2 reasons to always wrap any EQL function like this, if called from another ECL thread:- Qt GUI methods always need to run in the GUI thread
- EQL functions are not designed to be reentrant (not needed for GUI code)
See also macro qrun*.
+Runs function in GUI thread while (by default) blocking the calling thread (if called from main thread, function will simply be called directly).
This is needed to run GUI code from ECL threads other than the main thread.
Returns T on success.
There are 2 reasons to always wrap any EQL function like this, if called from another ECL thread:- Qt GUI methods always need to run in the GUI thread
- EQL functions are not designed to be reentrant (not needed for GUI code)
See also macro qrun*.
- (qrun 'update-view-data)
+ (qrun 'update-view-data)
QRUN-IN-GUI-THREAD* (&body body)
@@ -477,9 +477,9 @@ Allows to select (by clicking) any (child) widget.
The variable qsel:*q
(qsel (lambda (widget) (qmsg widget)))
-QSENDER ()
+QSENDER ()
-Corresponding to QObject::sender(). To use inside a Lisp function connected to a Qt signal.
+Corresponding to QObject::sender(). To use inside a Lisp function connected to a Qt signal.
QSET-COLOR (widget color-role color)
@@ -495,14 +495,14 @@ Convenience function for simple color settings (avoiding QPalette b
Sets the Qt object pointer to 0. This function is called automatically after qdel.
-QSET-PROPERTY (object name value)
+QSET-PROPERTY (object name value)
-QSET
+QSET
-Sets a Qt property. Enumerators have to be passed as int values.
Returns T as second return value for successful calls.
+Sets a Qt property. Enumerators have to be passed as int values.
Returns T as second return value for successful calls.
- (qset label "alignment" |Qt.AlignCenter|)
+ (qset label "alignment" |Qt.AlignCenter|)
QSIGNAL (name)
@@ -510,15 +510,15 @@ Sets a Qt property. Enumerators have to be passed as int values.
const char* Qt signal (not needed in qconnect).
-QSINGLE-SHOT (milliseconds function)
+QSINGLE-SHOT (milliseconds function)
-A single shot timer similar to QTimer::singleShot().
+A single shot timer similar to QTimer::singleShot().
- (qsingle-shot 1000 'one-second-later)
-
- (let ((ms 500))
- (qsingle-shot ms (lambda () (qmsg ms))))
+ (qsingle-shot 1000 'one-second-later)
+
+ (let ((ms 500))
+ (qsingle-shot ms (lambda () (qmsg ms))))
QSLEEP (seconds)
@@ -531,51 +531,51 @@ Similar to sleep, but continuing to process Qt events.
Needed in functions which expect a const char* Qt slot (not needed in qconnect).
-QSTATIC-META-OBJECT (class-name)
+QSTATIC-META-OBJECT (class-name)
-Returns the ::staticMetaObject of the given class name.
+Returns the ::staticMetaObject of the given class name.
- (qstatic-meta-object "QEasingCurve")
+ (qstatic-meta-object "QEasingCurve")
-QSUPER-CLASS-NAME (name)
+QSUPER-CLASS-NAME (name)
-Returns the super class of an object name, or NIL if the class doesn't inherit another Qt class.
Returns T as second return value for successful calls.
+Returns the super class of an object name, or NIL if the class doesn't inherit another Qt class.
Returns T as second return value for successful calls.
- (qsuper-class-name "QGraphicsLineItem")
+ (qsuper-class-name "QGraphicsLineItem")
-QT-OBJECT-?
(object)
+QT-OBJECT-? (object)
-Returns the specific qt-object of a generic qt-object.
Works for QObject and QEvent inherited classes only.
+Returns the specific qt-object of a generic qt-object.
Works for QObject and QEvent inherited classes only.
- (qt-object-? (|parentWidget| widget))
- (qt-object-? (|widget| (|itemAt| box-layout 0)))
- (qt-object-? event)
+ (qt-object-? (|parentWidget| widget))
+ (qt-object-? (|widget| (|itemAt| box-layout 0)))
+ (qt-object-? event)
-QT-OBJECT-NAME (object)
+QT-OBJECT-NAME (object)
-Returns the Qt class name.
+Returns the Qt class name.
-QUI-CLASS (file-name &optional object-name)
+QUI-CLASS (file-name &optional object-name)
-Finds the class name for the given user-defined object name in the given UI file.
Omitting the object name will return the top level class name of the UI.
+Finds the class name for the given user-defined object name in the given UI file.
Omitting the object name will return the top level class name of the UI.
- (qui-class "examples/data/main-window.ui" "editor") ; returns "QTextEdit"
+ (qui-class "examples/data/main-window.ui" "editor") ; returns "QTextEdit"
-QUI-NAMES (file-name)
+QUI-NAMES (file-name)
-Finds all user-defined object names in the given UI file.
+Finds all user-defined object names in the given UI file.
- (qui-names "examples/data/main-window.ui")
+ (qui-names "examples/data/main-window.ui")
QUIC (&optional (file.h "ui.h") (file.lisp "ui.lisp") (ui-package :ui))
@@ -583,14 +583,14 @@ Finds all user-defined object names in the given UI file.
Takes C++ code from a file generated by the uic user interface compiler, and generates the corresponding EQL code.
See also command line option -quic.
-QUTF8 (string)
+QUTF8 (string)
-Converts a Unicode pathname to a simple ECL base string, using QString::toUtf8().
Depending on the OS (namely OSX, Linux), this is necessary if you get a filename from Qt and want to use it in ECL.
See also QLOCAL8BIT.
+Converts a Unicode pathname to a simple ECL base string, using QString::toUtf8().
Depending on the OS (namely OSX, Linux), this is necessary if you get a filename from Qt and want to use it in ECL.
See also QLOCAL8BIT.
-QVERSION ()
+QVERSION ()
-Returns the EQL version number as "<year>.<month>.<counter>", analogous to the ECL version number.
The second return value is the Qt version as returned by qVersion().
+Returns the EQL version number as "<year>.<month>.<counter>", analogous to the ECL version number.
The second return value is the Qt version as returned by qVersion().
TR (source &optional context plural-number)
diff --git a/examples/9-simple-lisp-editor/send/send.cpp b/examples/9-simple-lisp-editor/send/send.cpp
index e43c3cc..71e3401 100644
--- a/examples/9-simple-lisp-editor/send/send.cpp
+++ b/examples/9-simple-lisp-editor/send/send.cpp
@@ -1,31 +1,31 @@
-#include
-#include
-#include
-#include
-
-int main(int argc, char** argv) {
- QCoreApplication qapp(argc, argv);
- QLocalSocket socket;
- socket.connectToServer("EQL:local-server");
- socket.waitForConnected();
- qapp.processEvents();
- QString exp(QCoreApplication::arguments().at(1));
- if(socket.isWritable()) {
- QString data(QString::number(exp.size()) + " " + exp);
- socket.write(data.toLatin1());
- qapp.processEvents();
- socket.waitForBytesWritten();
- while(true) {
- socket.waitForReadyRead();
- qapp.processEvents();
- QString data(socket.readAll());
- QString type(data.section(' ', 1, 1));
- if(!(":EXPRESSION" == type)) {
- QString print(data.section(' ', 2).trimmed());
- if(!print.isEmpty()) {
- std::cout << qPrintable(print) << std::endl; }
- if(":VALUES" == type) {
- exit(0); }}}}
- qCritical() << "[send] error:" << exp;
- return -1; }
-
+#include
+#include
+#include
+#include
+
+int main(int argc, char** argv) {
+ QCoreApplication qapp(argc, argv);
+ QLocalSocket socket;
+ socket.connectToServer("EQL:local-server");
+ socket.waitForConnected();
+ qapp.processEvents();
+ QString exp(QCoreApplication::arguments().at(1));
+ if(socket.isWritable()) {
+ QString data(QString::number(exp.size()) + " " + exp);
+ socket.write(data.toLatin1());
+ qapp.processEvents();
+ socket.waitForBytesWritten();
+ while(true) {
+ socket.waitForReadyRead();
+ qapp.processEvents();
+ QString data(socket.readAll());
+ QString type(data.section(' ', 1, 1));
+ if(!(":EXPRESSION" == type)) {
+ QString print(data.section(' ', 2).trimmed());
+ if(!print.isEmpty()) {
+ std::cout << qPrintable(print) << std::endl; }
+ if(":VALUES" == type) {
+ exit(0); }}}}
+ qCritical() << "[send] error:" << exp;
+ return -1; }
+
diff --git a/examples/M-modules/multimedia/camera/camera.lisp b/examples/M-modules/multimedia/camera/camera.lisp
index 3a023c9..54a0497 100644
--- a/examples/M-modules/multimedia/camera/camera.lisp
+++ b/examples/M-modules/multimedia/camera/camera.lisp
@@ -1,5 +1,8 @@
;;; port of example "camera" (QtMultimediaWidgets)
+#-qt-wrapper-functions ; see README-OPTIONAL.txt
+(load (in-home "src/lisp/all-wrappers"))
+
(qrequire :multimedia)
(defpackage :camera
diff --git a/examples/M-modules/webkit/dom.lisp b/examples/M-modules/webkit/dom.lisp
index b62366f..b2db184 100644
--- a/examples/M-modules/webkit/dom.lisp
+++ b/examples/M-modules/webkit/dom.lisp
@@ -7,7 +7,7 @@
(in-package :eql-user)
-(load "ui/ui-dom") ; generated: "eql5 -quic dom.ui"
+(require :ui (in-home "examples/M-modules/webkit/ui/ui-dom")) ; generated: "eql5 -quic dom.ui"
(defun ini (&optional url)
(ui:ini t)
diff --git a/examples/X-extras/palindrome/exe/main.cpp b/examples/X-extras/palindrome/exe/main.cpp
index d5c7fd7..98b4db5 100644
--- a/examples/X-extras/palindrome/exe/main.cpp
+++ b/examples/X-extras/palindrome/exe/main.cpp
@@ -1,46 +1,46 @@
-#include
-#include "eql.h"
-#include "main.h"
-
-extern "C" void ini_app(cl_object);
-
-// Qt_EQL
-
-QT_BEGIN_NAMESPACE
-
-static qreal easingFunction(qreal progress) {
- return eql_fun("eql-user::custom-easing-function", QVariant::Double,
- Q_ARG(qreal, progress)).toDouble(); }
-
-QEasingCurve* Qt_EQL_Application::easingCurve() {
- static QEasingCurve* curve = 0;
- if(!curve) {
- curve = new QEasingCurve(QEasingCurve::Custom);
- curve->setCustomType(easingFunction); }
- return curve; }
-
-QT_END_NAMESPACE
-
-// main
-
-int catch_all_qexec() {
- int ret = 0;
- CL_CATCH_ALL_BEGIN(ecl_process_env()) {
- ret = QApplication::exec(); }
- CL_CATCH_ALL_END;
- return ret; }
-
-int main(int argc, char** argv) {
-
- EQL::ini(argv);
-
- Qt_EQL_Application qapp(argc, argv);
-
- QTextCodec* utf8 = QTextCodec::codecForName("UTF-8");
- QTextCodec::setCodecForLocale(utf8);
-
- EQL eql;
- eql.exec(ini_app);
-
- return catch_all_qexec(); }
-
+#include
+#include "eql.h"
+#include "main.h"
+
+extern "C" void ini_app(cl_object);
+
+// Qt_EQL
+
+QT_BEGIN_NAMESPACE
+
+static qreal easingFunction(qreal progress) {
+ return eql_fun("eql-user::custom-easing-function", QVariant::Double,
+ Q_ARG(qreal, progress)).toDouble(); }
+
+QEasingCurve* Qt_EQL_Application::easingCurve() {
+ static QEasingCurve* curve = 0;
+ if(!curve) {
+ curve = new QEasingCurve(QEasingCurve::Custom);
+ curve->setCustomType(easingFunction); }
+ return curve; }
+
+QT_END_NAMESPACE
+
+// main
+
+int catch_all_qexec() {
+ int ret = 0;
+ CL_CATCH_ALL_BEGIN(ecl_process_env()) {
+ ret = QApplication::exec(); }
+ CL_CATCH_ALL_END;
+ return ret; }
+
+int main(int argc, char** argv) {
+
+ EQL::ini(argv);
+
+ Qt_EQL_Application qapp(argc, argv);
+
+ QTextCodec* utf8 = QTextCodec::codecForName("UTF-8");
+ QTextCodec::setCodecForLocale(utf8);
+
+ EQL eql;
+ eql.exec(ini_app);
+
+ return catch_all_qexec(); }
+
diff --git a/examples/X-extras/palindrome/exe/main.h b/examples/X-extras/palindrome/exe/main.h
index 2ad0db8..66621c0 100644
--- a/examples/X-extras/palindrome/exe/main.h
+++ b/examples/X-extras/palindrome/exe/main.h
@@ -1,20 +1,20 @@
-#ifndef MAIN_H
-#define MAIN_H
-
-#include
-#include "eql_fun.h"
-
-QT_BEGIN_NAMESPACE
-
-class Qt_EQL_Application : public QApplication {
- Q_OBJECT
-public:
- Qt_EQL_Application(int argc, char** argv) : QApplication(argc, argv) {}
-
- // simple variant of "Qt_EQL" (in EXE instead of DLL)
- Q_INVOKABLE QEasingCurve* easingCurve();
-};
-
-QT_END_NAMESPACE
-
-#endif
+#ifndef MAIN_H
+#define MAIN_H
+
+#include
+#include "eql_fun.h"
+
+QT_BEGIN_NAMESPACE
+
+class Qt_EQL_Application : public QApplication {
+ Q_OBJECT
+public:
+ Qt_EQL_Application(int argc, char** argv) : QApplication(argc, argv) {}
+
+ // simple variant of "Qt_EQL" (in EXE instead of DLL)
+ Q_INVOKABLE QEasingCurve* easingCurve();
+};
+
+QT_END_NAMESPACE
+
+#endif
diff --git a/examples/X-extras/palindrome/exe/main.pro b/examples/X-extras/palindrome/exe/main.pro
index 63ac95c..82ff705 100644
--- a/examples/X-extras/palindrome/exe/main.pro
+++ b/examples/X-extras/palindrome/exe/main.pro
@@ -1,14 +1,14 @@
-QT += widgets
-TEMPLATE = app
-CONFIG += no_keywords release
-INCLUDEPATH += ../../../../src
-LIBS += -lecl -L. -lstatic -L../../../.. -leql5
-TARGET = palindrome
-DESTDIR = ./
-OBJECTS_DIR = ./tmp/
-MOC_DIR = ./tmp/
-
-include(../../../../src/windows.pri)
-
-HEADERS += main.h
-SOURCES += main.cpp
+QT += widgets
+TEMPLATE = app
+CONFIG += no_keywords release
+INCLUDEPATH += ../../../../src
+LIBS += -lecl -L. -lstatic -L../../../.. -leql5
+TARGET = palindrome
+DESTDIR = ./
+OBJECTS_DIR = ./tmp/
+MOC_DIR = ./tmp/
+
+include(../../../../src/windows.pri)
+
+HEADERS += main.h
+SOURCES += main.cpp
diff --git a/examples/X-extras/qimage.lisp b/examples/X-extras/qimage.lisp
index 4146f7a..05fc229 100644
--- a/examples/X-extras/qimage.lisp
+++ b/examples/X-extras/qimage.lisp
@@ -156,7 +156,7 @@
(change-values))
(defun save ()
- (let ((name (|getSaveFileName.QFileDialog| nil "" *file* "Images (*.png *.jpg)")))
+ (let ((name (|getSaveFileName.QFileDialog| *main* "" *file* "Images (*.png *.jpg)")))
(unless (x:empty-string name)
(if (pathname-type name)
(let ((*saving* t))
diff --git a/src/ecl_fun.cpp b/src/ecl_fun.cpp
index 060441d..2ce314b 100644
--- a/src/ecl_fun.cpp
+++ b/src/ecl_fun.cpp
@@ -1,2874 +1,2874 @@
-// copyright (c) Polos Ruetz
-
-#include "ecl_fun.h"
-#include "eql.h"
-#include "dyn_object.h"
-#include "gen/_lobjects.h"
-#include "ui_loader.h"
-#include "single_shot.h"
-#include
-
-QT_BEGIN_NAMESPACE
-
-// switches
-static bool _check_argument_types_ = true;
-static bool _garbage_collection_ = true;
-
-static const char SIG = '2';
-static const char SLO = '1';
-static bool _ok_ = false;
-static StrList _cstring_buffer_;
-static const QMetaObject* staticQtMetaObject = QtMetaObject::get();
-
-META_TYPE (T_bool_ok_pointer, bool*)
-META_TYPE (T_GLint, GLint)
-META_TYPE (T_GLuint, GLuint)
-META_TYPE (T_GLenum, GLenum)
-META_TYPE (T_short, short)
-META_TYPE (T_ushort, ushort)
-META_TYPE (T_GLfloat, GLfloat)
-META_TYPE (T_qint32, qint32)
-META_TYPE (T_qint64, qint64)
-META_TYPE (T_quint8, quint8)
-META_TYPE (T_quint16, quint16)
-META_TYPE (T_quint32, quint32)
-META_TYPE (T_quint64, quint64)
-META_TYPE (T_QFileInfo, QFileInfo)
-META_TYPE (T_QFileInfoList, QFileInfoList)
-META_TYPE (T_QGradient, QGradient)
-META_TYPE (T_QGradientStop, QGradientStop)
-META_TYPE (T_QList_QAbstractAnimation, QList)
-META_TYPE (T_QList_QAbstractButton, QList)
-META_TYPE (T_QList_QAbstractState, QList)
-META_TYPE (T_QList_QAction, QList)
-META_TYPE (T_QList_QByteArray, QList)
-META_TYPE (T_QList_QDockWidget, QList)
-META_TYPE (T_QList_QGesture, QList)
-META_TYPE (T_QList_QGraphicsItem, QList)
-META_TYPE (T_QList_QGraphicsTransform, QList)
-META_TYPE (T_QList_QGraphicsView, QList)
-META_TYPE (T_QList_QGraphicsWidget, QList)
-META_TYPE (T_QList_QKeySequence, QList)
-META_TYPE (T_QList_QListWidgetItem, QList)
-META_TYPE (T_QList_QMdiSubWindow, QList)
-META_TYPE (T_QModelIndexList, QModelIndexList)
-META_TYPE (T_QList_QObject, QList)
-META_TYPE (T_QObjectList, QObjectList)
-META_TYPE (T_QList_QPolygonF, QList)
-META_TYPE (T_QList_QSize, QList)
-META_TYPE (T_QList_QStandardItem, QList)
-META_TYPE (T_QList_QTableWidgetItem, QList)
-META_TYPE (T_QList_QTableWidgetSelectionRange, QList)
-META_TYPE (T_QList_QTextBlock, QList)
-META_TYPE (T_QList_QTextEdit_ExtraSelection, QList)
-META_TYPE (T_QList_QTextFrame, QList)
-META_TYPE (T_QList_QTreeWidgetItem, QList)
-META_TYPE (T_QList_QUndoStack, QList)
-META_TYPE (T_QList_QUrl, QList)
-META_TYPE (T_QList_QWidget, QList)
-META_TYPE (T_QWidgetList, QWidgetList)
-META_TYPE (T_QList_int, QList)
-META_TYPE (T_QList_qreal, QList)
-META_TYPE (T_QMargins, QMargins)
-META_TYPE (T_QModelIndex, QModelIndex)
-META_TYPE (T_QPainterPath, QPainterPath)
-META_TYPE (T_QPolygonF, QPolygonF)
-META_TYPE (T_QRgb, QRgb)
-META_TYPE (T_QTableWidgetSelectionRange, QTableWidgetSelectionRange)
-META_TYPE (T_QTextBlock, QTextBlock)
-META_TYPE (T_QTextBlockFormat, QTextBlockFormat)
-META_TYPE (T_QTextCharFormat, QTextCharFormat)
-META_TYPE (T_QTextFrameFormat, QTextFrameFormat)
-META_TYPE (T_QTextListFormat, QTextListFormat)
-META_TYPE (T_QTextCursor, QTextCursor)
-META_TYPE (T_QTextDocumentFragment, QTextDocumentFragment)
-META_TYPE (T_QTextLine, QTextLine)
-META_TYPE (T_QTextOption, QTextOption)
-META_TYPE (T_QVector_QGradientstop, QVector)
-META_TYPE (T_QVector_QLine, QVector)
-META_TYPE (T_QVector_QLineF, QVector)
-META_TYPE (T_QVector_QPoint, QVector)
-META_TYPE (T_QVector_QPointF, QVector)
-META_TYPE (T_QVector_QRect, QVector)
-META_TYPE (T_QVector_QRectF, QVector)
-META_TYPE (T_QVector_QRgb, QVector)
-META_TYPE (T_QVector_QTextFormat, QVector)
-META_TYPE (T_QVector_QTextLength, QVector)
-META_TYPE (T_QVector_float, QVector)
-META_TYPE (T_QVector_int, QVector)
-META_TYPE (T_QVector_qreal, QVector)
-META_TYPE (T_WId, WId)
-
-void iniCLFunctions() {
- cl_object eql(STRING("EQL"));
- if(cl_find_package(eql) == Cnil) {
- cl_make_package(1, eql); }
- si_select_package(eql);
- DEFUN ("%error-msg", error_msg2, 2)
- DEFUN ("%make-qimage/dangerous", make_qimage_dangerous, 5)
- DEFUN ("no-qexec", no_qexec, 0)
- DEFUN ("qadd-event-filter", qadd_event_filter, 3)
- DEFUN ("%qapropos", qapropos2, 3)
- DEFUN ("qapp", qapp, 0)
- DEFUN ("qcall-default", qcall_default, 0)
- DEFUN ("qclear-event-filters", qclear_event_filters, 0)
- DEFUN ("%qconnect", qconnect2, 4)
- DEFUN ("qcopy", qcopy, 1)
- DEFUN ("%qdelete", qdelete2, 2)
- DEFUN ("%qdisconnect", qdisconnect2, 4)
- DEFUN ("%qenums", qenums2, 2)
- DEFUN ("qescape", qescape, 1)
- DEFUN ("%qexec", qexec2, 1)
- DEFUN ("qexit", qexit, 0)
- DEFUN ("qfind-child", qfind_child, 2)
- DEFUN ("%qfind-children", qfind_children2, 3)
- DEFUN ("qfrom-utf8", qfrom_utf8, 1)
- DEFUN ("qid", qid, 1)
- DEFUN ("%qinvoke-method", qinvoke_method2, 4)
- DEFUN ("%qload-c++", qload_cpp, 2)
- DEFUN ("qload-ui", qload_ui, 1)
- DEFUN ("qlocal8bit", qlocal8bit, 1)
- DEFUN ("%qnew-instance", qnew_instance2, 2)
- DEFUN ("%qobject-names", qobject_names2, 1)
- DEFUN ("qok", qok, 0)
- DEFUN ("qoverride", qoverride, 3)
- DEFUN ("qprocess-events", qprocess_events, 0)
- DEFUN ("qproperty", qproperty, 2)
- DEFUN ("%qrequire", qrequire2, 2)
- DEFUN ("qremove-event-filter", qremove_event_filter, 1)
- DEFUN ("%qrun-in-gui-thread", qrun_in_gui_thread2, 2)
- DEFUN ("qsender", qsender, 0)
- DEFUN ("%qset-gc", qset_gc, 1)
- DEFUN ("qset-property", qset_property, 3)
- DEFUN ("%qsingle-shot", qsingle_shot2, 2)
- DEFUN ("qstatic-meta-object", qstatic_meta_object, 1)
- DEFUN ("qsuper-class-name", qsuper_class_name, 1)
- DEFUN ("qtranslate", qtranslate, 3)
- DEFUN ("qt-object-name", qt_object_name, 1)
- DEFUN ("qt-object-?", qt_object_x, 1)
- DEFUN ("%qui-class", qui_class2, 2)
- DEFUN ("qui-names", qui_names, 1)
- DEFUN ("qutf8", qutf8, 1)
- DEFUN ("%qvariant-equal", qvariant_equal2, 2)
- DEFUN ("qversion", qversion, 0) }
-
-// QtObject methods
-
-QByteArray QtObject::idToClassName(int id) {
- return (id > 0) ? LObjects::qNames.at(id - 1) : LObjects::nNames.at(-id - 1); }
-
-QByteArray QtObject::className() const {
- return id ? idToClassName(id) : QByteArray("?"); }
-
-
-
-// *** utilities ***
-
-static QByteArray toCString(cl_object l_str) {
- QByteArray ba;
- if(ECL_STRINGP(l_str)) {
- if(ECL_BASE_STRING_P(l_str)) {
- ba = QByteArray((char*)l_str->base_string.self, l_str->base_string.fillp); }
- else {
- uint l = l_str->string.fillp;
- ba.reserve(l);
- ecl_character* l_s = l_str->string.self;
- for(uint i = 0; i < l; ++i) {
- ba[i] = l_s[i]; }}}
- return ba; }
-
-static cl_object from_cstring(const QByteArray& s) {
- cl_object l_s = ecl_alloc_simple_base_string(s.length());
- memcpy(l_s->base_string.self, s.constData(), s.length());
- return l_s; }
-
-static void type_msg(const QByteArray& wanted, const QByteArray& got) {
- STATIC_SYMBOL (s_error_output, "*ERROR-OUTPUT*")
- cl_format(4,
- cl_symbol_value(s_error_output),
- STRING("~%[EQL:typ] wanted <~A> got <~A>"),
- from_cstring(wanted),
- from_cstring(got.isEmpty() ? "no Qt object" : got)); }
-
-void error_msg(const char* fun, cl_object l_args) {
- STATIC_SYMBOL_PKG (s_break_on_errors, "*BREAK-ON-ERRORS*", "EQL")
- if(cl_symbol_value(s_break_on_errors) != Cnil) {
- STATIC_SYMBOL_PKG (s_break, "%BREAK", "EQL") // see "lisp/ini.lisp"
- cl_funcall(4,
- s_break,
- STRING("~%[EQL:err] ~A ~{~S~^ ~}~%"),
- STRING(fun),
- l_args); }
- else {
- STATIC_SYMBOL (s_error_output, "*ERROR-OUTPUT*")
- cl_format(4,
- cl_symbol_value(s_error_output),
- STRING("~%[EQL:err] ~A ~{~S~^ ~}~%"),
- STRING(fun),
- l_args); }}
-
-cl_object error_msg2(cl_object l_fun, cl_object l_args) { // to be called from Lisp (see "lisp/ini.lisp")
- ecl_process_env()->nvalues = 1;
- error_msg(toCString(l_fun), l_args);
- return Cnil; }
-
-static const QMetaObject* staticMetaObject(const QtObject& qt) {
- return LObjects::staticMetaObject(QByteArray(), qt.id); }
-
-static const QMetaObject* methodMetaObject(const QtObject& qt) {
- QObject* obj = qt.isQObject() ? LObjects::Q[qt.id - 1] : LObjects::N[-qt.id - 1];
- return obj ? obj->metaObject() : 0; }
-
-static const QMetaObject* methodMetaObjectFromName(const QByteArray& name, bool qobject) {
- const QMetaObject* mo = 0;
- int n = qobject ? LObjects::q_names.value(name, 0) : LObjects::n_names.value(name, 0);
- if(n) {
- QObject* o = qobject ? LObjects::Q[n - 1] : LObjects::N[n - 1];
- if(o) {
- mo = o->metaObject(); }}
- return mo; }
-
-static QByteArray superClassName(const QByteArray& name, bool* found = 0) {
- QByteArray super;
- if(LObjects::q_names.value(name, 0)) {
- if(found) {
- *found = true; }
- const QMetaObject* moStatic = LObjects::staticMetaObject(name);
- if(moStatic) {
- const QMetaObject* mo = moStatic->superClass();
- if(mo) {
- super = mo->className(); }}}
- else if(LObjects::n_names.value(name, 0)) {
- if(found) {
- *found = true; }
- super = LObjects::nObjectSuperClass(name); }
- return super; }
-
-static bool inherits(const QByteArray& sub, const QByteArray& super) {
- if(sub == super) {
- return true; }
- QByteArray upper(sub);
- while(!(upper = superClassName(upper)).isEmpty()) {
- // multiple inheritance exceptions (see "helper/multiple-inheritance.txt")
- if("QGraphicsObject" == upper) {
- if("QObject" == super) {
- return true; }
- upper = "QGraphicsItem"; }
- if(upper == super) {
- return true; }}
- return false; }
-
-enum CallType { SignalOrSlot, Method, Static, Qt_EQL };
-
-static IntList findMethodIndex(CallType type, const QByteArray& name, const QMetaObject* mo, int len) {
- IntList method_i;
- bool this_arg = (Method == type);
- QByteArray search(name);
- bool exact = true;
- if(search.endsWith(')')) {
- if(search.endsWith("...)")) {
- exact = false;
- search.truncate(search.length() - 4);
- if(!search.endsWith(',')) {
- search.append(','); }}}
- else {
- if(!len && !this_arg) {
- if(search.endsWith('(')) {
- search.append(')'); }
- else {
- search.append("()"); }}
- else {
- exact = false; }}
- if(exact) {
- int i = mo->indexOfMethod(search);
- if(i != -1) {
- method_i << i; }}
- else {
- if(!search.contains('(')) {
- search.append('('); }
- StrList candidates;
- int min = ((SignalOrSlot == type) || (Qt_EQL == type)) ? 0 : mo->methodOffset();
- for(int i = mo->methodCount() - 1; i >= min; --i) {
- QByteArray sig(mo->method(i).methodSignature());
- int len_args = sig.count(',');
- if(!this_arg) {
- if(!sig.endsWith("()")) {
- ++len_args; }}
- if(len_args == len) {
- if(sig.startsWith(search)) {
- method_i << i;
- candidates << sig; }}}
- // eliminate ambiguous ...F float 'primitive' argument lists by simply choosing the float one
- // (of course this can be overridden by simply providing the non float argument list)
- if(candidates.size() > 1) {
- IntList mi, mi_F;
- for(int i = 0; i < candidates.size(); i++) {
- QByteArray sig(candidates.at(i));
- if(sig.contains("QPointF") ||
- sig.contains("QLineF") ||
- sig.contains("QRectF") ||
- sig.contains("QSizeF") ||
- sig.contains("QPolygonF")) {
- mi_F << method_i.at(i); }
- else
- if(sig.contains("QPoint") ||
- sig.contains("QLine") ||
- sig.contains("QRect") ||
- sig.contains("QSize") ||
- sig.contains("QPolygon")) {
- mi << method_i.at(i); }}
- if(mi_F.size() && mi.size()) {
- IntList mi_ok;
- Q_FOREACH(int i, method_i) {
- if(!mi.contains(i)) {
- mi_ok << i; }}
- method_i = mi_ok; }}}
- return method_i; }
-
-static cl_object q_keyword() {
- STATIC_SYMBOL_PKG (s_q, "Q", "KEYWORD")
- return s_q; }
-
-static cl_object qt_keyword() {
- STATIC_SYMBOL_PKG (s_qt, "QT", "KEYWORD")
- return s_qt; }
-
-static cl_object make_vector() {
- STATIC_SYMBOL_PKG (s_make_vector, "%MAKE-VECTOR", "EQL") // see "lisp/ini.lisp"
- cl_object l_vector = cl_funcall(1, s_make_vector);
- return l_vector; }
-
-
-
-// *** type conversions ***
-
-template
-static T toInt(cl_object l_num) {
- T i = 0;
- if(cl_integerp(l_num) == Ct) {
- i = fixint(l_num); }
- return i; }
-
-static int toInt(cl_object l_num) {
- return toInt(l_num); }
-
-template
-static T toUInt(cl_object l_num) {
- T i = 0;
- if(cl_integerp(l_num) == Ct) {
- i = fixnnint(l_num); }
- return i; }
-
-static uint toUInt(cl_object l_num) {
- return toUInt(l_num); }
-
-template
-static T toFloat(cl_object l_num) {
- T f = 0;
- if(ECL_SINGLE_FLOAT_P(l_num)) {
- f = sf(l_num); }
- else if(ECL_DOUBLE_FLOAT_P(l_num)) {
- f = df(l_num); }
-#ifdef ECL_LONG_FLOAT
- else if(ECL_LONG_FLOAT_P(l_num)) {
- f = ecl_long_float(l_num); }
-#endif
- else if(cl_integerp(l_num) == Ct) {
- f = fixint(l_num); }
- else {
- cl_object l_f = cl_float(1, l_num);
- if(ECL_DOUBLE_FLOAT_P(l_f)) {
- f = df(l_f); }
- else if(ECL_SINGLE_FLOAT_P(l_f)) {
- f = sf(l_f); }
-#ifdef ECL_LONG_FLOAT
- else if(ECL_LONG_FLOAT_P(l_f)) {
- f = ecl_long_float(l_f); }
-#endif
- }
- return f; }
-
-static float toFloat(cl_object l_num) {
- return toFloat(l_num); }
-
-static qreal toReal(cl_object l_num) {
- return toFloat(l_num); }
-
-static char toChar(cl_object l_ch) {
- char ch = 0;
- if(CHARACTERP(l_ch)) {
- ch = toInt(cl_char_code(l_ch)); }
- return ch; }
-
-static QChar toQChar(cl_object l_ch) {
- QChar ch;
- if(CHARACTERP(l_ch)) {
- ch = QChar(toInt(cl_char_code(l_ch))); }
- return ch; }
-
-static QByteArray toQByteArray(cl_object l_vec) {
- QByteArray ba;
- if(ECL_VECTORP(l_vec)) {
- int len = LEN(l_vec);
- ba.reserve(len);
- for(int i = 0; i < len; ++i) {
- ba[i] = toInt(ecl_aref(l_vec, i)); }}
- return ba; }
-
-static QString toQString(cl_object l_str) {
- QString s;
- if(ECL_STRINGP(l_str)) {
- if(ECL_BASE_STRING_P(l_str)) {
- s = QString::fromLatin1((char*)l_str->base_string.self, l_str->base_string.fillp); }
- else {
- uint l = l_str->string.fillp;
- s.reserve(l);
- ecl_character* l_s = l_str->string.self;
- for(uint i = 0; i < l; ++i) {
- s[i] = QChar(l_s[i]); }}}
- return s; }
-
-static int classId(cl_object l_class) {
- QByteArray name(toCString(l_class));
- if('L' == name.at(0)) {
- name[0] = 'Q'; }
- int id = LObjects::q_names.value(name, 0);
- if(!id) {
- id = -LObjects::n_names.value(name, 0); }
- return id; }
-
-static const char* eventName(QEvent::Type type) {
- const char* name = 0;
- switch(type) {
- case QEvent::ActionRemoved:
- case QEvent::ActionChanged:
- case QEvent::ActionAdded:
- name = "QActionEvent";
- break;
- case QEvent::ChildRemoved:
- case QEvent::ChildPolished:
- case QEvent::ChildAdded:
- name = "QChildEvent";
- break;
- case QEvent::Clipboard:
- name = "QClipboardEvent";
- break;
- case QEvent::Close:
- name = "QCloseEvent";
- break;
- case QEvent::ContextMenu:
- name = "QContextMenuEvent";
- break;
- case QEvent::DragEnter:
- name = "QDragEnterEvent";
- break;
- case QEvent::DragLeave:
- name = "QDragLeaveEvent";
- break;
- case QEvent::DragMove:
- name = "QDragMoveEvent";
- break;
- case QEvent::Drop:
- name = "QDropEvent";
- break;
- case QEvent::FileOpen:
- name = "QFileOpenEvent";
- break;
- case QEvent::FocusOut:
- case QEvent::FocusIn:
- name = "QFocusEvent";
- break;
- case QEvent::GraphicsSceneContextMenu:
- name = "QGraphicsSceneContextMenuEvent";
- break;
- case QEvent::GraphicsSceneDrop:
- case QEvent::GraphicsSceneDragMove:
- case QEvent::GraphicsSceneDragLeave:
- case QEvent::GraphicsSceneDragEnter:
- name = "QGraphicsSceneDragDropEvent";
- break;
- case QEvent::GraphicsSceneHelp:
- name = "QHelpEvent";
- break;
- case QEvent::GraphicsSceneHoverMove:
- case QEvent::GraphicsSceneHoverLeave:
- case QEvent::GraphicsSceneHoverEnter:
- name = "QGraphicsSceneHoverEvent";
- break;
- case QEvent::GraphicsSceneMouseRelease:
- case QEvent::GraphicsSceneMousePress:
- case QEvent::GraphicsSceneMouseMove:
- case QEvent::GraphicsSceneMouseDoubleClick:
- name = "QGraphicsSceneMouseEvent";
- break;
- case QEvent::GraphicsSceneMove:
- name = "QGraphicsSceneMoveEvent";
- break;
- case QEvent::GraphicsSceneResize:
- name = "QGraphicsSceneResizeEvent";
- break;
- case QEvent::GraphicsSceneWheel:
- name = "QGraphicsSceneWheelEvent";
- break;
- case QEvent::Hide:
- name = "QHideEvent";
- break;
- case QEvent::HoverMove:
- case QEvent::HoverLeave:
- case QEvent::HoverEnter:
- name = "QHoverEvent";
- break;
- case QEvent::IconDrag:
- name = "QIconDragEvent";
- break;
- case QEvent::InputMethod:
- name = "QInputMethodEvent";
- break;
- case QEvent::KeyRelease:
- case QEvent::KeyPress:
- name = "QKeyEvent";
- break;
- case QEvent::MouseMove:
- case QEvent::MouseButtonRelease:
- case QEvent::MouseButtonPress:
- case QEvent::MouseButtonDblClick:
- name = "QMouseEvent";
- break;
- case QEvent::Move:
- name = "QMoveEvent";
- break;
- case QEvent::Paint:
- name = "QPaintEvent";
- break;
- case QEvent::Resize:
- name = "QResizeEvent";
- break;
- case QEvent::Shortcut:
- name = "QShortcutEvent";
- break;
- case QEvent::ShortcutOverride:
- name = "QKeyEvent";
- break;
- case QEvent::Show:
- name = "QShowEvent";
- break;
- case QEvent::StatusTip:
- name = "QStatusTipEvent";
- break;
- case QEvent::TabletLeaveProximity:
- case QEvent::TabletEnterProximity:
- case QEvent::TabletRelease:
- case QEvent::TabletPress:
- case QEvent::TabletMove:
- name = "QTabletEvent";
- break;
- case QEvent::Timer:
- name = "QTimerEvent";
- break;
- case QEvent::WhatsThis:
- case QEvent::ToolTip:
- name = "QHelpEvent";
- break;
- case QEvent::Wheel:
- name = "QWheelEvent";
- break;
- case QEvent::TouchEnd:
- case QEvent::TouchUpdate:
- case QEvent::TouchBegin:
- name = "QTouchEvent";
- break;
- case QEvent::GestureOverride:
- case QEvent::Gesture:
- name = "QGestureEvent";
- break;
- default:
- name = "QEvent"; }
- return name; }
-
-static QByteArray qtObjectName(cl_object l_obj, const QByteArray& type = QByteArray()) {
- STATIC_SYMBOL_PKG (s_qt_object_p, "QT-OBJECT-P", "EQL")
- STATIC_SYMBOL_PKG (s_ensure_qt_object, "ENSURE-QT-OBJECT", "EQL")
- STATIC_SYMBOL_PKG (s_qt_object_id, "QT-OBJECT-ID", "EQL")
- // 'primitives' first
- QByteArray name;
- if(cl_integerp(l_obj) == Ct) {
- name = "int"; }
- else if(cl_characterp(l_obj) == Ct) {
- name = "QChar"; }
- else if(cl_stringp(l_obj) == Ct) {
- name = "QString QColor"; }
- else if(cl_listp(l_obj) == Ct) {
- int l = LEN(l_obj);
- switch(l) {
- case 0: break;
- case 2: name = "QPointF QSizeF QList"; break;
- case 4: name = "QRectF QLineF QList"; break;
- default: name = "QPolygonF QList"; }}
- else if(cl_vectorp(l_obj) == Ct) {
- name = "QVector"; }
- // qt-object
- // (this is carefully optimized, in a probably non-obvious way, because THE-QT-OBJECT is really slow)
- if(type.isNull() || LObjects::q_names.contains(type) || LObjects::n_names.contains(type)) {
- l_obj = cl_funcall(3, s_ensure_qt_object, l_obj, Ct); }
- if(cl_funcall(2, s_qt_object_p, l_obj) == Ct) {
- name = QtObject::idToClassName(toInt(cl_funcall(2, s_qt_object_id, l_obj))); }
- return name; }
-
-QtObject toQtObject(cl_object l_obj, cl_object l_cast, bool* qobject_align, bool quiet) {
- STATIC_SYMBOL_PKG (s_ensure_qt_object, "ENSURE-QT-OBJECT", "EQL")
- STATIC_SYMBOL_PKG (s_qt_object_pointer, "QT-OBJECT-POINTER", "EQL")
- STATIC_SYMBOL_PKG (s_qt_object_unique, "QT-OBJECT-UNIQUE", "EQL")
- STATIC_SYMBOL_PKG (s_qt_object_id, "QT-OBJECT-ID", "EQL")
- QtObject o;
- if(ECL_STRINGP(l_obj)) { // string name, for static methods
- o.id = classId(l_obj); }
- else {
- if(quiet) {
- l_obj = cl_funcall(3, s_ensure_qt_object, l_obj, Ct); }
- else {
- l_obj = cl_funcall(2, s_ensure_qt_object, l_obj); }
- if(l_obj != Cnil) {
- o.pointer = (void*)fixnnint(cl_funcall(2, s_qt_object_pointer, l_obj));
- o.unique = fixnnint(cl_funcall(2, s_qt_object_unique, l_obj));
- o.id = toInt(cl_funcall(2, s_qt_object_id, l_obj));
- if(l_cast != Cnil) {
- int id_orig = o.id;
- o.id = classId(l_cast);
- if((id_orig > 0) && (o.id < 0)) {
- *qobject_align = true; }}}}
- return o; }
-
-static cl_object new_qt_object(void* pointer, uint unique, int id, bool finalize = false) {
- STATIC_SYMBOL_PKG (s_new_qt_object, "NEW-QT-OBJECT", "EQL")
- cl_object l_qt_object = cl_funcall(5,
- s_new_qt_object,
- ecl_make_unsigned_integer((quintptr)pointer),
- ecl_make_unsigned_integer(unique),
- MAKE_FIXNUM(id),
- finalize ? Ct : Cnil);
- return l_qt_object; }
-
-cl_object qt_object_from_name(const QByteArray& name, void* pointer, uint unique, bool finalize) {
- QByteArray name2(name);
- if(name2.endsWith('*')) {
- name2.truncate(name2.length() - 1); }
- if(name2.startsWith("const ")) {
- name2 = name2.mid(6); }
- if('L' == name2.at(0)) {
- name2[0] = 'Q'; }
- int id = LObjects::q_names.value(name2, 0);
- if(!id) {
- id = -LObjects::n_names.value(name2, 0); }
- cl_object l_qt_object = new_qt_object(pointer, unique, id, finalize);
- return l_qt_object; }
-
-static QString symbolName(cl_object l_symbol) {
- QString name;
- if((cl_symbolp(l_symbol) == Ct)) {
- name = toQString(cl_symbol_name(l_symbol)).toLower(); }
- else if(ECL_STRINGP(l_symbol)) {
- name = toQString(l_symbol); }
- return name; }
-
-static QStringList toQStringList(cl_object l_list) {
- QStringList l;
- if(LISTP(l_list)) {
- cl_object l_el = l_list;
- while(l_el != Cnil) {
- l << toQString(cl_car(l_el));
- l_el = cl_cdr(l_el); }}
- return l; }
-
-static QPolygon toQPolygon(cl_object l_list) {
- QPolygon p;
- if(LISTP(l_list)) {
- cl_object l_el = l_list;
- while(l_el != Cnil) {
- p << QPoint(toInt(cl_first(l_el)), toInt(cl_second(l_el)));
- l_el = cl_cddr(l_el); }}
- return p; }
-
-static QPolygonF toQPolygonF(cl_object l_list) {
- QPolygonF p;
- if(LISTP(l_list)) {
- cl_object l_el = l_list;
- while(l_el != Cnil) {
- p << QPointF(toReal(cl_first(l_el)), toReal(cl_second(l_el)));
- l_el = cl_cddr(l_el); }}
- return p; }
-
-static QColor toQColor(cl_object l_c) {
- if(ECL_STRINGP(l_c)) {
- return QColor(toQString(l_c)); }
- QtObject o = toQtObject(l_c);
- if("QColor" == o.className() && o.pointer) {
- QColor* p = (QColor*)o.pointer;
- return *p; }
- return QColor(); }
-
-static QGradient toQGradient(cl_object l_g) {
- QtObject o = toQtObject(l_g);
- if(inherits(o.className(), "QGradient") && o.pointer) {
- QGradient* p = (QGradient*)o.pointer;
- return *p; }
- return QGradient(); }
-
-static QGradientStop toQGradientStop(cl_object l_gs) {
- QGradientStop gs;
- if(cl_consp(l_gs)) {
- gs = qMakePair(toReal(cl_car(l_gs)), toQColor(cl_cdr(l_gs))); }
- return gs; }
-
-static QList toQTextEditExtraSelectionList(cl_object l_list) {
- QList l;
- if(LISTP(l_list)) {
- cl_object l_el = l_list;
- while(l_el != Cnil) {
- cl_object l_curr = cl_first(l_el);
- QtObject q_cursor = toQtObject(cl_first(l_curr));
- QtObject q_format = toQtObject(cl_second(l_curr));
- if(("QTextCursor" == q_cursor.className()) &&
- ("QTextCharFormat" == q_format.className())) {
- QTextEdit::ExtraSelection sel;
- sel.cursor = *(QTextCursor*)q_cursor.pointer;
- sel.format = *(QTextCharFormat*)q_format.pointer;
- l << sel; }
- l_el = cl_rest(l_el); }}
- return l; }
-
-// implicit pointer types
-TO_QT_TYPE_PTR (QBitmap, qbitmap)
-TO_QT_TYPE_PTR2 (QBrush, qbrush)
-TO_QT_TYPE_PTR2 (QCursor, qcursor)
-TO_QT_TYPE_PTR2 (QDate, qdate)
-TO_QT_TYPE_PTR2 (QDateTime, qdatetime)
-TO_QT_TYPE_PTR (QEasingCurve, qeasingcurve)
-TO_QT_TYPE_PTR2 (QFileInfo, qfileinfo)
-TO_QT_TYPE_PTR2 (QFont, qfont)
-TO_QT_TYPE_PTR2 (QIcon, qicon)
-TO_QT_TYPE_PTR2 (QImage, qimage)
-TO_QT_TYPE_PTR2 (QKeySequence, qkeysequence)
-TO_QT_TYPE_PTR2 (QLocale, qlocale)
-TO_QT_TYPE_PTR2 (QMatrix, qmatrix)
-TO_QT_TYPE_PTR (QMargins, qmargins)
-TO_QT_TYPE_PTR2 (QModelIndex, qmodelindex)
-TO_QT_TYPE_PTR (QPainterPath, qpainterpath)
-TO_QT_TYPE_PTR2 (QPalette, qpalette)
-TO_QT_TYPE_PTR2 (QPen, qpen)
-TO_QT_TYPE_PTR2 (QPixmap, qpixmap)
-TO_QT_TYPE_PTR (QRegion, qregion)
-TO_QT_TYPE_PTR (QRegExp, qregexp)
-TO_QT_TYPE_PTR2 (QSizePolicy, qsizepolicy)
-TO_QT_TYPE_PTR2 (QTableWidgetSelectionRange, qtablewidgetselectionrange)
-TO_QT_TYPE_PTR2 (QTextBlock, qtextblock)
-TO_QT_TYPE_PTR (QTextBlockFormat, qtextblockformat)
-TO_QT_TYPE_PTR (QTextCharFormat, qtextcharformat)
-TO_QT_TYPE_PTR (QTextFrameFormat, qtextframeformat)
-TO_QT_TYPE_PTR (QTextListFormat, qtextlistformat)
-TO_QT_TYPE_PTR (QTextCursor, qtextcursor)
-TO_QT_TYPE_PTR (QTextDocumentFragment, qtextdocumentfragment)
-TO_QT_TYPE_PTR2 (QTextFormat, qtextformat)
-TO_QT_TYPE_PTR2 (QTextLength, qtextlength)
-TO_QT_TYPE_PTR (QTextLine, qtextline)
-TO_QT_TYPE_PTR (QTextOption, qtextoption)
-TO_QT_TYPE_PTR2 (QTime, qtime)
-TO_QT_TYPE_PTR2 (QTransform, qtransform)
-TO_QT_TYPE_PTR2 (QUrl, qurl)
-TO_QT_TYPE_PTR (QVariant, qvariant)
-
-TO_QT_TYPEF (QPoint)
-TO_QT_TYPEF (QSize)
-TO_QT_TYPEF2 (QLine)
-TO_QT_TYPEF2 (QRect)
-
-TO_QT_LIST_PTR (QAbstractAnimation)
-TO_QT_LIST_PTR (QAbstractButton)
-TO_QT_LIST_PTR (QAbstractState)
-TO_QT_LIST_PTR (QAction)
-TO_QT_LIST_PTR (QDockWidget)
-TO_QT_LIST_PTR (QGesture)
-TO_QT_LIST_PTR (QGraphicsItem)
-TO_QT_LIST_PTR (QGraphicsTransform)
-TO_QT_LIST_PTR (QGraphicsView)
-TO_QT_LIST_PTR (QGraphicsWidget)
-TO_QT_LIST_PTR (QListWidgetItem)
-TO_QT_LIST_PTR (QMdiSubWindow)
-TO_QT_LIST_PTR (QObject)
-TO_QT_LIST_PTR (QStandardItem)
-TO_QT_LIST_PTR (QTableWidgetItem)
-TO_QT_LIST_PTR (QTextFrame)
-TO_QT_LIST_PTR (QTreeWidgetItem)
-TO_QT_LIST_PTR (QUndoStack)
-TO_QT_LIST_PTR (QWidget)
-
-TO_QT_LIST_VAL (QByteArray)
-TO_QT_LIST_VAL (QFileInfo)
-TO_QT_LIST_VAL (QKeySequence)
-TO_QT_LIST_VAL (QModelIndex)
-TO_QT_LIST_VAL (QPolygonF)
-TO_QT_LIST_VAL (QSize)
-TO_QT_LIST_VAL (QTableWidgetSelectionRange)
-TO_QT_LIST_VAL (QTextBlock)
-TO_QT_LIST_VAL (QUrl)
-TO_QT_LIST_VAL2 (int, Int)
-TO_QT_LIST_VAL2 (qreal, Real)
-
-TO_QT_VECTOR_VAL (QGradientStop)
-TO_QT_VECTOR_VAL (QLine)
-TO_QT_VECTOR_VAL (QLineF)
-TO_QT_VECTOR_VAL (QPoint)
-TO_QT_VECTOR_VAL (QPointF)
-TO_QT_VECTOR_VAL (QRect)
-TO_QT_VECTOR_VAL (QRectF)
-TO_QT_VECTOR_VAL (QTextFormat)
-TO_QT_VECTOR_VAL (QTextLength)
-TO_QT_VECTOR_VAL2 (QRgb, UInt)
-TO_QT_VECTOR_VAL2 (float, Float)
-TO_QT_VECTOR_VAL2 (int, Int)
-TO_QT_VECTOR_VAL2 (qreal, Real)
-
-QVariant toQVariant(cl_object l_obj, const char* s_type, int type) {
- QVariant var;
- if(type == -1) {
- type = QVariant::nameToType(s_type); }
- switch(type) {
- case QVariant::Bool: var = (l_obj != Cnil); break;
- case QVariant::Brush: var = toQBrush(l_obj); break;
- case QVariant::ByteArray: var = toQByteArray(l_obj); break;
- case QVariant::Char: var = toQChar(l_obj); break;
- case QVariant::Color: var = toQColor(l_obj); break;
- case QVariant::Cursor: var = toQCursor(l_obj); break;
- case QVariant::Date: var = toQDate(l_obj); break;
- case QVariant::DateTime: var = toQDateTime(l_obj); break;
- case QVariant::Double: var = toFloat(l_obj); break;
- case QVariant::Font: var = toQFont(l_obj); break;
- case QVariant::Icon: var = toQIcon(l_obj); break;
- case QVariant::Image: var = toQImage(l_obj); break;
- case QVariant::Int: var = toInt(l_obj); break;
- case QVariant::KeySequence: var = toQKeySequence(l_obj); break;
- case QVariant::Line: var = toQLine(l_obj); break;
- case QVariant::LineF: var = toQLineF(l_obj); break;
- case QVariant::Locale: var = toQLocale(l_obj); break;
- case QVariant::LongLong: var = toInt(l_obj); break;
- case QVariant::Matrix: var = toQMatrix(l_obj); break;
- case QVariant::Palette: var = toQPalette(l_obj); break;
- case QVariant::Pen: var = toQPen(l_obj); break;
- case QVariant::Pixmap: var = toQPixmap(l_obj); break;
- case QVariant::Point: var = toQPoint(l_obj); break;
- case QVariant::PointF: var = toQPointF(l_obj); break;
- case QVariant::Polygon: var = toQPolygon(l_obj); break;
- case QVariant::Rect: var = toQRect(l_obj); break;
- case QVariant::RectF: var = toQRectF(l_obj); break;
- case QVariant::Size: var = toQSize(l_obj); break;
- case QVariant::SizeF: var = toQSizeF(l_obj); break;
- case QVariant::SizePolicy: var = toQSizePolicy(l_obj); break;
- case QVariant::String: var = toQString(l_obj); break;
- case QVariant::StringList: var = toQStringList(l_obj); break;
- case QVariant::TextFormat: var = toQTextFormat(l_obj); break;
- case QVariant::TextLength: var = toQTextLength(l_obj); break;
- case QVariant::Time: var = toQTime(l_obj); break;
- case QVariant::Transform: var = toQTransform(l_obj); break;
- case QVariant::Url: var = toQUrl(l_obj); break;
- case QVariant::UInt: var = toUInt(l_obj); break;
- case QVariant::ULongLong: var = toUInt(l_obj); break;
- default:
- // Qt_EQL: a type safe object pointer (checked at run-time)
- if(QMetaType::VoidStar == type) {
- QtObject obj = toQtObject(l_obj);
- if(obj.pointer) {
- var.setValue(eql_pointer(obj.pointer, obj.id)); }}}
- return var; }
-
-static QVariantList toQVariantList(cl_object l_list) {
- QVariantList l;
- if(LISTP(l_list)) {
- cl_object l_el = l_list;
- while(l_el != Cnil) {
- QtObject q_var = toQtObject(cl_car(l_el));
- if("QVariant" == q_var.className()) {
- l << *(QVariant*)q_var.pointer; }
- l_el = cl_cdr(l_el); }}
- return l; }
-
-static cl_object from_char(char ch) {
- cl_object l_char = cl_code_char(MAKE_FIXNUM((int)ch));
- return l_char; }
-
-static cl_object from_qchar(const QChar& ch) {
- cl_object l_char = cl_code_char(MAKE_FIXNUM(ch.unicode()));
- return l_char; }
-
-static cl_object from_qbytearray(const QByteArray& ba) {
- cl_object l_vec = make_vector();
- for(int i = 0; i < ba.size(); ++i) {
- cl_vector_push_extend(2, MAKE_FIXNUM(ba.at(i)), l_vec); }
- return l_vec; }
-
-static cl_object from_qstring(const QString& s) {
- cl_object l_s = ecl_alloc_simple_extended_string(s.length());
- ecl_character* l_p = l_s->string.self;
- for(int i = 0; i < s.length(); ++i) {
- l_p[i] = s.at(i).unicode(); }
- return l_s; }
-
-static cl_object from_qstringlist(const QStringList& l) {
- cl_object l_list = Cnil;
- Q_FOREACH(QString s, l) {
- l_list = CONS(from_qstring(s), l_list); }
- l_list = cl_nreverse(l_list);
- return l_list; }
-
-static cl_object from_intlist(const QList& l) {
- cl_object l_list = Cnil;
- Q_FOREACH(int i, l) {
- l_list = CONS(ecl_make_integer(i), l_list); }
- l_list = cl_nreverse(l_list);
- return l_list; }
-
-static cl_object from_qreallist(const QList& l) {
- cl_object l_list = Cnil;
- Q_FOREACH(qreal r, l) {
- l_list = CONS(ecl_make_doublefloat(r), l_list); }
- l_list = cl_nreverse(l_list);
- return l_list; }
-
-static cl_object from_qcolor(const QColor& col) {
- cl_object l_ret = Cnil;
- if(col.isValid()) { // return NIL for invalid QColors
- if(EQL::return_value_p) {
- l_ret = qt_object_from_name("QColor", new QColor(col), 0, true); }
- else {
- l_ret = qt_object_from_name("QColor", (void*)&col); }}
- return l_ret; }
-
-static cl_object from_qpolygon(const QPolygon& p) {
- cl_object l_list = Cnil;
- for(int i = 0; i < p.size(); ++i) {
- int x, y;
- p.point(i, &x, &y);
- l_list = CONS(ecl_make_integer(y), CONS(ecl_make_integer(x), l_list)); }
- l_list = cl_nreverse(l_list);
- return l_list; }
-
-static cl_object from_qpolygonf(const QPolygonF& pol) {
- cl_object l_list = Cnil;
- for(int i = 0; i < pol.size(); ++i) {
- QPointF p = pol.at(i);
- l_list = CONS(ecl_make_doublefloat(p.y()), CONS(ecl_make_doublefloat(p.x()), l_list)); }
- l_list = cl_nreverse(l_list);
- return l_list; }
-
-static cl_object from_qgradientstop(const QGradientStop& gs) {
- cl_object l_gs = CONS(ecl_make_doublefloat(gs.first), from_qcolor(gs.second));
- return l_gs; }
-
-static cl_object from_qwidgetlist(const QWidgetList& wl) {
- cl_object l_list = Cnil;
- Q_FOREACH(QWidget* w, wl) {
- l_list = CONS(qt_object_from_name(w->metaObject()->className(),
- w,
- w->property("EQL.unique").toUInt()),
- l_list); }
- l_list = cl_nreverse(l_list);
- return l_list; }
-
-static cl_object from_qobjectlist(const QObjectList& ol) {
- cl_object l_list = Cnil;
- Q_FOREACH(QObject* o, ol) {
- l_list = CONS(qt_object_from_name(o->metaObject()->className(),
- o,
- o->property("EQL.unique").toUInt()),
- l_list); }
- l_list = cl_nreverse(l_list);
- return l_list; }
-
-static cl_object from_qtexteditextraselectionlist(const QList& l) {
- cl_object l_list = Cnil;
- Q_FOREACH(QTextEdit::ExtraSelection sel, l) {
- l_list = CONS(LIST2(qt_object_from_name("QTextCursor", new QTextCursor(sel.cursor)),
- qt_object_from_name("QTextCharFormat", new QTextCharFormat(sel.format))),
- l_list); }
- l_list = cl_nreverse(l_list);
- return l_list; }
-
-TO_CL_TYPEF (QPoint, qpoint, x, y)
-TO_CL_TYPEF (QSize, qsize, width, height)
-TO_CL_TYPEF2 (QLine, qline, x1, y1, x2, y2)
-TO_CL_TYPEF2 (QRect, qrect, x, y, width, height)
-
-TO_CL_LIST_PTR (QAbstractAnimation, qabstractanimation)
-TO_CL_LIST_PTR (QAbstractButton, qabstractbutton)
-TO_CL_LIST_PTR (QAbstractState, qabstractstate)
-TO_CL_LIST_PTR (QAction, qaction)
-TO_CL_LIST_PTR (QDockWidget, qdockwidget)
-TO_CL_LIST_PTR (QGesture, qgesture)
-TO_CL_LIST_PTR (QGraphicsItem, qgraphicsitem)
-TO_CL_LIST_PTR (QGraphicsTransform, qgraphicstransform)
-TO_CL_LIST_PTR (QGraphicsView, qgraphicsview)
-TO_CL_LIST_PTR (QGraphicsWidget, qgraphicswidget)
-TO_CL_LIST_PTR (QListWidgetItem, qlistwidgetitem)
-TO_CL_LIST_PTR (QMdiSubWindow, qmdisubwindow)
-TO_CL_LIST_PTR (QStandardItem, qstandarditem)
-TO_CL_LIST_PTR (QTableWidgetItem, qtablewidgetitem)
-TO_CL_LIST_PTR (QTextFrame, qtextframe)
-TO_CL_LIST_PTR (QTreeWidgetItem, qtreewidgetitem)
-TO_CL_LIST_PTR (QUndoStack, qundostack)
-
-TO_CL_LIST_VAL (QByteArray, qbytearray)
-TO_CL_LIST_VAL (QFileInfo, qfileinfo)
-TO_CL_LIST_VAL (QKeySequence, qkeysequence)
-TO_CL_LIST_VAL (QModelIndex, qmodelindex)
-TO_CL_LIST_VAL (QPolygonF, qpolygonf)
-TO_CL_LIST_VAL (QSize, qsize)
-TO_CL_LIST_VAL (QTableWidgetSelectionRange, qtablewidgetselectionrange)
-TO_CL_LIST_VAL (QTextBlock, qtextblock)
-TO_CL_LIST_VAL (QUrl, qurl)
-
-TO_CL_VECTOR_VAL (QGradientStop, qgradientstop)
-TO_CL_VECTOR_VAL (QLine, qline)
-TO_CL_VECTOR_VAL (QLineF, qlinef)
-TO_CL_VECTOR_VAL (QPoint, qpoint)
-TO_CL_VECTOR_VAL (QPointF, qpointf)
-TO_CL_VECTOR_VAL (QRect, qrect)
-TO_CL_VECTOR_VAL (QRectF, qrectf)
-TO_CL_VECTOR_VAL (QTextFormat, qtextformat)
-TO_CL_VECTOR_VAL (QTextLength, qtextlength)
-TO_CL_VECTOR_VAL2 (QRgb, qrgb, ecl_make_unsigned_integer)
-TO_CL_VECTOR_VAL2 (float, float, ecl_make_singlefloat)
-TO_CL_VECTOR_VAL2 (int, int, ecl_make_integer)
-TO_CL_VECTOR_VAL2 (qreal, qreal, ecl_make_doublefloat)
-
-static cl_object from_qvariant_value(const QVariant& var) {
- cl_object l_obj = Cnil;
- int type = var.type();
- switch(type) {
- case QVariant::Bool: l_obj = var.toBool() ? Ct : Cnil; break;
- case QVariant::Brush: l_obj = from_qbrush(var.value()); break;
- case QVariant::ByteArray: l_obj = from_qbytearray(var.toByteArray()); break;
- case QVariant::Char: l_obj = from_qchar(var.toChar()); break;
- case QVariant::Color: l_obj = from_qstring(var.toString()); break;
- case QVariant::Cursor: l_obj = from_qcursor(var.value()); break;
- case QVariant::Date: l_obj = from_qdate(var.toDate()); break;
- case QVariant::DateTime: l_obj = from_qdatetime(var.toDateTime()); break;
- case QVariant::Double: l_obj = ecl_make_doublefloat(var.toDouble()); break;
- case QVariant::Font: l_obj = from_qfont(var.value()); break;
- case QVariant::Icon: l_obj = from_qicon(var.value()); break;
- case QVariant::Int: l_obj = ecl_make_integer(var.toInt()); break;
- case QVariant::Image: l_obj = from_qimage(var.value()); break;
- case QVariant::KeySequence: l_obj = from_qkeysequence(var.value()); break;
- case QVariant::Line: l_obj = from_qline(var.toLine()); break;
- case QVariant::LineF: l_obj = from_qlinef(var.toLineF()); break;
- case QVariant::Locale: l_obj = from_qlocale(var.toLocale()); break;
- case QVariant::LongLong: l_obj = ecl_make_integer(var.toLongLong()); break;
- case QVariant::Palette: l_obj = from_qpalette(var.value()); break;
- case QVariant::Pen: l_obj = from_qpen(var.value()); break;
- case QVariant::Pixmap: l_obj = from_qpixmap(var.value()); break;
- case QVariant::Point: l_obj = from_qpoint(var.toPoint()); break;
- case QVariant::PointF: l_obj = from_qpointf(var.toPointF()); break;
- case QVariant::Polygon: l_obj = from_qpolygon(var.value()); break;
- case QVariant::Rect: l_obj = from_qrect(var.toRect()); break;
- case QVariant::RectF: l_obj = from_qrectf(var.toRectF()); break;
- case QVariant::Size: l_obj = from_qsize(var.toSize()); break;
- case QVariant::SizeF: l_obj = from_qsizef(var.toSizeF()); break;
- case QVariant::SizePolicy: l_obj = from_qsizepolicy(var.value()); break;
- case QVariant::String: l_obj = from_qstring(var.toString()); break;
- case QVariant::StringList: l_obj = from_qstringlist(var.toStringList()); break;
- case QVariant::TextFormat: l_obj = from_qtextformat(var.value()); break;
- case QVariant::TextLength: l_obj = from_qtextlength(var.value()); break;
- case QVariant::Time: l_obj = from_qtime(var.toTime()); break;
- case QVariant::Url: l_obj = from_qurl(var.toUrl()); break;
- case QVariant::UInt: l_obj = ecl_make_unsigned_integer(var.toUInt()); break;
- case QVariant::ULongLong: l_obj = ecl_make_unsigned_integer(var.toULongLong()); break; }
- return l_obj; }
-
-static cl_object from_qvariantlist(const QVariantList& l) {
- cl_object l_list = Cnil;
- Q_FOREACH(QVariant v, l) {
- l_list = CONS(from_qvariant_value(v), l_list); }
- l_list = cl_nreverse(l_list);
- return l_list; }
-
-static MetaArg toMetaArg(const QByteArray& sType, cl_object l_arg) {
- void* p = 0;
- const int n = QMetaType::type(sType);
- switch(n) {
- case QMetaType::Bool: p = new bool(l_arg != Cnil); break;
- case QMetaType::Char: p = new char(toChar(l_arg)); break;
- case QMetaType::Double: p = new double(toFloat(l_arg)); break;
- case QMetaType::Float: p = new float(toFloat(l_arg)); break;
- case QMetaType::Int: p = new int(toInt(l_arg)); break;
- case QMetaType::Long: p = new int(toInt(l_arg)); break;
- case QMetaType::LongLong: p = new qlonglong(toInt(l_arg)); break;
- case QMetaType::UChar: p = new uchar(toUInt(l_arg)); break;
- case QMetaType::UInt: p = new uint(toUInt(l_arg)); break;
- case QMetaType::ULong: p = new ulong(toUInt(l_arg)); break;
- case QMetaType::ULongLong: p = new qulonglong(toUInt(l_arg)); break;
- case QMetaType::QBitmap: p = new QBitmap(*toQBitmapPointer(l_arg)); break;
- case QMetaType::QByteArray: p = new QByteArray(toQByteArray(l_arg)); break;
- case QMetaType::QChar: p = new QChar(toQChar(l_arg)); break;
- case QMetaType::QColor: p = new QColor(toQColor(l_arg)); break;
- case QMetaType::QCursor: p = new QCursor(toQCursor(l_arg)); break;
- case QMetaType::QDate: p = new QDate(*toQDatePointer(l_arg)); break;
- case QMetaType::QDateTime: p = new QDateTime(*toQDateTimePointer(l_arg)); break;
- case QMetaType::QEasingCurve: p = new QEasingCurve(*toQEasingCurvePointer(l_arg)); break;
- case QMetaType::QFont: p = new QFont(*toQFontPointer(l_arg)); break;
- case QMetaType::QKeySequence: p = new QKeySequence(*toQKeySequencePointer(l_arg)); break;
- case QMetaType::QLine: p = new QLine(toQLine(l_arg)); break;
- case QMetaType::QLineF: p = new QLineF(toQLineF(l_arg)); break;
- case QMetaType::QLocale: p = new QLocale(*toQLocalePointer(l_arg)); break;
- case QMetaType::QMatrix: p = new QMatrix(*toQMatrixPointer(l_arg)); break;
- case QMetaType::QPoint: p = new QPoint(toQPoint(l_arg)); break;
- case QMetaType::QPointF: p = new QPointF(toQPointF(l_arg)); break;
- case QMetaType::QPolygon: p = new QPolygon(toQPolygon(l_arg)); break;
- case QMetaType::QRect: p = new QRect(toQRect(l_arg)); break;
- case QMetaType::QRectF: p = new QRectF(toQRectF(l_arg)); break;
- case QMetaType::QRegion: p = new QRegion(*toQRegionPointer(l_arg)); break;
- case QMetaType::QRegExp: p = new QRegExp(*toQRegExpPointer(l_arg)); break;
- case QMetaType::QSize: p = new QSize(toQSize(l_arg)); break;
- case QMetaType::QSizeF: p = new QSizeF(toQSizeF(l_arg)); break;
- case QMetaType::QSizePolicy: p = new QSizePolicy(*toQSizePolicyPointer(l_arg)); break;
- case QMetaType::QString: p = new QString(toQString(l_arg)); break;
- case QMetaType::QStringList: p = new QStringList(toQStringList(l_arg)); break;
- case QMetaType::QBrush: p = new QBrush(*toQBrushPointer(l_arg)); break;
- case QMetaType::QIcon: p = new QIcon(*toQIconPointer(l_arg)); break;
- case QMetaType::QImage: p = new QImage(*toQImagePointer(l_arg)); break;
- case QMetaType::QPalette: p = new QPalette(*toQPalettePointer(l_arg)); break;
- case QMetaType::QPen: p = new QPen(*toQPenPointer(l_arg)); break;
- case QMetaType::QPixmap: p = new QPixmap(*toQPixmapPointer(l_arg)); break;
- case QMetaType::QTextFormat: p = new QTextFormat(*toQTextFormatPointer(l_arg)); break;
- case QMetaType::QTextLength: p = new QTextLength(*toQTextLengthPointer(l_arg)); break;
- case QMetaType::QTime: p = new QTime(*toQTimePointer(l_arg)); break;
- case QMetaType::QTransform: p = new QTransform(*toQTransformPointer(l_arg)); break;
- case QMetaType::QUrl: p = new QUrl(*toQUrlPointer(l_arg)); break;
- case QMetaType::QVariant: p = new QVariant(*toQVariantPointer(l_arg)); break;
- case QMetaType::QVariantList: p = new QVariantList(toQVariantList(l_arg)); break;
- default:
- if(T_bool_ok_pointer == n) {
- p = new void*(&_ok_); }
- else if(sType.endsWith('*')) {
- if(sType.startsWith('Q') || sType.startsWith("const Q")) {
- QtObject o = toQtObject(l_arg);
- quintptr l = (quintptr)o.pointer;
- // cast from QObject to non QObject + multiple inheritance problem
- // e.g. QGraphicsObject, which inherits both QObject and QGraphicsItem
- int q = sType.indexOf('Q');
- if((o.id > 0) && LObjects::n_names.contains(sType.mid(q, sType.length() - q - 1))) {
- l += sizeof(QObject); }
- void** v = new void*((void*)l);
- p = v; }
- else if("const char*" == sType) {
- QByteArray ba(toCString(l_arg));
- _cstring_buffer_ << ba;
- const char** s = new const char*(ba.constData());
- p = s; }}
- else if(T_QFileInfo == n) p = new QFileInfo(toQFileInfo(l_arg));
- else if(T_QFileInfoList == n) p = new QFileInfoList(toQFileInfoList(l_arg));
- else if(T_QGradient == n) p = new QGradient(toQGradient(l_arg));
- else if(T_QGradientStop == n) p = new QGradientStop(toQGradientStop(l_arg));
- else if(T_QList_QAbstractAnimation == n) p = new QList(toQAbstractAnimationList(l_arg));
- else if(T_QList_QAbstractButton == n) p = new QList(toQAbstractButtonList(l_arg));
- else if(T_QList_QAbstractState == n) p = new QList(toQAbstractStateList(l_arg));
- else if(T_QList_QAction == n) p = new QList(toQActionList(l_arg));
- else if(T_QList_QByteArray == n) p = new QList(toQByteArrayList(l_arg));
- else if(T_QList_QDockWidget == n) p = new QList(toQDockWidgetList(l_arg));
- else if(T_QList_QGesture == n) p = new QList(toQGestureList(l_arg));
- else if(T_QList_QGraphicsItem == n) p = new QList(toQGraphicsItemList(l_arg));
- else if(T_QList_QGraphicsTransform == n) p = new QList(toQGraphicsTransformList(l_arg));
- else if(T_QList_QGraphicsView == n) p = new QList(toQGraphicsViewList(l_arg));
- else if(T_QList_QGraphicsWidget == n) p = new QList(toQGraphicsWidgetList(l_arg));
- else if(T_QList_QKeySequence == n) p = new QList(toQKeySequenceList(l_arg));
- else if(T_QList_QListWidgetItem == n) p = new QList(toQListWidgetItemList(l_arg));
- else if(T_QList_QMdiSubWindow == n) p = new QList(toQMdiSubWindowList(l_arg));
- else if(T_QModelIndexList == n) p = new QModelIndexList(toQModelIndexList(l_arg));
- else if((T_QObjectList == n) || (T_QList_QObject == n))
- p = new QList(toQObjectList(l_arg));
- else if(T_QList_QPolygonF == n) p = new QList(toQPolygonFList(l_arg));
- else if(T_QList_QSize == n) p = new QList(toQSizeList(l_arg));
- else if(T_QList_QStandardItem == n) p = new QList(toQStandardItemList(l_arg));
- else if(T_QList_QTableWidgetItem == n) p = new QList(toQTableWidgetItemList(l_arg));
- else if(T_QList_QTableWidgetSelectionRange == n) p = new QList(toQTableWidgetSelectionRangeList(l_arg));
- else if(T_QList_QTextBlock == n) p = new QList(toQTextBlockList(l_arg));
- else if(T_QList_QTextEdit_ExtraSelection == n) p = new QList(toQTextEditExtraSelectionList(l_arg));
- else if(T_QList_QTextFrame == n) p = new QList(toQTextFrameList(l_arg));
- else if(T_QList_QTreeWidgetItem == n) p = new QList(toQTreeWidgetItemList(l_arg));
- else if(T_QList_QUndoStack == n) p = new QList(toQUndoStackList(l_arg));
- else if(T_QList_QUrl == n) p = new QList(toQUrlList(l_arg));
- else if((T_QWidgetList == n) || (T_QList_QWidget == n))
- p = new QList(toQWidgetList(l_arg));
- else if(T_QList_int == n) p = new QList(toIntList(l_arg));
- else if(T_QList_qreal == n) p = new QList(toRealList(l_arg));
- else if(T_QMargins == n) p = new QMargins(*toQMarginsPointer(l_arg));
- else if(T_QModelIndex == n) p = new QModelIndex(*toQModelIndexPointer(l_arg));
- else if(T_QPainterPath == n) p = new QPainterPath(*toQPainterPathPointer(l_arg));
- else if(T_QPolygonF == n) p = new QPolygonF(toQPolygonF(l_arg));
- else if(T_QRgb == n) p = new QRgb(toUInt(l_arg));
- else if(T_QTableWidgetSelectionRange == n) p = new QTableWidgetSelectionRange(*toQTableWidgetSelectionRangePointer(l_arg));
- else if(T_QTextBlock == n) p = new QTextBlock(*toQTextBlockPointer(l_arg));
- else if(T_QTextBlockFormat == n) p = new QTextBlockFormat(*toQTextBlockFormatPointer(l_arg));
- else if(T_QTextCharFormat == n) p = new QTextCharFormat(*toQTextCharFormatPointer(l_arg));
- else if(T_QTextFrameFormat == n) p = new QTextFrameFormat(*toQTextFrameFormatPointer(l_arg));
- else if(T_QTextListFormat == n) p = new QTextListFormat(*toQTextListFormatPointer(l_arg));
- else if(T_QTextCursor == n) p = new QTextCursor(*toQTextCursorPointer(l_arg));
- else if(T_QTextDocumentFragment == n) p = new QTextDocumentFragment(*toQTextDocumentFragmentPointer(l_arg));
- else if(T_QTextLine == n) p = new QTextLine(*toQTextLinePointer(l_arg));
- else if(T_QTextOption == n) p = new QTextOption(*toQTextOptionPointer(l_arg));
- else if(T_QVector_QGradientstop == n) p = new QVector(toQGradientStopVector(l_arg));
- else if(T_QVector_QLine == n) p = new QVector(toQLineVector(l_arg));
- else if(T_QVector_QLineF == n) p = new QVector(toQLineFVector(l_arg));
- else if(T_QVector_QPoint == n) p = new QVector(toQPointVector(l_arg));
- else if(T_QVector_QPointF == n) p = new QVector(toQPointFVector(l_arg));
- else if(T_QVector_QRect == n) p = new QVector(toQRectVector(l_arg));
- else if(T_QVector_QRectF == n) p = new QVector(toQRectFVector(l_arg));
- else if(T_QVector_QRgb == n) p = new QVector(toQRgbVector(l_arg));
- else if(T_QVector_QTextFormat == n) p = new QVector(toQTextFormatVector(l_arg));
- else if(T_QVector_QTextLength == n) p = new QVector(toQTextLengthVector(l_arg));
- else if(T_QVector_float == n) p = new QVector(tofloatVector(l_arg));
- else if(T_QVector_int == n) p = new QVector(tointVector(l_arg));
- else if(T_QVector_qreal == n) p = new QVector(toqrealVector(l_arg));
- else if(T_WId == n) p = new ulong(toUInt(l_arg));
- else if(T_GLint == n) p = new GLint(toInt(l_arg));
- else if(T_GLuint == n) p = new GLuint(toUInt(l_arg));
- else if(T_GLenum == n) p = new GLenum(toUInt(l_arg));
- else if(T_GLfloat == n) p = new GLfloat(toFloat(l_arg));
- else if(T_short == n) p = new short(toInt(l_arg));
- else if(T_ushort == n) p = new ushort(toUInt(l_arg));
- else if(T_qint32 == n) p = new qint32(toInt(l_arg));
- else if(T_qint64 == n) p = new qint64(toInt(l_arg));
- else if(T_quint8 == n) p = new quint8(toUInt(l_arg));
- else if(T_quint16 == n) p = new quint16(toUInt(l_arg));
- else if(T_quint32 == n) p = new quint32(toUInt(l_arg));
- else if(T_quint64 == n) p = new quint64(toUInt(l_arg));
- // module types
- else {
- bool found = false;
- if(LObjects::toMetaArg_multimedia) {
- p = LObjects::toMetaArg_multimedia(n, l_arg, &found); }
- if(!found && LObjects::toMetaArg_network) {
- p = LObjects::toMetaArg_network(n, l_arg, &found); }
- if(!found && LObjects::toMetaArg_sql) {
- p = LObjects::toMetaArg_sql(n, l_arg, &found); }
- if(!found && LObjects::toMetaArg_webkit) {
- p = LObjects::toMetaArg_webkit(n, l_arg, &found); }
- if(!found) {
- // enum
- if(!sType.endsWith('>') && sType.contains(':')) {
- int* i = new int(toInt(l_arg));
- p = i; }}}}
- return MetaArg(sType, p); }
-
-cl_object to_lisp_arg(const MetaArg& arg) {
- cl_object l_ret = Cnil;
- void* p = arg.second;
- if(p) {
- QByteArray sType(arg.first);
- const int n = QMetaType::type(sType);
- switch(n) {
- case QMetaType::Bool: l_ret = *(bool*)p ? Ct : Cnil; break;
- case QMetaType::Char: l_ret = from_char(*(char*)p); break;
- case QMetaType::Double: l_ret = ecl_make_doublefloat(*(double*)p); break;
- case QMetaType::Float: l_ret = ecl_make_singlefloat(*(float*)p); break;
- case QMetaType::Int: l_ret = ecl_make_integer(*(int*)p); break;
- case QMetaType::Long: l_ret = ecl_make_integer(*(long*)p); break;
- case QMetaType::LongLong: l_ret = ecl_make_integer(*(qlonglong*)p); break;
- case QMetaType::UChar: l_ret = MAKE_FIXNUM(*(uchar*)p); break;
- case QMetaType::UInt: l_ret = ecl_make_unsigned_integer(*(uint*)p); break;
- case QMetaType::ULong: l_ret = ecl_make_unsigned_integer(*(ulong*)p); break;
- case QMetaType::ULongLong: l_ret = ecl_make_unsigned_integer(*(qulonglong*)p); break;
- case QMetaType::QBitmap: l_ret = from_qbitmap(*(QBitmap*)p); break;
- case QMetaType::QBrush: l_ret = from_qbrush(*(QBrush*)p); break;
- case QMetaType::QByteArray: l_ret = from_qbytearray(*(QByteArray*)p); break;
- case QMetaType::QChar: l_ret = from_qchar(*(QChar*)p); break;
- case QMetaType::QColor: l_ret = from_qcolor(*(QColor*)p); break;
- case QMetaType::QCursor: l_ret = from_qcursor(*(QCursor*)p); break;
- case QMetaType::QDate: l_ret = from_qdate(*(QDate*)p); break;
- case QMetaType::QDateTime: l_ret = from_qdatetime(*(QDateTime*)p); break;
- case QMetaType::QEasingCurve: l_ret = from_qeasingcurve(*(QEasingCurve*)p); break;
- case QMetaType::QFont: l_ret = from_qfont(*(QFont*)p); break;
- case QMetaType::QIcon: l_ret = from_qicon(*(QIcon*)p); break;
- case QMetaType::QImage: l_ret = from_qimage(*(QImage*)p); break;
- case QMetaType::QKeySequence: l_ret = from_qkeysequence(*(QKeySequence*)p); break;
- case QMetaType::QLine: l_ret = from_qline(*(QLine*)p); break;
- case QMetaType::QLineF: l_ret = from_qlinef(*(QLineF*)p); break;
- case QMetaType::QLocale: l_ret = from_qlocale(*(QLocale*)p); break;
- case QMetaType::QMatrix: l_ret = from_qmatrix(*(QMatrix*)p); break;
- case QMetaType::QPalette: l_ret = from_qpalette(*(QPalette*)p); break;
- case QMetaType::QPen: l_ret = from_qpen(*(QPen*)p); break;
- case QMetaType::QPixmap: l_ret = from_qpixmap(*(QPixmap*)p); break;
- case QMetaType::QPoint: l_ret = from_qpoint(*(QPoint*)p); break;
- case QMetaType::QPointF: l_ret = from_qpointf(*(QPointF*)p); break;
- case QMetaType::QPolygon: l_ret = from_qpolygon(*(QPolygon*)p); break;
- case QMetaType::QRect: l_ret = from_qrect(*(QRect*)p); break;
- case QMetaType::QRectF: l_ret = from_qrectf(*(QRectF*)p); break;
- case QMetaType::QRegion: l_ret = from_qregion(*(QRegion*)p); break;
- case QMetaType::QRegExp: l_ret = from_qregexp(*(QRegExp*)p); break;
- case QMetaType::QSize: l_ret = from_qsize(*(QSize*)p); break;
- case QMetaType::QSizePolicy: l_ret = from_qsizepolicy(*(QSizePolicy*)p); break;
- case QMetaType::QSizeF: l_ret = from_qsizef(*(QSizeF*)p); break;
- case QMetaType::QString: l_ret = from_qstring(*(QString*)p); break;
- case QMetaType::QStringList: l_ret = from_qstringlist(*(QStringList*)p); break;
- case QMetaType::QTextFormat: l_ret = from_qtextformat(*(QTextFormat*)p); break;
- case QMetaType::QTextLength: l_ret = from_qtextlength(*(QTextLength*)p); break;
- case QMetaType::QTransform: l_ret = from_qtransform(*(QTransform*)p); break;
- case QMetaType::QTime: l_ret = from_qtime(*(QTime*)p); break;
- case QMetaType::QUrl: l_ret = from_qurl(*(QUrl*)p); break;
- case QMetaType::QVariant: l_ret = from_qvariant(*(QVariant*)p); break;
- case QMetaType::QVariantList: l_ret = from_qvariantlist(*(QVariantList*)p); break;
- default:
- if(T_bool_ok_pointer == n) {
- l_ret = _ok_ ? Ct : Cnil; }
- else if(sType.endsWith('*')) {
- if(sType.startsWith('Q') || sType.startsWith("const Q")) {
- l_ret = qt_object_from_name(sType, *(void**)p); }
- else if("const char*" == sType) {
- l_ret = STRING_COPY(*(char**)p); }
- else {
- l_ret = ecl_make_unsigned_integer((quintptr)*(void**)p); }}
- else if(T_QFileInfo == n) l_ret = from_qfileinfo(*(QFileInfo*)p);
- else if(T_QFileInfoList == n) l_ret = from_qfileinfolist(*(QFileInfoList*)p);
- else if(T_QGradientStop == n) l_ret = from_qgradientstop(*(QGradientStop*)p);
- else if(T_QList_QAbstractAnimation == n) l_ret = from_qabstractanimationlist(*(QList*)p);
- else if(T_QList_QAbstractButton == n) l_ret = from_qabstractbuttonlist(*(QList*)p);
- else if(T_QList_QAbstractState == n) l_ret = from_qabstractstatelist(*(QList*)p);
- else if(T_QList_QAction == n) l_ret = from_qactionlist(*(QList*)p);
- else if(T_QList_QByteArray == n) l_ret = from_qbytearraylist(*(QList*)p);
- else if(T_QList_QDockWidget == n) l_ret = from_qdockwidgetlist(*(QList*)p);
- else if(T_QList_QGesture == n) l_ret = from_qgesturelist(*(QList*)p);
- else if(T_QList_QGraphicsItem == n) l_ret = from_qgraphicsitemlist(*(QList*)p);
- else if(T_QList_QGraphicsTransform == n) l_ret = from_qgraphicstransformlist(*(QList*)p);
- else if(T_QList_QGraphicsView == n) l_ret = from_qgraphicsviewlist(*(QList*)p);
- else if(T_QList_QGraphicsWidget == n) l_ret = from_qgraphicswidgetlist(*(QList*)p);
- else if(T_QList_QKeySequence == n) l_ret = from_qkeysequencelist(*(QList*)p);
- else if(T_QList_QListWidgetItem == n) l_ret = from_qlistwidgetitemlist(*(QList*)p);
- else if(T_QList_QMdiSubWindow == n) l_ret = from_qmdisubwindowlist(*(QList*)p);
- else if(T_QModelIndexList == n) l_ret = from_qmodelindexlist(*(QModelIndexList*)p);
- else if((T_QObjectList == n) || (T_QList_QObject == n))
- l_ret = from_qobjectlist(*(QList*)p);
- else if(T_QList_QPolygonF == n) l_ret = from_qpolygonflist(*(QList*)p);
- else if(T_QList_QSize == n) l_ret = from_qsizelist(*(QList*)p);
- else if(T_QList_QStandardItem == n) l_ret = from_qstandarditemlist(*(QList*)p);
- else if(T_QList_QTableWidgetItem == n) l_ret = from_qtablewidgetitemlist(*(QList*)p);
- else if(T_QList_QTableWidgetSelectionRange == n) l_ret = from_qtablewidgetselectionrangelist(*(QList*)p);
- else if(T_QList_QTextBlock == n) l_ret = from_qtextblocklist(*(QList*)p);
- else if(T_QList_QTextEdit_ExtraSelection == n) l_ret = from_qtexteditextraselectionlist(*(QList*)p);
- else if(T_QList_QTextFrame == n) l_ret = from_qtextframelist(*(QList*)p);
- else if(T_QList_QTreeWidgetItem == n) l_ret = from_qtreewidgetitemlist(*(QList*)p);
- else if(T_QList_QUndoStack == n) l_ret = from_qundostacklist(*(QList*)p);
- else if(T_QList_QUrl == n) l_ret = from_qurllist(*(QList*)p);
- else if((T_QWidgetList == n) || (T_QList_QWidget == n))
- l_ret = from_qwidgetlist(*(QList*)p);
- else if(T_QList_int == n) l_ret = from_intlist(*(QList*)p);
- else if(T_QList_qreal == n) l_ret = from_qreallist(*(QList*)p);
- else if(T_QMargins == n) l_ret = from_qmargins(*(QMargins*)p);
- else if(T_QModelIndex == n) l_ret = from_qmodelindex(*(QModelIndex*)p);
- else if(T_QPainterPath == n) l_ret = from_qpainterpath(*(QPainterPath*)p);
- else if(T_QPolygonF == n) l_ret = from_qpolygonf(*(QPolygonF*)p);
- else if(T_QRgb == n) l_ret = ecl_make_unsigned_integer(*(QRgb*)p);
- else if(T_QTableWidgetSelectionRange == n) l_ret = from_qtablewidgetselectionrange(*(QTableWidgetSelectionRange*)p);
- else if(T_QTextBlock == n) l_ret = from_qtextblock(*(QTextBlock*)p);
- else if(T_QTextBlockFormat == n) l_ret = from_qtextblockformat(*(QTextBlockFormat*)p);
- else if(T_QTextCharFormat == n) l_ret = from_qtextcharformat(*(QTextCharFormat*)p);
- else if(T_QTextFrameFormat == n) l_ret = from_qtextframeformat(*(QTextFrameFormat*)p);
- else if(T_QTextListFormat == n) l_ret = from_qtextlistformat(*(QTextListFormat*)p);
- else if(T_QTextCursor == n) l_ret = from_qtextcursor(*(QTextCursor*)p);
- else if(T_QTextDocumentFragment == n) l_ret = from_qtextdocumentfragment(*(QTextDocumentFragment*)p);
- else if(T_QTextLine == n) l_ret = from_qtextline(*(QTextLine*)p);
- else if(T_QTextOption == n) l_ret = from_qtextoption(*(QTextOption*)p);
- else if(T_QVector_QGradientstop == n) l_ret = from_qgradientstopvector(*(QVector*)p);
- else if(T_QVector_QLine == n) l_ret = from_qlinevector(*(QVector*)p);
- else if(T_QVector_QLineF == n) l_ret = from_qlinefvector(*(QVector*)p);
- else if(T_QVector_QPoint == n) l_ret = from_qpointvector(*(QVector*)p);
- else if(T_QVector_QPointF == n) l_ret = from_qpointfvector(*(QVector*)p);
- else if(T_QVector_QRect == n) l_ret = from_qrectvector(*(QVector*)p);
- else if(T_QVector_QRectF == n) l_ret = from_qrectfvector(*(QVector*)p);
- else if(T_QVector_QRgb == n) l_ret = from_qrgbvector(*(QVector*)p);
- else if(T_QVector_QTextFormat == n) l_ret = from_qtextformatvector(*(QVector*)p);
- else if(T_QVector_QTextLength == n) l_ret = from_qtextlengthvector(*(QVector*)p);
- else if(T_QVector_float == n) l_ret = from_floatvector(*(QVector*)p);
- else if(T_QVector_int == n) l_ret = from_intvector(*(QVector*)p);
- else if(T_QVector_qreal == n) l_ret = from_qrealvector(*(QVector*)p);
- else if(T_WId == n) l_ret = ecl_make_unsigned_integer(*(ulong*)p);
- else if(T_GLint == n) l_ret = ecl_make_integer(*(GLint*)p);
- else if(T_GLuint == n) l_ret = ecl_make_unsigned_integer(*(GLuint*)p);
- else if(T_GLenum == n) l_ret = ecl_make_unsigned_integer(*(GLenum*)p);
- else if(T_GLfloat == n) l_ret = ecl_make_singlefloat(*(GLfloat*)p);
- else if(T_short == n) l_ret = ecl_make_integer(*(short*)p);
- else if(T_ushort == n) l_ret = ecl_make_unsigned_integer(*(ushort*)p);
- else if(T_qint32 == n) l_ret = ecl_make_integer(*(qint32*)p);
- else if(T_qint64 == n) l_ret = ecl_make_integer(*(qint64*)p);
- else if(T_quint8 == n) l_ret = ecl_make_unsigned_integer(*(quint8*)p);
- else if(T_quint16 == n) l_ret = ecl_make_unsigned_integer(*(quint16*)p);
- else if(T_quint32 == n) l_ret = ecl_make_unsigned_integer(*(quint32*)p);
- else if(T_quint64 == n) l_ret = ecl_make_unsigned_integer(*(quint64*)p);
- // module types
- else {
- bool found = false;
- if(LObjects::to_lisp_arg_multimedia) {
- l_ret = LObjects::to_lisp_arg_multimedia(n, p, &found); }
- if(!found && LObjects::to_lisp_arg_network) {
- l_ret = LObjects::to_lisp_arg_network(n, p, &found); }
- if(!found && LObjects::to_lisp_arg_sql) {
- l_ret = LObjects::to_lisp_arg_sql(n, p, &found); }
- if(!found && LObjects::toMetaArg_webkit) {
- l_ret = LObjects::to_lisp_arg_webkit(n, p, &found); }
- // enum
- if(!found) {
- if(!sType.endsWith('>') && sType.contains(':')) {
- int* i = (int*)p;
- l_ret = ecl_make_integer(*i); }}}}}
- return l_ret; }
-
-static void clearMetaArg(const MetaArg& arg, bool is_ret = false) {
- void* p = arg.second;
- QByteArray sType(arg.first);
- const int n = QMetaType::type(sType);
- // catch all exceptions first
- if(T_bool_ok_pointer == n) {
- delete (void**)p; }
- else if(sType.endsWith('*')) {
- if("const char*" == sType) {
- if(!is_ret && !_cstring_buffer_.isEmpty()) {
- _cstring_buffer_.removeLast(); }
- delete (char**)p; }
- else {
- delete (void**)p; }}
- // enums
- else if(!sType.endsWith('>') && sType.contains(':')) {
- delete (int*)p; }
- // default
- else {
- QMetaType::destroy(n, p); }}
-
-static void clearMetaArgList(const MetaArgList& args) {
- MetaArgIterator it(args);
- it.toBack();
- while(it.hasPrevious()) {
- clearMetaArg(it.previous()); }}
-
-static MetaArg retArg(const QByteArray& name) {
- void* p = 0;
- MetaArg ret(name, p);
- if(name.endsWith('*')) {
- if("const char*" == name) {
- p = new char**; }
- else {
- p = new void**; }}
- else {
- p = QMetaType::create(QMetaType::type(name)); }
- ret.second = p;
- return ret; }
-
-
-
-// *** meta info ***
-
-static StrList metaInfo(const QByteArray& type, const QByteArray& qclass, const QByteArray& search,
- bool non, const QMetaObject* mo) {
- StrList info;
- if("methods" == type) {
- if(!mo) {
- mo = methodMetaObjectFromName(qclass, !non); }
- if(mo) {
- for(int i = mo->methodOffset(); i < mo->methodCount(); ++i) {
- QMetaMethod mm(mo->method(i));
- if(mm.methodType() == QMetaMethod::Method) {
- QString sig(mm.methodSignature());
- bool constructor = sig.startsWith('C');
- QString ret;
- if(constructor) {
- sig = qclass + "(" + sig.mid(sig.contains(',') ? 7 : 6);
- ret = "constructor"; }
- else {
- ret = mm.typeName();
- if(ret.isEmpty()) {
- ret = "void"; }}
- ret.append(" ");
- if(!sig.startsWith("_q_")) {
- bool _static = false;
- if(sig.startsWith('M')) {
- sig = sig.mid(1); }
- else if(sig.startsWith('S')) {
- _static = true;
- sig = sig.mid(1); }
- QString name(ret + sig + (_static ? " static" : ""));
- if(!_static && !constructor) {
- QByteArray rm('(' + qclass + '*');
- if(mm.parameterNames().size() > 1) {
- rm.append(','); }
- name.replace(rm, "("); }
- if(name.contains(search, Qt::CaseInsensitive)) {
- info << name.toLatin1(); }}}}}}
- else if("override" == type) {
- Q_FOREACH(QByteArray name, LObjects::overrideFunctions(qclass)) {
- if(QString(name).contains(search, Qt::CaseInsensitive)) {
- info << name; }}}
- else if(!non) {
- if(!mo) {
- mo = LObjects::staticMetaObject(qclass); }
- if(mo) {
- if("properties" == type) {
- for(int i = mo->propertyOffset(); i < mo->propertyCount(); ++i) {
- QMetaProperty mp(mo->property(i));
- QString name = QString("%1 %2%3")
- .arg(mp.typeName())
- .arg(mp.name())
- .arg(mp.isWritable() ? "" : " const");
- if(name.contains(search, Qt::CaseInsensitive)) {
- info << name.toLatin1(); }}}
- else {
- int _type = ("signals" == type) ? QMetaMethod::Signal : QMetaMethod::Slot;
- for(int i = mo->methodOffset(); i < mo->methodCount(); ++i) {
- QMetaMethod mm(mo->method(i));
- if(mm.methodType() == _type) {
- QString ret(mm.typeName());
- if(ret.isEmpty()) {
- ret = "void"; }
- QString sig(mm.methodSignature());
- if(!sig.startsWith("_q_")) {
- QString name(QString("%1 %2").arg(ret).arg(sig));
- if(name.contains(search, Qt::CaseInsensitive)) {
- info << name.toLatin1(); }}}}}}}
- return info; }
-
-static bool metaInfoLessThan(const QByteArray& s1, const QString& s2) {
- if(s1.contains('(')) {
- return s1.mid(1 + s1.lastIndexOf(' ', s1.indexOf('('))) <
- s2.mid(1 + s2.lastIndexOf(' ', s2.indexOf('('))); }
- return s1.mid(1 + s1.indexOf(' ')) <
- s2.mid(1 + s2.indexOf(' ')); }
-
-static cl_object collect_info(const QByteArray& type, const QByteArray& qclass, const QByteArray& qsearch,
- bool non, bool* found, const QMetaObject* mo) {
- cl_object l_info = Cnil;
- StrList info = metaInfo(type, qclass, qsearch, non, mo);
- qSort(info.begin(), info.end(), metaInfoLessThan);
- if(info.size()) {
- *found = true;
- Q_FOREACH(QByteArray i, info) {
- l_info = CONS(STRING_COPY(i.constData()), l_info); }}
- l_info = cl_nreverse(l_info);
- return l_info; }
-
-cl_object qapropos2(cl_object l_search, cl_object l_class, cl_object l_type) {
- /// args: (&optional search-string class-name)
- /// Finds all occurrencies of the given search string in the given object's meta information.
Constructors are listed under "Methods".
To list the user defined functions of external C++ classes (see Qt_EQL), pass the object instead of the class name.
- /// (qapropos "html" "QTextEdit")
- /// (qapropos nil "QWidget")
- /// (qapropos)
- /// (qapropos '|toString|) ; wrapper function symbol
- /// (qapropos nil *qt-main*) ; see Qt_EQL, Qt_EQL (custom Qt classes)
- ecl_process_env()->nvalues = 1;
- QByteArray search;
- if(ECL_STRINGP(l_search)) {
- search = toCString(l_search); }
- bool all = (Cnil == l_type);
- bool q = all ? false : (Ct == cl_eql(q_keyword(), l_type));
- StrList classes;
- bool qt_eql = false;
- const QMetaObject* mo = 0;
- if(ECL_STRINGP(l_class)) {
- if(!classId(l_class)) {
- error_msg("QAPROPOS: class not found:", LIST1(l_class));
- return Cnil; }
- classes << toCString(l_class); }
- else if(Cnil == l_class) {
- if(all) {
- classes << LObjects::qNames;
- classes << LObjects::nNames;
- qSort(classes.begin(), classes.end()); }
- else {
- classes = q ? LObjects::qNames : LObjects::nNames; }}
- else {
- QtObject obj = toQtObject(l_class);
- if(obj.isQObject()) {
- if(obj.pointer) {
- qt_eql = true;
- mo = ((QObject*)obj.pointer)->metaObject();
- classes << QString("%1 : %2")
- .arg(mo->className())
- .arg(QString(obj.className()))
- .toLatin1(); }}}
- cl_object l_docs = Cnil;
- Q_FOREACH(QByteArray cl, classes) {
- bool found = false;
- bool non = LObjects::n_names.contains(cl);
- if(non || qt_eql || LObjects::q_names.contains(cl)) {
- cl_object l_doc_pro = Cnil;
- cl_object l_doc_slo = Cnil;
- cl_object l_doc_sig = Cnil;
- cl_object l_doc_ovr = Cnil;
- if(!non) {
- l_doc_pro = collect_info("properties", cl, search, non, &found, mo); }
- cl_object l_doc_met = collect_info("methods", cl, search, non, &found, mo);
- if(!non) {
- l_doc_slo = collect_info("slots", cl, search, non, &found, mo);
- l_doc_sig = collect_info("signals", cl, search, non, &found, mo); }
- l_doc_ovr = collect_info("override", cl, search, non, &found, mo);
- if(found) {
- cl_object l_doc = Cnil;
- if(l_doc_pro != Cnil) {
- l_doc = CONS(CONS(STRING("Properties:"), l_doc_pro), l_doc); }
- if(l_doc_met != Cnil) {
- l_doc = CONS(CONS(STRING("Methods:"), l_doc_met), l_doc); }
- if(l_doc_slo != Cnil) {
- l_doc = CONS(CONS(STRING("Slots:"), l_doc_slo), l_doc); }
- if(l_doc_sig != Cnil) {
- l_doc = CONS(CONS(STRING("Signals:"), l_doc_sig), l_doc); }
- if((l_doc_ovr != Cnil) && !qt_eql) {
- l_doc = CONS(CONS(STRING("Override:"), l_doc_ovr), l_doc); }
- l_doc = cl_nreverse(l_doc);
- if(l_doc != Cnil) {
- l_docs = CONS(CONS(STRING_COPY(cl.data()), l_doc), l_docs); }}}}
- cl_object l_ret = cl_nreverse(l_docs);
- return l_ret; }
-
-
-
-// *** main functions ***
-
-cl_object qnew_instance2(cl_object l_name, cl_object l_args) {
- /// args: (class-name &rest arguments/properties)
- /// alias: qnew
- /// Creates a new Qt object, optionally passing the given arguments to the constructor.
Additionally you can pass any number of property/value pairs.
Please note how you can abbreviate long type lists.
- /// (qnew "QWidget")
- /// (qnew "QPixmap(int,int)" 50 50) ; constructor
- /// (qnew "QLabel" "text" "Readme") ; set property
- /// (qnew "QMatrix4x4(qreal...)" 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4)
- ecl_process_env()->nvalues = 1;
- static QHash i_constructor;
- if(ECL_STRINGP(l_name)) {
- QByteArray name(QMetaObject::normalizedSignature(toCString(l_name)));
- QByteArray nameOnly(name);
- int p = name.indexOf('(');
- if(p != -1) {
- nameOnly = name.left(p); }
- int id = LObjects::q_names.value(nameOnly, 0);
- if(!id) {
- id = -LObjects::n_names.value(nameOnly, 0); }
- if(id) {
- QObject* caller = (id > 0) ? LObjects::Q[id - 1] : LObjects::N[-id - 1];
- if(caller) {
- const QMetaObject* mo = caller->metaObject();
- int method_i = i_constructor.value(name, -1);
- int len = LEN(l_args);
- if(method_i == -1) {
- IntList method_list = findMethodIndex(Method, QByteArray("C(uint") + ((p == -1) ? ")" : ("," + name.mid(p + 1))), mo, len);
- if(method_list.size()) {
- method_i = method_list.at(0);
- i_constructor[name] = method_i; }}
- if(method_i != -1) {
- // qt_metacall to given constructor "C(uint...)"
- QMetaMethod mm(mo->method(method_i));
- StrList types(mm.parameterTypes());
- if(len >= (types.length() - 1)) {
- const int MAX_ARGS = 16;
- // r = return, u = unique
- // r u 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
- void* args[] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 };
- void* pointer = 0;
- args[0] = &pointer; // return value
- uint unique = LObjects::unique();
- args[1] = &unique;
- MetaArgList mArgs;
- cl_object l_do_args = l_args;
- if(p != -1) {
- for(int i = 0; (i < (types.length() - 1)) && (i < MAX_ARGS) && (l_do_args != Cnil); ++i) {
- MetaArg m_arg(toMetaArg(types.at(i + 1), cl_car(l_do_args)));
- args[i + 2] = m_arg.second;
- mArgs << m_arg;
- l_do_args = cl_cdr(l_do_args); }}
- caller->qt_metacall(QMetaObject::InvokeMetaMethod, method_i, args);
- clearMetaArgList(mArgs);
- if(pointer) {
- cl_object l_ret = new_qt_object(pointer, unique, id);
- if(id > 0) { // QObject derived
- QObject* obj = (QObject*)pointer;
- if(obj->isWidgetType()) {
- obj->setProperty("EQL.unique", unique); }
- while(l_do_args != Cnil) {
- qset_property(l_ret, cl_first(l_do_args), cl_second(l_do_args));
- l_do_args = cl_cddr(l_do_args); }}
- return l_ret; }}}}}}
- error_msg("QNEW-INSTANCE", LIST2(l_name, l_args));
- return Cnil; }
-
-cl_object qcopy(cl_object l_obj) {
- /// args: (object)
- /// Copies object using copy-on-write, if such a constructor is available (non QObject derived classes only).
This function is short for e.g: (qnew "QPixmap(QPixmap)" pixmap)
Note that the returned value will not be garbage collected (analogous to qnew).
- /// (qcopy pixmap) ; QPen, QBrush, QFont, QPalette, QPixmap, QImage...
- ecl_process_env()->nvalues = 1;
- QtObject o = toQtObject(l_obj);
- if(!o.isQObject()) {
- if(o.pointer) {
- // qt_metacall to constructor "C(uint,