%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/org/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/org/ob-picolisp.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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$\216rq\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!\332\346\376\335\336!\377\"\201A$\216r\211q\210\201BPc\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" [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\205CG\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] org-babel-picolisp-cmd 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 (#$ . 3994)])
(provide 'ob-picolisp)

Zerion Mini Shell 1.0