| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require ob calc calc-trail calc-store] 2) | |
| 16 | #@55 Default arguments for evaluating a calc source block. | |
| 17 | (defvar org-babel-default-header-args:calc nil (#$ . 517)) | |
| 18 | #@78 Expand BODY according to PARAMS, return the expanded body. | |
| 19 | ||
| 20 | (fn BODY PARAMS) | |
| 21 | (defalias 'org-babel-expand-body:calc #[514 "\207" [] 3 (#$ . 636)]) | |
| 22 | #@60 Execute a block of calc code with Babel. | |
| 23 | ||
| 24 | (fn BODY PARAMS) | |
| 25 | (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)]) | |
| 26 | #@11 | |
| 27 | ||
| 28 | (fn EL) | |
| 29 | (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)]) | |
| 30 | (provide 'ob-calc) | |
