| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (require 'ob) | |
| 16 | #@66 Default arguments to use when evaluating a gnuplot source block. | |
| 17 | (defvar org-babel-default-header-args:gnuplot '((:results . "file") (:exports . "results") (:session)) (#$ . 422)) | |
| 18 | #@31 Gnuplot specific header args. | |
| 19 | (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)) | |
| 20 | (defvar org-babel-gnuplot-timestamp-fmt nil) | |
| 21 | (defvar *org-babel-gnuplot-missing* nil) | |
| 22 | (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) | |
| 23 | #@204 Extract variables from PARAMS and process the variables. | |
| 24 | Dumps all vectors into files and returns an association list | |
| 25 | of variable names and the related value to be used in the gnuplot | |
| 26 | code. | |
| 27 | ||
| 28 | (fn PARAMS) | |
| 29 | (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)]) | |
| 30 | #@78 Expand BODY according to PARAMS, return the expanded body. | |
| 31 | ||
| 32 | (fn BODY PARAMS) | |
| 33 | (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)]) | |
| 34 | #@110 Execute a block of Gnuplot code. | |
| 35 | This function is called by `org-babel-execute-src-block'. | |
| 36 | ||
| 37 | (fn BODY PARAMS) | |
| 38 | (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)]) | |
| 39 | #@83 Prepare SESSION according to the header arguments in PARAMS. | |
| 40 | ||
| 41 | (fn SESSION PARAMS) | |
| 42 | (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)]) | |
| 43 | #@51 Load BODY into SESSION. | |
| 44 | ||
| 45 | (fn SESSION BODY PARAMS) | |
| 46 | (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)]) | |
| 47 | #@81 Return list of gnuplot statements assigning the block's variables. | |
| 48 | ||
| 49 | (fn PARAMS) | |
| 50 | (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)]) | |
| 51 | #@246 Initiate a gnuplot session. | |
| 52 | If there is not a current inferior-process-buffer in SESSION | |
| 53 | then create one. Return the initialized session. The current | |
| 54 | `gnuplot-mode' doesn't provide support for multiple sessions. | |
| 55 | ||
| 56 | (fn &optional SESSION PARAMS) | |
| 57 | (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)]) | |
| 58 | #@70 Convert S from timestamp to Unix time and export to gnuplot. | |
| 59 | ||
| 60 | (fn S) | |
| 61 | (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)]) | |
| 62 | #@40 Quote S for export to gnuplot. | |
| 63 | ||
| 64 | (fn S) | |
| 65 | (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)]) | |
| 66 | #@154 Export TABLE to DATA-FILE in a format readable by gnuplot. | |
| 67 | Pass PARAMS through to `orgtbl-to-generic' when exporting TABLE. | |
| 68 | ||
| 69 | (fn TABLE DATA-FILE PARAMS) | |
| 70 | (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)]) | |
| 71 | (provide 'ob-gnuplot) | |
