;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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!\210\300\305!\207" [require ob org-macs calc calc-trail calc-store] 2) #@55 Default arguments for evaluating a calc source block. (defvar org-babel-default-header-args:calc nil (#$ . 539)) #@78 Expand BODY according to PARAMS, return the expanded body. (fn BODY PARAMS) (defalias 'org-babel-expand-body:calc #[514 "\207" [] 3 (#$ . 658)]) #@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 (#$ . 811)]) #@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 (#$ . 2090)]) (provide 'ob-calc)