ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-io.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 ("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" (#$ . 570))
#@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 (#$ . 673)])
#@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 (#$ . 1350)])
(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\216r&q\210\fc\210)r&q\210\322\323\211'\323\324%\210,\313 \325
Q\326\")\207\310 \327\"\205\346 \314\315! \330(\f\" )
\316\317\320!! * +\331\216r*q\210)c\210)r*q\210\322\323\211+\323\324%\210,\313 \325
Q\326\" ,\n -\332-\235?\205\345 \333-\235\204\334 \334-\235\204\334 \335-\235\204\334 \336-\235\204\334 \337-\235\204\334 \340-\235\204\325 \341-\235\204\325 \342-\235\204\325 \343-\235\203\341 \344-\235\204\341 ,\202\345 \345,!,\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*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] write-region nil 0 " " "" value format #[nil "\301!\205 \302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] "none" "scalar" "verbatim" "html" "code" "pp" "output" "raw" "org" "drawer" "table" org-babel-io-table-or-string #1# #3=#:temp-file org-babel-io-wrapper-method wrapper #2# #4=#:temp-file raw #5=#:--params] 7 (#$ . 1702)])
#@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 (#$ . 3204)])
#@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 (#$ . 3420)])
(provide 'ob-io)
Kontol Shell Bypass