org-pcomplete: Fix completion for block boundaries
[org-mode.git] / lisp / ob-java.el
blobc0e9a5384cea59695878e9745077ee88eb48f416
1 ;;; ob-java.el --- org-babel functions for java evaluation
3 ;; Copyright (C) 2011-2013 Free Software Foundation, Inc.
5 ;; Author: Eric Schulte
6 ;; Keywords: literate programming, reproducible research
7 ;; Homepage: http://orgmode.org
9 ;; This file is part of GNU Emacs.
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation, either version 3 of the License, or
14 ;; (at your option) any later version.
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
24 ;;; Commentary:
26 ;; Currently this only supports the external compilation and execution
27 ;; of java code blocks (i.e., no session support).
29 ;;; Code:
30 (require 'ob)
32 (defvar org-babel-tangle-lang-exts)
33 (add-to-list 'org-babel-tangle-lang-exts '("java" . "java"))
35 (defvar org-babel-java-command "java"
36 "Name of the java command.")
38 (defvar org-babel-java-compiler "javac"
39 "Name of the java compiler.")
41 (defun org-babel-execute:java (body params)
42 (let* ((classname (or (cdr (assoc :classname params))
43 (error
44 "Can't compile a java block without a classname")))
45 (packagename (file-name-directory classname))
46 (src-file (concat classname ".java"))
47 (cmpflag (or (cdr (assoc :cmpflag params)) ""))
48 (cmdline (or (cdr (assoc :cmdline params)) ""))
49 (full-body (org-babel-expand-body:generic body params))
50 (compile
51 (progn (with-temp-file src-file (insert full-body))
52 (org-babel-eval
53 (concat org-babel-java-compiler
54 " " cmpflag " " src-file) ""))))
55 ;; created package-name directories if missing
56 (unless (or (not packagename) (file-exists-p packagename))
57 (make-directory packagename 'parents))
58 ((lambda (results)
59 (org-babel-reassemble-table
60 (org-babel-result-cond (cdr (assoc :result-params params))
61 (org-babel-read results)
62 (let ((tmp-file (org-babel-temp-file "c-")))
63 (with-temp-file tmp-file (insert results))
64 (org-babel-import-elisp-from-file tmp-file)))
65 (org-babel-pick-name
66 (cdr (assoc :colname-names params)) (cdr (assoc :colnames params)))
67 (org-babel-pick-name
68 (cdr (assoc :rowname-names params)) (cdr (assoc :rownames params)))))
69 (org-babel-eval (concat org-babel-java-command
70 " " cmdline " " classname) ""))))
72 (provide 'ob-java)
76 ;;; ob-java.el ends here