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

small revisions

Browse source
This commit is contained in:
polos 2016-12-31 20:04:42 +01:00
parent 10c6c4d2a3
commit acec87fb5d
3 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
doc/auto-doc.htm
View file

@ -198,7 +198,7 @@ Returns the byte array (vector of octets) converted using <code>QString::fromUtf
<br><br>
<b>QGUI (&optional process-events)</b>
<br><br>
Launches the EQL convenience GUI.<br>If you don't have an interactive environment, you can pass <code>T</code> to run a pseudo Qt event loop. A better option is to start the tool like so:<br><code>eql -qgui</code>, in order to run the Qt event loop natively.
Launches the EQL convenience GUI.<br>If you don't have an interactive environment, you can pass <code>T</code> to run a pseudo Qt event loop. A better option is to start the tool like so:<br><code>eql5 -qgui</code>, in order to run the Qt event loop natively.
<br>
<br><br>
<b>QID (name)</b>

8
src/eql.cpp
View file

@ -41,12 +41,8 @@ QString EQL::home() {
void EQL::ignoreIOStreams() {
// [Windows] print output would cause a gui exe to crash (without console)
eval("(setf *standard-output* (make-broadcast-stream)"
" *trace-output* *standard-output*"
" *error-output* *standard-output*"
" *terminal-io* (make-two-way-stream (make-string-input-stream \"\")"
" *standard-output*))"); }
eval("(eql::ignore-io-streams)"); }
void EQL::exec(const QStringList& args) {
cl_object s_qtpl = cl_intern(1, make_constant_base_string("*QTPL*"));
bool exec_with_simple_restart = false;

9
src/lisp/ini.lisp
View file

@ -292,6 +292,13 @@
(terpri)
(values)))))))
(defun ignore-io-streams ()
(setf *standard-output* (make-broadcast-stream)
*trace-output* *standard-output*
*error-output* *standard-output*
*terminal-io* (make-two-way-stream (make-string-input-stream "")
*standard-output*)))
;;; top-level / slime-mode processing Qt events (command line options "-qtpl" and "-slime")
(defvar *slime-hook-file* nil)
@ -411,7 +418,7 @@
(defun qgui (&optional ev)
"args: (&optional process-events)
Launches the EQL convenience GUI.<br>If you don't have an interactive environment, you can pass <code>T</code> to run a pseudo Qt event loop. A better option is to start the tool like so:<br><code>eql -qgui</code>, in order to run the Qt event loop natively."
Launches the EQL convenience GUI.<br>If you don't have an interactive environment, you can pass <code>T</code> to run a pseudo Qt event loop. A better option is to start the tool like so:<br><code>eql5 -qgui</code>, in order to run the Qt event loop natively."
(let (found)
(when (find-package :gui)
(let ((gui (find-symbol "*GUI*" :gui)))