Commit 8e1fdf3c authored by Joel Rosdahl's avatar Joel Rosdahl
Browse files

Made it possible to run the client uncompiled.

* feature.el (lyskom-have-feature): Removed comma so that the
client can run uncompiled.
(lyskom-feature-value): Ditto.

* startup.el (lyskom-compilation-in-progress): New, horrid
function.
(lyskom-is-running-compiled): New constant.
(lyskom): Inform the user that it is a good idea to compile the
client, should it not be compiled.

* swedish-strings.el (lyskom-message): Added
warning-about-uncompiled-client string.

* english-strings.el (lyskom-message): Ditto.
parent e8ff84b5
2002-02-28 Joel Rosdahl <joel@lysator.liu.se>
Made it possible to run the client uncompiled.
* feature.el (lyskom-have-feature): Removed comma so that the
client can run uncompiled.
(lyskom-feature-value): Ditto.
* startup.el (lyskom-compilation-in-progress): New, horrid
function.
(lyskom-is-running-compiled): New constant.
(lyskom): Inform the user that it is a good idea to compile the
client, should it not be compiled.
* swedish-strings.el (lyskom-message): Added
warning-about-uncompiled-client string.
* english-strings.el (lyskom-message): Ditto.
2002-02-26 Joel Rosdahl <joel@lysator.liu.se>
* swedish-strings.el (lyskom-message): Likewise.
......
......@@ -209,8 +209,11 @@ Email address:\t\nWWW:\t\n\nOther:\t")
(start-new-session-same-server
. "You are already connected to that server. Do you want a new session? ")
(new-session-in-buffer . "\n\n---- New session at %s ----\n\n")
(warning-about-uncompiled-client . "
NOTE: The LysKOM client is not compiled. It is recommended to run a compiled
client for performance reasons. Read the accompanying README to learn how to
do that.
")
; From internal.el:
(shaky-tcp . "At the moment I can't reach the server. The TCP/IP connection is shaky%#1s")
......
......@@ -57,11 +57,11 @@
(defmacro lyskom-have-feature (name)
"Return non-nil if feature NAME is non-nil"
,(lyskom-feature-variable name))
(lyskom-feature-variable name))
(defmacro lyskom-feature-value (name)
"Return the value of feature NAME"
,(lyskom-feature-variable name))
(lyskom-feature-variable name))
(defun lyskom-clear-features ()
"Set the feature variables to their defaults"
......
......@@ -51,6 +51,26 @@
proxy-agents and other things. They all seem to end with an empty line,
so in this phase we wait for an empty line.")
(eval-and-compile
(defun lyskom-compilation-in-progress ()
"Returns non-nil if the client currently is being compiled, else nil."
;; This horrid code is inspired from how cl-compiling-file in the
;; cl package works.
(let ((outbuffersym (lyskom-xemacs-or-gnu 'byte-compile-outbuffer
'outbuffer)))
(and (boundp outbuffersym)
(bufferp (symbol-value outbuffersym))
(equal (buffer-name (symbol-value outbuffersym))
" *Compiler Output*")))))
(defconst lyskom-is-running-compiled
(eval-when-compile (lyskom-compilation-in-progress))
"Non-nil if the client is running compiled, else nil.")
;;;###autoload
(defun lyskom (&optional host username password session-priority invisiblep)
"Start a LysKOM session.
......@@ -506,6 +526,9 @@ shown to other users."
;; Now we are logged in.
(lyskom-insert-string 'are-logged-in)
(unless lyskom-is-running-compiled
(lyskom-insert-string 'warning-about-uncompiled-client))
(if (not lyskom-dont-read-user-area)
(lyskom-read-options))
(when (or session-priority kom-default-session-priority)
......
......@@ -187,7 +187,11 @@ Email-adress:\nWWW:\t\n\nAnnat:\t")
(start-new-session-same-server
. "Du kr redan mot den servern. Vill du starta en ny session? ")
(new-session-in-buffer . "\n\n---- Ny session startad %s ----\n\n")
(warning-about-uncompiled-client . "
OBS: LysKOM-klienten r inte kompilerad. Fr att ka prestanda br du kra en
kompilerad version av klienten. Ls i den medfljande README-filen hur man
gr det.
")
;; From internal.el:
(shaky-tcp . "Nu nr jag inte servern. TCP/IP-frbindelsen r skakig%#1s")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment