blob: a639f271c49e9d8875ef869eee29fce553cc9fa8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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;
}
|