Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/org/ob-calc.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 "\300
AC!\210\301
@!\207" [calc-push-list calc-store-into] 3 "\n\n(fn PAIR)"] 257 "\211G\302V\205c\211\300\235\203\303\304!!\207\305
\302\306#\307\230\203'\310	\305\306\"\"\311!\207\312\313!\211\247\2034\211\202_\314
!\203@\314
!\202_\211<\203O\315\316A@#\202_\317\307\320\313\321\322\323\324\n!@\"!!#\262
C!\207" [calc-mode-map 0 calc-recall intern substring 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\"\302
A@!\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 (#$ . 2102)])
(provide 'ob-calc)