configure
/* $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;
}