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 : json.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!\207" [require map subr-x] 2) #@243 Type to convert JSON objects to. Must be one of `alist', `plist', or `hash-table'. Consider let-binding this around your call to `json-read' instead of `setq'ing it. Ordering is maintained for `alist' and `plist', but not for `hash-table'. (defvar json-object-type 'alist (#$ . 473)) #@152 Type to convert JSON arrays to. Must be one of `vector' or `list'. Consider let-binding this around your call to `json-read' instead of `setq'ing it. (defvar json-array-type 'vector (#$ . 766)) #@533 Type to convert JSON keys to. Must be one of `string', `symbol', `keyword', or nil. If nil, `json-read' will guess the type based on the value of `json-object-type': If `json-object-type' is: nil will be interpreted as: `hash-table' `string' `alist' `symbol' `plist' `keyword' Note that values other than `string' might behave strangely for Sufficiently Weird keys. Consider let-binding this around your call to `json-read' instead of `setq'ing it. (defvar json-key-type nil (#$ . 968)) #@241 Value to use when reading JSON `false'. If this has the same value as `json-null', you might not be able to tell the difference between `false' and `null'. Consider let-binding this around your call to `json-read' instead of `setq'ing it. (defvar json-false :json-false (#$ . 1545)) #@241 Value to use when reading JSON `null'. If this has the same value as `json-false', you might not be able to tell the difference between `false' and `null'. Consider let-binding this around your call to `json-read' instead of `setq'ing it. (defvar json-null nil (#$ . 1836)) #@53 Value to use as an element separator when encoding. (defvar json-encoding-separator "," (#$ . 2117)) #@101 The default indentation level for encoding. Used only when `json-encoding-pretty-print' is non-nil. (defvar json-encoding-default-indentation " " (#$ . 2225)) #@133 Internally used to keep track of the current indentation level of encoding. Used only when `json-encoding-pretty-print' is non-nil. (defvar json--encoding-current-indentation "\n" (#$ . 2392)) #@70 If non-nil, then the output of `json-encode' will be pretty-printed. (defvar json-encoding-pretty-print nil (#$ . 2591)) #@81 If non-nil, ] and } closings will be formatted lisp-style, without indentation. (defvar json-encoding-lisp-style-closings nil (#$ . 2718)) #@267 Sorting predicate for JSON object keys during encoding. If nil, no sorting is performed. Else, JSON object keys are ordered by the specified sort predicate during encoding. For instance, setting this to `string<' will have JSON object keys ordered alphabetically. (defvar json-encoding-object-sort-predicate nil (#$ . 2864)) #@207 Function called (if non-nil) by `json-read-array' and `json-read-object' right before reading a JSON array or object, respectively. The function is called with one argument, which is the current JSON key. (defvar json-pre-element-read-function nil (#$ . 3198)) #@132 Function called (if non-nil) by `json-read-array' and `json-read-object' right after reading a JSON array or object, respectively. (defvar json-post-element-read-function nil (#$ . 3467)) #@54 Join STRINGS with SEPARATOR. (fn STRINGS SEPARATOR) (defalias 'json-join #[514 "\300\301#\207" [mapconcat identity] 6 (#$ . 3661)]) #@71 Non-null if and only if LIST is an alist with simple keys. (fn LIST) (defalias 'json-alist-p #[257 "\211:\203 \211@:\203 \211@@:\204 \211A\202 \300\262\202 \211?\207" [not-alist] 2 (#$ . 3802)]) #@71 Non-null if and only if LIST is a plist with keyword keys. (fn LIST) (defalias 'json-plist-p #[257 "\211:\203 \300@!\203 \211A:\203 \211AA\202 \301\262\202 \211?\207" [keywordp not-plist] 3 (#$ . 4010)]) #@116 Return a copy of PLIST in reverse order. Unlike `reverse', this keeps the property-value pairs intact. (fn PLIST) (defalias 'json--plist-reverse #[257 "\300\203 \211A\262\242\211A\262\242\211B\262B\266\203\202 \211\207" [nil] 6 (#$ . 4229)]) #@67 Return an alist of the property-value pairs in PLIST. (fn PLIST) (defalias 'json--plist-to-alist #[257 "\300\203 \211A\262\242\211A\262\242BB\266\203\202 \211\237\207" [nil] 6 (#$ . 4489)]) #@13 (fn BODY) (defalias 'json--with-indentation '(macro . #[257 "\300\301E\207" [let ((json--encoding-current-indentation (if json-encoding-pretty-print (concat json--encoding-current-indentation json-encoding-default-indentation) "")))] 4 (#$ . 4696)])) #@49 Advance N characters forward. (fn &optional N) (defalias 'json-advance #[256 "\211u\207" [] 2 (#$ . 4956)]) (byte-code "\300\301\302\303#\300\207" [function-put json-advance compiler-macro json-advance--inliner] 4) #@33 (fn INLINE--FORM &optional N) (defalias 'json-advance--inliner #[513 "\3002 \301D0\207" [inline--just-use forward-char] 4 (#$ . 5178)]) #@32 Return the character at point. (defalias 'json-peek #[0 "g\207" [] 1 (#$ . 5324)]) (byte-code "\300\301\302\303#\300\207" [function-put json-peek compiler-macro json-peek--inliner] 4) #@21 (fn INLINE--FORM) (defalias 'json-peek--inliner #[257 "\3002 \301C0\207" [inline--just-use following-char] 2 (#$ . 5514)]) #@52 Advance past the character at point, returning it. (defalias 'json-pop #[0 "g\211\300U\203 \301\302\303\"\202 \303u\210\211\207" [0 signal json-end-of-file nil] 4 (#$ . 5646)]) (byte-code "\300\301\302\303#\300\207" [function-put json-pop compiler-macro json-pop--inliner] 4) #@21 (fn INLINE--FORM) (defalias 'json-pop--inliner #[257 "\3002 \301\302\303CDC\304\305\302D\306\307\310D\311E\312C\302\257E0\207" [inline--just-use let char json-peek if zerop signal quote json-end-of-file nil json-advance] 8 (#$ . 5930)]) #@36 Skip past the whitespace at point. (defalias 'json-skip-whitespace #[0 "\300\301w\207" [" \n " nil] 2 (#$ . 6177)]) (byte-code "\300\301\302\303#\300\207" [function-put json-skip-whitespace compiler-macro json-skip-whitespace--inliner] 4) #@21 (fn INLINE--FORM) (defalias 'json-skip-whitespace--inliner #[257 "\3002 \301\302D0\207" [inline--just-use skip-chars-forward " \n "] 3 (#$ . 6423)]) (byte-code "\300\301\302\"\210\300\303\304\301#\210\300\305\306\301#\210\300\307\310\301#\210\300\311\312\301#\210\300\313\314\301#\210\300\315\316\301#\210\300\317\320\301#\210\300\321\322\323#\207" [define-error json-error "Unknown JSON error" json-readtable-error "JSON readtable error" json-unknown-keyword "Unrecognized keyword" json-number-format "Invalid number format" json-string-escape "Bad Unicode escape" json-string-format "Bad string format" json-key-format "Bad JSON object key" json-object-format "Bad JSON object" json-end-of-file "End of file while parsing JSON" (end-of-file json-error)] 4) #@109 Used internally by `json-path-to-position' to keep track of the path during recursive calls to `json-read'. (defvar json--path nil (#$ . 7193)) #@96 Record the KEY to the current JSON path. Used internally by `json-path-to-position'. (fn KEY) (defalias 'json--record-path #[257 "`BB\211\207" [json--path] 3 (#$ . 7343)]) #@117 Check if the last parsed JSON structure passed POSITION. Used internally by `json-path-to-position'. (fn POSITION) (defalias 'json--check-position #[257 "@@\301`T#\203 \302\303\304\305\306\"\237\307\310`\257\"\210\210\211A\242\207" [json--path < throw :json-path :path mapcar cdr :match-start :match-end] 10 (#$ . 7526)]) #@719 Return the path to the JSON element at POSITION. When STRING is provided, return the path to the position in the string, else to the position in the current buffer. The return value is a property list with the following properties: :path -- A list of strings and numbers forming the path to the JSON element at the given position. Strings denote object names, while numbers denote array indexes. :match-start -- Position where the matched JSON element begins. :match-end -- Position where the matched JSON element ends. This can for instance be useful to determine the path to a JSON element in a deeply nested structure. (fn POSITION &optional STRING) (defalias 'json-path-to-position #[513 "\212\211\204 eb\210\303\304\305\306\"\3072\" \211\203 \310!\202! \311 0\312\313\"\205* \211+\262)\207" [json--path json-pre-element-read-function json-post-element-read-function nil json--record-path apply-partially json--check-position :json-path json-read-from-string json-read plist-get :path] 6 (#$ . 7865)]) #@24 List of JSON keywords. (defvar json-keywords '("true" "false" "null") (#$ . 8951)) #@78 Read a JSON keyword at point. KEYWORD is the keyword expected. (fn KEYWORD) (defalias 'json-read-keyword #[257 "\211\235\204\f \303\304C\"\210\305\306\"\210\307\310w\210\311\312!\204) \303\304\212\313\314!\210\315\316!)C\"\210\211\317\230\2031 \320\207\211\321\230\2039 \207\211\322\230\205@ \n\207" [json-keywords json-false json-null signal json-unknown-keyword mapc #[257 "\211gU\204 \300\301\212\302\303!\210\304\305!)C\"\210\306u\207" [signal json-unknown-keyword backward-word-strictly 1 thing-at-point word nil] 5 "\n\n(fn CHAR)"] " \n " nil looking-at "\\([],}]\\|$\\)" backward-word-strictly 1 thing-at-point word "true" t "false" "null"] 5 (#$ . 9040)]) #@47 Encode KEYWORD as a JSON value. (fn KEYWORD) (defalias 'json-encode-keyword #[257 "\211\302=\203 \303\207\211=\203 \304\207\211 =\205 \305\207" [json-false json-null t "true" "false" "null"] 3 (#$ . 9717)]) #@213 Read the JSON number following point. The optional SIGN argument is for internal use. N.B.: Only numbers which can fit in Emacs Lisp's native number representation will be parsed correctly. (fn &optional SIGN) (defalias 'json-read-number #[256 "\300\204 g\301U\203 \302u\210\303\304![\202I \204( g\305U\203( \302u\210\303\304!\202I \306!\203D \307\224\2048 \310\224\203D \311\225b\210\312\313\311!!\202I \314\315`C\"\207" ["\\([0-9]+\\)?\\(\\.[0-9]+\\)?\\([Ee][+-]?[0-9]+\\)?" 45 nil json-read-number t 43 looking-at 1 2 0 string-to-number match-string signal json-number-format] 5 (#$ . 9936)]) #@54 Return a JSON representation of NUMBER. (fn NUMBER) (defalias 'json-encode-number #[257 "\300\301\"\207" [format "%s"] 4 (#$ . 10545)]) #@70 Characters which are escaped in JSON, with their elisp counterparts. (defvar json-special-chars '((34 . 34) (92 . 92) (98 . 8) (102 . 12) (110 . 10) (114 . 13) (116 . 9)) (#$ . 10689)) #@89 Return the code point represented by the UTF-16 surrogates HIGH and LOW. (fn HIGH LOW) (defalias 'json--decode-utf-16-surrogates #[514 "\300\301\302Z\303\"\304Z\305#\207" [+ ash 55296 10 56320 65536] 6 (#$ . 10880)]) #@50 Read the JSON string escaped character at point. (defalias 'json-read-escaped-char #[0 "\301u\210g\211\302U\203 \303\304\301\"\202 \301u\210\211\262\211\236\211\203# \211A\202a \305=\204- \202a \306\307!\203G \310u\210\311\312\313\314!\315\"\312\313\316!\315\"\"\202a \306\317!\203\\ \313\302!\320u\210\312\315\"\262\202a \303\321`C\"\207" [json-special-chars nil 0 signal json-end-of-file 117 looking-at "\\([Dd][89ABab][[:xdigit:]]\\{2\\}\\)\\\\u\\([Dd][C-Fc-f][[:xdigit:]]\\{2\\}\\)" 10 json--decode-utf-16-surrogates string-to-number match-string 1 16 2 "[[:xdigit:]]\\{4\\}" 4 json-string-escape] 7 (#$ . 11106)]) #@32 Read the JSON string at point. (defalias 'json-read-string #[0 "g\300U\204\f \301\302\303C\"\210\304u\210\304g\211\300U\204N \211\305W\203% \301\302\306!C\"\210\211\307U\2030 \310 \202D g\211\311U\203> \301\312\304\"\202B \304u\210\211\262B\262g\262\202 \304u\210\203\\ \237\260\202] \313\207" [34 signal json-string-format "doesn't start with `\"'!" nil 32 prin1-char 92 json-read-escaped-char 0 json-end-of-file ""] 6 (#$ . 11739)]) #@54 Return a JSON representation of STRING. (fn STRING) (defalias 'json-encode-string #[257 "\211G\301\302\211\303\304#\211\262\203@ H\305\"\306#B\262\211\203/ \307\310@\"\2023 \311\312\"B\262T\262\266\202 \306#B\262\313B\262\314\315\313\237#\207" [json-special-chars 0 nil string-match "[\"\\[:cntrl:]]" rassq substring string 92 format "\\u%04x" "\"" apply concat] 11 (#$ . 12189)]) #@146 Return a JSON representation of OBJECT. If the resulting JSON object isn't a valid JSON object key, this signals `json-key-format'. (fn OBJECT) (defalias 'json-encode-key #[257 "\300!\301!;\204 \302\303C\"\210\211\207" [json-encode json-read-from-string signal json-key-format] 5 (#$ . 12610)]) #@111 Create a new Elisp object corresponding to a JSON object. Please see the documentation of `json-object-type'. (defalias 'json-new-object #[0 "\301=\203 \302\303\304\"\207\305\207" [json-object-type hash-table make-hash-table :test equal nil] 3 (#$ . 12917)]) #@251 Add a new KEY -> VALUE association to OBJECT. Returns the updated object, which you should save, e.g.: (setq obj (json-add-to-object obj "foo" "bar")) Please see the documentation of `json-object-type' and `json-key-type'. (fn OBJECT KEY VALUE) (defalias 'json-add-to-object #[771 "\206 \302\236A\211\303\267\202! \202\" \304!\202\" \304\305P!\202\" \306\262 \307\267\202D \310#\210\202E BB\202E BB\202E \306)\207" [json-key-type json-object-type ((hash-table . string) (alist . symbol) (plist . keyword)) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (string 15 symbol 19 keyword 25)) intern ":" nil #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (hash-table 42 alist 52 plist 60)) puthash] 8 (#$ . 13185)]) #@32 Read the JSON object at point. (defalias 'json-read-object #[0 "\303u\210\304\303w\210\305 \303\211g\306U\204n \304\303w\210\307 \262\304\303w\210g\310U\203) \303u\210\2020 \311\312\313gD\"\210\304\303w\210\203< !\210\314 \262 \203G \210\315#\262\304\303w\210g\306U\204 g\316U\203d \303u\210\202 \311\312\317gD\"\210\202 \303u\210\n\320\267\202\202 \237\202\203 \321!\202\203 \207" [json-pre-element-read-function json-post-element-read-function json-object-type nil " \n " json-new-object 125 json-read-string 58 signal json-object-format ":" json-read json-add-to-object 44 "," #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (alist 119 plist 124)) json--plist-reverse] 7 (#$ . 14000)]) #@62 Return a JSON representation of HASH-TABLE. (fn HASH-TABLE) (defalias 'json-encode-hash-table #[257 "\203 \306\307\310\"!\207\311\312\313\314C \203 \n P\202 \315\316\317\320\321\322\323!\324\"\325\326%\"\210)\211\242\262\f\" \203= \203A \315\202B \n#\207" [json-encoding-object-sort-predicate json-encoding-pretty-print json--encoding-current-indentation json-encoding-default-indentation json-encoding-separator json-encoding-lisp-style-closings json-encode-alist map-into list format "{%s%s}" json-join nil "" maphash make-byte-code 514 "\300\303 \203\n \304\202 \305\n\306!\307!$\300\242B\240\207" vconcat vector [json-encoding-pretty-print json--encoding-current-indentation format "%s%s: %s" "%s%s:%s" json-encode-key json-encode] 9 "\n\n(fn K V)"] 12 (#$ . 14750)]) #@52 Return a JSON representation of ALIST. (fn ALIST) (defalias 'json-encode-alist #[257 "\203\n \306\307\"\262\310\311\312 \203 \n P\202 \313\314\315\")\f\" \203( \203, \313\202- \n#\207" [json-encoding-object-sort-predicate json-encoding-pretty-print json--encoding-current-indentation json-encoding-default-indentation json-encoding-separator json-encoding-lisp-style-closings sort #[514 "@@\"\207" [json-encoding-object-sort-predicate] 5 "\n\n(fn A B)"] format "{%s%s}" json-join "" mapcar #[257 "\302\203 \303\202\n \304 \305@!\306A!$\207" [json-encoding-pretty-print json--encoding-current-indentation format "%s%s: %s" "%s%s:%s" json-encode-key json-encode] 7 "\n\n(fn CONS)"]] 7 (#$ . 15546)]) #@52 Return a JSON representation of PLIST. (fn PLIST) (defalias 'json-encode-plist #[257 "\203\n \306\307!!\207\310 \203 \n P\202 \311\203; \n\312@! \203( \313\202) \314\315A@!RB\262AA\262\202 )\316\317\237\f\" \203N \204N \n\202O \311\320R\207" [json-encoding-object-sort-predicate json-encoding-pretty-print json--encoding-current-indentation json-encoding-default-indentation json-encoding-separator json-encoding-lisp-style-closings json-encode-alist json--plist-to-alist nil "" json-encode-key ": " ":" json-encode "{" json-join "}"] 7 (#$ . 16266)]) #@143 Return a JSON representation of LIST. Tries to DWIM: simple lists become JSON arrays, while alists and plists become JSON objects. (fn LIST) (defalias 'json-encode-list #[257 "\300!\203\n \301!\207\302!\203 \303!\207\211<\203 \304!\207\305\306C\"\207" [json-alist-p json-encode-alist json-plist-p json-encode-plist json-encode-array signal json-error] 4 (#$ . 16841)]) #@31 Read the JSON array at point. (defalias 'json-read-array #[0 "\303u\210\304\303w\210\303g\305U\204G \304\303w\210\203 G!\210\306 B\262 \203( \210\304\303w\210g\305U\204 g\307U\203> \303u\210\202 \310\311\312C\"\210\202 \303u\210\n\313\267\202\\ \314!\237\202] \211\237\202] \303\207" [json-pre-element-read-function json-post-element-read-function json-array-type nil " \n " 93 json-read 44 signal json-error bleah #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (vector 80 list 87)) vconcat] 4 (#$ . 17225)]) #@52 Return a JSON representation of ARRAY. (fn ARRAY) (defalias 'json-encode-array #[257 "\2036 \211G\305V\2036 \203 \nP\202 \306\307\310 \"\311\312\313\"\307\314 #\"P)\307\315\f\2032 \306\2023 \"P\207\316\317\313 #\320Q\207" [json-encoding-pretty-print json--encoding-current-indentation json-encoding-default-indentation json-encoding-separator json-encoding-lisp-style-closings 0 "" format "[%s" json-join mapcar json-encode "%s%s" "%s]" "[" mapconcat "]"] 8 (#$ . 17791)]) #@47 Dispatch reader function for CHAR. (fn CHAR) (defalias 'json-readtable-dispatch '(macro . #[257 "\300\301\302\211\203 \211@\211\303DB\262A\266\202\202 \210\211\203: \211@\211@A\211\304 EDB\262\266A\266\202\202 \210\305\306\307\310\311\312 DEDC\"B\207" [((116 json-read-keyword "true") (102 json-read-keyword "false") (110 json-read-keyword "null") (123 json-read-object) (91 json-read-array) (34 json-read-string)) nil (45 43 46 48 49 50 51 52 53 54 55 56 57) json-read-number eq cond append t signal 'json-readtable-error list] 12 (#$ . 18281)])) (put 'json-readtable-dispatch 'edebug-form-spec '(symbolp)) #@297 Parse and return the JSON object following point. Advances point just past JSON object. If called with the following JSON after point {"a": [1, 2, {"c": false}], "b": "foo"} you will get the following structure returned: ((a . [1 2 ((c . :json-false))]) (b . "foo")) (defalias 'json-read #[0 "\300\301w\210g\211\302U\203 \303\304\301\"\202 \211\305\267\202z \306 \202 \307 \202 \310 \202 \311\312!\202 \311\313!\202 \311\314!\202 \315 \202 \315 \202 \315 \202 \315 \202 \315 \202 \315 \202 \315 \202 \315 \202 \315 \202 \315 \202 \315 \202 \315 \202 \315 \202 \303\316C\"\207" [" \n " nil 0 signal json-end-of-file #s(hash-table size 19 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (34 24 91 29 123 34 110 39 102 45 116 51 45 57 43 62 46 67 48 72 49 77 50 82 51 87 52 92 53 97 54 102 55 107 56 112 57 117)) json-read-string json-read-array json-read-object json-read-keyword "null" "false" "true" json-read-number json-readtable-error] 4 (#$ . 18916)]) #@70 Read the JSON object contained in STRING and return it. (fn STRING) (defalias 'json-read-from-string #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216c\210eb\210\311 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 json-read] 8 (#$ . 19946)]) #@72 Read the first JSON object contained in FILE and return it. (fn FILE) (defalias 'json-read-file #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311!\210eb\210\312 *\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 json-read] 8 (#$ . 20291)]) #@217 Return a JSON representation of OBJECT as a string. OBJECT should have a structure like one returned by `json-read'. If an error is detected during encoding, an error based on `json-error' is signaled. (fn OBJECT) (defalias 'json-encode #[257 "\211\302 E>\203 \303!\207\211;\203 \304!\207\305!\203% \304\306\307!\310\"!\207\211<\203. \311!\207\2119\2039 \304\307!!\207\211\247\203B \312!\207\313!\203L \314!\207\315!\203V \316!\207\317\320C\"\207" [json-null json-false t json-encode-keyword json-encode-string keywordp substring symbol-name 1 json-encode-list json-encode-number arrayp json-encode-array hash-table-p json-encode-hash-table signal json-error] 5 (#$ . 20657)]) #@107 Pretty-print current buffer. With prefix argument MINIMIZE, minimize it instead. (fn &optional MINIMIZE) (defalias 'json-pretty-print-buffer #[256 "\300ed#\207" [json-pretty-print] 5 (#$ . 21358) "P"]) #@184 Maximum time for `json-pretty-print's comparison. The function `json-pretty-print' uses `replace-region-contents' (which see) passing the value of this variable as argument MAX-SECS. (defvar json-pretty-print-max-secs 2.0 (#$ . 21569)) #@118 Pretty-print selected region. With prefix argument MINIMIZE, minimize it instead. (fn BEGIN END &optional MINIMIZE) (defalias 'json-pretty-print #[770 "\211?\304\305p\306C\307\310!r\211q\210\311\312\313\314\315!\316\"\317$\216pq\210\320\n\n\311\312\321\314\315 \n#\322\"\323$ \324%\266*\210\211\242\205M \325\242@\242A\"+\207" [json-object-type json-null json-encoding-pretty-print json-pretty-print-max-secs :json-null alist nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 replace-region-contents "`\303\211\203E \3041( ``\305dw\\{\306 `\262\302q\210\307!\261\210\300q\266\2020\202A \310\262\300q\210\311\302d#\210\211@\312=?\205? \301\240\262\210\202 \302\207" [t (t) " \n" json-read json-encode nil append-to-buffer json-end-of-file] 7 64 signal] 21 (#$ . 21812) "r\nP"]) #@132 Pretty-print current buffer with object keys ordered. With prefix argument MINIMIZE, minimize it instead. (fn &optional MINIMIZE) (defalias 'json-pretty-print-buffer-ordered #[256 "\301\302!)\207" [json-encoding-object-sort-predicate string< json-pretty-print-buffer] 3 (#$ . 22699) "P"]) #@138 Pretty-print the region with object keys ordered. With prefix argument MINIMIZE, minimize it instead. (fn BEGIN END &optional MINIMIZE) (defalias 'json-pretty-print-ordered #[770 "\301\302#)\207" [json-encoding-object-sort-predicate string< json-pretty-print] 7 (#$ . 22998) "r\nP"]) (provide 'json)
Close
