#include <tools/ccanlint/ccanlint.h>
#include <tools/tools.h>
#include <ccan/str/str.h>
#include <ccan/take/take.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <unistd.h>
#include <limits.h>
#include <errno.h>
#include <stdlib.h>
#include <stdio.h>
#include <err.h>
#include <string.h>
#include <ctype.h>

static const char *can_build(struct manifest *m)
{
	if (safe_mode)
		return "Safe mode enabled";
	return NULL;
}

static char *obj_list(const struct manifest *m)
{
	char *list;
	struct manifest *i;

	if (m->compiled[COMPILE_NORMAL])
		list = tal_strdup(m, m->compiled[COMPILE_NORMAL]);
	else
		list = tal_strdup(m, "");

	/* Other CCAN deps. */
	list_for_each(&m->deps, i, list) {
		if (!i->compiled[COMPILE_NORMAL])
			continue;
		list = tal_strcat(m, take(list), " ");
		list = tal_strcat(m, take(list), i->compiled[COMPILE_NORMAL]);
	}
	return list;
}

static char *lib_list(const struct manifest *m)
{
	unsigned int i;
	char **libs;
	char *ret = tal_strdup(m, "");

	libs = get_libs(m, m->dir, "depends", get_or_compile_info);
	for (i = 0; libs[i]; i++)
		tal_append_fmt(&ret, "-l%s ", libs[i]);
	return ret;
}

static void check_use_build(struct manifest *m,
			    unsigned int *timeleft, struct score *score)
{
	char *contents;
	char *tmpfile, *cmdout;
	int fd;

	tmpfile = temp_file(m, ".c", "example.c");

	fd = open(tmpfile, O_WRONLY | O_CREAT | O_EXCL, 0600);
	if (fd < 0)
		err(1, "Creating temporary file %s", tmpfile);

	contents = tal_fmt(tmpfile,
			   "#include <ccan/%s/%s.h>\n"
			   "int main(void)\n"
			   "{\n"
			   "	return 0;\n"
			   "}\n",
			   m->modname, m->basename);
	if (write(fd, contents, strlen(contents)) != strlen(contents))
		err(1, "Failure writing to temporary file %s", tmpfile);
	close(fd);

	if (compile_and_link(score, tmpfile, ccan_dir, obj_list(m),
			     compiler, cflags, lib_list(m),
			     temp_file(m, "", tmpfile),
			     &cmdout)) {
		score->pass = true;
		score->score = score->total;
	} else {
		score->error = cmdout;
	}
}

struct ccanlint module_links = {
	.key = "module_links",
	.name = "Module can be linked against trivial program",
	.check = check_use_build,
	.can_run = can_build,
	.needs = "module_builds depends_build"
};

REGISTER_TEST(module_links);