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 : jsonrpc.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!\210\300\304!\210\300\305!\210\300\306!\210\307\310\311\312!\"\210\307\313\314\312!\"\210\307\315\313\"\210\316\315\317\320#\210\321\312\322\313#\323\312\324\325\326$\210\327\330\324\331\324\332%\210\327\333\324\334\324\335%\210\327\336\324\337\324\340%\210\327\341\324\342\324\343%\210\327\344\324\345\324\346%\210\327\347\324\350\324\351%\210\327\352\324\353\324\354%\210\327\355\324\356\324\357%\210\327\360\324\361\324\362%\210\327\363\324\364\324\365%\210\327\366\324\367\324\370%\210\327\371\324\372\324\373%\210\327\374\324\375\324\376%\210\327\377\324\201@ \324\201A %\210\327\201B \324\201C \324\201D %\210\327\201E \324\201F \324\201G %\210\327\201H \324\201I \324\201J %\210\327\201K \324\201L \324\201M %\207" [require cl-lib json eieio warnings pcase ert defalias jsonrpc-connection-p eieio-make-class-predicate jsonrpc-connection jsonrpc-connection--eieio-childp eieio-make-child-predicate jsonrpc-connection-child-p make-obsolete "use (cl-typep ... \\='jsonrpc-connection) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((name :accessor jsonrpc-name :initarg :name :documentation "A name for the connection") (-request-dispatcher :accessor jsonrpc--request-dispatcher :initform #'ignore :initarg :request-dispatcher :documentation "Dispatcher for remotely invoked requests.") (-notification-dispatcher :accessor jsonrpc--notification-dispatcher :initform #'ignore :initarg :notification-dispatcher :documentation "Dispatcher for remotely invoked notifications.") (last-error :accessor jsonrpc-last-error :documentation "Last JSONRPC error message received from endpoint.") (-request-continuations :initform (make-hash-table) :accessor jsonrpc--request-continuations :documentation "A hash table of request ID to continuation lambdas.") (-events-buffer :accessor jsonrpc--events-buffer :documentation "A buffer pretty-printing the JSONRPC events") (-events-buffer-scrollback-size :initarg :events-buffer-scrollback-size :accessor jsonrpc--events-buffer-scrollback-size :documentation "Max size of events buffer. 0 disables, nil means infinite.") (-deferred-actions :initform (make-hash-table :test #'equal) :accessor jsonrpc--deferred-actions :documentation "Map (DEFERRED BUF) to (FN TIMER ID). FN isa saved DEFERRED `async-request' from BUF, to be sent not laterthan TIMER as ID.") (-next-request-id :initform 0 :accessor jsonrpc--next-request-id :documentation "Next number used for a request")) (:documentation "Base class representing a JSONRPC connection.\nThe following initargs are accepted:\n\n:NAME (mandatory), a string naming the connection\n\n:REQUEST-DISPATCHER (optional), a function of three\narguments (CONN METHOD PARAMS) for handling JSONRPC requests.\nCONN is a `jsonrpc-connection' object, method is a symbol, and\nPARAMS is a plist representing a JSON object. The function is\nexpected to return a JSONRPC result, a plist of (:result\nRESULT) or signal an error of type `jsonrpc-error'.\n\n:NOTIFICATION-DISPATCHER (optional), a function of three\narguments (CONN METHOD PARAMS) for handling JSONRPC\nnotifications. CONN, METHOD and PARAMS are the same as in\n:REQUEST-DISPATCHER.") cl-generic-define-method jsonrpc--next-request-id ((this jsonrpc-connection)) #[257 "\300\301\"\205 \302\301\"\207" [slot-boundp -next-request-id eieio-oref] 4 "Retrieve the slot `-next-request-id' from an object of class `jsonrpc-connection'.\n\n(fn THIS)"] \(setf\ jsonrpc--next-request-id\) (value (this jsonrpc-connection)) #[514 "\300\301#\207" [eieio-oset -next-request-id] 6 "\n\n(fn VALUE THIS)"] jsonrpc--deferred-actions ((this jsonrpc-connection)) #[257 "\300\301\"\205 \302\301\"\207" [slot-boundp -deferred-actions eieio-oref] 4 "Retrieve the slot `-deferred-actions' from an object of class `jsonrpc-connection'.\n\n(fn THIS)"] \(setf\ jsonrpc--deferred-actions\) (value (this jsonrpc-connection)) #[514 "\300\301#\207" [eieio-oset -deferred-actions] 6 "\n\n(fn VALUE THIS)"] jsonrpc--events-buffer-scrollback-size ((this jsonrpc-connection)) #[257 "\300\301\"\205 \302\301\"\207" [slot-boundp -events-buffer-scrollback-size eieio-oref] 4 "Retrieve the slot `-events-buffer-scrollback-size' from an object of class `jsonrpc-connection'.\n\n(fn THIS)"] \(setf\ jsonrpc--events-buffer-scrollback-size\) (value (this jsonrpc-connection)) #[514 "\300\301#\207" [eieio-oset -events-buffer-scrollback-size] 6 "\n\n(fn VALUE THIS)"] jsonrpc--events-buffer ((this jsonrpc-connection)) #[257 "\300\301\"\205 \302\301\"\207" [slot-boundp -events-buffer eieio-oref] 4 "Retrieve the slot `-events-buffer' from an object of class `jsonrpc-connection'.\n\n(fn THIS)"] \(setf\ jsonrpc--events-buffer\) (value (this jsonrpc-connection)) #[514 "\300\301#\207" [eieio-oset -events-buffer] 6 "\n\n(fn VALUE THIS)"] jsonrpc--request-continuations ((this jsonrpc-connection)) #[257 "\300\301\"\205 \302\301\"\207" [slot-boundp -request-continuations eieio-oref] 4 "Retrieve the slot `-request-continuations' from an object of class `jsonrpc-connection'.\n\n(fn THIS)"] \(setf\ jsonrpc--request-continuations\) (value (this jsonrpc-connection)) #[514 "\300\301#\207" [eieio-oset -request-continuations] 6 "\n\n(fn VALUE THIS)"] jsonrpc-last-error ((this jsonrpc-connection)) #[257 "\300\301\"\205 \302\301\"\207" [slot-boundp last-error eieio-oref] 4 "Retrieve the slot `last-error' from an object of class `jsonrpc-connection'.\n\n(fn THIS)"] \(setf\ jsonrpc-last-error\) (value (this jsonrpc-connection)) #[514 "\300\301#\207" [eieio-oset last-error] 6 "\n\n(fn VALUE THIS)"] jsonrpc--notification-dispatcher ((this jsonrpc-connection)) #[257 "\300\301\"\205 \302\301\"\207" [slot-boundp -notification-dispatcher eieio-oref] 4 "Retrieve the slot `-notification-dispatcher' from an object of class `jsonrpc-connection'.\n\n(fn THIS)"] \(setf\ jsonrpc--notification-dispatcher\) (value (this jsonrpc-connection)) #[514 "\300\301#\207" [eieio-oset -notification-dispatcher] 6 "\n\n(fn VALUE THIS)"] jsonrpc--request-dispatcher ((this jsonrpc-connection)) #[257 "\300\301\"\205 \302\301\"\207" [slot-boundp -request-dispatcher eieio-oref] 4 "Retrieve the slot `-request-dispatcher' from an object of class `jsonrpc-connection'.\n\n(fn THIS)"] \(setf\ jsonrpc--request-dispatcher\) (value (this jsonrpc-connection)) #[514 "\300\301#\207" [eieio-oset -request-dispatcher] 6 "\n\n(fn VALUE THIS)"] jsonrpc-name ((this jsonrpc-connection)) #[257 "\300\301\"\205 \302\301\"\207" [slot-boundp name eieio-oref] 4 "Retrieve the slot `name' from an object of class `jsonrpc-connection'.\n\n(fn THIS)"] \(setf\ jsonrpc-name\) (value (this jsonrpc-connection)) #[514 "\300\301#\207" [eieio-oset name] 6 "\n\n(fn VALUE THIS)"]] 7) #@75 Create a new object of class type `jsonrpc-connection'. (fn &rest SLOTS) (defalias 'jsonrpc-connection #[128 "\300\301\302#\207" [apply make-instance jsonrpc-connection] 5 (#$ . 7169)]) (byte-code "\300\301\302\303#\300\207" [function-put jsonrpc-connection compiler-macro jsonrpc-connection--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'jsonrpc-connection--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 7486)]) (byte-code "\300\301\302\301\303\304#\305#\210\300\306\302\306\307\304#\310#\210\300\311\302\311\312\304#\313#\210\300\314\302\314\315\304#\316#\210\317\314\304\320\304\321%\207" [defalias jsonrpc-connection-send cl-generic-define (conn &key id method params result error) nil "Send a JSONRPC message to connection CONN.\nID, METHOD, PARAMS, RESULT and ERROR.\n\n(fn CONN &key ID METHOD PARAMS RESULT ERROR)" jsonrpc-shutdown (conn) "Shutdown the JSONRPC connection CONN.\n\n(fn CONN)" jsonrpc-running-p (conn) "Tell if the JSONRPC connection CONN is still running.\n\n(fn CONN)" jsonrpc-connection-ready-p (connection what) "Tell if CONNECTION is ready for WHAT in current buffer.\nIf it isn't, a request which was passed a value to the\n`:deferred' keyword argument will be deferred to the future.\nWHAT is whatever was passed the as the value to that argument.\n\nBy default, all connections are ready for sending all requests\nimmediately.\n\n(fn CONNECTION WHAT)" cl-generic-define-method (_s _what) #[514 "\300\207" [t] 3 "\n\n(fn S WHAT)"]] 6) #@34 (fn CL-LAMBDA-LIST &body BODY) (defalias 'jsonrpc-lambda '(macro . #[385 "\300\301!\302C\303\304\302BBDEE\207" [cl-gensym "jsonrpc-lambda-elem" lambda apply cl-function] 10 (#$ . 8774)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put jsonrpc-lambda lisp-indent-function 1 put edebug-form-spec (sexp &rest form)] 5) #@70 Get or create JSONRPC events buffer for CONNECTION. (fn CONNECTION) (defalias 'jsonrpc-events-buffer #[257 "\300!\301!\203 \211\206+ \302\303\304\305!\"!r\211q\210\306 \210\307\310!\210\311\"\266)\211\262\207" [jsonrpc--events-buffer buffer-live-p get-buffer-create format "*%s events*" jsonrpc-name buffer-disable-undo read-only-mode t \(setf\ jsonrpc--events-buffer\)] 7 (#$ . 9123)]) #@82 Stop waiting for responses from the current JSONRPC CONNECTION. (fn CONNECTION) (defalias 'jsonrpc-forget-pending-continuations #[257 "\300\301!!\207" [clrhash jsonrpc--request-continuations] 4 (#$ . 9526)]) #@163 Process MESSAGE just received from CONNECTION. This function will destructure MESSAGE and call the appropriate dispatcher in CONNECTION. (fn CONNECTION MESSAGE) (defalias 'jsonrpc-connection-receive #[514 "\211\301\302\"A@\301\303\"A@\301\304\"A@\301\305\"A@\301\306\"A@\301\307\"A@\211\203S \211@\310>\203; \211AA\262\202( \311>A@\203J \312\262\202( \313\314@\"\210\202( \210\312\315\n\n\316#\210 \317\"\266\203\301 \203\301 \205v \320 ?\3211\260 \3221\222 \306\323 ! \324\n!#D0\202\254 \304\325\326\327A\"\206\235 \330\331\326\332A\"\206\250 \333FD\2620\202\263 \334\262\335\336\f $\210)\210\202\203\327 \337\n!\n\324 !#\210\202\205\343 \340\341\f!\"\211\262\203\3428\211\203\364 \343!\210\210\344\341\f!\"\210\203 \211A@!\210\202\211@!\210\345\n!\262\207" [debug-on-error plist-member :method :id :error :params :result :jsonrpc (:method :id :error :params :result :jsonrpc :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:method :id :error :params :result :jsonrpc)" jsonrpc--log-event server \(setf\ jsonrpc-last-error\) ert-running-test (debug error) (jsonrpc-error) jsonrpc--request-dispatcher intern :code alist-get jsonrpc-error-code -32603 :message jsonrpc-error-message "Internal error" (:error (:code -32603 :message "Internal error")) apply jsonrpc--reply jsonrpc--notification-dispatcher gethash jsonrpc--request-continuations 2 cancel-timer remhash jsonrpc--call-deferred] 18 (#$ . 9743)]) #@452 Error out with FORMAT and ARGS. If invoked inside a dispatcher function, this function is suitable for replying to the remote endpoint with an error message. ARGS can be of the form (FORMAT-STRING . MOREARGS) for replying with a -32603 error code and a message formed by formatting FORMAT-STRING with MOREARGS. Alternatively ARGS can be plist representing a JSONRPC error object, using the keywords `:code', `:message' and `:data'. (fn &rest ARGS) (defalias 'jsonrpc-error #[128 "\211@;\203 \300\301@A#\302\303\304\305B\306BE\"\207\211\307\310\"A@\307\311\"A@\307\312\"A@\211\203W \211@\313>\203@ \211AA\262\202- \314>A@\203N \315\262\202- \316\317@\"\210\202- \210\302\303\320\321!\304B\306B\322BF\"\207" [apply format-message signal jsonrpc-error jsonrpc-error-code 32603 jsonrpc-error-message plist-member :code :message :data (:code :message :data :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:code :message :data)" format "[jsonrpc] error " jsonrpc-error-data] 12 (#$ . 11258)]) #@1002 Make a request to CONNECTION, expecting a reply, return immediately. The JSONRPC request is formed by METHOD, a symbol, and PARAMS a JSON object. The caller can expect SUCCESS-FN or ERROR-FN to be called with a JSONRPC `:result' or `:error' object, respectively. If this doesn't happen after TIMEOUT seconds (defaults to `jsonrpc-request-timeout'), the caller can expect TIMEOUT-FN to be called with no arguments. The default values of SUCCESS-FN, ERROR-FN and TIMEOUT-FN simply log the events into `jsonrpc-events-buffer'. If DEFERRED is non-nil, maybe defer the request to a future time when the server is thought to be ready according to `jsonrpc-connection-ready-p' (which see). The request might never be sent at all, in case it is overridden in the meantime by a new request with identical DEFERRED and for the same buffer. However, in that situation, the original timeout is kept. Returns nil. (fn CONNECTION METHOD PARAMS &rest ARGS &key SUCCESS-FN ERROR-FN TIMEOUT-FN TIMEOUT DEFERRED) (defalias 'jsonrpc-async-request #[899 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203J \211@\306>\2032 \211AA\262\202 \307>A@\203A \310\262\202 \311\312@\"\210\202 \210\313\314\n\n\n\n%\210\310\207" [plist-member :success-fn :error-fn :timeout-fn :timeout :deferred (:success-fn :error-fn :timeout-fn :timeout :deferred :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:success-fn :error-fn :timeout-fn :timeout :deferred)" apply jsonrpc--async-request-1] 15 (#$ . 12307)]) #@831 Make a request to CONNECTION, wait for a reply. Like `jsonrpc-async-request' for CONNECTION, METHOD and PARAMS, but synchronous. Except in the case of a non-nil CANCEL-ON-INPUT (explained below), this function doesn't exit until anything interesting happens (success reply, error reply, or timeout). Furthermore, it only exits locally (returning the JSONRPC result object) if the request is successful, otherwise it exits non-locally with an error of type `jsonrpc-error'. DEFERRED is passed to `jsonrpc-async-request', which see. If CANCEL-ON-INPUT is non-nil and the user inputs something while the functino is waiting, then it exits immediately, returning CANCEL-ON-INPUT-RETVAL. Any future replies (normal or error) are ignored. (fn CONNECTION METHOD PARAMS &key DEFERRED TIMEOUT CANCEL-ON-INPUT CANCEL-ON-INPUT-RETVAL) (defalias 'jsonrpc-request #[899 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D \211@\305>\203, \211AA\262\202 \306>A@\203; \307\262\202 \310\311@\"\210\202 \210\312\313!\307C\307C\314\315\316\317\320\f#\321\"\322$\2162\277 \323\f\f\f\324\314\325\326\317\320 \f\"\327\"\330\331%\332\314\325\333\317\320\"\334\"\335\336%\337\314\315\340\317\320\"\341\"\342$\301\302& \240\210\203\266 \343\344!\204\246 \211\345\240\210\346D\202\276 \347\307\344\"\210\202\266 0)\211@\310=\203\325 \350\351\352\353\242@\"AB\"\210\211A@\266\204\207" [plist-member :deferred :timeout :cancel-on-input :cancel-on-input-retval (:deferred :timeout :cancel-on-input :cancel-on-input-retval . #1=(:allow-other-keys)) :allow-other-keys nil error "Keyword argument %s not one of (:deferred :timeout :cancel-on-input :cancel-on-input-retval)" cl-gensym "jsonrpc-request-catch-tag" make-byte-code 0 "\302\242@\302\242A\211@A\303\304\300!\"\210\303\301pD\305\300!\"\210\205# \306!\266\202\207" vconcat vector [remhash jsonrpc--request-continuations jsonrpc--deferred-actions cancel-timer] 10 jsonrpc--async-request-1 :success-fn 257 "\301\242?\205\f \302\300\303D\"\207" [throw done] 5 "\n\n(fn RESULT)" :error-fn "\302\303\304\305\306\307\300\301\"\310\"\311\312%\"\207" [apply make-byte-code 128 "\302\303\"A@\302\304\"A@\302\305\"A@\211\203= \211@\306>\203& \211AA\262\202 \307>A@\2034 \310\262\202 \311\312@\"\210\202 \210\301\242?\205U \313\300\311\314B\315B\316BF\"\207" vconcat vector [plist-member :code :message :data (:code :message :data . #1#) :allow-other-keys nil error "Keyword argument %s not one of (:code :message :data)" throw jsonrpc-error-code jsonrpc-error-message jsonrpc-error-data] 11 "\n\n(fn &key CODE MESSAGE DATA)"] 9 "\n\n(fn JSONRPC-LAMBDA-ELEM0)" :timeout-fn "\301\242?\205\n \302\300\303\"\207" [throw (error (jsonrpc-error-message . "Timed out"))] 3 sit-for 30 t cancelled accept-process-output signal jsonrpc-error format "request id=%s failed:"] 28 (#$ . 13861)]) #@86 Notify CONNECTION of something, don't expect a reply. (fn CONNECTION METHOD PARAMS) (defalias 'jsonrpc-notify #[771 "\300\301\302%\207" [jsonrpc-connection-send :method :params] 9 (#$ . 16745)]) #@54 Time in seconds before timing out a JSONRPC request. (defconst jrpc-default-request-timeout 10 (#$ . 16950)) (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$\210\320\321\322\323\322\324%\210\320\325\322\326\322\327%\210\320\330\322\331\322\332%\210\320\333\322\334\322\335%\210\320\336\322\337\322\340%\210\320\341\322\342\322\343%\207" [defalias jsonrpc-process-connection-p eieio-make-class-predicate jsonrpc-process-connection jsonrpc-process-connection--eieio-childp eieio-make-child-predicate jsonrpc-process-connection-child-p make-obsolete "use (cl-typep ... \\='jsonrpc-process-connection) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (jsonrpc-connection) ((-process :initarg :process :accessor jsonrpc--process :documentation "Process object wrapped by the this connection.") (-expected-bytes :accessor jsonrpc--expected-bytes :documentation "How many bytes declared by server.") (-on-shutdown :accessor jsonrpc--on-shutdown :initform #'ignore :initarg :on-shutdown :documentation "Function run when the process dies.")) (:documentation "A JSONRPC connection over an Emacs process.\nThe following initargs are accepted:\n\n:PROCESS (mandatory), a live running Emacs process object or a\nfunction of no arguments producing one such object. The process\nrepresents either a pipe connection to locally running process or\na stream connection to a network host. The remote endpoint is\nexpected to understand JSONRPC messages with basic HTTP-style\nenveloping headers such as \"Content-Length:\".\n\n:ON-SHUTDOWN (optional), a function of one argument, the\nconnection object, called when the process dies .") cl-generic-define-method jsonrpc--on-shutdown nil ((this jsonrpc-process-connection)) #[257 "\300\301\"\205 \302\301\"\207" [slot-boundp -on-shutdown eieio-oref] 4 "Retrieve the slot `-on-shutdown' from an object of class `jsonrpc-process-connection'.\n\n(fn THIS)"] \(setf\ jsonrpc--on-shutdown\) (value (this jsonrpc-process-connection)) #[514 "\300\301#\207" [eieio-oset -on-shutdown] 6 "\n\n(fn VALUE THIS)"] jsonrpc--expected-bytes ((this jsonrpc-process-connection)) #[257 "\300\301\"\205 \302\301\"\207" [slot-boundp -expected-bytes eieio-oref] 4 "Retrieve the slot `-expected-bytes' from an object of class `jsonrpc-process-connection'.\n\n(fn THIS)"] \(setf\ jsonrpc--expected-bytes\) (value (this jsonrpc-process-connection)) #[514 "\300\301#\207" [eieio-oset -expected-bytes] 6 "\n\n(fn VALUE THIS)"] jsonrpc--process ((this jsonrpc-process-connection)) #[257 "\300\301\"\205 \302\301\"\207" [slot-boundp -process eieio-oref] 4 "Retrieve the slot `-process' from an object of class `jsonrpc-process-connection'.\n\n(fn THIS)"] \(setf\ jsonrpc--process\) (value (this jsonrpc-process-connection)) #[514 "\300\301#\207" [eieio-oset -process] 6 "\n\n(fn VALUE THIS)"]] 7) #@83 Create a new object of class type `jsonrpc-process-connection'. (fn &rest SLOTS) (defalias 'jsonrpc-process-connection #[128 "\300\301\302#\207" [apply make-instance jsonrpc-process-connection] 5 (#$ . 19890)]) (byte-code "\300\301\302\303#\300\207" [function-put jsonrpc-process-connection compiler-macro jsonrpc-process-connection--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'jsonrpc-process-connection--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 20248)]) (byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\207" [cl-generic-define-method initialize-instance nil ((conn jsonrpc-process-connection) slots) t #[771 " \210\301\302\"\303!\203 \211 \202 \211\304\305\306\307!\"!\304\305\310\307!\"!\311\"\266\312\"\210\313\314#\210\315\316\"\210\317\320\"\210r\321!q\210\322 \210\323!e\324\223\210\325\326 \210\327\325!\210*r\211q\210\322 \210)\313\330#\207" [inhibit-read-only plist-get :process functionp get-buffer-create format "*%s output*" process-name "*%s stderr*" \(setf\ jsonrpc--process\) set-process-buffer process-put jsonrpc-stderr set-process-filter jsonrpc--process-filter set-process-sentinel jsonrpc--process-sentinel process-buffer buffer-disable-undo process-mark nil t erase-buffer read-only-mode jsonrpc-connection] 11 "\n\n(fn CL--CNM CONN SLOTS)"] jsonrpc-connection-send ((connection jsonrpc-process-connection) &rest args &key _id method _params _result _error _partial) #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\211\203R \211@\307>\203: \211AA\262\202' \310>A@\203I \311\262\202' \312\313@\"\210\202' \210\203} \314\302\315!\203l \316\317 !\320\"\202{ \205{ 9\205{ \317!#\210\321\322BB\323!\324\325\326\327!\"BC\330\331\f!\311\211\332:\203\271 @\262\211A\262\242\262\211\333\334RP\262A\262\202\230 \325\335\n#\266\204\"\210\336 \337#\266\203\207" [plist-member :id :method :params :result :error :partial (:id :method :params :result :error :partial :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :method :params :result :error :partial)" plist-put keywordp substring symbol-name 1 :jsonrpc "2.0" jsonrpc--json-encode "Content-Length" format "%d" string-bytes process-send-string jsonrpc--process "" ": " " \n" "%s \n%s" jsonrpc--log-event client] 22 "Send MESSAGE, a JSON object, to CONNECTION.\n\n(fn CONNECTION &rest ARGS &key ID METHOD PARAMS RESULT ERROR PARTIAL)"]] 6) #@66 Return the `process-type' of JSONRPC connection CONN. (fn CONN) (defalias 'jsonrpc-process-type #[257 "\300\301!!\207" [process-type jsonrpc--process] 4 (#$ . 22495)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\207" [cl-generic-define-method jsonrpc-running-p nil ((conn jsonrpc-process-connection)) #[257 "\300\301!!\207" [process-live-p jsonrpc--process] 4 "Return non-nil if JSONRPC connection CONN is running.\n\n(fn CONN)"] jsonrpc-shutdown ((conn jsonrpc-process-connection) &optional cleanup) #[513 "\300\301\302\303\304\"\305\"\306$\216\307!\301\310\311\"\2045 \211\301U\204% \312\313\"\210\314!\210\315\316\317\"\210\211T\262\202 \316\266\202)\207" [make-byte-code 0 "\301\205 \302\303\304\300!!!\210\302\305\300!!\207" vconcat vector [kill-buffer process-buffer jsonrpc--process jsonrpc-stderr-buffer] 4 jsonrpc--process process-get jsonrpc-sentinel-cleanup-started jsonrpc--warn "Sentinel for %s still hasn't run, deleting it!" delete-process accept-process-output nil 0.1] 9 "Wait for JSONRPC connection CONN to shutdown.\nWith optional CLEANUP, kill any associated buffers.\n\n(fn CONN &optional CLEANUP)"]] 6) #@54 Get CONN's standard error buffer, if any. (fn CONN) (defalias 'jsonrpc-stderr-buffer #[257 "\300\301!\302\"\207" [process-get jsonrpc--process jsonrpc-stderr] 4 (#$ . 23663)]) (define-error 'jsonrpc-error "jsonrpc-error") #@58 Read JSON object in buffer, move point to end of buffer. (defalias 'jsonrpc--json-read #[0 "\301\302!\203 \302\303\304\305\306\307\310&\207\304\311 )\207" [json-object-type fboundp json-parse-buffer :object-type plist :null-object nil :false-object :json-false json-read] 7 (#$ . 23893)]) #@48 Encode OBJECT into a JSON string. (fn OBJECT) (defalias 'jsonrpc--json-encode #[257 "\302\303!\203 \303\304\305\306\307%\207\305\307\310!*\207" [json-null json-false fboundp json-serialize :false-object :json-false :null-object nil json-encode] 7 (#$ . 24191)]) #@141 Reply to CONNECTION's request ID with RESULT or ERROR. (fn CONNECTION ID &key (RESULT nil RESULT-SUPPLIED-P) (ERROR nil ERROR-SUPPLIED-P)) (defalias 'jsonrpc--reply #[642 "\300\301\"\211\205 \211A@\302\262\300\303\"\211\205 \211A@\302\262\211\203H \211@\304>\2030 \211AA\262\202 \305>A@\203? \306\262\202 \307\310@\"\210\202 \210\311\312\313 \314 \205Z \301 D\205c \303D\"BB#\207" [plist-member :result t :error (:result :error :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:result :error)" apply jsonrpc-connection-send :id append] 16 (#$ . 24466)]) #@86 Call CONNECTION's deferred actions, who may again defer themselves. (fn CONNECTION) (defalias 'jsonrpc--call-deferred #[257 "\300!\301C\302\303\304\305\306\307!\310\"\311\312%\"\210\211\242\237\262\262\211\2055 \313\314\315\316\317\320\"\"D\"\210\321\322\315\323\"\"\207" [jsonrpc--deferred-actions nil maphash make-byte-code 514 "\300\300\242B\240\207" vconcat vector [] 5 "\n\n(fn --CL-VAR-- V)" jsonrpc--debug :maybe-run-deferred mapcar apply-partially nth 2 mapc funcall car] 10 (#$ . 25082)]) #@54 Called when PROC undergoes CHANGE. (fn PROC CHANGE) (defalias 'jsonrpc--process-sentinel #[514 "\301\302\"\303\304\305\306F\"\210\307!?\205D r\310!q\210\311\312c\210*\313\314\315!\"\210\316\317\311#\210\320\321\322\323\324\"\325\"\326$\216\313\327\315!\")\207" [inhibit-read-only process-get jsonrpc-connection jsonrpc--debug :message "Connection state changed" :change process-live-p jsonrpc-events-buffer t "\n----------b---y---e---b---y---e----------\n" maphash #[514 "\211@A\211@A\211@A\205 \300!\266\203\207" [cancel-timer] 13 "\n\n(fn ID TRIPLET)"] jsonrpc--request-continuations process-put jsonrpc-sentinel-cleanup-started make-byte-code 0 "\302\303\304\300!\"\210\305\300!\210\306\301!\301!\207" vconcat vector [jsonrpc--message "Server exited with status %s" process-exit-status delete-process jsonrpc--on-shutdown] 4 #[514 "\211@A\211@A\211@A\300!\266\203\207" [(:code -1 :message "Server died")] 13 "\n\n(fn ID TRIPLET)"]] 10 (#$ . 25597)]) #@69 Called when new data STRING has arrived for PROC. (fn PROC STRING) (defalias 'jsonrpc--process-filter #[514 "\301\302!!\205\324 r\302!q\210\303\304\305\"\306!C\212\307!b\210c\210\307!`\310\223\210)\311\312\313\314\315\"\316\"\317$\216\310\211?\205\316 \242\204` \320\321`\322\\\303#\205S \323\324\325!!\240\210\242\2049 \326\262\2029 \327\307!!\327`!Z\211\242Y\203\307 \330\327`!\242\\!\311\312\331\314\315\"\332\"\333$\216\214`}\210\3341\227 \335 0\202\242 \336\337A\340 #\210\310\262\211\203\301 \341\342!r\211q\210\311\312\343\314\315!\344\"\333$\216\345\"\210*\210\210*\210\202\312 \346\262\210\2029 \262*\266\202)\207" [inhibit-read-only buffer-live-p process-buffer t process-get jsonrpc-connection jsonrpc--expected-bytes process-mark nil make-byte-code 0 "\300\302\301\242\"\207" vconcat vector [\(setf\ jsonrpc--expected-bytes\)] 4 search-forward-regexp "\\(?:.*: .* \n\\)*Content-Length: *\\([[:digit:]]+\\) \n\\(?:.*: .* \n\\)* \n" 100 string-to-number match-string 1 :waiting-for-new-message position-bytes byte-to-position "\301b\210e`|\210\300\302\240\207" [nil] 2 (debug error) jsonrpc--json-read jsonrpc--warn "Invalid JSON: %s %s" buffer-string generate-new-buffer " *temp*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] jsonrpc-connection-receive :waiting-for-more-bytes-in-this-message] 15 (#$ . 26589)]) #@329 Does actual work for `jsonrpc-async-request'. Return a list (ID TIMER). ID is the new request's ID, or nil if the request was deferred. TIMER is a timer object set (or nil, if TIMEOUT is nil). (fn CONNECTION METHOD PARAMS &rest ARGS &key SUCCESS-FN ERROR-FN TIMEOUT-FN (TIMEOUT jrpc-default-request-timeout) (DEFERRED nil)) (defalias 'jsonrpc--async-request-1 #[899 "\301\302\"A@\301\303\"A@\301\304\"A@\301\305\"\206 \306DA@\301\307\"A@\211\203P \211@\310>\2038 \211AA\262\202% \311>A@\203G \306\262\202% \312\313@\"\210\202% \210\3142Np`\205d \315D\316 !\"\211A\211@A\211@A\206 \317\320!T\"\262\321\322\323\324\325\f&\326\"\327$\f\203 \330\"\203\267 \331 D\316!\"\210\202 \204\313 \332\333\334\335\257\"\210\336 D\321\322\337\324\325&\340\"\341$\206\361 \211\262E\316!#\210\342\314D\"\210\343\334\344\335&\210\336\206$\321\345\346\324\325 \"\347\"\350\351%\2068\321\345\346\324\325 \n\"\352\"\350\353% \211\262E\354!#\210D\266\202\266\202\266\2100\207" [jrpc-default-request-timeout plist-member :success-fn :error-fn :timeout-fn :timeout nil :deferred (:success-fn :error-fn :timeout-fn :timeout :deferred :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:success-fn :error-fn :timeout-fn :timeout :deferred)" --cl-block-jsonrpc--async-request-1-- gethash jsonrpc--deferred-actions \(setf\ jsonrpc--next-request-id\) jsonrpc--next-request-id make-byte-code 0 "\304\205 \310\304\311\312\313\314\315\316\300\301\302\303\305\306\307&\317\"\320$#\207" vconcat vector [run-with-timer nil make-byte-code 0 "\307\306\310\300!\"\210\307\304\305D\311\300!\"\210\303\203 \303 \207\312\300\313\301\314\306\315\302\257\"\207" vconcat vector [remhash jsonrpc--request-continuations jsonrpc--deferred-actions jsonrpc--debug :timed-out :id :params] 8] 15 jsonrpc-connection-ready-p remhash jsonrpc--debug :deferring :id :params puthash "\306\304!\205 r\304q\210\212\305b\210\307\310\300\301\302\303%*\207" [buffer-live-p apply jsonrpc-async-request] 6 throw jsonrpc-connection-send :method 257 "\302\303\304\305\306\307\300\301\"\310\"\311\312%\"\207" [apply make-byte-code 128 "\302\300\303\304\305\301F\"\207" vconcat vector [jsonrpc--debug :message "success ignored" :id] 7 "\n\n(fn &rest IGNORED)"] 9 "\n\n(fn JSONRPC-LAMBDA-ELEM1)" [apply make-byte-code 128 "\302\303\"A@\302\304\"A@\305\300\304\306\307\"\310\301\311\257\"\207" vconcat vector [plist-member :code :message jsonrpc--debug format "error ignored, status set (%s)" :id :error] 11 "\n\n(fn &key CODE MESSAGE &allow-other-keys)"] "\n\n(fn JSONRPC-LAMBDA-ELEM2)" jsonrpc--request-continuations] 34 (#$ . 27966)]) #@60 Message out with FORMAT with ARGS. (fn FORMAT &rest ARGS) (defalias 'jsonrpc--message #[385 "\300\301\302\303#\"\207" [message "[jsonrpc] %s" apply format] 8 (#$ . 30699)]) #@79 Debug message for SERVER with FORMAT and ARGS. (fn SERVER FORMAT &rest ARGS) (defalias 'jsonrpc--debug #[642 "\300;\203 \301\302\"D\202 \"\207" [jsonrpc--log-event :message format] 9 (#$ . 30881)]) #@63 Warning message with FORMAT and ARGS. (fn FORMAT &rest ARGS) (defalias 'jsonrpc--warn #[385 "\301\302\303P#\210\304\305\306\301\307#\310#)\207" [warning-minimum-level apply jsonrpc--message "(warning) " :error display-warning jsonrpc format :warning] 8 (#$ . 31093)]) #@206 Log a JSONRPC-related event. CONNECTION is the current connection. MESSAGE is a JSON-like plist. TYPE is a symbol saying if this is a client or server originated. (fn CONNECTION MESSAGE &optional TYPE) (defalias 'jsonrpc--log-event #[770 "\301!\211\203 \211\211\302V\262\205\270 r\303!q\210\304\305\"A@\304\306\"A@\304\307\"A@\310\2037 \2037 \311\202H \203? \312\202H \203G \313\202H \314\315\316\206P \317\"\205Z \315\320\"Pdb\210\315\321\203n \315\322\"\202o \323\203x \324\202y \323\325 \326!&\203\214 \327\330\331#\262\332!\262\203\264 \212eb\210\333 V\203\263 `\334y\210\335\334!\210\336y\210`|\210\202\232 ))\266\206)\207" [inhibit-read-only jsonrpc--events-buffer-scrollback-size 0 jsonrpc-events-buffer plist-member :method :id :error t request notification reply message format "%s" internal "-%s" "%s%s%s %s:\n%s\n" " (id:%s)" "" " ERROR" current-time-string pp-to-string propertize face error insert-before-markers buffer-size 1 forward-sexp 2] 18 (#$ . 31374)]) (provide 'jsonrpc)
Close
