| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302\303\304#\210\300\305\303\304#\210\306\307\310\311\312DD\313\314\315\316\317\320\321\322\323& \207" [require ob geiser nil t geiser-impl custom-declare-variable org-babel-scheme-null-to funcall function #[0 "\300\207" [hline] 1] "Replace `null' and empty lists in scheme tables with this before returning." :group org-babel :version "26.1" :package-version (Org . "9.1") :type symbol] 12) | |
| 16 | #@50 Default header arguments for scheme code blocks. | |
| 17 | (defvar org-babel-default-header-args:scheme nil (#$ . 830)) | |
| 18 | #@78 Expand BODY according to PARAMS, return the expanded body. | |
| 19 | ||
| 20 | (fn BODY PARAMS) | |
| 21 | (defalias 'org-babel-expand-body:scheme #[514 "\300!\301\236A\211\205 \211\302P\204 \202! \303\304\305\306\307##P\207" [org-babel--get-vars :prologue "\n" format "(let (%s)\n%s\n)" mapconcat #[257 "\300\301\302@\303ADD!\"\207" [format "%S" print quote] 7 "\n\n(fn VAR)"] "\n "] 11 (#$ . 946)]) | |
| 22 | #@42 Map of scheme sessions to session names. | |
| 23 | (defvar org-babel-scheme-repl-map (make-hash-table :test 'equal) (#$ . 1340)) | |
| 24 | #@40 Remove dead buffers from the REPL map. | |
| 25 | (defalias 'org-babel-scheme-cleanse-repl-map #[0 "\301\302\"\207" [org-babel-scheme-repl-map maphash #[514 "\301!?\205 \302\"\207" [org-babel-scheme-repl-map buffer-name remhash] 5 "\n\n(fn X Y)"]] 3 (#$ . 1465)]) | |
| 26 | #@93 Look up the scheme buffer for a session; return nil if it doesn't exist. | |
| 27 | ||
| 28 | (fn SESSION-NAME) | |
| 29 | (defalias 'org-babel-scheme-get-session-buffer #[257 "\301 \210\302\"\207" [org-babel-scheme-repl-map org-babel-scheme-cleanse-repl-map gethash] 4 (#$ . 1729)]) | |
| 30 | #@78 Record the scheme buffer used for a given session. | |
| 31 | ||
| 32 | (fn SESSION-NAME BUFFER) | |
| 33 | (defalias 'org-babel-scheme-set-session-buffer #[514 "\301#\207" [org-babel-scheme-repl-map puthash] 6 (#$ . 1990)]) | |
| 34 | #@83 Returns the scheme implementation geiser associates with the buffer. | |
| 35 | ||
| 36 | (fn BUFFER) | |
| 37 | (defalias 'org-babel-scheme-get-buffer-impl #[257 "r\211qq\210)\207" [geiser-impl--implementation] 2 (#$ . 2193)]) | |
| 38 | #@75 Switch to a scheme REPL, creating it if it doesn't exist: | |
| 39 | ||
| 40 | (fn IMPL NAME) | |
| 41 | (defalias 'org-babel-scheme-get-repl #[514 "\300!\211\206 \301!\210\203 \302\303\"\210\304p\"\210p\207" [org-babel-scheme-get-session-buffer run-geiser rename-buffer t org-babel-scheme-set-session-buffer] 6 (#$ . 2397)]) | |
| 42 | #@307 Generate a name for the session buffer. | |
| 43 | ||
| 44 | For a named session, the buffer name will be the session name. | |
| 45 | ||
| 46 | If the session is unnamed (nil), generate a name. | |
| 47 | ||
| 48 | If the session is `none', use nil for the session name, and | |
| 49 | org-babel-scheme-execute-with-geiser will use a temporary session. | |
| 50 | ||
| 51 | (fn BUFFER NAME IMPL) | |
| 52 | (defalias 'org-babel-scheme-make-session-name #[771 "\204\f \300\301!\302R\207\303\230\203 \304\207\207" [" " symbol-name " REPL" "none" nil] 7 (#$ . 2706)]) | |
| 53 | #@86 Capture current message in both interactive and noninteractive mode | |
| 54 | ||
| 55 | (fn &rest BODY) | |
| 56 | (defalias 'org-babel-scheme-capture-current-message '(macro . #[128 "\300\301\302\303\304\305\306\307\310\"BB\311BBE\305\307\312\"BF\207" [if noninteractive let ((original-message (symbol-function 'message)) (current-message nil)) unwind-protect progn (defun message (&rest args) (setq current-message (apply original-message args))) append (current-message) ((fset 'message original-message)) ((current-message))] 11 (#$ . 3182)])) | |
| 57 | #@246 Execute code in specified REPL. If the REPL doesn't exist, create it | |
| 58 | using the given scheme implementation. | |
| 59 | ||
| 60 | Returns the output of executing the code if the output parameter | |
| 61 | is true; otherwise returns the last value. | |
| 62 | ||
| 63 | (fn CODE OUTPUT IMPL REPL) | |
| 64 | (defalias 'org-babel-scheme-execute-with-geiser #[1028 "\306\307\310!r\211q\210\311\312\313\314\315!\316\"\317$\216\320\321\"c\210\322 \210c\210\323 \210\306\211r\324\")\325p!=\204D \326\327\2119\325p!\325p!9%\210\211\306\211\306 \330ed\"\203[ \331!\202_ \332\333\"\262\210*\204z r\211q\210\334 \210)\335\336!\306\"\210\337!\210\210,\210\211\207" [geiser-repl-use-other-window geiser-repl-window-allow-split geiser-repl--repl geiser-impl--implementation geiser-debug-show-debug-p geiser-debug-jump-to-debug-p nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 format ";; -*- geiser-scheme-implementation: %s -*-" newline geiser-mode org-babel-scheme-get-repl org-babel-scheme-get-buffer-impl message "Implementation mismatch: %s (%s) %s (%s)" geiser-eval-region geiser-eval--retort-output geiser-eval--retort-result-str "" geiser-repl-exit set-process-query-on-exit-flag get-buffer-process kill-buffer] 15 (#$ . 3710)]) | |
| 65 | #@192 Convert RESULTS into an appropriate elisp value. | |
| 66 | If the results look like a list or tuple, then convert them into an | |
| 67 | Emacs-lisp table, otherwise return the results as a string. | |
| 68 | ||
| 69 | (fn RESULTS) | |
| 70 | (defalias 'org-babel-scheme--table-or-string #[257 "\300!\211<\203 \301\302\"\202 \211\207" [org-babel-script-escape mapcar #[257 "\211\203\n \211\301=\203\f \207\207" [org-babel-scheme-null-to null] 3 "\n\n(fn EL)"]] 5 (#$ . 4977)]) | |
| 71 | #@123 Execute a block of Scheme code with org-babel. | |
| 72 | This function is called by `org-babel-execute-src-block' | |
| 73 | ||
| 74 | (fn BODY PARAMS) | |
| 75 | (defalias 'org-babel-execute:scheme #[514 "p\302\303\304\305!#\212\306\236A\307\236A\203 \310\307\236A!\206# \206# @\311\312\236A#\313\"\314\315\230\316\230?\205@ $\317\320\321 \236A\322\f\236A\"\320\323\f\236A\324 \236A\"#\325!\262\266\205)\207" [geiser-default-implementation geiser-active-implementations replace-regexp-in-string "^ ?\\*\\([^*]+\\)\\*" "\\1" buffer-name :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-reassemble-table org-babel-pick-name :colname-names :colnames :rowname-names :rownames org-babel-scheme--table-or-string] 16 (#$ . 5414)]) | |
| 76 | (provide 'ob-scheme) | |
