;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:42 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-maxima.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\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") '(#$ . 725) :group 'org-babel)
#@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 (#$ . 910)])
#@110 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!!)\325\216r
q\210\326*\"c\210)r
q\210\327\330\211)\330\331%\210,\306\f!\210\332\f\313\"+\333\334\335\330\336\337\310+\340\"\"\"\341#,,-\342!?\205\270\343-\235\204\204\344-\235\204\204\345-\235\203\211,\202\270\315\346!\211.\322\323\324!!/0\347\216r/q\210,c\210)r/q\210\327\330\2110\330\331%\210,\350.!)*\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*" ((byte-code "\301!\203\n\302!\210\301\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\"\206G\304U?\205\207" [line string-match "batch" "^rat: replaced .*$" 0] 3] "[
\n]" "\n" org-babel-maxima-graphical-output-file "scalar" "verbatim" "output" "maxima-res-" ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) org-babel-import-elisp-from-file #3=#:temp-file body raw result result-params tmp-file #2# #4=#:temp-file] 11 (#$ . 1427)])
(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 (#$ . 3059)])
#@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 (#$ . 3381)])
#@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 (#$ . 3605)])
(provide 'ob-maxima)