| Current Path : /usr/share/emacs/24.3/lisp/org/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/org/ob-scheme.elc |
;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-scheme.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!\207" [require ob ob-ref ob-comint ob-eval] 2)
#@50 Default header arguments for scheme code blocks.
(defvar org-babel-default-header-args:scheme nil (#$ . 663))
#@51 String to indicate that evaluation has completed.
(defvar org-babel-scheme-eoe "org-babel-scheme-eoe" (#$ . 779))
#@49 Name of command used to evaluate scheme blocks.
(custom-declare-variable 'org-babel-scheme-cmd "guile" '(#$ . 899) :group 'org-babel :version "24.1" :type 'string)
#@60 Expand BODY according to PARAMS, return the expanded body.
(defalias 'org-babel-expand-body:scheme #[(body params) "\303\304\305\306\"\"\211G\307V\203 \310\311\312 \313#\314\n\315\260\202 \n)\207" [params vars body mapcar cdr org-babel-get-header :var 0 "(let (" mapconcat #[(var) "\301\302\303@\304ADD!\"\207" [var format "%S" print quote] 6] "\n " ")\n" ")"] 6 (#$ . 1069)])
#@105 Execute a block of Scheme code with org-babel.
This function is called by `org-babel-execute-src-block'
(defalias 'org-babel-execute:scheme #[(body params) "\306\307\"A\306\310\"A\206 \n\311 \" \312\306\313\"A\314\230\204\317 \315\306\313\"A\" \212\316 3\317\216\320
!\204; \321\322
\"\210
q\210\323\324\211 4 5 6\3257B7\326\216\327\330p!!b\210`d 8\211 98{598|\210*\331\332 \333\334:\"D\"\210;b\210\212\335\336\333\334:\"!\324\337#\205\215 \335<\324\337#)\204\232 \340\330p!!\210\202t \327\330p!!b\2105c\210) \203\304 \341\342\343\344\336 \206\264 \323!#6\"\203\304 6\345\225\324O4\3466<\".\202\347\350!\211 =\351\352\353!! > ?\354\216r>q\210 \355\230\203\362 \333\356\f\"\202\363 \fc\210)r>q\210\357\324\211?\324\345%\210,\360\333\361\n\362=!#\323\")!+\207" [params result-type org-babel-scheme-cmd body full-body session assoc :result-type :scheme org-babel-expand-body:scheme read :session "none" org-babel-prep-session:scheme match-data ((byte-code "\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" "" nil #[(text) " P\211\207" [string-buffer text] 2] ((byte-code "A\301\207" [comint-output-filter-functions nil] 1)) process-mark get-buffer-process mapc #[(line) "\301!c\210\302\303\304\"\207" [line org-babel-chomp comint-send-input nil t] 3] format "%S" re-search-forward regexp-quote t accept-process-output string-match replace-regexp-in-string "\n" "[
\n]+" 0 split-string org-babel-temp-file "scheme-script-" 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)) "value" "(display %s)" write-region org-babel-eval "%s %s" org-babel-process-file-name save-match-data-internal raw dangling-text string-buffer comint-output-filter-functions end start org-babel-scheme-eoe comint-last-input-end comint-prompt-regexp script-file #1# #2=#:temp-file] 8 (#$ . 1465)])
#@72 Prepare SESSION according to the header arguments specified in PARAMS.
(defalias 'org-babel-prep-session:scheme #[(session params) "\305!\306\307\310 \311\"\"\306\312\n\"\2036 \212\313 \314\216\315!\204& \316\317\"\210q\210\320\321!\210db\210\322\323 \"\210++\207" [session params vars var-lines save-match-data-internal org-babel-scheme-initiate-session mapcar cdr org-babel-get-header :var #[(var) "\301\302\303\304@\305ADE!\"\207" [var format "%S" print define quote] 7] match-data ((byte-code "\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" sit-for 0.5 mapc #[(var) "c\210\302\303\304\"\210\305 !\210\306\307!\210db\207" [var session comint-send-input nil t org-babel-comint-wait-for-output sit-for 0.1] 3]] 5 (#$ . 3481)])
#@108 If there is not a current inferior-process-buffer in SESSION
then create. Return the initialized session.
(defalias 'org-babel-scheme-initiate-session #[(&optional session) "\304\305!\210\306\230?\2051 \307 \310\216\311\n!\210\312!\210p*\313 !\203) \314\315!\210 \2020 \314\316!\210\317!)\207" [session #1=#:wconfig org-babel-scheme-cmd session-buffer require cmuscheme "none" current-window-configuration ((set-window-configuration #1#)) run-scheme rename-buffer org-babel-comint-buffer-livep sit-for 0.25 0.5 org-babel-scheme-initiate-session] 2 (#$ . 4336)])
(provide 'ob-scheme)