forked from mirrors/org-mode
ob-java: Add header argument to pass command line args
* lisp/ob-java.el (org-babel-execute:java): Handle new header argument `:cmdargs` and pass its value as the last element in call to java.
This commit is contained in:
parent
5fd3dabe91
commit
ac939125a4
|
@ -24,6 +24,12 @@ for all headlines.
|
||||||
*** New option to group captured datetime entries by month
|
*** New option to group captured datetime entries by month
|
||||||
A new `:tree-type month' option was added to org-capture-templates to
|
A new `:tree-type month' option was added to org-capture-templates to
|
||||||
group new datetime entries by month.
|
group new datetime entries by month.
|
||||||
|
|
||||||
|
*** New header argument to pass Java command line arguments
|
||||||
|
|
||||||
|
Babel Java blocks recognize header argument =:cmdargs= and pass its
|
||||||
|
value in call to =java=.
|
||||||
|
|
||||||
** New functions
|
** New functions
|
||||||
*** ~org-columns-toggle-or-columns-quit~
|
*** ~org-columns-toggle-or-columns-quit~
|
||||||
=<C-c C-c>= bound to ~org-columns-toggle-or-columns-quit~ replaces the
|
=<C-c C-c>= bound to ~org-columns-toggle-or-columns-quit~ replaces the
|
||||||
|
|
|
@ -58,6 +58,7 @@ parameters may be used, like javac -verbose"
|
||||||
(src-file (concat classname ".java"))
|
(src-file (concat classname ".java"))
|
||||||
(cmpflag (or (cdr (assq :cmpflag params)) ""))
|
(cmpflag (or (cdr (assq :cmpflag params)) ""))
|
||||||
(cmdline (or (cdr (assq :cmdline params)) ""))
|
(cmdline (or (cdr (assq :cmdline params)) ""))
|
||||||
|
(cmdargs (or (cdr (assq :cmdargs params)) ""))
|
||||||
(full-body (org-babel-expand-body:generic body params)))
|
(full-body (org-babel-expand-body:generic body params)))
|
||||||
(with-temp-file src-file (insert full-body))
|
(with-temp-file src-file (insert full-body))
|
||||||
(org-babel-eval
|
(org-babel-eval
|
||||||
|
@ -66,7 +67,7 @@ parameters may be used, like javac -verbose"
|
||||||
(unless (or (not packagename) (file-exists-p packagename))
|
(unless (or (not packagename) (file-exists-p packagename))
|
||||||
(make-directory packagename 'parents))
|
(make-directory packagename 'parents))
|
||||||
(let ((results (org-babel-eval (concat org-babel-java-command
|
(let ((results (org-babel-eval (concat org-babel-java-command
|
||||||
" " cmdline " " classname) "")))
|
" " cmdline " " classname " " cmdargs) "")))
|
||||||
(org-babel-reassemble-table
|
(org-babel-reassemble-table
|
||||||
(org-babel-result-cond (cdr (assq :result-params params))
|
(org-babel-result-cond (cdr (assq :result-params params))
|
||||||
(org-babel-read results)
|
(org-babel-read results)
|
||||||
|
|
Loading…
Reference in New Issue