/**************************************************************/

/*  tpax: a topological pax implementation                    */

/*  Copyright (C) 2020--2024  SysDeer Technologies, LLC       */

/*  Released under GPLv2 and GPLv3; see COPYING.TPAX.         */

/**************************************************************/

#define _DEFAULT_SOURCE 1

#include <regex.h>

#include <stdint.h>

#include <stdlib.h>

#include <string.h>

#include <unistd.h>

#include <fcntl.h>

#include <errno.h>

#include <sys/mman.h>

#define ARGV_DRIVER

#include <tpax/tpax.h>

#include "tpax_version.h"

#include "tpax_driver_impl.h"

#include "argv/argv.h"

#define TPAX_DRIVER_EXEC_MODE_MASK \

	(TPAX_DRIVER_EXEC_MODE_LIST \

	| TPAX_DRIVER_EXEC_MODE_READ \

	| TPAX_DRIVER_EXEC_MODE_WRITE \

	| TPAX_DRIVER_EXEC_MODE_COPY)

#define TPAX_DRIVER_WRITE_FORMAT_MASK \

	(TPAX_DRIVER_WRITE_FORMAT_PAX  \

	| TPAX_DRIVER_WRITE_FORMAT_CPIO \

	| TPAX_DRIVER_WRITE_FORMAT_USTAR \

	| TPAX_DRIVER_WRITE_FORMAT_RUSTAR)

/* package info */

static const struct tpax_source_version tpax_src_version = {

	TPAX_TAG_VER_MAJOR,

	TPAX_TAG_VER_MINOR,

	TPAX_TAG_VER_PATCH,

	TPAX_GIT_VERSION

};

/* default fd context */

static const struct tpax_fd_ctx tpax_default_fdctx = {

	.fdin  = STDIN_FILENO,

	.fdout = STDOUT_FILENO,

	.fderr = STDERR_FILENO,

	.fdcwd = AT_FDCWD,

	.fddst = AT_FDCWD,

	.fdlog = (-1),

};

struct tpax_driver_ctx_alloc {

	struct argv_meta *		meta;

	struct tpax_driver_ctx_impl	ctx;

	uint64_t			guard;

	const char *			units[];

};

static uint32_t tpax_argv_flags(uint32_t flags)

{

	uint32_t ret = ARGV_CLONE_VECTOR;

	if (flags & TPAX_DRIVER_VERBOSITY_NONE)

		ret |= ARGV_VERBOSITY_NONE;

	if (flags & TPAX_DRIVER_VERBOSITY_ERRORS)

		ret |= ARGV_VERBOSITY_ERRORS;

	if (flags & TPAX_DRIVER_VERBOSITY_STATUS)

		ret |= ARGV_VERBOSITY_STATUS;

	return ret;

}

static int tpax_driver_usage(

	int				fdout,

	const char *			program,

	const char *			arg,

	const struct argv_option **	optv,

	struct argv_meta *		meta)

{

	char header[512];

	snprintf(header,sizeof(header),

		"%s — topological pax implementation\n\n"

		"Synopsis:\n"

		"       %s [-d] [-f archive]\n"

		"       %s -r [-d] [-f archive]\n"

		"       %s -w [−x format] [-b blocksize] [-dtv] [-H|-L] [-f archive]\n"

		"       %s -r -w [-d]\n\n"

		"Options:\n",

		program,program,program,program,program);

	argv_usage(fdout,header,optv,arg);

	argv_free(meta);

	return TPAX_USAGE;

}

static int tpax_driver_usage_exec_mode(

	int				fdout,

	const char *			program,

	const char *			arg,

	const struct argv_option **	optv,

	struct argv_meta *		meta)

{

	tpax_driver_usage(

		fdout,program,

		arg,optv,meta);

	tpax_dprintf(

		fdout,

		"\n%s: usage error: When using explicit (long) mode options, "

		"only one of --list, --read, --write, --copy "

		"may be used.\n",program);

	return TPAX_USAGE;

}

static int tpax_driver_usage_copy_mode(

	int				fdout,

	const char *			program,

	const char *			arg,

	const struct argv_option **	optv,

	struct argv_meta *		meta,

	struct argv_entry *		operand,

	struct argv_entry *		archive)

{

	const char * errdesc;

	if (archive || !operand) {

		tpax_driver_usage(

			fdout,program,

			arg,optv,meta);

		if (archive) {

			tpax_dprintf(

				fdout,

				"\n%s: usage error: the __copy__ mode does not permit specifying "

				"an archive path.\n\n",program);

		} else {

			tpax_dprintf(

				fdout,

				"\n%s: usage error: the __copy__ mode requires a destination "

				"directory argument.\n\n",program);

		}

		return TPAX_USAGE;

	}

	switch (errno) {

		case ENOENT:

			tpax_dprintf(

				fdout,

				"%s: file-system error: "

				"the destination directory '%s' "

				"does not exist.\n\n",

				program,operand->arg);

			break;

		case ENOTDIR:

			tpax_dprintf(

				fdout,

				"%s: file-system error: "

				"'%s' is not a directory.\n\n",

				program,operand->arg);

			break;

		default:

			if (!(errdesc = strerror(errno)))

				errdesc = "<no error description>";

			tpax_dprintf(

				fdout,

				"%s: general error: while opening the "

				"destination directory '%s': %s.\n\n",

				program,operand->arg,errdesc);

			break;

	}

	argv_free(meta);

	return TPAX_USAGE;

}

static int tpax_driver_usage_write_format(

	int				fdout,

	const char *			program,

	const char *			arg,

	const struct argv_option **	optv,

	struct argv_meta *		meta)

{

	tpax_driver_usage(

		fdout,program,

		arg,optv,meta);

	tpax_dprintf(

		fdout,

		"\n%s: usage error: Archive format may only be specified "

		"in write mode.\n",program);

	return TPAX_USAGE;

}

static int tpax_driver_usage_block_size(

	int				fdout,

	const char *			program,

	const char *			arg,

	struct argv_meta *		meta)

{

	tpax_dprintf(

		fdout,

		"%s: usage error: the requested block size `%s' is not a positive decimal integer.\n",

		program,arg);

	argv_free(meta);

	return TPAX_USAGE;

}

static int tpax_driver_usage_block_size_range(

	int				fdout,

	const char *			program,

	const char *			arg,

	struct argv_meta *		meta)

{

	tpax_dprintf(

		fdout,

		"%s: usage error: `%s' is outside the specified range of 512 to 32256.\n",

		program,arg);

	argv_free(meta);

	return TPAX_USAGE;

}

static int tpax_driver_usage_block_constraints(

	int				fdout,

	const char *			program,

	const char *			arg,

	struct argv_meta *		meta)

{

	tpax_dprintf(

		fdout,

		"%s: usage error: the specified block size `%s' is not a multiple of 512 bytes.\n",

		program,arg);

	argv_free(meta);

	return TPAX_USAGE;

}

static int tpax_driver_error_archive_path(

	int				fdout,

	const char *			program,

	const char *			arg,

	struct argv_meta *		meta,

	bool                            fwrite)

{

	int             lerrno;

	const char *    errstr;

	lerrno = errno;

	errno  = 0;

	errstr = strerror(lerrno);

	errstr = errno ? "" : errstr;

	errno  = lerrno;

	if (fwrite) {

		tpax_dprintf(

			fdout,

			"%s: file-system error: archive file <%s> could not be created "

			"or opened for writing (%s).\n",

			program,arg,errstr);

	} else {

		tpax_dprintf(

			fdout,

			"%s: file-system error: archive file <%s> could not be opened "

			"for reading (%s).\n",

			program,arg,errstr);

	}

	argv_free(meta);

	return TPAX_FATAL;

}

static int tpax_driver_error_not_implemented(

	int				fdout,

	const char *			program,

	const char *			feature,

	struct argv_meta *		meta)

{

	tpax_dprintf(

		fdout,"%s: error: %s is not yet implemented!\n\n",

		program,feature);

	argv_free(meta);

	return TPAX_FATAL;

}

static void tpax_set_archive_block_size(struct tpax_common_ctx * cctx)

{

	if (cctx->blksize)

		(void)0;

	else if (cctx->drvflags & TPAX_DRIVER_WRITE_FORMAT_PAX)

		cctx->blksize = TPAX_PAX_BLOCK_SIZE;

	else if (cctx->drvflags & TPAX_DRIVER_WRITE_FORMAT_CPIO)

		cctx->blksize = TPAX_CPIO_BLOCK_SIZE;

	else if (cctx->drvflags & TPAX_DRIVER_WRITE_FORMAT_USTAR)

		cctx->blksize = TPAX_USTAR_BLOCK_SIZE;

	else if (cctx->drvflags & TPAX_DRIVER_WRITE_FORMAT_RUSTAR)

		cctx->blksize = TPAX_USTAR_BLOCK_SIZE;

}

static int tpax_add_replstr(

	struct argv_entry *             entry,

	struct tpax_replstr *           replstr,

	char **                         mark)

{

	const char *                    src;

	char *                          dst;

	char                            sep;

	int                             nsep;

	/* non-null separator character */

	if (!(sep = entry->arg[0]))

		return -1;

	/* exactly three separator characters */

	for (nsep=1,src=&entry->arg[1]; *src; src++) {

		if ((src[0] == '\\') && (src[1] == sep)) {

			src++;

		} else if (src[0] == sep) {

			nsep++;

		}

	}

	if (nsep != 3)

		return -1;

	/* regexp */

	for (src=&entry->arg[1],dst=*mark; (*src != sep); src++) {

		if ((src[0] == '\\') && (src[1] == sep))

			src++;

		*dst++ = *src;

	}

	replstr->replarg = entry->arg;

	replstr->replstr = ++dst;

	replstr->regexp  = *mark;

	/* replstr */

	for (++src; (*src != sep); src++) {

		if ((src[0] == '\\') && (src[1] == sep))

			src++;

		*dst++ = *src;

	}

	src++;

	dst++;

	*mark = dst;

	/* flags */

	if (src[0] && src[1] && src[2])

		return -1;

	if (src[0] && (src[0] == src[1]))

		return -1;

	if (src[0] && (src[0] != 'g') && (src[0] != 'p'))

		return -1;

	if (src[0] && src[1] && (src[1] != 'g') && (src[1] != 'p'))

		return -1;

	if (src[0] && ((src[0] == 'g') || (src[1] == 'g')))

		replstr->flags |= TPAX_REPL_GLOBAL;

	if (src[0] && ((src[0] == 'p') || (src[1] == 'p')))

		replstr->flags |= TPAX_REPL_PRINT;

	/* regex */

	if (regcomp(&replstr->regex,replstr->regexp,0)) {

		replstr->regexp = 0;

		return -1;

	}

	return 0;

}

static int tpax_init_replstr_vector(

	struct tpax_driver_ctx_impl *   ctx,

	struct argv_meta *              meta)

{

	struct argv_entry *             entry;

	struct tpax_replstr *           replstr;

	char *                          mark;

	if (!(replstr = ctx->replstrv))

		return 0;

	for (entry=meta->entries,mark=ctx->replstrs; entry->fopt || entry->arg; entry++) {

		if (entry->tag == TAG_REPLSTR) {

			if (tpax_add_replstr(entry,replstr,&mark) < 0)

				return -1;

			replstr++;

		}

	}

	return 0;

}

static int tpax_driver_is_valid_keyval(struct argv_keyval * keyval)

{

	(void)keyval;

	return 0;

}

static struct tpax_driver_ctx_impl * tpax_driver_ctx_alloc(

	struct argv_meta *		meta,

	const struct tpax_fd_ctx *	fdctx,

	const struct tpax_common_ctx *	cctx,

	size_t				nunits,

	size_t                          nreplstr,

	size_t                          sreplstr)

{

	struct tpax_driver_ctx_alloc *	ictx;

	size_t				size;

	struct argv_entry *		entry;

	const char **			units;

	int				elements;

	int                             nkeyval;

	struct argv_keyval **           pkeyval;

	struct argv_keyval *            keyval;

	size =  sizeof(struct tpax_driver_ctx_alloc);

	size += (nunits+1)*sizeof(const char *);

	if (!(ictx = calloc(1,size)))

		return 0;

	memcpy(&ictx->ctx.fdctx,fdctx,sizeof(*fdctx));

	memcpy(&ictx->ctx.cctx,cctx,sizeof(*cctx));

	elements = sizeof(ictx->ctx.erribuf) / sizeof(*ictx->ctx.erribuf);

	ictx->ctx.errinfp  = &ictx->ctx.erriptr[0];

	ictx->ctx.erricap  = &ictx->ctx.erriptr[--elements];

	elements = sizeof(ictx->ctx.prefptr) / sizeof(*ictx->ctx.prefptr);

	ictx->ctx.prefixv  = &ictx->ctx.prefptr[0];

	ictx->ctx.prefixp  = &ictx->ctx.prefptr[0];

	ictx->ctx.prefcap  = &ictx->ctx.prefptr[--elements];

	ictx->meta = meta;

	for (entry=meta->entries,units=ictx->units; entry->fopt || entry->arg; entry++)

		if (!entry->fopt)

			*units++ = entry->arg;

	for (entry=meta->entries,nkeyval=0; entry->fopt || entry->arg; entry++)

		if (entry->keyv)

			for (keyval=entry->keyv; keyval->keyword; keyval++)

				nkeyval++;

	if (nkeyval && !(ictx->ctx.keyvalv = calloc(nkeyval+1,sizeof(*ictx->ctx.keyvalv)))) {

		free(ictx);

		return 0;

	}

	if (nreplstr && !(ictx->ctx.replstrv = calloc(++nreplstr,sizeof(*ictx->ctx.replstrv)))) {

		free(ictx->ctx.keyvalv);

		free(ictx);

		return 0;

	}

	if (sreplstr && !(ictx->ctx.replstrs = calloc(sreplstr,1))) {

		free(ictx->ctx.replstrv);

		free(ictx->ctx.keyvalv);

		free(ictx);

		return 0;

	}

	if ((pkeyval = ictx->ctx.keyvalv))

		for (entry=meta->entries; entry->fopt || entry->arg; entry++)

			if (entry->keyv)

				for (keyval=entry->keyv; keyval->keyword; keyval++)

					*pkeyval++ = keyval;

	if (cctx->drvflags & TPAX_DRIVER_EXEC_MODE_WRITE_COPY) {

		ictx->ctx.bufsize = TPAX_FILEIO_BUFLEN;

		ictx->ctx.bufaddr = mmap(

			0,ictx->ctx.bufsize,

			PROT_READ|PROT_WRITE,

			MAP_PRIVATE|MAP_ANONYMOUS,

			-1,0);

		if (ictx->ctx.bufaddr == MAP_FAILED) {

			free(ictx->ctx.keyvalv);

			free(ictx);

			return 0;

		}

		ictx->ctx.dirbuff = mmap(

			0,TPAX_DIRENT_BUFLEN,

			PROT_READ|PROT_WRITE,

			MAP_PRIVATE|MAP_ANONYMOUS,

			-1,0);

		if (ictx->ctx.dirbuff == MAP_FAILED) {

			munmap(ictx->ctx.bufaddr,ictx->ctx.bufsize);

			free(ictx->ctx.keyvalv);

			free(ictx);

			return 0;

		}

	}

	tpax_set_archive_block_size(&ictx->ctx.cctx);

	ictx->ctx.ctx.units = ictx->units;

	ictx->ctx.ctx.errv  = ictx->ctx.errinfp;

	return &ictx->ctx;

}

static int tpax_get_driver_ctx_fail(struct argv_meta * meta)

{

	argv_free(meta);

	return -1;

}

static int tpax_driver_keyval_error(

	struct tpax_driver_ctx_impl *   ctx,

	struct argv_keyval *            keyval,

	const char *                    program)

{

	const char * equal;

	switch (keyval->flags) {

		case ARGV_KEYVAL_ASSIGN:

			equal = "=";

			break;

		case ARGV_KEYVAL_OVERRIDE:

			equal = ":=";

			break;

		default:

			equal = "";

	}

	tpax_dprintf(

		ctx->fdctx.fderr,

		"%s: unsupported keyval argument (%s%s%s)\n",

		program,keyval->keyword,equal,

		keyval->value ? keyval->value : "");

	tpax_lib_free_driver_ctx(&ctx->ctx);

	return TPAX_ERROR;

}

int tpax_lib_get_driver_ctx(

	char **				argv,

	char **				envp,

	uint32_t			flags,

	const struct tpax_fd_ctx *	fdctx,

	struct tpax_driver_ctx ** 	pctx)

{

	struct tpax_driver_ctx_impl *	ctx;

	struct tpax_common_ctx		cctx;

	const struct argv_option *	optv[TPAX_OPTV_ELEMENTS];

	struct argv_meta *		meta;

	struct argv_entry *		entry;

	struct argv_entry *		archive;

	struct argv_entry *		operand;

	struct argv_keyval **           pkeyval;

	struct tpax_fd_ctx              lfdctx;

	size_t				nunits;

	size_t                          nreplstr;

	size_t                          sreplstr;

	const char *			program;

	int				fddst;

	const char *			ch;

	(void)envp;

	if (!fdctx)

		fdctx = &tpax_default_fdctx;

	argv_optv_init(tpax_default_options,optv);

	if (!(meta = argv_get(

			argv,optv,

			tpax_argv_flags(flags),

			fdctx->fderr)))

		return -1;

	nunits	= 0;

	archive = 0;

	operand = 0;

	program = argv_program_name(argv[0]);

	memset(&cctx,0,sizeof(cctx));

	nreplstr = 0;

	sreplstr = 0;

	cctx.drvflags = flags;

	fddst         = fdctx->fddst;

	/* get options, count units */

	for (entry=meta->entries; entry->fopt || entry->arg; entry++) {

		if (entry->fopt) {

			switch (entry->tag) {

				case TAG_HELP:

					if (flags & TPAX_DRIVER_VERBOSITY_USAGE)

						return tpax_driver_usage(

							fdctx->fdout,

							program,entry->arg,

							optv,meta);

					break;

				case TAG_VERSION:

					cctx.drvflags |= TPAX_DRIVER_VERSION;

					break;

				case TAG_VERBOSE:

					cctx.drvflags |= TPAX_DRIVER_VERBOSE;

					break;

				case TAG_LIST:

					cctx.drvflags |= TPAX_DRIVER_EXEC_MODE_LIST;

					break;

				case TAG_READ:

					cctx.drvflags |= TPAX_DRIVER_EXEC_MODE_READ;

					break;

				case TAG_WRITE:

					cctx.drvflags |= TPAX_DRIVER_EXEC_MODE_WRITE;

					break;

				case TAG_COPY:

					cctx.drvflags |= TPAX_DRIVER_EXEC_MODE_COPY;

					break;

				case TAG_FILE:

					archive = entry;

					break;

				case TAG_FORMAT:

					cctx.drvflags &= ~(uint64_t)(TPAX_DRIVER_WRITE_FORMAT_MASK);

					if (!strcmp(entry->arg,"pax"))

						cctx.drvflags |= TPAX_DRIVER_WRITE_FORMAT_PAX;

					else if (!strcmp(entry->arg,"cpio"))

						cctx.drvflags |= TPAX_DRIVER_WRITE_FORMAT_CPIO;

					else if (!strcmp(entry->arg,"ustar"))

						cctx.drvflags |= TPAX_DRIVER_WRITE_FORMAT_USTAR;

					else if (!strcmp(entry->arg,"rustar"))

						cctx.drvflags |= TPAX_DRIVER_WRITE_FORMAT_RUSTAR;

					break;

				case TAG_BLKSIZE:

					ch = (entry->arg[0] == '+')

						? &entry->arg[1]

						: entry->arg;

					for (; *ch; ch++)

						if ((*ch < '0') || (*ch > '9'))

							return tpax_driver_usage_block_size(

								fdctx->fderr,

								program,entry->arg,

								meta);

					cctx.blksize = atoi(entry->arg);

					if ((cctx.blksize < 512) || (cctx.blksize > 32256))

						return tpax_driver_usage_block_size_range(

							fdctx->fderr,

							program,entry->arg,

							meta);

					if (cctx.blksize % 512)

						return tpax_driver_usage_block_constraints(

							fdctx->fderr,

							program,entry->arg,

							meta);

					break;

				case TAG_REPLSTR:

					sreplstr += strlen(entry->arg);

					sreplstr++;

					nreplstr++;

					break;

				case TAG_RECURSE:

					cctx.drvflags |= TPAX_DRIVER_DIR_MEMBER_RECURSE;

					break;

				case TAG_NORECURSE:

					cctx.drvflags &= ~(uintptr_t)TPAX_DRIVER_DIR_MEMBER_RECURSE;