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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
/*************************************************************************
* Copyright (c) 2011 AT&T Intellectual Property
* All rights reserved. This program and the accompanying materials
* are made available under the terms of the Eclipse Public License v1.0
* which accompanies this distribution, and is available at
* https://www.eclipse.org/legal/epl-v10.html
*
* Contributors: Details at https://graphviz.org
*************************************************************************/
/*
* Glenn Fowler
* AT&T Research
*
* expression library
*/
#include <assert.h>
#include <expr/exlib.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <util/exit.h>
/*
* library error handler
*/
static char *make_msg(const char *format, va_list ap) {
// retrieve buffered message
char buf[64];
excontext(expr.program, buf, sizeof(buf));
// how many bytes do we need to construct the message?
size_t len = (size_t)snprintf(NULL, 0, "%s\n -- ", buf);
{
va_list ap2;
va_copy(ap2, ap);
int r = vsnprintf(NULL, 0, format, ap2);
va_end(ap2);
if (r < 0) {
return strdup("malformed format");
}
len += (size_t)r + 1; // +1 for NUL
}
char *s = malloc(len);
if (s == NULL) {
return NULL;
}
int offset = snprintf(s, len, "%s\n -- ", buf);
assert(offset > 0);
vsnprintf(s + offset, len - (size_t)offset, format, ap);
return s;
}
void
exerror(const char* format, ...)
{
if (expr.program->disc->errorf && !expr.program->errors)
{
va_list ap;
expr.program->errors = 1;
va_start(ap, format);
char *s = make_msg(format, ap);
va_end(ap);
expr.program->disc->errorf(expr.program, expr.program->disc, 2, "%s",
s ? s : "out of space");
free(s);
}
}
void
exwarn(const char *format, ...)
{
if (expr.program->disc->errorf) {
va_list ap;
va_start(ap, format);
char *s = make_msg(format, ap);
va_end(ap);
expr.program->disc->errorf(expr.program, expr.program->disc,
ERROR_WARNING, "%s", s ? s : "out of space");
free(s);
}
}
|
