ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-gnuplot.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)
#@66 Default arguments to use when evaluating a gnuplot source block.
(defvar org-babel-default-header-args:gnuplot '((:results . "file") (:exports . "results") (:session)) (#$ . 424))
#@31 Gnuplot specific header args.
(defvar org-babel-header-args:gnuplot '((title . :any) (lines . :any) (sets . :any) (x-labels . :any) (y-labels . :any) (timefmt . :any) (time-ind . :any) (missing . :any) (term . :any)) (#$ . 610))
(defvar org-babel-gnuplot-timestamp-fmt nil)
(defvar *org-babel-gnuplot-missing* nil)
#@62 List of file extensions and the associated gnuplot terminal.
(custom-declare-variable '*org-babel-gnuplot-terms* ''((eps . "postscript eps")) '(#$ . 931) :group 'org-babel :type '(repeat (cons (symbol :tag "File extension") (string :tag "Gnuplot terminal"))))
#@191 Extract variables from PARAMS and process the variables.
Dumps all vectors into files and returns an association list
of variable names and the related value to be used in the gnuplot
code.
(defalias 'org-babel-gnuplot-process-vars #[(params) "\302\303\"A\304\305\304\306\307\310\"\"\")\207" [params *org-babel-gnuplot-missing* assoc :missing mapcar #[(pair) "@A\211<\211\203- \306 @\211<\206 9\211 \203 \202$ \307\310 \"*\311\312!
#\202. *B\207" [pair val lp first tablep params org-babel-gnuplot-table-to-data mapcar list org-babel-temp-file "gnuplot-"] 6] cdr org-babel-get-header :var] 7 (#$ . 1198)])
#@60 Expand BODY according to PARAMS, return the expanded body.
(defalias 'org-babel-expand-body:gnuplot #[(body params) "\306 \307\216\310 !\311\312 \"A\311\313 \"A \311\314 \"A \311\315 \"A\206< \205< \316 ! 3\311\3173\227!4\"A\206; 3) 5\311\320 \"A 6\311\321 \"A 7\311\322 \"A 8\311\323 \"A 9\311\324 \"A :\311\325 \"A ;\311\326 \"A <\311\327 \"A\206} <\205} \330 =\311\331 \"A >\332 ?\333 @7\203\232 ?\334\3357\"!\2108\203\245 \336\3378\"\210>\203\263 ?\334\340>\"!\2109\203\276 \336\3419\"\210:\203\320 ?\334\342\343\344:\345#\"!\210;\203\342 ?\334\346\343\347;\345#\"!\210=\203\371 ?\350!\210?\351<\206\365 \352\353Q!\210 \203 ?\334\354 \"!\210A\355PA5\203?\334\3565\"!\210?\343\357\360 !\361#!\210\336\362\n\"\210\f\2032?\f!\210
\203=A\361
QA.A*\207" [#1=#:wconfig params vars out-file prologue epilogue current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] org-babel-gnuplot-process-vars assoc :file :prologue :epilogue :term file-name-extension intern :cmdline :title :line :set :xlabels :ylabels :timefmt :timeind 1 :missing #[(text) "\302 Q\211\207" [text body "\n"] 3] nil format "set title '%s'" mapc #[(el) " !\207" [add-to-body el] 2] "set datafile missing '%s'" #[(el) "\302\303 \"!\207" [add-to-body el format "set %s"] 4] "set xtics (%s)" mapconcat #[(pair) "\301\302A@#\207" [pair format "\"%s\" %d"] 4] ", " "set ytics (%s)" #[(pair) "\301\302A@#\207" [pair format "\"%s\" %d"] 4] "set xdata time" "set timefmt \"" "%Y-%m-%d-%H:%M:%S" "\"" "set output \"%s\"" "\nset output\n" "set term %s" identity org-babel-variable-assignments:gnuplot "\n" #[(pair) "\302\303\304@\"A #\211\207" [pair body replace-regexp-in-string format "\\$%s"] 4] ext *org-babel-gnuplot-terms* term cmdline title lines sets x-labels y-labels timefmt time-ind missing add-to-body output body] 7 (#$ . 1823)])
#@92 Execute a block of Gnuplot code.
This function is called by `org-babel-execute-src-block'.
(defalias 'org-babel-execute:gnuplot #[(body params) "\306\307!\210\310\311\"A\310\312\"A\310\313\"A\314 \"\315 \316 (\317\216
\320\230\203t \321\322!\211 )\323\324\325!! * +\326\216r*q\210 \327Pc\210)r*q\210\330\315\211+\315\331%\210,\332\333)\"\210\334\335\333\336),\337\235\205h \340\"\"!\332\n!\210)\202\214 \341\342! -r-q\210\343\216 \327Pc\210\344 \210\345 \210+\346\347\f!\235\205\225 \n.\207" [params body output out-file result-type session require gnuplot assoc :session :results :file org-babel-expand-body:gnuplot nil current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] "none" org-babel-temp-file "gnuplot-script-" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] "\n" write-region 0 message "gnuplot \"%s\"" shell-command-to-string format org-babel-process-file-name (cygwin windows-nt ms-dos) t generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#3=#:temp-buffer buffer-name kill-buffer] 2] gnuplot-mode gnuplot-send-buffer-to-gnuplot "output" split-string #1# script-file #2# #4=#:temp-file system-type #3#] 8 (#$ . 3709)])
#@62 Prepare SESSION according to the header arguments in PARAMS.
(defalias 'org-babel-prep-session:gnuplot #[(session params) "\304!\305 !\306\307\"\210\212\310 \311\216\312!\204 \313\314\"\210q\210\315\316\n\"\210+*\207" [session params var-lines save-match-data-internal org-babel-gnuplot-initiate-session org-babel-variable-assignments:gnuplot message "%S" 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" mapc #[(var-line) "c\210\302\303\304\"\210\305 !\210\306\307!\210db\207" [var-line session comint-send-input nil t org-babel-comint-wait-for-output sit-for 0.1] 3]] 3 (#$ . 4999)])
#@25 Load BODY into SESSION.
(defalias 'org-babel-load-session:gnuplot #[(session body params) "\305 \306\216\307 \n\"r q\210\310\311p!!b\210\312\f!c\210) +\207" [#1=#:wconfig session params buffer body current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] org-babel-prep-session:gnuplot process-mark get-buffer-process org-babel-chomp] 3 (#$ . 5724)])
#@68 Return list of gnuplot statements assigning the block's variables.
(defalias 'org-babel-variable-assignments:gnuplot #[(params) "\301\302\303!\"\207" [params mapcar #[(pair) "\301\302@A#\207" [pair format "%s = \"%s\""] 4] org-babel-gnuplot-process-vars] 4 (#$ . 6108)])
#@215 Initiate a gnuplot session.
If there is not a current inferior-process-buffer in SESSION
then create one. Return the initialized session. The current
`gnuplot-mode' doesn't provide support for multiple sessions.
(defalias 'org-babel-gnuplot-initiate-session #[(&optional session params) "\303\304!\210\305\230?\205 \306 \307\216\310\311\312\"\210\n*\207" [session #1=#:wconfig gnuplot-buffer require gnuplot "none" current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] gnuplot-send-string-to-gnuplot "" "line"] 3 (#$ . 6389)])
#@62 Convert S from timestamp to Unix time and export to gnuplot.
(defalias 'org-babel-gnuplot-quote-timestamp-field #[(s) "\302\303 !\"\207" [org-babel-gnuplot-timestamp-fmt s format-time-string org-time-string-to-time] 4 (#$ . 6955)])
#@32 Quote S for export to gnuplot.
(defalias 'org-babel-gnuplot-quote-tsv-field #[(s) ";\204\n \304\305\"\306 \"\203 \207\306\n\"\203 \307!\207G\310U\203+ \206? \207\306\311\"\203> \312\313\314\315\312\"\316#\312Q\207\207" [s org-table-number-regexp org-ts-regexp3 *org-babel-gnuplot-missing* format "%s" string-match org-babel-gnuplot-quote-timestamp-field 0 "[ \"]" "\"" mapconcat identity split-string "\"\""] 6 (#$ . 7194)])
#@125 Export TABLE to DATA-FILE in a format readable by gnuplot.
Pass PARAMS through to `orgtbl-to-generic' when exporting TABLE.
(defalias 'org-babel-gnuplot-table-to-data #[(table data-file params) "\306\307\310!!\311\216r q\210\312\304!\210\313 \314\"\206 \315\316
\317\320 \"\"c\210)r q\210\321\322\211\n\322\323%\210,\207" [data-file #1=#:temp-buffer #2=#:temp-file params org-babel-gnuplot-timestamp-fmt table get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] make-local-variable plist-get :timefmt "%Y-%m-%d-%H:%M:%S" orgtbl-to-generic org-combine-plists (:sep " " :fmt org-babel-gnuplot-quote-tsv-field) write-region nil 0] 6 (#$ . 7641)])
(provide 'ob-gnuplot)
Kontol Shell Bypass