/* $Id$ */
/* Copyright (c) 2004-2022 Pierre Pronchery <khorben@defora.org> */
/* This file is part of DeforaOS Devel configure */
/* All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are
 * met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 *
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
 * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
 * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
 * HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
 * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */



#include <System.h>
#include <sys/types.h>
#ifndef __WIN32__
# include <sys/utsname.h>
#endif
#include <unistd.h>
#include <stdarg.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include "common.h"
#include "makefile.h"
#include "configure.h"
#include "../config.h"

#ifndef PROGNAME_CONFIGURE
# define PROGNAME_CONFIGURE PACKAGE
#endif

#ifndef PREFIX
# define PREFIX		"/usr/local"
#endif
#ifndef SYSCONFDIR
# define SYSCONFDIR	PREFIX "/etc"
#endif
#ifndef DATADIR
# define DATADIR	PREFIX "/share"
#endif


/* Configure */
/* private */
/* types */
struct _Configure
{
	ConfigurePrefs prefs;
	Config * project;
	HostArch arch;
	HostOS os;
	HostKernel kernel;
	Config * config;

	/* prefs */
	String * prefs_os;
	String * prefs_mode;
};


/* public */
/* constants */
const String * sHostArch[HA_COUNT] =
{
	"amd64", "i386", "i486", "i586", "i686", "sparc", "sparc64", "unknown"
};
const EnumMap mHostArch[] =
{
	{ HA_AMD64,	"amd64"		},
	{ HA_AMD64,	"x86_64"	},
	{ HA_ARM,	"zaurus"	},
	{ HA_I386,	"i386"		},
	{ HA_I486,	"i486"		},
	{ HA_I586,	"i586"		},
	{ HA_I686,	"i686"		},
	{ HA_SPARC,	"sparc"		},
	{ HA_SPARC,	"sun4u"		},
	{ HA_SPARC64,	"sparc64"	},
	{ HA_UNKNOWN,	"unknown"	}
};
const String * sHostOS[HO_COUNT] =
{
	"DeforaOS",
	"Darwin",
	"Linux",
	"FreeBSD", "NetBSD", "OpenBSD",
	"SunOS",
	"Windows",
	"unknown"
};
const HostKernelMap mHostKernel[] =
{
	{ HO_GNU_LINUX,	"2.0",		NULL,		NULL	},
	{ HO_GNU_LINUX,	"2.2",		NULL,		NULL	},
	{ HO_GNU_LINUX,	"2.4",		NULL,		NULL	},
	{ HO_GNU_LINUX,	"2.6",		NULL,		NULL	},
	{ HO_MACOSX,	"10.5.0",	"MacOS X",	"10.6.5"},
	{ HO_MACOSX,	"11.2.0",	"MacOS X",	"10.7.2"},
	{ HO_NETBSD,	"2.0",		NULL,		NULL	},
	{ HO_NETBSD,	"3.0",		NULL,		NULL	},
	{ HO_NETBSD,	"4.0",		NULL,		NULL	},
	{ HO_NETBSD,	"5.0",		NULL,		NULL	},
	{ HO_NETBSD,	"5.1",		NULL,		NULL	},
	{ HO_OPENBSD,	"4.0",		NULL,		NULL	},
	{ HO_OPENBSD,	"4.1",		NULL,		NULL	},
	{ HO_SUNOS,	"5.7",		NULL,		NULL	},
	{ HO_SUNOS,	"5.8",		NULL,		NULL	},
	{ HO_SUNOS,	"5.9",		NULL,		NULL	},
	{ HO_SUNOS,	"5.10",		NULL,		NULL	},
	{ HO_UNKNOWN,	"unknown",	NULL,		NULL	}
};

const String * sTargetType[TT_COUNT] = { "binary", "command", "library",
	"libtool", "object", "plugin", "script", NULL };
const struct ExtensionType _sExtensionType[] =
{
	{ "asm",	OT_ASM_SOURCE		},
	{ "s",		OT_ASM_SOURCE		},
	{ "S",		OT_ASMPP_SOURCE		},
	{ "sx",		OT_ASMPP_SOURCE		},
	{ "c",		OT_C_SOURCE		},
	{ "cc",		OT_CXX_SOURCE		},
	{ "cpp",	OT_CXX_SOURCE		},
	{ "cxx",	OT_CXX_SOURCE		},
	{ "c++",	OT_CXX_SOURCE		},
	{ "go",		OT_GOLANG_SOURCE	},
	{ "java",	OT_JAVA_SOURCE		},
	{ "m",		OT_OBJC_SOURCE		},
	{ "mm",		OT_OBJCXX_SOURCE	},
	{ "v",		OT_VERILOG_SOURCE	},
	{ NULL,		OT_UNKNOWN		}
};
const struct ExtensionType * sExtensionType = _sExtensionType;


/* functions */
/* configure_new */
static void _new_detect(Configure * configure);
static HostKernel _new_detect_kernel(HostOS os, char const * release);
static int _new_load_config(Configure * configure);

Configure * configure_new(ConfigurePrefs * prefs)
{
	Configure * configure;

	if((configure = object_new(sizeof(*configure))) == NULL)
		return NULL;
	configure->config = NULL;
	configure->prefs_mode = NULL;
	configure->prefs_os = NULL;
	if(prefs != NULL)
	{
		/* copy the strings */
		if(prefs->os != NULL)
		{
			if((configure->prefs_os = string_new(prefs->os))
					== NULL)
			{
				configure_delete(configure);
				return NULL;
			}
		}
		if(prefs->mode != NULL && string_get_length(prefs->mode) > 0)
		{
			if((configure->prefs_mode = string_new(prefs->mode))
					== NULL)
			{
				configure_delete(configure);
				return NULL;
			}
		}
		configure->prefs = *prefs;
		configure->prefs.os = configure->prefs_os;
	}
	else
		memset(&configure->prefs, 0, sizeof(configure->prefs));
	_new_detect(configure);
	if(_new_load_config(configure) != 0)
	{
		configure_delete(configure);
		return NULL;
	}
	return configure;
}

static void _new_detect(Configure * configure)
{
	char const * os;
	char const * version;
#ifdef __WIN32__

	configure->arch = HA_I386;
	configure->os = HO_WIN32;
	configure->kernel = HK_UNKNOWN;
#else
	struct utsname un;

	if(uname(&un) < 0)
	{
		configure_error(0, "%s", "system detection failed");
		configure->arch = HA_UNKNOWN;
		configure->os = HO_UNKNOWN;
		configure->kernel = HK_UNKNOWN;
		return;
	}
	configure->arch = enum_map_find(HA_LAST, mHostArch, un.machine);
	configure->os = enum_string(HO_LAST, sHostOS,
			(configure->prefs.os != NULL)
			? configure->prefs.os : un.sysname);
	configure->kernel = _new_detect_kernel(configure->os, un.release);
#endif
	if(configure->prefs.flags & PREFS_v)
	{
		os = (mHostKernel[configure->kernel].os_display != NULL)
			? mHostKernel[configure->kernel].os_display
			: sHostOS[configure->os];
		version = (mHostKernel[configure->kernel].version_display
				!= NULL)
			? mHostKernel[configure->kernel].version_display
			: mHostKernel[configure->kernel].version;
		printf("Detected system %s version %s (%s)\n", os, version,
				sHostArch[configure->arch]);
	}
}

static HostKernel _new_detect_kernel(HostOS os, char const * release)
{
	unsigned int i;

	for(i = 0; i != HK_LAST; i++)
	{
		if(mHostKernel[i].os < os)
			continue;
		if(mHostKernel[i].os > os)
			return HK_UNKNOWN;
		if(strncmp(release, mHostKernel[i].version,
					strlen(mHostKernel[i].version)) == 0)
			return i;
	}
	return i;
}

static int _new_load_config(Configure * configure)
{
	String * filename = DATADIR "/" PACKAGE "/" PACKAGE CONFEXT;

	if((configure->config = config_new()) == NULL)
		return -1;
	/* load the global database */
#ifdef BASEDIR
	if((filename = string_new_append(BASEDIR "/data/" PACKAGE CONFEXT,
					NULL)) == NULL)
		return -configure_error(1, "%s", error_get(NULL));
#endif
	if(filename != NULL && config_load(configure->config, filename) != 0)
		configure_warning(0, "%s: %s", filename,
			"Could not load program definitions");
#ifdef BASEDIR
	string_delete(filename);
	/* load the database for the current system */
	filename = string_new_append(BASEDIR "/data/platform/",
			sHostOS[configure->os], CONFEXT, NULL);
#else
	filename = string_new_append(DATADIR "/" PACKAGE "/platform/",
			sHostOS[configure->os], CONFEXT, NULL);
#endif
	if(filename == NULL)
		return -configure_error(1, "%s", error_get(NULL));
	else if(config_load(configure->config, filename) != 0)
		configure_warning(0, "%s: %s", filename,
				"Could not load program definitions");
	string_delete(filename);
#ifndef BASEDIR
	if((filename = string_new(SYSCONFDIR "/" PACKAGE "/" PACKAGE CONFEXT))
			== NULL)
		return -configure_error(1, "%s", error_get(NULL));
	/* we can ignore errors */
	config_load(configure->config, filename);
	string_delete(filename);
	if((filename = string_new_append(SYSCONFDIR "/" PACKAGE "/platform/",
					sHostOS[configure->os], CONFEXT, NULL))
			== NULL)
		return -configure_error(1, "%s", error_get(NULL));
	/* we can ignore errors */
	config_load(configure->config, filename);
	string_delete(filename);
#endif
	return 0;
}


/* configure_delete */
void configure_delete(Configure * configure)
{
	if(configure->prefs_mode != NULL)
		string_delete(configure->prefs_mode);
	if(configure->prefs_os != NULL)
		string_delete(configure->prefs_os);
	if(configure->config != NULL)
		config_delete(configure->config);
	object_delete(configure);
}


/* accessors */
/* configure_can_library_static */
int configure_can_library_static(Configure * configure)
{
	switch(configure->os)
	{
		case HO_WIN32:
			return 0;
		default:
			return 1;
	}
}


/* configure_get_config */
String const * configure_get_config(Configure * configure,
		String const * section, String const * variable)
{
	return config_get(configure->project, section, variable);
}


/* configure_get_config_mode */
String const * configure_get_config_mode(Configure * configure,
		String const * mode, String const * variable)
{
	String const * ret;
	String * section;

	if(mode == NULL || string_get_length(mode) == 0)
		mode = configure_get_mode(configure);
	if(mode == NULL)
		return configure_get_config(configure, NULL, variable);
	if((section = string_new_append("mode::", mode, NULL)) == NULL)
		return NULL;
	ret = configure_get_config(configure, section, variable);
	string_delete(section);
	if(ret != NULL)
		return ret;
	return configure_get_config(configure, NULL, variable);
}


/* configure_get_exeext */
String const * configure_get_extension(Configure * configure,
		String const * extension)
{
	String const section[] = "extensions";

	return config_get(configure->config, section, extension);
}


/* configure_get_mode */
String const * configure_get_mode(Configure * configure)
{
	if(configure->prefs.mode != NULL)
		return configure->prefs.mode;
	return configure_get_config(configure, NULL, "mode");
}


/* configure_get_mode_title */
String const * configure_get_mode_title(Configure * configure,
		String const * mode)
{
	String const * title;
	String * section;

	if(mode == NULL)
		return NULL;
	if((section = string_new_append("mode::", mode, NULL)) == NULL)
		return NULL;
	title = config_get(configure->config, section, "title");
	string_delete(section);
	return title;
}


/* configure_get_os */
HostOS configure_get_os(Configure * configure)
{
	return configure->os;
}


/* configure_get_path */
String const * configure_get_path(Configure * configure, String const * path)
{
	String const section[] = "paths";

	return config_get(configure->config, section, path);
}


/* configure_get_prefs */
ConfigurePrefs const * configure_get_prefs(Configure * configure)
{
	return &configure->prefs;
}


/* configure_get_program */
String const * configure_get_program(Configure * configure, String const * name)
{
	String const section[] = "programs";
	String const * program;

	if((program = config_get(configure->config, section, name)) != NULL)
		return program;
	return name;
}


/* configure_is_flag_set */
unsigned int configure_is_flag_set(Configure * configure, unsigned int flags)
{
	return (configure->prefs.flags & flags) ? 1 : 0;
}


/* configure_set_mode */
int configure_set_mode(Configure * configure, String const * mode)
{
	String * m;

	if(mode == NULL || string_get_length(mode) == 0)
		m = NULL;
	else if((m = string_new(mode)) == NULL)
		return -1;
	string_delete(configure->prefs_mode);
	configure->prefs.mode = configure->prefs_mode = m;
	return 0;
}


/* configure_set_path */
int configure_set_path(Configure * configure, String const * path,
		String const * value)
{
	String const section[] = "paths";

	return config_set(configure->config, section, path, value);
}


/* useful */
/* configure_error */
int configure_error(int ret, char const * format, ...)
{
	va_list ap;

	fputs(PROGNAME_CONFIGURE ": ", stderr);
	va_start(ap, format);
	vfprintf(stderr, format, ap);
	fputc('\n', stderr);
	va_end(ap);
	return ret;
}


/* configure_project */
static int _project_do(Configure * configure, configArray * ca);
static int _project_load(Configure * configure, char const * directory,
		configArray * ca);
static String const * _project_load_config_mode(Config const * config,
		String const * mode, String const * variable);
static int _project_load_subdirs(Configure * configure, char const * directory,
		configArray * ca, String const * subdirs);
static int _project_load_subdirs_subdir(Configure * configure,
		char const * directory, configArray * ca, char const * subdir);

int configure_project(Configure * configure, String const * directory)
{
	int ret;
	configArray * ca;
	const unsigned int flags = configure->prefs.flags;
	int i;
	Config * p;

	if((ca = configarray_new()) == NULL)
		return error_print(PROGNAME_CONFIGURE);
	if((ret = _project_load(configure, directory, ca)) == 0)
	{
		if(configure->prefs.flags & PREFS_n)
			ret = _project_do(configure, ca);
		else
		{
			configure->prefs.flags = PREFS_n;
			if((ret = _project_do(configure, ca)) == 0)
			{
				configure->prefs.flags = flags;
				ret = _project_do(configure, ca);
			}
		}
	}
	for(i = array_count(ca); i > 0; i--)
	{
		array_get_copy(ca, i - 1, &p);
		config_delete(p);
	}
	array_delete(ca);
	return ret;
}

static int _project_do(Configure * configure, configArray * ca)
{
	size_t i;
	size_t cnt = array_count(ca);
	String const * di;
	size_t j;
	Config * cj;
	String const * dj;

	for(i = 0; i < cnt; i++)
	{
		array_get_copy(ca, i, &configure->project);
		di = config_get(configure->project, NULL, "_directory");
		for(j = i; j < cnt; j++)
		{
			array_get_copy(ca, j, &cj);
			if((dj = config_get(cj, NULL, "_directory")) == NULL)
				continue;
			if(di != NULL && string_find(dj, di) == NULL)
				break;
		}
		if(makefile(configure, di, ca, i, j) != 0)
			break;
	}
	return (i == cnt) ? 0 : 1;
}

static int _project_load(Configure * configure, String const * directory,
		configArray * ca)
{
	int ret = 0;
	Config * config;
	String * path;
	String const * subdirs = NULL;

	if(directory == NULL || string_get_length(directory) == 0)
		path = string_new(PROJECT_CONF);
	else
		path = string_new_append(directory, "/", PROJECT_CONF, NULL);
	if(path == NULL)
		return configure_error(1, "%s", error_get(NULL));
	if((config = config_new()) == NULL)
	{
		string_delete(path);
		return configure_error(1, "%s", error_get(NULL));
	}
	config_set(config, NULL, "_directory", directory);
	if(configure->prefs.flags & PREFS_v)
		printf("%s%s%s", "Loading project file ", path, "\n");
	if(config_load(config, path) != 0)
		ret = error_print(PROGNAME_CONFIGURE);
	else
	{
		array_append(ca, &config);
		subdirs = _project_load_config_mode(config,
				configure->prefs.mode, "subdirs");
	}
	string_delete(path);
	if(subdirs == NULL)
		return ret;
	return _project_load_subdirs(configure, directory, ca, subdirs);
}

static String const * _project_load_config_mode(Config const * config,
		String const * mode, String const * variable)
{
	String const * ret;
	String * section;

	if(mode == NULL || string_get_length(mode) == 0)
		mode = config_get(config, NULL, "mode");
	if(mode == NULL || string_get_length(mode) == 0)
		return config_get(config, NULL, variable);
	if((section = string_new_append("mode::", mode, NULL)) == NULL)
		return NULL;
	ret = config_get(config, section, variable);
	string_delete(section);
	if(ret != NULL)
		return ret;
	return config_get(config, NULL, variable);
}

static int _project_load_subdirs(Configure * configure, char const * directory,
		configArray * ca, String const * subdirs)
{
	int ret = 0;
	int i;
	char c;
	String * subdir;
	String * p;

	if((subdir = string_new(subdirs)) == NULL)
		return 1;
	p = subdir;
	for(i = 0; ret == 0; i++)
	{
		if(subdir[i] != ',' && subdir[i] != '\0')
			continue;
		c = subdir[i];
		subdir[i] = '\0';
		ret = _project_load_subdirs_subdir(configure, directory, ca,
				subdir);
		if(c == '\0')
			break;
		subdir += i + 1;
		i = 0;
	}
	string_delete(p);
	return ret;
}

static int _project_load_subdirs_subdir(Configure * configure,
		char const * directory, configArray * ca, char const * subdir)
{
	int ret;
	String * p;

	if(directory == NULL || string_get_length(directory) == 0)
		ret = _project_load(configure, subdir, ca);
	else if((p = string_new_append(directory, "/", subdir, NULL)) == NULL)
		ret = error_print(PROGNAME_CONFIGURE);
	else
	{
		ret = _project_load(configure, p, ca);
		string_delete(p);
	}
	return ret;
}


/* configure_warning */
int configure_warning(int ret, char const * format, ...)
{
	va_list ap;

	fputs(PROGNAME_CONFIGURE ": warning: ", stderr);
	va_start(ap, format);
	vfprintf(stderr, format, ap);
	fputc('\n', stderr);
	va_end(ap);
	return ret;
}