EQL5/examples/9-simple-lisp-editor/exe/main.cpp
2016-11-25 23:30:38 +01:00

27 lines
586 B
C++

#include <QCoreApplication>
#include <QTextCodec>
#include <ecl/ecl.h>
#include "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 qapp(argc, argv);
QTextCodec* utf8 = QTextCodec::codecForName("UTF-8");
QTextCodec::setCodecForLocale(utf8);
EQL eql;
eql.exec(ini_app);
return catch_all_qexec(); }