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

add 'ensure-permissions' for android; revisions

Browse source
This commit is contained in:
pls.153 2022-02-22 16:10:55 +01:00
parent 8929b6f60f
commit 60d4a08a8c
12 changed files with 121 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/cpp/marshal.cpp
View file

@ -124,6 +124,18 @@ QString toQString(cl_object l_str) {
return s;
}
QStringList toQStringList(cl_object l_list) {
QStringList l;
if (ECL_LISTP(l_list)) {
cl_object l_el = l_list;
while (l_el != ECL_NIL) {
l << toQString(cl_car(l_el));
l_el = cl_cdr(l_el);
}
}
return l;
}
TO_QT_FLOAT_2 (QPointF)
TO_QT_FLOAT_2 (QSizeF)
TO_QT_FLOAT_4 (QRectF)
@ -246,6 +258,15 @@ cl_object from_qstring(const QString& s) {
return l_s;
}
cl_object from_qstringlist(const QStringList& l) {
cl_object l_list = ECL_NIL;
Q_FOREACH (QString s, l) {
l_list = CONS(from_qstring(s), l_list);
}
l_list = cl_nreverse(l_list);
return l_list;
}
TO_CL_FLOAT_2 (QPointF, qpointf, x, y)
TO_CL_FLOAT_2 (QSizeF, qsizef, width, height)
TO_CL_FLOAT_4 (QRectF, qrectf, x, y, width, height)
@ -270,7 +291,7 @@ cl_object from_qvariant(const QVariant& var) {
case QMetaType::QString: l_obj = from_qstring(var.toString()); break;
// special case (can be nested)
case QMetaType::QVariantList:
Q_FOREACH(QVariant v, var.value<QVariantList>()) {
Q_FOREACH (QVariant v, var.value<QVariantList>()) {
l_obj = CONS(from_qvariant(v), l_obj);
}
l_obj = cl_nreverse(l_obj);