1 files changed, 43 insertions, 0 deletions
diff --git a/src/internal/treebnf_errinfo_impl.c b/src/internal/treebnf_errinfo_impl.c
new file mode 100644
index 0000000..a639f27
--- /dev/null
+++ b/src/internal/treebnf_errinfo_impl.c
@@ -0,0 +1,43 @@
+/**************************************************************/
+/*  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;
+}