| 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!\210\303\304\305\"\207" [require ob comint add-to-list org-babel-tangle-lang-exts ("picolisp" . "l")] 3) | |
| 16 | #@51 String to indicate that evaluation has completed. | |
| 17 | (defvar org-babel-picolisp-eoe "org-babel-picolisp-eoe" (#$ . 547)) | |
| 18 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable org-babel-picolisp-cmd funcall function #[0 "\300\207" [#1="pil"] 1 #1#] "Name of command used to evaluate picolisp blocks." :group org-babel :version "24.1" :type string] 10) | |
| 19 | #@78 Expand BODY according to PARAMS, return the expanded body. | |
| 20 | ||
| 21 | (fn BODY PARAMS) | |
| 22 | (defalias 'org-babel-expand-body:picolisp #[514 "\302!\303\211\211G\304V\203 \305\306\307\310#\311\312\260\202 *\207" [print-length print-level org-babel--get-vars nil 0 "(prog (let (" mapconcat #[257 "\300\301\302@!\302A!#\207" [format "%S '%S)" print] 6 "\n\n(fn VAR)"] "\n " " \n" ") )"] 8 (#$ . 942)]) | |
| 23 | #@127 Execute a block of Picolisp code with org-babel. This function is | |
| 24 | called by `org-babel-execute-src-block' | |
| 25 | ||
| 26 | (fn BODY PARAMS) | |
| 27 | (defalias 'org-babel-execute:picolisp #[514 "\306\307!\210\310\236A\311!\312\236A\313\"\314\235\204 \315\235\203& \316\317\"\202E \320\235\2037 \2047 \316\321\"\202E \320\235\203D \316\322\"\202E \211\323\230\204\362 \324\325\326\327\330\331\332\333\334\335\336 !\337\"\340\341%\342 !\204k \343\344\f\"\210\345 \332\346\347\335\336!\350\"\351$\216r q\210\212\352\353C\332\333\354\335\336!\355\"\356\357% B\330\360\361p!!b\210`d{\262|\266\nc\210\362 \210\363\n\261\210\362 \210 b\210\212\364\365\n!\330\366#\205\310 \364\f\330\366#)\204\325 \367\361p!!\210\202\265 \360\361p!!b\210\211c\210\370\242\f\")\266\202,\262\"\"!\371#\202:\372\373!\211\374\375\376!!\332\346\377\335\336!\201@ \"\201A $\216r\211q\210\201B Pc\210)r\211q\210\201C \330\211\330\346%\210*\266\201D \316\201E \201F !#\353\"\262\323\235?\205\237\201G \235\204\226\201H \235\204\226\201I \235\204\226\314\235\204\226\315\235\204\226\201J \235\204\226\201K \235\204\216\201L \235\204\216\201M \235\204\216\201N \235\203\232\201O \235\204\232\202\237\201P !\262\207" [comint-input-filter comint-output-filter-functions org-babel-picolisp-eoe comint-last-input-end comint-prompt-regexp org-babel-picolisp-cmd message "executing Picolisp source code block" :session org-babel-picolisp-initiate-session :result-params org-babel-expand-body:picolisp "code" "pp" format "(pretty (out \"/dev/null\" %s))" "value" "(print (out \"/dev/null\" %s))" "(out \"/dev/null\" %s)" "none" mapconcat identity butlast delq nil mapcar make-byte-code 257 "\302G\303V\205@ G\304Y\203 \303\304O\305\230\203 \304\306O\202@ \307\300\235\203? \310\306\311\312#)\266\203\203? \303\312\310\"O\202@ !\207" vconcat vector [inhibit-changing-match-data org-babel-chomp 0 3 "-> " nil "output" "->" t string-match] 9 "\n\n(fn LINE)" org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" match-data 0 "\301\300\302\"\207" [set-match-data evaporate] 3 #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] "" "\300\211\242P\240\207" [] 4 "\n\n(fn TEXT)" process-mark get-buffer-process comint-send-input "'" re-search-forward regexp-quote t accept-process-output split-string "\n" org-babel-temp-file "picolisp-script-" get-buffer-create generate-new-buffer-name " *temp file*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] 2 "(bye)" write-region org-babel-eval "%s %s" org-babel-process-file-name "scalar" "verbatim" "html" "file" "output" "raw" "org" "drawer" "table" read] 22 (#$ . 1348)]) | |
| 28 | #@137 If there is not a current inferior-process-buffer in SESSION | |
| 29 | then create. Return the initialized session. | |
| 30 | ||
| 31 | (fn &optional SESSION-NAME) | |
| 32 | (defalias 'org-babel-picolisp-initiate-session #[256 "\211\301\230?\2058 \302\303!\210\211\206 \304\305!\203 \306!\2026 \307 \310\311\312\313\314!\315\"\316$\216\317!\210\320!\210p)\262\262\207" [org-babel-picolisp-cmd "none" require inferior-picolisp "*inferior-picolisp*" org-babel-comint-buffer-livep get-buffer current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 run-picolisp rename-buffer] 9 (#$ . 4015)]) | |
| 33 | (provide 'ob-picolisp) | |
