Re: jdee and jdibug
[email protected] (Przemysław Wojnowski) Fri, 11 Jun 2010 22:36:03 +0200
| Newsgroups | gmane.emacs.jdee.devel |
|---|---|
| Message-ID | <[email protected]> |
[email protected] (Przemysław Wojnowski) writes: > Thanks for implementing it. > > I have version from repository, had a few minutes to play with it: > 1. It would be nice if jdibug-run-main-class could be calculated in > run-time when not set and use class from current buffer in such case. > > 2. IMHO Jdibug could build classpath like jde-db-classpath-arg does. > I've implemented it, so that JDibug can start from current JDEE buffer and uses it's class if jdibug-run-main-class is not set. Regards, Przemek ------------------------------------------------------------------------------ ThinkGeek and WIRED's GeekDad team up for the Ultimate GeekDad Father's Day Giveaway. ONE MASSIVE PRIZE to the lucky parental unit. See the prize list and enter to win: http://p.sf.net/sfu/thinkgeek-promo _______________________________________________ jdee-devel mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/jdee-devel
jdibug-run.patch
(text/x-diff, 1.9 KB)
Index: jdibug-run.el =================================================================== --- jdibug-run.el (revision 411) +++ jdibug-run.el (working copy) @@ -69,15 +69,14 @@ and the application arguments are `jdibug-run-application-args'" (interactive) - (unless (stringp jdibug-run-main-class) - (error "jdibug-run-main-class must be a string")) - - (let* ((name (concat "*" jdibug-run-main-class "*")) + (let* ((main-class (jdibug-run-get-main-class)) + (name (concat "*" main-class "*")) (buffer (get-buffer-create name)) (args (append (jdibug-run-server-args) - jdibug-run-jvm-args - (list jdibug-run-main-class) + (jdibug-run-get-jvm-args) + (list main-class) jdibug-run-application-args))) + ;; Remove any old output from the buffer (pop-to-buffer buffer) (erase-buffer) @@ -118,4 +117,34 @@ (format "-Xrunjdwp:transport=dt_socket,address=%s,server=y,suspend=y" port)))) +(defun jdibug-run-get-main-class () + "Returns main class to run, which is `jdibug-run-main-class' or one from +current buffer." + (if (and (stringp jdibug-run-main-class) + (not (string= "" jdibug-run-main-class))) + jdibug-run-main-class + (jde-parse-get-buffer-class))) + +(defun jdibug-run-get-jvm-args () + "Returns args which will be passed to JVM." + (jdibug-run-classpath-arg)) + +;; copy of jde-db-classpath-arg method +(defun jdibug-run-classpath-arg () + "Generate the -classpath command line argument for jdibug." + + ;; Set the classpath option. Use the local + ;; classpath, if set; otherwise, the global + ;; classpath. + (let ((classpath + (if jde-db-option-classpath + jde-db-option-classpath + jde-global-classpath)) + (symbol + (if jde-db-option-classpath + 'jde-db-option-classpath + 'jde-global-classpath))) + (if classpath + (list "-classpath" (jde-build-classpath classpath symbol))))) + (provide 'jdibug-run)