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")) |