ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-maxima.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\302\303\304\"\207" [require ob add-to-list org-babel-tangle-lang-exts ("maxima" . "max")] 3)
(defvar org-babel-default-header-args:maxima nil)
#@43 Command used to call maxima on the shell.
(custom-declare-variable 'org-babel-maxima-command '(if (boundp 'maxima-command) maxima-command "maxima") '(#$ . 579) :group 'org-babel :type 'string)
#@66 Expand a block of Maxima code according to its header arguments.
(defalias 'org-babel-maxima-expand #[(body params) "\304\305\306\307\"\"\310\311\312!\211\203 \313\314\n\"\202 \315)\310\316 \317# \320F\317#)\207" [params vars graphic-file body mapcar cdr org-babel-get-header :var mapconcat identity org-babel-maxima-graphical-output-file format "set_plot_option ([gnuplot_term, png]); set_plot_option ([gnuplot_out_file, %S]);" "" org-babel-maxima-var-to-maxima "\n" "gnuplot_close ()$"] 8 (#$ . 778)])
#@109 Execute a block of Maxima entries with org-babel.
This function is called by `org-babel-execute-src-block'.
(defalias 'org-babel-execute:maxima #[(body params) "\306\307!\210\310\311\312\"A\206 \313!\311\314\"A\206 \313\315\316\317\"\320\321 \n $ \n\322\323\324!! 1\325\216r
q\210\3262\"c\210)r
q\210\327\330\2111\330\331%\210,\306\f!\210\332\f\313\" 3\333\334\335\330\336\337\3103\340\"\"\"\341#, 4 5\342!?\205\366 5 6\3436\235?\205\365 \3446\235\204\301 \3456\235\204\301 \3466\235\204\301 \3476\235\204\301 \3506\235\204\301 \3516\235\204\272 \3526\235\204\272 \3536\235\204\272 \3546\235\203\306 \3556\235\204\306 4\202\365 \315\356!\211 7\322\323\324!! 8 9\357\216r8q\2104c\210)r8q\210\327\330\2119\330\331%\210,\3607!))*\207" [params cmdline in-file org-babel-maxima-command cmd #1=#:temp-buffer message "executing Maxima source code block" split-string assoc :results "" :cmdline org-babel-temp-file "maxima-" ".max" format "%s --very-quiet -r 'batchload(%S)$' %s" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] org-babel-maxima-expand write-region nil 0 org-babel-eval mapconcat identity delq mapcar #[(line) "\301\302\"\206 \301\303\"\206 \301\304\"\206 G\305U?\205 \207" [line string-match "batch" "^rat: replaced .*$" "^;;; Loading #P" 0] 3] "[
\n]" "\n" org-babel-maxima-graphical-output-file "none" "scalar" "verbatim" "html" "code" "pp" "output" "raw" "org" "drawer" "table" "maxima-res-" #[nil "\301!\205 \302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] org-babel-import-elisp-from-file #3=#:temp-file body raw result result-params #4=#:--params tmp-file #2# #5=#:temp-file] 11 (#$ . 1295)])
(defalias 'org-babel-prep-session:maxima #[(session params) "\300\301!\207" [error "Maxima does not support sessions"] 2])
#@87 Convert an elisp val into a string of maxima code specifying a var
of the same value.
(defalias 'org-babel-maxima-var-to-maxima #[(pair) "@A 9\203 \303 !\211G\304U\203 \305 !\306\307\n\310 !#*\207" [pair val var symbol-name 1 string-to-char format "%S: %s$" org-babel-maxima-elisp-to-maxima] 6 (#$ . 3156)])
#@60 Name of file to which maxima should send graphical output.
(defalias 'org-babel-maxima-graphical-output-file #[(params) "\301\302\236A\235\205
\303\236A\207" [params "graphics" :result-params :file] 3 (#$ . 3478)])
#@56 Return a string of maxima code which evaluates to VAL.
(defalias 'org-babel-maxima-elisp-to-maxima #[(val) "<\203 \301\302\303\304#\305Q\207\306\307\"\207" [val "[" mapconcat org-babel-maxima-elisp-to-maxima ", " "]" format "%s"] 5 (#$ . 3702)])
(provide 'ob-maxima)
Kontol Shell Bypass