;ELC ;;; Compiled ;;; in Emacs version 24.5.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\313\314\217\211\203\315\316\n\"\202\317)\310\320 \321# \322F\321#)\207" [params vars graphic-file body mapcar cdr org-babel-get-header :var mapconcat identity nil (org-babel-graphical-output-file params) ((error)) 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!!3\325\216r q\210\3264\"c\210)r q\210\327\330\2113\330\331%\210,\306\f!\210\332\f\313\"5\333\334\335\330\336\337\3105\340\"\"\"\341#,67\330\342\343\217?\205\37678\3448\235?\205\375\3458\235\204\311\3468\235\204\311\3478\235\204\311\3508\235\204\311\3518\235\204\311\3528\235\204\311\3538\235\204\302\3548\235\204\302\3558\235\204\302\3568\235\203\316\3578\235\204\3166\202\375\315\360!\2119\322\323\324!!:;\361\216r:q\2106c\210)r:q\210\327\330\211;\330\331%\210,\3629!))*\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\"\206\301\304\"\206G\305U?\205\207" [line string-match "batch" "^rat: replaced .*$" "^;;; Loading #P" 0] 3] "[ \n]" "\n" (org-babel-graphical-output-file params) ((error)) "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" "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 #4=#:--params tmp-file #2# #5=#:temp-file] 11 (#$ . 1321)]) (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 (#$ . 3262)]) #@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 (#$ . 3584)]) (provide 'ob-maxima)