now in main
This commit is contained in:
Eric Schulte
parent
14337ce4eb
commit
387e9c303e
|
|
@ -1,154 +0,0 @@
|
|||
;;; ob-D.el --- org-babel functions for the D language
|
||||
|
||||
;; Copyright (C) 2013 Thierry Banel
|
||||
|
||||
;; Author: Thierry Banel, derived from the Eric Schulte work
|
||||
;; Keywords: literate programming, reproducible research
|
||||
|
||||
;; This file is NOT (yet) part of GNU Emacs.
|
||||
|
||||
;; ob-D.el 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.
|
||||
|
||||
;; ob-D.el 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.
|
||||
|
||||
;; the GNU General Public License can be obtained here:
|
||||
;; <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
;; Org-Babel support for evaluating Digital Mars D Language code.
|
||||
;; The D language home page is here:
|
||||
;; http://dlang.org/
|
||||
|
||||
;;; Code:
|
||||
(require 'ob)
|
||||
(require 'ob-eval)
|
||||
|
||||
(declare-function org-entry-get "org"
|
||||
(pom property &optional inherit literal-nil))
|
||||
|
||||
(defvar org-babel-tangle-lang-exts)
|
||||
(add-to-list 'org-babel-tangle-lang-exts '("D" . "D"))
|
||||
|
||||
(defvar org-babel-default-header-args:D '())
|
||||
|
||||
(defvar org-babel-D-compiler "rdmd"
|
||||
"Command used to compile and run a D source code file into an
|
||||
executable.")
|
||||
|
||||
(defun org-babel-execute:D (body params)
|
||||
"Execute a block of D code with org-babel. This function is
|
||||
called by `org-babel-execute-src-block'."
|
||||
(org-babel-D-execute body params))
|
||||
|
||||
(defun org-babel-D-execute (body params)
|
||||
"This function should only be called by `org-babel-execute:D'"
|
||||
(let* ((tmp-src-file (org-babel-temp-file "Dsrc" ".d"))
|
||||
(cmdline (cdr (assoc :cmdline params)))
|
||||
(flags (cdr (assoc :flags params)))
|
||||
(rdmd (format "%s %s %s"
|
||||
org-babel-D-compiler
|
||||
(mapconcat 'identity
|
||||
(if (listp flags) flags (list flags)) " ")
|
||||
|
||||
;; On Unix, keep directory separator
|
||||
(org-babel-process-file-name tmp-src-file)))
|
||||
|
||||
(full-body (org-babel-D-expand body params)))
|
||||
(with-temp-file tmp-src-file (insert full-body))
|
||||
|
||||
(org-babel-eval rdmd "")))
|
||||
|
||||
(defun org-babel-D-expand (body params)
|
||||
"Expand a block of D code with org-babel according to
|
||||
its header arguments."
|
||||
(let ((vars (mapcar #'cdr (org-babel-get-header params :var)))
|
||||
(colname-names (cdr (car (org-babel-get-header params :colname-names))))
|
||||
(main-p (not (string= (cdr (assoc :main params)) "no")))
|
||||
(imports (mapcar #'cdr (org-babel-get-header params :import))))
|
||||
(mapconcat 'identity
|
||||
(list
|
||||
"module aaa;\n"
|
||||
;; imports
|
||||
(mapconcat
|
||||
(lambda (inc) (format "import %s;" inc))
|
||||
imports "\n")
|
||||
;; variables
|
||||
(mapconcat 'org-babel-D-var-to-D vars "\n")
|
||||
(mapconcat 'org-babel-D-colnames-to-D colname-names "\n")
|
||||
;; body
|
||||
(if main-p
|
||||
(org-babel-D-ensure-main-wrap body)
|
||||
body) "\n") "\n")))
|
||||
|
||||
(defun org-babel-D-ensure-main-wrap (body)
|
||||
"Wrap body in a \"main\" function call if none exists."
|
||||
(if (string-match "^[ \t]*[intvod]+[ \t\n\r]*main[ \t]*(.*)" body)
|
||||
body
|
||||
(format "int main() {\n%s\nreturn(0);\n}\n" body)))
|
||||
|
||||
(defun org-babel-prep-session:D (session params)
|
||||
"This function does nothing as D is a compiled language with no
|
||||
support for sessions"
|
||||
(error "D is a compiled languages -- no support for sessions"))
|
||||
|
||||
(defun org-babel-load-session:D (session body params)
|
||||
"This function does nothing as D is a compiled language with no
|
||||
support for sessions"
|
||||
(error "D is a compiled languages -- no support for sessions"))
|
||||
|
||||
;; helper functions
|
||||
|
||||
(defun org-babel-D-var-to-D (pair)
|
||||
"Convert an elisp value into a string of D code specifying a variable
|
||||
of the same value."
|
||||
(let ((var (car pair))
|
||||
(val (cdr pair)))
|
||||
(when (symbolp val)
|
||||
(setq val (symbol-name val))
|
||||
(when (= (length val) 1)
|
||||
(setq val (string-to-char val))))
|
||||
(cond
|
||||
((integerp val)
|
||||
(format "int %S = %S;" var val))
|
||||
((floatp val)
|
||||
(format "double %S = %S;" var val))
|
||||
((stringp val)
|
||||
(format "string %S = \"%s\";" var val))
|
||||
((listp val)
|
||||
(if (assoc var colname-names) ()
|
||||
(setq colname-names
|
||||
(cons (cons
|
||||
var
|
||||
(let ((i 0)) (mapcar (lambda (x) (setq i (1+ i)) (format
|
||||
"$%s" i))
|
||||
(car val))))
|
||||
colname-names)))
|
||||
(format "string[][] %S = [\n[%s]];" var
|
||||
(mapconcat (lambda (row)
|
||||
(if (listp row)
|
||||
(mapconcat (lambda (v) (format "\"%s\"" v))
|
||||
row
|
||||
",")))
|
||||
val
|
||||
"],\n[")))
|
||||
(t
|
||||
(format "u32 %S = %S;" var val)))))
|
||||
|
||||
(defun org-babel-D-colnames-to-D (pair)
|
||||
"Convert an elisp list of header table into a D vector
|
||||
specifying a variable with the name of the table"
|
||||
(let ((table (car pair))
|
||||
(headers (cdr pair)))
|
||||
(format "string[] %S_headers = [%s];"
|
||||
table
|
||||
(mapconcat (lambda (h) (format "%S" h)) headers ","))))
|
||||
|
||||
(provide 'ob-D)
|
||||
|
||||
;;; ob-D.el ends here
|
||||
Loading…
Reference in New Issue