From: Miro Bezjak <bezjak.miro@gmail.com>
To: Eric Schulte <schulte.eric@gmail.com>
Cc: emacs-orgmode@gnu.org, "Thomas S. Dye" <tsd@tsdye.com>
Subject: Re: Contribution: ob-groovy.el
Date: Sun, 29 Dec 2013 00:47:51 +0100 [thread overview]
Message-ID: <CAMJqDfMsntkoLiGBjHo0+2udkQrdGU1=gSgBAyAYJwU2_875ww@mail.gmail.com> (raw)
In-Reply-To: <87eh4wa9j2.fsf@gmail.com>
[-- Attachment #1.1: Type: text/plain, Size: 814 bytes --]
Sure - attached.
Kind Regards,
Miro Bezjak
On Sat, Dec 28, 2013 at 5:12 PM, Eric Schulte <schulte.eric@gmail.com>wrote:
> Hi Miro, Thanks for this contribution!
>
> tsd@tsdye.com (Thomas S. Dye) writes:
>
> > Aloha Miro,
> >
> > Miro Bezjak <bezjak.miro@gmail.com> writes:
> >
> >> can I do all those tasks over the couple of days - when I have more
> time?
> >
> > Yes, of course. The FSF papers will probably take several weeks to
> > complete, if you haven't already done so.
> >
>
> The FSF papers will be required before we can add this to Org-mode
> proper. In the mean time I'd be happy to add this to contrib. Could
> you send a patch adding ob-groovy.el to contrib/lisp/ formatted with
> "git format-patch".
>
> Thanks again,
>
> --
> Eric Schulte
> https://cs.unm.edu/~eschulte
> PGP: 0x614CA05D
>
[-- Attachment #1.2: Type: text/html, Size: 1502 bytes --]
[-- Attachment #2: 0001-contrib-lisp-ob-groovy.el-Add-org-babel-functions-fo.patch --]
[-- Type: text/x-patch, Size: 5070 bytes --]
From 6e9cc90e9488257b547ae659676875e171a12820 Mon Sep 17 00:00:00 2001
From: Miro Bezjak <bezjak.miro@gmail.com>
Date: Sun, 29 Dec 2013 00:39:05 +0100
Subject: [PATCH] contrib/lisp/ob-groovy.el: Add org-babel functions for groovy
evaluation
---
contrib/lisp/ob-groovy.el | 120 ++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 120 insertions(+)
create mode 100644 contrib/lisp/ob-groovy.el
diff --git a/contrib/lisp/ob-groovy.el b/contrib/lisp/ob-groovy.el
new file mode 100644
index 0000000..9bb17e6
--- /dev/null
+++ b/contrib/lisp/ob-groovy.el
@@ -0,0 +1,120 @@
+;;; ob-groovy.el --- org-babel functions for Groovy evaluation
+
+;; Copyright (C) 2013-2014 Free Software Foundation, Inc.
+
+;; Author: Miro Bezjak
+;; Keywords: literate programming, reproducible research
+;; Homepage: http://orgmode.org
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;; Currently only supports the external execution. No session support yet.
+
+;;; Requirements:
+;; - Groovy language :: http://groovy.codehaus.org
+;; - Groovy major mode :: Can be installed from MELPA or
+;; https://github.com/russel/Emacs-Groovy-Mode
+
+;;; Code:
+(require 'ob)
+(eval-when-compile (require 'cl))
+
+(defvar org-babel-tangle-lang-exts) ;; Autoloaded
+(add-to-list 'org-babel-tangle-lang-exts '("groovy" . "groovy"))
+(defvar org-babel-default-header-args:groovy '())
+(defvar org-babel-groovy-command "groovy"
+ "Name of the command to use for executing Groovy code.")
+
+(defun org-babel-execute:groovy (body params)
+ "Execute a block of Groovy code with org-babel. This function is
+called by `org-babel-execute-src-block'"
+ (message "executing Groovy source code block")
+ (let* ((processed-params (org-babel-process-params params))
+ (session (org-babel-groovy-initiate-session (nth 0 processed-params)))
+ (vars (nth 1 processed-params))
+ (result-params (nth 2 processed-params))
+ (result-type (cdr (assoc :result-type params)))
+ (full-body (org-babel-expand-body:generic
+ body params))
+ (result (org-babel-groovy-evaluate
+ session full-body result-type result-params)))
+
+ (org-babel-reassemble-table
+ result
+ (org-babel-pick-name
+ (cdr (assoc :colname-names params)) (cdr (assoc :colnames params)))
+ (org-babel-pick-name
+ (cdr (assoc :rowname-names params)) (cdr (assoc :rownames params))))))
+
+
+(defun org-babel-groovy-table-or-string (results)
+ "Convert RESULTS into an appropriate elisp value.
+If RESULTS look like a table, then convert them into an
+Emacs-lisp table, otherwise return the results as a string."
+ (org-babel-script-escape results))
+
+
+(defvar org-babel-groovy-wrapper-method
+
+ "class Runner extends Script {
+ def out = new PrintWriter(new ByteArrayOutputStream())
+ def run() { %s }
+}
+
+println(new Runner().run())
+")
+
+
+(defun org-babel-groovy-evaluate
+ (session body &optional result-type result-params)
+ "Evaluate BODY in external Groovy process.
+If RESULT-TYPE equals 'output then return standard output as a string.
+If RESULT-TYPE equals 'value then return the value of the last statement
+in BODY as elisp."
+ (when session (error "Sessions are not (yet) supported for Groovy"))
+ (case result-type
+ (output
+ (let ((src-file (org-babel-temp-file "groovy-")))
+ (progn (with-temp-file src-file (insert body))
+ (org-babel-eval
+ (concat org-babel-groovy-command " " src-file) ""))))
+ (value
+ (let* ((src-file (org-babel-temp-file "groovy-"))
+ (wrapper (format org-babel-groovy-wrapper-method body)))
+ (with-temp-file src-file (insert wrapper))
+ (let ((raw (org-babel-eval
+ (concat org-babel-groovy-command " " src-file) "")))
+ (org-babel-result-cond result-params
+ raw
+ (org-babel-groovy-table-or-string raw)))))))
+
+
+(defun org-babel-prep-session:groovy (session params)
+ "Prepare SESSION according to the header arguments specified in PARAMS."
+ (error "Sessions are not (yet) supported for Groovy"))
+
+(defun org-babel-groovy-initiate-session (&optional session)
+ "If there is not a current inferior-process-buffer in SESSION
+then create. Return the initialized session. Sessions are not
+supported in Groovy."
+ nil)
+
+(provide 'ob-groovy)
+
+
+
+;;; ob-groovy.el ends here
--
1.8.5.2
next prev parent reply other threads:[~2013-12-28 23:48 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-12-26 21:25 Contribution: ob-groovy.el Miro Bezjak
2013-12-27 0:08 ` Thomas S. Dye
2013-12-27 16:44 ` Miro Bezjak
2013-12-27 17:40 ` Thomas S. Dye
2013-12-28 16:12 ` Eric Schulte
2013-12-28 23:47 ` Miro Bezjak [this message]
2013-12-30 2:53 ` Eric Schulte
2014-03-17 14:23 ` Miro Bezjak
2014-03-17 15:42 ` Bastien
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='CAMJqDfMsntkoLiGBjHo0+2udkQrdGU1=gSgBAyAYJwU2_875ww@mail.gmail.com' \
--to=bezjak.miro@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=schulte.eric@gmail.com \
--cc=tsd@tsdye.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).