/**************************************************************/
/*  treebnf: a tree oriented bnf library                      */
/*  Copyright (C) 2024  SysDeer Technologies, LLC             */
/*  Released under GPLv2 and GPLv3; see COPYING.TREEBNF.      */
/**************************************************************/

#include <treebnf/treebnf.h>
#include "treebnf_driver_impl.h"
#include "treebnf_errinfo_impl.h"
#include "treebnf_visibility_impl.h"

tbnf_hidden int tbnf_record_error(
	const struct tbnf_driver_ctx *	dctx,
	int				esyscode,
	int				elibcode,
	const char *			efunction,
	int				eline,
	unsigned			eflags,
	void *				eany)
{
	struct tbnf_driver_ctx_impl *	ictx;
	struct tbnf_error_info *	erri;

	ictx = tbnf_get_driver_ictx(dctx);

	if (ictx->errinfp == ictx->erricap)
		return -1;

	*ictx->errinfp = &ictx->erribuf[ictx->errinfp - ictx->erriptr];
	erri = *ictx->errinfp;

	erri->edctx     = dctx;
	erri->esyscode  = esyscode;
	erri->elibcode  = elibcode;
	erri->efunction = efunction;
	erri->eline     = eline;
	erri->eflags    = eflags;
	erri->eany      = (eany && (esyscode == ENOENT)) ? strdup(eany) : eany;

	ictx->errinfp++;

	return -1;
}