diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2011-07-28 18:01:01 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2011-07-28 18:01:01 -0600 |
commit | 2a77c494541ef6dd398a6ce9947f1f4c6be3f9c7 (patch) | |
tree | 35ce42cc5c184c02dd6f7bf4c962f07a831a2775 | |
parent | c88c76b5519a27b3747344668d387f8561bf5fda (diff) | |
download | org-mode-2a77c494541ef6dd398a6ce9947f1f4c6be3f9c7.tar.gz |
ob-java: allow cmdline flags during compilation and evaluation
* lisp/ob-java.el (org-babel-execute:java): Allow cmdline flags during
compilation and evaluation.
-rw-r--r-- | lisp/ob-java.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ob-java.el b/lisp/ob-java.el index 3f349fe..d00e5c4 100644 --- a/lisp/ob-java.el +++ b/lisp/ob-java.el @@ -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) |