;ELC
|
;;; Compiled
|
;;; in Emacs version 26.1
|
;;; with all optimizations.
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require ob calc calc-trail calc-store] 2)
|
#@55 Default arguments for evaluating a calc source block.
|
(defvar org-babel-default-header-args:calc nil (#$ . 517))
|
#@78 Expand BODY according to PARAMS, return the expanded body.
|
|
(fn BODY PARAMS)
|
(defalias 'org-babel-expand-body:calc #[514 "\207" [] 3 (#$ . 636)])
|
#@60 Execute a block of calc code with Babel.
|
|
(fn BODY PARAMS)
|
(defalias 'org-babel-execute:calc #[514 "\301\302!\204 \303 \304\305\306\307\310!\311\"\312$\216\313 \210\314 \210)\210\315!\316\317\"\316\320\"\321\322\"\210\321\304\323\324\307\310!\325\"\326\327%\316\330\331\332 \"\333\"\"\"\210)\266\212r\301\302!q\210\334\335\336!!\337\336!\210*\207" [org--var-syms get-buffer "*Calculator*" current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 calc calc-quit org-babel--get-vars mapcar car symbol-name mapc #[257 "\300AC!\210\301@!\207" [calc-push-list calc-store-into] 3 "\n\n(fn PAIR)"] 257 "\211G\302V\205b \211\300\235\203 \303\304!!\207\211\302\305O\306\230\203& \307 \305\310O\"\310!\207\311\312!\211\247\2033 \211\202^ \313!\203? \313!\202^ \211<\203N \314\315A@#\202^ \316\306\317\312\320\321\322\323\n!@\"!!#\262C!\207" [calc-mode-map 0 calc-recall intern 1 "'" lookup-key nil calc-push-list calc-eval math-read-number error "Calc error \"%s\" on input \"%s\"" replace-regexp-in-string "" math-evaluate-expr mapcar org-babel-calc-maybe-resolve-var math-read-exprs] 12 "\n\n(fn LINE)" org-trim split-string org-babel-expand-body:calc "[\n ]" calc-eval calc-top 1 calc-pop] 12 (#$ . 789)])
|
#@11
|
|
(fn EL)
|
(defalias 'org-babel-calc-maybe-resolve-var #[257 "\211:\203' \211@\301=\203\" \211A@\235\203\" \302A@!\210\303\304!\305\304!\210\207\306\307\"\207\207" [org--var-syms var calc-recall calc-top 1 calc-pop mapcar org-babel-calc-maybe-resolve-var] 4 (#$ . 2068)])
|
(provide 'ob-calc)
|
