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

add example "quick/Tic-Tac-Toe"; lots of minor revisions;

Browse source
This commit is contained in:
polos 2017-01-19 02:02:30 +01:00
parent 43abbe2415
commit c7cefd839c
62 changed files with 1731 additions and 1004 deletions
Download patch file Download diff file Expand all files Collapse all files

6
examples/M-modules/quick/qml-lisp/lib/qml_lisp.cpp
View file

@ -13,11 +13,13 @@ QObject* ini() {
qmlRegisterSingletonType<Lisp>("EQL5", 1, 0, "EQL5", lisp_provider); }
return lisp; }
QString Lisp::apply(const QString& function, const QVariantList& arguments) {
QVariant Lisp::apply(const QString& function, const QVariantList& arguments) {
QVariant ret =
eql_fun("qml:qml-apply", QVariant::String,
Q_ARG(QString, function),
Q_ARG(QVariantList, arguments));
return ret.toString(); }
if(ret.toString() == "NIL") {
ret = QVariant(); }
return ret; }
QT_END_NAMESPACE