;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require ob ob-eval] 2) #@60 Default arguments for evaluating a eukleides source block. (defvar org-babel-default-header-args:eukleides '((:results . "file") (:exports . "results")) (#$ . 151)) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\305\306\312&\207" [custom-declare-variable org-eukleides-path nil "Path to the eukleides executable file." :group org-babel :type string org-eukleides-eps-to-raster "Command used to convert EPS to raster. Nil for no conversion." (choice (repeat :tag "Shell Command Sequence" (string :tag "Shell Command")) (const :tag "sam2p" "a=%s;b=%s;sam2p ${a} ${b}") (const :tag "NetPNM" "a=%s;b=%s;pstopnm -stdout ${a} | pnmtopng > ${b}") (const :tag "None" nil))] 8) #@109 Execute a block of eukleides code with org-babel. This function is called by `org-babel-execute-src-block'. (defalias 'org-babel-execute:eukleides #[(body params) "\306\307\236A\206 \310!\311\236A\206\312\313!\314\236A\315\316!\317\236A\206'\310)\2043\312\320!\202E\321)!\322\323\324\n!\325P!\326\323\f!\260*\327)!\204T\312\330)\"\210\331\n!\332\230\203y+\203u\333\334+\324\n!\325P\324\n!\335P#!\210\202y\312\336!\210\f\337\340\341\",-\342\216r,q\210.c\210)r,q\210\343\344\211-\344\345%\210,\346\347*\"\210\350*\310\"\210.\344\207" [params result-params out-file cmdline in-file java split-string :results "" :file error "Eukleides requires a \":file\" header argument" :cmdline org-babel-temp-file "eukleides-" :java "`org-eukleides-path' is not set" expand-file-name " -b --output=" org-babel-process-file-name file-name-sans-extension ".eps" " " file-exists-p "Could not find eukleides at %s" file-name-extension "png" shell-command format ".png" "Conversion to PNG not supported. Use a file with an EPS name" generate-new-buffer " *temp file*" t #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] write-region nil 0 message "%s" org-babel-eval org-eukleides-path cmd org-eukleides-eps-to-raster #1# #2=#:temp-file body] 6 (#$ . 853)]) #@62 Return an error because eukleides does not support sessions. (defalias 'org-babel-prep-session:eukleides #[(session params) "\300\301!\207" [error "Eukleides does not support sessions"] 2 (#$ . 2161)]) (provide 'ob-eukleides)