diff options
Diffstat (limited to 'lisp/org/ob-java.el')
| -rw-r--r-- | lisp/org/ob-java.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/org/ob-java.el b/lisp/org/ob-java.el index 4b3d454898b..f5edc6d53b5 100644 --- a/lisp/org/ob-java.el +++ b/lisp/org/ob-java.el | |||
| @@ -58,6 +58,7 @@ parameters may be used, like javac -verbose" | |||
| 58 | (src-file (concat classname ".java")) | 58 | (src-file (concat classname ".java")) |
| 59 | (cmpflag (or (cdr (assq :cmpflag params)) "")) | 59 | (cmpflag (or (cdr (assq :cmpflag params)) "")) |
| 60 | (cmdline (or (cdr (assq :cmdline params)) "")) | 60 | (cmdline (or (cdr (assq :cmdline params)) "")) |
| 61 | (cmdargs (or (cdr (assq :cmdargs params)) "")) | ||
| 61 | (full-body (org-babel-expand-body:generic body params))) | 62 | (full-body (org-babel-expand-body:generic body params))) |
| 62 | (with-temp-file src-file (insert full-body)) | 63 | (with-temp-file src-file (insert full-body)) |
| 63 | (org-babel-eval | 64 | (org-babel-eval |
| @@ -66,10 +67,10 @@ parameters may be used, like javac -verbose" | |||
| 66 | (unless (or (not packagename) (file-exists-p packagename)) | 67 | (unless (or (not packagename) (file-exists-p packagename)) |
| 67 | (make-directory packagename 'parents)) | 68 | (make-directory packagename 'parents)) |
| 68 | (let ((results (org-babel-eval (concat org-babel-java-command | 69 | (let ((results (org-babel-eval (concat org-babel-java-command |
| 69 | " " cmdline " " classname) ""))) | 70 | " " cmdline " " classname " " cmdargs) ""))) |
| 70 | (org-babel-reassemble-table | 71 | (org-babel-reassemble-table |
| 71 | (org-babel-result-cond (cdr (assq :result-params params)) | 72 | (org-babel-result-cond (cdr (assq :result-params params)) |
| 72 | (org-babel-read results) | 73 | (org-babel-read results t) |
| 73 | (let ((tmp-file (org-babel-temp-file "c-"))) | 74 | (let ((tmp-file (org-babel-temp-file "c-"))) |
| 74 | (with-temp-file tmp-file (insert results)) | 75 | (with-temp-file tmp-file (insert results)) |
| 75 | (org-babel-import-elisp-from-file tmp-file))) | 76 | (org-babel-import-elisp-from-file tmp-file))) |
| @@ -80,6 +81,4 @@ parameters may be used, like javac -verbose" | |||
| 80 | 81 | ||
| 81 | (provide 'ob-java) | 82 | (provide 'ob-java) |
| 82 | 83 | ||
| 83 | |||
| 84 | |||
| 85 | ;;; ob-java.el ends here | 84 | ;;; ob-java.el ends here |