JezK
Edit File: ob-screen.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:52:44 2026 ;;; 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\320 P\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! r q\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)