ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-asymptote.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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")) (#$ . 532))
#@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*" #[nil "\301!\205 \302!\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 (#$ . 705)])
#@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 (#$ . 1707)])
#@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 (#$ . 1946)])
#@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 (#$ . 2222)])
#@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) "\3012 \302\303\"0\207" [row 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]] 3]] 3 (#$ . 3129)])
(provide 'ob-asymptote)
Kontol Shell Bypass