tarruby 0.1.0

data/ext/libtar/doc/th_set_from_stat.3

@@ -0,0 +1,45 @@
+.TH th_set_from_stat 3 "Jan 2001" "University of Illinois" "C Library Calls"
+.SH NAME
+th_set_from_stat, th_finish, th_set_type, th_set_path, th_set_link, th_set_device, th_set_user, th_set_group, th_set_mode, th_set_mtime, th_set_size \- set fields of a tar file header
+.SH SYNOPSIS
+.B #include <libtar.h>
+.P
+.BI "void th_set_from_stat(TAR *" t ", struct stat *" s ");"
+
+.BI "void th_set_type(TAR *" t ", mode_t " mode ");"
+
+.BI "void th_set_path(TAR *" t ", char *" pathname ");"
+
+.BI "void th_set_link(TAR *" t ", char *" linkname ");"
+
+.BI "void th_set_device(TAR *" t ", dev_t " device ");"
+
+.BI "void th_set_user(TAR *" t ", uid_t " uid ");"
+
+.BI "void th_set_group(TAR *" t ", gid_t " gid ");"
+
+.BI "void th_set_mode(TAR *" t ", mode_t " mode ");"
+
+.BI "void th_set_mtime(TAR *" t ", time_t " fmtime ");"
+
+.BI "void th_set_size(TAR *" t ", off_t " fsize ");"
+
+.BI "void th_finish(TAR *" t ");"
+.SH VERSION
+This man page documents version 1.2 of \fBlibtar\fP.
+.SH DESCRIPTION
+The \fBth_set_*\fP() functions each set an individual field of the
+current tar header associated with the \fITAR\fP handle \fIt\fP.  The
+\fBth_set_user\fP() and \fBth_set_group\fP() functions set both the
+numeric user/group ID fields and the user/group name text fields.
+The other functions set only the field that they refer to.
+
+The \fBth_set_from_stat\fP() function uses the other \fBth_set_*\fP()
+functions to set all of the fields at once, based on the data passed to
+it in the argument \fIs\fP.
+
+The \fBth_finish\fP() function sets the appropriate constants for the
+magic and version fields.  It then calculates the header checksum and
+fills in the checksum field.
+.SH SEE ALSO
+.BR lstat (2)

data/ext/libtar/lib/Makefile.in

@@ -0,0 +1,92 @@
+# @configure_input@
+
+### Path settings
+srcdir		= @srcdir@
+top_srcdir	= @top_srcdir@
+prefix		= @prefix@
+exec_prefix	= @exec_prefix@
+bindir		= @bindir@
+libdir		= @libdir@
+includedir	= @includedir@
+
+PACKAGE_NAME	= @PACKAGE_NAME@
+PACKAGE_VERSION	= @PACKAGE_VERSION@
+
+@ENCAP_DEFS@
+
+### Installation programs and flags
+INSTALL		= @INSTALL@
+INSTALL_PROGRAM	= @INSTALL_PROGRAM@ -s
+INSTALL_DATA	= @INSTALL_DATA@
+LN_S		= @LN_S@
+MKDIR		= @MKDIR@
+
+### Compiler and link options
+CC		= @CC@
+CPPFLAGS	= -I. \
+		  -I.. \
+		  -I${srcdir} \
+		  -I${top_srcdir}/compat \
+		  -I../listhash \
+		  @CPPFLAGS@
+CFLAGS		= @CFLAGS@
+LDFLAGS		= @LDFLAGS@
+LIBS		= @LIBS@
+LIBOBJS		= @LIBOBJS@
+RANLIB		= @RANLIB@
+@SET_MAKE@
+VPATH		= @srcdir@:@top_srcdir@/compat:../listhash
+
+
+### Makefile rules - no user-servicable parts below
+
+LIBTAR_OBJS	= append.o \
+		  block.o \
+		  decode.o \
+		  encode.o \
+		  extract.o \
+		  handle.o \
+		  libtar_hash.o \
+		  libtar_list.o \
+		  output.o \
+		  util.o \
+		  wrapper.o
+LIBTAR_HDRS	= ../config.h \
+		  ${top_srcdir}/compat/compat.h \
+		  ${srcdir}/libtar.h \
+		  ${srcdir}/internal.h \
+		  ../listhash/libtar_listhash.h
+LIBTAR_LIBS	= ./libtar.a
+ALL		= libtar.a
+
+DISTCLEANFILES	= ../listhash/libtar_listhash.h \
+		  ../listhash/libtar_list.c \
+		  ../listhash/libtar_hash.c
+
+
+all: ${ALL}
+
+.PHONY: clean distclean install
+
+libtar.a: ${LIBTAR_OBJS} ${LIBOBJS}
+	${AR} rc libtar.a ${LIBTAR_OBJS} ${LIBOBJS}
+	${RANLIB} libtar.a
+
+${LIBTAR_OBJS}: ${LIBTAR_HDRS}
+
+.c.o:
+	${CC} ${CFLAGS} ${CPPFLAGS} -c -o $@ $<
+
+clean:
+	rm -f *~ *.o ${ALL} core
+
+distclean: clean
+	rm -f Makefile ${DISTCLEANFILES}
+
+install: ${ALL}
+	${MKDIR} ${DESTDIR}${libdir}
+	${INSTALL_DATA} libtar.a ${DESTDIR}${libdir}
+	${MKDIR} ${DESTDIR}${includedir}
+	${INSTALL_DATA} ${srcdir}/libtar.h ${DESTDIR}${includedir}
+	${INSTALL_DATA} ../listhash/libtar_listhash.h ${DESTDIR}${includedir}
+

data/ext/libtar/lib/append.c

@@ -0,0 +1,272 @@
+/*
+**  Copyright 1998-2003 University of Illinois Board of Trustees
+**  Copyright 1998-2003 Mark D. Roth
+**  All rights reserved.
+**
+**  append.c - libtar code to append files to a tar archive
+**
+**  Mark D. Roth <roth@uiuc.edu>
+**  Campus Information Technologies and Educational Services
+**  University of Illinois at Urbana-Champaign
+*/
+
+// modified by SUGAWARA Genki <sgwr_dts@yahoo.co.jp>
+#ifdef _WIN32
+#pragma warning(disable:4101)
+#endif
+
+#include <internal.h>
+
+#include <stdio.h>
+#include <errno.h>
+#include <fcntl.h>
+#include <sys/param.h>
+#include <sys/types.h>
+
+#ifdef STDC_HEADERS
+# include <stdlib.h>
+# include <string.h>
+#endif
+
+#ifdef HAVE_UNISTD_H
+# include <unistd.h>
+#endif
+
+
+struct tar_dev
+{
+	dev_t td_dev;
+	libtar_hash_t *td_h;
+};
+typedef struct tar_dev tar_dev_t;
+
+struct tar_ino
+{
+	ino_t ti_ino;
+	char ti_name[MAXPATHLEN];
+};
+typedef struct tar_ino tar_ino_t;
+
+
+/* free memory associated with a tar_dev_t */
+void
+tar_dev_free(tar_dev_t *tdp)
+{
+	libtar_hash_free(tdp->td_h, free);
+	free(tdp);
+}
+
+
+/* appends a file to the tar archive */
+int
+tar_append_file(TAR *t, char *realname, char *savename)
+{
+	struct stat s;
+	int i;
+	libtar_hashptr_t hp;
+	tar_dev_t *td = NULL;
+	tar_ino_t *ti = NULL;
+	char path[MAXPATHLEN];
+
+#ifdef DEBUG
+	printf("==> tar_append_file(TAR=0x%lx (\"%s\"), realname=\"%s\", "
+	       "savename=\"%s\")\n", t, t->pathname, realname,
+	       (savename ? savename : "[NULL]"));
+#endif
+
+	if (lstat(realname, &s) != 0)
+	{
+#ifdef DEBUG
+		perror("lstat()");
+#endif
+		return -1;
+	}
+
+	/* set header block */
+#ifdef DEBUG
+	puts("    tar_append_file(): setting header block...");
+#endif
+	memset(&(t->th_buf), 0, sizeof(struct tar_header));
+	th_set_from_stat(t, &s);
+
+	/* set the header path */
+#ifdef DEBUG
+	puts("    tar_append_file(): setting header path...");
+#endif
+	th_set_path(t, (savename ? savename : realname));
+
+	/* check if it's a hardlink */
+#ifdef DEBUG
+	puts("    tar_append_file(): checking inode cache for hardlink...");
+#endif
+	libtar_hashptr_reset(&hp);
+	if (libtar_hash_getkey(t->h, &hp, &(s.st_dev),
+			       (libtar_matchfunc_t)dev_match) != 0)
+		td = (tar_dev_t *)libtar_hashptr_data(&hp);
+	else
+	{
+#ifdef DEBUG
+		printf("+++ adding hash for device (0x%lx, 0x%lx)...\n",
+		       major(s.st_dev), minor(s.st_dev));
+#endif
+		td = (tar_dev_t *)calloc(1, sizeof(tar_dev_t));
+		td->td_dev = s.st_dev;
+		td->td_h = libtar_hash_new(256, (libtar_hashfunc_t)ino_hash);
+		if (td->td_h == NULL)
+			return -1;
+		if (libtar_hash_add(t->h, td) == -1)
+			return -1;
+	}
+#ifndef _WIN32 // modified by SUGAWARA Genki <sgwr_dts@yahoo.co.jp>
+	libtar_hashptr_reset(&hp);
+	if (libtar_hash_getkey(td->td_h, &hp, &(s.st_ino),
+			       (libtar_matchfunc_t)ino_match) != 0)
+	{
+		ti = (tar_ino_t *)libtar_hashptr_data(&hp);
+#ifdef DEBUG
+		printf("    tar_append_file(): encoding hard link \"%s\" "
+		       "to \"%s\"...\n", realname, ti->ti_name);
+#endif
+		t->th_buf.typeflag = LNKTYPE;
+		th_set_link(t, ti->ti_name);
+	}
+	else
+	{
+#ifdef DEBUG
+		printf("+++ adding entry: device (0x%lx,0x%lx), inode %ld "
+		       "(\"%s\")...\n", major(s.st_dev), minor(s.st_dev),
+		       s.st_ino, realname);
+#endif
+		ti = (tar_ino_t *)calloc(1, sizeof(tar_ino_t));
+		if (ti == NULL)
+			return -1;
+		ti->ti_ino = s.st_ino;
+		snprintf(ti->ti_name, sizeof(ti->ti_name), "%s",
+			 savename ? savename : realname);
+		libtar_hash_add(td->td_h, ti);
+	}
+#endif /* #ifndef _WIN32 */
+
+#ifndef _WIN32 // modified by SUGAWARA Genki <sgwr_dts@yahoo.co.jp>
+	/* check if it's a symlink */
+	if (TH_ISSYM(t))
+	{
+		i = readlink(realname, path, sizeof(path));
+		if (i == -1)
+			return -1;
+		if (i >= MAXPATHLEN)
+			i = MAXPATHLEN - 1;
+		path[i] = '\0';
+#ifdef DEBUG
+		printf("    tar_append_file(): encoding symlink \"%s\" -> "
+		       "\"%s\"...\n", realname, path);
+#endif
+		th_set_link(t, path);
+	}
+#endif /* #ifndef _WIN32 */
+
+	/* print file info */
+	if (t->options & TAR_VERBOSE)
+		th_print_long_ls(t);
+
+#ifdef DEBUG
+	puts("    tar_append_file(): writing header");
+#endif
+	/* write header */
+	if (th_write(t) != 0)
+	{
+#ifdef DEBUG
+		printf("t->fd = %d\n", t->fd);
+#endif
+		return -1;
+	}
+#ifdef DEBUG
+	puts("    tar_append_file(): back from th_write()");
+#endif
+
+	/* if it's a regular file, write the contents as well */
+	if (TH_ISREG(t) && tar_append_regfile(t, realname) != 0)
+		return -1;
+
+	return 0;
+}
+
+
+/* write EOF indicator */
+int
+tar_append_eof(TAR *t)
+{
+	int i, j;
+	char block[T_BLOCKSIZE];
+
+	memset(&block, 0, T_BLOCKSIZE);
+	for (j = 0; j < 2; j++)
+	{
+		i = tar_block_write(t, &block);
+		if (i != T_BLOCKSIZE)
+		{
+			if (i != -1)
+				errno = EINVAL;
+			return -1;
+		}
+	}
+
+	return 0;
+}
+
+
+/* add file contents to a tarchive */
+int
+tar_append_regfile(TAR *t, char *realname)
+{
+	char block[T_BLOCKSIZE];
+	int filefd;
+	int i, j;
+	size_t size;
+
+	// modified by SUGAWARA Genki <sgwr_dts@yahoo.co.jp>
+	//filefd = open(realname, O_RDONLY);
+	filefd = open(realname, O_RDONLY
+#ifdef O_BINARY
+			| O_BINARY
+#endif
+			);
+
+	if (filefd == -1)
+	{
+#ifdef DEBUG
+		perror("open()");
+#endif
+		return -1;
+	}
+
+	size = th_get_size(t);
+	for (i = size; i > T_BLOCKSIZE; i -= T_BLOCKSIZE)
+	{
+		j = read(filefd, &block, T_BLOCKSIZE);
+		if (j != T_BLOCKSIZE)
+		{
+			if (j != -1)
+				errno = EINVAL;
+			return -1;
+		}
+		if (tar_block_write(t, &block) == -1)
+			return -1;
+	}
+
+	if (i > 0)
+	{
+		j = read(filefd, &block, i);
+		if (j == -1)
+			return -1;
+		memset(&(block[i]), 0, T_BLOCKSIZE - i);
+		if (tar_block_write(t, &block) == -1)
+			return -1;
+	}
+
+	close(filefd);
+
+	return 0;
+}
+
+