;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-gnuplot.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!\210\300\303!\207" [require ob ob-ref ob-comint] 2)
#@66 Default arguments to use when evaluating a gnuplot source block.
(defvar org-babel-default-header-args:gnuplot '((:results . "file") (:exports . "results") (:session)) (#$ . 643))
(defvar org-babel-gnuplot-timestamp-fmt nil)
#@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) "\301\302\301\303\304\305\"\"\"\207" [params mapcar #[(pair) "@A<\203\302A\303\304!	#\202AB\207" [pair params org-babel-gnuplot-table-to-data org-babel-temp-file "gnuplot-"] 5] cdr org-babel-get-header :var] 7 (#$ . 875)])
#@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\206\205\314!\311\315	\"A\316	\317\".\316	\320\"/\316	\321\"0\316	\322\"1\316	\323\"2\316	\324\"3\316	\325\"\206V3\205V\3264\3275\3306.\203l5\331\332.\"!\210/\203w\333\334/\"\2100\203\202\333\3350\"\2101\203\2245\331\336\337\3401\341#\"!\2102\203\2465\331\342\337\3432\341#\"!\2104\203\2755\344!\2105\3453\206\271\346\347Q!\210\203\3115\331\350\"!\210\f\203\3255\331\351\f\"!\2105\337\352\353	!\354#!\210\333\355\n\"\210.
7*\207" [#1=#:wconfig params vars out-file term cmdline current-window-configuration ((set-window-configuration #1#)) org-babel-gnuplot-process-vars assoc :file :term file-name-extension :cmdline plist-get :title :line :set :xlabels :ylabels :timefmt :timeind 1 #[(text) "\302	Q\211\207" [text body "\n"] 3] nil format "set title '%s'" mapc #[(el) "	!\207" [add-to-body el] 2] #[(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\"" "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] title lines sets x-labels y-labels timefmt time-ind add-to-body output body] 7 (#$ . 1356)])
#@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 ((set-window-configuration #1=#:wconfig)) "none" org-babel-temp-file "gnuplot-script-" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\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*" ((byte-code "\301!\203\n\302!\210\301\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 (#$ . 2942)])
#@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 ((byte-code "\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 (#$ . 4244)])
#@25 Load BODY into SESSION.
(defalias 'org-babel-load-session:gnuplot #[(session body params) "\305 \306\216\307	\n\"rq\210\310\311p!!b\210\312\f!c\210)+\207" [#1=#:wconfig session params buffer body current-window-configuration ((set-window-configuration #1#)) org-babel-prep-session:gnuplot process-mark get-buffer-process org-babel-chomp] 3 (#$ . 4976)])
#@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 (#$ . 5340)])
#@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 ((set-window-configuration #1#)) gnuplot-send-string-to-gnuplot "" "line"] 3 (#$ . 5621)])
#@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 (#$ . 6167)])
#@32 Quote S for export to gnuplot.
(defalias 'org-babel-gnuplot-quote-tsv-field #[(s) ";\204\n\303\304\"\305	\"\203\207\305\n\"\203\306!\207\307\310\311\312\307\"\313#\307Q\207" [s org-table-number-regexp org-ts-regexp3 format "%s" string-match org-babel-gnuplot-quote-timestamp-field "\"" mapconcat identity split-string "\"\""] 6 (#$ . 6406)])
#@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*" ((byte-code "\301!\203\n\302!\210\301\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 (#$ . 6768)])
(provide 'ob-gnuplot)