| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\302\303\304\"\207" [require ob add-to-list org-babel-tangle-lang-exts ("maxima" . "max")] 3) | |
| 16 | (defvar org-babel-default-header-args:maxima nil) | |
| 17 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable org-babel-maxima-command funcall function #[0 "\301\300!\203 \207\302\207" [maxima-command boundp "maxima"] 2] "Command used to call maxima on the shell." :group org-babel :type string] 8) | |
| 18 | #@84 Expand a block of Maxima code according to its header arguments. | |
| 19 | ||
| 20 | (fn BODY PARAMS) | |
| 21 | (defalias 'org-babel-maxima-expand #[514 "\300!\301\236A\302\236A\303\304\3051 \306!0\202 \210\307\211\203' \310\311\"\202( \312\262\303\313\314# \315\257\314#\207" [org-babel--get-vars :epilogue :prologue mapconcat identity (error) org-babel-graphical-output-file nil format "set_plot_option ([gnuplot_term, png]); set_plot_option ([gnuplot_out_file, %S]);" "" org-babel-maxima-var-to-maxima "\n" "gnuplot_close ()$"] 13 (#$ . 855)]) | |
| 22 | #@127 Execute a block of Maxima entries with org-babel. | |
| 23 | This function is called by `org-babel-execute-src-block'. | |
| 24 | ||
| 25 | (fn BODY PARAMS) | |
| 26 | (defalias 'org-babel-execute:maxima #[514 "\301\302!\210\303\304\236A\206 \305!\306\236A\206 \305\307\310\311\"\312\313$\314\315\316!!\317\320\321\322\323!\324\"\325$\216r\211q\210\326\"c\210)r\211q\210\327\330\211\330\320%\210*\266\301!\210\331\305\"\332\333\334\330\335\336\303\337\"\"\"\340#\262\266\203\3411t \342!0\202v \210\330?\205\373 \343\235?\205\371 \344\235\204\304 \345\235\204\304 \346\235\204\304 \347\235\204\304 \350\235\204\304 \351\235\204\304 \352\235\204\276 \353\235\204\276 \354\235\204\276 \355\235\203\310 \356\235\204\310 \202\371 \307\357!\211\314\315\316!!\317\320\321\322\323!\360\"\325$\216r\211q\210c\210)r\211q\210\327\330\211\330\320%\210*\266\361!\262\262\207" [org-babel-maxima-command message "executing Maxima source code block" split-string :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*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 org-babel-maxima-expand write-region nil org-babel-eval mapconcat identity delq mapcar #[257 "\300\301\"\206 \300\302\"\206 \300\303\"\206 \211G\304U?\205 \211\207" [string-match "batch" "^rat: replaced .*$" "^;;; Loading #P" 0] 4 "\n\n(fn LINE)"] "[ \n]" "\n" (error) org-babel-graphical-output-file "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" "maxima-res-" [buffer-name kill-buffer] org-babel-import-elisp-from-file] 16 (#$ . 1396)]) | |
| 27 | #@23 | |
| 28 | ||
| 29 | (fn SESSION PARAMS) | |
| 30 | (defalias 'org-babel-prep-session:maxima #[514 "\300\301!\207" [error "Maxima does not support sessions"] 4 (#$ . 3094)]) | |
| 31 | #@98 Convert an elisp val into a string of maxima code specifying a var | |
| 32 | of the same value. | |
| 33 | ||
| 34 | (fn PAIR) | |
| 35 | (defalias 'org-babel-maxima-var-to-maxima #[257 "\211@A\2119\203 \300!\262\211G\301U\203 \302!\262\303\304\305!#\207" [symbol-name 1 string-to-char format "%S: %s$" org-babel-maxima-elisp-to-maxima] 8 (#$ . 3244)]) | |
| 36 | #@66 Return a string of maxima code which evaluates to VAL. | |
| 37 | ||
| 38 | (fn VAL) | |
| 39 | (defalias 'org-babel-maxima-elisp-to-maxima #[257 "\211<\203 \300\301\302\303#\304Q\207\305\306\"\207" ["[" mapconcat org-babel-maxima-elisp-to-maxima ", " "]" format "%s"] 6 (#$ . 3571)]) | |
| 40 | (provide 'ob-maxima) | |
