From bbcd7d3ba187f5b2f4ecec766436d36514a34ce4 Mon Sep 17 00:00:00 2001
From: midipix <writeonce@midipix.org>
Date: Wed, 26 Oct 2016 20:54:25 -0400
Subject: internals: error trace implementation: added amgc_record_error().

---
 project/common.mk                    |  1 +
 project/headers.mk                   |  1 +
 src/internal/apimagic_errinfo_impl.c | 39 +++++++++++++++++++
 src/internal/apimagic_errinfo_impl.h | 74 ++++++++++++++++++++++++++++++++++++
 4 files changed, 115 insertions(+)
 create mode 100644 src/internal/apimagic_errinfo_impl.c
 create mode 100644 src/internal/apimagic_errinfo_impl.h

diff --git a/project/common.mk b/project/common.mk
index 7b45aa3..7bae076 100644
--- a/project/common.mk
+++ b/project/common.mk
@@ -4,6 +4,7 @@ COMMON_SRCS = \
 	src/driver/amgc_paradigm_meta.c \
 	src/driver/amgc_unit_action.c \
 	src/driver/amgc_unit_ctx.c \
+	src/internal/apimagic_errinfo_impl.c \
 	src/logic/amgc_enum_members.c \
 	src/logic/amgc_init_unit_meta.c \
 	src/logic/amgc_map_input.c \
diff --git a/project/headers.mk b/project/headers.mk
index 6c02ad1..1f50364 100644
--- a/project/headers.mk
+++ b/project/headers.mk
@@ -5,5 +5,6 @@ API_HEADERS = \
 INTERNAL_HEADERS = \
 	$(PROJECT_DIR)/src/internal/argv/argv.h \
 	$(PROJECT_DIR)/src/internal/$(PACKAGE)_driver_impl.h \
+	$(PROJECT_DIR)/src/internal/$(PACKAGE)_errinfo_impl.h \
 
 ALL_HEADERS = $(API_HEADERS) $(INTERNAL_HEADERS)
diff --git a/src/internal/apimagic_errinfo_impl.c b/src/internal/apimagic_errinfo_impl.c
new file mode 100644
index 0000000..589a140
--- /dev/null
+++ b/src/internal/apimagic_errinfo_impl.c
@@ -0,0 +1,39 @@
+#include <apimagic/apimagic.h>
+#include "apimagic_driver_impl.h"
+#include "apimagic_errinfo_impl.h"
+
+int amgc_record_error(
+	const struct amgc_driver_ctx *	dctx,
+	int				esyscode,
+	int				elibcode,
+	const char *			efunction,
+	int				eline,
+	unsigned			eflags,
+	void *				eany)
+{
+	struct amgc_driver_ctx_impl *	ictx;
+	struct amgc_error_info *	erri;
+
+	ictx = amgc_get_driver_ictx(dctx);
+
+	if (ictx->errinfp == ictx->erricap)
+		return -1;
+
+	*ictx->errinfp = &ictx->erribuf[ictx->errinfp - ictx->erriptr];
+	erri = *ictx->errinfp;
+
+	erri->euctx     = ictx->euctx;
+	erri->eunit     = ictx->eunit;
+
+	erri->edctx     = dctx;
+	erri->esyscode  = esyscode;
+	erri->elibcode  = elibcode;
+	erri->efunction = efunction;
+	erri->eline     = eline;
+	erri->eflags    = eflags;
+	erri->eany      = eany;
+
+	ictx->errinfp++;
+
+	return -1;
+}
diff --git a/src/internal/apimagic_errinfo_impl.h b/src/internal/apimagic_errinfo_impl.h
new file mode 100644
index 0000000..91dbc7b
--- /dev/null
+++ b/src/internal/apimagic_errinfo_impl.h
@@ -0,0 +1,74 @@
+#include <errno.h>
+#include <apimagic/apimagic.h>
+
+int amgc_record_error(
+	const struct amgc_driver_ctx *,
+	int		esyscode,
+	int		elibcode,
+	const char *	efunction,
+	int		eline,
+	unsigned	eflags,
+	void *		ectx);
+
+#define AMGC_SYSTEM_ERROR(dctx)           \
+	amgc_record_error(                \
+		dctx,                     \
+		errno,                    \
+		0,                        \
+		__func__,                 \
+		__LINE__,                 \
+		AMGC_ERROR_TOP_LEVEL,     \
+		0)
+
+#define AMGC_BUFFER_ERROR(dctx)           \
+	amgc_record_error(                \
+		dctx,                     \
+		ENOBUFS,                  \
+		0,                        \
+		__func__,                 \
+		__LINE__,                 \
+		AMGC_ERROR_TOP_LEVEL,     \
+		0)
+
+#define AMGC_SPAWN_ERROR(dctx)            \
+	amgc_record_error(                \
+		dctx,                     \
+		errno,                    \
+		0,                        \
+		__func__,                 \
+		__LINE__,                 \
+		AMGC_ERROR_TOP_LEVEL      \
+		| (errno ? 0              \
+		   : AMGC_ERROR_CHILD),   \
+		0)
+
+#define AMGC_FILE_ERROR(dctx)             \
+	amgc_record_error(                \
+		dctx,                     \
+		EIO,                      \
+		0,                        \
+		__func__,                 \
+		__LINE__,                 \
+		AMGC_ERROR_TOP_LEVEL,     \
+		0)
+
+#define AMGC_CUSTOM_ERROR(dctx,elibcode)  \
+	amgc_record_error(                \
+		dctx,                     \
+		0,                        \
+		elibcode,                 \
+		__func__,                 \
+		__LINE__,                 \
+		AMGC_ERROR_TOP_LEVEL      \
+		| AMGC_ERROR_CUSTOM,      \
+		0)
+
+#define AMGC_NESTED_ERROR(dctx)           \
+	amgc_record_error(                \
+		dctx,                     \
+		0,                        \
+		0,                        \
+		__func__,                 \
+		__LINE__,                 \
+		AMGC_ERROR_NESTED,        \
+		0)
-- 
cgit v1.2.3