ref: f70cf0b70eb2b9b6cdf7208bf775189c724eb446
dir: /sys/src/ape/cmd/pax/create.c/
/* $Source: /u/mark/src/pax/RCS/create.c,v $
*
* $Revision: 1.3 $
*
* create.c - Create a tape archive.
*
* DESCRIPTION
*
* These functions are used to create/write and archive from an set of
* named files.
*
* AUTHOR
*
* Mark H. Colburn, NAPS International (mark@jhereg.mn.org)
*
* Sponsored by The USENIX Association for public distribution.
*
* Copyright (c) 1989 Mark H. Colburn.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice is duplicated in all such
* forms and that any documentation, advertising materials, and other
* materials related to such distribution and use acknowledge that the
* software was developed * by Mark H. Colburn and sponsored by The
* USENIX Association.
*
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*
* $Log: create.c,v $
* Revision 1.3 89/02/12 10:29:37 mark
* Fixed misspelling of Replstr
*
* Revision 1.2 89/02/12 10:04:17 mark
* 1.2 release fixes
*
* Revision 1.1 88/12/23 18:02:06 mark
* Initial revision
*
*/
#ifndef lint
static char *ident = "$Id: create.c,v 1.3 89/02/12 10:29:37 mark Exp Locker: mark $";
static char *copyright = "Copyright (c) 1989 Mark H. Colburn.\nAll rights reserved.\n";
#endif /* ! lint */
/* Headers */
#include "pax.h"
/* Function Prototypes */
#ifdef __STDC__
static void writetar(char *, Stat *);
static void writecpio(char *, Stat *);
static char tartype(int);
#else /* !__STDC__ */
static void writetar();
static void writecpio();
static char tartype();
#endif /* __STDC__ */
/* create_archive - create a tar archive.
*
* DESCRIPTION
*
* Create_archive is used as an entry point to both create and append
* archives. Create archive goes through the files specified by the
* user and writes each one to the archive if it can. Create_archive
* knows how to write both cpio and tar headers and the padding which
* is needed for each type of archive.
*
* RETURNS
*
* Always returns 0
*/
#ifdef __STDC__
int create_archive(void)
#else
int create_archive()
#endif
{
char name[PATH_MAX + 1];
Stat sb;
int fd;
while (name_next(name, &sb) != -1) {
if ((fd = openin(name, &sb)) < 0) {
/* FIXME: pax wants to exit here??? */
continue;
}
if (rplhead != (Replstr *)NULL) {
rpl_name(name);
if (strlen(name) == 0) {
continue;
}
}
if (get_disposition("add", name) || get_newname(name, sizeof(name))) {
/* skip file... */
if (fd) {
close(fd);
}
continue;
}
if (!f_link && sb.sb_nlink > 1) {
if (islink(name, &sb)) {
sb.sb_size = 0;
}
linkto(name, &sb);
}
if (ar_format == TAR) {
writetar(name, &sb);
} else {
writecpio(name, &sb);
}
if (fd) {
outdata(fd, name, sb.sb_size);
}
if (f_verbose) {
print_entry(name, &sb);
}
}
write_eot();
close_archive();
return (0);
}
/* writetar - write a header block for a tar file
*
* DESCRIPTION
*
* Make a header block for the file name whose stat info is in st.
* Return header pointer for success, NULL if the name is too long.
*
* The tar header block is structured as follows:
*
* FIELD NAME OFFSET SIZE
* -------------|---------------|------
* name 0 100
* mode 100 8
* uid 108 8
* gid 116 8
* size 124 12
* mtime 136 12
* chksum 148 8
* typeflag 156 1
* linkname 157 100
* magic 257 6
* version 263 2
* uname 265 32
* gname 297 32
* devmajor 329 8
* devminor 337 8
* prefix 345 155
*
* PARAMETERS
*
* char *name - name of file to create a header block for
* Stat *asb - pointer to the stat structure for the named file
*
*/
#ifdef __STDC__
static void writetar(char *name, Stat *asb)
#else
static void writetar(name, asb)
char *name;
Stat *asb;
#endif
{
char *p;
char *prefix = (char *)NULL;
int i;
int sum;
char hdr[BLOCKSIZE];
Link *from;
memset(hdr, 0, BLOCKSIZE);
if (strlen(name) > 255) {
warn(name, "name too long");
return;
}
/*
* If the pathname is longer than TNAMLEN, but less than 255, then
* we can split it up into the prefix and the filename.
*/
if (strlen(name) > 100) {
prefix = name;
name += 155;
while (name > prefix && *name != '/') {
name--;
}
/* no slash found....hmmm.... */
if (name == prefix) {
warn(prefix, "Name too long");
return;
}
*name++ = '\0';
}
#ifdef S_IFLNK
if ((asb->sb_mode & S_IFMT) == S_IFLNK) {
strcpy(&hdr[157], asb->sb_link);
asb->sb_size = 0;
}
#endif
strcpy(hdr, name);
sprintf(&hdr[100], "%06o \0", asb->sb_mode & ~S_IFMT);
sprintf(&hdr[108], "%06o \0", asb->sb_uid);
sprintf(&hdr[116], "%06o \0", asb->sb_gid);
sprintf(&hdr[124], "%011lo ", (long) asb->sb_size);
sprintf(&hdr[136], "%011lo ", (long) asb->sb_mtime);
strncpy(&hdr[148], " ", 8);
hdr[156] = tartype(asb->sb_mode);
if (asb->sb_nlink > 1 && (from = linkfrom(name, asb)) != (Link *)NULL) {
strcpy(&hdr[157], from->l_name);
hdr[156] = LNKTYPE;
}
strcpy(&hdr[257], TMAGIC);
strncpy(&hdr[263], TVERSION, 2);
strcpy(&hdr[265], finduname((int) asb->sb_uid));
strcpy(&hdr[297], findgname((int) asb->sb_gid));
sprintf(&hdr[329], "%06o \0", major(asb->sb_rdev));
sprintf(&hdr[337], "%06o \0", minor(asb->sb_rdev));
if (prefix != (char *)NULL) {
strncpy(&hdr[345], prefix, 155);
}
/* Calculate the checksum */
sum = 0;
p = hdr;
for (i = 0; i < 500; i++) {
sum += 0xFF & *p++;
}
/* Fill in the checksum field. */
sprintf(&hdr[148], "%06o \0", sum);
outwrite(hdr, BLOCKSIZE);
}
/* tartype - return tar file type from file mode
*
* DESCRIPTION
*
* tartype returns the character which represents the type of file
* indicated by "mode".
*
* PARAMETERS
*
* int mode - file mode from a stat block
*
* RETURNS
*
* The character which represents the particular file type in the
* ustar standard headers.
*/
#ifdef __STDC__
static char tartype(int mode)
#else
static char tartype(mode)
int mode;
#endif
{
switch (mode & S_IFMT) {
#ifdef S_IFCTG
case S_IFCTG:
return(CONTTYPE);
#endif
case S_IFDIR:
return (DIRTYPE);
#ifdef S_IFLNK
case S_IFLNK:
return (SYMTYPE);
#endif
#ifdef S_IFFIFO
case S_IFIFO:
return (FIFOTYPE);
#endif
#ifdef S_IFCHR
case S_IFCHR:
return (CHRTYPE);
#endif
#ifdef S_IFBLK
case S_IFBLK:
return (BLKTYPE);
#endif
default:
return (REGTYPE);
}
}
/* writecpio - write a cpio archive header
*
* DESCRIPTION
*
* Writes a new CPIO style archive header for the file specified.
*
* PARAMETERS
*
* char *name - name of file to create a header block for
* Stat *asb - pointer to the stat structure for the named file
*/
#ifdef __STDC__
static void writecpio(char *name, Stat *asb)
#else
static void writecpio(name, asb)
char *name;
Stat *asb;
#endif
{
uint namelen;
char header[M_STRLEN + H_STRLEN + 1];
namelen = (uint) strlen(name) + 1;
strcpy(header, M_ASCII);
sprintf(header + M_STRLEN, "%06o%06o%06o%06o%06o",
USH(asb->sb_dev), USH(asb->sb_ino), USH(asb->sb_mode),
USH(asb->sb_uid), USH(asb->sb_gid));
sprintf(header + M_STRLEN + 30, "%06o%06o%011lo%06o%011lo",
#ifdef _POSIX_SOURCE
USH(asb->sb_nlink), USH(0),
#else
USH(asb->sb_nlink), USH(asb->sb_rdev),
#endif
f_mtime ? asb->sb_mtime : time((time_t *) 0),
namelen, asb->sb_size);
outwrite(header, M_STRLEN + H_STRLEN);
outwrite(name, namelen);
#ifdef S_IFLNK
if ((asb->sb_mode & S_IFMT) == S_IFLNK) {
outwrite(asb->sb_link, (uint) asb->sb_size);
}
#endif /* S_IFLNK */
}