/*******************************************************************/
/*  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 <string.h>
#include <limits.h>
 
#include <slibtool/slibtool.h>
#include "slibtool_driver_impl.h"
#include "slibtool_snprintf_impl.h"
#include "slibtool_errinfo_impl.h"
#include "slibtool_visibility_impl.h"
#include "slibtool_m4fake_impl.h"
 
slbt_hidden int slbt_m4fake_expand_cmdarg(
	const struct slbt_driver_ctx *  dctx,
	struct slbt_txtfile_ctx *       sctx,
	const char *                    cmdname,
	char                            (*argbuf)[PATH_MAX])
{
	const char **             pline;
	size_t                    slen;
	const char *              mark;
	const char *              match;
	const char *              cap;
	int                       fquote;
	char                      varbuf[PATH_MAX];
	char                      strbuf[PATH_MAX];
 
	memset(*argbuf,0,sizeof(*argbuf));
 
	slen  = strlen(cmdname);
	pline = sctx->txtlinev;
	match = 0;
 
	for (; !match && *pline; ) {
		if (!strncmp(*pline,cmdname,slen)) {
			if ((*pline)[slen] == '(') {
				mark  = &(*pline)[slen];
				cap   = ++mark;
 
				for (fquote=0; !match && *cap; ) {
					if (*cap == '[')
						fquote++;
 
					else if ((*cap == ']') && fquote)
						fquote--;
 
					else if ((*cap == ')') && !fquote)
						match = cap;
 
					if (!match)
						cap++;
				}
 
				if (!match)
					return SLBT_CUSTOM_ERROR(
						dctx,
						SLBT_ERR_FLOW_ERROR);
			}
		}
 
		if (!match)
			pline++;
	}
 
	if (!match)
		return 0;
 
	strncpy(strbuf,mark,cap-mark);
	strbuf[cap-mark] = '\0';
 
	mark = strbuf;
	slen = strlen(mark);
 
	if ((mark[0] == '[') && (mark[--slen] == ']')) {
		strcpy(*argbuf,++mark);
		(*argbuf)[--slen] = '\0';
		return 0;
	}
 
	if (slbt_snprintf(
			varbuf,sizeof(varbuf),
			"AC_DEFUN([%s],",
			strbuf) < 0)
		return SLBT_BUFFER_ERROR(dctx);
 
	slen = strlen(varbuf);
 
	for (--pline; pline >= sctx->txtlinev; pline--) {
		if (!strncmp(*pline,varbuf,slen)) {
			mark  = &(*pline)[slen];
			cap   = mark;
			match = 0;
 
			for (fquote=0; !match && *cap; ) {
				if (*cap == '[')
					fquote++;
 
				else if ((*cap == ']') && fquote)
					fquote--;
 
				else if ((*cap == ')') && !fquote)
					match = cap;
 
				if (!match)
					cap++;
			}
 
			if (!match)
				return SLBT_CUSTOM_ERROR(
					dctx,
					SLBT_ERR_FLOW_ERROR);
 
			strncpy(strbuf,mark,cap-mark);
			strbuf[cap-mark] = '\0';
 
			mark = strbuf;
			slen = strlen(mark);
 
			if ((mark[0] == '[') && (mark[--slen] == ']')) {
				strcpy(*argbuf,++mark);
				(*argbuf)[--slen] = '\0';
				return 0;
			}
 
			if (slbt_snprintf(
					varbuf,sizeof(varbuf),
					"AC_DEFUN([%s],",
					strbuf) < 0)
				return SLBT_BUFFER_ERROR(dctx);
 
			slen = strlen(varbuf);
		}
	}
 
	strcpy(*argbuf,strbuf);
 
	return 0;
}