mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2026-02-05 15:22:50 -08:00
Code Issues Projects Releases Packages Wiki Activity

review marshalling docu, remove obsolete QStringList (use QVariantList instead)

Browse source
This commit is contained in:
pls.153 2022-10-26 10:28:00 +02:00
parent 6d1be2a51f
commit 39deb3199a
4 changed files with 6 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

21
src/cpp/marshal.cpp
View file

@ -130,18 +130,6 @@ 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_2 (QPoint, toInt)
TO_QT_2 (QSize, toInt)
TO_QT_4 (QRect, toInt)
@ -287,15 +275,6 @@ cl_object from_qstring(const QString& s) {
return l_s;
}
cl_object from_qstringlist(const QStringList& l) {
cl_object l_list = ECL_NIL;
for (QString s : qAsConst(l)) {
l_list = CONS(from_qstring(s), l_list);
}
l_list = cl_nreverse(l_list);
return l_list;
}
TO_CL_2 (QPoint, qpoint, ecl_make_fixnum, x, y)
TO_CL_2 (QSize, qsize, ecl_make_fixnum, width, height)
TO_CL_4 (QRect, qrect, ecl_make_fixnum, x, y, width, height)