mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-06 02:30:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

enable JS arrays (lists in Lisp) as return values from 'qjs' calls; revsions

Browse source
This commit is contained in:
pls.153 2023-07-15 08:31:04 +02:00
parent f8636cc3ef
commit 80acb3c92d
4 changed files with 13 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/cpp/ecl_fun_plugin.h
View file

@ -222,7 +222,7 @@ TO_QT_2 (QPointF, toFloat)
TO_QT_2 (QSizeF, toFloat)
TO_QT_4 (QRectF, toFloat)
QVariant toQVariant(cl_object, int = -1);
QVariant toQVariant(cl_object, int = 0);
QVariant toQVariantMap(cl_object);
QVariantList toQVariantList(cl_object);
@ -391,12 +391,13 @@ cl_object from_qvariant(const QVariant& var) {
case QMetaType::QString:
case QMetaType::QUrl: l_obj = from_qstring(var.toString()); break;
// special case (can be nested)
case QMetaType::QVariantList:
case QMetaType::QVariantList: {
QVariantList list(var.value<QVariantList>());
for (QVariant v : qAsConst(list)) {
l_obj = CONS(from_qvariant(v), l_obj);
}
l_obj = cl_nreverse(l_obj);
}
break;
}
}