*** Message body too large, sent as attached file msg.txt ***
Sorry to trouble you, but I am just starting to use JDEbug, and am experiencing what
seems to be - but may not be - unusual behavior.
I am setting a breakpoint in my main at a line that calls a routine in a package I
have imported. When I JDEbug > Step Into the routine, JDEbug tells me "Cannot find
<package>.<class> source." and prompts me to "Enter path: <default>"
When I enter the appropriate path, and step into additional lines of the code, I get
more "Cannot find <package>.<class> source." messages - for a class in the same
package, the directory of which I have just supplied, as well as, e.g.,
"java.util.AbstractList source," among others.
What seems strangest to me is that when I set a breakpoint in my main at the line
*following* the line to which I refer above, I hit the breakpoint without any problem;
i.e., the routine is apparently called and run without any trouble.
Am I doing something wrong here?...
Tks,
Matthew Weymar
Emacs : GNU Emacs 20.5.1 (i386-*-nt4.0.1381)
of Mon Dec 6 1999 on buffy
Package: JDE version 2.1.6beta14
current state:
==============
(setq
jde-gen-session-bean-template '("(jde-wiz-insert-imports-into-buffer (list
\"javax.ejb.*\"\n\"java.rmi.RemoteException\"))"
"(jde-wiz-update-implements-clause \"SessionBean\")"
"'> \"public void ejbActivate() throws
RemoteException {\"'n> \"}\"'n\n'n"
"'> \"public void ejbPassivate() throws
RemoteException {\"'n> \"}\"'n\n'n"
"'> \"public void ejbRemove() throws RemoteException
{\"'n> \"}\"'n 'n"
"'> \"public void setSessionContext(SessionContext
ctx) throws\nRemoteException {\""
"'n> \"}\"'n 'n"
"'> \"public void unsetSessionContext() throws
RemoteException {\"'n>\n\"}\"'n 'n")
jde-run-classic-mode-vm nil
jde-gen-code-templates '(("Get Set Pair" . jde-gen-get-set) ("toString method" .
jde-gen-to-string-method)
("Action Listener" . jde-gen-action-listener) ("Window
Listener" . jde-gen-window-listener)
("Mouse Listener" . jde-gen-mouse-listener) ("Mouse Motion
Listener" . jde-gen-mouse-motion-listener)
("Inner Class" . jde-gen-inner-class) ("println" .
jde-gen-println)
("property change support" .
jde-gen-property-change-support))
jde-make-args ""
jde-mode-abbreviations '(("ab" . "abstract") ("bo" . "boolean") ("br" . "break")
("by" . "byte") ("byv" . "byvalue")
("cas" . "cast") ("ca" . "catch") ("ch" . "char") ("cl" .
"class") ("co" . "const")
("con" . "continue") ("de" . "default") ("dou" . "double")
("el" . "else") ("ex" . "extends")
("fa" . "false") ("fi" . "final") ("fin" . "finally") ("fl"
. "float") ("fo" . "for")
("fu" . "future") ("ge" . "generic") ("go" . "goto") ("impl"
. "implements") ("impo" . "import")
("ins" . "instanceof") ("in" . "int") ("inte" . "interface")
("lo" . "long") ("na" . "native")
("ne" . "new") ("nu" . "null") ("pa" . "package") ("pri" .
"private") ("pro" . "protected")
("pu" . "public") ("re" . "return") ("sh" . "short") ("st" .
"static") ("su" . "super")
("sw" . "switch") ("sy" . "synchronized") ("th" . "this")
("thr" . "throw") ("throw" . "throws")
("tra" . "transient") ("tr" . "true") ("vo" . "void") ("vol"
. "volatile") ("wh" . "while"))
jde-compile-option-verbose nil
jde-db-option-heap-size '((1 . "megabytes") (16 . "megabytes"))
jde-bug-breakpoint-marker-colors '("red" . "yellow")
jde-gen-buffer-boilerplate nil
jde-db-option-application-args '("rules=ruleTemplate:constrTemplate
cusipFile=d:/testCUSIP")
jde-bug-vm-includes-jpda-p nil
jde-gen-jfc-app-buffer-template '("(funcall jde-gen-boilerplate-function) 'n"
"\"import java.awt.Dimension;\" 'n"
"\"import java.awt.Graphics;\" 'n" "\"import
java.awt.Graphics2D;\" 'n"
"\"import java.awt.Color;\" 'n" "\"import
java.awt.geom.Ellipse2D;\" 'n"
"\"import java.awt.event.WindowAdapter;\" 'n"
"\"import java.awt.event.WindowEvent;\" 'n"
"\"import javax.swing.JFrame;\" 'n" "\"import
javax.swing.JPanel;\" 'n"
"\"import javax.swing.JScrollPane;\" 'n" "\"import
javax.swing.JMenuBar;\" 'n"
"\"import javax.swing.JMenu;\" 'n" "\"import
java.awt.event.ActionEvent;\" 'n"
"\"import javax.swing.AbstractAction;\" 'n 'n"
"\"/**\" 'n" "\" * \""
"(file-name-nondirectory buffer-file-name) 'n" "\"
*\" 'n" "\" *\" 'n"
"\" * Created: \" (current-time-string) 'n" "\" *\"
'n" "\" * @author \" (user-full-name) 'n"
"\" * @version\" 'n" "\" */\" 'n>" "'n>" "\"public
class \""
"(file-name-sans-extension (file-name-nondirectory
buffer-file-name))"
"\" extends JFrame {\" 'n> 'n>" "\"class Canvas
extends JPanel {\" 'n> 'n>"
"\"public Canvas () {\" 'n>"
"\"setSize(getPreferredSize());\" 'n>"
"\"Canvas.this.setBackground(Color.white);\" 'n>"
"\"}\" 'n> 'n>"
"\"public Dimension getPreferredSize() {\" 'n>"
"\"return new Dimension(600, 600);\" 'n>"
"\"}\" 'n> 'n>" "\"public void
paintComponent(Graphics g) {\" 'n>"
"\"super.paintComponent(g);\" 'n>" "\"Graphics2D
g2d = (Graphics2D) g;\" 'n>"
"\"Ellipse2D circle = new Ellipse2D.Double(0d, 0d,
100d, 100d);\" 'n>"
"\"g2d.setColor(Color.red);\" 'n>"
"\"g2d.translate(10, 10);\" 'n>"
"\"g2d.draw(circle);\" 'n>" "\"g2d.fill(circle);\"
'n>" "\"}\" 'n> 'n>" "\"}\" 'n> 'n>"
"\"public \"" "(file-name-sans-extension
(file-name-nondirectory buffer-file-name))"
"\"() {\" 'n>" "\"super(\\\"\" (P \"Enter app
title: \") \"\\\");\" 'n>"
"\"setSize(300, 300);\" 'n>"
"\"addWindowListener(new WindowAdapter() {\" 'n>"
"\"public void windowClosing(WindowEvent e)
{System.exit(0);}\" 'n>"
"\"public void windowOpened(WindowEvent e) {}});\"
'n>" "\"setJMenuBar(createMenu());\" 'n>"
"\"getContentPane().add(new JScrollPane(new
Canvas()));\" 'n>" "\"}\" 'n>" "'n>"
"\"public static void main(String[] args) {\" 'n>"
"'n>"
"(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "\" f = new \""
"(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "\"();\" 'n>"
"\"f.show();\" 'n>" "'p 'n>" "\"}\" 'n> 'n>"
"\"protected JMenuBar createMenu() {\" 'n>"
"\"JMenuBar mb = new JMenuBar();\" 'n>" "\"JMenu
menu = new JMenu(\\\"File\\\");\" 'n>"
"\"menu.add(new AbstractAction(\\\"Exit\\\") {\"
'n>"
"\"public void actionPerformed(ActionEvent e) {\"
'n>" "\"System.exit(0);\" 'n>" "\"}\" 'n>"
"\"});\" 'n>" "\"mb.add(menu);\" 'n>" "\"return
mb;\" 'n>" "\"}\" 'n> 'n>" "\"} // \""
"(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "'n>")
jde-compile-option-nowarn nil
jde-run-java-vm-w "javaw"
jde-compile-option-encoding nil
jde-run-option-java-profile '(nil . "./java.prof")
jde-bug-jpda-directory "c:/apps/dev/jpda"
jde-read-compile-args nil
jde-run-java-vm "java"
jde-db-option-verbose '(nil nil nil)
jde-db-read-app-args nil
jde-run-option-heap-profile '(nil "./java.hprof" 5 20 "Allocation objects")
jde-gen-println '("'&" "\"System.out.println(\" (P \"Print out: \") \");\" 'n>")
jde-enable-abbrev-mode nil
jde-global-classpath nil
jde-gen-window-listener-template '("'& (P \"Window name: \")"
"\".addWindowListener(new WindowAdapter() {\" 'n>"
"\"public void windowActivated(WindowEvent e) {}\"
'n>"
"\"public void windowClosed(WindowEvent e) {}\"
'n>"
"\"public void windowClosing(WindowEvent e)
{System.exit(0);}\" 'n>"
"\"public void windowDeactivated(WindowEvent e)
{}\" 'n>"
"\"public void windowDeiconified(WindowEvent e)
{}\" 'n>"
"\"public void windowIconified(WindowEvent e) {}\"
'n>"
"\"public void windowOpened(WindowEvent e) {}});\"
'n>")
jde-run-working-directory ""
jde-gen-property-change-support '("'&" "\"protected PropertyChangeSupport pcs = new
PropertyChangeSupport(this);\" 'n>"
"\"/**\" 'n>\"* Adds a PropertyChangeListener to
the listener list.\" 'n>"
"\"* The listener is registered for all
properties.\" 'n>"
"\"*\" 'n> \"* @param listener The
PropertyChangeListener to be added\" 'n> \"*/\" 'n>"
"\"public void
addPropertyChangeListener(PropertyChangeListener listener) {\" 'n>"
"\"pcs.addPropertyChangeListener(listener);\" 'n>
\"}\" 'n> 'n>"
"\"/**\" 'n>\"* Removes a PropertyChangeListener
from the listener list.\" 'n>"
"\"* This removes a PropertyChangeListener that was
registered for all properties.\" 'n>"
"\"*\" 'n> \"* @param listener The
PropertyChangeListener to be removed\" 'n> \"*/\" 'n>"
"\"public void
removePropertyChangeListener(PropertyChangeListener listener) {\" 'n>"
"\"pcs.removePropertyChangeListener(listener);\"
'n> \"}\" 'n> 'n>"
"\"/**\" 'n>\"* Adds a PropertyChangeListener for a
specific property.\" 'n>"
"\"* The listener will be invoked only when a call
on firePropertyChange\" 'n>"
"\"* names that specific property.\" 'n>"
"\"*\" 'n> \"* @param propertyName The name of the
property to listen on\" 'n>"
"\"* @param listener The PropertyChangeListener to
be added\" 'n> \"*/\" 'n>"
"\"public void addPropertyChangeListener(String
propertyName,\" 'n>"
"\"PropertyChangeListener listener) {\" 'n>"
"\"pcs.addPropertyChangeListener(propertyName,
listener);\" 'n> \"}\" 'n> 'n>"
"\"/**\" 'n>\"* Removes a PropertyChangeListener
for a specific property.\" 'n>"
"\"*\" 'n> \"* @param propertyName The name of the
property that was listened on\" 'n>"
"\"* @param listener The PropertyChangeListener to
be removed\" 'n> \"*/\" 'n>"
"\"public void removePropertyChangeListener(String
propertyName,\" 'n>"
"\"PropertyChangeListener listener) {\" 'n>"
"\"pcs.removePropertyChangeListener(propertyName,
listener);\" 'n> \"}\" 'n> 'n>"
"\"/**\" 'n>\"* Reports a bound property update to
any registered listeners. \" 'n>"
"\"* No event is fired if old and new are equal and
non-null.\" 'n>"
"\"*\" 'n> \"* @param propertyName The programmatic
name of the property that was changed\" 'n>" "\"* @param oldValue The old value of the
property\" 'n>" "\"* @param newValue The new value of the property.\" 'n> \"*/\" 'n>"
"\"public void firePropertyChange(String propertyName, Object oldValue, Object
newValue) {\" 'n>" "\"pcs.firePropertyChange(propertyName, oldValue, newValue);\" 'n>
\"}\" 'n> 'n>" "\"/**\" 'n>\"* Reports a bound property update to any registered
listeners. \" 'n>" "\"* No event is fired if old and new are equal and non-null.\"
'n>" "\"* This is merely a convenience wrapper around the more general\" 'n>" "\"*
firePropertyChange method that takes Object values.\" 'n>" "\"* No event is fired if
old and new are equal and non-null.\" 'n>" "\"*\" 'n> \"* @param propertyName The
programmatic name of the property that was changed\" 'n>" "\"* @param oldValue The old
value of the property\" 'n>" "\"* @param newValue The new value of the property.\" 'n>
\"*/\" 'n>" "\"public void firePropertyChange(String propertyName, int oldValue, int
newValue) {\" 'n>" "\"pcs.firePropertyChange(propertyName, oldValue, newValue);\" 'n>
\"}\" 'n> 'n>" "\"/**\" 'n>\"* Reports a bound property update to any registered
listeners. \" 'n>" "\"* No event is fired if old and new are equal and non-null.\"
'n>" "\"* This is merely a convenience wrapper around the more general\" 'n>" "\"*
firePropertyChange method that takes Object values.\" 'n>" "\"* No event is fired if
old and new are equal and non-null.\" 'n>" "\"*\" 'n> \"* @param propertyName The
programmatic name of the property that was changed\" 'n>" "\"* @param oldValue The old
value of the property\" 'n>" "\"* @param newValue The new value of the property.\" 'n>
\"*/\" 'n>" "\"public void firePropertyChange(String propertyName, boolean oldValue,
boolean newValue) {\" 'n>" "\"pcs.firePropertyChange(propertyName, oldValue,
newValue);\" 'n> \"}\" 'n> 'n>" "\"/**\" 'n>\"* Fires an existing PropertyChangeEvent
to any registered listeners.\" 'n>" "\"* No event is fired if the given event's old
and new values are equal and non-null. \" 'n>" "\"*\" 'n> \"* @param evt The
PropertyChangeEvent object.\" 'n>\"*/\" 'n>" "\"public void
firePropertyChange(PropertyChangeEvent evt) {\" 'n>" "\"pcs.firePropertyChange(evt);\"
'n> \"}\" 'n> 'n>" "\"/**\" 'n>\"* Checks if there are any listeners for a specific
property.\" 'n>" "\"*\" 'n> \"* @param evt The PropertyChangeEvent object.\" 'n>" "\"*
@return <code>true</code>if there are one or more listeners for the given property\"
'n>" "\"*/\" 'n>" "\"public boolean hasListeners(String propertyName) {\" 'n>"
"\"return pcs.hasListeners(propertyName);\" 'n> \"}\" 'n> 'n>")
jde-db-marker-regexp "^Breakpoint hit: .*(\\([^$]*\\).*:\\([0-9]*\\))"
jde-gen-mouse-motion-listener-template '("'& (P \"Component name: \")"
"\".addMouseMotionListener(new
MouseMotionAdapter() {\" 'n>"
"\"public void mouseDragged(MouseEvent e)
{}\" 'n>"
"\"public void mouseMoved(MouseEvent e)
{}});\" 'n>")
jde-key-bindings '(("" . jde-compile) ("" . jde-run) ("" . jde-debug) (""
. jde-build)
("" . jde-run-menu-run-applet) ("" .
jde-db-menu-debug-applet) ("\n" . bsh)
("" . speedbar-frame-mode) ("" . jde-wiz-implement-interface)
("" . jde-wiz-find-and-import) ("" . jde-browse-jdk-doc)
("" . jde-save-project)
("\f" . jde-gen-println) ("" . jde-help-class))
jde-run-option-classpath nil
jde-compile-option-verbose-path nil
jde-db-debugger '("jdebug" . "Class")
jde-jdk-doc-url "http://www.javasoft.com/products/jdk/1.2/docs/index.html"
jde-compiler "javac"
jde-gen-class-buffer-template '("(funcall jde-gen-boilerplate-function) 'n" "\"/**\"
'n" "\" * \""
"(file-name-nondirectory buffer-file-name) 'n" "\"
*\" 'n" "\" *\" 'n"
"\" * Created: \" (current-time-string) 'n" "\" *\"
'n" "\" * @author \" (user-full-name) 'n"
"\" * @version\" 'n" "\" */\" 'n>" "'n>" "\"public
class \""
"(file-name-sans-extension (file-name-nondirectory
buffer-file-name))"
"\" \" (jde-gen-get-super-class) \" {\" 'n> 'n>"
"\"public \""
"(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "\"() {\" 'n>" "'p 'n>"
"\"}\" 'n>" "'n>" "\"} // \""
"(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "'n>")
jde-appletviewer-option-vm-args nil
jde-db-option-garbage-collection '(t t)
jde-use-font-lock t
jde-compile-option-bootclasspath nil
jde-make-program "make"
jde-run-option-vm-args nil
jde-compile-option-directory ""
jde-wiz-insert-excluded-packages-regexp "bsh.*"
jde-gen-console-buffer-template '("(funcall jde-gen-boilerplate-function) 'n"
"\"/**\" 'n" "\" * \""
"(file-name-nondirectory buffer-file-name) 'n" "\"
*\" 'n" "\" *\" 'n"
"\" * Created: \" (current-time-string) 'n" "\" *\"
'n" "\" * @author \" (user-full-name) 'n"
"\" * @version\" 'n" "\" */\" 'n>" "'n>" "\"public
class \""
"(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "\" {\" 'n> 'n>"
"\"public \"" "(file-name-sans-extension
(file-name-nondirectory buffer-file-name))"
"\"() {\" 'n>" "'n>" "\"}\" 'n>" "'n>" "\"public
static void main(String[] args) {\" 'n>"
"'p 'n>" "\"}\" 'n> 'n>" "\"} // \""
"(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "'n>")
jde-read-make-args nil
jde-gen-mouse-listener-template '("'& (P \"Component name: \")"
"\".addMouseListener(new MouseAdapter() {\" 'n>"
"\"public void mouseClicked(MouseEvent e) {}\" 'n>"
"\"public void mouseEntered(MouseEvent e) {}\" 'n>"
"\"public void mouseExited(MouseEvent e) {}\" 'n>"
"\"public void mousePressed(MouseEvent e) {}\" 'n>"
"\"public void mouseReleased(MouseEvent e) {}});\"
'n>")
jde-run-option-application-args '("DEFRULE_DEFCONSTR.OUT.CSV")
jde-bug-vm-executable '("javaw")
jde-db-set-initial-breakpoint t
jde-bug-debugger-command-timeout 10
jde-db-option-stack-size '((128 . "kilobytes") (400 . "kilobytes"))
jde-db-option-properties nil
jde-db-source-directories '("c:/backtest/")
jde-run-read-app-args nil
jde-gen-to-string-method-template '("'&" "\"public String toString() {\" 'n>"
"\"return super.toString();\" 'n>" "\"}\" 'n>")
jde-quote-classpath t
jde-build-use-make nil
jde-compile-option-classpath nil
jde-bug-jdk-directory "e:/jdk1.3/"
jde-gen-boilerplate-function 'jde-gen-create-buffer-boilerplate
jde-gen-entity-bean-template '("(jde-wiz-insert-imports-into-buffer (list
\"javax.ejb.*\"\n\"java.rmi.RemoteException\"))"
"(jde-wiz-update-implements-clause \"EntityBean\")"
"'> \"public void ejbActivate() throws RemoteException
{\"'n> \"}\"'n\n'n"
"'> \"public void ejbPassivate() throws
RemoteException {\"'n> \"}\"'n\n'n"
"'> \"public void ejbLoad() throws RemoteException
{\"'n>\"}\"'n 'n"
"'> \"public void ejbStore() throws RemoteException
{\"'n>\"}\"'n 'n"
"'> \"public void ejbRemove() throws RemoteException
{\"'n>\"}\"'n 'n"
"'> \"public void setEntityContext(EntityContext ctx)
throws\nRemoteException {\""
"'n>\"}\"'n 'n"
"'> \"public void unsetEntityContext() throws
RemoteException {\"'n>\n\"}\"'n> 'n")
jde-db-startup-commands nil
jde-compile-option-deprecation nil
jde-db-option-classpath nil
jde-run-mode-hook nil
jde-db-option-verify '(nil t)
jde-compile-option-extdirs nil
jde-gen-get-set-var-template '("'n>" "(P \"Variable type: \" type) \" \"" "(P
\"Variable name: \" name) \";\" 'n> 'n>"
"\"/**\" 'n>" "\"* Get the value of \" (s name) \".\"
'n>"
"\"* @return Value of \" (s name) \".\" 'n>" "\"*/\"
'n>"
"\"public \" (s type) \" get\" (jde-gen-init-cap
(jde-gen-lookup-named 'name))"
"\"() {return \" (s name) \";}\" 'n> 'n>" "\"/**\" 'n>"
"\"* Set the value of \" (s name) \".\" 'n>"
"\"* @param v Value to assign to \" (s name) \".\"
'n>" "\"*/\" 'n>"
"\"public void set\" (jde-gen-init-cap
(jde-gen-lookup-named 'name))"
"\"(\" (s type) \" v) {this.\" (s name) \" = v;}\"
'n>")
jde-bug-saved-breakpoints nil
jde-compile-option-sourcepath nil
jde-db-option-java-profile '(nil . "./java.prof")
jde-compile-option-depend-switch '("-Xdepend")
jde-run-applet-doc ""
jde-compile-option-vm-args nil
jde-run-option-garbage-collection '(t t)
jde-db-mode-hook nil
jde-db-option-heap-profile '(nil "./java.hprof" 5 20 "Allocation objects")
jde-db-read-vm-args nil
jde-bug-debug nil
jde-appletviewer-option-encoding ""
jde-bug-breakpoint-cursor-colors '("cyan" . "brown")
jde-compile-option-target '("1.1")
jde-run-option-heap-size '((1 . "megabytes") (16 . "megabytes"))
jde-db-option-vm-args nil
jde-run-application-class ""
jde-run-option-verbose '(nil nil nil)
jde-project-file-name "prj.el"
jde-compile-option-debug '("selected" (t nil nil))
jde-bug-jre-home ""
jde-run-applet-viewer ""
jde-entering-java-buffer-hooks '(jde-reload-project-file)
jde-run-read-vm-args nil
jde-help-docsets nil
jde-gen-inner-class-template '("'& \"class \" (P \"Class name: \" class)" "(P
\"Superclass: \" super t)"
"(let ((parent (jde-gen-lookup-named 'super)))" "(if
(not (string= parent \"\"))"
"(concat \" extends \" parent))) \" {\" 'n>"
"\"public \" (s class) \"() {\" 'n> \"}\" 'n> \"}\"
'n>")
jde-run-option-verify '(nil t)
jde-compile-option-optimize nil
jde-compile-option-depend nil
jde-gen-action-listener-template '("'& (P \"Component name: \")"
"\".addActionListener(new ActionListener() {\" 'n>"
"\"public void actionPerformed(ActionEvent e) {\"
'n>" "\"}});\" 'n>")
jde-compile-option-command-line-args "-g"
jde-gen-buffer-templates '(("Class" . jde-gen-class) ("Console" . jde-gen-console)
("Swing App" . jde-gen-jfc-app))
jde-run-option-stack-size '((128 . "kilobytes") (400 . "kilobytes"))
jde-run-option-properties nil
)
There was no JDEBug buffer
The contents of the .emacs file was
; Time-stamp: <2000-01-31 08:16:01 mdw>
; Thanks to all for your help & support.
; Special thanks to Charles Curley <[EMAIL PROTECTED]>
; whose http://w3.trib.com/~ccurley/emacs.html
; and http://w3.trib.com/~ccurley/emacs.init.html
; have been very helpful.
; I recommend them highly, particularly to *new* NT Emacs users.
;; BEGIN To Do
; 1999-09-13 11:10:59
; Rearrange .emacs for use on 3 systems:
; - home;
; - new work;
; - old work;
; NB - Currently set up for use on new work *only*!
;; END To Do
;; Begin MISC.
;; Time Stamp
;; Add time stamp capabilities. See time-stamp.el for doc.
(add-hook 'write-file-hooks 'time-stamp)
;; Insert Date & Time
;; Anthony Tsakiris <[EMAIL PROTECTED]> on gnu.emacs.help
(defun insert-date-and-time ()
"Insert the date and time into the current buffer."
(interactive)
(insert (format-time-string "%Y-%m-%d %H:%M:%S" (current-time))))
;; Strip Ctrl-M's
(add-hook 'comint-output-filter-functions 'shell-strip-ctrl-m nil t)
;; END MISC.
;; PRINTING SETUP
; BEGIN OLD PRINTING SETUP
; That has been superseded by successful installation of PrintFile.
; 1999-10-08 12:48:52
; ;; Begin setup for printing on Win32, Emacs 20.3.1
; ;; From Charles Curley <[EMAIL PROTECTED]>
; ;; http://w3.trib.com/~ccurley/emacs.html
; (if (and (>= emacs-major-version 20)
; (or (eq window-system 'w32) (eq window-system 'win32)))
; (progn (setq printer-name "//STL/Q_BACKOFFICE")
; (setq ps-printer-name "//STL/Q_BACKOFFICE"))
; ; (setq ps-printer-name "LPT3")
; )
; ;; END setup for printing on Win32, Emacs 20.3.1
; END OLD PRINTING SETUP
; BEGIN PARTIALLY SUCCESSFUL PRINTING SETUP
; (setq printer-name "//STL/Q_BACKOFFICE")
; (setq ps-printer-name "//STL/Q_BACKOFFICE")
; ; With these two lines only, I was able to print
; ; a) non-PostScript, w/ long lines truncated
; ; b) Postscript, w/ long lines wrapped, but
; ; with a header, and to the lower (legal size)
; ; paper tray.
; ; I would like more control over my print setup than this.
; ; END TEST 1 (Partially Successful)
; END PARTIALLY SUCCESSFUL PRINTING SETUP
; BEGIN SETUP FOR PRINTING VIA PRINTFILE
;; Credits:
;; 1999-10-05 06:04:09
;; Initially recommended in a post to NTEmacs list by:
;; John C. Polking (713) 527-4841 (Office)
;; Department of Mathematics (713) 527-4829 (Dept of Math)
;; Rice University (713) 737-6120 (FAX)
;; PO Box 1892 [EMAIL PROTECTED]
;; Houston, TX 77251 http://math.rice.edu/~polking
;;
;; Chuck Siska <[EMAIL PROTECTED]>
;; subsequently (1999-10-05 16:37) sent detailed setup instructions
;; for printfile to the NTEmacs list.
;;
;; Chris Searle [EMAIL PROTECTED]
;; was also kind enough to send his setup,
;; the great virture of which is its creation of a PrintFile menu.
;; Comments:
;; I follow CS's (most helpful) instructions - and
;; JCP's "plagiarize and modify method of programming."
;; The core of the code I have plagiarized, and am now modifying, is JCP's.
;; I have added to this CS's PrintFile menu.
;;
;; JCP writes:
;; I should apologize for the quality of the lisp.
;; I am not a lisp programmer. I mostly use the plagiarize
;; and modify method of programming. If anyone can improve on
;; the code, I would appreciate it.
;; This code has the nice feature that it works very well.
;; Even the basic routines are not mine. I apologize again
;; for not giving proper credit, but I do not remember whre I got them.
;;
;; JCP proceeded to clean his code up, and to post it
;; to the NTEmacs list (Wed 10/6/99 10:03 AM).
;;
;; I have downloaded (and installed) PrintFile from
;; http://hem1.passagen.se/ptlerup/prfile.html
;; Date: 1999-10-05
;; (NB - Enter this into software log)
;; BEGIN JCP's
;; Printing commands using PrintFile
;; This is, of course, plagiarized & modified as nec.
; The command line needed to print using PrintFile is
;
; d:\printfile\prfile32 /n:settings-name filename
;
; All of the code below is aimed at setting up and executing
; this command with a variety of settings and for both the buffer
; and a selected region. There are three elements of the command.
; Each must be treated separately and then the three are
; concatenated.
; First the basic print command, the first of the three elements.
(setq pr-command "c://Progra~1//printfile//prfile32.exe")
;; I needed to switch from back- to forward-slashes.
;; Use //Progra~1// rather than //Program Files//
; Next we have to define the available settings. These are set
; up and defined with these names in PrintFile itself. There are
; a total of three:
(setq backoffice-Port-settings '("/n:Backoffice-Portrait"))
(setq backoffice-Land1-settings '("/n:Backoffice-Landscape-1up"))
(setq backoffice-Land2-settings '("/n:Backoffice-Landscape-2up"))
; We give each its own name, and then define the default to be backoffice-Port.
(setq print-settings backoffice-Port-settings)
; Temporary file for postscript. This filename is the third
; element of the print command. We want the name of the file
; to be printed in the header.* This code implements that by
; ensuring that the temporary file has the same name.
;; * Or not, as the case may be. None of my PrintFile settings
;; print headers.
(defvar ps-print-temp-dir (if (equal (getenv "TEMP") nil)
"/tmp/"
(concat (getenv "TEMP") "//")))
; Main print command. Here we concatenate the three elements of
; the print command, execute it, and delete the temporary print file.
(defun print-buffer-name ()
"Get the name of the print buffer"
(interactive)
(setq nlist (split-string buffer-file-name "/"))
(setq l (length nlist))
(setq short-file-name (nth (- l 1) nlist))
(setq txt-lpr-buffer (concat ps-print-temp-dir short-file-name))
)
(defun print-buffer ()
"Print Buffer using Printfile."
(shell-command
(apply 'concat
(append
(list pr-command " ")
print-settings
(list " " txt-lpr-buffer)
)
)
)
(delete-file txt-lpr-buffer)
)
; We have six possible print commands. We have to set each
; up individually, but they have the same pattern.
; 1. We execute "print-buffer-name" to get a good name to
; put in the header.
; 2. We copy what is to printed to the temporary file.
; 3. We set "print-settings" to the correct name.
; 4. We print using "print-buffer".
; Notice that only 2. and 3. change from command to command.
(defun backoffice-Port-print-buffer ()
"Output buffer to Backoffice in portfolio orientation."
(interactive)
(print-buffer-name)
(write-region (point-min) (point-max) txt-lpr-buffer)
(setq print-settings backoffice-Port-settings)
(print-buffer)
)
(defun backoffice-Port-print-region ()
"Output region to Backoffice in portfolio orientation."
(interactive)
(print-buffer-name)
(write-region (point) (mark) txt-lpr-buffer)
(setq print-settings backoffice-Port-settings)
(print-buffer)
)
(defun backoffice-Land1-print-buffer ()
"Output buffer to Backoffice in portfolio orientation."
(interactive)
(print-buffer-name)
(write-region (point-min) (point-max) txt-lpr-buffer)
(setq print-settings backoffice-Land1-settings)
(print-buffer)
)
(defun backoffice-Land1-print-region ()
"Output region to Backoffice in portfolio orientation."
(interactive)
(print-buffer-name)
(write-region (point) (mark) txt-lpr-buffer)
(setq print-settings backoffice-Land1-settings)
(print-buffer)
)
(defun backoffice-Land2-print-buffer ()
"Output buffer to Backoffice in portfolio orientation."
(interactive)
(print-buffer-name)
(write-region (point-min) (point-max) txt-lpr-buffer)
(setq print-settings backoffice-Land2-settings)
(print-buffer)
)
(defun backoffice-Land2-print-region ()
"Output region to Backoffice in portfolio orientation."
(interactive)
(print-buffer-name)
(write-region (point) (mark) txt-lpr-buffer)
(setq print-settings backoffice-Land2-settings)
(print-buffer)
)
; Menu and key settings. Notice these appear in the menu in
; the reverse order that they appear here. So we put the most
; commonly used items last.
(define-key menu-bar-tools-menu [backoffice-Land2-print-region]
'("Print Region to Backoffice in Landscape Orientation (2-up)" .
backoffice-Land2-print-region))
(define-key menu-bar-tools-menu [backoffice-Land2-print-buffer]
'("Print Buffer to Backoffice in Landscape Orientation (2-up)" .
backoffice-Land2-print-buffer))
(define-key menu-bar-tools-menu [backoffice-Land1-print-region]
'("Print Region to Backoffice in Landscape Orientation (1-up)" .
backoffice-Land1-print-region))
(define-key menu-bar-tools-menu [backoffice-Land1-print-buffer]
'("Print Buffer to Backoffice in Landscape Orientation (1-up)" .
backoffice-Land1-print-buffer))
(define-key global-map "\C-clp" 'backoffice-Land1-print-buffer)
(define-key menu-bar-tools-menu [backoffice-Port-print-region]
'("Print Region to Backoffice in Portrait Orientation" .
backoffice-Port-print-region))
(define-key menu-bar-tools-menu [backoffice-Port-print-buffer]
'("Print Buffer to Backoffice in Portrait Orientation" .
backoffice-Port-print-buffer))
(define-key global-map "\C-cp" 'backoffice-Port-print-buffer)
;; END JCP's
;; Printing commands using PrintFile
;; BEGIN Chuck Siska's PrintFile Setup
;; I've also defined a function to let emacs print the file
;; associated with a buffer using this printer setting. this
;; function first attempts to save the buffer and then shells to
;; bash with the concatenated printfile command, the printfile
;; settings, and the buffer's file name.
(defun cs-print-buffer-file-backoffice-a ()
"Print current buffer's file to Backoffice."
(interactive)
(save-buffer 16) ; do it with backup.
(shell-command
; Consider changing " /n:backoffice " below to ''
; (concat pr-command " /n:backoffice " buffer-file-name)))
; Done (below) - but not tested
(concat pr-command " " print-settings " " buffer-file-name)))
;; I've also hooked up this function to the same key sequence as
;; John Polking's hp-print-buffer command, "C-c" followed by "p":
;(define-key global-map [?\C-c ?p] 'cs-print-buffer-file-backoffice-a)
;; to print, i just click in a buffer, type "C-c" and "p", up pops
;; the printfile dialog and immediately on top of it up pops the
;; printer dialog for LEX93 (which you can get rid of if you uncheck
;; "Show printer selection dialog" mentioned above). then i click
;; ok and i get a hardcopy. if you do uncheck "Show..." then no
;; further click will be needed.
;; END Chuck Siska's PrintFile Setup
;; BEGIN CS'S SETUP
;;; If I had to do it all over again, I'd define print-buffer to take a settings arg,
;;; as per CS's SETUP below, but what I have now works, so I am not going to fiddle w/
it.
;;; I do, however, intend to implement his menu code.
; ;; Function to print the buffer. Takes a string as a parameter, this should
; ;; be the settings entry used in PrintFile (see menu definition below)
; ;;
; (defun print-buffer (print-settings)
; "Print buffer using passed printer."
; (interactive)
; (defvar nlist (split-string buffer-file-name "/"))
; (defvar l (length nlist))
; (setq short-file-name (nth (- l 1) nlist))
; (write-region (point-min) (point-max) (concat ps-print-temp-dir short-file-name))
; (shell-command
; (apply 'concat
; (append
; (list pr-command " ")
; (list "/n:" print-settings)
; (list " " (concat ps-print-temp-dir-bash short-file-name)))))
; (delete-file (concat ps-print-temp-dir short-file-name)))
;; Setup menu for printers.
;; This gives a top level menu called Printers on all files which use the
;; global keymap
;;
;; Currently
;; Printers
;; |
;; |-ebplepr02
;; | |
;; | |-1-up
;; | |-2-up
;; | |-4-up
;; |
;; |-ebplepr17
;; |
;; |-1-up
;; |-2-up
;; |-4-up
;;
;; This relies on 6 printfile settings, pr02, pr022up, pr024up, pr17, pr172up,
;; pr174up
;;
; (defvar printfiles-menu)
; (condition-case nil
; (progn
; (require 'easymenu)
; (easy-menu-define printfiles-menu
; global-map
; "PrintFile Menu"
; '("Printers"
; ("ebplepr02"
; ["1-up" (print-buffer "PR02") t]
; ["2-up" (print-buffer "PR022UP") t]
; ["4-up" (print-buffer "PR024UP") t])
; ("ebplepr17"
; ["1-up" (print-buffer "PR17") t]
; ["2-up" (print-buffer "PR172UP") t]
; ["4-up" (print-buffer "PR174UP")
t])))))
; (defun backoffice-Land2-print-region ()
; (defun backoffice-Land2-print-buffer ()
; (defun backoffice-Land1-print-region ()
; (defun backoffice-Land1-print-buffer ()
; (defun backoffice-Port-print-region ()
; (defun backoffice-Port-print-buffer ()
;; END CS'S SETUP
;; BEGIN Excerpt from PrintFile FAQ
;; NB - PrintFile ignores changes made in Windows Printer > Properties Dialog!
; Q: Why does PrintFile print my PostScript file (in A4 size, using upper tray, etc.)
;; [*landscape*...]
; when I have selected something else in the Properties dialog?
; A: PrintFile normally just sends a PostScript file as it is directly to the printer.
; The standard Windows Printer dialog is just there to let you select which printer
; to use and the number of copies to print, all other options are ignored.
Therefore
; in version 2.0 the Options button has been disabled when printing PostScript
files.
; The only possible way to select printer specific options is to define a
PostScript
; prolog file in the PostScript Settings dialog. However, starting in version 2.1
it
; is possible to enable the printer header to be included in the output. In this
case
; the Options button is enabled and the selected options will be present in the
driver
; header. Please note that this is not guaranteed to work as the driver header
might
; conflict with the contents of the PostScript file.
;; END Excerpt from PrintFile FAQ
;; Questions
;; Q: How to print different faces?
;; A: ... {Send e-mail to someone guy who sounded as if he knew how to do this?)
; END SETUP FOR PRINTING VIA PRINTFILE
;; END PRINTING SETUP
;; JDE Stuff
;; Paul Kinnucan (http://sunsite.auc.dk/jde/_emacs_jde)
; This .emacs file illustrates the minimal setup
; required to run the JDE.
; Update the Emacs load-path to include the path to
; the JDE....
(setq load-path
(nconc
'(
"c:/apps/dev/emacs/site-lisp/jde/2.1.6beta14/lisp"
;; The following removed as per
c:/apps/dev/emacs/site-lisp/jde/2.1.6beta9/ReleaseNotes.txt
;; "c:/apps/dev/emacs/site-lisp/eieio/eieio-0.12"
; Add paths to other add-on packages here.
)
load-path))
; Tell Emacs to load the entire JDE package at startup (only once).
(require 'jde)
; Sets the basic indentation for Java source files
; to two spaces.
(defun my-jde-mode-hook ()
(setq c-basic-offset 2))
(add-hook 'jde-mode-hook 'my-jde-mode-hook)
;; Bash Stuff
;; (This is "JDE Stuff" Cont'd)
; Include the following only if you want to run
; bash as your shell.
;; Setup Emacs to run bash as its primary shell.
(setq binary-process-input t)
(setq shell-file-name "bash")
(setq explicit-shell-file-name shell-file-name)
(setenv "SHELL" shell-file-name)
(setq explicit-sh-args '("-login" "-i"))
(setq w32-quote-process-args ?\") ;; Use Cygnus quoting rules.
; END JDE Stuff
;; This doesn't seem to make a difference, but....
;; In http://sourceware.cygnus.com/cygwin/faq/
;; Under "Why can't I run bash as a shell under NT Emacs?"
;; They say:
; Place the following code in your startup file and try again:
; Begin
(load "comint")
(fset 'original-comint-exec-1 (symbol-function 'comint-exec-1))
(defun comint-exec-1 (name buffer command switches)
(let ((binary-process-input t)
(binary-process-output nil))
(original-comint-exec-1 name buffer command switches)))
; BEGIN Alternate Bash Setup
;; Chuck Siska <[EMAIL PROTECTED]>
;; in detailed setup instructions
;; for printfile, posted to the NTEmacs list on
;; 1999-10-05 16:37, says:
; - i'm using bash as my shell (cygwin beta v20.1)
; - the shell setup for emacs is verbatim from the emacs faq bash
; (v20) entry as follows -- you can also find it at
; http://www.cs.washington.edu/homes/voelker/ntemacs.html#shell
; (defun my-shell-setup ()
; "For bash (cygwin 18) under Emacs 20"
; (setq comint-scroll-show-maximum-output 'this)
; (setq comint-completion-addsuffix t)
; ;; (setq comint-process-echoes t) ;; reported that this is no longer needed
; (setq comint-eol-on-send t)
; (setq w32-quote-process-args ?\")
; (make-variable-buffer-local 'comint-completion-addsuffix))
; (setq shell-mode-hook 'my-shell-setup)
; (setq process-coding-system-alist (cons '("bash" . raw-text-unix)
; process-coding-system-alist))
;; NB - I will leave well enough alone...
;; until it is not "well enough."
; END Alternate Bash Setup
;; END Bash Stuff
;; Browser Stuff
;; THIS IS NO LONGER NEC. TEST W/ IT COMMENTED OUT, THEN REMOVE.
; ; Configure Emacs to use the default browser on your system
; ; to display the JDE documentation.
; (defvar shell-execute-helper "shelex.exe")
; (defun shell-execute-url (url &optional new-window)
; "Invoke the shell-execute-helper program to call ShellExecute and launch
; or re-direct a web browser on the specified url."
; (interactive "sURL: ")
; (call-process shell-execute-helper nil nil nil url))
; (setq browse-url-browser-function 'shell-execute-url)
; ;; http://www.cs.washington.edu/homes/voelker/ntemacs.html#browse-url
; ; To "make sure that [shelex.exe] is in your exec-path,"
; ; set Emacs' exec-path.
; ;; (c.f. http://www.cs.washington.edu/homes/voelker/ntemacs.html#ange-ftp)
; ;; 1999-12-28 10:44:18 - Updated from 20.3.1 to 20.5, but this doesn't seem to make
a diff.
; ;; It worked previously. Take it out?...
; (setq exec-path
; (cons
; (expand-file-name "c:/apps/dev/emacs/20.5/bin")
; exec-path))
;; END Browser Stuff
;; jde-cflow.el
;; Barney Dalton <[EMAIL PROTECTED]>
;; Twist my arm http://telerobot.mech.uwa.edu.au
;; contributed the following to the JDE listserv
;; This adds various coding conventions to the JDE.
;; In particular, it expands 'if,' 'for,' etc....
;; (load "jde-cflow")
;; END jde-cflow.el
;abbrev mode stuff
(defun turn-on-abbrev-mode ()
(abbrev-mode 1)
)
(add-hook 'find-file-hooks 'turn-on-abbrev-mode)
; you need the second bit to turn on abbrev mode
; (the above code will turn it on for all files)
; to get dynamic expansion of the templates to work
; without pressing any extra keys - it can get annoying though,
; as there are abbrevs such as 'throw' -> 'throws'
; defined in the jde itself - you may want to redefine
; some of these.
; you can do M-x list-abbrevs to see what's automatically
; defined in the jde
;; Generated by JDE Customization
(custom-set-variables
'(jde-compile-option-command-line-args "-g")
'(jde-db-source-directories (quote ("c:/backtest/")))
'(jde-run-option-application-args (quote ("DEFRULE_DEFCONSTR.OUT.CSV")))
'(jde-jdk-doc-url "http://www.javasoft.com/products/jdk/1.2/docs/index.html")
'(jde-db-debugger (quote ("jdebug" . "Class")))
'(jde-bug-jpda-directory "c:/apps/dev/jpda")
'(jde-db-option-application-args (quote ("rules=ruleTemplate:constrTemplate
cusipFile=d:/testCUSIP"))))
(custom-set-faces)
;; END JDE Stuff
;; FONT STUFF
;; NB - M-x list-colors-display for full list of colors!
;; Hojat Salehi <[EMAIL PROTECTED]>
;; The following is based on Hojat Salehi's .emacs file.
(setq default-frame-alist
'((width . 130) (height . 52)
(font . "-*-Courier New-normal-r-*-*-12-*-*-*-c-*-*-ansi-")))
(cond ((fboundp 'global-font-lock-mode)
;; Turn on font-lock in all modes that support it
(global-font-lock-mode t)
;; Maximum colors
(setq font-lock-maximum-decoration t)))
(cond ((fboundp 'global-font-lock-mode)
;; Customize face attributes
(setq font-lock-face-attributes
;; Symbol-for-Face Foreground Background Bold Italic Underline
'((font-lock-comment-face "DarkGreen")
(font-lock-string-face "Sienna")
(font-lock-keyword-face "RoyalBlue")
(font-lock-function-name-face "Blue")
(font-lock-variable-name-face "Indian Red")
(font-lock-type-face "Black")
(font-lock-reference-face "Purple")
))
;; BEGIN MDW Additions (from NTEmacs homepage)
;; This does not work because face is still black (on black)!
(set-background-color "Black")
(set-foreground-color "Gold")
(set-face-foreground 'modeline "Firebrick")
(set-cursor-color "Purple")
;; END MDW Additions
;; Load the font-lock package.
(require 'font-lock)
;; Maximum colors
(setq font-lock-maximum-decoration t)
;; Turn on font-lock in all modes that support it
(global-font-lock-mode t)))
(require 'paren)
(setq visible-bell t)
;; END Font Stuff
(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)
=====end inserted .emacs file
-----Original Message-----
From: Paul Kinnucan <[EMAIL PROTECTED]>
Sent: Monday, January 31, 2000 7:53 AM
To: "Beljouani Christophe S" <[EMAIL PROTECTED]>; Emacs Java
Development Kit <[EMAIL PROTECTED]>
Subject: Re: Step into problem
At 11:24 AM 1/31/00 +0100, Beljouani, Christophe S wrote:
>Hi,
>
>I want to debug an application with jde 2.1.6beta15 xemacs 21.1 NT 4. I can
>launch the debugging with the JDE->Debug App menu item. I can also do
>JDB->next line, I see the current line progressing in xemacs. When I do
>JDB->step line, the debugger output show effectively that I stepped into
>another class but this class source code is not displayed by xemacs. The Db
>Source Directories contain a directory that contain all directories with
>source code. Is there a way that xemacs load appropriate source code
>automatically when stepping in a line of code ?
>
You must have set jde-db-source-directories incorrectly.
- Paul
