mirrors/EQL5
1
Fork 0
mirror of https://gitlab.com/eql/EQL5.git synced 2026-01-11 03:31:47 -08:00
Code Issues Projects Releases Packages Wiki Activity

revision of 'qlog' (for EQL5-Android); tiny revision;

Browse source
This commit is contained in:
polos 2018-01-27 17:17:28 +01:00
parent 7b8aba492d
commit 0f0cbedb86
4 changed files with 19 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/eql.cpp
View file

@ -3,6 +3,7 @@
#include "eql5/eql.h"
#include "ecl_fun.h"
#include "gen/_lobjects.h"
#include <iostream>
#include <QApplication>
#include <QTimer>
#include <QStringList>
@ -20,7 +21,7 @@ static const char* _argv_[] = {"EQL5"};
static void logMessageHandler(QtMsgType, const QMessageLogContext& context, const QString& msg) {
// for logging on android (see 'adb logcat')
// examples:
// Lisp: (qlog "message")
// Lisp: (qlog "x: ~A y: ~A" x y)
// QML: console.log("message")
QString report(msg);
if(context.file && !QString(context.file).isEmpty()) {
@ -120,7 +121,7 @@ void EQL::exec(const QStringList& args) {
<< QString("(delete-file \"ui.h\")")
<< QString("(eql:qq)"); }
else {
qDebug() << "\nPlease pass a file.ui (Qt Designer).\n";
std::cout << "\nPlease pass a file.ui (Qt Designer).\n" << std::endl;
exit(-1); }}
else {
if(arguments.length() == 1) {
@ -166,7 +167,7 @@ void EQL::exec(QWidget* widget, const QString& lispFile, const QString& slimeHoo
if(!slimeHookFile.isEmpty()) {
QString startSwankFile(QCoreApplication::arguments().last());
if(NotFound == startSwankFile.indexOf(QRegExp("*start-swank*.lisp", Qt::CaseInsensitive, QRegExp::Wildcard))) {
qDebug() << "\nPlease pass the pathname for \"eql-start-swank.lisp\".\n";
std::cout << "\nPlease pass the pathname for \"eql-start-swank.lisp\".\n" << std::endl;
exit(-1); }
QApplication::setQuitOnLastWindowClosed(false);
forms << QString("(load \"%1\")").arg(startSwankFile)