;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:43 2024
;;; 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\211G\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\211BCD\343EBE\344\216\345\346p!!b\210`dF\211GF{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!\211K\361\362\363!!LM\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\204U
OG\367U\203Z
O\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\205AG\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)