At 12:03 PM 10/1/00 +0200, you wrote:
>I�m using JDE 2.2.4 with Emacs 20.5.1 on SUN Solaris 2.6.
>
>I have installed JDE 2.2.4 like desribed and i have also compiled it with
the makefile like described.
>Now if i call 'jde-complete-at-point' or 'jde-complete-at-point-menu' the
first time i get the following
>error-message:
>
>Invalid function: (macro . #[(&rest body)
"���������\"BBB�����\"BBBFBBB?" [body if (and (eq system-type (quote
windows-nt)) (not jde-xemacsp)) (boundp (quote
win32-start-process-show-window)) let ((save
win32-start-process-show-window)) (setq win32-start-process-show-window t)
append ((setq win32-start-process-show-window save)) ((save
w32-start-process-show-window))] 11
("/usr/local/share/emacs/20.5/site-lisp/big-add-ons/jde-2.2.4/lisp/jde-run.e
lc" . 15335)])
>
>If i call then one of the mentioned complete-functions again they are
working correct means this
>error only occurs at first time!
>Another problem: If this error has occured then always the follwoing
message occurs if i try to
>exit Emacs:
>"There are active processes. Do you you want to exit and kill them?" and
the bsh-process is
>listed.
>
>Ok, these are the problems with COMPILED JDE 2.2.4.
>
>But if i don�t compile JDE but use it uncompiled (without *.elc files)
then all is working fine (completion
>works and exiting Emacs works).
>Seems that JDE 2.2.4 has some problems with it�s macros and lisp-compiling...
>
>Is this enough to describe the problem or do you need a full bug-report?
>
Yes, beanshell.el uses a macro, save-w32-start-process-show-window, defined
in jde-run but does not have a require form for jde-run. Thus the macro is
not visible when beanshell is compiled. I do not want beanshell to depend
on the JDE so I have added code to beanshell that defines the macro if it
is not already defined. I have attached the revised version of
beanshell.el. Replace the current version with the new version and compile
the new version. I've not tested this. Let me know if it does not work.
- Paul
;;; beanshell.el
;; $Revision: 1.16 $
;; Author: Paul Kinnucan <[EMAIL PROTECTED]>
;; Maintainer: Paul Kinnucan
;; Keywords: java, tools
;; Copyright (C) 1997, 1998 Paul Kinnucan.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;; Need jde-run only to get the definition for
;; save-w32-show-window macro.
(defcustom bsh-startup-timeout 10
"*Length of time the JDE waits for the Beanshell to startup.
Increase the value of this variable if you get Lisp errors
on BeanShell startup on Unix."
:group 'bsh
:type 'integer)
(defcustom bsh-eval-timeout 20
"*Length of time in seconds the JDE waits for the Beanshell to evaluate
a Java expression before giving up and signaling an error."
:group 'bsh
:type 'integer)
(defcustom bsh-vm-args nil
"*Specify arguments to be passed to the Java vm.
This option allows you to specify one or more arguments to be passed
to the Java vm that runs the BeanShell. Note that the value of this
variable should be a list of strings, each of which represents an
argument. When customizing this variable, use a separate text field
for each argument."
:group 'jde-run-options
:type '(repeat (string :tag "Argument")))
(defun bsh()
"*Starts BeanShell, a Java interpreter developed by Pat Niemeyer."
(interactive)
(bsh-internal t))
(if (not (fboundp 'save-w32-show-window))
(defmacro save-w32-show-window (&rest body)
"Saves the value of the w32-start-process-show-window variable
before evaluating body and restores the value afterwards."
`(if (and (eq system-type 'windows-nt)
(not (string-match "XEmacs" (emacs-version))))
(if (boundp 'win32-start-process-show-window)
(let ((save win32-start-process-show-window))
(setq win32-start-process-show-window t)
,@body
(setq win32-start-process-show-window save))
(let ((save w32-start-process-show-window))
(setq w32-start-process-show-window t)
,@body
(setq w32-start-process-show-window save)))
,@body)))
(defun bsh-internal (&optional display-buffer)
(let ((bsh-buffer-name "*bsh*"))
(if (not (comint-check-proc bsh-buffer-name))
(let* ((bsh-buffer (get-buffer-create bsh-buffer-name))
(jde-java-directory
(concat
(jde-find-jde-data-directory)
"java/"))
(vm (if (eq system-type 'windows-nt)
jde-run-java-vm-w
jde-run-java-vm))
(vm-args
(list
"-classpath"
(jde-convert-cygwin-path
(concat
jde-java-directory "bsh-commands" jde-classpath-separator
jde-java-directory "lib/jde.jar" jde-classpath-separator
jde-java-directory "lib/bsh.jar" jde-classpath-separator
(if jde-global-classpath
(jde-run-build-classpath-arg jde-global-classpath)
(getenv "CLASSPATH"))) jde-classpath-separator)))
(dir (if (buffer-file-name)
(file-name-directory (buffer-file-name))
default-directory)))
(setq vm-args (append vm-args bsh-vm-args))
(setq vm-args (append vm-args (list "bsh.Interpreter")))
(save-excursion
(set-buffer bsh-buffer)
(erase-buffer)
(cd dir)
(insert (concat "cd " dir "\n"))
(insert
(concat vm " "
(mapconcat (lambda (x) x) vm-args " ") "\n\n"))
(comint-mode)
(setq comint-prompt-regexp "bsh % "))
(save-w32-show-window
;; (message "%s" (nth 1 vm-args))
(message "%s" "Starting the BeanShell. Please wait...")
(comint-exec bsh-buffer "bsh" vm nil vm-args))
(let ((bsh-process (get-buffer-process bsh-buffer)))
(process-kill-without-query bsh-process))
(if display-buffer
(pop-to-buffer bsh-buffer-name)))
(when display-buffer
(message "The Java interpreter is already running.")
(pop-to-buffer bsh-buffer-name)))))
(setq bsh-tq-reply nil)
(defun bsh-eval-filter (process result)
(let ((end-of-result (string-match ".*bsh % " result)))
;; Check for case
;; %bsh\n...eval output...%bsh\n
;; This can happen because the beanshell outputs two or more
;; prompts after evaluating some expressions.
;; Thanks to Stephane Nicolas.
;; (if (eq end-of-result 0)
;; (accept-process-output process 0 5))
(if end-of-result
(setq bsh-tq-reply (concat bsh-tq-reply (substring result 0 end-of-result)))
(setq bsh-tq-reply (concat bsh-tq-reply result))
(accept-process-output process bsh-eval-timeout 5))))
(defun bsh-eval (expr &optional eval-return)
"Uses the BeanShell Java interpreter to evaluate a Java statement.
If the interpreter is not already running, this function starts
the interpreter. This function returns any text output by the
Java interpreter's standard out or standard error pipes.
If the optional argument eval-return is non-nil, this function
returns the result of evaluating the Java output as a Lisp
expression."
(let* ((bsh-process
(if (get-process "bsh")
(get-process "bsh")
(let (proc)
(bsh-internal)
(setq proc (get-process "bsh"))
(if (eq system-type 'windows-nt)
(accept-process-output proc)
(while (accept-process-output proc bsh-startup-timeout 0)))
proc)))
(comint-filter (if bsh-process (process-filter bsh-process))))
(when bsh-process
(setq bsh-tq-reply nil)
(set-process-filter bsh-process 'bsh-eval-filter)
;; (message "Evaluating: %s" expr)
(process-send-string bsh-process (concat expr "\n"))
(if (not (accept-process-output bsh-process bsh-eval-timeout 100))
(error "No reply from BeanShell"))
(set-process-filter bsh-process comint-filter)
(if (string-match "// Error:" bsh-tq-reply)
(progn
(message
"Beanshell expression evaluation error.\n Expression: %s\n Error: %s"
expr bsh-tq-reply)
(error "Beanshell eval error. See messages buffer for details.")))
;; (if eval-return (message "Evaluating reply: %s" bsh-tq-reply))
(if eval-return
(if bsh-tq-reply
(condition-case eval-error
(eval (read bsh-tq-reply))
(error
(message "Error evaluating Lisp result of Java expression
evaluation.")
(message " Java expression: %s." expr)
(message " Java evaluation result: %s." bsh-tq-reply)
(error "Error evaluating Java expresson. See *Messages* buffer.")))
(progn
(message "bsh-eval-r error: Beanshell result is null. Cannot evaluate.")
(message " Expression: %s" expr)))
bsh-tq-reply))))
(defun bsh-eval-r(java-statement)
"Convenience function for evaluating Java statements
that return Lisp expressions as output. This function
invokes bsh-eval with the evaluate-return option set to
t."
(bsh-eval java-statement t))
(provide 'beanshell);
;; $Log: beanshell.el,v $
;; Revision 1.16 2000/08/10 09:09:47 paulk
;; Now handles Lisp eval errors gracefully.
;;
;; Revision 1.15 2000/08/07 05:11:38 paulk
;; Adds bsh-vm-args variable.
;;
;; Revision 1.14 2000/08/04 02:51:19 paulk
;; Added bsh-eval-timeout variable.
;;
;; Revision 1.13 2000/02/16 04:39:28 paulk
;; Implemented Cygwin/XEmacs compatiblity fix provided by Fred Hart
;; <[EMAIL PROTECTED]> in bsh-internal.
;;
;; Revision 1.12 2000/02/02 05:51:00 paulk
;; Expanded doc string.
;;
;; Revision 1.11 2000/01/28 04:28:00 paulk
;; Fixed startup timing bug that cause commands that use the beanshell to
;; failt the first time on Unix systems.
;;
;; Revision 1.10 2000/01/15 08:00:03 paulk
;; Corrected typo.
;;
;; Revision 1.9 1999/11/01 03:13:07 paulk
;; No change.
;;
;; Revision 1.8 1999/09/17 06:55:26 paulk
;; Set comint-prompt-regexp to the beanshell prompt.
;; Fixed bug where Emacs was querying user whether to kill the beanshell
;; buffer on exit from Emacs.
;;
;; Revision 1.7 1999/01/15 22:18:41 paulk
;; Added Andy Piper's NT/XEmacs compatibility changes.
;;
;; Revision 1.6 1998/12/13 22:10:04 paulk
;; Add check for chunked traffic between Emacs and the BeanShell.
;;
;; Revision 1.5 1998/12/09 00:59:43 paulk
;; Added a startup message for beanshell.
;;
;; Revision 1.4 1998/11/27 10:07:57 paulk
;; Use CLASSPATH environment variable if jde-global-classpath is nil.
;;
;; Revision 1.3 1998/11/22 23:14:28 paulk
;; Fixed path separator bug.
;;
;; Revision 1.2 1998/11/22 18:11:56 paulk
;; Changed path to use jde.jar.
;;
;; Revision 1.1 1998/10/22 00:07:56 paulk
;; Initial revision
;;
;; End of beanshell.el
