1 files changed, 87 insertions, 0 deletions
diff --git a/src/c_fl_error.cpp b/src/c_fl_error.cpp
new file mode 100644
index 0000000..17c45a0
--- /dev/null
+++ b/src/c_fl_error.cpp
@@ -0,0 +1,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;
+}
+
+