;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:44 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-screen.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!\207" [require ob ob-ref] 2)
#@109 The command location for screen.
In case you want to use a different screen than one selected by your $PATH
(defvar org-babel-screen-location "screen" (#$ . 620))
#@61 Default arguments to use when running screen source blocks.
(defvar org-babel-default-header-args:screen '((:results . "silent") (:session . "default") (:cmd . "sh") (:terminal . "xterm")) (#$ . 789))
#@110 Send a block of code via screen to a terminal using Babel.
"default" session is used when none is specified.
(defalias 'org-babel-execute:screen #[(body params) "\305\306!\210\307 \310\216\311\312	\"A\313\n!\211\204\314\n	\"\210\315\n\316\f	\"\",\207" [#1=#:wconfig params session socket body message "Sending source code block to interactive terminal session..." current-window-configuration ((set-window-configuration #1#)) assoc :session org-babel-screen-session-socketname org-babel-prep-session:screen org-babel-screen-session-execute-string org-babel-expand-body:generic] 6 (#$ . 997)])
#@72 Prepare SESSION according to the header arguments specified in PARAMS.
(defalias 'org-babel-prep-session:screen #[(session params) "\306\307\"A\310	!\306\311\"A\306\312\"A\313	\314Q\315\316
\317\f\320\321	P\322\323\324\325\326	P\257	%\210\310	!?\205<\2022-\207" [params session socket cmd terminal process-name assoc :session org-babel-screen-session-socketname :cmd :terminal "org-babel: terminal (" ")" apply start-process "*Messages*" "-T" "org-babel: " "-e" "-c" "/dev/null" "-mS" "org-babel-session-" org-babel-screen-location] 14 (#$ . 1601)])
#@37 If SESSION exists, send BODY to it.
(defalias 'org-babel-screen-session-execute-string #[(session body) "\305!\211\205&\306\n\"\307\310\311\312Q\313\f\314	\315\316\317\320P\321BBBBBB%))\207" [session socket body tmpfile org-babel-screen-location org-babel-screen-session-socketname org-babel-screen-session-write-temp-file apply start-process "org-babel: screen (" ")" "*Messages*" "-S" "-X" "eval" "msgwait 0" "readreg z " ("paste z")] 13 (#$ . 2170)])
#@60 Check if SESSION exists by parsing output of "screen -ls".
(defalias 'org-babel-screen-session-socketname #[(session) "\303\304!\305\306\307\310\311\312\"\"\"\305\306\307\313	\"\"@\211\205 \311\n!@+\207" [screen-ls sockets match-socket shell-command-to-string "screen -ls" delq nil mapcar #[(x) "\301\302\"\205\207" [x string-match "\\(?:(\\(?:\\(?:At\\|De\\)tached)\\)\\)"] 3] split-string "\n" #[(x) "\302\303P	\"\205\n	\207" [session x string-match "org-babel-session-"] 3]] 8 (#$ . 2637)])
#@55 Save BODY in a temp file that is named after SESSION.
(defalias 'org-babel-screen-session-write-temp-file #[(session body) "\305P\211\306\307\310!!\311\216r\nq\210\fc\210eb\210\312\313!\210)r\nq\210\314\315\211\315\316%\210,	)\207" [session tmpfile #1=#:temp-buffer #2=#:temp-file body "/tmp/screen.org-babel-session-" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) delete-matching-lines "^ +$" write-region nil 0] 7 (#$ . 3148)])
#@71 Test if the default setup works.
The terminal should shortly flicker.
(defalias 'org-babel-screen-test #[nil "\306\307\310\311\312!\"\313\314	\315\n\316\260\317\211\320\"\210\321\n!\204*\307\322!\210\202\323\324!rq\210\325\216\326\n!\210ed{+\327\n!\210\330\331\332	
\"\203P\333\202Q\334P!.\207" [session random-string tmpfile body process tmp-string "org-babel-testing" format "%s" random 99999 "/tmp/org-babel-screen.test" "echo '" "' > " "\nexit\n" nil org-babel-execute:screen file-readable-p "org-babel-screen: File not readable yet." generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents-literally delete-file message "org-babel-screen: Setup " string-match "WORKS." "DOESN'T work." org-babel-default-header-args:screen #1#] 6 (#$ . 3681) nil])
(provide 'ob-screen)