;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\302 \303\232\204\304\305\306\"\210\300\307!\210\300\301!\207" [require org-macs org-release "9.6.15" warn "Org version mismatch.\nThis warning usually appears when a built-in Org version is loaded\nprior to the more recent Org version.\n\nVersion mismatch is commonly encountered in the following situations:\n\n1. Emacs is loaded using literate Org config and more recent Org\n version is loaded inside the file loaded by `org-babel-load-file'.\n `org-babel-load-file' triggers the built-in Org version clashing\n the newer Org version attempt to be loaded later.\n\n It is recommended to move the Org loading code before the\n `org-babel-load-file' call.\n\n2. New Org version is loaded manually by setting `load-path', but some\n other package depending on Org is loaded before the `load-path' is\n configured.\n This \"other package\" is triggering built-in Org version, again\n causing the version mismatch.\n\n It is recommended to set `load-path' as early in the config as\n possible.\n\n3. New Org version is loaded using straight.el package manager and\n other package depending on Org is loaded before straight triggers\n loading of the newer Org version.\n\n It is recommended to put\n\n %s\n\n early in the config. Ideally, right after the straight.el\n bootstrap. Moving `use-package' :straight declaration may not be\n sufficient if the corresponding `use-package' statement is\n deferring the loading.\n\n4. A new Org version is synchronized with Emacs git repository and\n stale .elc files are still left from the previous build.\n\n It is recommended to remove .elc files from lisp/org directory and\n re-compile." "(straight-use-package 'org)" ob] 3)#@66 Default arguments to use when evaluating a gnuplot source block. (defvar org-babel-default-header-args:gnuplot '((:results . "file") (:exports . "results") (:session)) (#$ . 1827))#@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)) (#$ . 2013)) (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\305!\211\2033\306@\211<\206\2119\211\203\266\202\202&\307\310\"\266\202\311\300B\312\"\300#\266\202\202\221;\203\216\313!\203\216\314!\203\216\313 !\203R\313 !\nP\202a \203`\314 !\203` \206a\f\315\313\316\"\317!R\314!\203{\320\"\203{\211\202\207\321\322!\323\"\210\324\323#\262\266\202\202\221\266\202B\207" [V0 default-directory org-babel-remote-temporary-directory org-babel-temporary-directory temporary-file-directory proper-list-p org-babel-gnuplot-table-to-data mapcar list org-babel-temp-stable-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 (#$ . 2685)])#@78 Expand BODY according to PARAMS, return the expanded body. (fn BODY PARAMS) (defalias 'org-babel-expand-body:gnuplot #[514 "C\302 \303\304\"\216\305!\306\236A\307\236A\310\236A\311\236A\2066\2056\312!\313\314\227!\"A\2064\211\262\315\236A\316 \236A\317\n\236A\320 \236A\321\f\236A\322 \236A\323\236A\324\236A\206f\211\205f\325 \303\326\"\203y\211\327\330 \"!\210 \203\206\211\327\331\f\"!\210\203\224\332\303\333\"\n\"\210\203\242\332\303\334\" \"\210\203\262\211\327\335\336\337\n\340#\"!\210\203\302\211\327\341\336\342 \340#\"!\210\203\325\211\343!\210\211\344\206\321\345\346Q!\210 \203\352\211\327\347\"!\210\211\242\350P\240\210\n\203\367\211\327\351 \"!\210\211\336\352\353!\354#!\210\332\303\355\"\"\210\f\203\211 !\210 \203%\211\242\354Q\240\210\2030\211\327\356\"!\210\266\242)\207" [*org-babel-gnuplot-terms* default-directory 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 #[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 (#$ . 3811)])#@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\203_\313\314!\315\316\317\"\310\320\"\216r\211q\210\321Pc)\210r\211q\210\322\306\211\306\323%*\266\324\325\"\210\326\327\325\330\331>??\"\"!\262\324\332\"\266\202y\315\333\317\"r\211q\210\310\334\"\216\321Pc\210\335 \210\336 *\266\337\340!\235\205\202)\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 (#$ . 5714)])#@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\210A\266\202\202%,\266\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 t] 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 (#$ . 6845)])#@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\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 (#$ . 7565)])#@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 (#$ . 7933)])#@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 (#$ . 8222)])#@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 (#$ . 8797)])#@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 (#$ . 9041)])#@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)\210r\211q\210\316\317\211\317\320%*\266\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 (#$ . 9503)]) (provide 'ob-gnuplot)