;ELC
|
;;; Compiled
|
;;; in Emacs version 26.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)) (#$ . 422))
|
#@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)) (#$ . 608))
|
(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\306\307!\310\"\311\312%\313!\")\207" [*org-babel-gnuplot-missing* :missing mapcar make-byte-code 257 "\211@A\211<\211\203+ \301@\211<\206 \2119\211\203 \202! \302\303\"\266\202\304\305!\300#\202, \266\202B\207" vconcat vector [org-babel-gnuplot-table-to-data mapcar list org-babel-temp-file "gnuplot-"] 10 "\n\n(fn PAIR)" org-babel--get-vars] 8 (#$ . 1277)])
|
#@78 Expand BODY according to PARAMS, return the expanded body.
|
|
(fn BODY PARAMS)
|
(defalias 'org-babel-expand-body:gnuplot #[514 "C\301 \302\303\304\305\306!\307\"\310$\216\311!\312\236A\313\236A\314\236A\315\236A\206= \205= \316!\317\320\227!\"A\206; \211\262\321\236A\322 \236A\323\n\236A\324 \236A\325\f\236A\326 \236A\327\236A\206h \211\205h \330\331 \205q \332\331 !\302\333\334\305\306!\335\"\336\337%\203\213 \211\340\341 \"!\210\203\242 \342\302\333\343\305\306!\344\"\345\346% \"\210\203\271 \342\302\333\347\305\306!\350\"\336\346%\"\210\203\311 \211\340\351\352\353\n\354#\"!\210\203\331 \211\340\355\352\356 \354#\"!\210\203\354 \211\357!\210\211\360\206\350 \361\362Q!\210\f\203\211\340\363\"!\210\211\242\364P\240\210 \203\211\340\365\f\"!\210\211\352\366\367!\370#!\210\342\302\333\371\305\306!\372\"\373\374%\"\210 \2035\211\f!\210\n\203D\211\242\370 Q\240\210\203O\211\340\375\"!\210\266\242)\262\207" [*org-babel-gnuplot-terms* current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 org-babel-gnuplot-process-vars :file :prologue :epilogue :term file-name-extension assoc intern :title :line :set :xlabels :ylabels :timefmt :timeind 1 buffer-file-name file-name-directory 257 "\300\301\300\242Q\240\207" ["\n"] 5 "\n\n(fn TEXT)" format "set title '%s'" mapc "\300!\207" [] 3 "\n\n(fn EL)" "\300\301\302\"!\207" [format "set %s"] "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" "\300\301\302\303@\"A\300\242#\240\207" [replace-regexp-in-string format "\\$%s"] 6 "\n\n(fn PAIR)" "cd '%s'"] 25 (#$ . 1933)])
|
#@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\312\313\314!\315\"\316$\216\317\230\203r \320\321!\211\322\323\324!!\310\311\325\313\314!\326\"\316$\216r\211q\210\327Pc\210)r\211q\210\330\306\211\306\311%\210*\266\331\332\"\210\333\334\332\335\336\235\205d \337\"\"!\262\331\340\"\266\202\222 \341\342!r\211q\210\310\311\325\313\314!\343\"\316$\216\327Pc\210\344 \210\345 \210*\210\346\347!\235\205\233 )\262\207" [system-type require gnuplot :session :results org-babel-expand-body:gnuplot nil current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 "none" org-babel-temp-file "gnuplot-script-" get-buffer-create generate-new-buffer-name " *temp file*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] "\n" write-region message "gnuplot \"%s\"" shell-command-to-string format org-babel-process-file-name (cygwin windows-nt ms-dos) t "%s" generate-new-buffer " *temp*" [buffer-name kill-buffer] gnuplot-mode gnuplot-send-buffer-to-gnuplot "output" split-string] 16 (#$ . 3886)])
|
#@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\313\314\315!\316\"\317$\216rq\210\212\320\211\203L \211@\211c\210\321\322\323\"\210\324!\210\325\326!\210db\210A\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-byte-code 0 "\301\300\302\"\207" vconcat vector [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] 11 (#$ . 5110)])
|
#@51 Load BODY into SESSION.
|
|
(fn SESSION BODY PARAMS)
|
(defalias 'org-babel-load-session:gnuplot #[771 "\300 \301\302\303\304\305!\306\"\307$\216\310\"r\211q\210\311\312p!!b\210\313!c\210)\211\262)\207" [current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 org-babel-prep-session:gnuplot process-mark get-buffer-process org-babel-chomp] 10 (#$ . 5875)])
|
#@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 (#$ . 6288)])
|
#@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\307\310\311!\312\"\313$\216\314\315\316\"\210)\262\207" [gnuplot-buffer require gnuplot "none" current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 gnuplot-send-string-to-gnuplot "" "line"] 9 (#$ . 6578)])
|
#@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 (#$ . 7188)])
|
#@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 (#$ . 7433)])
|
#@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\303!!\304\305\306\307\310!\311\"\312$\216r\211q\210\313\314\"\206 \315\316\317\320\"\")c\210)r\211q\210\321\322\211\322\305%\210*\266\207" [org-babel-gnuplot-timestamp-fmt get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [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) write-region nil] 11 (#$ . 7896)])
|
(provide 'ob-gnuplot)
|
