| 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\302\303\304\"\207" [require ob add-to-list org-babel-tangle-lang-exts ("io" . "io")] 3) | |
| 16 | (defvar org-babel-default-header-args:io nil) | |
| 17 | #@51 Name of the command to use for executing Io code. | |
| 18 | (defvar org-babel-io-command "io" (#$ . 568)) | |
| 19 | #@120 Execute a block of Io code with org-babel. This function is | |
| 20 | called by `org-babel-execute-src-block' | |
| 21 | ||
| 22 | (fn BODY PARAMS) | |
| 23 | (defalias 'org-babel-execute:io #[514 "\300\301!\210\302!\303@!\3048\305\236A\306\"\307$\310\311\312\n\236A\313 \236A\"\311\314 \236A\315\f\236A\"#\207" [message "executing Io source code block" org-babel-process-params org-babel-io-initiate-session 2 :result-type org-babel-expand-body:generic org-babel-io-evaluate org-babel-reassemble-table org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 15 (#$ . 671)]) | |
| 24 | (defvar org-babel-io-wrapper-method "(\n%s\n) asString print\n") | |
| 25 | #@258 Evaluate BODY in external Io process. | |
| 26 | If RESULT-TYPE equals `output' then return standard output as a string. | |
| 27 | If RESULT-TYPE equals `value' then return the value of the last statement | |
| 28 | in BODY as elisp. | |
| 29 | ||
| 30 | (fn SESSION BODY &optional RESULT-TYPE RESULT-PARAMS) | |
| 31 | (defalias 'org-babel-io-evaluate #[1026 "\203 \302\303!\210\304\267\202\332 \305\235\203 \306\"\207\307\310!\211\311\312\313!!\314\315\316\317\320!\321\"\322$\216r\211q\210c\210)r\211q\210\323\324\211\324\315%\210*\266\306\325Q\326\"\207\307\310!\327 \"\311\312\313!!\314\315\316\317\320!\330\"\322$\216r\211q\210c\210)r\211q\210\323\324\211\324\315%\210*\266\306\325Q\326\"\331\235?\205\325 \332\235\204\316 \333\235\204\316 \334\235\204\316 \335\235\204\316 \336\235\204\316 \337\235\204\316 \340\235\204\310 \341\235\204\310 \342\235\204\310 \343\235\203\322 \344\235\204\322 \202\325 \345!\262\262\207\324\207" [org-babel-io-command org-babel-io-wrapper-method error "Sessions are not (yet) supported for Io" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (output 14 value 77)) "repl" org-babel-eval org-babel-temp-file "io-" 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] 2 write-region nil " " "" format [buffer-name kill-buffer] "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" org-babel-script-escape] 14 (#$ . 1311)]) | |
| 32 | #@93 Prepare SESSION according to the header arguments specified in PARAMS. | |
| 33 | ||
| 34 | (fn SESSION PARAMS) | |
| 35 | (defalias 'org-babel-prep-session:io #[514 "\300\301!\207" [error "Sessions are not (yet) supported for Io"] 4 (#$ . 2819)]) | |
| 36 | #@167 If there is not a current inferior-process-buffer in SESSION | |
| 37 | then create. Return the initialized session. Sessions are not | |
| 38 | supported in Io. | |
| 39 | ||
| 40 | (fn &optional SESSION) | |
| 41 | (defalias 'org-babel-io-initiate-session #[256 "\300\207" [nil] 2 (#$ . 3043)]) | |
| 42 | (provide 'ob-io) | |
