|
Server IP : 111.118.215.189 / Your IP : 18.117.158.174 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/org/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:44 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-shen.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'ob) #@48 Default header arguments for shen code blocks. (defvar org-babel-default-header-args:shen nil (#$ . 568)) #@60 Expand BODY according to PARAMS, return the expanded body. (defalias 'org-babel-expand-body:shen #[(body params) "\303\304\305\306\"\"\211G\307V\203 \310\311\312 \313#\n\314R\202 \n)\207" [params vars body mapcar cdr org-babel-get-header :var 0 "(let " mapconcat #[(var) "\301\302@\303A!#\207" [var format "%s %s" org-babel-shen-var-to-shen] 5] " " ")"] 6 (#$ . 680)]) #@35 Convert VAR into a shen variable. (defalias 'org-babel-shen-var-to-shen #[(var) "<\203 \301\302\303\304#\305Q\207\306\307\"\207" [var "[" mapconcat org-babel-ruby-var-to-ruby " " "]" format "%S"] 5 (#$ . 1061)]) #@103 Execute a block of Shen code with org-babel. This function is called by `org-babel-execute-src-block' (defalias 'org-babel-execute:shen #[(body params) "\306\307!\210\310\311\"A\310\312\"A\313 \" \314\315! r q\210\316\216\fc\210\317\320!+ \321\n\235\2044 \322\n\235\2039 \202= \323\324\325\217,\207" [params result-type result-params body full-body #1=#:temp-buffer require inf-shen assoc :result-type :result-params org-babel-expand-body:shen generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-interactively shen-eval-defun scalar verbatim nil (org-babel-script-escape results) ((error results)) results] 3 (#$ . 1284)]) (provide 'ob-shen)