--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/intercom/gsm/debug.c	Fri Jun 25 09:57:52 2010 +0200
@@ -0,0 +1,68 @@
+/*
+ * Copyright 1992 by Jutta Degener and Carsten Bormann, Technische
+ * Universitaet Berlin.  See the accompanying file "COPYRIGHT" for
+ * details.  THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
+ */
+
+/* $Header: /home/kbs/jutta/src/gsm/gsm-1.0/src/RCS/debug.c,v 1.2 1993/01/29 18:22:20 jutta Exp $ */
+
+#include "private.h"
+
+#ifndef	NDEBUG
+
+/* If NDEBUG _is_ defined and no debugging should be performed,
+ * calls to functions in this module are #defined to nothing
+ * in private.h.
+ */
+
+#include <stdio.h>
+#include "proto.h"
+
+void gsm_debug_words P4((name, from, to, ptr),
+  char *name, int from, int to, word * ptr)
+{
+  int nprinted = 0;
+
+  fprintf(stderr, "%s [%d .. %d]: ", name, from, to);
+  while (from <= to) {
+    fprintf(stderr, "%d ", ptr[from]);
+    from++;
+    if (nprinted++ >= 7) {
+      nprinted = 0;
+      if (from < to)
+        putc('\n', stderr);
+    }
+  }
+  putc('\n', stderr);
+}
+
+void gsm_debug_longwords P4((name, from, to, ptr),
+  char *name, int from, int to, longword * ptr)
+{
+  int nprinted = 0;
+
+  fprintf(stderr, "%s [%d .. %d]: ", name, from, to);
+  while (from <= to) {
+
+    fprintf(stderr, "%d ", ptr[from]);
+    from++;
+    if (nprinted++ >= 7) {
+      nprinted = 0;
+      if (from < to)
+        putc('\n', stderr);
+    }
+  }
+  putc('\n', stderr);
+}
+
+void gsm_debug_longword P2((name, value), char *name, longword value)
+{
+  fprintf(stderr, "%s: %d\n", name, (long) value);
+}
+
+void gsm_debug_word P2((name, value), char *name, word value)
+{
+  fprintf(stderr, "%s: %d\n", name, (long) value);
+}
+
+#endif