1 files changed, 297 insertions, 0 deletions
diff --git a/src/core/librcutil/debug.c b/src/core/librcutil/debug.c
new file mode 100644
index 0000000..2a1b9e4
--- /dev/null
+++ b/src/core/librcutil/debug.c
@@ -0,0 +1,297 @@
+/*
+ * debug.c
+ *
+ * Simle debugging/logging macro's and functions.
+ *
+ * Copyright (C) 2004,2005 Martin Schlemmer <azarah@nosferatu.za.org>
+ *
+ *
+ *      This program is free software; you can redistribute it and/or modify it
+ *      under the terms of the GNU General Public License as published by the
+ *      Free Software Foundation version 2 of the License.
+ *
+ *      This program is distributed in the hope that it will be useful, but
+ *      WITHOUT ANY WARRANTY; without even the implied warranty of
+ *      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *      General Public License for more details.
+ *
+ *      You should have received a copy of the GNU General Public License along
+ *      with this program; if not, write to the Free Software Foundation, Inc.,
+ *      675 Mass Ave, Cambridge, MA 02139, USA.
+ *
+ * $Header$
+ */
+
+#include <errno.h>
+#include <stdarg.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+#include <fcntl.h>
+
+#include "rcscripts/rcutil.h"
+
+static char log_domain[] = "rcscripts";
+
+void
+debug_message (const char *file, const char *func, int line,
+	       const char *format, ...)
+{
+  va_list arg;
+  char *format_str;
+  int length;
+
+  save_errno ();
+
+  length = strlen (log_domain) + strlen ("():       ") + 1;
+  /* Do not use xmalloc() here, else we may have recursive issues */
+  format_str = malloc (length);
+  if (NULL == format_str)
+    {
+      fprintf (stderr, "(%s) error: in %s, function %s(), line %i:\n",
+	       log_domain, __FILE__, __FUNCTION__, __LINE__);
+      fprintf (stderr, "(%s)        Failed to allocate buffer!\n",
+	       log_domain);
+      abort ();
+    }
+
+  snprintf (format_str, length, "(%s)      ", log_domain);
+
+  va_start (arg, format);
+
+#if !defined(RC_DEBUG)
+  /* Bit of a hack, as how we do things tend to cause seek
+   * errors when reading the parent/child pipes */
+  /* if ((0 != errno) && (ESPIPE != errno)) { */
+  if (0 != saved_errno)
+    {
+#endif
+      if (0 != saved_errno)
+	fprintf (stderr, "(%s) error: ", log_domain);
+      else
+	fprintf (stderr, "(%s) debug: ", log_domain);
+
+      fprintf (stderr, "in %s, function %s(), line %i:\n", file, func, line);
+
+      fprintf (stderr, "%s  ", format_str);
+      vfprintf (stderr, format, arg);
+
+#if defined(RC_DEBUG)
+      if (0 != saved_errno)
+	{
+#endif
+	  perror (format_str);
+#if defined(RC_DEBUG)
+	}
+#endif
+#if !defined(RC_DEBUG)
+    }
+#endif
+
+  va_end (arg);
+
+  free (format_str);
+  restore_errno ();
+}
+
+inline bool
+check_ptr (const void *ptr)
+{
+  if (NULL == ptr)
+    return FALSE;
+
+  return TRUE;
+}
+
+inline bool
+check_str (const char *str)
+{
+  if ((NULL == str) || (0 == strlen (str)))
+    return FALSE;
+
+  return TRUE;
+}
+
+inline bool
+check_strv (char **str)
+{
+  if ((NULL == str) || (NULL == *str) || (0 == strlen (*str)))
+    return FALSE;
+
+  return TRUE;
+}
+
+inline bool
+check_fd (int fd)
+{
+  if ((0 >= fd) || (-1 == fcntl (fd, F_GETFL)))
+    return FALSE;
+
+  return TRUE;
+}
+
+inline bool
+check_fp (FILE *fp)
+{
+  if ((NULL == fp) || (-1 == fileno (fp)))
+    return FALSE;
+
+  return TRUE;
+}
+
+inline bool
+__check_arg_ptr (const void *ptr, const char *file, const char *func, size_t line)
+{
+  if (!check_ptr (ptr))
+    {
+      errno = EINVAL;
+
+      debug_message (file, func, line, "Invalid pointer passed!\n");
+
+      return FALSE;
+    }
+
+  return TRUE;
+}
+
+inline bool
+__check_arg_str (const char *str, const char *file, const char *func, size_t line)
+{
+  if (!check_str (str))
+    {
+      errno = EINVAL;
+
+      debug_message (file, func, line, "Invalid string passed!\n");
+
+      return FALSE;
+    }
+
+  return TRUE;
+}
+
+inline bool
+__check_arg_strv (char **str, const char *file, const char *func, size_t line)
+{
+  if (!check_strv (str))
+    {
+      errno = EINVAL;
+
+      debug_message (file, func, line, "Invalid string array passed!\n");
+
+      return FALSE;
+    }
+
+  return TRUE;
+}
+
+inline bool
+__check_arg_fd (int fd, const char *file, const char *func, size_t line)
+{
+  if (!check_fd (fd))
+    {
+      errno = EBADF;
+
+      debug_message (file, func, line, "Invalid file descriptor passed!\n");
+
+      return FALSE;
+    }
+
+  return TRUE;
+}
+
+inline bool
+__check_arg_fp (FILE *fp, const char *file, const char *func, size_t line)
+{
+  if (!check_fp (fp))
+    {
+      errno = EBADF;
+
+      debug_message (file, func, line, "Invalid file descriptor passed!\n");
+
+      return FALSE;
+    }
+
+  return TRUE;
+}
+
+inline void *
+__xcalloc(size_t nmemb, size_t size, const char *file,
+	  const char *func, size_t line)
+{
+  void *new_ptr;
+
+  new_ptr = calloc (nmemb, size);
+  if (NULL == new_ptr)
+    {
+      /* Set errno in case specific malloc() implementation does not */
+      errno = ENOMEM;
+
+      debug_message (file, func, line, "Failed to allocate buffer!\n");
+
+      return NULL;
+    }
+
+  return new_ptr;
+}
+
+inline void *
+__xmalloc (size_t size, const char *file, const char *func, size_t line)
+{
+  void *new_ptr;
+
+  new_ptr = malloc (size);
+  if (NULL == new_ptr)
+    {
+      /* Set errno in case specific malloc() implementation does not */
+      errno = ENOMEM;
+
+      debug_message (file, func, line, "Failed to allocate buffer!\n");
+
+      return NULL;
+    }
+
+  return new_ptr;
+}
+
+inline void *
+__xrealloc (void *ptr, size_t size, const char *file,
+	    const char *func, size_t line)
+{
+  void *new_ptr;
+
+  new_ptr = realloc (ptr, size);
+  if (NULL == new_ptr)
+    {
+      /* Set errno in case specific realloc() implementation does not */
+      errno = ENOMEM;
+
+      debug_message (file, func, line, "Failed to reallocate buffer!\n");
+
+      return NULL;
+    }
+
+  return new_ptr;
+}
+
+inline char *
+__xstrndup (const char *str, size_t size, const char *file,
+	    const char *func, size_t line)
+{
+  char *new_ptr;
+
+  new_ptr = rc_strndup (str, size);
+  if (NULL == new_ptr)
+    {
+      /* Set errno in case specific realloc() implementation does not */
+      errno = ENOMEM;
+
+      debug_message (file, func, line,
+		     "Failed to duplicate string via rc_strndup() !\n");
+
+      return NULL;
+    }
+
+  return new_ptr;
+}
+