mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 22:47:56 +00:00
Code Releases Activity

ob-java: allow cmdline flags during compilation and evaluation

Browse source 
* lisp/ob-java.el (org-babel-execute:java): Allow cmdline flags during
  compilation and evaluation.
This commit is contained in:
Eric Schulte 2011-07-28 18:01:01 -06:00
parent c88c76b551
commit 2a77c49454
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ob-java.el
View file

@ -46,11 +46,14 @@
"Can't compile a java block without a classname")))
(packagename (file-name-directory classname))
(src-file (concat classname ".java"))
(cmpflag (or (cdr (assoc :cmpflag params)) ""))
(cmdline (or (cdr (assoc :cmdline params)) ""))
(full-body (org-babel-expand-body:generic body params))
(compile
(progn (with-temp-file src-file (insert full-body))
(org-babel-eval
(concat org-babel-java-compiler " " src-file) ""))))
(concat org-babel-java-compiler
" " cmpflag " " src-file) ""))))
;; created package-name directories if missing
(unless (or (not packagename) (file-exists-p packagename))
(make-directory packagename 'parents))
@ -65,7 +68,8 @@
(cdr (assoc :colname-names params)) (cdr (assoc :colnames params)))
(org-babel-pick-name
(cdr (assoc :rowname-names params)) (cdr (assoc :rownames params)))))
(org-babel-eval (concat org-babel-java-command " " classname) ""))))
(org-babel-eval (concat org-babel-java-command
" " cmdline " " classname) ""))))
(provide 'ob-java)