Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ DIR ]
drwxr-xr-x
cedet
[ DIR ]
drwxr-xr-x
emacs-lisp
[ DIR ]
drwxr-xr-x
emulation
[ DIR ]
drwxr-xr-x
erc
[ DIR ]
drwxr-xr-x
eshell
[ DIR ]
drwxr-xr-x
gnus
[ DIR ]
drwxr-xr-x
image
[ DIR ]
drwxr-xr-x
international
[ DIR ]
drwxr-xr-x
language
[ DIR ]
drwxr-xr-x
leim
[ DIR ]
drwxr-xr-x
mail
[ DIR ]
drwxr-xr-x
mh-e
[ DIR ]
drwxr-xr-x
net
[ DIR ]
drwxr-xr-x
nxml
[ DIR ]
drwxr-xr-x
obsolete
[ DIR ]
drwxr-xr-x
org
[ DIR ]
drwxr-xr-x
play
[ DIR ]
drwxr-xr-x
progmodes
[ DIR ]
drwxr-xr-x
term
[ DIR ]
drwxr-xr-x
textmodes
[ DIR ]
drwxr-xr-x
url
[ DIR ]
drwxr-xr-x
vc
[ DIR ]
drwxr-xr-x
COPYING
34.32
KB
-rw-r--r--
README
537
B
-rw-r--r--
abbrev.elc
34.55
KB
-rw-r--r--
align.elc
39.88
KB
-rw-r--r--
allout-widgets.elc
62.37
KB
-rw-r--r--
allout.elc
203.33
KB
-rw-r--r--
ansi-color.elc
17.12
KB
-rw-r--r--
apropos.elc
37.42
KB
-rw-r--r--
arc-mode.elc
58.06
KB
-rw-r--r--
array.elc
27.07
KB
-rw-r--r--
auth-source-pass.elc
11.68
KB
-rw-r--r--
auth-source.elc
64.32
KB
-rw-r--r--
autoarg.elc
6.63
KB
-rw-r--r--
autoinsert.elc
13.41
KB
-rw-r--r--
autorevert.elc
30.71
KB
-rw-r--r--
avoid.elc
11.62
KB
-rw-r--r--
battery.elc
24.42
KB
-rw-r--r--
bindings.elc
42.76
KB
-rw-r--r--
bookmark.elc
77.09
KB
-rw-r--r--
bs.elc
49.32
KB
-rw-r--r--
buff-menu.elc
27.02
KB
-rw-r--r--
button.elc
14.97
KB
-rw-r--r--
calculator.elc
53.9
KB
-rw-r--r--
case-table.elc
4.99
KB
-rw-r--r--
cdl.elc
1.07
KB
-rw-r--r--
char-fold.elc
311.81
KB
-rw-r--r--
chistory.elc
8.16
KB
-rw-r--r--
cmuscheme.elc
18.07
KB
-rw-r--r--
color.elc
12.83
KB
-rw-r--r--
comint.elc
114.46
KB
-rw-r--r--
completion.elc
41.12
KB
-rw-r--r--
composite.elc
27.94
KB
-rw-r--r--
cus-dep.elc
6.42
KB
-rw-r--r--
cus-edit.elc
139.04
KB
-rw-r--r--
cus-face.elc
10.54
KB
-rw-r--r--
cus-load.el
85.19
KB
-rw-r--r--
cus-start.elc
21.92
KB
-rw-r--r--
cus-theme.elc
25.05
KB
-rw-r--r--
custom.elc
47.41
KB
-rw-r--r--
dabbrev.elc
22.28
KB
-rw-r--r--
delim-col.elc
8.95
KB
-rw-r--r--
delsel.elc
9.2
KB
-rw-r--r--
descr-text.elc
26.87
KB
-rw-r--r--
desktop.elc
47.64
KB
-rw-r--r--
dframe.elc
19.92
KB
-rw-r--r--
dired-aux.elc
85.75
KB
-rw-r--r--
dired-loaddefs.el
22.29
KB
-rw-r--r--
dired-x.elc
44.53
KB
-rw-r--r--
dired.elc
127.27
KB
-rw-r--r--
dirtrack.elc
7.75
KB
-rw-r--r--
disp-table.elc
8.76
KB
-rw-r--r--
display-fill-column-indicator....
8.32
KB
-rw-r--r--
display-line-numbers.elc
8.67
KB
-rw-r--r--
dnd.elc
7.13
KB
-rw-r--r--
doc-view.elc
65.25
KB
-rw-r--r--
dom.elc
7.36
KB
-rw-r--r--
dos-fns.elc
6.14
KB
-rw-r--r--
dos-vars.elc
1.1
KB
-rw-r--r--
dos-w32.elc
11.67
KB
-rw-r--r--
double.elc
4.34
KB
-rw-r--r--
dynamic-setting.elc
2.2
KB
-rw-r--r--
ebuff-menu.elc
10.46
KB
-rw-r--r--
echistory.elc
4.75
KB
-rw-r--r--
ecomplete.elc
7.1
KB
-rw-r--r--
edmacro.elc
19.94
KB
-rw-r--r--
ehelp.elc
11.32
KB
-rw-r--r--
elec-pair.elc
21.41
KB
-rw-r--r--
electric.elc
23.69
KB
-rw-r--r--
elide-head.elc
2.65
KB
-rw-r--r--
emacs-lock.elc
9.29
KB
-rw-r--r--
env.elc
6.12
KB
-rw-r--r--
epa-dired.elc
1.62
KB
-rw-r--r--
epa-file.elc
8.65
KB
-rw-r--r--
epa-hook.elc
4.63
KB
-rw-r--r--
epa-mail.elc
9.43
KB
-rw-r--r--
epa.elc
45.25
KB
-rw-r--r--
epg-config.elc
8.97
KB
-rw-r--r--
epg.elc
166.06
KB
-rw-r--r--
expand.elc
9.07
KB
-rw-r--r--
ezimage.elc
9.65
KB
-rw-r--r--
face-remap.elc
16.58
KB
-rw-r--r--
facemenu.elc
27.89
KB
-rw-r--r--
faces.elc
90.21
KB
-rw-r--r--
ffap.elc
50.3
KB
-rw-r--r--
filecache.elc
16.69
KB
-rw-r--r--
fileloop.elc
6.62
KB
-rw-r--r--
filenotify.elc
28.49
KB
-rw-r--r--
files-x.elc
21.9
KB
-rw-r--r--
files.elc
236.95
KB
-rw-r--r--
filesets.elc
72.57
KB
-rw-r--r--
find-cmd.elc
4.9
KB
-rw-r--r--
find-dired.elc
10.41
KB
-rw-r--r--
find-file.elc
18.33
KB
-rw-r--r--
find-lisp.elc
7.66
KB
-rw-r--r--
finder-inf.el
41.27
KB
-rw-r--r--
finder.elc
14.73
KB
-rw-r--r--
flow-ctrl.elc
2.26
KB
-rw-r--r--
foldout.elc
7.25
KB
-rw-r--r--
follow.elc
40.63
KB
-rw-r--r--
font-core.elc
12.41
KB
-rw-r--r--
font-lock.elc
61.63
KB
-rw-r--r--
format-spec.elc
3.93
KB
-rw-r--r--
format.elc
27.56
KB
-rw-r--r--
forms.elc
35.1
KB
-rw-r--r--
frame.elc
85.94
KB
-rw-r--r--
frameset.elc
48.02
KB
-rw-r--r--
fringe.elc
10.23
KB
-rw-r--r--
generic-x.elc
40.27
KB
-rw-r--r--
help-at-pt.elc
11.15
KB
-rw-r--r--
help-fns.elc
45.35
KB
-rw-r--r--
help-macro.elc
4.25
KB
-rw-r--r--
help-mode.elc
23.89
KB
-rw-r--r--
help.elc
52.22
KB
-rw-r--r--
hex-util.elc
1.3
KB
-rw-r--r--
hexl.elc
35.39
KB
-rw-r--r--
hfy-cmap.elc
25.45
KB
-rw-r--r--
hi-lock.elc
29.38
KB
-rw-r--r--
hilit-chg.elc
28.77
KB
-rw-r--r--
hippie-exp.elc
21.52
KB
-rw-r--r--
hl-line.elc
11.23
KB
-rw-r--r--
htmlfontify-loaddefs.el
808
B
-rw-r--r--
htmlfontify.elc
67.51
KB
-rw-r--r--
ibuf-ext.elc
77.15
KB
-rw-r--r--
ibuf-macs.elc
12.47
KB
-rw-r--r--
ibuffer-loaddefs.el
12.68
KB
-rw-r--r--
ibuffer.elc
98.62
KB
-rw-r--r--
icomplete.elc
22.83
KB
-rw-r--r--
ido.elc
127.92
KB
-rw-r--r--
ielm.elc
19.2
KB
-rw-r--r--
iimage.elc
4.92
KB
-rw-r--r--
image-dired.elc
92.97
KB
-rw-r--r--
image-file.elc
6.53
KB
-rw-r--r--
image-mode.elc
42.56
KB
-rw-r--r--
image.elc
34.45
KB
-rw-r--r--
imenu.elc
24.94
KB
-rw-r--r--
indent.elc
23.63
KB
-rw-r--r--
info-look.elc
28.18
KB
-rw-r--r--
info-xref.elc
16.59
KB
-rw-r--r--
info.elc
144.48
KB
-rw-r--r--
informat.elc
9.73
KB
-rw-r--r--
isearch.elc
147.85
KB
-rw-r--r--
isearchb.elc
4.73
KB
-rw-r--r--
jit-lock.elc
23.49
KB
-rw-r--r--
jka-cmpr-hook.elc
13.07
KB
-rw-r--r--
jka-compr.elc
12.09
KB
-rw-r--r--
json.elc
22.76
KB
-rw-r--r--
jsonrpc.elc
31.65
KB
-rw-r--r--
kermit.elc
2.92
KB
-rw-r--r--
kmacro.elc
35.15
KB
-rw-r--r--
ldefs-boot.el
1.41
MB
-rw-r--r--
linum.elc
10.77
KB
-rw-r--r--
loaddefs.el
1.41
MB
-rw-r--r--
loadhist.elc
9.77
KB
-rw-r--r--
loadup.el
20.08
KB
-rw-r--r--
locate.elc
19.57
KB
-rw-r--r--
lpr.elc
9.44
KB
-rw-r--r--
ls-lisp.elc
22.7
KB
-rw-r--r--
macros.elc
7.23
KB
-rw-r--r--
makesum.elc
2.47
KB
-rw-r--r--
man.elc
53.85
KB
-rw-r--r--
master.elc
4.58
KB
-rw-r--r--
mb-depth.elc
3.56
KB
-rw-r--r--
md4.elc
8.12
KB
-rw-r--r--
menu-bar.elc
86.61
KB
-rw-r--r--
midnight.elc
10.22
KB
-rw-r--r--
minibuf-eldef.elc
6.43
KB
-rw-r--r--
minibuffer.elc
104.08
KB
-rw-r--r--
misc.elc
5.4
KB
-rw-r--r--
misearch.elc
12.37
KB
-rw-r--r--
mouse-copy.elc
3.61
KB
-rw-r--r--
mouse-drag.elc
6.43
KB
-rw-r--r--
mouse.elc
71.3
KB
-rw-r--r--
mpc.elc
79.29
KB
-rw-r--r--
msb.elc
26.76
KB
-rw-r--r--
mwheel.elc
12.83
KB
-rw-r--r--
newcomment.elc
39.43
KB
-rw-r--r--
notifications.elc
13.78
KB
-rw-r--r--
novice.elc
4.43
KB
-rw-r--r--
obarray.elc
1.71
KB
-rw-r--r--
outline.elc
37.04
KB
-rw-r--r--
paren.elc
8.69
KB
-rw-r--r--
password-cache.elc
3.57
KB
-rw-r--r--
pcmpl-cvs.elc
6.17
KB
-rw-r--r--
pcmpl-gnu.elc
12.96
KB
-rw-r--r--
pcmpl-linux.elc
3.09
KB
-rw-r--r--
pcmpl-rpm.elc
11.17
KB
-rw-r--r--
pcmpl-unix.elc
7.52
KB
-rw-r--r--
pcmpl-x.elc
8.95
KB
-rw-r--r--
pcomplete.elc
36.16
KB
-rw-r--r--
pixel-scroll.elc
10.82
KB
-rw-r--r--
plstore.elc
14.75
KB
-rw-r--r--
printing.elc
157.7
KB
-rw-r--r--
proced.elc
62.85
KB
-rw-r--r--
profiler.elc
42.81
KB
-rw-r--r--
ps-bdf.elc
12.69
KB
-rw-r--r--
ps-def.elc
2.23
KB
-rw-r--r--
ps-mule.elc
34.89
KB
-rw-r--r--
ps-print-loaddefs.el
2.6
KB
-rw-r--r--
ps-print.elc
141.17
KB
-rw-r--r--
ps-samp.elc
5.26
KB
-rw-r--r--
recentf.elc
48.73
KB
-rw-r--r--
rect.elc
26.88
KB
-rw-r--r--
register.elc
27.63
KB
-rw-r--r--
registry.elc
10.41
KB
-rw-r--r--
repeat.elc
5.14
KB
-rw-r--r--
replace.elc
84.62
KB
-rw-r--r--
reposition.elc
2.66
KB
-rw-r--r--
reveal.elc
7.16
KB
-rw-r--r--
rfn-eshadow.elc
7.23
KB
-rw-r--r--
rot13.elc
2.56
KB
-rw-r--r--
rtree.elc
4.09
KB
-rw-r--r--
ruler-mode.elc
21.87
KB
-rw-r--r--
savehist.elc
10.83
KB
-rw-r--r--
saveplace.elc
11.87
KB
-rw-r--r--
sb-image.elc
2.75
KB
-rw-r--r--
scroll-all.elc
4.41
KB
-rw-r--r--
scroll-bar.elc
16.68
KB
-rw-r--r--
scroll-lock.elc
5.41
KB
-rw-r--r--
select.elc
18.75
KB
-rw-r--r--
server.elc
47.56
KB
-rw-r--r--
ses.elc
131.12
KB
-rw-r--r--
shadowfile.elc
31.16
KB
-rw-r--r--
shell.elc
41.53
KB
-rw-r--r--
simple.elc
301.78
KB
-rw-r--r--
skeleton.elc
15.76
KB
-rw-r--r--
so-long.elc
47.15
KB
-rw-r--r--
sort.elc
15.49
KB
-rw-r--r--
soundex.elc
1.14
KB
-rw-r--r--
speedbar.elc
115.02
KB
-rw-r--r--
startup.elc
68.51
KB
-rw-r--r--
strokes.elc
44.03
KB
-rw-r--r--
subdirs.el
450
B
-rw-r--r--
subr.elc
186.63
KB
-rw-r--r--
svg.elc
12.71
KB
-rw-r--r--
t-mouse.elc
3.8
KB
-rw-r--r--
tab-bar.elc
52.48
KB
-rw-r--r--
tab-line.elc
29.85
KB
-rw-r--r--
tabify.elc
2.17
KB
-rw-r--r--
talk.elc
2.99
KB
-rw-r--r--
tar-mode.elc
57.2
KB
-rw-r--r--
tempo.elc
19.18
KB
-rw-r--r--
term.elc
107.99
KB
-rw-r--r--
thingatpt.elc
16.88
KB
-rw-r--r--
thread.elc
8.08
KB
-rw-r--r--
thumbs.elc
25.74
KB
-rw-r--r--
time-stamp.elc
18.69
KB
-rw-r--r--
time.elc
20.87
KB
-rw-r--r--
timezone.elc
10.94
KB
-rw-r--r--
tmm.elc
13.39
KB
-rw-r--r--
tool-bar.elc
9.76
KB
-rw-r--r--
tooltip.elc
13.19
KB
-rw-r--r--
tree-widget.elc
19.84
KB
-rw-r--r--
tutorial.elc
22.28
KB
-rw-r--r--
type-break.elc
37.35
KB
-rw-r--r--
uniquify.elc
17.68
KB
-rw-r--r--
userlock.elc
6.33
KB
-rw-r--r--
vcursor.elc
23.92
KB
-rw-r--r--
version.elc
6.01
KB
-rw-r--r--
view.elc
34.69
KB
-rw-r--r--
vt-control.elc
1.99
KB
-rw-r--r--
vt100-led.elc
1.33
KB
-rw-r--r--
w32-fns.elc
11.01
KB
-rw-r--r--
w32-vars.elc
5.16
KB
-rw-r--r--
wdired.elc
23.52
KB
-rw-r--r--
whitespace.elc
69.06
KB
-rw-r--r--
wid-browse.elc
8.48
KB
-rw-r--r--
wid-edit.elc
99.52
KB
-rw-r--r--
widget.elc
1.4
KB
-rw-r--r--
windmove.elc
19.82
KB
-rw-r--r--
window.elc
294.5
KB
-rw-r--r--
winner.elc
12.04
KB
-rw-r--r--
woman.elc
109.43
KB
-rw-r--r--
x-dnd.elc
19.56
KB
-rw-r--r--
xdg.elc
10.14
KB
-rw-r--r--
xml.elc
25.31
KB
-rw-r--r--
xt-mouse.elc
14.1
KB
-rw-r--r--
xwidget.elc
18.9
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : profiler.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313& \207" [require cl-lib custom-declare-group profiler nil "Emacs profiler." :group lisp :version "24.3" :prefix "profiler-"] 10) (defconst profiler-version "24.3") (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable profiler-sampling-interval funcall function #[0 "\300\207" [1000000] 1] "Default sampling interval in nanoseconds." :type integer :group profiler] 8) #@15 (fn OBJECT) (defalias 'profiler-ensure-string #[257 "\211;\203 \207\2119\203 \300!\207\211\247\203 \301!\207\302\303\"\207" [symbol-name number-to-string format "%s"] 4 (#$ . 874)]) #@23 (fn NUMBER DIVISOR) (defalias 'profiler-format-percent #[514 "\300\301\302\303_\"\"\207" [format "%d%%" floor 100.0] 7 (#$ . 1070)]) #@54 Format NUMBER in human readable string. (fn NUMBER) (defalias 'profiler-format-number #[257 "\211\250\203V \211\300V\203V \301\302\303\"!T\304\246\305\306!\307\"\307\211:\203E @\262\300U\2034 \211\310C\244\262\304\262\211C\244\262S\262A\262\202 \311\312@\310=\203S A\202T \"\207\313!\207" [0 floor log 10 3 append number-to-string nil 44 apply string profiler-ensure-string] 9 (#$ . 1213)]) #@23 (fn FMT &rest ARGS) (defalias 'profiler-format #[385 "\300\211\211\211\300\211\211\211 :\203\304 @\262\211A\262\242\262 \211A\262\242\262@\262:\203\304 @\262:\203B \301\302#\202g ;\203P \303\"\202g 9\203d \304!\203d !\202g \305!\262G\262W\203\213 \211\306\307 \310Z]\311\312%\210C\244\262\202\270 \211\313\307 Z]\314\" \315\267\202\250 P\202\262 \211P\202\262 \316\317 \320#\205\262 \300\262C\244\262 A\262\nA\262\202\n \301\321\"\207" [nil apply profiler-format format fboundp profiler-ensure-string put-text-property 0 2 invisible profiler make-string 32 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (left 156 right 162)) error "cl-ecase failed: %s, %s" (left right) concat] 19 (#$ . 1630)]) #@106 Format ENTRY in human readable string. ENTRY would be a function name of a function itself. (fn ENTRY) (defalias 'profiler-format-entry #[257 "\211\242\300>\203 \301\302\303!\"\207\304!\203 \301\305\303!\"\207\306!\204+ \2119\204+ \211;\2030 \301\307\"\207\301\310\303!\"\207" [(closure lambda) format "#<lambda %#x>" sxhash byte-code-function-p "#<compiled %#x>" subrp "%s" "#<unknown %#x>"] 5 (#$ . 2433)]) #@14 (fn ENTRY) (defalias 'profiler-fixup-entry #[257 "\2119\203 \207\300!\207" [profiler-format-entry] 3 (#$ . 2858)]) #@18 (fn BACKTRACE) (defalias 'profiler-fixup-backtrace #[257 "\300\301\302\303\"\"\207" [apply vector mapcar profiler-fixup-entry] 6 (#$ . 2983)]) #@57 Compare LOG1 with LOG2 and return diff. (fn LOG1 LOG2) (defalias 'profiler-compare-logs #[514 "\300\301\302\"\303\304\305\306\307\310!\311\"\312\313%\"\210\303\304\305\314\307\310\"\315\"\316\313%\"\210\211\207" [make-hash-table :test equal maphash make-byte-code 514 "\301\300#\207" vconcat vector [puthash] 6 "\n\n(fn BACKTRACE COUNT)" "\302\303\300\304#Z\301#\207" [puthash gethash 0] 8] 11 (#$ . 3135)]) #@12 (fn LOG) (defalias 'profiler-fixup-log #[257 "\300\301\302\"\303\304\305\306\307\310!\311\"\312\313%\"\210\211\207" [make-hash-table :test equal maphash make-byte-code 514 "\301\302!\300#\207" vconcat vector [puthash profiler-fixup-backtrace] 6 "\n\n(fn BACKTRACE COUNT)"] 9 (#$ . 3563)]) #@77 compiler-macro for inlining `profiler-profile-tag'. (fn CL-WHOLE-ARG CL-X) (defalias 'profiler-profile-tag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block profiler-profile-tag (progn (aref cl-x 0))) nil] 9 (#$ . 3865)]) (put 'profiler-profile-tag 'compiler-macro 'profiler-profile-tag--cmacro) #@65 Access slot "tag" of `profiler-profile' struct CL-X. (fn CL-X) (defalias 'profiler-profile-tag #[257 "\211\300H\207" [0] 3 (#$ . 4205)]) (byte-code "\300\301\302\303#\300\207" [function-put profiler-profile-tag side-effect-free t] 4) #@81 compiler-macro for inlining `profiler-profile-version'. (fn CL-WHOLE-ARG CL-X) (defalias 'profiler-profile-version--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block profiler-profile-version (progn (aref cl-x 1))) nil] 9 (#$ . 4446)]) (put 'profiler-profile-version 'compiler-macro 'profiler-profile-version--cmacro) #@69 Access slot "version" of `profiler-profile' struct CL-X. (fn CL-X) (defalias 'profiler-profile-version #[257 "\211\300H\207" [1] 3 (#$ . 4806)]) (byte-code "\300\301\302\303#\300\207" [function-put profiler-profile-version side-effect-free t] 4) #@78 compiler-macro for inlining `profiler-profile-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'profiler-profile-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block profiler-profile-type (progn (aref cl-x 2))) nil] 9 (#$ . 5059)]) (put 'profiler-profile-type 'compiler-macro 'profiler-profile-type--cmacro) #@66 Access slot "type" of `profiler-profile' struct CL-X. (fn CL-X) (defalias 'profiler-profile-type #[257 "\211\300H\207" [2] 3 (#$ . 5404)]) (byte-code "\300\301\302\303#\300\207" [function-put profiler-profile-type side-effect-free t] 4) #@77 compiler-macro for inlining `profiler-profile-log'. (fn CL-WHOLE-ARG CL-X) (defalias 'profiler-profile-log--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block profiler-profile-log (progn (aref cl-x 3))) nil] 9 (#$ . 5648)]) (put 'profiler-profile-log 'compiler-macro 'profiler-profile-log--cmacro) #@65 Access slot "log" of `profiler-profile' struct CL-X. (fn CL-X) (defalias 'profiler-profile-log #[257 "\211\300H\207" [3] 3 (#$ . 5988)]) (byte-code "\300\301\302\303#\300\207" [function-put profiler-profile-log side-effect-free t] 4) #@83 compiler-macro for inlining `profiler-profile-timestamp'. (fn CL-WHOLE-ARG CL-X) (defalias 'profiler-profile-timestamp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block profiler-profile-timestamp (progn (aref cl-x 4))) nil] 9 (#$ . 6229)]) (put 'profiler-profile-timestamp 'compiler-macro 'profiler-profile-timestamp--cmacro) #@71 Access slot "timestamp" of `profiler-profile' struct CL-X. (fn CL-X) (defalias 'profiler-profile-timestamp #[257 "\211\300H\207" [4] 3 (#$ . 6599)]) (byte-code "\300\301\302\303#\300\207" [function-put profiler-profile-timestamp side-effect-free t] 4) #@80 compiler-macro for inlining `profiler-profile-diff-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'profiler-profile-diff-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block profiler-profile-diff-p (progn (aref cl-x 5))) nil] 9 (#$ . 6858)]) (put 'profiler-profile-diff-p 'compiler-macro 'profiler-profile-diff-p--cmacro) #@68 Access slot "diff-p" of `profiler-profile' struct CL-X. (fn CL-X) (defalias 'profiler-profile-diff-p #[257 "\211\300H\207" [5] 3 (#$ . 7213)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put profiler-profile-diff-p side-effect-free t defalias copy-profiler-profile copy-sequence] 4) #@122 compiler-macro for inlining `profiler-make-profile'. (fn CL-WHOLE &cl-quote &key TAG VERSION TYPE LOG TIMESTAMP DIFF-P) (defalias 'profiler-make-profile--cmacro #[385 "\300\301\"\206 \302A@\300\303\"\206 \304A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\211\203Z \211@\311>\203B \211AA\262\202/ \312>A@\203Q \313\262\202/ \314\315@\"\210\202/ \210\316\317\320\313 \313 & \207" [plist-member :tag (nil 'profiler-profile) :version (nil profiler-version) :type :log :timestamp :diff-p (:tag :version :type :log :timestamp :diff-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:tag :version :type :log :timestamp :diff-p)" cl--defsubst-expand (tag version type log timestamp diff-p) (cl-block profiler-make-profile (vector tag version type log timestamp diff-p))] 20 (#$ . 7519)]) (put 'profiler-make-profile 'compiler-macro 'profiler-make-profile--cmacro) #@102 Constructor for objects of type `profiler-profile'. (fn &key TAG VERSION TYPE LOG TIMESTAMP DIFF-P) (defalias 'profiler-make-profile #[128 "\301\302\"\206 \303A@\301\304\"\206 \305DA@\301\306\"A@\301\307\"A@\301\310\"A@\301\311\"A@\211\203\\ \211@\312>\203D \211AA\262\2021 \313>A@\203S \305\262\2021 \314\315@\"\210\2021 \210\316&\207" [profiler-version plist-member :tag (nil profiler-profile) :version nil :type :log :timestamp :diff-p (:tag :version :type :log :timestamp :diff-p :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:tag :version :type :log :timestamp :diff-p)" vector] 14 (#$ . 8447)]) (byte-code "\300\301\302\303#\304\305\306\211\307\306\310\311\305\306& \207" [function-put profiler-make-profile side-effect-free t cl-struct-define profiler-profile nil vector ((tag 'profiler-profile) (version profiler-version) (type) (log) (timestamp) (diff-p)) cl-struct-profiler-profile-tags] 11) #@73 Compare PROFILE1 with PROFILE2 and return diff. (fn PROFILE1 PROFILE2) (defalias 'profiler-compare-profiles #[514 "\300H\300H=\204 \301\302!\210\303\304\300H\305\306 \307\310\311\312\n\313H\n\313H\"&\207" [2 error "Can't compare different type of profiles" profiler-make-profile :type :timestamp current-time :diff-p t :log profiler-compare-logs 3] 14 (#$ . 9416)]) #@80 Fixup PROFILE so that the profile could be serialized into file. (fn PROFILE) (defalias 'profiler-fixup-profile #[257 "\300\301\302H\303\304H\305\306H\307\310 \311H!&\207" [profiler-make-profile :type 2 :timestamp 4 :diff-p 5 :log profiler-fixup-log 3] 12 (#$ . 9796)]) #@76 Write PROFILE into file FILENAME. (fn PROFILE FILENAME &optional CONFIRM) (defalias 'profiler-write-profile #[770 "\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\211\314\315!p\"\210*\316\"*\207" [print-length print-level generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 nil print profiler-fixup-profile write-file] 10 (#$ . 10079)]) #@49 Read profile from file FILENAME. (fn FILENAME) (defalias 'profiler-read-profile #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311!\210eb\210\312p!*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents read] 8 (#$ . 10510)]) #@142 Return non-nil if the profiler is running. Optional argument MODE means only check for the specified mode (cpu or mem). (fn &optional MODE) (defalias 'profiler-running-p #[256 "\211\300\267\202 \301\302!\205 \302 \207\303 \207\304\305!\206 \304\306!\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cpu 6 mem 15)) fboundp profiler-cpu-running-p profiler-memory-running-p profiler-running-p cpu mem] 3 (#$ . 10856)]) (defvar profiler-cpu-log nil) (defvar profiler-memory-log nil) #@21 Return CPU profile. (defalias 'profiler-cpu-profile #[0 "\302\303\304 \305 \306&\207" [profiler-version profiler-cpu-log vector profiler-profile cpu current-time nil] 7 (#$ . 11388)]) #@24 Return memory profile. (defalias 'profiler-memory-profile #[0 "\302\303\304 \305 \306&\207" [profiler-version profiler-memory-log vector profiler-profile memory current-time nil] 7 (#$ . 11580)]) #@76 compiler-macro for inlining `profiler-calltree-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'profiler-calltree-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block profiler-calltree-p (and (memq (type-of cl-x) cl-struct-profiler-calltree-tags) t)) nil] 9 (#$ . 11784)]) (put 'profiler-calltree-p 'compiler-macro 'profiler-calltree-p--cmacro) #@13 (fn CL-X) (defalias 'profiler-calltree-p #[257 "\301!>\205 \302\207" [cl-struct-profiler-calltree-tags type-of t] 3 (#$ . 12161)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put profiler-calltree-p side-effect-free error-free put profiler-calltree cl-deftype-satisfies] 5) #@80 compiler-macro for inlining `profiler-calltree-entry'. (fn CL-WHOLE-ARG CL-X) (defalias 'profiler-calltree-entry--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block profiler-calltree-entry (progn (or (profiler-calltree-p cl-x) (signal 'wrong-type-argument (list 'profiler-calltree cl-x))) (aref cl-x 1))) nil] 9 (#$ . 12464)]) (put 'profiler-calltree-entry 'compiler-macro 'profiler-calltree-entry--cmacro) #@68 Access slot "entry" of `profiler-calltree' struct CL-X. (fn CL-X) (defalias 'profiler-calltree-entry #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-profiler-calltree-tags type-of signal wrong-type-argument profiler-calltree 1] 5 (#$ . 12913)]) (byte-code "\300\301\302\303#\300\207" [function-put profiler-calltree-entry side-effect-free t] 4) #@80 compiler-macro for inlining `profiler-calltree-count'. (fn CL-WHOLE-ARG CL-X) (defalias 'profiler-calltree-count--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block profiler-calltree-count (progn (or (profiler-calltree-p cl-x) (signal 'wrong-type-argument (list 'profiler-calltree cl-x))) (aref cl-x 2))) nil] 9 (#$ . 13284)]) (put 'profiler-calltree-count 'compiler-macro 'profiler-calltree-count--cmacro) #@68 Access slot "count" of `profiler-calltree' struct CL-X. (fn CL-X) (defalias 'profiler-calltree-count #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-profiler-calltree-tags type-of signal wrong-type-argument profiler-calltree 2] 5 (#$ . 13733)]) (byte-code "\300\301\302\303#\300\207" [function-put profiler-calltree-count side-effect-free t] 4) #@88 compiler-macro for inlining `profiler-calltree-count-percent'. (fn CL-WHOLE-ARG CL-X) (defalias 'profiler-calltree-count-percent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block profiler-calltree-count-percent (progn (or (profiler-calltree-p cl-x) (signal 'wrong-type-argument (list 'profiler-calltree cl-x))) (aref cl-x 3))) nil] 9 (#$ . 14104)]) (put 'profiler-calltree-count-percent 'compiler-macro 'profiler-calltree-count-percent--cmacro) #@76 Access slot "count-percent" of `profiler-calltree' struct CL-X. (fn CL-X) (defalias 'profiler-calltree-count-percent #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-profiler-calltree-tags type-of signal wrong-type-argument profiler-calltree 3] 5 (#$ . 14593)]) (byte-code "\300\301\302\303#\300\207" [function-put profiler-calltree-count-percent side-effect-free t] 4) #@81 compiler-macro for inlining `profiler-calltree-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'profiler-calltree-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block profiler-calltree-parent (progn (or (profiler-calltree-p cl-x) (signal 'wrong-type-argument (list 'profiler-calltree cl-x))) (aref cl-x 4))) nil] 9 (#$ . 14988)]) (put 'profiler-calltree-parent 'compiler-macro 'profiler-calltree-parent--cmacro) #@69 Access slot "parent" of `profiler-calltree' struct CL-X. (fn CL-X) (defalias 'profiler-calltree-parent #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-profiler-calltree-tags type-of signal wrong-type-argument profiler-calltree 4] 5 (#$ . 15442)]) (byte-code "\300\301\302\303#\300\207" [function-put profiler-calltree-parent side-effect-free t] 4) #@83 compiler-macro for inlining `profiler-calltree-children'. (fn CL-WHOLE-ARG CL-X) (defalias 'profiler-calltree-children--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block profiler-calltree-children (progn (or (profiler-calltree-p cl-x) (signal 'wrong-type-argument (list 'profiler-calltree cl-x))) (aref cl-x 5))) nil] 9 (#$ . 15816)]) (put 'profiler-calltree-children 'compiler-macro 'profiler-calltree-children--cmacro) #@71 Access slot "children" of `profiler-calltree' struct CL-X. (fn CL-X) (defalias 'profiler-calltree-children #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-profiler-calltree-tags type-of signal wrong-type-argument profiler-calltree 5] 5 (#$ . 16280)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put profiler-calltree-children side-effect-free t defalias copy-profiler-calltree copy-sequence] 4) #@127 compiler-macro for inlining `profiler-make-calltree'. (fn CL-WHOLE &cl-quote &key ENTRY COUNT COUNT-PERCENT PARENT CHILDREN) (defalias 'profiler-make-calltree--cmacro #[385 "\300\301\"A@\300\302\"\206 \303A@\300\304\"\206 \305A@\300\306\"A@\300\307\"A@\211\203R \211@\310>\203: \211AA\262\202' \311>A@\203I \312\262\202' \313\314@\"\210\202' \210\315\316\317\312\n\312\n\n\n\n\n&\n\207" [plist-member :entry :count (nil 0) :count-percent (nil "") :parent :children (:entry :count :count-percent :parent :children :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:entry :count :count-percent :parent :children)" cl--defsubst-expand (entry count count-percent parent children) (cl-block profiler-make-calltree (record 'profiler-calltree entry count count-percent parent children))] 18 (#$ . 16717)]) (put 'profiler-make-calltree 'compiler-macro 'profiler-make-calltree--cmacro) #@107 Constructor for objects of type `profiler-calltree'. (fn &key ENTRY COUNT COUNT-PERCENT PARENT CHILDREN) (defalias 'profiler-make-calltree #[128 "\300\301\"A@\300\302\"\206 \303A@\300\304\"\206 \305A@\300\306\"A@\300\307\"A@\211\203R \211@\310>\203: \211AA\262\202' \311>A@\203I \312\262\202' \313\314@\"\210\202' \210\315\316&\207" [plist-member :entry :count (nil 0) :count-percent (nil "") :parent :children (:entry :count :count-percent :parent :children :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:entry :count :count-percent :parent :children)" record profiler-calltree] 13 (#$ . 17651)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put profiler-make-calltree side-effect-free t cl-struct-define profiler-calltree nil cl-structure-object record ((cl-tag-slot) (entry) (count 0) (count-percent "") (parent) (children)) cl-struct-profiler-calltree-tags] 11) #@13 (fn TREE) (defalias 'profiler-calltree-leaf-p #[257 "\301!>\204 \302\303\304D\"\210\211\305H?\207" [cl-struct-profiler-calltree-tags type-of signal wrong-type-argument profiler-calltree 5] 5 (#$ . 18624)]) #@12 (fn A B) (defalias 'profiler-calltree-count< #[514 "\301!>\204 \302\303\304D\"\210\305H\306=\203 \306\207\301!>\204( \302\303\304D\"\210\211\305H\306=\2032 \307\207\301!>\204A \302\303\304D\"\210\310H\301!>\204S \302\303\304D\"\210\310HW\207" [cl-struct-profiler-calltree-tags type-of signal wrong-type-argument profiler-calltree 1 t nil 2] 7 (#$ . 18842)]) #@12 (fn A B) (defalias 'profiler-calltree-count> #[514 "\300\"?\207" [profiler-calltree-count<] 5 (#$ . 19225)]) #@13 (fn TREE) (defalias 'profiler-calltree-depth #[257 "\301\302!>\204 \303\304\305D\"\210\306H\211\262\203 \211T\262\202 \211\207" [cl-struct-profiler-calltree-tags 0 type-of signal wrong-type-argument profiler-calltree 4] 6 (#$ . 19344)]) #@59 Return a child tree of ENTRY under TREE. (fn TREE ENTRY) (defalias 'profiler-calltree-find #[514 "\301\302!>\204 \303\304\305D\"\210\306H\211\203? \204? \211@\307\302!>\204- \303\304\305D\"\210\310H\"\2038 \211\262A\266\202\202 \207" [cl-struct-profiler-calltree-tags nil type-of signal wrong-type-argument profiler-calltree 5 function-equal 1] 10 (#$ . 19598)]) #@26 (fn CALLTREE FUNCTION) (defalias 'profiler-calltree-walk #[514 "\211!\210\301!>\204 \302\303\304D\"\210\305H\211\205( \211@\306\"\210A\266\202\202 \207" [cl-struct-profiler-calltree-tags type-of signal wrong-type-argument profiler-calltree 5 profiler-calltree-walk] 7 (#$ . 19983)]) #@35 (fn TREE LOG &optional REVERSE) (defalias 'profiler-calltree-build-1 #[770 "\300\301\302\303\304\305\"\306\"\307\310%\"\207" [maphash make-byte-code 514 "\300G\211\303\211W\205x \211\301\203 \202 \304\305#H\211\203o \306\"\211\204R \307\310\303\311 \312&\262\313!\n>\204F \314\315\310 D\"\210\211\316\316HBI\266\313!\n>\204a \314\315\310D\"\210\211\211\317\317H \\I\266\262\266\211T\262\202 \266\202\207" vconcat vector [cl-struct-profiler-calltree-tags 0 - 1 profiler-calltree-find record profiler-calltree "" nil type-of signal wrong-type-argument 5 2] 16 "\n\n(fn BACKTRACE COUNT)"] 11 (#$ . 20284)]) (define-hash-table-test 'profiler-function-equal 'function-equal #[257 "\300!\203\n \211\301H\207\211\242\302=\203 \211AA\207\207" [byte-code-function-p 1 closure] 3 "\n\n(fn F)"]) #@17 (fn TREE LOG) (defalias 'profiler-calltree-build-unified #[514 "\301\302\303\"\301\302\304\"\305\306\307\310!\311$\312!>\204! \313\314\315D\"\210\211\316\316HBI\266\317\320\321\322\323\324!\325\"\326\327%\"\210\317\320\321\330\323\324\"\331\"\332\327%\"\210\317\320\321\333\323\324\n#\334\"\335\327%\"\207" [cl-struct-profiler-calltree-tags make-hash-table :test profiler-function-equal eq profiler-make-calltree :entry intern "..." :parent type-of signal wrong-type-argument profiler-calltree 5 maphash make-byte-code 514 "G\211S\301\211W\205. \211H\211\203% B\300\302\303\"B#\266\266\211T\262\202 \266\202\207" vconcat vector [0 puthash gethash] 16 "\n\n(fn BACKTRACE COUNT)" "GSH\302T\303\300\"\211\211\203\232 \211@\211@A\211\nY\204' \304\305!\210\306HH\"\2048 \304\307!\210\211S\262S\262\211\310V\203R \306HH\"\2048 \nW\203\221 \fZ\nX\204g \304\311!\210\312\211=\203w \302\211\262\202| \303\301\"A\211\262\204i \203\217 \262\fB\262 \266\266A\266\202\202 \210\313\301#\207" [nil gethash cl--assertion-failed (>= match imatch) function-equal (function-equal (aref backtrace max) (aref parent i)) 0 (<= (- max i) best-match) t puthash] 20 "\300\304BC\211G\305\301\"\211\262\203 B\262A\262\202 @ASH\203E \306\302! >\2046 \307\310\311\302D\"\210\302\211\312\312H\\I\266\302\262\211\205\302 \211@\211@A\211S\211V\203\271 HS\262\211\203\265 \313\f\"\211\204\230 \314\311\315\316\317&\262\306 ! >\204\214 \307\310\311D\"\210\f\211\320\320HBI\266\306! >\204\247 \307\310\311D\"\210\211\211\312\312H\\I\266\262\f\210\202U \266A\266\202\202F \262\207" [cl-struct-profiler-calltree-tags -1 gethash type-of signal wrong-type-argument profiler-calltree 2 profiler-calltree-find record 0 "" nil 5] 22] 14 (#$ . 21117)]) #@13 (fn TREE) (defalias 'profiler-calltree-compute-percentages #[257 "\301C\302!>\204 \303\304\305D\"\210\306H\211\2039 \211@\211\242\302!>\204, \303\304\305D\"\210\307H\\\240\210A\266\202\202 \210\211\242\301U?\205R \310\311\312\313\314\315!\316\"\317\320%\"\207" [cl-struct-profiler-calltree-tags 0 type-of signal wrong-type-argument profiler-calltree 5 2 profiler-calltree-walk make-byte-code 257 "\302! >\204 \303\304\305D\"\210\211\211\306\307\302! >\204# \303\304\305D\"\210\310H\300\242\"I\207" vconcat vector [cl-struct-profiler-calltree-tags type-of signal wrong-type-argument profiler-calltree 3 profiler-format-percent 2] 9 "\n\n(fn NODE)"] 10 (#$ . 22975)]) #@25 (fn LOG &key REVERSE) (defalias 'profiler-calltree-build #[385 "\300\301\"A@\211\2031 \211@\302>\203 \211AA\262\202 \303>A@\203( \304\262\202 \305\306@\"\210\202 \210\307\310\304\311\312\304\211&\203H \313#\210\202M \314\"\210\315!\210\211\262\207" [plist-member :reverse (:reverse :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:reverse)" record profiler-calltree 0 "" profiler-calltree-build-1 profiler-calltree-build-unified profiler-calltree-compute-percentages] 10 (#$ . 23671)]) #@23 (fn TREE PREDICATE) (defalias 'profiler-calltree-sort #[514 "\301!>\204 \302\303\304D\"\210\305H\301!>\204! \302\303\304D\"\210\211\305\306\"I\266\301!>\204; \302\303\304D\"\210\305H\211\205P \211@\307\"\210A\266\202\202> \262\207" [cl-struct-profiler-calltree-tags type-of signal wrong-type-argument profiler-calltree 5 sort profiler-calltree-sort] 9 (#$ . 24216)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\300\315\302\303\316DD\317\306\307\310\311&\207" [custom-declare-variable profiler-report-closed-mark funcall function #[0 "\300\207" [#1="+"] 1 #1#] "An indicator of closed calltrees." :type string :group profiler profiler-report-open-mark #[0 "\300\207" [#2="-"] 1 #2#] "An indicator of open calltrees." profiler-report-leaf-mark #[0 "\300\207" [#3=" "] 1 #3#] "An indicator of calltree leaves."] 8) (defvar profiler-report-cpu-line-format '((50 left) (24 right ((19 right) (5 right))))) (defvar profiler-report-memory-line-format '((55 left) (19 right ((14 right profiler-format-number) (5 right))))) #@22 The current profile. (defvar profiler-report-profile nil (#$ . 25325)) (make-variable-buffer-local 'profiler-report-profile) #@82 True if calltree is rendered in bottom-up. Do not touch this variable directly. (defvar profiler-report-reversed nil (#$ . 25456)) (make-variable-buffer-local 'profiler-report-reversed) #@85 The value can be `ascending' or `descending'. Do not touch this variable directly. (defvar profiler-report-order nil (#$ . 25649)) (make-variable-buffer-local 'profiler-report-order) #@14 (fn ENTRY) (defalias 'profiler-report-make-entry-part #[257 "\211\300=\203\n \301\202) \2119\203& \302!\203& \303\304!\305\306\307\310\311\312\313\314& \202) \315!\303\316#\207" [t "Others" fboundp propertize symbol-name face link follow-link " " mouse-face highlight help-echo "mouse-2: jump to definition\nRET: expand or collapse" profiler-format-entry profiler-entry] 11 (#$ . 25839)]) #@13 (fn TREE) (defalias 'profiler-report-make-name-part #[257 "\303!>\204 \304\305\306D\"\210\211\307H\310!\311S\312\\\313\"\314!\203& \202' \n\315!\316\317$\207" [cl-struct-profiler-calltree-tags profiler-report-leaf-mark profiler-report-closed-mark type-of signal wrong-type-argument profiler-calltree 1 profiler-calltree-depth make-string 0 32 profiler-calltree-leaf-p profiler-report-make-entry-part format "%s%s %s"] 11 (#$ . 26241)]) #@23 (fn FMT &rest ARGS) (defalias 'profiler-report-header-line-format #[385 "\300\301#\302\303\304#\305P\207" [apply profiler-format replace-regexp-in-string "%" "%%" " "] 7 (#$ . 26697)]) #@13 (fn TREE) (defalias 'profiler-report-line-format #[257 "\304H\305!\306! >\204 \307\310\311D\"\210\312H\306! >\204( \307\310\311D\"\210\313H\314\312H\211\315\267\202= \n\202F \202F \316\317\320#\205F \321\262\203b \322V\203\\ \323\324\"\202] \325D\202e D#\207" [profiler-report-profile cl-struct-profiler-calltree-tags profiler-report-cpu-line-format profiler-report-memory-line-format 5 profiler-report-make-name-part type-of signal wrong-type-argument profiler-calltree 2 3 profiler-format #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cpu 53 memory 57)) error "cl-ecase failed: %s, %s" (cpu memory) nil 0 format "+%s" ""] 11 (#$ . 26894)]) #@13 (fn TREE) (defalias 'profiler-report-insert-calltree #[257 "\300!\301\302P\303#c\207" [profiler-report-line-format propertize "\n" calltree] 6 (#$ . 27607)]) #@13 (fn TREE) (defalias 'profiler-report-insert-calltree-children #[257 "\301\302\303!>\204 \304\305\306D\"\210\307H\"\207" [cl-struct-profiler-calltree-tags mapc profiler-report-insert-calltree type-of signal wrong-type-argument profiler-calltree 5] 7 (#$ . 27776)]) #@36 Keymap for `profiler-report-mode'. (defvar profiler-report-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\307#\210\301\311\307#\210\301\312\313#\210\301\314\313#\210\301\315\316#\210\301\317\313#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\333#\210\301\334\335#\210\336\337!\210\340\341\342\343$\210\211\207" [make-sparse-keymap define-key "n" profiler-report-next-entry "p" profiler-report-previous-entry " " profiler-report-toggle-entry " " "i" "f" profiler-report-find-entry "j" [follow-link] mouse-face [mouse-2] "d" profiler-report-describe-entry "C" profiler-report-render-calltree "B" profiler-report-render-reversed-calltree "A" profiler-report-ascending-sort "D" profiler-report-descending-sort "=" profiler-report-compare-profile "" profiler-report-write-profile (lambda (#1=#:def-tmp-var) (defvar profiler-report-menu #1# #2="Menu for Profiler Report mode.")) nil easy-menu-do-define profiler-report-menu #2# ("Profiler" ["Next Entry" profiler-report-next-entry :active t :help "Move to next entry"] ["Previous Entry" profiler-report-previous-entry :active t :help "Move to previous entry"] "--" ["Toggle Entry" profiler-report-toggle-entry :active (profiler-report-calltree-at-point) :help "Expand or collapse the current entry"] ["Find Entry" profiler-report-find-entry :active (profiler-report-calltree-at-point) :help "Find the definition of the current entry"] ["Describe Entry" profiler-report-describe-entry :active (profiler-report-calltree-at-point) :help "Show the documentation of the current entry"] "--" ["Show Calltree" profiler-report-render-calltree :active profiler-report-reversed :help "Show calltree view"] ["Show Reversed Calltree" profiler-report-render-reversed-calltree :active (not profiler-report-reversed) :help "Show reversed calltree view"] ["Sort Ascending" profiler-report-ascending-sort :active (not (eq profiler-report-order 'ascending)) :help "Sort calltree view in ascending order"] ["Sort Descending" profiler-report-descending-sort :active (not (eq profiler-report-order 'descending)) :help "Sort calltree view in descending order"] "--" ["Compare Profile..." profiler-report-compare-profile :active t :help "Compare current profile with another"] ["Write Profile..." profiler-report-write-profile :active t :help "Write current profile to a file"] "--" ["Start Profiler" profiler-start :active (not (profiler-running-p)) :help "Start profiling"] ["Stop Profiler" profiler-stop :active (profiler-running-p) :help "Stop profiling"] ["New Report" profiler-report :active (profiler-running-p) :help "Make a new report"])] 6) (#$ . 28053)) #@16 (fn PROFILE) (defalias 'profiler-report-make-buffer-name #[257 "\300\301\302H\211\303\267\202 \304\202 \305\202 \306\307\310#\205 \311\262\312\313\314H\"#\207" [format "*%s-Profiler-Report %s*" 2 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cpu 11 memory 15)) CPU Memory error "cl-ecase failed: %s, %s" (cpu memory) nil format-time-string "%Y-%m-%d %T" 4] 8 (#$ . 30754)]) #@56 Make a buffer for PROFILE and return it. (fn PROFILE) (defalias 'profiler-report-setup-buffer-1 #[257 "\303!\304!r\211q\210\305 \210\306\307)\207" [profiler-report-profile profiler-report-reversed profiler-report-order profiler-report-make-buffer-name get-buffer-create profiler-report-mode nil descending] 4 (#$ . 31184)]) #@83 Make a buffer for PROFILE with rendering the profile and return it. (fn PROFILE) (defalias 'profiler-report-setup-buffer #[257 "\300!r\211q\210\301 \210)\211\207" [profiler-report-setup-buffer-1 profiler-report-render-calltree] 3 (#$ . 31521)]) (defalias 'profiler--xref-backend #[0 "\300\207" [elisp] 1]) (defvar profiler-report-mode-hook nil) (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [profiler-report-mode-hook variable-documentation put "Hook run after entering Profiler-Report mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp profiler-report-mode-map definition-name profiler-report-mode] 4) (defvar profiler-report-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [profiler-report-mode-abbrev-table profiler-report-mode-map variable-documentation put purecopy "Keymap for `profiler-report-mode'." boundp profiler-report-mode-syntax-table definition-name profiler-report-mode (lambda (#1=#:def-tmp-var) (defvar profiler-report-mode-syntax-table #1#)) make-syntax-table "Syntax table for `profiler-report-mode'." (lambda (#1#) (defvar profiler-report-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `profiler-report-mode'." derived-mode-parent special-mode] 5) #@234 Profiler Report Mode. In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `profiler-report-mode-hook', as the final or penultimate step during initialization. \{profiler-report-mode-map} (defalias 'profiler-report-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324 \325\"\204R !=\204R \326 \325!C#\210\327 !\210\330\f!\210 !\331\332!\210\333\334\335\336\307$\210\307\211\"#\307$)\337\340!\207" [delay-mode-hooks major-mode mode-name profiler-report-mode-map profiler-report-mode-syntax-table profiler-report-mode-abbrev-table make-local-variable t special-mode profiler-report-mode "Profiler-Report" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table add-to-invisibility-spec (profiler . t) add-hook xref-backend-functions profiler--xref-backend nil run-mode-hooks profiler-report-mode-hook local-abbrev-table buffer-read-only buffer-undo-list truncate-lines] 6 (#$ . 33112) nil]) #@24 (fn &optional POINT) (defalias 'profiler-report-calltree-at-point #[256 "\300\206 `\301\"\207" [get-text-property calltree] 4 (#$ . 34339)]) (defalias 'profiler-report-move-to-entry #[0 "\300\301 \302\"\211\203 \211b\202 \303 \207" [next-single-property-change line-beginning-position profiler-entry back-to-indentation] 3]) #@28 Move cursor to next entry. (defalias 'profiler-report-next-entry #[0 "\300y\210\301 \207" [nil profiler-report-move-to-entry] 1 (#$ . 34676) nil]) #@32 Move cursor to previous entry. (defalias 'profiler-report-previous-entry #[0 "\300y\210\301 \207" [-1 profiler-report-move-to-entry] 1 (#$ . 34829) nil]) #@95 Expand entry at point. With a prefix argument, expand the whole subtree. (fn &optional FULL) (defalias 'profiler-report-expand-entry #[256 "\212\303 \210\304\305P\306 \307#\205E \310 \211\205C \307\311\n\305P!\210\312y\210`\313`\307\"\314!\210\203? b\210`W\203? \315 \210\316y\210\2020 \266)\307\262)\207" [profiler-report-closed-mark inhibit-read-only profiler-report-open-mark beginning-of-line search-forward " " line-end-position t profiler-report-calltree-at-point replace-match nil copy-marker profiler-report-insert-calltree-children profiler-report-expand-entry 1] 6 (#$ . 34989) "P"]) #@26 Collapse entry at point. (defalias 'profiler-report-collapse-entry #[0 "\212\303 \210\304\305P\306 \307#\205N \310 \311!\312\313!\314\203K \307\315\n\305P!\210\314y\316=\203E \317`\320\"\211\205: \311!\211\262\247\262\203E \211V\204$ \312 |\210)\266\307)\207" [profiler-report-open-mark inhibit-read-only profiler-report-closed-mark beginning-of-line search-forward " " line-end-position t profiler-report-calltree-at-point profiler-calltree-depth line-beginning-position 2 nil replace-match 0 get-text-property calltree] 7 (#$ . 35598) nil]) #@156 Expand entry at point if the tree is collapsed, otherwise collapse. With prefix argument, expand all subentries below entry at point. (fn &optional ARG) (defalias 'profiler-report-toggle-entry #[256 "\300!\206 \301 \207" [profiler-report-expand-entry profiler-report-collapse-entry] 3 (#$ . 36158) "P"]) #@44 Find entry at point. (fn &optional EVENT) (defalias 'profiler-report-find-entry #[256 "r\211\203 \301\302!\211@\262!\202 pq\210\211\203% \303!\211\262\203% \304!\210\305 \211\205B \306!>\204: \307\310\311D\"\210\211\312H\313!\262\262)\207" [cl-struct-profiler-calltree-tags window-buffer event-start event-end posn-set-point profiler-report-calltree-at-point type-of signal wrong-type-argument profiler-calltree 1 find-function] 6 (#$ . 36472) (list last-nonmenu-event)]) #@26 Describe entry at point. (defalias 'profiler-report-describe-entry #[0 "\301 \211\205! \302!>\204 \303\304\305D\"\210\211\306H\307\310!\210\311!\262\207" [cl-struct-profiler-calltree-tags profiler-report-calltree-at-point type-of signal wrong-type-argument profiler-calltree 1 require help-fns describe-function] 5 (#$ . 36964) nil]) #@51 (fn PROFILE &key REVERSE (ORDER \='descending)) (defalias 'profiler-report-render-calltree-1 #[385 "\304\305\"A@\304\306\"\206 \307A@\211\203; \211@\310>\203$ \211AA\262\202 \311>A@\2032 \312\262\202 \313\314@\"\210\202 \210\315\316H\305#\317H\211\320\267\202` \321\322\323\324D#\202i \321 \322\325\324D#\202i \313\326\327#\205i \312\262\330\267\202z \331\202\203 \332\202\203 \313\326\333#\205\203 \312\334\"\266\335\336 \210\337!\210eb\210\340 )\262\207" [profiler-report-cpu-line-format profiler-report-memory-line-format header-line-format inhibit-read-only plist-member :reverse :order (nil descending) (:reverse :order :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:reverse :order)" profiler-calltree-build 3 2 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cpu 76 memory 86)) profiler-report-header-line-format "Function" "CPU samples" "%" "Bytes" "cl-ecase failed: %s, %s" (cpu memory) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ascending 114 descending 118)) profiler-calltree-count< profiler-calltree-count> (ascending descending) profiler-calltree-sort t erase-buffer profiler-report-insert-calltree-children profiler-report-move-to-entry] 11 (#$ . 37310)]) (defalias 'profiler-report-rerender-calltree #[0 "\303\304 \305\n%\207" [profiler-report-profile profiler-report-reversed profiler-report-order profiler-report-render-calltree-1 :reverse :order] 6]) #@23 Render calltree view. (defalias 'profiler-report-render-calltree #[0 "\301\302 \207" [profiler-report-reversed nil profiler-report-rerender-calltree] 1 (#$ . 38829) nil]) #@32 Render reversed calltree view. (defalias 'profiler-report-render-reversed-calltree #[0 "\301\302 \207" [profiler-report-reversed t profiler-report-rerender-calltree] 1 (#$ . 39007) nil]) #@40 Sort calltree view in ascending order. (defalias 'profiler-report-ascending-sort #[0 "\301\302 \207" [profiler-report-order ascending profiler-report-rerender-calltree] 1 (#$ . 39201) nil]) #@41 Sort calltree view in descending order. (defalias 'profiler-report-descending-sort #[0 "\301\302 \207" [profiler-report-order descending profiler-report-rerender-calltree] 1 (#$ . 39398) nil]) #@16 (fn PROFILE) (defalias 'profiler-report-profile #[257 "\300\301!!\207" [switch-to-buffer profiler-report-setup-buffer] 4 (#$ . 39598)]) #@16 (fn PROFILE) (defalias 'profiler-report-profile-other-window #[257 "\300\301!!\207" [switch-to-buffer-other-window profiler-report-setup-buffer] 4 (#$ . 39743)]) #@16 (fn PROFILE) (defalias 'profiler-report-profile-other-frame #[257 "\300\301!!\207" [switch-to-buffer-other-frame profiler-report-setup-buffer] 4 (#$ . 39914)]) #@56 Compare the current profile with another. (fn BUFFER) (defalias 'profiler-report-compare-profile #[257 "r\211q\210)\301\"\300!\207" [profiler-report-profile profiler-compare-profiles] 6 (#$ . 40083) (byte-code "\300\301!C\207" [read-buffer "Compare to: "] 2)]) #@80 Write the current profile into file FILENAME. (fn FILENAME &optional CONFIRM) (defalias 'profiler-report-write-profile #[513 "\301#\207" [profiler-report-profile profiler-write-profile] 6 (#$ . 40356) (byte-code "\302\303\" ?D\207" [default-directory current-prefix-arg read-file-name "Write profile: "] 3)]) #@227 Start/restart profilers. MODE can be one of `cpu', `mem', or `cpu+mem'. If MODE is `cpu' or `cpu+mem', time-based profiler will be started. Also, if MODE is `mem' or `cpu+mem', then memory profiler will be started. (fn MODE) (defalias 'profiler-start #[257 "\211\301\267\202 \302!\210\303\304!\207\305 \210\303\306!\207\302!\210\305 \210\303\307!\207\310\311\312#\205) \313\207" [profiler-sampling-interval #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cpu 6 mem 14 cpu+mem 21)) profiler-cpu-start message "CPU profiler started" profiler-memory-start "Memory profiler started" "CPU and memory profiler started" error "cl-ecase failed: %s, %s" (cpu mem cpu+mem) nil] 5 (#$ . 40677) (byte-code "\300\301!\204\n \302\202 \303\304\305\306\307\310\307\211\311&!C\207" [fboundp profiler-cpu-start mem intern completing-read "Mode (default cpu): " ("cpu" "mem" "cpu+mem") nil t "cpu"] 9)]) #@54 Stop started profilers. Profiler logs will be kept. (defalias 'profiler-stop #[0 "\302\303!\203 \303 \203 \300 \304 \203 \301 \302\305!\205 \305 \306 \307\310\203. \203. \311\202? \2036 \312\202? \203> \313\202? \314\"\207" [profiler-cpu-log profiler-memory-log fboundp profiler-cpu-running-p profiler-memory-running-p profiler-cpu-stop profiler-memory-stop message "%s profiler stopped" "CPU and memory" "Memory" "CPU" "No"] 5 (#$ . 41613) nil]) #@22 Reset profiler logs. (defalias 'profiler-reset #[0 "\302\303!\203 \303 \203 \304 \210\305 \203 \306 \210\307\211\211\207" [profiler-cpu-log profiler-memory-log fboundp profiler-cpu-running-p profiler-cpu-stop profiler-memory-running-p profiler-memory-stop nil] 3 (#$ . 42077) nil]) (defalias 'profiler-report-cpu #[0 "\205 \301\302 !\207" [profiler-cpu-log profiler-report-profile-other-window profiler-cpu-profile] 2]) (defalias 'profiler-report-memory #[0 "\205 \301\302 !\207" [profiler-memory-log profiler-report-profile-other-window profiler-memory-profile] 2]) #@27 Report profiling results. (defalias 'profiler-report #[0 "\302\303!\203 \303 \203 \300 \304 \203 \301 \204\" \204\" \305\306!\207\307 \210\310 \207" [profiler-cpu-log profiler-memory-log fboundp profiler-cpu-running-p profiler-memory-running-p user-error "No profiler run recorded" profiler-report-cpu profiler-report-memory] 2 (#$ . 42659) nil]) #@39 Open profile FILENAME. (fn FILENAME) (defalias 'profiler-find-profile #[257 "\300\301!!\207" [profiler-report-profile profiler-read-profile] 4 (#$ . 43019) (byte-code "\301\302\"C\207" [default-directory read-file-name "Find profile: "] 3)]) #@39 Open profile FILENAME. (fn FILENAME) (defalias 'profiler-find-profile-other-window #[257 "\300\301!!\207" [profiler-report-profile-other-window profiler-read-profile] 4 (#$ . 43270) (byte-code "\301\302\"C\207" [default-directory read-file-name "Find profile: "] 3)]) #@39 Open profile FILENAME. (fn FILENAME) (defalias 'profiler-find-profile-other-frame #[257 "\300\301!!\207" [profiler-report-profile-other-frame profiler-read-profile] 4 (#$ . 43547) (byte-code "\301\302\"C\207" [default-directory read-file-name "Find profile: "] 3)]) (provide 'profiler)
Close
