;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305\306\307#\210\310\311\312\"\210\310\313\314\"\207" [require ob ob-ref ob-comint ob-eval mma nil noerror add-to-list org-src-lang-modes ("mathematica" . "mma") org-babel-tangle-lang-exts ("mathematica" . "m")] 4) (defvar org-babel-default-header-args:mathematica nil) #@53 Name of the command for executing Mathematica code. (defvar org-babel-mathematica-command "MathematicaScript -script" (#$ . 426)) #@53 Name of the command for executing Mathematica code. (defvar org-babel-mathematica-command-alt "math -noprompt" (#$ . 562)) #@60 Expand BODY according to PARAMS, return the expanded body. (defalias 'org-babel-expand-body:mathematica #[(body params) "\303!\304\305 \306#\307\n\310R)\207" [params vars body org-babel--get-vars mapconcat #[(pair) "\301\302@\303A!#\207" [pair format "%s=%s;" org-babel-mathematica-var-to-mathematica] 5] "\n" "\nPrint[\n" "\n]\n"] 4 (#$ . 691)]) #@111 Execute a block of Mathematica code with org-babel. This function is called by `org-babel-execute-src-block' (defalias 'org-babel-execute:mathematica #[(body params) "\306\236A\307\n\"\310\311! \f\312\313\314\"\315\216rq\210 c\210)rq\210\316\317\211\317\320%\210,\321\322\fQ\323\"\324 \235\204V\325 \235\204V\326 \235\203[\327 \235\204[\202a\330\331!!-\207" [params result-params body full-body tmp-script-file org-babel-mathematica-command :result-params org-babel-expand-body:mathematica org-babel-temp-file "mathematica-" generate-new-buffer " *temp file*" t #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] write-region nil 0 org-babel-eval " " "" "code" "pp" "output" "table" org-babel-script-escape org-trim cmd #1# #2=#:temp-file raw] 6 (#$ . 1049)]) #@35 This function does nothing so far (defalias 'org-babel-prep-session:mathematica #[(session params) "\300\301!\207" [error "Currently no support for sessions"] 2 (#$ . 1872)]) #@35 This function does nothing so far (defalias 'org-babel-prep-session:mathematica #[(session body params) "\300\301!\207" [error "Currently no support for sessions"] 2 (#$ . 2053)]) #@162 Convert an elisp value to a Mathematica variable. Convert an elisp value, VAR, into a string of Mathematica source code specifying a variable of the same value. (defalias 'org-babel-mathematica-var-to-mathematica #[(var) "<\203\301\302\303\304#\305Q\207\306\307\"\207" [var "{" mapconcat org-babel-mathematica-var-to-mathematica ", " "}" format "%S"] 5 (#$ . 2240)]) (provide 'ob-mathematica)