;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:41 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-io.el
;;; in Emacs version 24.3.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\300\302!\210\300\303!\210\300\304!\210\305\306\307\"\207" [require ob ob-ref ob-comint ob-eval add-to-list org-babel-tangle-lang-exts ("io" . "io")] 3)
(defvar org-babel-default-header-args:io nil)
#@51 Name of the command to use for executing Io code.
(defvar org-babel-io-command "io" (#$ . 776))
#@102 Execute a block of Io code with org-babel.  This function is
called by `org-babel-execute-src-block'
(defalias 'org-babel-execute:io #[(body params) "\306\307!\210\310!\311	@!	A@\312	8\313\314\"A\315\"\316\n
\f$\317\320\313\321\"A\313\322\"A\"\320\313\323\"A\313\324\"A\"#.\207" [params processed-params session vars result-params result-type message "executing Io source code block" org-babel-process-params org-babel-io-initiate-session 2 assoc :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 body full-body result] 8 (#$ . 879)])
#@166 Convert RESULTS into an appropriate elisp value.
If RESULTS look like a table, then convert them into an
Emacs-lisp table, otherwise return the results as a string.
(defalias 'org-babel-io-table-or-string #[(results) "\301!\207" [results org-babel-script-escape] 2 (#$ . 1556)])
(defvar org-babel-io-wrapper-method "(\n%s\n) asString print\n")
#@201 Evaluate BODY in external Io process.
If RESULT-TYPE equals 'output then return standard output as a string.
If RESULT-TYPE equals 'value then return the value of the last statement
in BODY as elisp.
(defalias 'org-babel-io-evaluate #[(session body &optional result-type result-params) "\203\306\307!\210\310	\311\"\203K\312\n\235\203\313\f\"\207\314\315!\211\316\317\320!!\321\216rq\210\fc\210)rq\210\322\323\211\323\324%\210,\313\325
Q\326\")\207\310	\327\"\205\233\314\315!\330\f\"
\316\317\320!! !\331\216r q\210c\210)r q\210\322\323\211!\323\324%\210,\313\325
Q\326\"\"\332\n\235\203\226\"\202\232\333\"!+\207" [session result-type result-params org-babel-io-command body src-file error "Sessions are not (yet) supported for Io" eql output "repl" org-babel-eval org-babel-temp-file "io-" 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)) write-region nil 0 " " "" value format ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) "code" org-babel-io-table-or-string #1# #3=#:temp-file org-babel-io-wrapper-method wrapper #2# #4=#:temp-file raw] 7 (#$ . 1908)])
#@72 Prepare SESSION according to the header arguments specified in PARAMS.
(defalias 'org-babel-prep-session:io #[(session params) "\300\301!\207" [error "Sessions are not (yet) supported for Io"] 2 (#$ . 3159)])
#@143 If there is not a current inferior-process-buffer in SESSION
then create.  Return the initialized session.  Sessions are not
supported in Io.
(defalias 'org-babel-io-initiate-session #[(&optional session) "\300\207" [nil] 1 (#$ . 3375)])
(provide 'ob-io)