/*******************************************************************/
/*  slibtool: a strong libtool implementation, written in C        */
/*  Copyright (C) 2016--2024  SysDeer Technologies, LLC            */
/*  Released under the Standard MIT License; see COPYING.SLIBTOOL. */
/*******************************************************************/

#include <ctype.h>
#include <stdio.h>
#include <stdint.h>
#include <stdbool.h>

#include "slibtool_mkvars_impl.h"
#include "slibtool_driver_impl.h"
#include "slibtool_errinfo_impl.h"
#include "slibtool_symlink_impl.h"
#include "slibtool_readlink_impl.h"
#include "slibtool_realpath_impl.h"
#include "slibtool_visibility_impl.h"

static int slbt_get_mkvars_var(
	const struct slbt_driver_ctx *  dctx,
	const struct slbt_txtfile_ctx * tctx,
	const char *                    var,
	const char                      space,
	char                            (*val)[PATH_MAX])
{
	const char **   pline;
	const char *    mark;
	const char *    match;
	ssize_t         len;
	int             cint;

	/* init */
	match = 0;
	len   = strlen(var);

	/* search for ^var= */
	for (pline=tctx->txtlinev; !match && *pline; pline++) {
		if (!strncmp(*pline,var,len)) {
			if (isspace((*pline)[len]) || ((*pline)[len] == '=')) {
				mark = &(*pline)[len];

				for (; isspace(cint = *mark); )
					mark++;

				if (mark[0] != '=')
					return SLBT_CUSTOM_ERROR(
						dctx,
						SLBT_ERR_MKVARS_PARSE);

				mark++;

				for (; isspace(cint = *mark); )
					mark++;

				match = mark;
			}
		}
	}

	/* not found? */
	if (!match) {
		(*val)[0] = '\0';
		return 0;
	}

	/* validate */
	for (mark=match; *mark; mark++) {
		if ((*mark >= 'a') && (*mark <= 'z'))
			(void)0;

		else if ((*mark >= 'A') && (*mark <= 'Z'))
			(void)0;

		else if ((*mark >= '0') && (*mark <= '9'))
			(void)0;

		else if ((*mark == '+') || (*mark == '-'))
			(void)0;

		else if ((*mark == '/') || (*mark == '@'))
			(void)0;

		else if ((*mark == '.') || (*mark == '_'))
			(void)0;

		else if ((*mark == ':') || (*mark == space))
			(void)0;

		else
			return SLBT_CUSTOM_ERROR(
				dctx,
				SLBT_ERR_MKVARS_PARSE);
	}

	/* all done */
	strcpy(*val,match);

	return 0;
}

slbt_hidden int slbt_get_mkvars_flags(
	struct slbt_driver_ctx *	dctx,
	const char *			mkvars,
	uint64_t *			flags)
{
	struct slbt_driver_ctx_impl *   ctx;
	struct slbt_txtfile_ctx *       confctx;
	char *                          dash;
	uint64_t			optshared;
	uint64_t			optstatic;
	char                            val[PATH_MAX];

	/* driver context (ar, ranlib, cc) */
	ctx = slbt_get_driver_ictx(dctx);

	/* cache the makefile in library friendly form) */
	if (slbt_lib_get_txtfile_ctx(dctx,mkvars,&ctx->mkvarsctx) < 0)
		return SLBT_NESTED_ERROR(dctx);

	confctx = ctx->mkvarsctx;

	/* scan */
	optshared = 0;
	optstatic = 0;

	/* slibtool */
	if (slbt_get_mkvars_var(dctx,confctx,"SLIBTOOL",0,&val) < 0)
		return SLBT_NESTED_ERROR(dctx);

	if ((dash = strrchr(val,'-'))) {
		if (!strcmp(dash,"-shared")) {
			optshared = SLBT_DRIVER_SHARED;
			optstatic = SLBT_DRIVER_DISABLE_STATIC;

		} else if (!strcmp(dash,"-static")) {
			optshared = SLBT_DRIVER_DISABLE_SHARED;
			optstatic = SLBT_DRIVER_STATIC;
		} else {
			return SLBT_CUSTOM_ERROR(
				dctx,
				SLBT_ERR_MKVARS_PARSE);
		}
	} else {
		optshared = SLBT_DRIVER_SHARED;
		optstatic = SLBT_DRIVER_STATIC;
	}

	*flags = optshared | optstatic;

	/* host */
	if (!ctx->cctx.host.host) {
		if (slbt_get_mkvars_var(dctx,confctx,"host",0,&val) < 0)
			return SLBT_NESTED_ERROR(dctx);

		if (val[0] && !(ctx->host.host = strdup(val)))
			return SLBT_SYSTEM_ERROR(dctx,0);

		ctx->cctx.host.host = ctx->host.host;
	}


	/* ar tool */
	if (!ctx->cctx.host.ar) {
		if (slbt_get_mkvars_var(dctx,confctx,"AR",0x20,&val) < 0)
			return SLBT_NESTED_ERROR(dctx);

		if (val[0] && !(ctx->host.ar = strdup(val)))
			return SLBT_SYSTEM_ERROR(dctx,0);

		ctx->cctx.host.ar = ctx->host.ar;
	}


	/* nm tool */
	if (!ctx->cctx.host.nm) {
		if (slbt_get_mkvars_var(dctx,confctx,"NM",0x20,&val) < 0)
			return SLBT_NESTED_ERROR(dctx);

		if (val[0] && !(ctx->host.nm = strdup(val)))
			return SLBT_SYSTEM_ERROR(dctx,0);

		ctx->cctx.host.nm = ctx->host.nm;
	}


	/* ranlib tool */
	if (!ctx->cctx.host.ranlib) {
		if (slbt_get_mkvars_var(dctx,confctx,"RANLIB",0x20,&val) < 0)
			return SLBT_NESTED_ERROR(dctx);

		if (val[0] && !(ctx->host.ranlib = strdup(val)))
			return SLBT_SYSTEM_ERROR(dctx,0);

		ctx->cctx.host.ranlib = ctx->host.ranlib;
	}


	/* as tool (optional) */
	if (!ctx->cctx.host.as) {
		if (slbt_get_mkvars_var(dctx,confctx,"AS",0x20,&val) < 0)
			return SLBT_NESTED_ERROR(dctx);

		if (val[0] && !(ctx->host.as = strdup(val)))
			return SLBT_SYSTEM_ERROR(dctx,0);


		ctx->cctx.host.as = ctx->host.as;
	}


	/* dlltool tool (optional) */
	if (!ctx->cctx.host.dlltool) {
		if (slbt_get_mkvars_var(dctx,confctx,"DLLTOOL",0x20,&val) < 0)
			return SLBT_NESTED_ERROR(dctx);

		if (val[0] && !(ctx->host.dlltool = strdup(val)))
			return SLBT_SYSTEM_ERROR(dctx,0);

		ctx->cctx.host.dlltool = ctx->host.dlltool;
	}


	/* all done */
	return 0;
}