JezK
Edit File: ob-picolisp.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:52:43 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-picolisp.el ;;; in Emacs version 24.3.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\300\303!\210\300\304!\210\305\306\307\"\207" [require ob ob-eval ob-comint 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" (#$ . 741)) #@51 Name of command used to evaluate picolisp blocks. (custom-declare-variable 'org-babel-picolisp-cmd "pil" '(#$ . 865) :group 'org-babel :version "24.1" :type 'string) #@60 Expand BODY according to PARAMS, return the expanded body. (defalias 'org-babel-expand-body:picolisp #[(body params &optional processed-params) "\306\307\310\311\"\"\312\313\"A\314\211\211 G\315V\203' \316\317\320\f\321#\322 \323\260\202( ,\207" [params print-length print-level result-params vars body mapcar cdr org-babel-get-header :var assoc :result-params nil 0 "(prog (let (" mapconcat #[(var) "\301\302\303@!\303A!#\207" [var format "%S '%S)" print] 5] "\n " " \n" ") )"] 6 (#$ . 1037)]) #@109 Execute a block of Picolisp code with org-babel. This function is called by `org-babel-execute-src-block' (defalias 'org-babel-execute:picolisp #[(body params) "\306\307!\210\310\311\"A\312 !\310\313\"A\310\314\"A \315 \" ?\316\f\235\204, \317\f\235\2034 \320\321?\"\202V \322\f\235\203F \n\204F \320\323?\"\202V \322\f\235\203T \320\324?\"\202V ? @ \325\230\204\364 \326\327\330\331\332\333\334\212\335 A\336\216\337\n!\204w \340\341\n\"\210\nq\210\342\332\211 B C D\343EBE\344\216\345\346p!!b\210`d F\211 GF{CGF|\210*@c\210\347 \210\350H\261\210\347 \210Ib\210\212\351\352H!\332\353#\205\313 \351J\332\353#)\204\330 \354\346p!!\210\202\265 \345\346p!!b\210Cc\210)\355DJ\".\"\"!\356#\202-\357\360!\211 K\361\362\363!! L M\364\216rLq\210@\365Pc\210)rLq\210\366\332\211M\332\367%\210,\370\320\371N\372K!#\342\") O\373\f\235\204U\374\f\235\204U\375\f\235\204U\316\f\235\204U\317\f\235\204UOG\367U\203ZO\202^\376O!.\207" [params session-name session result-type result-params body message "executing Picolisp source code block" assoc :session org-babel-picolisp-initiate-session :result-type :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 #[(line) "\306G\307V\205A G\310Y\203 \307\310O\311\230\203 \310\312O\202A \313 \235\203@ \314\312 \315 \316\f \n#,\203@ \307\316\314\"O\202A !\207" [line result-params start string regexp inhibit-changing-match-data org-babel-chomp 0 3 "-> " nil "output" "->" t string-match] 6] match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" "" #[(text) " P\211\207" [string-buffer text] 2] ((byte-code "A\301\207" [comint-output-filter-functions nil] 1)) 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*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) "(bye)" write-region 0 org-babel-eval "%s %s" org-babel-process-file-name "verbatim" "scalar" "output" read full-body wrapped-body save-match-data-internal raw dangling-text string-buffer comint-output-filter-functions end start org-babel-picolisp-eoe comint-last-input-end comint-prompt-regexp script-file #1# #2=#:temp-file org-babel-picolisp-cmd result] 12 (#$ . 1553)]) #@108 If there is not a current inferior-process-buffer in SESSION then create. Return the initialized session. (defalias 'org-babel-picolisp-initiate-session #[(&optional session-name) "\304\230?\205- \305\306!\210\206 \307\310 !\203 \311 !\202, \312 \313\216\314 !\210\315!\210p*)\207" [session-name session #1=#:wconfig org-babel-picolisp-cmd "none" require inferior-picolisp "*inferior-picolisp*" org-babel-comint-buffer-livep get-buffer current-window-configuration ((set-window-configuration #1#)) run-picolisp rename-buffer] 2 (#$ . 4190)]) (provide 'ob-picolisp)