Hi,
I am running XEmacs 20.4 on Solaris 7 and JDE 2.6beta11. It seems that I have
a setup problem some where that I can't figure out based on the documents
I read. Thanks for any hints.
Regards.
thanh



The *JDEbug* buffer is showing the following error when I try to debug an app:


java -classpath 
/net/capra/export16/thanh/Xemacs/jde/jde-2.1.6beta11/java/lib/jde.jar:/net/capra
/export16/thanh/Xemacs/jde/lib/jpda.jar jde.debugger.Main


(jde-dbo-init-debug-session)

JDE> -1 1 launch 1 -use_executable java -classpath .:pixtran.jar 
-Djava.compiler= Viewer 



(jde-dbo-debug "
com.sun.jdi.VMDisconnectedException: Bad file number
        at com.sun.tools.jdi.TargetVM.send(TargetVM.java:271)
        at 
com.sun.tools.jdi.VirtualMachineImpl.sendToTarget(VirtualMachineImpl.java:696)
        at com.sun.tools.jdi.PacketStream.send(PacketStream.java:55)
        at 
com.sun.tools.jdi.JDWP$VirtualMachine$IDSizes.enqueueCommand(JDWP.java:476)
        at com.sun.tools.jdi.JDWP$VirtualMachine$IDSizes.process(JDWP.java:467)
        at 
com.sun.tools.jdi.VirtualMachineImpl.<init>(VirtualMachineImpl.java:174)
        at 
com.sun.tools.jdi.VirtualMachineManagerImpl.createVirtualMachine(VirtualMachineM
anagerImpl.java:166)
        at com.sun.tools.jdi.AbstractLauncher.launch(AbstractLauncher.java:121)
        at 
com.sun.tools.jdi.SunCommandLineLauncher.launch(SunCommandLineLauncher.java:153)
        at jde.debugger.Application.launch(Application.java:363)
        at jde.debugger.Application.initialize(Application.java:163)
        at jde.debugger.Jdebug.initApplication(Jdebug.java:403)
        at jde.debugger.Jdebug.doLaunch(Jdebug.java:437)
        at jde.debugger.Jdebug.handleGeneralCommand(Jdebug.java:278)
        at jde.debugger.Jdebug.access$0(Jdebug.java:260)
        at jde.debugger.Jdebug$1.run(Jdebug.java:210)
")


(jde-dbo-command-error
1 "Unspecified error: com.sun.jdi.VMDisconnectedException: Bad file number")


(setq options-save-faces t)
;; (display-time)
(line-number-mode 1)

(setq minibuffer-max-depth nil)

(put 'set-goal-column 'disabled nil)


;; Options Menu Settings
;; =====================
(cond
 ((and (string-match "XEmacs" emacs-version)
       (boundp 'emacs-major-version)
       (or (and
            (= emacs-major-version 19)
            (>= emacs-minor-version 14))
           (= emacs-major-version 20))
       (fboundp 'load-options-file))
  (load-options-file "/net/capra/export16/thanh/.xemacs-options")))
;; ============================
;; End of Options Menu Settings

;;
;; Ignore extentions
;;
(setq completion-ignored-extensions
        '(".o" ".elc" "~" ".bin" ".lbin" ".fasl"
          ".dvi" ".toc" ".log" ".aux" ".a" ".ln"
          ".lof" ".blg" ".bbl" ".glo" ".idx" ".lot" ".fmt"
          ".diff" ".oi" ".class" ".so"))


;(define-key c-mode-map "
;" 'newline-and-indent)
;; C and C++ settings
(setq c-basic-offset 4)
;;(autoload 'c++-mode  "cc-mode" "C++ Editing Mode" t)
;;(autoload 'c-mode    "cc-mode" "C Editing Mode" t)
;;(autoload 'objc-mode "cc-mode" "Objective-C Editing Mode" t)
(setq auto-mode-alist
   (append '(("\\.C$"   . c++-mode)
             ("\\.java$". java-mode)
             ("\\.cc$"  . c++-mode)
             ("\\.cpp$" . c++-mode)
             ("\\.c$"   . c-mode)
             ("\\.h$"   . c++-mode)
             ("\\.m$"   . objc-mode)
             ("\\.html" . html-mode)
            ) auto-mode-alist))

(defconst java-c-style
  '((c-basic-offset . 4)
;    (c-comment-only-line-offset . 0)
;    (c-offsets-alist . ((statement-block-intro . +)
;                       (substatement-open . 0)
;                       (block-open . +)
;                       (block-close . -)
;                       (label . 0)
;                       (case-label . 2)
;                       (statement-cont . +)
;                       )
;                    )
    )
  "Java Programming Style")

;; Customizations for all of c-mode, c++-mode, and objc-mode
(defun my-c-mode-common-hook ()
; (c-set-offset 'substatement-open 0)
; (c-set-offset 'statement-cont 0)
; (c-set-offset 'statement-block-intro 4)
; (c-set-offset 'arglist-intro 4)
; (c-set-offset 'inline-open 0)
; (c-set-offset 'access-label 0)
; (c-set-offset 'arglist-cont 0)
; (c-set-offset 'arglist-close 0)
; (c-set-offset 'case-label 0)
;  (c-add-style "JAVA" java-c-style t)
  (setq c-basic-offset 4)
  (setq tab-width 8
        ;; this will make sure spaces are used instead of tabs
        indent-tabs-mode nil)
  (font-lock-mode 1)
  )

;; Bind C-. and C-; to scroll one line
(defun scroll-up-one-line ()
(interactive)
(scroll-up 1))
     
(defun scroll-down-one-line ()
(interactive)
(scroll-down 1))
     
(global-set-key [(control ?.)] 'scroll-up-one-line)        ; C-.
(global-set-key [(control ?;)] 'scroll-down-one-line)      ; C-;

;; Bind C-cc to compile and RETURN to newline-and-indent
(global-set-key "\r" 'newline-and-indent)     ; return=newline+indent
(global-set-key "\C-cc" 'compile)             ; compile

(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)


(defun my-tab (&optional pre-arg)
  "If preceeding character is part of a word then dabbrev-expand,
else if right of non whitespace on line then tab-to-tab-stop or
indent-relative, else if last command was a tab or return then dedent
one step, else indent 'correctly'"
  (interactive "*P")
  (cond ((= (char-syntax (preceding-char)) ?w)
         (let ((case-fold-search t)) (dabbrev-expand pre-arg)))
        ((> (current-column) (current-indentation))
         (indent-relative))
        (t (indent-according-to-mode)))
  (setq this-command 'my-tab))

;; load JDE
(setq load-path 
      (nconc '( 
               "/net/capra/export16/thanh/Xemacs/jde/jde-2.1.6beta11/lisp" 
               ) 
             load-path))
(require 'jde)

;; Autocompletion
;;(require 'dabbrev)
;;(setq dabbrev-always-check-other-buffers t)
;;(setq dabbrev-abbrev-char-regexp "\\sw\\|\\s_")
;;(add-hook 'jde-mode-hook
;;          '(lambda ()
;;             (local-set-key "\C-i"     'my-tab)
;;             (set (make-local-variable 'dabbrev-case-fold-search) nil)
;;             (set (make-local-variable 'dabbrev-case-replace) nil)))


(put 'eval-expression 'disabled nil)
(custom-set-variables
 '(jde-db-set-initial-breakpoint nil)
 '(jde-compiler "javac")
 '(jde-run-working-directory "~/tmp")
 '(jde-compile-option-debug (quote ("all" (t nil nil))))
 '(jde-db-option-verbose (quote (nil nil nil)))
 '(jde-db-option-vm-args (quote ("-Djava.compiler=")))
 '(jde-make-program "gnumake")
 '(jde-compile-option-target (quote ("1.2")))
 '(jde-run-application-class "Viewer")
 '(jde-global-classpath (quote (".:pixtran.jar")))
 '(jde-run-applet-doc "VN.html")
 '(jde-run-java-vm "java")
 '(jde-bug-jpda-directory "/net/capra/export16/thanh/Xemacs/jde")
 '(jde-db-option-classpath (quote (".:pixtran.jar")))
 '(jde-db-option-application-args nil)
 '(jde-db-startup-commands nil)
 '(jde-compile-option-command-line-args "")
 '(jde-enable-abbrev-mode t)
 '(jde-run-option-application-args nil)
 '(jde-run-applet-viewer "appletviewer")
 '(jde-db-debugger (quote ("jdebug" . "Class")))
 '(jde-db-source-directories (quote ("./" 
"/net/capra/export16/thanh/Kestrel/src/share/classes/" 
"/net/capra/export16/thanh/Kestrel/src/solaris/classes/"))))
(custom-set-faces
 '(default ((t (:foreground "white" :background "black" :family "Lucidatypewriter" 
:size "12"))) t)
 '(red ((t (:foreground "yellow"))) t)
 '(font-lock-string-face ((t (:foreground "lightgreen"))) t)
 '(font-lock-reference-face ((t (:foreground "cyan"))) t)
 '(comint-input-face ((((class color) (background light)) (:foreground "white"))))
 '(custom-group-tag-face ((((class color) (background light)) (:underline t 
:foreground "lightsteelblue4"))))
 '(custom-variable-tag-face ((((class color) (background light)) (:underline t 
:foreground "lightblue"))))
 '(font-lock-doc-string-face ((t (:foreground "green"))) t)
 '(font-lock-preprocessor-face ((t (:foreground "lightblue"))) t)
 '(font-lock-variable-name-face ((t (:foreground "lightblue"))) t)
 '(custom-state-face ((((class color) (background light)) (:foreground "lightpink"))))
 '(display-time-mail-balloon-gnus-group-face ((t (:foreground "lightblue"))))
 '(speedbar-directory-face ((((class color) (background light)) (:foreground 
"lightblue"))) t)
 '(font-lock-type-face ((t (:foreground "lightyellow1"))) t)
 '(widget-inactive-face ((((class grayscale color) (background light)) (:foreground 
"lightgray"))))
 '(blue ((t (:foreground "skyblue"))) t)
 '(font-lock-comment-face ((t (:foreground "lightcoral"))) t)
 '(font-lock-function-name-face ((t (:bold nil :foreground "black" :background 
"lightgray"))) t)
 '(speedbar-tag-face ((((class color) (background light)) (:foreground "red"))) t)
 '(speedbar-file-face ((((class color) (background light)) (:foreground "cyan"))) t))

Reply via email to