;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\"\207" [require ob add-to-list org-babel-tangle-lang-exts ("mathomatic" . "math")] 3) (defvar org-babel-default-header-args:mathomatic nil) #@47 Command used to call mathomatic on the shell. (custom-declare-variable 'org-babel-mathomatic-command '(if (boundp 'mathomatic-command) mathomatic-command "mathomatic") '(#$ . 265) :group 'org-babel) #@70 Expand a block of Mathomatic code according to its header arguments. (defalias 'org-babel-mathomatic-expand #[(body params) "\304!\305\306\307!\211\203?\310\311\n\"\203\312\313\n\"\202@\310\314\n\"\203*\312\315\n\"\202@\310\316\n\"\2038\312\317\n\"\202@\312\320\n\"\202@\321)\305\322 \323# \321F\323#)\207" [params vars graphic-file body org-babel--get-vars mapconcat identity org-babel-mathomatic-graphical-output-file string-match "..eps$" format "set plot set terminal postscript eps\\;set output %S " "..ps$" "set plot set terminal postscript\\;set output %S " "..pic$" "set plot set terminal gpic\\;set output %S " "set plot set terminal png\\;set output %S " "" org-babel-mathomatic-var-to-mathomatic "\n"] 8 (#$ . 470)]) #@114 Execute a block of Mathomatic entries with org-babel. This function is called by `org-babel-execute-src-block'. (defalias 'org-babel-execute:mathomatic #[(body params) "\306\307!\210\310\311\236A\206 \312!\313\236A\206\312\314\315\316\"\317\320 \n $\n\321\322\323\"(\324\216r q\210\325)\"c\210)r q\210\326\327\211(\327\330%\210,\306\f!\210\331\f\312\"*\332\333\334\327\335\336\310*\337\"\"\"\340#,+,\341!?\205\264\342,\235\204\201\343,\235\204\201\344,\235\203\206+\202\264\314\345!\211-\321\322\323\"./\346\216r.q\210+c\210)r.q\210\326\327\211/\327\330%\210,\347-!)*\207" [params cmdline in-file org-babel-mathomatic-command cmd #1=#:temp-buffer message "executing Mathomatic source code block" split-string :results "" :cmdline org-babel-temp-file "mathomatic-" ".math" format "%s -t -c -q %s %s" generate-new-buffer " *temp file*" t #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] org-babel-mathomatic-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-mathomatic-graphical-output-file "scalar" "verbatim" "output" "mathomatic-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 tmp-file #2# #4=#:temp-file] 11 (#$ . 1218)]) (defalias 'org-babel-prep-session:mathomatic #[(session params) "\300\301!\207" [error "Mathomatic does not support sessions"] 2]) #@91 Convert an elisp val into a string of mathomatic code specifying a var of the same value. (defalias 'org-babel-mathomatic-var-to-mathomatic #[(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-mathomatic-elisp-to-mathomatic] 6 (#$ . 2808)]) #@64 Name of file to which mathomatic should send graphical output. (defalias 'org-babel-mathomatic-graphical-output-file #[(params) "\301\302\236A\235\205 \303\236A\207" [params "graphics" :result-params :file] 3 (#$ . 3148)]) #@60 Return a string of mathomatic code which evaluates to VAL. (defalias 'org-babel-mathomatic-elisp-to-mathomatic #[(val) "<\203 \301\302\303#\207\304\305\"\207" [val mapconcat org-babel-mathomatic-elisp-to-mathomatic " " format "%s"] 4 (#$ . 3380)]) (provide 'ob-mathomatic)