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 : registry.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\300\302!\210\300\303!\207" [require cl-lib eieio eieio-base] 2) #@45 The current version of the registry format. (defvar registry-db-version 0.2 (#$ . 498)) (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias registry-db-p eieio-make-class-predicate registry-db registry-db--eieio-childp eieio-make-child-predicate registry-db-child-p make-obsolete "use (cl-typep ... \\='registry-db) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (eieio-persistent) ((version :initarg :version :initform nil :type (or null float) :documentation "The registry version.") (max-size :initarg :max-size :initform (symbol-value 'most-positive-fixnum) :type integer :custom integer :documentation "The maximum number of registry entries.") (prune-factor :initarg :prune-factor :initform 0.1 :type float :custom float :documentation "Prune to (:max-size * :prune-factor) less\n than the :max-size limit. Should be a float between 0 and 1.") (tracked :initarg :tracked :initform nil :type t :documentation "The tracked (indexed) fields, a list of symbols.") (precious :initarg :precious :initform nil :type t :documentation "The precious fields, a list of symbols.") (tracker :initarg :tracker :type hash-table :documentation "The field tracking hash table.") (data :initarg :data :type hash-table :documentation "The data hash table.")) nil] 6) #@50 Create a new object of class type `registry-db'. (defalias 'registry-db #[(&rest slots) "\301\302\303#\207" [slots apply make-instance registry-db] 4 (#$ . 1894)]) (byte-code "\300\301\302\303#\300\207" [function-put registry-db compiler-macro registry-db--anon-cmacro] 4) (defalias 'registry-db--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5]) (byte-code "\300\301\302\303\304\305%\210\300\301\306\307\304\310%\210\300\311\304\312\304\313%\210\300\314\304\315\304\316%\210\300\317\304\320\304\321%\210\300\322\304\323\304\324%\207" [cl-generic-define-method initialize-instance (:before) ((this registry-db) slots) nil #[(this slots) "\303\304\"\205 \305\304\"\211\203 \306 \307\"\205L \310\311\305\312\"#\310\304\n#\211@\312=\2034 AA\2029 \313\312\"\210@\314=\203H AA\315\202L \313\314\")\207" [slots current-version registry-db-version plist-member :version plist-get eql 0.1 plist-put :max-size :max-hard cl--do-remf :max-soft t] 7 "Check whether a registry object needs to be upgraded."] (:after) ((this registry-db) slots) #[(this slots) "\305\n>\204 \306 \307\310\311\312\313\314\315\316&#\210)\317\n>?\205- \306\f\320\310\311\321\313\322$#))\207" [this #:object slots #:v #:v :data eieio-oset data make-hash-table :size 10000 :rehash-size 2.0 :test equal :tracker tracker 100 2.0] 10 "Set value of data slot of THIS after initialization."] registry-lookup ((db registry-db) keys) #[(db keys) "\303\301\"\304\305\306\307\n\"\")\207" [db data keys eieio-oref delq nil mapcar #[(k) "\302 \"\205 \302 \"D\207" [k data gethash] 4]] 5 "Search for KEYS in the registry-db DB.\nReturns an alist of the key followed by the entry in a list, not a cons cell."] registry-lookup-breaks-before-lexbind ((db registry-db) keys) #[(db keys) "\306\301\"\307\310\n\310\211 :\203, @\311\f \"\203% \f\311\f \"D B A\211\202 \237+\")\207" [db data keys #:--cl-var-- key #:--cl-var-- eieio-oref delq nil gethash] 7 "Search for KEYS in the registry-db DB.\nReturns an alist of the key followed by the entry in a list, not a cons cell."] registry-lookup-secondary ((db registry-db) tracksym &optional create) #[(db tracksym &optional create) "\304\305 \306\"\"\211\203 \n\202, \205, \307\310\311\312\313\314\315\316&\305 \306\"#\210\304\305 \306\"\")\207" [tracksym db h create gethash eieio-oref tracker puthash make-hash-table :size 800 :rehash-size 2.0 :test equal] 10 "Search for TRACKSYM in the registry-db DB.\nWhen CREATE is not nil, create the secondary index hash table if needed."] registry-lookup-secondary-value ((db registry-db) tracksym val &optional set) #[(db tracksym val &optional set) "\204 \304 \n\"\205' \203 \305 \306=?\205 \304 \n\306##\210\307 \304 \n\"\"\207" [set db tracksym val registry-lookup-secondary puthash t gethash] 7 "Search for TRACKSYM with value VAL in the registry-db DB.\nWhen SET is not nil, set it for VAL (use t for an empty list)."]] 6) (defalias 'registry--match #[(mode entry check-list) "\205N @@@\243\306 \203C \n\203C \204C \f\307\267\202; \n\242\310 \"\243\235\202< \311\n@\312\313\310 \"\243\314#\"\202< \306\n\243\202 \206M \315\f \243#+\207" [check-list found vals key mode entry nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:member 32 :regex 43)) assoc string-match mapconcat prin1-to-string " " registry--match] 7]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\300\316\302\317\302\320%\210\300\321\302\322\302\323%\210\300\324\302\325\302\326%\210\300\327\302\330\302\331%\210\332\333!\207" [cl-generic-define-method registry-search nil ((db registry-db) &rest spec) #[(db &rest spec) "\205 \306 \307\"\306 \310\"\306 \311\" \312 \313\314\315\316\"\"\210 \237,\207" [db spec regex member all #1=#:--cl-var-- plist-get :all :member :regex nil maphash #[(k v) "\204 \203 \306\307\n #\204 \205! \306\310\n #\205! \f B\211\207" [all member v regex k #1# registry--match :member :regex] 4] eieio-oref data] 5 "Search for SPEC across the registry-db DB.\nFor example calling with `:member \\='(a 1 2)' will match entry ((a 3 1)).\nCalling with `:all t' (any non-nil value) will match all.\nCalling with `:regex \\='(a \"h.llo\")' will match entry (a \"hullo\" \"bye\").\nThe test order is to check :all first, then :member, then :regex.\n\n(fn DB &rest SPEC)"] registry-delete ((db registry-db) keys assert &rest spec) #[(db keys assert &rest spec) "\306\301\"\n\206 \307\310 #\306\304\" \n\311 \211 \203\251 @\312 \" \f\2039 \f\2049 \313\314\315\311 C$\210\f\311 \211 \203\231 @\316\"\203\220 \f\236\243\311 \211 \203\217 @\317# \235\203\205 \317\320 \"\206\203 \321$\210)A\211\204_ *A\211\204C *\322 \"\210)A\211\204 *\n+\207" [db data keys spec tracked key eieio-oref apply registry-search nil gethash cl--assertion-failed entry "Key %s does not exist in database" registry-lookup-secondary registry-lookup-secondary-value delete t remhash --dolist-tail-- assert tr val value-keys] 8 "Delete KEYS from the registry-db DB.\nIf KEYS is nil, use SPEC to do a search.\nUpdates the secondary ('tracked') indices as well.\nWith assert non-nil, errors out if the key does not exist already.\n\n(fn DB KEYS ASSERT &rest SPEC)"] registry-size ((db registry-db)) #[(db) "\301\302\303\"!\207" [db hash-table-count eieio-oref data] 4 "Return the size of the registry-db object DB.\nThis is the key count of the `data' slot."] registry-full ((db registry-db)) #[(db) "\301!\302\303\"Y\207" [db registry-size eieio-oref max-size] 4 "Check if registry-db DB is full."] registry-insert ((db registry-db) key entry) #[(db key entry) "\306\307 \310\"\"\203 \311\312\313\314\211$\210\315 !\203 \311\316\317\314\211$\210\320\n\307 \310\"#\210\307 \321\"\314\211 \203t \f@\211\n\236\243\314 \211 \203l \f@\322 # \235\203V \202Z B\322 $\210)\fA\211\204@ *\fA\211\2042 *\n\207" [key db entry tr --dolist-tail-- val gethash eieio-oref data cl--assertion-failed (not (gethash key (oref db data))) "Key already exists in database" nil registry-full (not (registry-full db)) "registry max-size limit reached" puthash tracked registry-lookup-secondary-value value-keys] 7 "Insert ENTRY under KEY into the registry-db DB.\nUpdates the secondary ('tracked') indices as well.\nErrors out if the key exists already."] registry-reindex ((db registry-db)) #[(db) "\306\307\310\"G\311!_\307\310\"\312\211 \205- \f@\312 \313\314\307\315\"\"\210)\fA\211\204 \312,\207" [db expected count tr --dolist-tail-- values 0 eieio-oref tracked registry-size nil maphash #[(key v) "T\306 W\203 \307\310\"\306U\203 \311\312 \313_ \245$\210\n \236\243\314 \211 \205L @\315\n\f# B\315\n\f$\210) A\211\204( \314*\207" [count expected tr v val --dolist-tail-- 0 mod 1000 message "reindexing: %d of %d (%.2f%%)" 100.0 nil registry-lookup-secondary-value db value-keys key] 7] data] 6 "Rebuild the secondary indices of registry-db DB."] registry-prune ((db registry-db) &optional sortfunc) #[(db &optional sortfunc) "\305!\306\307\310\"\307\310\"\307\311\"_Z!\312\313!\203. \314 \nZ\f#\315 \312#G\202/ \316+\207" [db candidates target-size size sortfunc registry-size floor eieio-oref max-size prune-factor nil registry-full registry-collect-prune-candidates registry-delete 0] 7 "Prune the registry-db object DB.\n\nAttempts to prune the number of entries down to (*\n:max-size :prune-factor) less than the max-size limit, so\npruning doesn't need to happen on every save. Removes only\nentries without the :precious keys, so it may not be possible to\nreach the target limit.\n\nEntries to be pruned are first sorted using SORTFUNC. Entries\nfrom the front of the list are deleted first.\n\nReturns the number of deleted entries."] registry-collect-prune-candidates ((db registry-db) limit sortfunc) #[(db limit sortfunc) "\306\301\"\307\306\303\"\310 \311\312 \"\210\f\237) \203\" \313 \"\314\315\316 \"\317 G^#,\207" [db precious precious-p data #2=#:--cl-var-- candidates eieio-oref #[(entry-key) "\242 >\207" [entry-key precious] 2] nil maphash #[(k v) "<\205 \304\305\306$?\266\203\205 \nB B\211\207" [v precious-p k #2# nil apply cl-some] 8] sort cl-subseq mapcar car 0 sortfunc limit] 5 "Collect pruning candidates from the registry-db object DB.\n\nProposes only entries without the :precious keys, and attempts to\nreturn LIMIT such candidates. If SORTFUNC is provided, sort\nentries first and return candidates from beginning of list."] provide registry] 6)
Close
