1 /* Virtual File System: GNU Tar file system.
2 Copyright (C) 2000 The Free Software Foundation
4 Written by: 2000 Jan Hudec
6 This program is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Library General Public License
8 as published by the Free Software Foundation; either version 2 of
9 the License, or (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU Library General Public License for more details.
16 You should have received a copy of the GNU Library General Public
17 License along with this program; if not, write to the Free Software
18 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
23 #include "xdirentry.h"
25 /* #include "utilvfs.h" */
27 #include "../src/dialog.h"
28 /* #include "cpio.h" */
40 CPIO_UNKNOWN
= 0, /* Not determined yet */
41 CPIO_BIN
, /* Binary format */
42 CPIO_BINRE
, /* Binary format, reverse endianity */
43 CPIO_OLDC
, /* Old ASCII format */
44 CPIO_NEWC
, /* New ASCII format */
45 CPIO_CRC
/* New ASCII format + CRC */
48 struct old_cpio_header
50 unsigned short c_magic
;
53 unsigned short c_mode
;
56 unsigned short c_nlink
;
58 unsigned short c_mtimes
[2];
59 unsigned short c_namesize
;
60 unsigned short c_filesizes
[2];
63 struct new_cpio_header
65 unsigned short c_magic
;
70 unsigned long c_nlink
;
71 unsigned long c_mtime
;
72 unsigned long c_filesize
;
77 unsigned long c_namesize
;
78 unsigned long c_chksum
;
82 struct defer_inode
*next
;
83 unsigned long inumber
;
84 unsigned short device
;
88 static int cpio_position
;
90 static int cpio_find_head(vfs
*me
, vfs_s_super
*super
);
91 static int cpio_read_bin_head(vfs
*me
, vfs_s_super
*super
);
92 static int cpio_read_oldc_head(vfs
*me
, vfs_s_super
*super
);
93 static int cpio_read_crc_head(vfs
*me
, vfs_s_super
*super
);
94 static int cpio_create_entry(vfs
*me
, vfs_s_super
*super
, struct stat
*stat
, char *name
);
95 static int cpio_read(void *fh
, char *buffer
, int count
);
97 #define CPIO_POS(super) cpio_position
98 /* If some time reentrancy should be needed change it to */
99 /* #define CPIO_POS(super) (super)->u.cpio.fd */
101 #define CPIO_SEEK_SET(super, where) mc_lseek((super)->u.cpio.fd, CPIO_POS(super) = (where), SEEK_SET)
102 #define CPIO_SEEK_CUR(super, where) mc_lseek((super)->u.cpio.fd, CPIO_POS(super) += (where), SEEK_SET)
104 static struct defer_inode
* defer_find(struct defer_inode
*l
, struct defer_inode
*i
)
107 return l
->inumber
== i
->inumber
&& l
->device
== i
->device
? l
:
108 defer_find(l
->next
, i
);
111 static int cpio_skip_padding(vfs_s_super
*super
)
113 switch(super
->u
.cpio
.type
) {
116 return CPIO_SEEK_CUR(super
, (2 - (CPIO_POS(super
) % 2)) % 2);
119 return CPIO_SEEK_CUR(super
, (4 - (CPIO_POS(super
) % 4)) % 4);
121 return CPIO_POS(super
);
123 g_assert_not_reached();
124 return 42; /* & the compiler is happy :-) */
128 static void cpio_free_archive(vfs
*me
, vfs_s_super
*super
)
130 if(super
->u
.cpio
.fd
!= -1)
131 mc_close(super
->u
.cpio
.fd
);
134 static int cpio_open_cpio_file(vfs
*me
, vfs_s_super
*super
, char *name
)
140 if((fd
= mc_open(name
, O_RDONLY
)) == -1) {
141 message_2s(1, MSG_ERROR
, _("Couldn't open cpio archive\n%s"), name
);
145 super
->name
= g_strdup(name
);
146 super
->u
.cpio
.fd
= -1; /* for now */
147 mc_stat(name
, &(super
->u
.cpio
.stat
));
148 super
->u
.cpio
.type
= CPIO_UNKNOWN
;
150 type
= get_compression_type(fd
);
151 if (type
!= COMPRESSION_NONE
) {
155 s
= g_strconcat(name
, decompress_extension(type
), NULL
);
156 if((fd
= mc_open(s
, O_RDONLY
)) == -1) {
157 message_2s(1, MSG_ERROR
, _("Couldn't open cpio archive\n%s"), s
);
164 super
->u
.cpio
.fd
= fd
;
165 mode
= super
->u
.cpio
.stat
.st_mode
& 07777;
166 mode
|= (mode
& 0444) >> 2; /* set eXec where Read is */
169 root
= vfs_s_new_inode(me
, super
, &(super
->u
.cpio
.stat
));
170 root
->st
.st_mode
= mode
;
171 root
->u
.cpio
.offset
= -1;
173 root
->st
.st_dev
= MEDATA
->rdev
++;
175 vfs_s_add_dots(me
, root
, NULL
);
178 CPIO_SEEK_SET(super
, 0);
183 static int cpio_read_head(vfs
*me
, vfs_s_super
*super
)
185 switch(cpio_find_head(me
, super
)) {
190 return cpio_read_bin_head(me
, super
);
192 return cpio_read_oldc_head(me
, super
);
195 return cpio_read_crc_head(me
, super
);
197 g_assert_not_reached();
198 return 42; /* & the compiler is happy :-) */
202 #define MAGIC_LENGTH (6) /* How many bytes we have to read ahead */
203 #define SEEKBACK CPIO_SEEK_CUR(super, ptr - top)
204 #define RETURN(x) return(super->u.cpio.type = (x))
205 #define TYPEIS(x) ((super->u.cpio.type == CPIO_UNKNOWN) || (super->u.cpio.type == (x)))
206 static int cpio_find_head(vfs
*me
, vfs_s_super
*super
)
213 top
= mc_read(super
->u
.cpio
.fd
, buf
, 256);
214 CPIO_POS(super
) += top
;
216 if(ptr
+ MAGIC_LENGTH
>= top
) {
218 memmove(buf
, buf
+ top
- 128, 128);
222 if((tmp
= mc_read(super
->u
.cpio
.fd
, buf
, top
)) == 0 || tmp
== -1) {
223 message_2s(1, MSG_ERROR
, _("Premature end of cpio archive\n%s"), super
->name
);
224 cpio_free_archive(me
, super
);
229 if(TYPEIS(CPIO_BIN
) && ((*(unsigned short *)(buf
+ ptr
)) == 070707)) {
230 SEEKBACK
; RETURN(CPIO_BIN
);
231 } else if(TYPEIS(CPIO_BINRE
) && ((*(unsigned short *)(buf
+ ptr
)) == GUINT16_SWAP_LE_BE_CONSTANT(070707))) {
232 SEEKBACK
; RETURN(CPIO_BINRE
);
233 } else if(TYPEIS(CPIO_OLDC
) && (!strncmp(buf
+ ptr
, "070707", 6))) {
234 SEEKBACK
; RETURN(CPIO_OLDC
);
235 } else if(TYPEIS(CPIO_NEWC
) && (!strncmp(buf
+ ptr
, "070701", 6))) {
236 SEEKBACK
; RETURN(CPIO_NEWC
);
237 } else if(TYPEIS(CPIO_CRC
) && (!strncmp(buf
+ ptr
, "070702", 6))) {
238 SEEKBACK
; RETURN(CPIO_CRC
);
246 #define HEAD_LENGTH (26)
247 static int cpio_read_bin_head(vfs
*me
, vfs_s_super
*super
)
249 struct old_cpio_header buf
;
254 if((len
= mc_read(super
->u
.cpio
.fd
, (char *)&buf
, HEAD_LENGTH
)) < HEAD_LENGTH
)
256 CPIO_POS(super
) += len
;
257 if(super
->u
.cpio
.type
== CPIO_BINRE
) {
259 for(i
= 0; i
< (HEAD_LENGTH
>> 1); i
++)
260 ((short *)&buf
)[i
] = GUINT16_SWAP_LE_BE(((short *)&buf
)[i
]);
262 g_assert(buf
.c_magic
== 070707);
264 name
= g_malloc(buf
.c_namesize
);
265 if((len
= mc_read(super
->u
.cpio
.fd
, name
, buf
.c_namesize
)) < buf
.c_namesize
){
269 CPIO_POS(super
) += len
;
270 cpio_skip_padding(super
);
272 if(!strcmp("TRAILER!!!", name
)) { /* We got to the last record */
277 stat
.st_dev
= buf
.c_dev
;
278 stat
.st_ino
= buf
.c_ino
;
279 stat
.st_mode
= buf
.c_mode
;
280 stat
.st_nlink
= buf
.c_nlink
;
281 stat
.st_uid
= buf
.c_uid
;
282 stat
.st_gid
= buf
.c_gid
;
283 stat
.st_rdev
= buf
.c_rdev
;
284 stat
.st_size
= (buf
.c_filesizes
[0] << 16) | buf
.c_filesizes
[1];
285 stat
.st_atime
= stat
.st_mtime
= stat
.st_ctime
= (buf
.c_mtimes
[0] << 16) | buf
.c_mtimes
[1];
287 return cpio_create_entry(me
, super
, &stat
, name
);
291 #define HEAD_LENGTH (76)
292 static int cpio_read_oldc_head(vfs
*me
, vfs_s_super
*super
)
294 struct new_cpio_header hd
;
296 char buf
[HEAD_LENGTH
+ 1];
300 if((len
= mc_read(super
->u
.cpio
.fd
, buf
, HEAD_LENGTH
)) < HEAD_LENGTH
)
302 CPIO_POS(super
) += len
;
303 buf
[HEAD_LENGTH
] = 0;
305 if(sscanf(buf
, "070707%6lo%6lo%6lo%6lo%6lo%6lo%6lo%11lo%6lo%11lo",
306 &hd
.c_dev
, &hd
.c_ino
, &hd
.c_mode
, &hd
.c_uid
, &hd
.c_gid
,
307 &hd
.c_nlink
, &hd
.c_rdev
, &hd
.c_mtime
,
308 &hd
.c_namesize
, &hd
.c_filesize
) < 10) {
309 message_2s(1, MSG_ERROR
, _("Corrupted cpio header encountered in\n%s"), super
->name
);
313 name
= g_malloc(hd
.c_namesize
);
314 if((len
= mc_read(super
->u
.cpio
.fd
, name
, hd
.c_namesize
)) < hd
.c_namesize
) {
318 CPIO_POS(super
) += len
;
319 cpio_skip_padding(super
);
321 if(!strcmp("TRAILER!!!", name
)) { /* We got to the last record */
326 stat
.st_dev
= hd
.c_dev
;
327 stat
.st_ino
= hd
.c_ino
;
328 stat
.st_mode
= hd
.c_mode
;
329 stat
.st_nlink
= hd
.c_nlink
;
330 stat
.st_uid
= hd
.c_uid
;
331 stat
.st_gid
= hd
.c_gid
;
332 stat
.st_rdev
= hd
.c_rdev
;
333 stat
.st_size
= hd
.c_filesize
;
334 stat
.st_atime
= stat
.st_mtime
= stat
.st_ctime
= hd
.c_mtime
;
336 return cpio_create_entry(me
, super
, &stat
, name
);
340 #define HEAD_LENGTH (110)
341 static int cpio_read_crc_head(vfs
*me
, vfs_s_super
*super
)
343 struct new_cpio_header hd
;
345 char buf
[HEAD_LENGTH
+ 1];
349 if((len
= mc_read(super
->u
.cpio
.fd
, buf
, HEAD_LENGTH
)) < HEAD_LENGTH
)
351 CPIO_POS(super
) += len
;
352 buf
[HEAD_LENGTH
] = 0;
354 if(sscanf(buf
, "%6ho%8lx%8lx%8lx%8lx%8lx%8lx%8lx%8lx%8lx%8lx%8lx%8lx%8lx",
355 &hd
.c_magic
, &hd
.c_ino
, &hd
.c_mode
, &hd
.c_uid
, &hd
.c_gid
,
356 &hd
.c_nlink
, &hd
.c_mtime
, &hd
.c_filesize
,
357 &hd
.c_dev
, &hd
.c_devmin
, &hd
.c_rdev
, &hd
.c_rdevmin
,
358 &hd
.c_namesize
, &hd
.c_chksum
) < 14) {
359 message_2s(1, MSG_ERROR
, _("Corrupted cpio header encountered in\n%s"),
364 if((super
->u
.cpio
.type
== CPIO_NEWC
&& hd
.c_magic
!= 070701) ||
365 (super
->u
.cpio
.type
== CPIO_CRC
&& hd
.c_magic
!= 070702))
368 name
= g_malloc(hd
.c_namesize
);
369 if((len
= mc_read(super
->u
.cpio
.fd
, name
, hd
.c_namesize
)) < hd
.c_namesize
){
373 CPIO_POS(super
) += len
;
374 cpio_skip_padding(super
);
376 if(!strcmp("TRAILER!!!", name
)) { /* We got to the last record */
381 stat
.st_dev
= (hd
.c_dev
<< 8) + hd
.c_devmin
;
382 stat
.st_ino
= hd
.c_ino
;
383 stat
.st_mode
= hd
.c_mode
;
384 stat
.st_nlink
= hd
.c_nlink
;
385 stat
.st_uid
= hd
.c_uid
;
386 stat
.st_gid
= hd
.c_gid
;
387 stat
.st_rdev
= (hd
.c_rdev
<< 8) + hd
.c_rdevmin
;
388 stat
.st_size
= hd
.c_filesize
;
389 stat
.st_atime
= stat
.st_mtime
= stat
.st_ctime
= hd
.c_mtime
;
391 return cpio_create_entry(me
, super
, &stat
, name
);
394 static int cpio_create_entry(vfs
*me
, vfs_s_super
*super
, struct stat
*stat
, char *name
)
396 vfs_s_inode
*inode
= NULL
;
397 vfs_s_inode
*root
= super
->root
;
398 vfs_s_entry
*entry
= NULL
;
401 switch (stat
->st_mode
& S_IFMT
) { /* For case of HP/UX archives */
410 if((stat
->st_size
!= 0) &&
411 (stat
->st_rdev
== 0x0001)) {
412 stat
->st_rdev
= (unsigned) stat
->st_size
;
420 if((stat
->st_nlink
> 1) &&
421 (super
->u
.cpio
.type
== CPIO_NEWC
||
422 super
->u
.cpio
.type
== CPIO_CRC
)) { /* For case of harlinked files */
423 struct defer_inode i
, *l
;
424 i
.inumber
= stat
->st_ino
;
425 i
.device
= stat
->st_dev
;
427 if((l
= defer_find(super
->u
.cpio
.defered
, &i
)) != NULL
) {
429 if(inode
->st
.st_size
&& stat
->st_size
&& (inode
->st
.st_size
!= stat
->st_size
)) {
430 message_3s(1, MSG_ERROR
, _("Inconsistent hardlinks of\n%s\nin cpio archive\n%s"),
437 while(name
[strlen(name
)-1] == PATH_SEP
) name
[strlen(name
)-1] = 0;
438 if((tn
= strrchr(name
, PATH_SEP
))) {
440 root
= vfs_s_find_inode(me
, root
, name
, LINK_FOLLOW
, FL_MKDIR
); /* CHECKME! What function here? */
446 entry
= vfs_s_find_entry_tree(me
, root
, tn
, LINK_FOLLOW
, FL_NONE
); /* In case entry is already there */
448 if(entry
) { /* This shouldn't happen! (well, it can happen if there is a record for a
449 file and than a record for a directory it is in; cpio would die with
450 'No such file or directory' is such case) */
452 if(!S_ISDIR(entry
->ino
->st
.st_mode
)) { /* This can be considered archive inconsistency */
453 message_2s(1, MSG_ERROR
, _("%s contains duplicate entries! Skipping!"), super
->name
);
455 entry
->ino
->st
.st_mode
= stat
->st_mode
;
456 entry
->ino
->st
.st_uid
= stat
->st_uid
;
457 entry
->ino
->st
.st_gid
= stat
->st_gid
;
458 entry
->ino
->st
.st_atime
= stat
->st_atime
;
459 entry
->ino
->st
.st_mtime
= stat
->st_mtime
;
460 entry
->ino
->st
.st_ctime
= stat
->st_ctime
;
463 } else { /* !entry */
466 inode
= vfs_s_new_inode(me
, super
, stat
);
467 if((stat
->st_nlink
> 0) &&
468 (super
->u
.cpio
.type
== CPIO_NEWC
||
469 super
->u
.cpio
.type
== CPIO_CRC
)) { /* For case of hardlinked files */
470 struct defer_inode
*i
;
471 i
= g_new(struct defer_inode
, 1);
472 i
->inumber
= stat
->st_ino
;
473 i
->device
= stat
->st_dev
;
475 i
->next
= super
->u
.cpio
.defered
;
476 super
->u
.cpio
.defered
= i
;
481 inode
->u
.cpio
.offset
= CPIO_POS(super
);
483 entry
= vfs_s_new_entry(me
, tn
, inode
);
484 vfs_s_insert_entry(me
, root
, entry
);
486 if(S_ISDIR(stat
->st_mode
))
487 vfs_s_add_dots(me
, inode
, root
);
489 if(S_ISLNK(stat
->st_mode
)) {
490 inode
->linkname
= g_malloc(stat
->st_size
+ 1);
491 if(mc_read(super
->u
.cpio
.fd
, inode
->linkname
, stat
->st_size
) < stat
->st_size
) {
492 inode
->linkname
[0] = 0;
495 inode
->linkname
[stat
->st_size
] = 0; /* Linkname stored without terminating \0 !!! */
496 CPIO_POS(super
) += stat
->st_size
;
497 cpio_skip_padding(super
);
499 CPIO_SEEK_CUR(super
, stat
->st_size
);
508 /* Need to CPIO_SEEK_CUR to skip the file at the end of add entry!!!! */
510 static int cpio_open_archive(vfs
*me
, vfs_s_super
*super
, char *name
, char *op
)
512 int status
= STATUS_START
;
514 if(cpio_open_cpio_file(me
, super
, name
) == -1)
518 status
= cpio_read_head(me
, super
);
522 message_2s(1, MSG_ERROR
, _("Unexpected end of file\n%s"), name
);
535 /* Remaining functions are exactly same as for tarfs (and were in fact just copied) */
536 static void *cpio_super_check(vfs
*me
, char *archive_name
, char *op
)
538 static struct stat sb
;
539 if(mc_stat(archive_name
, &sb
))
544 static int cpio_super_same(vfs
*me
, struct vfs_s_super
*parc
, char *archive_name
, char *op
, void *cookie
)
546 struct stat
*archive_stat
= cookie
; /* stat of main archive */
548 if(strcmp(parc
->name
, archive_name
)) return 0;
550 if(vfs_uid
&& (!(archive_stat
->st_mode
& 0004)))
551 if((archive_stat
->st_gid
!= vfs_gid
) || !(archive_stat
->st_mode
& 0040))
552 if((archive_stat
->st_uid
!= vfs_uid
) || !(archive_stat
->st_mode
& 0400))
554 /* Has the cached archive been changed on the disk? */
555 if(parc
->u
.cpio
.stat
.st_mtime
< archive_stat
->st_mtime
) { /* Yes, reload! */
556 (*vfs_cpiofs_ops
.free
) ((vfsid
) parc
);
557 vfs_rmstamp (&vfs_cpiofs_ops
, (vfsid
) parc
, 0);
560 /* Hasn't been modified, give it a new timeout */
561 vfs_stamp (&vfs_cpiofs_ops
, (vfsid
) parc
);
565 static int cpio_read(void *fh
, char *buffer
, int count
)
567 off_t begin
= FH
->ino
->u
.tar
.data_offset
;
568 int fd
= FH_SUPER
->u
.tar
.fd
;
569 vfs
*me
= FH_SUPER
->me
;
571 if (mc_lseek (fd
, begin
+ FH
->pos
, SEEK_SET
) !=
572 begin
+ FH
->pos
) ERRNOR (EIO
, -1);
574 count
= MIN(count
, FH
->ino
->st
.st_size
- FH
->pos
);
576 if ((count
= mc_read (fd
, buffer
, count
)) == -1) ERRNOR (errno
, -1);
582 static int cpio_ungetlocalcopy(vfs
*me
, char *path
, char *local
, int has_changed
)
584 /* We do just nothing. (We are read only and do not need to free local,
585 since it will be freed when tar archive will be freed */
589 static int cpio_fh_open(vfs
*me
, vfs_s_fh
*fh
, int flags
, int mode
)
591 if ((flags
& O_ACCMODE
) != O_RDONLY
) ERRNOR (EROFS
, -1);
595 static struct vfs_s_data cpiofs_data
= {
601 NULL
, /* init inode */
602 NULL
, /* free inode */
603 NULL
, /* init entry */
613 vfs_s_find_entry_tree
,
619 vfs vfs_cpiofs_ops
= {
620 NULL
, /* next pointer */
623 "ucpio", /* prefix */
624 &cpiofs_data
, /* vfs_s_data */