;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require ob org-macs] 2)
#@66 Default arguments to use when evaluating a gnuplot source block.
(defvar org-babel-default-header-args:gnuplot '((:results . "file") (:exports . "results") (:session)) (#$ . 149))
#@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)) (#$ . 335))
(defvar org-babel-gnuplot-timestamp-fmt nil)
(defvar *org-babel-gnuplot-missing* nil)
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable *org-babel-gnuplot-terms* funcall function #[0 "\300\207" [((eps . "postscript eps"))] 1 ""] "List of file extensions and the associated gnuplot terminal." :group org-babel :type (repeat (cons (symbol :tag "File extension") (string :tag "Gnuplot terminal")))] 8)
#@204 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.

(fn PARAMS)
(defalias 'org-babel-gnuplot-process-vars #[257 "\301
\236A\302\303\304\"\305!\")\207" [*org-babel-gnuplot-missing* :missing mapcar make-closure #[257 "\211@
A\302
!\211\2030\303@\211<\206\2119\211\203\266\202\202&\304\305\"\266\202\306\307!\300#\266\202\202r
;\203o\310!\203o\311!\203o	\312\310\313\"\314!R\311
!\203\\\315
\"\203\\\211\202h\316\317!\320\"\210\321\320#\262
\266\202\202r
\266\202B\207" [V0 org-babel-temporary-directory proper-list-p org-babel-gnuplot-table-to-data mapcar list org-babel-temp-file "gnuplot-" file-remote-p file-exists-p "/gnuplot/" host org-babel-local-file-name file-newer-than-file-p make-directory file-name-directory t copy-file] 10 "\n\n(fn PAIR)"] org-babel--get-vars] 5 (#$ . 1007)])
#@78 Expand BODY according to PARAMS, return the expanded body.

(fn BODY PARAMS)
(defalias 'org-babel-expand-body:gnuplot #[514 "
C\301 \302\303\"\216\304!\305\236A\306\236A\307\236A\310\236A\2066\2056\311!\312\313\227!\"A\2064\211\262
\314\236A\315	\236A\316\n\236A\317\236A\320\f\236A\321
\236A\322\236A\323\236A\206f\211\205f\324\325 \205o\326\325 !\302\327\"\203\201\211\330\331	\"!\210	\203\216\211\330\332\f\"!\210\203\234\333\302\334\"\n\"\210\203\252\333\302\335\"	\"\210\203\272\211\330\336\337\340\n\341#\"!\210\203\312\211\330\342\337\343	\341#\"!\210\203\335\211\344!\210\211\345\206\331\346\347Q!\210
\203\362\211\330\350\"!\210\211\242\351P\240\210\n\203\377\211\330\352
\"!\210\211\337\353\354!\355#!\210\333\302\356\"\"\210\f\203
\211
!\210\203-
\211\242\355Q\240\210
\2038
\211\330\357\"!\210\266
\242)\207" [*org-babel-gnuplot-terms* current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] org-babel-gnuplot-process-vars :file :prologue :epilogue :term file-name-extension assoc intern :title :line :set :missing :xlabels :ylabels :timefmt :timeind 1 buffer-file-name file-name-directory #[257 "\300
\301\300\242Q\240\207" [V0 "\n"] 5 "\n\n(fn TEXT)"] format "set datafile missing '%s'" "set title '%s'" mapc #[257 "\300
!\207" [V0] 3 "\n\n(fn EL)"] #[257 "\300\301\302\"!\207" [V0 format "set %s"] 5 "\n\n(fn EL)"] "set xtics (%s)" mapconcat #[257 "\300\301A@#\207" [format "\"%s\" %d"] 5 "\n\n(fn PAIR)"] ", " "set ytics (%s)" #[257 "\300\301A@#\207" [format "\"%s\" %d"] 5 "\n\n(fn PAIR)"] "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" #[257 "\300\301\302\303@\"A\300\242#\240\207" [V0 replace-regexp-in-string format "\\$%s"] 6 "\n\n(fn PAIR)"] "cd '%s'"] 26 (#$ . 1970)])
#@110 Execute a block of Gnuplot code.
This function is called by `org-babel-execute-src-block'.

(fn BODY PARAMS)
(defalias 'org-babel-execute:gnuplot #[514 "\301\302!\210\303
\236A\304\236A\305\"\306\307 \310\311\"\216\312\230\203a\313\314!\315\316\317\"\310\320\"\216r\211q\210\321Pc\210)r\211q\210\322\306\211\306\323%\210*\210\324\325\"\210\326\327\325\330\331>\205S\317\"\"!\262\324\332\"\266\202{\315\333\317\"r\211q\210\310\334\"\216\321Pc\210\335 \210\336 \210*\210\337\340!\235\205\204
)\207" [system-type require gnuplot :session :results org-babel-expand-body:gnuplot nil current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] "none" org-babel-temp-file "gnuplot-script-" generate-new-buffer " *temp file*" t #[0 "\301\300!\205	\302\300!\207" [V0 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) "%s" " *temp*" #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] gnuplot-mode gnuplot-send-buffer-to-gnuplot "output" split-string] 15 (#$ . 3916)])
#@83 Prepare SESSION according to the header arguments in PARAMS.

(fn SESSION PARAMS)
(defalias 'org-babel-prep-session:gnuplot #[514 "\301!\302!\303\304\"\210\305!\204\306\307\"\210\310 \311\312\"\216rq\210\212\313
\211\203E\211@\211c\210\314\315\316\"\210\317!\210\320\321!\210db\210
A\266\202\202%\210,\210
\207" [comint-input-filter org-babel-gnuplot-initiate-session org-babel-variable-assignments:gnuplot message "%S" org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] comint-send-input nil t org-babel-comint-wait-for-output sit-for 0.1] 10 (#$ . 5062)])
#@51 Load BODY into SESSION.

(fn SESSION BODY PARAMS)
(defalias 'org-babel-load-session:gnuplot #[771 "\300 \301\302\"\216\303\"r\211q\210\304\305p!!b\210\306!c\210)\211\262
)\207" [current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] org-babel-prep-session:gnuplot process-mark get-buffer-process org-babel-chomp] 8 (#$ . 5794)])
#@81 Return list of gnuplot statements assigning the block's variables.

(fn PARAMS)
(defalias 'org-babel-variable-assignments:gnuplot #[257 "\300\301\302!\"\207" [mapcar #[257 "\300\301@A#\207" [format "%s = \"%s\""] 5 "\n\n(fn PAIR)"] org-babel-gnuplot-process-vars] 5 (#$ . 6173)])
#@246 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.

(fn &optional SESSION PARAMS)
(defalias 'org-babel-gnuplot-initiate-session #[512 "\301\302!\210
\303\230?\205\304 \305\306\"\216\307\310\311\"\210)\262
\207" [gnuplot-buffer require gnuplot "none" current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] gnuplot-send-string-to-gnuplot "" "line"] 6 (#$ . 6463)])
#@70 Convert S from timestamp to Unix time and export to gnuplot.

(fn S)
(defalias 'org-babel-gnuplot-quote-timestamp-field #[257 "\301\302!\"\207" [org-babel-gnuplot-timestamp-fmt format-time-string org-time-string-to-time] 5 (#$ . 7039)])
#@40 Quote S for export to gnuplot.

(fn S)
(defalias 'org-babel-gnuplot-quote-tsv-field #[257 "\211;\204\303\304\"\262
\305\"\203\207\305	\"\203\306
!\207\211G\307U\203*\n\206>\207\305\310\"\203=\311\312\313\314\311\"\315#\311Q\207\211\207" [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 "\"\""] 7 (#$ . 7284)])
#@154 Export TABLE to DATA-FILE in a format readable by gnuplot.
Pass PARAMS through to `orgtbl-to-generic' when exporting TABLE.

(fn TABLE DATA-FILE PARAMS)
(defalias 'org-babel-gnuplot-table-to-data #[771 "\301\302!\210\303\304\305\"\306\307\"\216r\211q\210\310\311\"\206\312\313\314\315\"\")c\210)r\211q\210\316\317\211\317\320%\210*\210
\207" [org-babel-gnuplot-timestamp-fmt require ox-org generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] plist-get :timefmt "%Y-%m-%d-%H:%M:%S" orgtbl-to-generic org-combine-plists (:sep "	" :fmt org-babel-gnuplot-quote-tsv-field :raw t :backend ascii) write-region nil 0] 10 (#$ . 7747)])
(provide 'ob-gnuplot)