EQL5/examples/9-simple-lisp-editor/exe/main.cpp
2017-05-01 09:50:18 +02:00

30 lines
653 B
C++

#undef SLOT
#include <ecl/ecl.h>
#include <QApplication>
#include <QTextCodec>
#include <eql5/eql.h>
extern "C" void ini_app(cl_object);
int catch_all_qexec() {
int ret = 0;
CL_CATCH_ALL_BEGIN(ecl_process_env()) {
ret = QCoreApplication::exec(); }
CL_CATCH_ALL_END;
return ret; }
int main(int argc, char** argv) {
EQL::ini(argv);
QCoreApplication::setAttribute(Qt::AA_ShareOpenGLContexts); // for Qt WebEngine
QApplication qapp(argc, argv);
QTextCodec* utf8 = QTextCodec::codecForName("UTF-8");
QTextCodec::setCodecForLocale(utf8);
EQL eql;
eql.exec(ini_app);
return catch_all_qexec(); }