/* $Id$ */
/* Copyright (c) 2006-2020 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 <stdio.h>
#include <string.h>
#include <errno.h>
#include "configure.h"
#include "settings.h"


/* types */
typedef enum _SETTINGS_TYPE
{
	ST_ENT = 0,
	ST_H,
	ST_SH
} SettingsType;
#define ST_LAST ST_SH
#define ST_COUNT (ST_LAST + 1)
String * sSettingsType[ST_COUNT] =
{
	"ent", "h", "sh"
};


/* functions */
/* settings */
static int _settings_do(Configure * configure, String const * directory,
		String const * package, String const * version,
		String const * vendor, String const * extension);

int settings(Configure * configure, String const * directory,
		String const * package, String const * version,
		String const * vendor)
{
	int ret = 0;
	String const * p;
	String * q;
	String * r;
	unsigned long i;
	char c;

	if((p = configure_get_config(configure, "", "config")) == NULL)
		return 0;
	if((q = string_new(p)) == NULL)
		return 1;
	r = q;
	for(i = 0;; i++)
	{
		if(r[i] != ',' && r[i] != '\0')
			continue;
		c = r[i];
		r[i] = '\0';
		ret |= _settings_do(configure, directory, package, version,
				vendor, r);
		if(c == '\0')
			break;
		r+=i+1;
		i = 0;
	}
	string_delete(q);
	return ret;
}

static int _do_ent(Configure * configure, FILE * fp,
		String const * package, String const * version,
		String const * vendor);
static int _do_h(Configure * configure, FILE * fp,
		String const * package, String const * version,
		String const * vendor);
static int _do_sh(Configure * configure, FILE * fp,
		String const * package, String const * version,
		String const * vendor);
static int _settings_do(Configure * configure, String const * directory,
		String const * package, String const * version,
		String const * vendor, String const * extension)
{
	int ret = 0;
	int i;
	String * filename;
	FILE * fp;

	for(i = 0; i <= ST_LAST; i++)
		if(strcmp(extension, sSettingsType[i]) == 0)
			break;
	if(i > ST_LAST)
	{
		fprintf(stderr, "%s%s%s", "configure: ", extension,
				": Unknown settings type\n");
		return 1;
	}
	if(configure_is_flag_set(configure, PREFS_n))
		return 0;
	if(directory == NULL || string_get_length(directory) == 0)
		filename = string_new_append("config.", extension, NULL);
	else
		filename = string_new_append(directory, "/config.", extension,
					NULL);
	if(filename == NULL)
		return 1;
	if(configure_is_flag_set(configure, PREFS_v))
		printf("%s%s\n", "Creating ", filename);
	if((fp = fopen(filename, "w")) == NULL)
		configure_error(0, "%s: %s", filename, strerror(errno));
	string_delete(filename);
	if(fp == NULL)
		return 1;
	switch(i)
	{
		case ST_ENT:
			ret |= _do_ent(configure, fp, package, version, vendor);
			break;
		case ST_H:
			ret |= _do_h(configure, fp, package, version, vendor);
			break;
		case ST_SH:
			ret |= _do_sh(configure, fp, package, version, vendor);
			break;
	}
	fclose(fp);
	return ret;
}

static int _do_ent(Configure * configure, FILE * fp,
		String const * package, String const * version,
		String const * vendor)
{
	String const * prefix;
	String const * p;

	/* XXX may require escaping */
	fprintf(fp, "%s%s%s%s%s%s",
			"<!ENTITY package \"", package, "\">\n",
			"<!ENTITY version \"", version, "\">\n");
	if(vendor != NULL)
		fprintf(fp, "%s%s%s", "<!ENTITY vendor \"", vendor, "\">\n");
	if((prefix = configure_get_path(configure, "prefix")) != NULL)
		fprintf(fp, "%s%s%s", "<!ENTITY prefix \"", prefix, "\">\n");
	if((p = configure_get_path(configure, "libdir")) != NULL)
		fprintf(fp, "%s%s%s%s%s", "<!ENTITY libdir \"",
				(p[0] == '/') ? "\"" : prefix,
				(p[0] == '/') ? "" : "/", p, "\">\n");
	return 0;
}

static int _do_h(Configure * configure, FILE * fp,
		String const * package, String const * version,
		String const * vendor)
{
	String const * p;

	/* XXX may require escaping */
	fprintf(fp, "%s%s%s%s%s%s",
			"#define PACKAGE \"", package, "\"\n",
			"#define VERSION \"", version, "\"\n");
	if(vendor != NULL)
		fprintf(fp, "%s%s%s", "#define VENDOR \"", vendor, "\"\n");
	if((p = configure_get_path(configure, "prefix")) != NULL)
		fprintf(fp, "%s%s%s", "\n#ifndef PREFIX\n\
# define PREFIX \"", p, "\"\n#endif\n");
	if((p = configure_get_path(configure, "libdir")) != NULL)
		fprintf(fp, "%s%s%s%s", "\n#ifndef LIBDIR\n# define LIBDIR ",
				(p[0] == '/') ? "\"" : "PREFIX \"/", p,
				"\"\n#endif\n");
	return 0;
}

static int _do_sh(Configure * configure, FILE * fp,
		String const * package, String const * version,
		String const * vendor)
{
	String const * p;

	/* XXX may require escaping */
	fprintf(fp, "%s%s%s%s%s%s",
			"PACKAGE=\"", package, "\"\n",
			"VERSION=\"", version, "\"\n");
	fprintf(fp, "%s%s%s", "VENDOR=\"", vendor, "\"\n");
	if((p = configure_get_path(configure, "prefix")) != NULL)
		fprintf(fp, "%s%s%s", "\nPREFIX=\"", p, "\"\n");
	if((p = configure_get_path(configure, "libdir")) != NULL)
		fprintf(fp, "%s%s%s%s", "LIBDIR=\"",
				(p[0] == '/') ? "" : "${PREFIX}/",
				p, "\"\n");
	return 0;
}