/******************************************************/
/*  tpax: a topological pax implementation            */
/*  Copyright (C) 2020  Z. Gilboa                     */
/*  Released under GPLv2 and GPLv3; see COPYING.TPAX. */
/******************************************************/

#include <stdint.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <sys/stat.h>

#include <tpax/tpax.h>
#include "tpax_driver_impl.h"

int tpax_path_copy(
	char *          dstpath,
	const char *    srcpath,
	size_t          bufsize,
	uint32_t        flags,
	size_t *        nwritten)
{
	const char *    src;
	char *          dst;
	char *          cap;

	if (!bufsize) {
		errno = ENOBUFS;
		return -1;
	}

	src = srcpath;
	dst = dstpath;
	cap = &dst[bufsize];

	if ((src[0] == '/') && (src[1] == '/') && (src[2] != '/')) {
		*dst++ = *src++;
		*dst++ = *src++;
	}

	if (flags & TPAX_DRIVER_PURE_PATH_OUTPUT)
		if ((src[0] == '.') && (src[1] == '/'))
			for (++src; *src=='/'; src++)
				(void)0;

	for (; *src; ) {
		if ((src[0] == '.') && (src[1] == '.')) {
			if ((src[2] == '/') || (src[2] == '\0')) {
				if (flags & TPAX_DRIVER_STRICT_PATH_INPUT) {
					errno = EINVAL;
					return -1;
				}
			}
		}

		if (flags & TPAX_DRIVER_PURE_PATH_OUTPUT) {
			if ((src[0] == '.') && (src[1] == '/') && (src[-1] == '/')) {
				for (++src; *src=='/'; src++)
					(void)0;

			} else if ((src[0] == '/')) {
				for (src++; *src=='/'; src++)
					(void)0;

				*dst++ = '/';

			} else {
				*dst++ = *src++;
			}
		} else {
			*dst++ = *src++;
		}

		if (dst == cap) {
			errno = ENOBUFS;
			return -1;
		}
	}

	if (nwritten)
		*nwritten = dst - dstpath;

	*dst = '\0';

	return 0;
}