/*
 * Copyright 2003-2017 The Music Player Daemon Project
 * http://www.musicpd.org
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License along
 * with this program; if not, write to the Free Software Foundation, Inc.,
 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 */

#include "config.h" /* must be first for large file support */
#include "ArchiveLookup.hxx"
#include "ArchiveDomain.hxx"
#include "Log.hxx"

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

gcc_pure
static char *
FindSlash(char *p, size_t i) noexcept
{
	for (; i > 0; --i)
		if (p[i] == '/')
			return p + i;

	return nullptr;
}

gcc_pure
static const char *
FindSuffix(const char *p, const char *i) noexcept
{
	for (; i > p; --i) {
		if (*i == '.')
			return i + 1;
	}

	return nullptr;
}

bool
archive_lookup(char *pathname, const char **archive,
	       const char **inpath, const char **suffix)
{
	size_t idx = strlen(pathname);

	char *slash = nullptr;

	while (true) {
		//try to stat if its real directory
		struct stat st_info;
		if (stat(pathname, &st_info) == -1) {
			if (errno != ENOTDIR) {
				FormatErrno(archive_domain,
					    "Failed to stat %s", pathname);
				return false;
			}
		} else {
			//is something found ins original path (is not an archive)
			if (slash == nullptr)
				return false;

			//its a file ?
			if (S_ISREG(st_info.st_mode)) {
				//so the upper should be file
				*archive = pathname;
				*inpath = slash + 1;

				//try to get suffix
				*suffix = FindSuffix(pathname, slash - 1);
				return true;
			} else {
				FormatError(archive_domain,
					    "Not a regular file: %s",
					    pathname);
				return false;
			}
		}

		//find one dir up
		if (slash != nullptr)
			*slash = '/';

		slash = FindSlash(pathname, idx - 1);
		if (slash == nullptr)
			return false;

		*slash = 0;
		idx = slash - pathname;
	}
}