Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ 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
international
[ DIR ]
drwxr-xr-x
language
[ 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
COPYING
34.32
KB
-rw-r--r--
README
538
B
-rw-r--r--
abbrev.elc
29.69
KB
-rw-r--r--
abbrevlist.elc
1.12
KB
-rw-r--r--
add-log.elc
35.21
KB
-rw-r--r--
align.elc
38.38
KB
-rw-r--r--
allout.elc
208.3
KB
-rw-r--r--
ansi-color.elc
16.3
KB
-rw-r--r--
apropos.elc
31.93
KB
-rw-r--r--
arc-mode.elc
54.72
KB
-rw-r--r--
array.elc
25.83
KB
-rw-r--r--
autoarg.elc
5.98
KB
-rw-r--r--
autoinsert.elc
12.01
KB
-rw-r--r--
autorevert.elc
18.25
KB
-rw-r--r--
avoid.elc
10.17
KB
-rw-r--r--
battery.elc
17.98
KB
-rw-r--r--
bindings.elc
39.04
KB
-rw-r--r--
bookmark.elc
55.9
KB
-rw-r--r--
bs.elc
48.34
KB
-rw-r--r--
buff-menu.elc
28
KB
-rw-r--r--
button.elc
13.92
KB
-rw-r--r--
calculator.elc
49.18
KB
-rw-r--r--
case-table.elc
4.42
KB
-rw-r--r--
cdl.elc
1.26
KB
-rw-r--r--
chistory.elc
5.75
KB
-rw-r--r--
cmuscheme.elc
17.43
KB
-rw-r--r--
comint.elc
100.97
KB
-rw-r--r--
compare-w.elc
10.98
KB
-rw-r--r--
complete.elc
23.62
KB
-rw-r--r--
completion.elc
45.06
KB
-rw-r--r--
composite.elc
29.39
KB
-rw-r--r--
cus-dep.elc
5.04
KB
-rw-r--r--
cus-edit.elc
129.67
KB
-rw-r--r--
cus-face.elc
10.46
KB
-rw-r--r--
cus-load.el
63.45
KB
-rw-r--r--
cus-start.elc
10.67
KB
-rw-r--r--
cus-theme.elc
13.7
KB
-rw-r--r--
custom.elc
36.46
KB
-rw-r--r--
cvs-status.elc
23
KB
-rw-r--r--
dabbrev.elc
23.08
KB
-rw-r--r--
delim-col.elc
8.41
KB
-rw-r--r--
delsel.elc
5.24
KB
-rw-r--r--
descr-text.elc
20.69
KB
-rw-r--r--
desktop.elc
34.52
KB
-rw-r--r--
dframe.elc
22.51
KB
-rw-r--r--
diff-mode.elc
55.58
KB
-rw-r--r--
diff.elc
5.51
KB
-rw-r--r--
dired-aux.elc
67.5
KB
-rw-r--r--
dired-x.elc
44.96
KB
-rw-r--r--
dired.elc
96.48
KB
-rw-r--r--
dirtrack.elc
7.39
KB
-rw-r--r--
disp-table.elc
8.33
KB
-rw-r--r--
dnd.elc
7.04
KB
-rw-r--r--
doc-view.elc
36.01
KB
-rw-r--r--
dos-fns.elc
5.53
KB
-rw-r--r--
dos-vars.elc
1.24
KB
-rw-r--r--
dos-w32.elc
11.12
KB
-rw-r--r--
double.elc
4.13
KB
-rw-r--r--
ebuff-menu.elc
9.11
KB
-rw-r--r--
echistory.elc
4.93
KB
-rw-r--r--
ediff-diff.elc
35.54
KB
-rw-r--r--
ediff-help.elc
11.47
KB
-rw-r--r--
ediff-hook.elc
5.89
KB
-rw-r--r--
ediff-init.elc
60.88
KB
-rw-r--r--
ediff-merg.elc
10.04
KB
-rw-r--r--
ediff-mult.elc
58.31
KB
-rw-r--r--
ediff-ptch.elc
18.63
KB
-rw-r--r--
ediff-util.elc
118.44
KB
-rw-r--r--
ediff-vers.elc
4.74
KB
-rw-r--r--
ediff-wind.elc
30.56
KB
-rw-r--r--
ediff.elc
36.28
KB
-rw-r--r--
edmacro.elc
21.45
KB
-rw-r--r--
ehelp.elc
11.03
KB
-rw-r--r--
electric.elc
2.81
KB
-rw-r--r--
elide-head.elc
2.8
KB
-rw-r--r--
emacs-lock.elc
2.77
KB
-rw-r--r--
emerge.elc
80.16
KB
-rw-r--r--
env.elc
5.69
KB
-rw-r--r--
epa-dired.elc
1.87
KB
-rw-r--r--
epa-file.elc
6.77
KB
-rw-r--r--
epa-hook.elc
4.28
KB
-rw-r--r--
epa-mail.elc
7.04
KB
-rw-r--r--
epa.elc
34.03
KB
-rw-r--r--
epg-config.elc
4.01
KB
-rw-r--r--
epg.elc
85.05
KB
-rw-r--r--
expand.elc
9.42
KB
-rw-r--r--
ezimage.elc
9.2
KB
-rw-r--r--
face-remap.elc
13.15
KB
-rw-r--r--
facemenu.elc
23.61
KB
-rw-r--r--
faces.elc
81.51
KB
-rw-r--r--
ffap.elc
46.14
KB
-rw-r--r--
filecache.elc
16.1
KB
-rw-r--r--
files.elc
175.25
KB
-rw-r--r--
filesets.elc
73.03
KB
-rw-r--r--
find-cmd.elc
4.94
KB
-rw-r--r--
find-dired.elc
7.4
KB
-rw-r--r--
find-file.elc
18.68
KB
-rw-r--r--
find-lisp.elc
7.42
KB
-rw-r--r--
finder-inf.el
93.47
KB
-rw-r--r--
finder.elc
12.11
KB
-rw-r--r--
flow-ctrl.elc
2.44
KB
-rw-r--r--
foldout.elc
7.6
KB
-rw-r--r--
follow.elc
37.11
KB
-rw-r--r--
font-core.elc
12.92
KB
-rw-r--r--
font-lock.elc
61.1
KB
-rw-r--r--
format-spec.elc
1.98
KB
-rw-r--r--
format.elc
27.73
KB
-rw-r--r--
forms-d2.el
3.13
KB
-rw-r--r--
forms-pass.el
742
B
-rw-r--r--
forms.elc
35.13
KB
-rw-r--r--
frame.elc
48.66
KB
-rw-r--r--
fringe.elc
8.01
KB
-rw-r--r--
generic-x.elc
44.25
KB
-rw-r--r--
gs.elc
3.93
KB
-rw-r--r--
help-at-pt.elc
11.27
KB
-rw-r--r--
help-fns.elc
21.77
KB
-rw-r--r--
help-macro.elc
4.37
KB
-rw-r--r--
help-mode.elc
19.38
KB
-rw-r--r--
help.elc
40.91
KB
-rw-r--r--
hex-util.elc
1.48
KB
-rw-r--r--
hexl.elc
32.06
KB
-rw-r--r--
hi-lock.elc
23.27
KB
-rw-r--r--
hilit-chg.elc
28.02
KB
-rw-r--r--
hippie-exp.elc
23.39
KB
-rw-r--r--
hl-line.elc
7.71
KB
-rw-r--r--
ibuf-ext.elc
54.62
KB
-rw-r--r--
ibuf-macs.elc
11.65
KB
-rw-r--r--
ibuffer.elc
91.96
KB
-rw-r--r--
icomplete.elc
10.36
KB
-rw-r--r--
ido.elc
110.93
KB
-rw-r--r--
ielm.elc
17.67
KB
-rw-r--r--
iimage.elc
4.06
KB
-rw-r--r--
image-dired.elc
82.24
KB
-rw-r--r--
image-file.elc
6.11
KB
-rw-r--r--
image-mode.elc
14.54
KB
-rw-r--r--
image.elc
17.09
KB
-rw-r--r--
imenu.elc
24.8
KB
-rw-r--r--
indent.elc
17
KB
-rw-r--r--
info-look.elc
26.13
KB
-rw-r--r--
info-xref.elc
7.04
KB
-rw-r--r--
info.elc
119.11
KB
-rw-r--r--
informat.elc
9.69
KB
-rw-r--r--
isearch.elc
76.23
KB
-rw-r--r--
isearchb.elc
4.92
KB
-rw-r--r--
iswitchb.elc
32.11
KB
-rw-r--r--
jit-lock.elc
17.93
KB
-rw-r--r--
jka-cmpr-hook.elc
11.67
KB
-rw-r--r--
jka-compr.elc
12.64
KB
-rw-r--r--
json.elc
13.04
KB
-rw-r--r--
kermit.elc
2.96
KB
-rw-r--r--
kmacro.elc
31.07
KB
-rw-r--r--
ldefs-boot.el
1.17
MB
-rw-r--r--
ledit.elc
4.74
KB
-rw-r--r--
linum.elc
9.56
KB
-rw-r--r--
loaddefs.el
1.17
MB
-rw-r--r--
loadhist.elc
8.65
KB
-rw-r--r--
loadup.el
12.67
KB
-rw-r--r--
locate.elc
17.81
KB
-rw-r--r--
log-edit.elc
24.93
KB
-rw-r--r--
log-view.elc
14.06
KB
-rw-r--r--
longlines.elc
14.94
KB
-rw-r--r--
lpr.elc
8.61
KB
-rw-r--r--
ls-lisp.elc
17.35
KB
-rw-r--r--
macros.elc
6.99
KB
-rw-r--r--
makesum.elc
2.16
KB
-rw-r--r--
man.elc
40.03
KB
-rw-r--r--
master.elc
4.52
KB
-rw-r--r--
mb-depth.elc
3.12
KB
-rw-r--r--
md4.elc
8.14
KB
-rw-r--r--
menu-bar.elc
67.01
KB
-rw-r--r--
midnight.elc
8.92
KB
-rw-r--r--
minibuf-eldef.elc
5.15
KB
-rw-r--r--
minibuffer.elc
42.75
KB
-rw-r--r--
misc.elc
3.67
KB
-rw-r--r--
misearch.elc
8.96
KB
-rw-r--r--
mouse-copy.elc
4.07
KB
-rw-r--r--
mouse-drag.elc
7.33
KB
-rw-r--r--
mouse-sel.elc
20.93
KB
-rw-r--r--
mouse.elc
60.03
KB
-rw-r--r--
msb.elc
27.27
KB
-rw-r--r--
mwheel.elc
9.41
KB
-rw-r--r--
newcomment.elc
32.76
KB
-rw-r--r--
novice.elc
4.75
KB
-rw-r--r--
outline.elc
34.54
KB
-rw-r--r--
paren.elc
6.43
KB
-rw-r--r--
password-cache.elc
3.58
KB
-rw-r--r--
patcomp.el
775
B
-rw-r--r--
paths.el
7.28
KB
-rw-r--r--
pcmpl-cvs.elc
6
KB
-rw-r--r--
pcmpl-gnu.elc
8.21
KB
-rw-r--r--
pcmpl-linux.elc
3.17
KB
-rw-r--r--
pcmpl-rpm.elc
7.5
KB
-rw-r--r--
pcmpl-unix.elc
5.44
KB
-rw-r--r--
pcomplete.elc
34.1
KB
-rw-r--r--
pcvs-defs.elc
16.27
KB
-rw-r--r--
pcvs-info.elc
25.83
KB
-rw-r--r--
pcvs-parse.elc
15.34
KB
-rw-r--r--
pcvs-util.elc
26.8
KB
-rw-r--r--
pcvs.elc
85.52
KB
-rw-r--r--
pgg-def.elc
2.78
KB
-rw-r--r--
pgg-gpg.elc
13.09
KB
-rw-r--r--
pgg-parse.elc
13.45
KB
-rw-r--r--
pgg-pgp.elc
7.64
KB
-rw-r--r--
pgg-pgp5.elc
7.68
KB
-rw-r--r--
pgg.elc
18.01
KB
-rw-r--r--
printing.elc
157.56
KB
-rw-r--r--
proced.elc
57.95
KB
-rw-r--r--
ps-bdf.elc
13.34
KB
-rw-r--r--
ps-def.elc
3.09
KB
-rw-r--r--
ps-mule.elc
36.17
KB
-rw-r--r--
ps-print.elc
145.59
KB
-rw-r--r--
ps-samp.elc
5.5
KB
-rw-r--r--
recentf.elc
49.04
KB
-rw-r--r--
rect.elc
10.79
KB
-rw-r--r--
register.elc
10.69
KB
-rw-r--r--
repeat.elc
6.05
KB
-rw-r--r--
replace.elc
55.02
KB
-rw-r--r--
reposition.elc
2.88
KB
-rw-r--r--
reveal.elc
6.61
KB
-rw-r--r--
rfn-eshadow.elc
7.12
KB
-rw-r--r--
rot13.elc
2.6
KB
-rw-r--r--
ruler-mode.elc
22.48
KB
-rw-r--r--
s-region.elc
3.3
KB
-rw-r--r--
savehist.elc
10.57
KB
-rw-r--r--
saveplace.elc
7.51
KB
-rw-r--r--
sb-image.elc
2.51
KB
-rw-r--r--
scroll-all.elc
4.05
KB
-rw-r--r--
scroll-bar.elc
11.47
KB
-rw-r--r--
scroll-lock.elc
4.64
KB
-rw-r--r--
select.elc
11.8
KB
-rw-r--r--
server.elc
39.79
KB
-rw-r--r--
ses.elc
87.39
KB
-rw-r--r--
sha1.elc
8
KB
-rw-r--r--
shadowfile.elc
22.61
KB
-rw-r--r--
shell.elc
34.08
KB
-rw-r--r--
simple.elc
196.35
KB
-rw-r--r--
skeleton.elc
15.78
KB
-rw-r--r--
smerge-mode.elc
33.61
KB
-rw-r--r--
sort.elc
12.94
KB
-rw-r--r--
soundex.elc
1.34
KB
-rw-r--r--
speedbar.elc
115.06
KB
-rw-r--r--
startup.elc
60.78
KB
-rw-r--r--
strokes.elc
44.11
KB
-rw-r--r--
subdirs.el
426
B
-rw-r--r--
subr.elc
113.48
KB
-rw-r--r--
t-mouse.elc
3.38
KB
-rw-r--r--
tabify.elc
2
KB
-rw-r--r--
talk.elc
3.19
KB
-rw-r--r--
tar-mode.elc
52.24
KB
-rw-r--r--
tempo.elc
18.63
KB
-rw-r--r--
term.elc
99.67
KB
-rw-r--r--
terminal.elc
31.36
KB
-rw-r--r--
thingatpt.elc
10.84
KB
-rw-r--r--
thumbs.elc
26.23
KB
-rw-r--r--
time-stamp.elc
21.03
KB
-rw-r--r--
time.elc
18.2
KB
-rw-r--r--
timezone.elc
10.99
KB
-rw-r--r--
tmm.elc
13.9
KB
-rw-r--r--
tool-bar.elc
9.69
KB
-rw-r--r--
tooltip.elc
12.35
KB
-rw-r--r--
tree-widget.elc
20.87
KB
-rw-r--r--
tutorial.elc
21.41
KB
-rw-r--r--
type-break.elc
35.61
KB
-rw-r--r--
uniquify.elc
19.91
KB
-rw-r--r--
userlock.elc
4.69
KB
-rw-r--r--
vc-annotate.elc
22.68
KB
-rw-r--r--
vc-arch.elc
17.58
KB
-rw-r--r--
vc-bzr.elc
26.84
KB
-rw-r--r--
vc-cvs.elc
32.19
KB
-rw-r--r--
vc-dav.elc
5.3
KB
-rw-r--r--
vc-dir.elc
39.5
KB
-rw-r--r--
vc-dispatcher.elc
14.61
KB
-rw-r--r--
vc-git.elc
32.75
KB
-rw-r--r--
vc-hg.elc
25.95
KB
-rw-r--r--
vc-hooks.elc
32.75
KB
-rw-r--r--
vc-mtn.elc
10.95
KB
-rw-r--r--
vc-rcs.elc
34.99
KB
-rw-r--r--
vc-sccs.elc
13.24
KB
-rw-r--r--
vc-svn.elc
20.57
KB
-rw-r--r--
vc.elc
59.4
KB
-rw-r--r--
vcursor.elc
23.44
KB
-rw-r--r--
version.el
3.37
KB
-rw-r--r--
view.elc
35.96
KB
-rw-r--r--
vt-control.elc
2.06
KB
-rw-r--r--
vt100-led.elc
1.53
KB
-rw-r--r--
w32-fns.elc
15.82
KB
-rw-r--r--
w32-vars.elc
5.53
KB
-rw-r--r--
wdired.elc
21.69
KB
-rw-r--r--
whitespace.elc
59.83
KB
-rw-r--r--
wid-browse.elc
7.89
KB
-rw-r--r--
wid-edit.elc
104.76
KB
-rw-r--r--
widget.elc
1.37
KB
-rw-r--r--
windmove.elc
9.57
KB
-rw-r--r--
window.elc
57.4
KB
-rw-r--r--
winner.elc
11.61
KB
-rw-r--r--
woman.elc
107.73
KB
-rw-r--r--
x-dnd.elc
19.35
KB
-rw-r--r--
xml.elc
18.38
KB
-rw-r--r--
xt-mouse.elc
7.43
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : arc-mode.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:32 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/arc-mode.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`arc-mode.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303\304\305%\210\300\306\302\307\304\301%\210\300\310\302\311\304\301%\210\300\312\302\313\304\301%\210\300\314\302\315\304\301%\207" [custom-declare-group archive nil "Simple editing of archives." :group data archive-arc "ARC-specific options to archive." archive-lzh "LZH-specific options to archive." archive-zip "ZIP-specific options to archive." archive-zoo "ZOO-specific options to archive."] 6) #@54 Directory for temporary files made by `arc-mode.el'. (custom-declare-variable 'archive-tmpdir '(make-temp-name (expand-file-name (if (eq system-type 'ms-dos) "ar" "archive.tmp") temporary-file-directory)) '(#$ . 1034) :type 'directory :group 'archive) #@185 Regexp recognizing archive files names that are not local. A non-local file is one whose file name is not proper outside Emacs. A local copy of the archive will be used when updating. (custom-declare-variable 'archive-remote-regexp '"^/[^/:]*[^/:.]:" '(#$ . 1293) :type 'regexp :group 'archive) #@57 Hooks to run when an archive member has been extracted. (custom-declare-variable 'archive-extract-hooks 'nil '(#$ . 1594) :type 'hook :group 'archive) #@163 Program and its options to run in order to extract an arc file member. Extraction should happen to the current directory. Archive and member name will be added. (custom-declare-variable 'archive-arc-extract ''("arc" "x") '(#$ . 1752) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-arc) #@109 Program and its options to run in order to delete arc file members. Archive and member names will be added. (custom-declare-variable 'archive-arc-expunge ''("arc" "d") '(#$ . 2109) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-arc) #@110 Program and its options to run in order to update an arc file member. Archive and member name will be added. (custom-declare-variable 'archive-arc-write-file-member ''("arc" "u") '(#$ . 2412) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-arc) #@157 Program and its options to run in order to extract an lzh file member. Extraction should happen to standard output. Archive and member name will be added. (custom-declare-variable 'archive-lzh-extract ''("lha" "pq") '(#$ . 2726) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-lzh) #@109 Program and its options to run in order to delete lzh file members. Archive and member names will be added. (custom-declare-variable 'archive-lzh-expunge ''("lha" "d") '(#$ . 3078) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-lzh) #@110 Program and its options to run in order to update an lzh file member. Archive and member name will be added. (custom-declare-variable 'archive-lzh-write-file-member ''("lha" "a") '(#$ . 3381) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-lzh) #@156 Program and its options to run in order to extract a zip file member. Extraction should happen to standard output. Archive and member name will be added. (custom-declare-variable 'archive-zip-extract '(if (and (not (executable-find "unzip")) (executable-find "pkunzip")) '("pkunzip" "-e" "-o-") '("unzip" "-qq" "-c")) '(#$ . 3695) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-zip) #@109 Program and its options to run in order to delete zip file members. Archive and member names will be added. (custom-declare-variable 'archive-zip-expunge '(if (and (not (executable-find "zip")) (executable-find "pkzip")) '("pkzip" "-d") '("zip" "-d" "-q")) '(#$ . 4149) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-zip) #@188 Program and its options to run in order to update a zip file member. Options should ensure that specified directory will be put into the zip file. Archive and member name will be added. (custom-declare-variable 'archive-zip-update '(if (and (not (executable-find "zip")) (executable-find "pkzip")) '("pkzip" "-u" "-P") '("zip" "-q")) '(#$ . 4541) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-zip) #@195 Program and its options to run in order to update a case fiddled zip member. Options should ensure that specified directory will be put into the zip file. Archive and member name will be added. (custom-declare-variable 'archive-zip-update-case '(if (and (not (executable-find "zip")) (executable-find "pkzip")) '("pkzip" "-u" "-P") '("zip" "-q" "-k")) '(#$ . 5011) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-zip) #@152 If non-nil then zip file members may be down-cased. This case fiddling will only happen for members created by a system that uses caseless file names. (custom-declare-variable 'archive-zip-case-fiddle 't '(#$ . 5498) :type 'boolean :group 'archive-zip) #@156 Program and its options to run in order to extract a zoo file member. Extraction should happen to standard output. Archive and member name will be added. (custom-declare-variable 'archive-zoo-extract ''("zoo" "xpq") '(#$ . 5758) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-zoo) #@109 Program and its options to run in order to delete zoo file members. Archive and member names will be added. (custom-declare-variable 'archive-zoo-expunge ''("zoo" "DqPP") '(#$ . 6110) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-zoo) #@109 Program and its options to run in order to update a zoo file member. Archive and member name will be added. (custom-declare-variable 'archive-zoo-write-file-member ''("zoo" "a") '(#$ . 6416) :type '(list (string :tag "Program") (repeat :tag "Options" :inline t (string :format "%v"))) :group 'archive-zoo) #@33 Symbol describing archive type. (defvar archive-subtype nil (#$ . 6728)) #@34 Position of first contents line. (defvar archive-file-list-start nil (#$ . 6807)) #@41 Position just after last contents line. (defvar archive-file-list-end nil (#$ . 6895)) #@35 Position of real archive's start. (defvar archive-proper-file-start nil (#$ . 6988)) #@46 Non-nil if the archive is read-only on disk. (defvar archive-read-only nil (#$ . 7079)) #@39 Name of local copy of remote archive. (defvar archive-local-name nil (#$ . 7173)) #@41 Local keymap for archive mode listings. (defvar archive-mode-map (byte-code "\302 \303!\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\312#\210\304\314\315#\210\304\316\315#\210\304\317\315#\210\304\320\321#\210\304\322\323#\210\304\324\325#\210\304\326\306#\210\304\327\306#\210\304\330\306#\210\304\331\332#\210\304\333\334#\210\304\335\336#\210\304\337\334#\210\304\340\334#\210\304\341\342#\210\304\343\344#\210\304\345\346#\210\304\347\350#\210\304\351\352#\210\304\353\354#\210\304\355\332#\210\304\356\357#\210\304\360\361#\210\304\362\363#\210\304\364\365#\210\366\367!\203\312 \304\370\371#\210\304\372\371#\210\202\330 \373\374\371 $\210\373\375\371 $\210\304\376\315#\210\304\377\201@ \201A \201@ !B#\210\304\201B \201C #\210\304\201D \201E #\210\304\201F \201G #\210\304\201H \201I #\210\304\201J \201K #\210\304\201L \201M \201A \201M !B#\210\304\201N \201O #\210\304\201P \201Q #\210\304\201R \201S #\210\304\201T \201U #\210\304\201V \201W \201A \201W !B#\210\304\201X \201Y #\210\304\201Z \201[ #\210\304\201\\ \201] #\210\304\201^ \201_ #\210\304\201` \201a #\210)\207" [map global-map make-keymap suppress-keymap define-key " " archive-next-line "a" archive-alternate-display "d" archive-flag-deleted "" "e" archive-extract "f" " " "g" revert-buffer "h" describe-mode "m" archive-mark "n" "" [down] "o" archive-extract-other-window "p" archive-previous-line "q" quit-window "" [up] "r" archive-rename-entry "u" archive-unflag "\377" archive-unmark-all-files "v" archive-view "x" archive-expunge "" archive-unflag-backwards "E" "M" archive-chmod-entry "G" archive-chgrp-entry "O" archive-chown-entry [follow-link] mouse-face fboundp command-remapping [remap advertised-undo] archive-undo [remap undo] substitute-key-definition advertised-undo undo [mouse-2] [menu-bar immediate] "Immediate" make-sparse-keymap [menu-bar immediate alternate] (menu-item "Alternate Display" archive-alternate-display :enable (boundp (archive-name "alternate-display")) :help "Toggle alternate file info display") [menu-bar immediate view] (menu-item "View This File" archive-view :help "Display file at cursor in View Mode") [menu-bar immediate display] (menu-item "Display in Other Window" archive-display-other-window :help "Display file at cursor in another window") [menu-bar immediate find-file-other-window] (menu-item "Find in Other Window" archive-extract-other-window :help "Edit file at cursor in another window") [menu-bar immediate find-file] (menu-item "Find This File" archive-extract :help "Extract file at cursor and edit it") [menu-bar mark] "Mark" [menu-bar mark unmark-all] (menu-item "Unmark All" archive-unmark-all-files :help "Unmark all marked files") [menu-bar mark deletion] (menu-item "Flag" archive-flag-deleted :help "Flag file at cursor for deletion") [menu-bar mark unmark] (menu-item "Unflag" archive-unflag :help "Unmark file at cursor") [menu-bar mark mark] (menu-item "Mark" archive-mark :help "Mark file at cursor") [menu-bar operate] "Operate" [menu-bar operate chown] (menu-item "Change Owner..." archive-chown-entry :enable (fboundp (archive-name "chown-entry")) :help "Change owner of marked files") [menu-bar operate chgrp] (menu-item "Change Group..." archive-chgrp-entry :enable (fboundp (archive-name "chgrp-entry")) :help "Change group ownership of marked files") [menu-bar operate chmod] (menu-item "Change Mode..." archive-chmod-entry :enable (fboundp (archive-name "chmod-entry")) :help "Change mode (permissions) of marked files") [menu-bar operate rename] (menu-item "Rename to..." archive-rename-entry :enable (fboundp (archive-name "rename-entry")) :help "Rename marked files") [menu-bar operate expunge] (menu-item "Expunge Marked Files" archive-expunge :help "Delete all flagged files from archive")] 6) (#$ . 7261)) #@32 Column where file names start. (defvar archive-file-name-indent nil (#$ . 11109)) #@48 Non-nil if the archive is outside file system. (defvar archive-remote nil (#$ . 11197)) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local archive-remote put permanent-local t] 4) #@34 Coding-system of archive member. (defvar archive-member-coding-system nil (#$ . 11408)) (make-variable-buffer-local 'archive-member-coding-system) #@46 Non-nil when alternate information is shown. (defvar archive-alternate-display nil (#$ . 11561)) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local archive-alternate-display put permanent-local t] 4) #@40 In archive members, points to archive. (defvar archive-superior-buffer nil (#$ . 11792)) (put 'archive-superior-buffer 'permanent-local t) #@36 Non-nil in archive member buffers. (defvar archive-subfile-mode nil (#$ . 11937)) (byte-code "\301\302!\210\303\302\304\305#\210\306B\307\306!\204 \310\306\311\"\210\301\306!\210\303\306\304\305#\207" [current-load-list make-variable-buffer-local archive-subfile-mode put permanent-local t archive-file-name-coding-system default-boundp set-default nil] 4) #@122 Vector of file descriptors. Each descriptor is a vector of the form [EXT-FILE-NAME INT-FILE-NAME CASE-FIDDLED MODE ...] (defvar archive-files nil (#$ . 12304)) (make-variable-buffer-local 'archive-files) (defalias 'archive-name #[(suffix) "\302\303\304!\305 R!\207" [archive-subtype suffix intern "archive-" symbol-name "-"] 5]) (put 'archive-name 'byte-optimizer 'byte-compile-inline-expand) #@319 Convert little endian string/vector STR to integer. Alternatively, STR may be a buffer position in the current buffer in which case a second argument, length LEN, should be supplied. FLOAT, if non-nil, means generate and return a float instead of an integer (use this for numbers that can overflow the Emacs integer). (defalias 'archive-l-e #[(str &optional len float) ";\203 G\202 \211 \\{\305!\306\211\n W\203: \nT\f\203, \307_\2020 \310 \311\" \nZH\\\202 *\207" [str len i result float string-as-unibyte 0 256.0 ash 8] 4 (#$ . 12706)]) #@75 Turn an integer like 0700 (i.e., 448) into a mode string like -rwx------. (defalias 'archive-int-to-mode #[(mode) "\301\302\303\304\"!\203 \302\303\305\"!\203 \306\202 \307\202 \310\302\303\311\"!\203) \306\202* \312\302\303\313\"!\2037 \306\2028 \314\302\303\315\"!\203R \302\303\316\"!\203N \306\202` \317\202` \302\303\316\"!\203_ \320\202` \321\302\303\322\"!\203m \306\202n \312\302\303\323\"!\203{ \306\202| \314\302\303\324\"!\203\226 \302\303\325\"!\203\222 \306\202\244 \317\202\244 \302\303\325\"!\203\243 \320\202\244 \321\302\303\326\"!\203\261 \306\202\262 \312\302\303\327\"!\203\277 \306\202\300 \314\302\303\330\"!\203\315 \306\202\316 \320&\n\207" [mode string zerop logand 8192 16384 45 100 99 256 114 128 119 64 1024 83 120 115 32 16 8 2048 4 2 1] 14 (#$ . 13268)]) #@461 From the integer OLDMODE and the string NEWMODE calculate a new file mode. NEWMODE may be an octal number including a leading zero in which case it will become the new mode. NEWMODE may also be a relative specification like "og-rwx" in which case OLDMODE will be modified accordingly just like chmod(2) would have done. If optional third argument ERROR is non-nil an error will be signaled if the mode is invalid. If ERROR is nil then nil will be returned. (defalias 'archive-calc-mode #[(oldmode newmode &optional error) "\306\307\"\203/ \310G\311 \nW\203& \312\313 \314\" H\315# T\211\202 \316\317\f\320\" \"+\207\306\321\"\203\310\f\322\224H\310\314\224 * + \314\225W\203\221 H ,\316 ,\323U\203_ \324\202\210 ,\325U\203j \326\202\210 ,\327U\203u \330\202\210 ,\331U\203\200 \332\202\210 ,\333U\205\210 \334\" T)\202F +\311\225W\203 +H\211 -\335U\203\251 \336\202\307 -\337U\203\264 \340\202\307 -\341U\203\277 \342\202\307 -\343U\205\307 \344 .*\345U\203\330 \317 \346.!\"*\347U\203\355 \317 \346\317. \"!\"\202\366 \316 \317. \"\"*+T\211+\202\223 -\207(\205\f\350\351\"\207" [newmode i len result oldmode bits string-match "^0[0-7]*$" 0 1 + lsh 3 -48 logior logand 65024 "^\\([agou]+\\)\\([---+=]\\)\\([rwxst]+\\)$" 2 114 292 119 146 120 73 115 3072 116 512 97 4095 117 1472 103 2104 111 7 61 lognot 45 error "Invalid mode specification: %s" op who rwx whoc whomask] 7 (#$ . 14079)]) #@35 Stringify dos packed DATE record. (defalias 'archive-dosdate #[(date) "\304\305\306\307\"\310\"\\\305\306\311\"\312\"\305\313\"\n\314V\204# \n\315W\203' \316\2020 \317\320 \321\nSH $+\207" [date day month year 1980 logand ash -9 127 -5 15 31 12 1 "" format "%2d-%s-%d" ["Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"]] 5 (#$ . 15522)]) #@35 Stringify dos packed TIME record. (defalias 'archive-dostime #[(time) "\304\305\306\"\307\"\304\305\310\"\311\"\304\307\"\312_\313\314 \n $+\207" [time second minute hour logand ash -11 31 -5 63 2 format "%02d:%02d:%02d"] 5 (#$ . 15895)]) #@33 Stringify Unix (LOW HIGH) date. (defalias 'archive-unixdate #[(low high) "\303 B!\304\305\n\306\307O\n\310\311O\n\312\313O$)\207" [high low str current-time-string format "%s-%s-%s" 8 10 4 7 20 24] 7 (#$ . 16146)]) #@33 Stringify Unix (LOW HIGH) time. (defalias 'archive-unixtime #[(low high) "\303 B!\211\304\305O)\207" [high low str current-time-string 11 19] 4 (#$ . 16369)]) (defalias 'archive-get-lineno #[nil "`Y\203 \301\212\302 \210`)\"\207\303\207" [archive-file-list-start count-lines beginning-of-line 0] 3]) #@115 Return the descriptor vector for file at point. Does not signal an error if optional argument NOERROR is non-nil. (defalias 'archive-get-descr #[(&optional noerror) "\305 ` Y\203* \nGW\203* \nH\306 !\203 \202& \f?\205& \307\310!)\2022 \f?\2052 \307\311!)\207" [no archive-file-list-start archive-files item noerror archive-get-lineno vectorp error "Entry is not a regular member of the archive" "Line does not describe a member of the archive"] 2 (#$ . 16681)]) #@455 Major mode for viewing an archive file in a dired-like way. You can move around using the usual cursor motion commands. Letters no longer insert themselves. Type `e' to pull a file out of the archive and into its own buffer; or click mouse-2 on the file's line in the archive mode buffer. If you edit a sub-file of this archive (as with the `e' command) and save it, the contents of that buffer will be saved back into the archive. \{archive-mode-map} (defalias 'archive-mode #[(&optional force) "\306\307 !\203\n \207 ?\205 \n?\205\326 \310 \311\312 !! \313 \210\314\305!\210 \314\315!\210\316 \317\320!\210.\204= \321\322\323\324\325$\210\314\326!\210\324\314\327!\210\324\314\330!\210\325\314\331!\210\332\333 !?\206k /\205k \3340/\320H\"\314\335!\210.\204\207 \3341\333 \"\206\205 \3340\333 \".\3362\f\337P3\340\341 4\342\343\312 !\3444R!)\345\"\210\3465!\210*\314\347!\210\314\350!\210\314\351!\210\314\352!\2106\206\303 7\206\303 89:\203\316 \353\354!\210\355\324!\210\325\211;\207" [default-major-mode force archive-files type typename archive-subtype zerop buffer-size archive-find-type capitalize symbol-name kill-all-local-variables make-local-variable revert-buffer-function archive-mode-revert auto-save-mode 0 add-hook write-contents-functions archive-write-file nil t require-final-newline local-enable-local-variables file-precious-flag archive-read-only file-writable-p buffer-file-name string-match archive-local-name archive-mode "-Archive" run-mode-hooks "mode-hook" intern "archive-" "-" archive-mode-hook use-local-map archive-proper-file-start archive-file-list-start archive-file-list-end archive-file-name-indent set-buffer-multibyte to archive-summarize archive-remote archive-subfile-mode file-name-invalid-regexp archive-remote-regexp major-mode mode-name suffix archive-mode-map file-name-coding-system default-file-name-coding-system locale-coding-system archive-file-name-coding-system default-enable-multibyte-characters buffer-read-only] 6 (#$ . 17156)]) (byte-code "\302\303\304\305#\210\306\211 \235\204 B)\302\207" [item1 minor-mode-alist put archive-mode mode-class special (archive-subfile-mode " Archive")] 5) (defalias 'archive-find-type #[nil "~\210eb\210\302\303\304!\203 \305\202p \303\306!\203 \307\202p \303\310!\203% \311\202p \303\312!\203; \313\314 \2063 \315 \"\203; \316\202p \303\317!\203E \320\202p \303\321!\203O \322\202p \303\323!\203Y \324\202p \303\325!\203m \326\321`\327\\\330#\203m \331\202p \332\333!)\207" [case-fold-search buffer-file-name nil looking-at "[P]K" zip "..-l[hz][0-9ds]-" lzh "....................[\334]\247\304\375" zoo "" string-match "\\.[aA][rR][cC]$" buffer-name arc "MZ\\(.\\|\n\\)\\{34\\}LH[aA]'s SFX " lzh-exe "Rar!" rar "!<arch>\n" ar "MZ" re-search-forward 100000 t rar-exe error "Buffer format not recognized"] 4]) (defalias 'archive-desummarize #[nil "\303\304 ~\210e\n|\210\305!*\207" [modified inhibit-read-only archive-proper-file-start t buffer-modified-p restore-buffer-modified-p] 2]) #@297 Parse the contents of the archive file in the current buffer. Place a dired-like listing on the front; then narrow to it, so that only that listing is visible (and the real data of the buffer is hidden). Optional argument SHUT-UP, if non-nil, means don't print messages when parsing the archive. (defalias 'archive-summarize #[(&optional shut-up) "~\210\306\307e\306\"\310\302!\210\311 \204 \312\313!\210\314p!\210\315 \316\317\320 !\321\fR!) \2042 \312\322!\210\323 e`}\210\324\325!\210\326 \210)b\210\327\330!\207" [inhibit-read-only archive-proper-file-start change-major-mode-hook shut-up suffix archive-subtype t copy-marker make-local-variable archive-desummarize message "Parsing archive file..." buffer-disable-undo "summarize" intern "archive-" symbol-name "-" "Parsing archive file...done." point-marker set-buffer-modified-p nil buffer-enable-undo archive-next-line 0 archive-files archive-file-list-start] 5 (#$ . 20189)]) #@46 Recreate the contents listing of an archive. (defalias 'archive-resummarize #[nil "\302 \303 \210\304\305!\210 b\210\306!)\207" [no archive-file-list-start archive-get-lineno archive-desummarize archive-summarize t archive-next-line] 2 (#$ . 21140)]) #@75 Insert a description of a list of files annotated with proper mouse face. (defalias 'archive-summarize-files #[(files) "\304 \203 @\305H\202 \306\307\310\311\312 \"\"c\210\304 \211\207" [archive-file-list-start files archive-file-name-indent archive-file-list-end point-marker 1 0 apply concat mapcar #[(fil) "\302H\303P\304\305H\306H\307 $\210 )\207" [fil text 0 "\n" add-text-properties 1 2 (mouse-face highlight help-echo "mouse-2: extract this file into a buffer")] 5]] 5 (#$ . 21399)]) #@165 Toggle alternative display. To avoid very long lines archive mode does not show all information. This function changes the set of information shown for each files. (defalias 'archive-alternate-display #[nil "?\301 \207" [archive-alternate-display archive-resummarize] 1 (#$ . 21908) nil]) #@340 Make sure a file FNAME can be created uniquely in directory DIR. If FNAME can be uniquely created in DIR, it is returned unaltered. If FNAME is something our underlying filesystem can't grok, or if another file by that name already exists in DIR, a unique new name is generated using `make-temp-file', and the generated name is returned. (defalias 'archive-unique-fname #[(fname dir) "\305 \"\306\n\" \204 \307\f!\203, \310\305\311\312!\203% \312 \204% \313\202& \314 \"!\202- \f*\207" [fname dir file-name-invalid-regexp alien fullname expand-file-name string-match file-exists-p make-temp-file fboundp msdos-long-file-names "am" "arc-mode."] 4 (#$ . 22206)]) (defalias 'archive-maybe-copy #[(archive) "\306 \2036 d\n\203 \n\307H\206 \310\f\"\311\312!\313\"\210\214~\210\314 d\315\316%\210)*\202? \317 \203> \320 \210 )\207" [coding-system-for-write archive-remote archive-subfile-mode archive archive-name start no-conversion 0 archive-unique-fname make-directory file-name-directory t write-region nil nomessage buffer-modified-p save-buffer archive-tmpdir archive-local-name] 6]) (defalias 'archive-maybe-update #[(unchanged) "\205H \306 \307\310 \311 \204- \312\313 \210\314!\210\315\311!\210b\210\316 !\210\317!\210\204> \320\321\322p!\"\210\323 \206F ?!-\207" [archive-remote archive-local-name inhibit-read-only lno coding-system-for-read modified buffer-modified-p no-conversion archive-get-lineno t nil erase-buffer insert-file-contents archive-mode archive-next-line archive-delete-local message "Buffer `%s' must be saved for changes to take effect" buffer-name set-buffer-modified-p name unchanged archive-files archive-file-list-start] 5]) #@72 Delete file NAME and its parents up to and including `archive-tmpdir'. (defalias 'archive-delete-local #[(name) "\304\305\306!!\307\310\311\217\210\n\205) \305\312 !!\307\313\314\217\210 \230\203 \307\211\204 \307*\207" [archive-tmpdir top again name t directory-file-name file-name-as-directory nil (delete-file name) ((error)) file-name-directory (delete-directory name) ((error))] 5 (#$ . 23909)]) (defalias 'archive-try-jka-compr #[nil "\205C \306 !\205C \307 !\310\311\n\"\203 \312\313\n\"\202 \n\314\315 !\316\317 \320\"# \321\216\322\323 \324ed\f\316\325%\210*\326 \210\322 \327\f!-\207" [auto-compression-mode buffer-file-name basename tmpname tmpfile jka-compr-inhibit jka-compr-get-compression-info file-name-nondirectory string-match ":\\([^:]+\\)\\'" match-string 1 make-temp-file file-name-sans-extension nil file-name-extension period ((delete-file tmpfile)) no-conversion t write-region quiet erase-buffer insert-file-contents coding-system-for-write coding-system-for-read] 6]) (defalias 'archive-file-name-handler #[(op &rest args) "\303=\206 \304\305\n\")\207" [op file-name-handler-alist args file-exists-p nil apply] 3]) #@57 Set the current buffer as if it were visiting FILENAME. (defalias 'archive-set-buffer-as-visiting-file #[(filename) "\212eb\210\306\206# \203 \212 \ndeZ\")\206# \307\310\311\npB\306#@) \2043 \2043 \312\f\313\"\f\314>\204B \315ed\f#\210\f\316\317!\210\320\321!\210\322deZ!+\207" [coding-system-for-read set-auto-coding-function filename file-name-handler-alist coding buffer-undo-list t (("" . archive-file-name-handler)) find-operation-coding-system insert-file-contents coding-system-change-text-conversion raw-text (nil no-conversion) decode-coding-region set-buffer-modified-p nil kill-local-variable buffer-file-coding-system after-insert-file-set-coding enable-multibyte-characters last-coding-system-used] 5 (#$ . 25076)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias archive-mouse-extract archive-extract nil make-obsolete "22.1"] 4) #@73 In archive mode, extract this entry of the archive into its own buffer. (defalias 'archive-extract #[(&optional other-window-p event) "\203& \306\211:\203 \3078:\203 \307\202 \3108\202# \311 `\312\313F)!\210 \314=\315 \211\313H \310H p @A B\316 C\317C! D\317 !\320D\321R E\322 F\323\324\325G!\326FR!) HI\206o \n\206o \327J\f\" K\330D\331 Q! L\332E! M\333 NO PM\203\226 \316M!L\230\204C\334C!C\335E!E\336E!M\337NrMq\210L\340!QBA\341\342!\210@\"\343\344\345\333\337$\210 RPOS\205\333 O\346 T U\347\350\351\217*\204\371 N\203\371 \352\333!\210\353M!\210\202>\354 \210\355\f!\210eb\210\356E!\210KV\333W\352\333!\210\357 X\360 \210\361\362!\2031\337YK\203+\337I\363\364\365\337#\210\366\367!\210I\203>\370\371!\210)\372\337!\210\373M!?\206|\n\203\\\374MN\205X\375\"\202| \376=\203i\377M!\202| \203v\201Z M!\202|\201[ M!.\207" [event other-window-p view-p descr ename iname posn-set-point 2 1 selected-window (0 . 0) 0 view archive-get-descr buffer-file-name file-name-nondirectory " (" ")" "extract" intern "archive-" symbol-name "-" string-match expand-file-name ":" get-buffer nil archive-maybe-copy generate-new-buffer-name get-buffer-create t abbreviate-file-name make-local-variable archive-superior-buffer add-hook write-file-functions archive-write-file-member no-conversion err (byte-code "\303!\203 \n\"\207\304 \nJ#\207" [extractor archive ename fboundp archive-*-extract] 4) ((error (byte-code "\301\302\303\304!\"!\210\305\207" [err ding message "%s" error-message-string nil] 5))) set-buffer-modified-p kill-buffer archive-try-jka-compr archive-set-buffer-as-visiting-file rename-buffer buffer-size normal-mode derived-mode-p archive-mode remove-hook write-contents-functions archive-write-file run-hooks archive-extract-hooks message "Note: altering this archive is not implemented." archive-maybe-update buffer-name view-buffer kill-buffer-if-not-modified display display-buffer archive-buffer default-directory arcdir archive arcname bufname suffix archive-subtype extractor archive-read-only file-name-invalid-regexp read-only-p arcfilename buffer just-created archive-file-name-coding-system file-name-coding buffer-file-truename archive-subfile-mode enable-multibyte-characters coding-system-for-read coding-system-for-write buffer-read-only buffer-undo-list buffer-saved-size archive-remote switch-to-buffer-other-window switch-to-buffer] 6 (#$ . 25955) (list nil last-input-event)]) (defalias 'archive-*-extract #[(archive name command) "\306!\307\310\n! \"\311\211 \312\313 !\314\"\210\315\316@\311\211\211\317A\nD\"&\211\247\203N \320\f!\203N \321 !\204E \322\323\324 \"!\210\202{ \325 !\210\314\202{ \f\247\203` \322\323\326@\f#!\210\202{ \f;\203r \322\323\327@\f#!\210\202{ \322\323\330@\"!\210\331 !\210 ,\207" [archive-tmpdir default-directory name tmpfile exit-status success file-name-as-directory expand-file-name file-name-nondirectory nil make-directory directory-file-name t apply call-process append zerop file-exists-p ding message "`%s': no such file or directory" insert-file-contents "`%s' exited with status %d" "`%s' aborted: %s" "`%s' failed" archive-delete-local command archive] 11]) (defalias 'archive-extract-by-stdout #[(archive name command) "\303\304@\305\306\305\307A \nD\"&\207" [command archive name apply call-process nil t append] 10]) #@54 In archive mode, find this member in another window. (defalias 'archive-extract-other-window #[nil "\300\301!\207" [archive-extract t] 2 (#$ . 29352) nil]) #@57 In archive mode, display this member in another window. (defalias 'archive-display-other-window #[nil "\300\301!\207" [archive-extract display] 2 (#$ . 29514) nil]) #@48 In archive mode, view the member on this line. (defalias 'archive-view #[nil "\300\301!\207" [archive-extract view] 2 (#$ . 29685) nil]) #@61 Add current buffer to the archive in ARCBUF naming it NAME. (defalias 'archive-add-new-member #[(arcbuf name) "rq\210\306\307!\204 \310\311!\210 \203 \310\312!\210)p=\203! \310\313!\210\n\314\230\203+ \310\315!\210rq\210\316\317\320\321\f!\322 R!*p \323!\203U rq\210 \n#)\202X \310\324!*\207" [arcbuf archive-read-only name suffix archive-subtype membuf derived-mode-p archive-mode error "Buffer is not an archive buffer" "Archive is read-only" "An archive buffer cannot be added to itself" "" "Archive members may not be given empty names" "add-new-member" intern "archive-" symbol-name "-" fboundp "Adding a new member is not supported for this archive type" func buffer-file-name] 5 (#$ . 29828) (list (get-buffer (read-buffer "Buffer containing archive: " (let ((bufs (buffer-list))) (while (and bufs (not (with-current-buffer (car bufs) (derived-mode-p 'archive-mode)))) (setq bufs (cdr bufs))) (if bufs (car bufs) (error "There are no archive buffers"))) t)) (read-string "File name in archive: " (if buffer-file-name (file-name-nondirectory buffer-file-name) "")))]) (defalias 'archive-write-file-member #[nil "\212\214\306\307!\210~\210rq\210\310\311\312\313\n!\314 R!*rq\210\315\316 !) \317\f!\2031 \f \"\210\2028 \320 \fJ#\210\321\322!\210\306\323!\210*q\210\204O \324 \210\202S \325\322!\210*\326\327!\203^ \330\207" [archive-superior-buffer suffix archive-subtype archive writer archive-subfile-mode message "Updating archive..." "write-file-member" intern "archive-" symbol-name "-" archive-maybe-copy buffer-file-name fboundp archive-*-write-file-member set-buffer-modified-p nil "Updating archive...done" revert-buffer archive-maybe-update local-variable-p archive-member-coding-system t archive-remote last-coding-system-used] 5]) (defalias 'archive-*-write-file-member #[(archive descr command) "\306H\307 \n\"\310\311\n!! \311\f! \312\216\313\314 !\315\"\210 \316=\203* \317 !\210\2022 \320\321\211 \321\322%\210 !\323H\203F \324 \325\323H\326\"\"\210\327 \"\"\330 #\331\332$@\321\211\211\333$A% D\"& &\334&!\206p \335\336&\".\207" [descr ename archive-tmpdir tmpfile top default-directory 0 expand-file-name directory-file-name file-name-as-directory ((archive-delete-local tmpfile)) make-directory file-name-directory t archive-mode archive-write-file write-region nil nomessage 3 set-file-modes logior 256 encode-coding-string no-conversion apply call-process append zerop error "Updating was unsuccessful (%S)" major-mode last-coding-system-used archive-member-coding-system archive-file-name-coding-system coding-system-for-write command archive exitcode] 10]) (defalias 'archive-write-file #[(&optional file) "\212\304\305 d\n\206 \306\307%\210\310\306!\210*\307\207" [coding-system-for-write archive-proper-file-start file buffer-file-name no-conversion write-region nil t set-buffer-modified-p] 6]) #@113 In archive mode, mark this member to be deleted from the archive. With a prefix argument, mark that many files. (defalias 'archive-flag-deleted #[(p &optional type) "\204 \305\306 \210 \307Y\203 \310\202 \311\312 \313 \314 !\2047 \315\313!\203- \316\310!\210c\210\fy\210 \fZ\202 \317 !\210+\320\307!\207" [type p inhibit-read-only modified sign 68 beginning-of-line 0 1 -1 buffer-modified-p t zerop archive-get-descr delete-char restore-buffer-modified-p archive-next-line] 3 (#$ . 32708) "p"]) #@126 In archive mode, un-mark this member if it is marked to be deleted. With a prefix argument, un-mark that many files forward. (defalias 'archive-unflag #[(p) "\301\302\"\207" [p archive-flag-deleted 32] 3 (#$ . 33220) "p"]) #@129 In archive mode, un-mark this member if it is marked to be deleted. With a prefix argument, un-mark that many members backward. (defalias 'archive-unflag-backwards #[(p) "\301[\302\"\207" [p archive-flag-deleted 32] 3 (#$ . 33451) "p"]) #@19 Remove all marks. (defalias 'archive-unmark-all-files #[nil "\304 \305\212\nb\210` W\203\" g\306U\204 \307\310!\210\306c\210\310y\210\202 )\311 !*\207" [inhibit-read-only modified archive-file-list-start archive-file-list-end buffer-modified-p t 32 delete-char 1 restore-buffer-modified-p] 2 (#$ . 33695) nil]) #@158 In archive mode, mark this member for group operations. With a prefix argument, mark that many members. Use \[archive-unmark-all-files] to remove all marks. (defalias 'archive-mark #[(p) "\301\302\"\207" [p archive-flag-deleted 42] 3 (#$ . 34017) "p"]) (defalias 'archive-get-marked #[(mark &optional default) "\305\212 b\210`\nW\203 g U\203 \306 B\307y\210\202 )\237\206* \f\205* \306 C)\207" [files archive-file-list-start archive-file-list-end mark default nil archive-get-descr 1] 2]) (defalias 'archive-next-line #[(p) "y\210m\206 u\207" [p archive-file-name-indent] 1 nil "p"]) (defalias 'archive-previous-line #[(p) "\301[!\207" [p archive-next-line] 2 nil "p"]) #@191 Change the protection bits associated with all marked or this member. The new protection bits can either be specified as an octal number or as a relative change like "g+rw" as for chmod(2). (defalias 'archive-chmod-entry #[(new-mode) "\203 \305\306!\210\307\310\311\312\n!\313 R!)\314 !\203( \f\315\316\317\"\"\210\320 \202+ \305\321!)\207" [archive-read-only suffix archive-subtype func new-mode error "Archive is read-only" "chmod-entry" intern "archive-" symbol-name "-" fboundp archive-get-marked 42 t archive-resummarize "Setting mode bits is not supported for this archive type"] 5 (#$ . 34706) "sNew mode (octal or relative): "]) #@48 Change the owner of all marked or this member. (defalias 'archive-chown-entry #[(new-uid) "\203 \305\306!\210\307\310\311\312\n!\313 R!)\314 !\203( \f\315\316\317\"\"\210\320 \202+ \305\321!)\207" [archive-read-only suffix archive-subtype func new-uid error "Archive is read-only" "chown-entry" intern "archive-" symbol-name "-" fboundp archive-get-marked 42 t archive-resummarize "Setting owner is not supported for this archive type"] 5 (#$ . 35354) "nNew uid: "]) #@48 Change the group of all marked or this member. (defalias 'archive-chgrp-entry #[(new-gid) "\203 \305\306!\210\307\310\311\312\n!\313 R!)\314 !\203( \f\315\316\317\"\"\210\320 \202+ \305\321!)\207" [archive-read-only suffix archive-subtype func new-gid error "Archive is read-only" "chgrp-entry" intern "archive-" symbol-name "-" fboundp archive-get-marked 42 t archive-resummarize "Setting group is not supported for this archive type"] 5 (#$ . 35832) "nNew gid: "]) #@27 Do the flagged deletions. (defalias 'archive-expunge #[nil "\306\212 b\210`\nW\203 g\307U\203 \310 \311HB\312y\210\202 )\237\211\205\212 \2031 \313\314!\205\212 \315\316\317GA\204? \320\202@ \321#!\204K \313\322!\205\212 \323\324 !\325 \326\327\330 !\331\fR!) \332 !\203p \"\210\202y \333 J#\210\334\306!\210!\203\207 \335 \202\211 \336 *)\207" [files archive-file-list-start archive-file-list-end archive-read-only suffix archive-subtype nil 68 archive-get-descr 0 1 error "Archive is read-only" yes-or-no-p format "Really delete %d member%s? " "" "s" "Operation aborted" archive-maybe-copy buffer-file-name "expunge" intern "archive-" symbol-name "-" fboundp archive-*-expunge archive-maybe-update archive-resummarize revert-buffer expunger archive archive-remote] 7 (#$ . 36310) nil]) (defalias 'archive-*-expunge #[(archive files command) "\303\304@\305\211\211\306A \nB\"&\207" [command archive files apply call-process nil append] 10]) #@65 Change the name associated with this entry in the archive file. (defalias 'archive-rename-entry #[(newname) "\203 \306\307!\210 \310\230\203 \306\311!\210\312\313\314\315 !\316\nR!)\317 \320 !\2036 \321 \"\f\"\210\322 \2029 \306\323!*\207" [archive-read-only newname suffix archive-subtype descr func error "Archive is read-only" "" "Archive members may not be given empty names" "rename-entry" intern "archive-" symbol-name "-" archive-get-descr fboundp encode-coding-string archive-resummarize "Renaming is not supported for this archive type" archive-file-name-coding-system] 5 (#$ . 37286) "sNew name: "]) (defalias 'archive-mode-revert #[(&optional no-auto-save no-confirm) "\305 \306\211\307\310\311\211\"\210*\312 \210\fb\210\313!)\207" [no archive-files coding-system-for-read revert-buffer-function archive-file-list-start archive-get-lineno nil no-conversion revert-buffer t archive-mode archive-next-line] 4]) #@106 Undo in an archive buffer. This doesn't recover lost files, it just undoes changes in the buffer itself. (defalias 'archive-undo #[nil "\301\302 )\207" [inhibit-read-only t undo] 1 (#$ . 38228) nil]) (defalias 'archive-arc-summarize #[nil "\306\307\310\311\211 \f\312\\dW\203\313 \f \313 f!)\314U\203\313 \fT \313 f!)\307V\203\313 \f\315\\\316\f\315\317#{ *\320\321*\"\206? \317 +\322*\307+O,\" -\323\f\324\\\325\326# .\323\f\327\\\315\" /\323\f\330\\\315\" 0\323\f\331\\\325\326# 1-\211\226\230\211 2\203\200 -\227\202\202 - 3\332\3331\334/!\3350!3% 4\n+] 1\\\3364\211G3GZ4G#B\336-32\311\fS% B\316\f\312\337.!#.\n\202\n eb\210\340\341\n\342\"\343Q 5\3445\261\210\345\237!\2105\332\346 G G\306U\203\364 \347\202\365 \350$\343\261\210)\351\336 \237\"-\207" [visual files maxlen totalsize p pos 1 0 8 nil 29 multibyte-char-to-unibyte 26 2 + 13 string-match " " decode-coding-string archive-l-e 15 4 float 19 21 25 format " %8.0f %-11s %-8s %s" archive-dosdate archive-dostime vector round "- -------- ----------- -------- " make-string 45 "\n" "M Length Date Time File\n" archive-summarize-files " %8.0f %d file%s" "" "s" apply namefld fnlen archive-file-name-coding-system efnname csize moddate modtime ucsize fiddle ifnname text dash] 8]) (defalias 'archive-arc-rename-entry #[(newname descr) "\306\307\"\203 \310\311!\210G\312V\203 \310\313!\210\314G\315OP\316\214\212~\210\317 \f\320H\321#b\210\322\323!\210\nC\211 \315 \211 \205n @\211\250\203^ \324W\203T \202Y \325\326\"c\210\202d \327!c\210A\211\204> \315.\207" [newname inhibit-read-only name archive-proper-file-start descr args string-match "[:\\\\/]" error "File names in arc files must not contain a directory component" 12 "File names in arc files are limited to 12 characters" " " nil t + 4 2 delete-char 13 128 decode-char eight-bit string-to-multibyte elt --dolist-tail--] 5]) (defalias 'archive-lzh-summarize #[(&optional start) "\206 \306\307\310\311\211 b\210\312\313!\203m @\314@f!) A\315 \316\\\317\320# B\315 \321\\\317\320# C\315 \322\\\323\" D\315 \324\\\323\" E \325\\ @\314@f!) F\311\211 G H\311\211 I J\311\211 K L\311\211 M N\311\211 O P\311\211 Q R\311\211 S T\311\211 U V\311\211 W X\311\211 Y ZF\326U\203\230 \327\330!\210F\307U\204\246 F\306U\203\320 \331\\ @\314@f!)H \332\\\333 \332H#{ [\334[\\\")I\333 \332H#NF\306U\203\340 N\326\\O\202\354 F\323U\203\354 \335\\OO\2031\315O\323\" ]O\323\\ @\314@f!) ^]\307U\204*^\306U\203BO\326\\\211 _O]\\W\203>I\336_ @\314@f!)!PI_T\211_\202)\202 ^\323U\203\203O\326\\\211 _O]\\W\203U_ @\314@f!)\337U\203n\340\202s\336_f!PU_T\211_\202P)\202 ^\341U\203\226\315O\326\\\323\"P\202 ^\342U\203\262\315O\326\\\323\"R\315O\343\\\323\"S\202 ^\344U\203\340O\326\\\211 _O]\\W\203\334W\336_f!PW_T\211_\202\300)\202 ^\345U\203 O\326\\\211 _O]\\W\203\nX\336_f!PX_T\211_\202\356)O]\\O\315O\323\"]O\323\\ @\314@f!)^\202O ZG*F\307U\203<AGF\307U\203G\307\202dF\306U\203Y\333 \332H\323$f\202dF\323U\205d \346\\f\211J\347U\203p\350\202|J\307U\205|I\211\226\230\211K\203\210I\227\202\212ILU\203\231ULP\202\233L\211V\203\250\351V!\202\251\307MP\203\267\352P!\202\270\353QF\323U\203\312\354DE\"\202\316\355E!ZF\323U\203\340\356DE\"\202\344\357D!Y`\203\360\361CR\206\365\362S\206\373\362L%\202\360\363QCZYV&T M]\fC\\\364T\211GVGZTG# B\364VLKP S%\nBF\306U\203O\333 A\323\365B!$\202hF\323U\204]F\307U\203h\333 G\323\365B!$.\202 eb\210`\203y\366\202z\367\370 \371\"\372Q`\203\211\373\202\212\374`\203\223\375\202\224\376 a b cbc\261\210\377 \237!\210c\360a\f\nG\nG\306U\203\273\201d \202\276\201e $\372\261\210+\201f \364\n\237\"-\207" [start visual files maxlen totalsize p 1 0 8 nil looking-at "\\(.\\|\n\\)\\(.\\|\n\\)-l[hz][0-9ds]-" multibyte-char-to-unibyte archive-l-e 7 4 float 11 15 2 17 20 3 error "can't handle lzh level 3 header type" 21 22 + decode-coding-string 24 char-to-string 255 "/" 80 81 5 82 83 23 77 t string-width archive-int-to-mode "??????????" archive-unixdate archive-dosdate archive-unixtime archive-dostime format " %8.0f %5S %5S %s" "?" " %10s %8.0f %-11s %-8s %s" vector round "- -------- ----- ----- " "- ---------- -------- ----------- -------- " make-string 45 "\n" "M Length Uid Gid File\n" "M Filemode Length Date Time File\n" " %8.0f %d file%s" " %8.0f %d file%s" archive-summarize-files pos hsize csize ucsize time1 time2 hdrlvl thsize fnlen efnname osid fiddle ifnname width p2 neh mode modestr uid gid text dir prname gname uname modtime moddate str archive-file-name-coding-system ehsize etype i archive-alternate-display sumline header dash "" "s" apply] 8]) (byte-code "\301B\302\303!\207" [current-load-list archive-lzh-alternate-display (lambda (#1=#:defconst-tmp-var) (defconst archive-lzh-alternate-display #1#)) t] 2) (defalias 'archive-lzh-extract #[(archive name) "\303 \n#\207" [archive name archive-lzh-extract archive-extract-by-stdout] 4]) (defalias 'archive-lzh-resum #[(p count) "\304 \304V\203 S\n\305 f!)\\\nT\202 \306\307\")\207" [sum count p pos 0 multibyte-char-to-unibyte logand 255] 3]) (defalias 'archive-lzh-rename-entry #[(newname descr) "\214\212~\210 \306H\\\211\307 f!) \n\310\\\307 f!) G \311\f [# \312 \313V\2038 \314\315!\210\n\310\\b\210\316 T!\210D\211 \317 \211 \205\203 @\211\250\203s \320W\203i \202n \321\322\"c\210\202y \323!c\210 A\211 \204S \317*\210)\nb\210\316\324!\210\325\n\"D\211 \317 \211 \205\321 @\211\250\203\301 \320W\203\267 \202\274 \321\322\"c\210\202\307 \323!c\210 A\211 \204\241 \317. \207" [archive-proper-file-start descr p pos oldhsize oldfnlen 4 multibyte-char-to-unibyte 21 + t 255 error "The file name is too long" delete-char nil 128 decode-char eight-bit string-to-multibyte 2 archive-lzh-resum newname newfnlen newhsize inhibit-read-only args elt --dolist-tail--] 5]) (defalias 'archive-lzh-ogm #[(newval files errtxt ofs) "\212\214~\210\306\211\205\n@ \307H\\\211 \310 f!) \f\311\\ \310 f!) \312\f\313 # ! Z\314Y\203H !\315\\ \310 f!)\202I \316 \"\317 #\"\320U\203$\247\204h $\321!%\\\315\"!$!%\\b\210\322\315!\210\323$\324\"\325$\326\"D\211 &\306 '\211\205\266 \n@\211'\250\203\250 '\327W\203\236 '\202\243 \330\331'\"c\210\202\256 \332'!c\210\nA\211\204\211 \306*\210)\fTb\210\322\333!\210\334\fT \"C\211 &\306 '\211\205 \n@\211'\250\203\362 '\327W\203\350 '\202\355 \330\331'\"c\210\202\370 \332'!c\210\nA\211\204\323 \306*\210)\202\335\336 \333H(#\210.\nA\211\204\f \306,\207" [files fil --dolist-tail-- archive-proper-file-start p pos nil 4 multibyte-char-to-unibyte 21 + 22 24 2 0 t 85 archive-l-e delete-char logand 255 lsh -8 128 decode-char eight-bit string-to-multibyte 1 archive-lzh-resum message "Member %s does not have %s field" hsize fnlen p2 creator inhibit-read-only newval ofs args elt errtxt] 5]) (defalias 'archive-lzh-chown-entry #[(newuid files) "\302 \303\304$\207" [newuid files archive-lzh-ogm "an uid" 10] 5]) (defalias 'archive-lzh-chgrp-entry #[(newgid files) "\302 \303\304$\207" [newgid files archive-lzh-ogm "a gid" 12] 5]) (defalias 'archive-lzh-chmod-entry #[(newmode files) "\301\302\303\304$\207" [files archive-lzh-ogm #[(old) "\302 \303#\207" [old newmode archive-calc-mode t] 4] "a unix-style mode" 8] 5]) #@75 Summarize the contents of an LZH self-extracting exe, for `archive-mode'. (defalias 'archive-lzh-exe-summarize #[nil "\300\301\302\"\210\303\304\224!\207" [re-search-forward "..-l[hz][0-9ds]-" nil archive-lzh-summarize 0] 3 (#$ . 45854)]) (defalias 'archive-lzh-exe-extract 'archive-lzh-extract "Extract a member from an LZH self-extracting exe, for `archive-mode'.") (defalias 'archive-zip-summarize #[nil "d\306Zb\210\307\310!\210e\311`\312\\\306\"\\\313\314\315\211 \f\211\306\\{\316\230\203Z\f\317\\ \320 f!) <\311\f\321\\\322\" =\311\f\323\\\322\" >\311\f\324\\\306\325# ?\311\f\326\\\322\" @\311\f\327\\\322\" A\311\f\330\\\322\" B\311\f\331\\\306\" C\f\332\\\333\f\332@#{ D\334DE\") F?\314U\205\212 \335F!\336\230 G<\337>\203\234 \311\f\340\\\322\"\202\312 <\341>\203\311 \342G\203\255 \343\202\256 \314\344\345\f\346\\ \320 f!)\347\"!\203\303 \350\202\304 \314\351#\202\312 \315\211 H\203\327 \352H!\202\330 \353 IJ\205\356 <\354>??\205\356 F\226F\230\211 K\203\372 F\227\202\374 F L\355L! M\356\357I?\360>!\361=!L& N M]\n?\\\362N\211GLGZNG#BG?\205G\362FLKH\fSCD% B\333\f\332@AB%.\202 eb\210\363\364 \365\"\366Q O\367O\261\210\370\237!\210O\356\371\n G G\347U\203\203\336\202\204\372$\366\261\210)\373\362 \237\"-\207" [visual files totalsize maxlen p pos 4 search-backward-regexp "[P]K" archive-l-e 16 8 0 nil "PK" 5 multibyte-char-to-unibyte 12 2 14 24 float 28 30 32 42 46 + decode-coding-string file-name-nondirectory "" (2 3) 40 (0 5 6 7 10 11 15) logior 16457 zerop logand 38 1 146 292 archive-int-to-mode "??????????" (0 2 4 5 9) string-width format " %10s %8.0f %-11s %-8s %s" archive-dosdate archive-dostime vector "- ---------- -------- ----------- -------- " make-string 45 "\n" "M Filemode Length Date Time File\n" archive-summarize-files " %8.0f %d file%s" "s" apply creator modtime moddate ucsize fnlen exlen fclen lheader str archive-file-name-coding-system efnname isdir mode modestr archive-zip-case-fiddle fiddle ifnname width text dash] 8]) (defalias 'archive-zip-extract #[(archive name) "@\303\232\203 \304 \n#\207\305 \n#\207" [archive-zip-extract archive name "pkzip" archive-*-extract archive-extract-by-stdout] 4]) (defalias 'archive-zip-write-file-member #[(archive descr) "\304 \211\305H\203 \n\202 #\207" [archive descr archive-zip-update-case archive-zip-update archive-*-write-file-member 2] 5]) (defalias 'archive-zip-chmod-entry #[(newmode files) "\214\212~\210\306\211\205\376 \n@ \307H@\\\211 \310\\ \311 f!) \" \312H #\313#$\314# %\314 &\"\315>\203\213 \f\316\\b\210\317\320!\210\321%\322\"\323%\324\"D\211 '\306 (\211\205\205 \n@\211(\250\203w (\325W\203m (\202r \326\327(\"c\210\202} \330(!c\210\nA\211\204X \306*\210)\202\365 \"\331>\203\361 \f\332\\b\210\333\321` \311 f!)\334\"\321\335\323%\336\"\337\"\337\"\"C\211 '\306 (\211\205\347 \n@\211(\250\203\331 (\325W\203\317 (\202\324 \326\327(\"c\210\202\337 \330(!c\210\nA\211\204\272 \306*\210)\317\337!\210\202\365 \340\341!\210-\nA\211\204\f \306,\207" [files fil --dolist-tail-- archive-proper-file-start p pos nil 4 5 multibyte-char-to-unibyte 3 archive-calc-mode t (2 3) 40 delete-char 2 logand 255 lsh -8 128 decode-char eight-bit string-to-multibyte (0 5 6 7 10 11 15) 38 logior 254 logxor -7 1 message "Don't know how to change mode for this member" creator oldmode newmode newval inhibit-read-only args elt] 8]) (defalias 'archive-zoo-summarize #[nil "\306\307\310\"T\311\312\313\211 \f\211\310\\{\314\230\203<\306\f\315\\\310\"\312V\203<\306\f\315\\\310\"T \306\f\316\\\317\" 0\306\f\320\\\317\" 1\306\f\321\\\310\322# 2\f\323\\\324\f\323\325#{ 3\f\310\\ 4\3264f!)\211 5\317U\203p \f\327\\ 4\3264f!)\202q \312 65\317U\203\210 \f\330\\ 4\3264f!)\202\211 \312 7\331\3323\"\206\224 \325 87\312V\203\262 \324\f\3336#\324\f\33367\334%{\335P\202\263 \3366\312V\203\310 \f\333\\\324\f\3336\334${\202\316 3\3128OP 9\3379:\") ;6\312U\205\346 ;\211\226\230\211 <\203\362 ;\227\202\364 ; =\340=! >\341\3422\3430!\3441!=% ? >]\n2\\\345?\211G=GZ?G#B\345;=<\313\fS% B .\202 eb\210\346\347 \350\"\351Q @\352@\261\210\353\237!\210@\341\354\n G G\355U\203e\336\202f\356$\351\261\210)\357\345 \237\"-\207" [visual files totalsize maxlen p next archive-l-e 25 4 8 0 nil "\334\247\304\375" 6 14 2 16 20 float 38 + 13 multibyte-char-to-unibyte 56 57 string-match " " 58 -1 "/" "" decode-coding-string string-width format " %8.0f %-11s %-8s %s" archive-dosdate archive-dostime vector "- -------- ----------- -------- " make-string 45 "\n" "M Length Date Time File\n" archive-summarize-files " %8.0f %d file%s" 1 "s" apply moddate modtime ucsize namefld pos dirtype lfnlen ldirlen fnlen str archive-file-name-coding-system efnname fiddle ifnname width text dash] 8]) (defalias 'archive-zoo-extract #[(archive name) "\303 \n#\207" [archive name archive-zoo-extract archive-extract-by-stdout] 4]) (defalias 'archive-rar-summarize #[(&optional file) "\204 \306!\307\310 \311 \312\313! .r.q\210\314\216\315\316\311\317\311\320\206' \n&\210\n\2032 \321\n!\210eb\210\322\323!\210\324\325!\203~ \326\225b\210\327\330!\327\331! /\211 0G V\203X 0G/G\fV\203d /G\3320\211\311\211/\327\333!\327\334!\327\310!& B*\2029 + \237eb\210\335\336\f\" \335 \337\340\341\f\342\"\340\343&\211 1G 2\335 \344\345\346\347\350&\351\261\2101\341 \342\"\351\261\210\352\353\354 \"!\2101\341 \342\"\351\261\210\355\332 \".\207" [file buffer-file-name copy maxname maxsize files file-local-copy 10 5 nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) call-process "unrar-free" t "--list" delete-file re-search-forward "^-+\n" looking-at " \\(.*\\)\n +\\([0-9]+\\) +[0-9]+ +\\([0-9%]+\\) +\\([-0-9]+\\) +\\([0-9:]+\\) +...... +[0-9A-F]+ +[^ \n]+ +[0-9.]+\n" 0 match-string 1 2 vector 3 4 format " %%s %%s %%%ds %%5s %%s" "--------" "-----" make-string 45 "" " Date " "Time " "Size " "Ratio" " Filename" "\n" archive-summarize-files mapcar #[(desc) "\300 \304H \305H \306H \307H \310H&\311\n \nG#)\207" [format desc text column 6 7 4 5 1 vector] 8] apply #1# size name sep column] 11]) (defalias 'archive-rar-extract #[(archive name) "\303!\203\n \304\305!\207\306\307\310\"\311\216\312\313\314\211\211\315\n &\210\316\317 \"!*\207" [name dest archive file-name-absolute-p error "Can't extract files with non-relative names" make-temp-file "arc-rar" dir ((byte-code "\302\303 \"!\210\304!\203 \305\304!!\306\303 \"!\210\202 \306 !\207" [name dest delete-file expand-file-name file-name-directory directory-file-name delete-directory] 4)) call-process "unrar-free" nil "--extract" insert-file-contents-literally expand-file-name] 9]) (defalias 'archive-rar-exe-summarize #[nil "\301\302!\303\216eb\210\304\305!\210\306\307\224d#\210\310!*\207" [tmpfile make-temp-file "rarexe" ((delete-file tmpfile)) re-search-forward "Rar!" write-region 0 archive-rar-summarize] 4]) (defalias 'archive-rar-exe-extract #[(archive name) "\305\306!\307 !\211?\205 \310\311!\312\216r\n\206 q\210\212\214\n\203) db\210~\210\2020 \313 !\210eb\210\314\315!\210\316\317\224d#\210+\320\f\",\207" [tmpfile archive buf tmpbuf name make-temp-file "rarexe" find-buffer-visiting generate-new-buffer " *rar-exe*" ((byte-code "\203 \302!\210\303 !\207" [tmpbuf tmpfile kill-buffer delete-file] 2)) insert-file-contents-literally re-search-forward "Rar!" write-region 0 archive-rar-extract] 5]) (byte-code "\301\302\303\"\210\304B\305\306!\207" [current-load-list autoload tar-grind-file-mode "tar-mode" archive-ar-file-header-re (lambda (#1=#:defconst-tmp-var) (defconst archive-ar-file-header-re #1#)) "\\(.\\{16\\}\\)\\([ 0-9]\\{12\\}\\)\\([ 0-9]\\{6\\}\\)\\([ 0-9]\\{6\\}\\)\\([ 0-7]\\{8\\}\\)\\([ 0-9]\\{10\\}\\)`\n"] 3) (defalias 'archive-ar-summarize #[nil "\306\307\310\211\311 \310 \312 8eb\210\313\314!\210\3159!\203$\316\317!\312\320\316\321!!\316\322!\316\323!\320\316\310!\311\"\320\316\324!! : ; < = > ? @\325\225b\210\326\327\330>\331\245!\211 A\330>\332A_Z!)D\">@\333\232\203q \334\335\336\337#\202\216 @\340\232\203\200 \334\341\336\337#\202\216 \342\343@\"\205\216 @\325\211\224O?=\325\342\344=\"O=<\325\342\344<\"O<\345;!;:u\210\312f\306=\203\272 \317u\210\346:!:@GV\203\314 @G>G V\203\330 >G=G\nV\203\344 =G<G V\203\360 <G;G\fV\203\374 ;G:G V\203:G\347@?\312;>=<:&8B8.\202 8\2378eb\210\350\351\f\n & (\350(\352\f\353\"\352\n\353\"\352 \353\"\352 \353\"\352 \353\"\354&\211 BG C\350(\355\356\357\360\361\362&\363\261\210B\352\353\"\363\261\210\364\365\3668\"!\210B\352\353\"\363\261\210\367\3478\".\n\207" [maxname maxtime maxuser maxgroup maxmode maxsize 10 16 5 8 nil search-forward "!<arch>\n" looking-at match-string 1 string-to-number 2 3 4 6 0 format-time-string "%Y-%m-%d %H:%M" truncate 65536 65536.0 "// " propertize ".<ExtNamesTable>." face italic "/ " ".<LookupTable>." string-match "/? *\\'" " +\\'" tar-grind-file-mode number-to-string vector format "%%%ds %%%ds/%%-%ds %%%ds %%%ds %%s" make-string 45 "" " Mode " "User" "Group" " Size " " Date " "Filename" "\n" archive-summarize-files mapcar #[(desc) "\300 \304H \305H \306H \307H \310H \311H&\312\n \nG#)\207" [format desc text column 3 5 6 7 4 1 vector] 9] apply files archive-ar-file-header-re size mode group user time extname name high sep column] 10]) (defalias 'archive-ar-extract #[(archive name) "p\306!\307\211 r q\210\214\212~\210\310\311!\210\n\204M \312 !\203M \313\314! \315\313\316!!\317\225b\210\232\203< `\202I u\210\307f\320=\203I \314u\210)\202 \n\205g \321\307!\210r\fq\210\322 \n\211 \\#\210)\321\323!\210\324.\207" [archive size from archivebuf destbuf archive-ar-file-header-re find-file-noselect nil search-forward "!<arch>\n" looking-at match-string 1 string-to-number 6 0 10 set-buffer-multibyte insert-buffer-substring to t this name] 5]) (byte-code "\300\301!\210\300\302!\207" [provide archive-mode arc-mode] 2)
Close
