Hi there,
I'm using
linux (2.4.19) RedHat 7.1
XEmacs 21.1 (patch 14)
jde 2.2.8
i ve downgraded to jdk 1.3.1 from blackdown to be sure the -classic option
is still valid...
i always have the same trouble, i can't exit debugger JDEbug.
i have to send SIGKILL to process ;-(
BackTrace
-------
Signaling: (void-variable old-assoc)
#<compiled-function (assoc) "...(33)" [result old-assoc finish-cmd process
jde-dbs-finish-process format "finish %d" eieio-oref id :process jde-dbs-cmd-exec
jde-dbs-proc-move-to-morgue] 6>((1 . [object jde-dbs-proc "process1" 1
"recttree/CutImgApplication" 39928 #<buffer "*recttree/CutImgApplication(1) CLI*">
#<buffer "Process recttree/CutImgApplication(1)"> #<buffer
"recttree/CutImgApplication(1) Threads"> #<buffer "recttree/CutImgApplication(1) Local
Variables"> nil nil nil [object jde-dbs-proc-state-info "State Info 1" "runnable"
"suspended at breakpoint" 361 "AWT-EventQueue-0"] (... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) 0
unbound unbound nil (...) [object jde-dbs-run-process "run 1" #1 7 "run" ... nil
"Running recttree/CutImgApplication."] #<window-configuration 0x72ec> nil]))
mapc(#<compiled-function (assoc) "...(33)" [result old-assoc finish-cmd process
jde-dbs-finish-process format "finish %d" eieio-oref id :process jde-dbs-cmd-exec
jde-dbs-proc-move-to-morgue] 6> ((1 . [object jde-dbs-proc "process1" 1
"recttree/CutImgApplication" 39928 #<buffer "*recttree/CutImgApplication(1) CLI*">
#<buffer "Process recttree/CutImgApplication(1)"> #<buffer
"recttree/CutImgApplication(1) Threads"> #<buffer "recttree/CutImgApplication(1) Local
Variables"> nil nil nil ... ... 0 unbound unbound nil ... ... #<window-configuration
0x72ec> nil])))
#<compiled-function nil "...(41)" [jde-dbs-the-debugger jde-dbs-the-process-registry
jde-dbs-debugger-running-p mapc #<compiled-function ... "...(33)" ... 6> eieio-oref
proc-alist slot-makeunbound :target-process jde-dbs-debugger-quit error "Debugger is
not running."] 5 nil nil>()
call-interactively(jde-bug-exit)
Message log
-----------
Loading /usr/lib/xemacs/xemacs-packages/lisp/site-start.d/aspell-init.el...
Loading /usr/lib/xemacs/xemacs-packages/lisp/site-start.d/aspell-init.el...done
Loading /usr/lib/xemacs/xemacs-packages/lisp/site-start.d/mew-init.el...
Loading /usr/lib/xemacs/xemacs-packages/lisp/site-start.d/mew-init.el...done
Loading /usr/lib/xemacs/xemacs-packages/lisp/site-start.d/psgml-init.el...
Loading /usr/lib/xemacs/xemacs-packages/lisp/site-start.d/psgml-init.el...done
Loading /usr/lib/xemacs/xemacs-packages/lisp/site-start.d/semi-init.el...
Loading mime-setup...
Loading mail-mime-setup...
Loading mail-mime-setup...done
gnus-mime-setup is not found.
Loading emh-setup...
Loading emh-setup...done
Loading mime-setup...done
Loading /usr/lib/xemacs/xemacs-packages/lisp/site-start.d/semi-init.el...done
Loading /usr/lib/xemacs/xemacs-packages/lisp/site-start.d/wl-init.el...
Loading mime-setup...
Loading mail-mime-setup...
Loading mail-mime-setup...done
gnus-mime-setup is not found.
Loading emh-setup...
Loading emh-setup...done
Loading mime-setup...done
Loading /usr/lib/xemacs/xemacs-packages/lisp/site-start.d/wl-init.el...done
Loading cus-face...
Loading cus-face...done
Loading time...
Loading time...done
Loading recent-files...
Loading recent-files...done
Loading /export/home2_1/users/lecomte/.recent-files.el...
Loading /export/home2_1/users/lecomte/.recent-files.el...done
Loading env...
Loading env...done
Loading paren...
Loading paren...done
Paren mode is blink-paren
Loading pending-del...
Loading pending-del...done
Loading font...
Loading font...done
Loading gnuserv...
Loading gnuserv...done
Loading efs-cu...
Loading efs-cu...done
Loading jde...
Loading customization dependencies...
Loading customization dependencies...done
jde-java-font-lock: building names cache...
jde-java-font-lock: building names cache...empty
Loading jde...done
Loading /export/lambda_1/users/lecomte/work/essais/recttree/prj.el...
Loading /export/lambda_1/users/lecomte/work/essais/recttree/prj.el...done
CutImgApplication.java: [###########################################] ... done
Type `C-x #' to finish editing
Error: evaluating output from the debugger caused a Lisp error.
Debugger output:
(jde-dbo-event-set 1 "none" nil
(list 'jde-dbo-vm-death-event)).
Lisp error: (void-variable old-assoc)
Error: evaluating output from the debugger caused a Lisp error.
Debugger output: (jde-dbo-event-set 1 "none" nil
(list 'jde-dbo-vm-disconnected-event)).
Lisp error: (void-variable old-assoc)
Loading debug...
Loading debug...done
Entering debugger...
JDEbug log
----------
cd /export/lambda_1/users/lecomte/work/essais/recttree/src/recttree/
java -classpath
/usr/lib/xemacs/xemacs-packages/etc/jde/java/lib/jde.jar:/usr/local/j2sdk1.3.1/lib/tools.jar
jde.debugger.Main
(jde-dbo-init-debug-session)
JDE> -1 1 launch 1 -vmexec java -classic -classpath
/home/lecomte/work/essais/recttree/src/:/home/lecomte/work/essais/recttree/classes
recttree/CutImgApplication
(jde-dbo-message 1 "VM options: '-classic '")
(jde-dbo-message
1 "Launched VM Java Debug Interface (Reference Implementation) version 1.3
Java Debug Wire Protocol (Reference Implementation) version 1.0
JVM Debug Interface version 1.0
JVM version 1.3.1 (Classic VM, native threads, nojit)")
(jde-dbo-message 1 "initSIOConnect: starting standard I/O handshake.")
(jde-dbo-event-set
1 "all"
(list "Thread" 1 "main" "waiting" "suspended by debugger"
(list)
(list)
nil)
(list 'jde-dbo-vm-start-event))
(jde-dbo-message 1 "initSIOConnect: starting SIO connect thread.")
(jde-dbo-command-result 1 39979)
(jde-dbo-message
1 "Debugger waiting for Emacs to connect to app SIO port 39979.")
JDE> 1 2 run
(jde-dbo-command-result 2)
(jde-dbo-message 1 "Debugger connected to standard I/O socket.")
(jde-dbo-message 1 "Closed transport for application's standard error output.")
(jde-dbo-message 1 "Closed transport for application's standard output.")
(jde-dbo-event-set 1 "none" nil
(list 'jde-dbo-vm-death-event))
(jde-dbo-event-set 1 "none" nil
(list 'jde-dbo-vm-disconnected-event))
;; Red Hat Linux default .emacs initialization file
;; Set up the keyboard so the delete key on both the regular keyboard
;; and the keypad delete the character under the cursor and to the right
;; under X, instead of the default, backspace behavior.
(global-set-key [delete] 'delete-char)
(global-set-key [kp-delete] 'delete-char)
;;=============================================================================
;; scroll on mouse wheel
;;=============================================================================
;; scroll on wheel of mouses
(define-key global-map 'button4
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-down 5)
(select-window curwin)
)))
(define-key global-map [(shift button4)]
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-down 1)
(select-window curwin)
)))
(define-key global-map [(control button4)]
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-down)
(select-window curwin)
)))
(define-key global-map 'button5
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-up 5)
(select-window curwin)
)))
(define-key global-map [(shift button5)]
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-up 1)
(select-window curwin)
)))
(define-key global-map [(control button5)]
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-up)
(select-window curwin)
)))
;; pour le look général.
;; Pour "fontifier" dans tout les modes
(setq font-lock-auto-fontify t)
(setq font-lock-maximum-decoration t)
;; +++++++++++++++++++ Hide-Show ++++++++++++++++++++++++
(add-hook 'c-mode-hook 'outline-minor-mode)
(add-hook 'LaTeX-mode-hook 'outline-minor-mode)
(global-set-key '(shift right) 'show-subtree)
(global-set-key '(shift left) 'hide-subtree)
(global-set-key '(shift down) 'show-subtree)
(global-set-key '(shift up) 'hide-subtree)
(global-set-key '(meta right) 'sgml-unfold-element)
(global-set-key '(meta left) 'sgml-fold-element)
;; ++++++++++++++++++ autre (compiltateur) ++++++++++++++++
(defun toolbar-compile ()
"Run compile."
(interactive)
(defadvice split-window (before foo-bar activate) (setq horflag t))
(compile compile-command)
(defadvice split-window (before foo-bar activate) nil)
)
(global-set-key '(meta c) 'toolbar-compile)
;; (defadvice split-window (before foo-bar activate) (setq horflag t))
;;-------------------------------------------------------
;;Pour paramètrer la barre d'état.
;; Pour avoir le numéro de colonne en plus du pourcentage
(setq column-number-mode t)
;; Avec ça, on a le numéro de ligne
(setq line-number-mode t)
;; Pour avoir l'heure dans la barre d'état
(display-time)
;; Format 24h;;
(setq display-time-24hr-format t)
;;Specify which file to check
(setq display-time-mail-file t)
;; Une touche undo en +
(global-set-key 'f12 'undo)
;; menu des derniers fichiers lu
(load "recent-files")
(recent-files-initialize)
;; PCL-CVS
(autoload 'cvs-update "pcl-cvs" nil t)
(require 'vc-hooks)
(setq cvs-update-optional-flags '("-d"))
;; Pour le php
(setq load-path (cons (concat "~/elisp")
load-path))
(require 'php-mode)
(setq ansi-color-for-comint-mode-on t)
(setq minibuffer-max-depth nil)
;; load sgml-mode
(autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t )
(add-hook 'sgml-mode-hook 'turn-on-font-lock)
(setq sgml-catalog-files '("/usr/lib/sgml/catalog"))
(setq-default sgml-set-face t)
;; (setq ispell-skip-sgml t)
(setq sgml-insert-end-tag-on-new-line t)
;; in sgml documents, parse dtd immediately to allow immediate
;; syntax coloring
(setq sgml-auto-activate-dtd t)
;; here we set the syntax color information for psgml
(setq-default sgml-set-face t)
;;
;; Faces.
;;
(make-face 'sgml-comment-face)
(make-face 'sgml-doctype-face)
(make-face 'sgml-end-tag-face)
(make-face 'sgml-entity-face)
(make-face 'sgml-ignored-face)
(make-face 'sgml-ms-end-face)
(make-face 'sgml-ms-start-face)
(make-face 'sgml-pi-face)
(make-face 'sgml-sgml-face)
(make-face 'sgml-short-ref-face)
(make-face 'sgml-start-tag-face)
(set-face-foreground 'sgml-comment-face "dark turquoise")
(set-face-foreground 'sgml-doctype-face "red")
(set-face-foreground 'sgml-end-tag-face "blue")
(set-face-foreground 'sgml-entity-face "magenta")
(set-face-foreground 'sgml-ignored-face "gray40")
(set-face-background 'sgml-ignored-face "gray60")
(set-face-foreground 'sgml-ms-end-face "green")
(set-face-foreground 'sgml-ms-start-face "yellow")
(set-face-foreground 'sgml-pi-face "lime green")
(set-face-foreground 'sgml-sgml-face "brown")
(set-face-foreground 'sgml-short-ref-face "deep sky blue")
(set-face-foreground 'sgml-start-tag-face "dark green")
(setq-default sgml-markup-faces
'((comment . sgml-comment-face)
(doctype . sgml-doctype-face)
(end-tag . sgml-end-tag-face)
(entity . sgml-entity-face)
(ignored . sgml-ignored-face)
(ms-end . sgml-ms-end-face)
(ms-start . sgml-ms-start-face)
(pi . sgml-pi-face)
(sgml . sgml-sgml-face)
(short-ref . sgml-short-ref-face)
(start-tag . sgml-start-tag-face)))
;; load xml-mode
(setq auto-mode-alist
(append (list (cons "\\.xml\\'" 'xml-mode))
auto-mode-alist))
(autoload 'xml-mode "psgml" nil t)
(setq sgml-xml-declaration "/usr/lib/sgml/decl/xml.dcl")
;;Pour bbdb et les adresses mails
(require 'bbdb)
(bbdb-initialize 'gnus 'message)
(global-set-key '(meta n) 'bbdb-complete-name)
(setq bbdb/mail-auto-create-p nil)
(setq bbdb/news-auto-create-p nil)
(setq bbdb-offer-save nil)
(setq bbdb-north-american-phone-numbers-p nil)
;;--------------------------------------------------------------------
;; Pour Mozart
(or (getenv "OZHOME")
(setenv "OZHOME"
"/usr/lib/mozart")) ; or wherever Mozart is installed
(setenv "PATH" (concat (getenv "OZHOME") "/bin:" (getenv "PATH")))
(setq load-path (cons (concat (getenv "OZHOME") "/share/elisp")
load-path))
(setq auto-mode-alist
(append '(("\\.oz\\'" . oz-mode)
("\\.ozg\\'" . oz-gump-mode))
auto-mode-alist))
(autoload 'run-oz "oz" "" t)
(autoload 'oz-mode "oz" "" t)
(autoload 'oz-gump-mode "oz" "" t)
(autoload 'oz-new-buffer "oz" "" t)
;; Put this file into your load-path and the following into your ~/.emacs:
(setq load-path (cons (expand-file-name "~/elisp/template/lisp") load-path))
(setq template-default-directories '("~/elisp/template/templates"))
(require 'template)
(template-initialize)
;; You might want to add another item to the "File" menu by:
(add-menu-button '("File")
["Insert and Expand Template..."
template-expand-template
:active (not buffer-read-only)]
"Insert File...")
;; aspell instead of ispell
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;(setq ispell-dictionary "francais"
;; ispell-skip-sgml t)
;;(setq-default ispell-program-name "aspell")
;; (global-set-key (read-kbd-macro "M-$") 'ispell-word)
;; (global-set-key (read-kbd-macro "C-ugrave") 'ispell-complete-word)
;; (global-set-key [f4] 'ispell-buffer)
;; FlySpell
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;(add-hook 'text-mode-hook 'flyspell-mode)
;;(add-hook 'mail-mode
;; '(lambda () (setq flyspell-generic-check-word-p
;; 'mail-mode-flyspell-verify)))
;(add-hook 'sgml-mode
; '(lambda () (setq flyspell-generic-check-word-p
; 'sgml-mode-flyspell-verify)))
;(add-hook 'html-mode
; '(lambda () (setq flyspell-generic-check-word-p
; 'sgml-mode-flyspell-verify)))
;(add-hook 'html-helper-mode
; '(lambda () (setq flyspell-generic-check-word-p
; 'sgml-mode-flyspell-verify)))
;(global-set-key [f3] 'flyspell-buffer)
(global-set-key [f2] 'find-tag-other-window)
(global-set-key [f3] 'tags-search)
;; Mode qui signale les fautes au vol (comme dans oueurde)
;; <URL:http://kaolin.unice.fr/~serrano/emacs/emacs.html>
;;(autoload 'flyspell-mode "flyspell" "On-the-fly spelling checking" t)
;;(autoload 'global-flyspell-mode "flyspell" "On-the-fly spelling" t)
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
(setq auto-mode-alist (cons '("\\.html$" . html-helper-mode) auto-mode-alist))
;;doxymacs
(require 'doxymacs)
(add-hook 'c-mode-common-hook 'doxymacs-mode)
(defun my-doxymacs-font-lock-hook ()
(if (or (eq major-mode 'c-mode) (eq major-mode 'c++-mode))
(doxymacs-font-lock)))
(add-hook 'font-lock-mode-hook 'my-doxymacs-font-lock-hook)
;;R
;;(require 'ess-site)
(custom-set-variables
'(font-lock-auto-fontify t)
'(paren-mode (quote blink-paren) nil (paren))
'(browse-url-netscape-program "netscape")
'(jde-run-application-class "recttree/CutImgApplication")
'(jde-bug-vm-includes-jpda-p t)
'(jde-global-classpath (quote ("/home/lecomte/work/essais/recttree/src/"
"/home/lecomte/work/essais/recttree/classes")))
'(jde-bug-jdk-directory "/usr/local/j2sdk1.3.1/")
'(font-lock-use-colors t)
'(gnuserv-program (concat exec-directory "/gnuserv"))
'(font-lock-use-fonts nil)
'(jde-run-classic-mode-vm t)
'(browse-url-browser-function (quote browse-url-netscape))
'(sgml-catalog-files (quote ("/usr/lib/sgml/catalog"
"/usr/share/sgml/docbook/sgml-dtd-4.1/catalog")) t)
'(pending-delete-mode t nil (pending-del))
'(toolbar-mail-reader (quote gnus))
'(jde-compile-option-classpath nil)
'(jde-enable-abbrev-mode t)
'(speedbar-supported-extension-expressions (quote
(".[ch]\\(\\+\\+\\|pp\\|c\\|h\\|xx\\)?" ".tex\\(i\\(nfo\\)?\\)?" ".el" ".emacs" ".l"
".li?sp" ".p" ".java" ".f\\(90\\|77\\|or\\)?" ".ada" ".p[lm]" ".tcl" ".m" ".scm" ".pm"
".py" ".s?html" ".ma?k" "makefile\\(\\.in\\)?" ".erl")))
'(jde-db-debugger (quote ("JDEbug" "" . "Executable")))
'(jde-db-source-directories (quote
("/export/lambda_1/users/lecomte/work/essais/recttree/src/recttree")))
'(user-mail-address "[EMAIL PROTECTED]" t)
'(query-user-mail-address nil)
'(font-lock-mode nil nil (font-lock)))
(custom-set-faces
'(default ((t (:family "Fixed" :size "12pt"))) t))
;;for jde some bug in completion
(require 'eldoc)
(setq debug-on-error t)
(jde-project-file-version "1.0")
(jde-set-variables)
