Mercurial > emacs
comparison lisp/tar-mode.el @ 44204:c9cbe448711d
(tar-header-block-summarize, tar-get-descriptor):
Support "next has longname" link type.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 28 Mar 2002 18:15:47 +0000 |
parents | c62ae85e0f7b |
children | 56a080c7a714 |
comparison
equal
deleted
inserted
replaced
44203:621fbfd0bf87 | 44204:c9cbe448711d |
---|---|
354 ((eq type 3) ?c) ; char special | 354 ((eq type 3) ?c) ; char special |
355 ((eq type 4) ?b) ; block special | 355 ((eq type 4) ?b) ; block special |
356 ((eq type 5) ?d) ; directory | 356 ((eq type 5) ?d) ; directory |
357 ((eq type 6) ?p) ; FIFO/pipe | 357 ((eq type 6) ?p) ; FIFO/pipe |
358 ((eq type 20) ?*) ; directory listing | 358 ((eq type 20) ?*) ; directory listing |
359 ((eq type 28) ?L) ; next has longname | |
359 ((eq type 29) ?M) ; multivolume continuation | 360 ((eq type 29) ?M) ; multivolume continuation |
360 ((eq type 35) ?S) ; sparse | 361 ((eq type 35) ?S) ; sparse |
361 ((eq type 38) ?V) ; volume header | 362 ((eq type 38) ?V) ; volume header |
362 (t ?\ ) | 363 (t ?\ ) |
363 ) | 364 ) |
658 (link-p (tar-header-link-type tokens))) | 659 (link-p (tar-header-link-type tokens))) |
659 (if link-p | 660 (if link-p |
660 (error "This is a %s, not a real file" | 661 (error "This is a %s, not a real file" |
661 (cond ((eq link-p 5) "directory") | 662 (cond ((eq link-p 5) "directory") |
662 ((eq link-p 20) "tar directory header") | 663 ((eq link-p 20) "tar directory header") |
664 ((eq link-p 28) "next has longname") | |
663 ((eq link-p 29) "multivolume-continuation") | 665 ((eq link-p 29) "multivolume-continuation") |
664 ((eq link-p 35) "sparse entry") | 666 ((eq link-p 35) "sparse entry") |
665 ((eq link-p 38) "volume header") | 667 ((eq link-p 38) "volume header") |
666 (t "link")))) | 668 (t "link")))) |
667 (if (zerop size) (error "This is a zero-length file")) | 669 (if (zerop size) (error "This is a zero-length file")) |