mirror of
https://gitlab.com/eql/lqml.git
synced 2026-01-13 12:50:46 -08:00
115 lines
4.1 KiB
C++
115 lines
4.1 KiB
C++
#include "qml_ext.h"
|
|
#include "lqml.h"
|
|
#include "ecl_fun.h"
|
|
|
|
QT_BEGIN_NAMESPACE
|
|
|
|
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 = nullptr;
|
|
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 = nullptr;
|
|
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
|