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 header for calling ECL from Qt plugins; add cpp-lib example call; revisions

Browse source
This commit is contained in:
pls.153 2022-02-21 13:30:22 +01:00
parent 71437530f3
commit 7b9dfb3123
6 changed files with 455 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/cpp/marshal.cpp
View file

@ -136,30 +136,30 @@ QVariant toQVariant(cl_object l_arg, int type) {
case QMetaType::QRectF: var = toQRectF(l_arg); break;
case QMetaType::QSizeF: var = toQSizeF(l_arg); break;
default:
if (cl_integerp(l_arg) == ECL_T) { // int
if (cl_integerp(l_arg) == ECL_T) { // int
var = QVariant(toInt(l_arg));
}
else if (cl_floatp(l_arg) == ECL_T) { // double
else if (cl_floatp(l_arg) == ECL_T) { // double
var = QVariant(toFloat<double>(l_arg));
}
else if (cl_stringp(l_arg) == ECL_T) { // string
else if (cl_stringp(l_arg) == ECL_T) { // string
var = QVariant(toQString(l_arg));
}
else if (l_arg == ECL_T) { // true
else if (l_arg == ECL_T) { // true
var = QVariant(true);
}
else if (l_arg == ECL_NIL) { // false
else if (l_arg == ECL_NIL) { // false
var = QVariant(false);
}
else if (cl_listp(l_arg) == ECL_T) { // list
else if (cl_listp(l_arg) == ECL_T) { // list
var = (cl_keywordp(cl_first(l_arg)) == ECL_T)
? toQVariantMap(l_arg)
: toQVariantList(l_arg);
}
else if (cl_vectorp(l_arg) == ECL_T) { // vector (of octets)
else if (cl_vectorp(l_arg) == ECL_T) { // vector (of octets)
var = QVariant(toQByteArray(l_arg));
}
else { // default: undefined
else { // default: undefined
var = QVariant();
}
break;