From mboxrd@z Thu Jan 1 00:00:00 1970 From: Eric Schulte Subject: Re: [PATCH] Add ob-J.el Date: Fri, 20 Dec 2013 10:12:24 -0700 Message-ID: <878uvfv43r.fsf@gmail.com> References: Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:46657) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Vu3e9-0002R2-LK for emacs-orgmode@gnu.org; Fri, 20 Dec 2013 12:14:01 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Vu3e5-0003JS-EB for emacs-orgmode@gnu.org; Fri, 20 Dec 2013 12:13:57 -0500 Received: from mail-pd0-x234.google.com ([2607:f8b0:400e:c02::234]:64010) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Vu3e5-0003JM-2n for emacs-orgmode@gnu.org; Fri, 20 Dec 2013 12:13:53 -0500 Received: by mail-pd0-f180.google.com with SMTP id q10so2761440pdj.25 for ; Fri, 20 Dec 2013 09:13:51 -0800 (PST) In-Reply-To: (Oleh's message of "Fri, 20 Dec 2013 14:51:30 +0100") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Oleh Cc: org mode Applied, Thanks! I've played with APL but never seriously, however I can see it being a perfect tool for manipulating Org-mode tables. If you have time to put some documentation up on Worg as a new [1] linked from [2] that'd be great. I added ob-J to the org-babel-load-languages customization variable and it is now compiling with make. Best, Oleh writes: > Hi all, > > Here's a patch to add babel support for J. > I couldn't figure out how to make ob-J.elc a target for make, > maybe someone can fix this. > > regards, > Oleh > > From 0139af8534dc33911ed1a24a9702a156ae46c99d Mon Sep 17 00:00:00 2001 > From: Oleh Krehel > Date: Fri, 20 Dec 2013 14:43:59 +0100 > Subject: [PATCH] Add org-babel support for J. > > --- > lisp/ob-J.el | 134 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ > 1 file changed, 134 insertions(+) > create mode 100644 lisp/ob-J.el > > diff --git a/lisp/ob-J.el b/lisp/ob-J.el > new file mode 100644 > index 0000000..50c1a5a > --- /dev/null > +++ b/lisp/ob-J.el > @@ -0,0 +1,134 @@ > +;;; ob-J.el --- org-babel functions for J evaluation > + > +;; Copyright (C) 2011-2013 Free Software Foundation, Inc. > + > +;; Author: Oleh Krehel > +;; 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 . > + > +;;; Commentary: > + > +;; Session interaction depends on `j-console'. > + > +;;; Code: > +(require 'ob) > +(require 'j-console) > + > +(defun org-babel-expand-body:J (body params &optional processed-params) > + "Expand BODY according to PARAMS, return the expanded body. > +PROCESSED-PARAMS isn't used yet." > + (org-babel-J-interleave-echos-except-functions body)) > + > +(defun org-babel-J-interleave-echos (body) > + "Interleave echo'' between each source line of BODY." > + (mapconcat #'identity (split-string body "\n") "\necho''\n")) > + > +(defun org-babel-J-interleave-echos-except-functions (body) > + "Interleave echo'' between source lines of BODY that aren't functions." > + (if (string-match-m "\\(?:^\\|\n\\)[^\n]*\\(?:1\\|2\\|3\\|4\\) : 0\n.*)" body) > + (let ((s1 (substring body 0 (match-beginning 0))) > + (s2 (match-string 0 body)) > + (s3 (substring body (match-end 0)))) > + (concat > + (org-babel-J-interleave-echos s1) > + "\necho''\n" > + s2 > + (org-babel-J-interleave-echos-except-functions s3))) > + (org-babel-J-interleave-echos body))) > + > +(defun org-babel-execute:J (body params) > + "Execute a block of J code BODY. > +PARAMS are given by org-babel. > +This function is called by `org-babel-execute-src-block'" > + (message "executing J source code block") > + (let* ((processed-params (org-babel-process-params params)) > + (sessionp (cdr (assoc :session params))) > + (session (org-babel-j-initiate-session sessionp)) > + (vars (second processed-params)) > + (result-params (third processed-params)) > + (result-type (fourth processed-params)) > + (full-body (org-babel-expand-body:J > + body params processed-params)) > + (tmp-script-file (org-babel-temp-file "J-src"))) > + (org-babel-J-strip-whitespace > + (if (string= sessionp "none") > + (progn > + (with-temp-file tmp-script-file > + (insert full-body)) > + (org-babel-eval (format "jconsole < %s" tmp-script-file) "")) > + (org-babel-J-eval-string full-body))))) > + > +(defun org-babel-J-eval-string (str) > + "Sends STR to the `j-console-cmd' session and exectues it." > + (let ((session (j-console-ensure-session))) > + (with-current-buffer (process-buffer session) > + (goto-char (point-max)) > + (insert (format "\n%s\n" str)) > + (let ((beg (point))) > + (comint-send-input) > + (sit-for .1) > + (buffer-substring-no-properties > + beg (point-max)))))) > + > +(defun org-babel-J-strip-whitespace (str) > + "Remove whitespace from jconsole output STR." > + (let ((strs (split-string str "\n" t)) > + out cur s) > + (while (setq s (pop strs)) > + (if (string-match "^ *$" s) > + (progn (push (nreverse cur) out) > + (setq cur)) > + (push s cur))) > + (mapconcat #'org-babel-J-print-block > + (delq nil (nreverse out)) > + "\n\n"))) > + > +(defun org-babel-J-print-block (x) > + "Prettify jconsole output X." > + (if (= 1 (length x)) > + (obj-strip-leading-ws (car x)) > + ;; assume only first row is misaligned > + (let ((n1 (obj-match-second-space (car x))) > + (n2 (obj-match-second-space (cadr x)))) > + (setcar > + x > + (if (and n1 n2) > + (substring (car x) (- n1 n2)) > + (obj-strip-leading-ws (car x)))) > + (mapconcat #'identity x "\n")))) > + > +(defun obj-match-second-space (s) > + "Return position of second space in S or nil." > + (and (string-match "^ *[^ ]+\\( \\)" s) > + (match-beginning 1))) > + > +(defun obj-strip-leading-ws (s) > + "String leading whitespace from S." > + (and (string-match "^ *\\([^ ].*\\)" s) > + (match-string 1 s))) > + > +(defun org-babel-j-initiate-session (&optional session) > + "Initiate a J session. > +SESSION is a parameter given by org-babel." > + (unless (string= session "none") > + (require 'j-console) > + (j-console-ensure-session))) > + > +(provide 'ob-J) > + > +;;; ob-J.el ends here Footnotes: [1] http://orgmode.org/worg/org-contrib/babel/languages/ob-doc-j.html [2] http://orgmode.org/worg/org-contrib/babel/languages.html -- Eric Schulte https://cs.unm.edu/~eschulte PGP: 0x614CA05D