| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\303\304\305\"\207" [require ob sha1 add-to-list org-babel-tangle-lang-exts ("processing" . "pde")] 3) | |
| 16 | #@62 Default arguments when evaluating a Processing source block. | |
| 17 | (defvar org-babel-default-header-args:processing '((:results . "html") (:exports . "results")) (#$ . 549)) | |
| 18 | #@37 Filename of the processing.js file. | |
| 19 | (defvar org-babel-processing-processing-js-filename "processing.js" (#$ . 723)) | |
| 20 | #@76 Show the sketch of the Processing block under point in an external viewer. | |
| 21 | (defalias 'org-babel-processing-view-sketch #[0 "\303\304!\210\305 \211@\306\230\203\202 \211A@\307\3108!\311\312!#\313\314\306\315\"\262\316\317!\313\315\320#)\266\203\203> \321!\210\202 \211\262\211\322\317!\323R\211\324\325\326!!\327\330\331\332\333!\334\"\310$\216r\211q\210c\210)r\211q\210\335\313\211\313\330%\210*\266\336!\210\337 \210\340 )\266\202\266\203\202\205 \341\342!\207" [org-babel-temporary-directory temporary-file-directory inhibit-changing-match-data require processing-mode org-babel-get-src-block-info "processing" org-babel-process-params 2 org-babel-expand-body:generic org-babel-variable-assignments:processing nil make-temp-file t "-" file-name-nondirectory string-match delete-directory "/" ".pde" get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] write-region find-file processing-sketch-run kill-buffer message "Not inside a Processing source block."] 14 (#$ . 845) nil]) | |
| 22 | #@113 Execute a block of Processing code. | |
| 23 | This function is called by `org-babel-execute-src-block'. | |
| 24 | ||
| 25 | (fn BODY PARAMS) | |
| 26 | (defalias 'org-babel-execute:processing #[514 "\301\302!#\303\304!P\305\306\307\310\311\312\260\n\262\207" [org-babel-processing-processing-js-filename org-babel-expand-body:generic org-babel-variable-assignments:processing "ob-" sha1 "<script src=\"" "\"></script>\n <script type=\"text/processing\"" " data-processing-target=\"" "\">\n" "\n</script> <canvas id=\"" "\"></canvas>"] 14 (#$ . 1947)]) | |
| 27 | #@115 Return an error if the :session header argument is set. | |
| 28 | Processing does not support sessions | |
| 29 | ||
| 30 | (fn SESSION PARAMS) | |
| 31 | (defalias 'org-babel-prep-session:processing #[514 "\300\301!\207" [error "Processing does not support sessions"] 4 (#$ . 2477)]) | |
| 32 | #@84 Return list of processing statements assigning the block's variables. | |
| 33 | ||
| 34 | (fn PARAMS) | |
| 35 | (defalias 'org-babel-variable-assignments:processing #[257 "\300\301\302!\"\207" [mapcar org-babel-processing-var-to-processing org-babel--get-vars] 5 (#$ . 2727)]) | |
| 36 | #@159 Convert an elisp value into a Processing variable. | |
| 37 | The elisp value PAIR is converted into Processing code specifying | |
| 38 | a variable of the same value. | |
| 39 | ||
| 40 | (fn PAIR) | |
| 41 | (defalias 'org-babel-processing-var-to-processing #[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 "float %S=%S;" "String %S=\"%s\";" org-babel-processing-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 (#$ . 2983)]) | |
| 42 | #@209 Determine type of DATA. | |
| 43 | ||
| 44 | DATA is a list. Return type as a symbol. | |
| 45 | ||
| 46 | The type is `String' if any element in DATA is a string. | |
| 47 | Otherwise, it is either `float', if some elements are floats, or | |
| 48 | `int'. | |
| 49 | ||
| 50 | (fn DATA) | |
| 51 | (defalias 'org-babel-processing-define-type #[257 "\300C\300C\301\240\210\211\302\303\304\305\306\"\307\"\310\311%\240\210\3122# \211\242!0\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\210A\266\202\202 \300\242\207" vconcat vector [throw exit String floatp float] 6 "\n\n(fn ROW)" exit] 11 (#$ . 4067)]) | |
| 52 | (provide 'ob-processing) | |
