ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-scheme.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\303\304#\207" [require ob geiser nil t] 4)
#@50 Default header arguments for scheme code blocks.
(defvar org-babel-default-header-args:scheme nil (#$ . 487))
#@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 (#$ . 603)])
#@42 Map of scheme sessions to session names.
(defvar org-babel-scheme-repl-map (make-hash-table :test 'equal) (#$ . 997))
#@40 Remove dead buffers from the REPL map.
(defalias 'org-babel-scheme-cleanse-repl-map #[nil "\301\302\"\207" [org-babel-scheme-repl-map maphash #[(x y) "\303!?\205 \304 \n\"\207" [y x org-babel-scheme-repl-map buffer-name remhash] 3]] 3 (#$ . 1121)])
#@74 Look up the scheme buffer for a session; return nil if it doesn't exist.
(defalias 'org-babel-scheme-get-session-buffer #[(session-name) "\302 \210\303 \"\207" [session-name org-babel-scheme-repl-map org-babel-scheme-cleanse-repl-map gethash] 3 (#$ . 1379)])
#@52 Record the scheme buffer used for a given session.
(defalias 'org-babel-scheme-set-session-buffer #[(session-name buffer) "\303 \n#\207" [session-name buffer org-babel-scheme-repl-map puthash] 4 (#$ . 1645)])
#@70 Returns the scheme implementation geiser associates with the buffer.
(defalias 'org-babel-scheme-get-buffer-impl #[(buffer) "rqq\210 )\207" [buffer geiser-impl--implementation] 1 (#$ . 1861)])
#@59 Switch to a scheme REPL, creating it if it doesn't exist:
(defalias 'org-babel-scheme-get-repl #[(impl name) "\303!\211\206 \304\n!\210\203 \305\306\"\210\307p\"\210p)\207" [name buffer impl org-babel-scheme-get-session-buffer run-geiser rename-buffer t org-babel-scheme-set-session-buffer] 4 (#$ . 2061)])
#@284 Generate a name for the session buffer.
For a named session, the buffer name will be the session name.
If the session is unnamed (nil), generate a name.
If the session is `none', use nil for the session name, and
org-babel-scheme-execute-with-geiser will use a temporary session.
(defalias 'org-babel-scheme-make-session-name #[(buffer name impl) "\204\f \303\304\n!\305R\207\306\230\203 \307\207\207" [name buffer impl " " symbol-name " REPL" "none" nil] 5 (#$ . 2382)])
#@218 Execute code in specified REPL. If the REPL doesn't exist, create it
using the given scheme implementation.
Returns the output of executing the code if the output parameter
is true; otherwise returns the last value.
(defalias 'org-babel-scheme-execute-with-geiser #[(code output impl repl) "\306\307\310!r q\210\311\216\312\313\n\"c\210\314 \210 \203 \312\315\f\"\202! \fc\210\316 \210r\317\n
\") #\n\320p!=\204D \321\322\n\2119\320p!\320p!9%\210#$\306%\323ed\"\210\324 \325\326O\327\232\203c \330\331\332\324 #\202d \333
\204 r#q\210\334 \210)\335\336#!\306\"\210\337#!\210\340\230\206\210 \341\230?\205\217 \342!,)\207" [result #1=#:temp-buffer impl output code repl nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] format ";; -*- geiser-scheme-implementation: %s -*-" newline "(with-output-to-string (lambda () %s))" geiser-mode org-babel-scheme-get-repl org-babel-scheme-get-buffer-impl message "Implementation mismatch: %s (%s) %s (%s)" geiser-eval-region current-message 0 3 "=> " replace-regexp-in-string "^=> " "" "\"An error occurred.\"" geiser-repl-exit set-process-query-on-exit-flag get-buffer-process kill-buffer "#<void>" "#<unspecified>" read repl-buffer geiser-repl--repl geiser-impl--implementation] 7 (#$ . 2869)])
#@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) "p\306\307\310\311!#\212\312\313\314\n\"A\313\315\n\"A\203$ \316\313\315\n\"A!\206* \f\206*
@ \317 \313\320\n\"A# \321 \n\" \322 \323\230\324\230?\205Q $,\325\313\326\n\"A\313\327\n\"A\"\325\313\330\n\"A\313\331\n\"A\"#+\207" [source-buffer source-buffer-name params result-type geiser-default-implementation geiser-active-implementations replace-regexp-in-string "^ ?\\*\\([^*]+\\)\\*" "\\1" buffer-name org-babel-reassemble-table assoc :result-type :scheme intern org-babel-scheme-make-session-name :session org-babel-expand-body:scheme org-babel-scheme-execute-with-geiser "output" "none" org-babel-pick-name :colname-names :colnames :rowname-names :rownames impl session body full-body] 8 (#$ . 4175)])
(provide 'ob-scheme)
Kontol Shell Bypass