1 /* Virtual File System: GNU Tar file system.
2 Copyright (C) 2000 The Free Software Foundation
4 Written by: 2000 Jan Hudec
8 This program is free software; you can redistribute it and/or
9 modify it under the terms of the GNU Library General Public License
10 as published by the Free Software Foundation; either version 2 of
11 the License, or (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU Library General Public License for more details.
18 You should have received a copy of the GNU Library General Public
19 License along with this program; if not, write to the Free Software
20 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
23 #include "xdirentry.h"
28 /* #include "utilvfs.h" */
30 #include "../src/dialog.h"
31 /* #include "cpio.h" */
43 CPIO_UNKNOWN
= 0, /* Not determined yet */
44 CPIO_BIN
, /* Binary format */
45 CPIO_BINRE
, /* Binary format, reverse endianity */
46 CPIO_OLDC
, /* Old ASCII format */
47 CPIO_NEWC
, /* New ASCII format */
48 CPIO_CRC
/* New ASCII format + CRC */
51 struct old_cpio_header
53 unsigned short c_magic
;
56 unsigned short c_mode
;
59 unsigned short c_nlink
;
61 unsigned short c_mtimes
[2];
62 unsigned short c_namesize
;
63 unsigned short c_filesizes
[2];
66 struct new_cpio_header
68 unsigned short c_magic
;
73 unsigned long c_nlink
;
74 unsigned long c_mtime
;
75 unsigned long c_filesize
;
80 unsigned long c_namesize
;
81 unsigned long c_chksum
;
85 struct defer_inode
*next
;
86 unsigned long inumber
;
87 unsigned short device
;
91 static int cpio_position
;
93 static int cpio_find_head(vfs
*me
, vfs_s_super
*super
);
94 static int cpio_read_bin_head(vfs
*me
, vfs_s_super
*super
);
95 static int cpio_read_oldc_head(vfs
*me
, vfs_s_super
*super
);
96 static int cpio_read_crc_head(vfs
*me
, vfs_s_super
*super
);
97 static int cpio_create_entry(vfs
*me
, vfs_s_super
*super
, struct stat
*stat
, char *name
);
98 static int cpio_read(void *fh
, char *buffer
, int count
);
100 #define CPIO_POS(super) cpio_position
101 /* If some time reentrancy should be needed change it to */
102 /* #define CPIO_POS(super) (super)->u.cpio.fd */
104 #define CPIO_SEEK_SET(super, where) mc_lseek((super)->u.cpio.fd, CPIO_POS(super) = (where), SEEK_SET)
105 #define CPIO_SEEK_CUR(super, where) mc_lseek((super)->u.cpio.fd, CPIO_POS(super) += (where), SEEK_SET)
107 static struct defer_inode
* defer_find(struct defer_inode
*l
, struct defer_inode
*i
)
110 return l
->inumber
== i
->inumber
&& l
->device
== i
->device
? l
:
111 defer_find(l
->next
, i
);
114 static int cpio_skip_padding(vfs_s_super
*super
)
116 switch(super
->u
.cpio
.type
) {
119 return CPIO_SEEK_CUR(super
, (2 - (CPIO_POS(super
) % 2)) % 2);
122 return CPIO_SEEK_CUR(super
, (4 - (CPIO_POS(super
) % 4)) % 4);
124 g_assert_not_reached();
125 return 42; /* & the compiler is happy :-) */
129 static void cpio_free_archive(vfs
*me
, vfs_s_super
*super
)
131 if(super
->u
.cpio
.fd
!= -1)
132 mc_close(super
->u
.cpio
.fd
);
135 static int cpio_open_cpio_file(vfs
*me
, vfs_s_super
*super
, char *name
)
141 if((fd
= mc_open(name
, O_RDONLY
)) == -1) {
142 message_2s(1, MSG_ERROR
, _("Couldn't open cpio archive\n%s"), name
);
146 super
->name
= g_strdup(name
);
147 super
->u
.cpio
.fd
= -1; /* for now */
148 mc_stat(name
, &(super
->u
.cpio
.stat
));
149 super
->u
.cpio
.type
= CPIO_UNKNOWN
;
151 size
= is_gunzipable(fd
, &type
);
156 s
= g_strconcat(name
, decompress_extension(type
), NULL
);
157 if((fd
= mc_open(s
, O_RDONLY
)) == -1) {
158 message_2s(1, MSG_ERROR
, _("Couldn't open cpio archive\n%s"), s
);
165 super
->u
.cpio
.fd
= fd
;
166 mode
= super
->u
.cpio
.stat
.st_mode
& 07777;
167 mode
|= (mode
& 0444) >> 2; /* set eXec where Read is */
170 root
= vfs_s_new_inode(me
, super
, &(super
->u
.cpio
.stat
));
171 root
->st
.st_mode
= mode
;
172 root
->u
.cpio
.offset
= -1;
174 root
->st
.st_dev
= MEDATA
->rdev
++;
176 vfs_s_add_dots(me
, root
, NULL
);
179 CPIO_SEEK_SET(super
, 0);
184 static int cpio_read_head(vfs
*me
, vfs_s_super
*super
)
186 switch(cpio_find_head(me
, super
)) {
191 return cpio_read_bin_head(me
, super
);
193 return cpio_read_oldc_head(me
, super
);
196 return cpio_read_crc_head(me
, super
);
198 g_assert_not_reached();
199 return 42; /* & the compiler is happy :-) */
203 #define MAGIC_LENGTH (6) /* How many bytes we have to read ahead */
204 #define SEEKBACK CPIO_SEEK_CUR(super, ptr - top)
205 #define RETURN(x) return(super->u.cpio.type = (x))
206 #define TYPEIS(x) ((super->u.cpio.type == CPIO_UNKNOWN) || (super->u.cpio.type == (x)))
207 static int cpio_find_head(vfs
*me
, vfs_s_super
*super
)
214 top
= mc_read(super
->u
.cpio
.fd
, buf
, 256);
215 CPIO_POS(super
) += top
;
217 if(ptr
+ MAGIC_LENGTH
>= top
) {
219 memmove(buf
, buf
+ top
- 128, 128);
223 if((tmp
= mc_read(super
->u
.cpio
.fd
, buf
, top
)) == 0 || tmp
== -1) {
224 message_2s(1, MSG_ERROR
, _("Premature end of cpio archive\n%s"), super
->name
);
225 cpio_free_archive(me
, super
);
230 if(TYPEIS(CPIO_BIN
) && ((*(unsigned short *)(buf
+ ptr
)) == 070707)) {
231 SEEKBACK
; RETURN(CPIO_BIN
);
232 } else if(TYPEIS(CPIO_BINRE
) && ((*(unsigned short *)(buf
+ ptr
)) == GUINT16_SWAP_LE_BE_CONSTANT(070707))) {
233 SEEKBACK
; RETURN(CPIO_BINRE
);
234 } else if(TYPEIS(CPIO_OLDC
) && (!strncmp(buf
+ ptr
, "070707", 6))) {
235 SEEKBACK
; RETURN(CPIO_OLDC
);
236 } else if(TYPEIS(CPIO_NEWC
) && (!strncmp(buf
+ ptr
, "070701", 6))) {
237 SEEKBACK
; RETURN(CPIO_NEWC
);
238 } else if(TYPEIS(CPIO_CRC
) && (!strncmp(buf
+ ptr
, "070702", 6))) {
239 SEEKBACK
; RETURN(CPIO_CRC
);
247 #define HEAD_LENGTH (26)
248 static int cpio_read_bin_head(vfs
*me
, vfs_s_super
*super
)
250 struct old_cpio_header buf
;
255 if((len
= mc_read(super
->u
.cpio
.fd
, (char *)&buf
, HEAD_LENGTH
)) < HEAD_LENGTH
)
257 CPIO_POS(super
) += len
;
258 if(super
->u
.cpio
.type
== CPIO_BINRE
) {
260 for(i
= 0; i
< (HEAD_LENGTH
>> 1); i
++)
261 ((short *)&buf
)[i
] = GUINT16_SWAP_LE_BE(((short *)&buf
)[i
]);
263 g_assert(buf
.c_magic
== 070707);
265 name
= g_malloc(buf
.c_namesize
);
266 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
, (void *)buf
, HEAD_LENGTH
)) < HEAD_LENGTH
)
302 CPIO_POS(super
) += len
;
303 buf
[HEAD_LENGTH
] = 0;
305 if(sscanf((void *)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
, _("Corrupt 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
, _("Corrupt cpio header encountered in\n%s"), super
->name
);
363 if((super
->u
.cpio
.type
== CPIO_NEWC
&& hd
.c_magic
!= 070701) ||
364 (super
->u
.cpio
.type
== CPIO_CRC
&& hd
.c_magic
!= 070702))
367 name
= g_malloc(hd
.c_namesize
);
368 if((len
= mc_read(super
->u
.cpio
.fd
, name
, hd
.c_namesize
)) < hd
.c_namesize
)
371 CPIO_POS(super
) += len
;
372 cpio_skip_padding(super
);
374 if(!strcmp("TRAILER!!!", name
)) { /* We got to the last record */
379 stat
.st_dev
= (hd
.c_dev
<< 8) + hd
.c_devmin
;
380 stat
.st_ino
= hd
.c_ino
;
381 stat
.st_mode
= hd
.c_mode
;
382 stat
.st_nlink
= hd
.c_nlink
;
383 stat
.st_uid
= hd
.c_uid
;
384 stat
.st_gid
= hd
.c_gid
;
385 stat
.st_rdev
= (hd
.c_rdev
<< 8) + hd
.c_rdevmin
;
386 stat
.st_size
= hd
.c_filesize
;
387 stat
.st_atime
= stat
.st_mtime
= stat
.st_ctime
= hd
.c_mtime
;
389 return cpio_create_entry(me
, super
, &stat
, name
);
392 static int cpio_create_entry(vfs
*me
, vfs_s_super
*super
, struct stat
*stat
, char *name
)
394 vfs_s_inode
*inode
= NULL
;
395 vfs_s_inode
*root
= super
->root
;
396 vfs_s_entry
*entry
= NULL
;
399 switch (stat
->st_mode
& S_IFMT
) { /* For case of HP/UX archives */
408 if((stat
->st_size
!= 0) &&
409 (stat
->st_rdev
== 0x0001)) {
410 stat
->st_rdev
= (unsigned) stat
->st_size
;
418 if((stat
->st_nlink
> 1) &&
419 (super
->u
.cpio
.type
== CPIO_NEWC
||
420 super
->u
.cpio
.type
== CPIO_CRC
)) { /* For case of harlinked files */
421 struct defer_inode i
, *l
;
422 i
.inumber
= stat
->st_ino
;
423 i
.device
= stat
->st_dev
;
425 if((l
= defer_find(super
->u
.cpio
.defered
, &i
)) != NULL
) {
427 if(inode
->st
.st_size
&& stat
->st_size
&& (inode
->st
.st_size
!= stat
->st_size
)) {
428 message_3s(1, MSG_ERROR
, _("Inconsistent hardlinks of\n%s\nin cpio archive\n%s"),
435 while(name
[strlen(name
)-1] == PATH_SEP
) name
[strlen(name
)-1] = 0;
436 if((tn
= strrchr(name
, PATH_SEP
))) {
438 root
= vfs_s_find_inode(me
, root
, name
, LINK_FOLLOW
, FL_MKDIR
); /* CHECKME! What function here? */
444 entry
= vfs_s_find_entry_tree(me
, root
, tn
, LINK_FOLLOW
, FL_NONE
); /* In case entry is already there */
446 if(entry
) { /* This shouldn't happen! (well, it can happen if there is a record for a
447 file and than a record for a directory it is in; cpio would die with
448 'No such file or directory' is such case) */
450 if(!S_ISDIR(entry
->ino
->st
.st_mode
)) { /* This can be considered archive inconsistency */
451 message_2s(1, MSG_ERROR
, _("%s contains duplicit entries! Skiping!"), super
->name
);
453 entry
->ino
->st
.st_mode
= stat
->st_mode
;
454 entry
->ino
->st
.st_uid
= stat
->st_uid
;
455 entry
->ino
->st
.st_gid
= stat
->st_gid
;
456 entry
->ino
->st
.st_atime
= stat
->st_atime
;
457 entry
->ino
->st
.st_mtime
= stat
->st_mtime
;
458 entry
->ino
->st
.st_ctime
= stat
->st_ctime
;
461 } else { /* !entry */
464 inode
= vfs_s_new_inode(me
, super
, stat
);
465 if((stat
->st_nlink
> 0) &&
466 (super
->u
.cpio
.type
== CPIO_NEWC
||
467 super
->u
.cpio
.type
== CPIO_CRC
)) { /* For case of hardlinked files */
468 struct defer_inode
*i
;
469 i
= g_new(struct defer_inode
, 1);
470 i
->inumber
= stat
->st_ino
;
471 i
->device
= stat
->st_dev
;
473 i
->next
= super
->u
.cpio
.defered
;
474 super
->u
.cpio
.defered
= i
;
479 inode
->u
.cpio
.offset
= CPIO_POS(super
);
481 entry
= vfs_s_new_entry(me
, tn
, inode
);
482 vfs_s_insert_entry(me
, root
, entry
);
484 if(S_ISDIR(stat
->st_mode
))
485 vfs_s_add_dots(me
, inode
, root
);
487 if(S_ISLNK(stat
->st_mode
)) {
488 inode
->linkname
= g_malloc(stat
->st_size
+ 1);
489 if(mc_read(super
->u
.cpio
.fd
, inode
->linkname
, stat
->st_size
) < stat
->st_size
) {
490 inode
->linkname
[0] = 0;
493 inode
->linkname
[stat
->st_size
] = 0; /* Linkname stored without terminating \0 !!! */
494 cpio_skip_padding(super
);
496 CPIO_SEEK_CUR(super
, stat
->st_size
);
504 /* Need to CPIO_SEEK_CUR to skip the file at the end of add entry!!!! */
506 static int cpio_open_archive(vfs
*me
, vfs_s_super
*super
, char *name
, char *op
)
508 int status
= STATUS_START
;
510 if(cpio_open_cpio_file(me
, super
, name
) == -1)
514 status
= cpio_read_head(me
, super
);
518 message_2s(1, MSG_ERROR
, _("Unexpected end of file\n%s"), name
);
531 /* Remaining functions are exactly same as for tarfs (and were in fact just copied) */
532 static void *cpio_super_check(vfs
*me
, char *archive_name
, char *op
)
534 static struct stat sb
;
535 if(mc_stat(archive_name
, &sb
))
540 static int cpio_super_same(vfs
*me
, struct vfs_s_super
*parc
, char *archive_name
, char *op
, void *cookie
)
542 struct stat
*archive_stat
= cookie
; /* stat of main archive */
544 if(strcmp(parc
->name
, archive_name
)) return 0;
546 if(vfs_uid
&& (!(archive_stat
->st_mode
& 0004)))
547 if((archive_stat
->st_gid
!= vfs_gid
) || !(archive_stat
->st_mode
& 0040))
548 if((archive_stat
->st_uid
!= vfs_uid
) || !(archive_stat
->st_mode
& 0400))
550 /* Has the cached archive been changed on the disk? */
551 if(parc
->u
.cpio
.stat
.st_mtime
< archive_stat
->st_mtime
) { /* Yes, reload! */
552 (*vfs_cpiofs_ops
.free
) ((vfsid
) parc
);
553 vfs_rmstamp (&vfs_cpiofs_ops
, (vfsid
) parc
, 0);
556 /* Hasn't been modified, give it a new timeout */
557 vfs_stamp (&vfs_cpiofs_ops
, (vfsid
) parc
);
561 static int cpio_read(void *fh
, char *buffer
, int count
)
563 off_t begin
= FH
->ino
->u
.tar
.data_offset
;
564 int fd
= FH_SUPER
->u
.tar
.fd
;
565 vfs
*me
= FH_SUPER
->me
;
567 if (mc_lseek (fd
, begin
+ FH
->pos
, SEEK_SET
) !=
568 begin
+ FH
->pos
) ERRNOR (EIO
, -1);
570 count
= MIN(count
, FH
->ino
->st
.st_size
- FH
->pos
);
572 if ((count
= mc_read (fd
, buffer
, count
)) == -1) ERRNOR (errno
, -1);
578 static int cpio_ungetlocalcopy(vfs
*me
, char *path
, char *local
, int has_changed
)
580 /* We do just nothing. (We are read only and do not need to free local,
581 since it will be freed when tar archive will be freed */
585 static int cpio_fh_open(vfs
*me
, vfs_s_fh
*fh
, int flags
, int mode
)
587 if ((flags
& O_ACCMODE
) != O_RDONLY
) ERRNOR (EROFS
, -1);
591 static struct vfs_s_data cpiofs_data
= {
597 NULL
, /* init inode */
598 NULL
, /* free inode */
599 NULL
, /* init entry */
609 vfs_s_find_entry_tree
,
615 vfs vfs_cpiofs_ops
= {
616 NULL
, /* next pointer */
619 "ucpio", /* prefix */
620 &cpiofs_data
, /* vfs_s_data */