From mboxrd@z Thu Jan 1 00:00:00 1970 From: Christian Garbs Subject: [PATCH] ob-vala.el: Add Vala support to Babel Date: Fri, 14 Jul 2017 21:43:07 +0200 Message-ID: <1500061387-3353-1-git-send-email-mitch@cgarbs.de> References: <87fudze7y4.fsf@nicolasgoaziou.fr> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:37819) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dW6Uk-0001Dd-PH for emacs-orgmode@gnu.org; Fri, 14 Jul 2017 15:43:24 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dW6Ug-0003Wx-6G for emacs-orgmode@gnu.org; Fri, 14 Jul 2017 15:43:22 -0400 Received: from mail.shuttle.de ([194.95.249.4]:52288) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1dW6Uf-0003W1-Qq for emacs-orgmode@gnu.org; Fri, 14 Jul 2017 15:43:18 -0400 Received: from yggdrasil.mitch.h.shuttle.de (p2E5B4CA0.dip0.t-ipconnect.de [46.91.76.160]) by mspool3.srv.dfn.de (Postfix) with ESMTPSA id 7834513B4 for ; Fri, 14 Jul 2017 21:43:12 +0200 (CEST) In-Reply-To: <87fudze7y4.fsf@nicolasgoaziou.fr> 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" To: emacs-orgmode@gnu.org Cc: Christian Garbs * ob-vala.el: Add support for the Vala language to Babel. --- lisp/ob-vala.el | 129 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 129 insertions(+) create mode 100644 lisp/ob-vala.el diff --git a/lisp/ob-vala.el b/lisp/ob-vala.el new file mode 100644 index 0000000..9b5407f --- /dev/null +++ b/lisp/ob-vala.el @@ -0,0 +1,129 @@ +;;; ob-vala.el --- org-babel functions for Vala evaluation + +;; Copyright (C) 2017 Free Software Foundation, Inc. + +;; Author: Christian Garbs +;; Keywords: literate programming, reproducible research +;; Homepage: http://orgmode.org + +;;; License: + +;; 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: + +;; ob-vala.el provides Babel support for the Vala language +;; (see http://live.gnome.org/Vala for details) + +;;; Requirements: + +;; - Vala compiler binary (valac) +;; - Vala development environment (Vala libraries etc.) +;; +;; vala-mode.el is nice to have for code formatting, but is not needed +;; for ob-vala.el + +;;; Code: + +(require 'ob) + +(declare-function org-trim "org" (s &optional keep-lead)) + +;; file extension +(add-to-list 'org-babel-tangle-lang-exts '("vala" . "vala")) + +;; header arguments empty by default +(defvar org-babel-default-header-args:vala '()) + +(defvar org-babel-vala-compiler "valac" + "Command used to compile a Vala source code file into an +executable.") + +(defun org-babel-expand-body:vala (body params &optional processed-params) + "Expand BODY: does nothing, returns original BODY while ignoring PARAMS." + body ;; TODO: expand params? + ) + +;; This is the main function which is called to evaluate a code +;; block. +;; +;; - run Vala compiler and create a binary in a temporary file +;; - compiler/linker flags can be set via :flags header argument +;; - if compilation succeeded, run the binary +;; - commandline parameters to the binary can be set via :cmdline +;; header argument +;; - stdout will be parsed as RESULT (control via :result-params +;; header argument) +;; +;; There is no session support because Vala is a compiled language. +;; +;; This function is heavily based on ob-C.el +(defun org-babel-execute:vala (body params) + "Execute a block of Vala code with org-babel. +This function is called by `org-babel-execute-src-block'" + (message "executing Vala source code block") + (let* ((tmp-src-file (org-babel-temp-file + "vala-src-" + ".vala")) + (tmp-bin-file (org-babel-temp-file "vala-bin-" org-babel-exeext)) + (cmdline (cdr (assoc :cmdline params))) + (flags (cdr (assoc :flags params))) + (full-body (org-babel-expand-body:vala body params)) + (compile + (progn + (with-temp-file tmp-src-file (insert full-body)) + (org-babel-eval + (format "%s %s -o %s %s" + org-babel-vala-compiler + (mapconcat 'identity + (if (listp flags) flags (list flags)) " ") + (org-babel-process-file-name tmp-bin-file) + (org-babel-process-file-name tmp-src-file)) ""))) + ) + (if (file-executable-p tmp-bin-file) + (let ((results + (org-trim + (org-babel-eval + (concat tmp-bin-file (if cmdline (concat " " cmdline) "")) "")))) + (org-babel-reassemble-table + (org-babel-result-cond (cdr (assoc :result-params params)) + (org-babel-read results) + (let ((tmp-file (org-babel-temp-file "vala-"))) + (with-temp-file tmp-file (insert results)) + (org-babel-import-elisp-from-file tmp-file))) + (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-prep-session:vala (session params) + "This function does nothing as Vala is a compiled language with no +support for sessions" + (error "Vala is a compiled language -- no support for sessions")) + +(defun org-babel-vala-var-to-vala (var) + "Convert an elisp var into a string of vala source code +specifying a var of the same value." + (format "%S" var)) + +(defun org-babel-vala-table-or-string (results) + "If the results look like a table, then convert them into an +Emacs-lisp table, otherwise return the results as a string." + ) + +(provide 'ob-vala) + +;;; ob-vala.el ends here -- 2.7.4