;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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#\202H\320\235\2039\2049\316\321#\202H\320\235\203G\316\322#\202H\211\323\230\204\365\324\325\326\327\330\331\332\333\334\335\336 !\337\"\340\341%\342 !\204n\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%\nB\330\360\361p!!b\210`d{\262|\266\nc\210\362 \210\363 \261\210\362 \210\fb\210\212\364\365 !\330\366#\205\313\364 \330\366#)\204\330\367\361p!!\210\202\270\360\361p!!b\210\211c\210\370\242 \")\266\202,\262\"\"!\371#\202>\372\373!\211\374\375\376!!\332\346\377\335\336!\201A\"\201B$\216r\211q\210\201CPc\210)r\211q\210\201D\330\211\330\346%\210*\266\201E\316\201F@\201G!#\353\"\262\323\235?\205\243\201H\235\204\232\201I\235\204\232\201J\235\204\232\314\235\204\232\315\235\204\232\201K\235\204\232\201L\235\204\222\201M\235\204\222\201N\235\204\222\201O\235\203\236\201P\235\204\236\202\243\201Q!\262\207" [null-device comint-input-filter comint-output-filter-functions org-babel-picolisp-eoe comint-last-input-end comint-prompt-regexp message "executing Picolisp source code block" :session org-babel-picolisp-initiate-session :result-params org-babel-expand-body:picolisp "code" "pp" format "(pretty (out \"%s\" %s))" "value" "(print (out \"%s\" %s))" "(out \"%s\" %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" org-babel-picolisp-cmd [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)