ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-dot.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'ob)
#@62 Default arguments to use when evaluating a dot source block.
(defvar org-babel-default-header-args:dot '((:results . "file") (:exports . "results")) (#$ . 424))
#@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 (#$ . 591)])
#@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*" #[nil "\301!\205 \302!\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 (#$ . 1002)])
#@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 (#$ . 1902)])
(provide 'ob-dot)
Kontol Shell Bypass