mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2026-01-13 21:01:07 -08:00
Code Issues Projects Releases Packages Wiki Activity

revisions

Browse source
This commit is contained in:
pls.153 2022-02-14 13:23:59 +01:00
parent 822bbbfaa3
commit 8008fadb39
6 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

128
src/cpp/qml_ext.cpp Normal file
View file

@ -0,0 +1,128 @@
#include "qml_ext.h"
#include "lqml.h"
#include "ecl_fun.h"
QT_BEGIN_NAMESPACE
static Lisp* lisp = 0;
static QObject* lisp_provider(QQmlEngine*, QJSEngine*) { return lisp; }
QObject* iniQml() {
if (!lisp) {
lisp = new Lisp;
qmlRegisterSingletonType<Lisp>("Lisp", 1, 0, "Lisp", lisp_provider);
}
return lisp;
}
static QVariant qmlApply(QObject* caller,
const QString& function,
const QVariantList& arguments) {
return ecl_fun("qml:qml-apply",
QVariant(reinterpret_cast<quintptr>(caller)),
QVariant(function),
QVariant(arguments));
}
QVariant Lisp::call(const QJSValue& caller_or_function,
const QJSValue& function_or_arg0,
const QJSValue& arg1,
const QJSValue& arg2,
const QJSValue& arg3,
const QJSValue& arg4,
const QJSValue& arg5,
const QJSValue& arg6,
const QJSValue& arg7,
const QJSValue& arg8,
const QJSValue& arg9,
const QJSValue& arg10,
const QJSValue& arg11,
const QJSValue& arg12,
const QJSValue& arg13,
const QJSValue& arg14,
const QJSValue& arg15,
const QJSValue& arg16) {
QObject* caller = 0;
QString function;
QVariantList arguments;
if (caller_or_function.isQObject()) {
caller = caller_or_function.toQObject();
function = function_or_arg0.toString();
}
else if (caller_or_function.isString()) {
function = caller_or_function.toString();
if (!function_or_arg0.isUndefined()) {
arguments << function_or_arg0.toVariant();
}
}
if (!arg1.isUndefined()) {
arguments << arg1.toVariant();
if (!arg2.isUndefined()) {
arguments << arg2.toVariant();
if (!arg3.isUndefined()) {
arguments << arg3.toVariant();
if (!arg4.isUndefined()) {
arguments << arg4.toVariant();
if (!arg5.isUndefined()) {
arguments << arg5.toVariant();
if (!arg6.isUndefined()) {
arguments << arg6.toVariant();
if (!arg7.isUndefined()) {
arguments << arg7.toVariant();
if (!arg8.isUndefined()) {
arguments << arg8.toVariant();
if (!arg9.isUndefined()) {
arguments << arg9.toVariant();
if (!arg10.isUndefined()) {
arguments << arg10.toVariant();
if (!arg11.isUndefined()) {
arguments << arg11.toVariant();
if (!arg12.isUndefined()) {
arguments << arg12.toVariant();
if (!arg13.isUndefined()) {
arguments << arg13.toVariant();
if (!arg14.isUndefined()) {
arguments << arg14.toVariant();
if (!arg15.isUndefined()) {
arguments << arg15.toVariant();
if (!arg16.isUndefined()) {
arguments << arg16.toVariant();
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}
return qmlApply(caller, function, arguments);
}
QVariant Lisp::apply(const QJSValue& caller_or_function,
const QJSValue& function_or_arguments,
const QJSValue& arguments_or_undefined) {
QObject* caller = 0;
QString function;
QVariantList arguments;
if (caller_or_function.isQObject()) {
caller = caller_or_function.toQObject();
function = function_or_arguments.toString();
arguments = arguments_or_undefined.toVariant().value<QVariantList>();
}
else if (caller_or_function.isString()) {
function = caller_or_function.toString();
arguments = function_or_arguments.toVariant().value<QVariantList>();
}
return qmlApply(caller, function, arguments);
}
QT_END_NAMESPACE