|
Server IP : 111.118.215.189 / Your IP : 18.218.164.141 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:40 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-dot.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!\207" [require ob ob-eval] 2) #@62 Default arguments to use when evaluating a dot source block. (defvar org-babel-default-header-args:dot '((:results . "file") (:exports . "results")) (#$ . 617)) #@60 Expand BODY according to PARAMS, return the expanded body. (defalias 'org-babel-expand-body:dot #[(body params) "\303\304\305\306\"\"\307\310 \"\210\n)\207" [params vars body mapcar cdr org-babel-get-header :var mapc #[(pair) "\304@!A\305\306\307\n!P ;\203 \202 \310\311 \" #\211*\207" [pair value name body symbol-name replace-regexp-in-string "$" regexp-quote format "%S"] 5]] 5 (#$ . 784)]) #@103 Execute a block of Dot code with org-babel. This function is called by `org-babel-execute-src-block'. (defalias 'org-babel-execute:dot #[(body params) "\306\307\"A\306\310\"\206 \311\312!A\306\313\"A\206 \314\315\316\n!\"\306\317\"A\206* \320 \321\322!\211 \323\324\325!! !\326\216r q\210\327\"\"c\210)r q\210\330\331\211!\331\332%\210,\333\f\334\335 !\334 \336\335\n!\260\337\"\210-\331\207" [params result-params out-file cmdline cmd in-file assoc :result-params :file error "You need to specify a :file parameter" :cmdline format "-T%s" file-name-extension :cmd "dot" org-babel-temp-file "dot-" 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)) org-babel-expand-body:dot write-region nil 0 org-babel-eval " " org-babel-process-file-name " -o " "" #1# #2=#:temp-file body] 10 (#$ . 1195)]) #@56 Return an error because Dot does not support sessions. (defalias 'org-babel-prep-session:dot #[(session params) "\300\301!\207" [error "Dot does not support sessions"] 2 (#$ . 2111)]) (provide 'ob-dot)