|
Server IP : 111.118.215.189 / Your IP : 18.117.158.174 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/org/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:39 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-calc.el ;;; in Emacs version 24.3.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) #@56 Default arguments for evaluating an calc source block. (defvar org-babel-default-header-args:calc nil (#$ . 663)) #@60 Expand BODY according to PARAMS, return the expanded body. (defalias 'org-babel-expand-body:calc #[(body params) "\207" [body] 1 (#$ . 783)]) #@42 Execute a block of calc code with Babel. (defalias 'org-babel-execute:calc #[(body params) "\306\307!\204 \310 \311\216\312 \210\313 \210*\314\315\316 \317\"\"\314\320\n\"\314\321 \" \322\323\n\"\210\322\324\314\325\326\327 \"\330\"\"\"\210+\212r\306\307!q\210\331\332\333!!*\207" [#1=#:wconfig params vars var-syms var-names body get-buffer "*Calculator*" current-window-configuration ((set-window-configuration #1#)) calc calc-quit mapcar cdr org-babel-get-header :var car symbol-name mapc #[(pair) "\301AC!\210\302@!\207" [pair calc-push-list calc-store-into] 2] #[(line) "G\305V\205d \235\203 \306\307!!\207\305\310O\311\230\203& \312\n\310\313O\"\313!\207\314\315!\211\247\2034 \202a \316 !\203@ \316 !\202a <\203R \317\320 \211 A@)#\202a \321\311\322\315\323\324\325\326!@\"!!#)C!\207" [line var-names calc-mode-map res x 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] 11] org-babel-trim split-string org-babel-expand-body:calc "[\n ]" calc-eval calc-top 1] 8 (#$ . 932)]) (defalias 'org-babel-calc-maybe-resolve-var #[(el) ":\203- @\303\232\203( \211A@)\n\235\203( \304\211A@)!\210\305\306!\307\306!\210\207\310\311\"\207\207" [el x var-syms var calc-recall calc-top 1 calc-pop mapcar org-babel-calc-maybe-resolve-var] 4]) (provide 'ob-calc)