ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-picolisp.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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" (#$ . 549))
#@51 Name of command used to evaluate picolisp blocks.
(custom-declare-variable 'org-babel-picolisp-cmd "pil" '(#$ . 673) :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) "\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 (#$ . 845)])
#@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 @ A \325\230\204\364 \326\327\330\331\332\333\334\212\335 B\336\216\337\n!\204w \340\341\n\"\210\nq\210\342\332\211 C D E\343FBF\344\216\345\346p!!b\210`d G\211 HG{DHG|\210*Ac\210\347 \210\350I\261\210\347 \210Jb\210\212\351\352I!\332\353#\205\313 \351K\332\353#)\204\330 \354\346p!!\210\202\265 \345\346p!!b\210Dc\210)\355EK\".\"\"!\356#\202-\357\360!\211 L\361\362\363!! M N\364\216rMq\210A\365Pc\210)rMq\210\366\332\211N\332\367%\210,\370\320\371O\372L!#\342\") P\f Q\325Q\235?\205\221\373Q\235\204\206\374Q\235\204\206\375Q\235\204\206\316Q\235\204\206\317Q\235\204\206\376Q\235\204}\377Q\235\204}\201R Q\235\204}\201S Q\235\203\213\201T Q\235\204\213P\202\221\201U P!.\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) "\303G\304V\205@ G\305Y\203 \304\305O\306\230\203 \305\307O\202@ \310 \235\203? \311\307\312\313#)\266\203\203? \304\313\311\"O\202@ !\207" [line result-params inhibit-changing-match-data org-babel-chomp 0 3 "-> " nil "output" "->" t string-match] 8] match-data #[nil "\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] #[nil "A\211\207" [comint-output-filter-functions] 2] 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*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] "(bye)" write-region 0 org-babel-eval "%s %s" org-babel-process-file-name "scalar" "verbatim" "html" "output" "raw" 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 #3=#:--params "org" "drawer" "table" read] 12 (#$ . 1333)])
#@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 #[nil "\301!\207" [#1# set-window-configuration] 2] run-picolisp rename-buffer] 2 (#$ . 4091)])
(provide 'ob-picolisp)
Kontol Shell Bypass