Edit file File name : ob-picolisp.elc Content :;ELC ;;; Compiled ;;; in Emacs version 27.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\303\304\305\"\207" [require ob comint add-to-list org-babel-tangle-lang-exts ("picolisp" . "l")] 3) #@51 String to indicate that evaluation has completed. (defvar org-babel-picolisp-eoe "org-babel-picolisp-eoe" (#$ . 547)) (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) #@78 Expand BODY according to PARAMS, return the expanded body. (fn BODY PARAMS) (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)]) #@126 Execute a block of Picolisp code with org-babel. This function is called by `org-babel-execute-src-block'. (fn BODY PARAMS) (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#\2026\372\373!\211\374\375!\332\346\376\335\336!\377\"\201@ $\216r\211q\210\201A Pc\210)r\211q\210\201B \330\211\330\346%\210*\266\201C \316\201D \201E !#\353\"\262\323\235?\205\233\201F \235\204\222\201G \235\204\222\201H \235\204\222\314\235\204\222\315\235\204\222\201I \235\204\222\201J \235\204\212\201K \235\204\212\201L \235\204\212\201M \235\203\226\201N \235\204\226\202\233\201O !\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\205C G\304Y\203 \305\303\304#\306\230\203 \305\304\"\202C \307\300\235\203B \310\311\312\313#)\266\203\203B \305\303\313\310\"#\202C !\207" vconcat vector [inhibit-changing-match-data org-babel-chomp 0 3 substring "-> " "output" "->" nil 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-" generate-new-buffer " *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)]) #@137 If there is not a current inferior-process-buffer in SESSION then create. Return the initialized session. (fn &optional SESSION-NAME) (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 (#$ . 4004)]) (provide 'ob-picolisp) Save