浏览代码

ob-java: allow cmdline flags during compilation and evaluation

* lisp/ob-java.el (org-babel-execute:java): Allow cmdline flags during
  compilation and evaluation.
Eric Schulte 13 年之前
父节点
当前提交
2a77c49454
共有 1 个文件被更改,包括 6 次插入2 次删除
  1. 6 2
      lisp/ob-java.el

+ 6 - 2
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)