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
|
// Programmed by Jedidiah Barber
// Released into the public domain
#include <FL/Fl.H>
#include <stdarg.h>
#include "c_fl_error.h"
// Exports from Ada
extern "C" void error_warning_hook(const char * m);
extern "C" void error_error_hook(const char * m);
extern "C" void error_fatal_hook(const char * m);
// This is the size used internally in FLTK anyway
const int bsize = 1024;
// Some prep needed to convert vargs to a single char*
void warning_hook_prep(const char * m, ...) {
va_list args;
char buf[bsize];
va_start(args, m);
vsnprintf(buf, bsize, m, args);
va_end(args);
error_warning_hook(buf);
}
void error_hook_prep(const char * m, ...) {
va_list args;
char buf[bsize];
va_start(args, m);
vsnprintf(buf, bsize, m, args);
va_end(args);
error_error_hook(buf);
}
void fatal_hook_prep(const char * m, ...) {
va_list args;
char buf[bsize];
va_start(args, m);
vsnprintf(buf, bsize, m, args);
va_end(args);
error_fatal_hook(buf);
}
// Original function pointers
void (*original_warning)(const char *, ...) = Fl::warning;
void (*original_error)(const char *, ...) = Fl::error;
void (*original_fatal)(const char *, ...) = Fl::fatal;
void fl_error_default_warning(const char * m) {
(*original_warning)(m);
}
void fl_error_default_error(const char * m) {
(*original_error)(m);
}
void fl_error_default_fatal(const char * m) {
(*original_fatal)(m);
}
// Tying it all together
void fl_error_set_hooks() {
Fl::warning = &warning_hook_prep;
Fl::error = &error_hook_prep;
Fl::fatal = &fatal_hook_prep;
}
|
