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

add/fix proper error messages in 'ecl_fun()'/C++ and 'Lisp.call()'/QML if undefined

Browse source
This commit is contained in:
pls.153 2023-05-26 19:10:44 +02:00
parent 69ddceb104
commit dae91e0167
3 changed files with 24 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/cpp/ecl_fun_plugin.h
View file

@ -467,12 +467,15 @@ QVariant ecl_fun(const QByteArray& pkgFun,
int p = pkgFun.indexOf(':');
QByteArray pkg = (p == -1) ? "qml-user" : pkgFun.left(p);
QByteArray fun = pkgFun.mid(pkgFun.lastIndexOf(':') + 1);
cl_object l_sym = cl_find_symbol(2,
make_constant_base_string(fun.toUpper().constData()),
cl_find_package(make_constant_base_string(pkg.toUpper().constData())));
if (l_sym != Cnil) {
symbol = l_sym;
lisp_functions[pkgFun] = symbol;
cl_object l_pkg = cl_find_package(make_constant_base_string(pkg.toUpper().constData()));
if (l_pkg != Cnil) {
cl_object l_sym = cl_find_symbol(2,
make_constant_base_string(fun.toUpper().constData()),
l_pkg);
if (cl_fboundp(l_sym) != Cnil) {
symbol = l_sym;
lisp_functions[pkgFun] = symbol;
}
}
}
cl_object l_args = Cnil;