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

port of EQL/Qt4 to Qt5

Browse source
This commit is contained in:
polos 2016-11-25 23:30:38 +01:00
commit 0591f54ce8
339 changed files with 99935 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

62
Qt_EQL/cpp_calling_lisp/lib.cpp Normal file
View file

@ -0,0 +1,62 @@
#include "lib.h"
#include "../../src/eql_fun.h" // for eql_fun()
QT_BEGIN_NAMESPACE
QObject* ini()
{
// any QObject inherited class will do (e.g. main window of a C++ application)
static QObject* cpp = 0;
if(!cpp) {
cpp = new CPP;
cpp->setObjectName("Qt_EQL_dynamic");
}
return cpp;
}
// insert here your function implementations
void CPP::runExamples()
{
ulong n = 123;
// (1) call user defined function
{
QVariant ret = eql_fun("eql-user:say-number", QVariant::String, // see: ecl_fun.cpp:toQVariant()
Q_ARG(ulong, n)); // see: ecl_fun.cpp:to_lisp_arg()
QMessageBox::information(0, "Example 1",
"<pre><b>eql_fun(\"eql-user:say-number\"...);</b><br><br>" + ret.toString());
}
// (2) call FORMAT directly
{
QVariant ret = eql_fun("format", QVariant::String,
Q_ARG(bool, false), // max. 10 Q_ARG()
Q_ARG(QString, "~R"),
Q_ARG(ulong, n));
QMessageBox::information(0, "Example 2",
"<pre><b>eql_fun(\"format\"...);</b><br><br>" + ret.toString());
}
// (3) returning a pointer
{
QVariant ret = eql_fun("qnew", QMetaType::VoidStar,
Q_ARG(QString, "QLabel"));
QLabel* object = Q_PTR(QLabel*, ret); // type checked at run time; 0 if check fails
if(object) {
// ...
}
QString msg;
QDebug out(&msg);
out << "<p>Q_PTR returned:<b>" << object << "</b></p><p>(type checked at run time)</p>";
QMessageBox::information(0, "Example 3",
"<pre><b>eql_fun(\"qnew\"...);</b>" + msg);
}
}
QT_END_NAMESPACE