;ELC ;;; Compiled ;;; in Emacs version 24.5.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*" ((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 (#$ . 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 (#$ . 1723)]) #@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 (#$ . 1962)]) #@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 (#$ . 2238)]) #@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 (#$ . 3145)]) (provide 'ob-asymptote)