diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-11-03 21:46:50 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-11-03 23:45:25 -0600 |
commit | 3a62685df943051fb8e387d69eb5c6d641238b28 (patch) | |
tree | 5cb86293fae1ca336aa61576ec513ec164ab4552 | |
parent | 106ad6e9e57660f53bde4ea6e4f3d2271a5527f6 (diff) | |
download | org-mode-3a62685df943051fb8e387d69eb5c6d641238b28.tar.gz |
ob-calc: support for variables -- converts :var variables in calc variables
* lisp/ob-calc.el (org-babel-execute:calc): support for variables --
converts :var variables in calc variables
-rw-r--r-- | lisp/ob-calc.el | 60 |
1 files changed, 44 insertions, 16 deletions
diff --git a/lisp/ob-calc.el b/lisp/ob-calc.el index 5571286..7d9c007 100644 --- a/lisp/ob-calc.el +++ b/lisp/ob-calc.el @@ -40,22 +40,50 @@ (defun org-babel-execute:calc (body params) "Execute a block of calc code with Babel." - (mapcar - (lambda (line) - (when (> (length line) 0) - (if (string= "'" (substring line 0 1)) - (funcall (lookup-key calc-mode-map (substring line 1)) nil) - (calc-push-list - (list ((lambda (res) - (cond - ((numberp res) res) - ((listp res) (error "calc error \"%s\" on input \"%s\"" - (cadr res) line)) - (t res)) - (if (numberp res) res (math-read-number res))) - (calc-eval line))))))) - (mapcar #'org-babel-trim - (split-string (org-babel-expand-body:calc body params) "[\n\r]"))) + (let* ((vars (mapcar #'cdr (org-babel-get-header params :var))) + (var-syms (mapcar #'car vars)) + (var-names (mapcar #'symbol-name var-syms))) + (mapc + (lambda (pair) + (calc-push-list (list (cdr pair))) + (calc-store-into (car pair))) + vars) + (mapcar + (lambda (line) + (when (> (length line) 0) + (cond + ;; simple variable name + ((member line var-names) (calc-recall (intern line))) + ;; stack operation + ((string= "'" (substring line 0 1)) + (funcall (lookup-key calc-mode-map (substring line 1)) nil)) + ;; complex expression + (t + (calc-push-list + (list ((lambda (res) + (cond + ((numberp res) res) + ((math-read-number res) (math-read-number res)) + ((listp res) (error "calc error \"%s\" on input \"%s\"" + (cadr res) line)) + (t (calc-eval + (math-evaluate-expr + ;; resolve user variables, calc built in + ;; variables are handled automatically + ;; upstream by calc + (mapcar (lambda (el) + (if (and (consp el) (equal 'var (car el)) + (member (cadr el) var-syms)) + (progn + (calc-recall (cadr el)) + (prog1 (calc-top 1) + (calc-pop 1))) + el)) + ;; parse line into calc objects + (first (math-read-exprs line)))))))) + (calc-eval line)))))))) + (mapcar #'org-babel-trim + (split-string (org-babel-expand-body:calc body params) "[\n\r]")))) (save-excursion (set-buffer (get-buffer "*Calculator*")) (calc-eval (calc-top 1)))) |