Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/org/ob-asymptote.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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")) (#$ . 530))
#@112 Execute a block of Asymptote code.
This function is called by `org-babel-execute-src-block'.

(fn BODY PARAMS)
(defalias 'org-babel-execute:asymptote #[514 "\300
\236A\301
!\206\302\303\236A\304\305!\306\203\"\307\310\311!R\202#\312\313\313\311!\260
\314\315!\316\317\320\321\322!\323\"\324$\216r\211q\210\325		\326!#c\210)r\211q\210\327\330\211\330\317%\210*\266\331
!\210\332
!\210\330\207" [:file file-name-extension "pdf" :cmdline org-babel-temp-file "asymptote-" "asy " "-globalwrite -f " " -o " org-babel-process-file-name "-V" " " generate-new-buffer " *temp file*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 org-babel-expand-body:generic org-babel-variable-assignments:asymptote write-region nil message shell-command] 15 (#$ . 704)])
#@115 Return an error if the :session header argument is set.
Asymptote does not support sessions.

(fn SESSION PARAMS)
(defalias 'org-babel-prep-session:asymptote #[514 "\300\301!\207" [error "Asymptote does not support sessions"] 4 (#$ . 1522)])
#@83 Return list of asymptote statements assigning the block's variables.

(fn PARAMS)
(defalias 'org-babel-variable-assignments:asymptote #[257 "\300\301\302!\"\207" [mapcar org-babel-asymptote-var-to-asymptote org-babel--get-vars] 5 (#$ . 1770)])
#@158 Convert an elisp value into an Asymptote variable.
The elisp value PAIR is converted into Asymptote code specifying
a variable of the same value.

(fn PAIR)
(defalias 'org-babel-asymptote-var-to-asymptote #[257 "\211@
A\2119\203\300
!\202\211\262
\211\250\203\301\302#\202\235\303
!\203-\301\304#\202\235\211;\203:\301\305#\202\235\211<\203p\211@<\204p\306
!\211\307=\203R\310\202S\311\312\313\314\315\316\317!\320\"\321\322%\323#\301\324$\266\203\202\235\211<\205\235\306
!\211\307=\203\202\310\202\203\311\312\313\314\325\316\317!\326\"\327\330%\331#\301\332$\266\203\207" [symbol-name format "int %S=%S;" floatp "real %S=%S;" "string %S=\"%s\";" org-babel-asymptote-define-type string "\"%s\"" "%s" mapconcat make-byte-code 257 "\301\300\"\207" vconcat vector [format] 4 "\n\n(fn E)" ", " "%s[] %S={%s};" "\301\302\303\304\305\306\307\300!\310\"\311\312%\313#\314Q\207" ["{" mapconcat make-byte-code 257 "\301\300\"\207" vconcat vector [format] 4 "\n\n(fn E)" ", " "}"] 9 "\n\n(fn ROW)" "," "%S[][] %S={%s};"] 12 (#$ . 2022)])
#@208 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'.

(fn DATA)
(defalias 'org-babel-asymptote-define-type #[257 "\300C\300C
\301\240\210\211\302\303\304\305\306\"\307\"\310\311%\240\210\3122#\211\242!0\210
\242\207" [nil int make-byte-code 257 "\211\211\2034\211@\211<\203\300\301\242!\240\210\202-\211;\203#\302\303\304\"\210\202-\305
!\203-\300\306\240\210
A\266\202\202
\300\242\207" vconcat vector [throw exit string floatp real] 6 "\n\n(fn ROW)" exit] 11 (#$ . 3101)])
(provide 'ob-asymptote)