ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-sh.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\300\302!\207" [require ob shell] 2)
(defvar org-babel-default-header-args:sh nil)
#@83 Command used to invoke a shell.
This will be passed to `shell-command-on-region'
(defvar org-babel-sh-command "sh" (#$ . 518))
#@70 Format string used to escape variables when passed to shell scripts.
(custom-declare-variable 'org-babel-sh-var-quote-fmt "$(cat <<'BABEL_TABLE'\n%s\nBABEL_TABLE\n)" '(#$ . 652) :group 'org-babel :type 'string)
#@105 Execute a block of Shell commands with Babel.
This function is called by `org-babel-execute-src-block'.
(defalias 'org-babel-execute:sh #[(body params) "\305\306\307\"A!\306\310\"A\211\205 \311\312\n!!)\313 \314!# \315\316 \f\n$\317\306\320\"A\306\321\"A\"\317\306\322\"A\306\323\"A\"#+\207" [params session stdin body full-body org-babel-sh-initiate-session assoc :session :stdin org-babel-sh-var-to-string org-babel-ref-resolve org-babel-expand-body:generic org-babel-variable-assignments:sh org-babel-reassemble-table org-babel-sh-evaluate org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 9 (#$ . 870)])
#@72 Prepare SESSION according to the header arguments specified in PARAMS.
(defalias 'org-babel-prep-session:sh #[(session params) "\304!\305 !\212\306 \307\216\310!\204 \311\312\"\210q\210\313\314\n\"\210+*\207" [session params var-lines save-match-data-internal org-babel-sh-initiate-session org-babel-variable-assignments:sh match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" mapc #[(var) "c\210\302\303\304\"\210\305 !\207" [var session comint-send-input nil t org-babel-comint-wait-for-output] 3]] 3 (#$ . 1518)])
#@25 Load BODY into SESSION.
(defalias 'org-babel-load-session:sh #[(session body params) "\305 \306\216\307 \n\"r q\210\310\311p!!b\210\312\f!c\210) +\207" [#1=#:wconfig session params buffer body current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] org-babel-prep-session:sh process-mark get-buffer-process org-babel-chomp] 3 (#$ . 2169)])
#@66 Return list of shell statements assigning the block's variables.
(defalias 'org-babel-variable-assignments:sh #[(params) "\302\303\"A\304\305\304\306\307\310\"\"\")\207" [params sep assoc :separator mapcar #[(pair) "\302\303@\304A \"#\207" [pair sep format "%s=%s" org-babel-sh-var-to-sh] 6] cdr org-babel-get-header :var] 7 (#$ . 2543)])
#@134 Convert an elisp value to a shell variable.
Convert an elisp var into a string of shell commands specifying a
var of the same value.
(defalias 'org-babel-sh-var-to-sh #[(var &optional sep) "\303\304 \n\"\"\207" [org-babel-sh-var-quote-fmt var sep format org-babel-sh-var-to-string] 5 (#$ . 2894)])
#@37 Convert an elisp value to a string.
(defalias 'org-babel-sh-var-to-string #[(var &optional sep) "\303 <\203# @<\204 @\304\232\203# \305 \306\n\206 \307\310F\"\2023 <\2030 \311 \312#\2023 !)\207" [echo-var var sep #[(v) ";\203 \207\301\302\"\207" [v format "%S"] 3] hline orgtbl-to-generic :sep " " :fmt mapconcat "\n"] 6 (#$ . 3199)])
#@168 Convert RESULTS to an appropriate elisp value.
If the results look like a table, then convert them into an
Emacs-lisp table, otherwise return the results as a string.
(defalias 'org-babel-sh-table-or-results #[(results) "\301!\207" [results org-babel-script-escape] 2 (#$ . 3555)])
#@55 Initiate a session named SESSION according to PARAMS.
(defalias 'org-babel-sh-initiate-session #[(&optional session params) "\205# \303\230?\205# \304 \305\216\306!\206\" \307!\210\n`\310\223\210\311p!*\207" [session #1=#:wconfig comint-last-output-start "none" current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] org-babel-comint-buffer-livep shell nil get-buffer] 3 (#$ . 3844)])
#@51 String to indicate that evaluation has completed.
(defvar org-babel-sh-eoe-indicator "echo 'org_babel_sh_eoe'" (#$ . 4267))
#@51 String to indicate that evaluation has completed.
(defvar org-babel-sh-eoe-output "org_babel_sh_eoe" (#$ . 4397))
#@216 Pass BODY to the Shell process in BUFFER.
If RESULT-TYPE equals 'output then return a list of the outputs
of the statements in BODY, if RESULT-TYPE equals 'value then
return the value of the last statement in BODY.
(defalias 'org-babel-sh-evaluate #[(session body &optional params stdin) "\203\237 \306\307!\306\310!\311\312 \"A\311\313 \"A\314\230? \211 \315\316\317!! @ A\320\216r@q\210 \2035 \321Pc\210\n\203< \321c\210Bc\210)r@q\210\322\323\211A\323\324%\210,\325
\326\"\210\f\315\316\317!! C D\327\216rCq\210c\210)rCq\210\322\323\211D\323\324%\210,\330\331! ErEq\210\332\216\333 \203\216
\202\224 \334\335F
#\fp#\210\336 .\202\313G\203[\337\340\341\342\343\212\344 H\345\216\346G!\204\275 \347\350G\"\210Gq\210\351\323\211 I J K\352LBL\353\216\354\355p!!b\210`d M\211 NM{JNM|\210*\356\357\360\361\342B!\321\"OC\"\"\210Pb\210\212\362\363Q!\323\364#\205\362R\323\364#)\204 \365\355p!!\210\202\374 \354\355p!!b\210Jc\210)B\203K\366\367\321\370\363B\206;\351!#K\"\203KK\324\225\323OI\361KR\".\371\"\"\321#\202\313\311\312 \"A\203\303\311\312 \"AG\324V\203\303\306\307!\311\312 \"A\311\313 \"A\314\232?\211 \315\316\317!! S T\372\216rSq\210 \203\233 \321Pc\210\n\203\242\321c\210Bc\210)rSq\210\322\323\211T\323\324%\210,\325
\326\"\210\373
\351\"+\202\313\373F\342B!\"\211 U\205t\311\374 \"A\211 V W\375W\235?\205s\376W\235\2049\377W\235\2049\201[ W\235\2049\201\\ W\235\2049\201] W\235\2049\201^ W\235\2040\201_ W\235\2040\201` W\235\2040\201a W\235\203>\201b W\235\204>U\202s\306\201c !\211 X\315\316\317!! Y Z\201d \216rYq\210Uc\210)rYq\210\322\323\211Z\323\324%\210,\201e X!)*)\207" [stdin params padline shebang stdin-file script-file org-babel-temp-file "sh-script-" "sh-stdin-" assoc :shebang :padline "no" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] "\n" write-region nil 0 set-file-modes 493 #[nil "\301!\205 \302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#3=#:temp-buffer buffer-name kill-buffer] 2] call-process-shell-command format "%s %s" buffer-string mapconcat org-babel-sh-strip-weird-long-prompt mapcar org-babel-trim butlast match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" "" #[(text) " P\211\207" [string-buffer text] 2] #[nil "A\211\207" [comint-output-filter-functions] 2] process-mark get-buffer-process mapc #[(line) "c\210\303\304\305\"\210\212 b\210\306\n\304\305#)?\205 \307\310p!!\210\202 \207" [line comint-last-input-end comint-prompt-regexp comint-send-input nil t re-search-forward accept-process-output get-buffer-process] 4] append split-string re-search-forward regexp-quote t accept-process-output string-match replace-regexp-in-string "[
\n]+" 2 #[nil "\301!\205 \302!\207" [#4=#:temp-buffer buffer-name kill-buffer] 2] org-babel-eval :result-params "none" "scalar" "verbatim" #1# #5=#:temp-file body #2# #6=#:temp-file #3# org-babel-sh-command session save-match-data-internal raw dangling-text string-buffer comint-output-filter-functions end start org-babel-sh-eoe-indicator comint-last-input-end org-babel-sh-eoe-output comint-prompt-regexp #4# #7=#:temp-file results result-params #8=#:--params tmp-file #9=#:temp-buffer #10=#:temp-file "html" "code" "pp" "output" "raw" "org" "drawer" "table" "sh-" #[nil "\301!\205 \302!\207" [#9# buffer-name kill-buffer] 2] org-babel-import-elisp-from-file] 12 (#$ . 4518)])
#@52 Remove prompt cruft from a string of shell output.
(defalias 'org-babel-sh-strip-weird-long-prompt #[(string) "\301\302\"\203 \303\225\304O\202 \207" [string string-match "^% +[
\n$]+ *" 0 nil] 3 (#$ . 8172)])
(provide 'ob-sh)
Kontol Shell Bypass