Further specification of interface: message handler.

Start of specification of callbacks.

diff --git a/message.c b/message.c
index 5b723cda92279afcabae85d4d0492605b595a464..6c6bd816e7d6320ecea0e25ad452c1b619dbdb53 100644 (file)
--- a/message.c
+++ b/message.c
@@ -11,6 +11,68 @@
 /* $Name$ */
 
 #include "gedcom.h"
+#include "external.h"
+
+#define INITIAL_BUF_SIZE 5
+char *mess_buffer = NULL;
+size_t bufsize;
+
+Gedcom_msg_handler msg_handler = NULL;
+
+void gedcom_set_message_handler(Gedcom_msg_handler func)
+{
+  msg_handler = func;
+}
+
+void reset_mess_buffer()
+{
+  if (mess_buffer != NULL)
+    mess_buffer[0] = '\0';
+}
+
+void init_mess_buffer()
+{
+  if (mess_buffer == NULL) {
+    mess_buffer = (char *)malloc(INITIAL_BUF_SIZE);
+    mess_buffer[0] = '\0';
+    bufsize = INITIAL_BUF_SIZE;
+  }
+}
+
+int safe_buf_vappend(char *s, va_list ap)
+{
+  int res;
+  int len;
+  init_mess_buffer();
+  len = strlen(mess_buffer);
+  while (1) {
+    char *buf_ptr = mess_buffer + len;
+    int rest_size = bufsize - len;
+    
+    res = vsnprintf(buf_ptr, rest_size, s, ap);
+    
+    if (res > -1 && res < rest_size) {
+      break;
+    }
+    else  {
+      bufsize *= 2;
+      mess_buffer = realloc(mess_buffer, bufsize);
+    }
+  }
+  return res;  
+}
+
+int safe_buf_append(char *s, ...)
+{
+  int res;
+  va_list ap;
+  
+  va_start(ap, s);
+  res = safe_buf_vappend(s, ap);
+  va_end(ap);
+  
+  return res;
+}
 
 int gedcom_message(char* s, ...)
 {
@@ -18,10 +80,12 @@ int gedcom_message(char* s, ...)
   va_list ap;
 
   va_start(ap, s);
-  res = vfprintf(stderr, s, ap);
-  fprintf(stderr, "\n");
+  reset_mess_buffer();
+  res = safe_buf_vappend(s, ap);
   va_end(ap);
-  
+  safe_buf_append("\n");
+  if (msg_handler)
+    (*msg_handler)(MESSAGE, mess_buffer);
   return res;
 }
 
@@ -30,11 +94,14 @@ int gedcom_warning(char* s, ...)
   int res;
   va_list ap;
 
+  reset_mess_buffer();
+  safe_buf_append("Warning on line %d: ", line_no);
   va_start(ap, s);
-  fprintf(stderr, "Warning on line %d: ", line_no);
-  res = vfprintf(stderr, s, ap);
-  fprintf(stderr, "\n");
+  res = safe_buf_vappend(s, ap);
   va_end(ap);
+  safe_buf_append("\n");
+  if (msg_handler)
+    (*msg_handler)(WARNING, mess_buffer);
   
   return res;
 }
@@ -44,11 +111,14 @@ int gedcom_error(char* s, ...)
   int res;
   va_list ap;
 
+  reset_mess_buffer();
+  safe_buf_append("Error on line %d: ", line_no);
   va_start(ap, s);
-  fprintf(stderr, "Error on line %d: ", line_no);
-  res = vfprintf(stderr, s, ap);
-  fprintf(stderr, "\n");
+  res = safe_buf_vappend(s, ap);
   va_end(ap);
+  safe_buf_append("\n");
+  if (msg_handler)
+    (*msg_handler)(ERROR, mess_buffer);
   
   return res;
 }