;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:39 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-asymptote.el
;;; in Emacs version 24.3.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 ("asymptote" . "asy")] 3)
#@62 Default arguments when evaluating an Asymptote source block.
(defvar org-babel-default-header-args:asymptote '((:results . "file") (:exports . "results")) (#$ . 681))
#@94 Execute a block of Asymptote code.
This function is called by `org-babel-execute-src-block'.
(defalias 'org-babel-execute:asymptote #[(body params) "\306\307\310\"A\206\n\311!\307\312\"A\211\203$\313\314\n\"\203$\315\316\n\"\206%\317\307\320\"A\321\322!\323\n\203?\324\325\326\n!R\202@\327\330\f\330\326
!\260$
\331\332\333!!%&\334\216r%q\210\335'\336!#c\210)r%q\210\337\340\211&\340\341%\210,\342$!\210\343$!\210.\340\207" [params result-params out-file format cmdline in-file split-string assoc :results "" :file string-match ".+\\.\\(.+\\)" match-string 1 "pdf" :cmdline org-babel-temp-file "asymptote-" "asy " "-globalwrite -f " " -o " org-babel-process-file-name "-V" " " get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) org-babel-expand-body:generic org-babel-variable-assignments:asymptote write-region nil 0 message shell-command cmd #1# #2=#:temp-file body] 8 (#$ . 854)])
#@93 Return an error if the :session header argument is set.
Asymptote does not support sessions
(defalias 'org-babel-prep-session:asymptote #[(session params) "\300\301!\207" [error "Asymptote does not support sessions"] 2 (#$ . 1872)])
#@70 Return list of asymptote statements assigning the block's variables.
(defalias 'org-babel-variable-assignments:asymptote #[(params) "\301\302\301\303\304\305\"\"\"\207" [params mapcar org-babel-asymptote-var-to-asymptote cdr org-babel-get-header :var] 7 (#$ . 2111)])
#@147 Convert an elisp value into an Asymptote variable.
The elisp value PAIR is converted into Asymptote code specifying
a variable of the same value.
(defalias 'org-babel-asymptote-var-to-asymptote #[(pair) "@A\2119\203\306	!\202	)\n\250\203!\307\310\n#\202\215\311\n!\203/\307\312\n#\202\215\n;\203<\307\313\n#\202\215\n<\203i\n@<\204i\314\n!\211\315=\203U\316\202V\317\320\321\n\322#\307\323\f$+\202\215\n<\205\215\314\n!\211\315=\203|\316\202}\317\320\324\n\325#\307\326\f$+*\207" [pair v val var type fmt symbol-name format "int %S=%S;" floatp "real %S=%S;" "string %S=\"%s\";" org-babel-asymptote-define-type string "\"%s\"" "%s" mapconcat #[(e) "\302	\"\207" [fmt e format] 3] ", " "%s[] %S={%s};" #[(row) "\301\302\303\304#\305Q\207" [row "{" mapconcat #[(e) "\302	\"\207" [fmt e format] 3] ", " "}"] 5] "," "%S[][] %S={%s};" vect array] 6 (#$ . 2387)])
#@198 Determine type of DATA.

DATA is a list.  Return type as a symbol.

The type is `string' if any element in DATA is
a string.  Otherwise, it is either `real', if some elements are
floats, or `int'.
(defalias 'org-babel-asymptote-define-type #[(data) "\303\304\305\211\n!\210+\207" [type find-type data int nil #[(row) "\300\301\215\207" [exit (mapc #[(el) "<\203		!\207;\203\303\304\305\211\"\207\306!\205\307\211\207" [el find-type type throw exit string floatp real] 4] row)] 2]] 3 (#$ . 3294)])
(provide 'ob-asymptote)