Aurora
Adminer
Auto Root
WP Admin
cPanel Reset
Anti Backdoor
Root
usr
share
emacs
27.2
lisp
org
Upload
New Folder
New File
Name
Size
Permissions
Actions
..
-
-
-
Upload File
Select File
New Folder
Folder Name
New File
File Name
Add WordPress Admin
Database Host
Database Name
Database User
Database Password
Admin Username
Admin Password
cPanel Password Reset
Email Address
Edit: org-plot.elc
;ELC ;;; Compiled ;;; in Emacs version 27.2 ;;; 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 cl-lib org org-table] 2) #@56 Default options to gnuplot used by `org-plot/gnuplot'. (defvar org-plot/gnuplot-default-options '((:plot-type . 2d) (:with . lines) (:ind . 0)) (#$ . 495)) (defvar org-plot-timestamp-fmt nil) #@115 Parse an OPTIONS line and set values in the property list P. Returns the resulting property list. (fn P OPTIONS) (defalias 'org-plot/add-options-to-plist #[514 "\211\203i \300\301\302\303\211\203g \211@\211@\235\203C \304\305@!P#\203` \303\225\262\306A\307\310\311\f\"!@\312\fA\"B#\262\202 \304\305@!P\"\203` \306A\307\310\311\f\"!@#\262A\266\202\202 \266\207" [(("type" . :plot-type) ("script" . :script) ("line" . :line) ("set" . :set) ("title" . :title) ("ind" . :ind) ("deps" . :deps) ("with" . :with) ("file" . :file) ("labels" . :labels) ("map" . :map) ("timeind" . :timeind) ("timefmt" . :timefmt)) ("set" "line") ":\\([\"][^\"]+?[\"]\\|[(][^)]+?[)]\\|[^ \n ;,.]*\\)" 0 string-match regexp-quote plist-put read-from-string match-string 1 plist-get] 15 (#$ . 694)]) #@116 Move the point forward to the beginning of nearest table. Return value is the point at the beginning of the table. (defalias 'org-plot/goto-nearest-table #[0 "\300\301!\210\302 \204 \303\301yW\203 \304 b\207" [move-beginning-of-line 1 org-at-table-p 0 org-table-begin] 2 (#$ . 1505) nil]) #@189 Collect options from an org-plot `#+Plot:' line. Accepts an optional property list PARAMS, to which the options will be added. Returns the resulting property list. (fn &optional PARAMS) (defalias 'org-plot/collect-options #[256 "\300\301!\302\303\"\203 \304\305\306\"\"\202 \207" [thing-at-point line string-match "#\\+PLOT: +\\(.*\\)$" org-plot/add-options-to-plist match-string 1] 7 (#$ . 1803) nil]) #@76 Convert field S from timestamp to Unix time and export to gnuplot. (fn S) (defalias 'org-plot-quote-timestamp-field #[257 "\301\302!\"\207" [org-plot-timestamp-fmt format-time-string org-time-string-to-time] 5 (#$ . 2220)]) #@46 Quote field S for export to gnuplot. (fn S) (defalias 'org-plot-quote-tsv-field #[257 "\302\"\203 \207\302 \"\203 \303!\207\304\305\306\307\304\"\310#\304Q\207" [org-table-number-regexp org-ts-regexp3 string-match org-plot-quote-timestamp-field "\"" mapconcat identity split-string "\"\""] 7 (#$ . 2453)]) #@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-plot/gnuplot-to-data #[771 "\301\302!\303\304\305\306\307!\310\"\311$\216r\211q\210\312\300!\210\313\314\"\206 \315\316\317\320\"\"c\210)r\211q\210\321\322\211\322\304%\210*\266\322\207" [org-plot-timestamp-fmt generate-new-buffer " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [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-plot-quote-tsv-field) write-region nil] 11 (#$ . 2774)]) #@244 Export the data in TABLE to DATA-FILE for gnuplot. This means in a format appropriate for grid plotting by gnuplot. PARAMS specifies which columns of TABLE should be plotted as independent and dependent variables. (fn TABLE DATA-FILE PARAMS) (defalias 'org-plot/gnuplot-to-grid-data #[771 "\300\301\"S\302\303\"\203 \304\305\300\303\"\"\2024 \306@G\307\211W\203/ \211\211B\262\210\211T\262\202 \266\211\262C\307C\306\307Y\203S \304\310\311\312\313\314 \"\315\"\316\317%\"\262\242\204^ \307Y\203y \320\242\"\240\210\304\310\311\321\313\314!\322\"\323\317%\"\262\324\325!\310\307\326\313\314!\327\"\330$\216r\211q\210G @G\331\306\211\307\211W\203\367 \211\307\211W\203\333 \211 S\33288!#P\262 \33288!#P\262\210\211T\262\202\243 \266c\210\333c\210c\210\333c\210\334\262\334\262\210\211T\262\202\231 \266)r\211q\210\335\306\211\306\307%\210*\266\207" [plist-get :ind plist-member :deps mapcar #[257 "\211S\207" #1=[] 2 "\n\n(fn VAL)"] nil 0 make-byte-code 257 "\301\211\242T\240\210\301\242\3008B\207" vconcat vector #1# 4 "\n\n(fn ROW)" delq "\211G\301\211W\203! \211\211\300\242>\204 \211\233\211\302\240\266\210\211T\262\202 \266\303\302\"\207" [0 nil delq] 7 generate-new-buffer " *temp file*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] 2 #[771 "T\262T\262\300\301\302Z\303\\&\207" [format "%f %f %f\n%f %f %f\n" 0.5 0.5] 11 "\n\n(fn COL ROW VALUE)"] string-to-number "\n" "" write-region] 28 (#$ . 3468) nil]) #@309 Write a gnuplot script to DATA-FILE respecting the options set in PARAMS. NUM-COLS controls the number of columns plotted in a 2-d plot. Optional argument PREFACE returns only option parameters in a manner suitable for prepending to a user-specified script. (fn DATA-FILE NUM-COLS PARAMS &optional PREFACE) (defalias 'org-plot/gnuplot-script #[1027 "\301\302\"\211\303=\203 \304\202 \301\305\"\301\306\"\301\307\"\301\310\"\301\311\"\301\312\"\301 \313\"\301\n\314\"\301 \315\"\301\f\316\"\317 \320\"\205J \301 \320\"\301\321\"\301\322\"\301\323\"\324\325=\203e \326\202x \327=\204s \303=\203w \330\202x \331\332C\333\334\335\336\337!\340\"\341\342%\331 \203\236 \343\344\345!\"!\210\343\346\"!\210\325=\204\305 \347\267\202\305 \203\305 \350!\210\202\305 \203\302 \351\202\303 \352!\210\203\322 \343\353\"!\210\354\"\210\211\203\356 \211@\343\355\"!\210A\266\202\202\332 \210\356\242\331\357\360#)\266\203\204\361!\210\203\343\362\363\364 \365#\"!\210\203%\343\366\363\367\n\365#\"!\210 \203:\370!\210\371\f\2066\372\373Q!\210\204\370\374\267\202\342\375\211W\203\302\211\325=\203q\203d\211T\232\204\272 \203q\211T\f\235\203\272\343 \203\217\375V\203\217\204\217\343\376\"\206\220\377T\203\241\343\201@ \"\202\242\3778\206\264\343\201A T\"&B\262\210\211T\262\202I\266\202\342\343\201B #C\262\202\342\343\201C #C\262\201D \363\201E \201F !\201G #Q!\210\242\207" [inhibit-changing-match-data plist-get :plot-type grid pm3d :with :set :line :map :title :file :ind :timeind :timefmt :textind plist-member :deps :labels :xlabels :ylabels "'%s' using %s%d%s with %s title '%s'" 2d "plot" 3d "splot" nil "reset" make-byte-code 257 "\300\211\242\301Q\240\207" vconcat vector ["\n"] 5 "\n\n(fn LINE)" format "set term %s" file-name-extension "set output '%s'" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (3d 172 grid 184)) "set map" "set pm3d map" "set pm3d" "set title '%s'" mapc "set %s" "^set datafile separator" t string-match "set datafile separator \"\\t\"" "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" "\"" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (2d 326 3d 455 grid 470)) 0 "%d:" "" ":xticlabel(%d)" "%d" "'%s' matrix with %s title ''" "'%s' with %s title ''" " " identity reverse ",\\\n "] 37 (#$ . 5001)]) #@188 Plot table using gnuplot. Gnuplot options can be specified with PARAMS. If not given options will be taken from the +PLOT line directly before or after the table. (fn &optional PARAMS) (defalias 'org-plot/gnuplot #[256 "\301\302!\210\303 \304\305\306\307\310!\311\"\312$\216\313 \210\314\315!\203# r\315q\210db\210)\316 \210\211\203E \211@\317@\"\204> \320@A#\262A\266\202\202' \210\321\322!\323\324 !\211@G\325\326\327\330$\210A@\331=\203o \320\332@#\262\333\331A\"\262\212\334y\305\232\203\205 \335\336!\203\205 \337!\262\202p )\340\341\"\211\342\267\202\266 \343#\210\202\266 \343#\210\202\266 \344#\211\203\265 \320\345#\210\210\210\340\341\"\346=\203\340\347\"S\350\304\351\352\307\310!\353\"\354\355%\"\305W\204\f\356\357\"\203\354 \320\360\361#\210\202\f\340\362\"\363\230\204\364\327\365\356$?\266\203\203\f\320\366\361#\210\266\367\370!r\211q\210\304\305\371\307\310!\372\"\312$\216\340\373\"\203X\374\361$c\210\375c\210\376\340\373\"!\210eb\210\377\201@ \327\361#\203`\201A \327\211#\210\202@\202`\374#c\210\201B \210\201C \210*\210\201D \314\315!!\266\203)\207" [org-plot/gnuplot-default-options require gnuplot current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 delete-other-windows get-buffer "*gnuplot*" org-plot/goto-nearest-table plist-member plist-put make-temp-file "org-plot" org-table-collapse-header org-table-to-lisp run-with-idle-timer 0.1 nil delete-file hline :labels delq -1 looking-at "[[:space:]]*#\\+" org-plot/collect-options plist-get :plot-type #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (2d 144 3d 154 grid 164)) org-plot/gnuplot-to-data org-plot/gnuplot-to-grid-data :ylabels 2d :ind mapcar 257 "\3008\207" [] 3 "\n\n(fn ROW)" cl-every #[257 "\301\"\207" [org-ts-regexp3 string-match] 4 "\n\n(fn EL)"] :timeind t :with "hist" #[257 "\301\"\207" [org-table-number-regexp string-match] 4 "\n\n(fn EL)"] apply :textind generate-new-buffer " *temp*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] :script org-plot/gnuplot-script "\n" insert-file-contents re-search-forward "\\$datafile" replace-match gnuplot-mode gnuplot-send-buffer-to-gnuplot bury-buffer] 15 (#$ . 7659) nil]) (provide 'org-plot)