From 02e59c946d51faf976a85610e44d7b0ccf4a6e59 Mon Sep 17 00:00:00 2001 From: midipix Date: Mon, 29 Apr 2024 02:39:30 +0000 Subject: driver: created program skeleton. --- src/internal/treebnf_errinfo_impl.c | 43 +++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 src/internal/treebnf_errinfo_impl.c (limited to 'src/internal/treebnf_errinfo_impl.c') 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 +#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; +} -- cgit v1.2.3