summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2011-07-28 18:01:01 -0600
committerEric Schulte <schulte.eric@gmail.com>2011-07-28 18:01:01 -0600
commit2a77c494541ef6dd398a6ce9947f1f4c6be3f9c7 (patch)
tree35ce42cc5c184c02dd6f7bf4c962f07a831a2775
parentc88c76b5519a27b3747344668d387f8561bf5fda (diff)
downloadorg-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.el8
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)