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
92
93
94
95
96
97
98
|
// Programmed by Jedidiah Barber
// Released into the public domain
#include <FL/Fl.H>
#include <errno.h>
#include <stdarg.h>
#include <string.h>
#include "c_fl_error.h"
// Obtaining general error messages from errno
char * get_error_message() {
return strerror(errno);
}
// 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 error_bsize = 1024;
// Some prep needed to convert vargs to a single char*
void warning_hook_prep(const char * m, ...) {
va_list args;
char buf[error_bsize];
va_start(args, m);
vsnprintf(buf, error_bsize, m, args);
va_end(args);
error_warning_hook(buf);
}
void error_hook_prep(const char * m, ...) {
va_list args;
char buf[error_bsize];
va_start(args, m);
vsnprintf(buf, error_bsize, m, args);
va_end(args);
error_error_hook(buf);
}
void fatal_hook_prep(const char * m, ...) {
va_list args;
char buf[error_bsize];
va_start(args, m);
vsnprintf(buf, error_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;
}
|
