1 files changed, 77 insertions, 0 deletions
diff --git a/src/isode/compat/sprintb.c b/src/isode/compat/sprintb.c
new file mode 100644
index 000000000..b1c4136d7
--- /dev/null
+++ b/src/isode/compat/sprintb.c
@@ -0,0 +1,77 @@
+/* sprintb.c - sprintf on bits */
+
+#ifndef	lint
+static char *rcsid = "$Header$";
+#endif
+
+/* 
+ * $Header$
+ *
+ *
+ * $Log$
+ * Revision 1.1  1994/06/10 03:28:18  eichin
+ * autoconfed isode for kerberos work
+ *
+ * Revision 1.1  94/06/10  03:16:46  eichin
+ * autoconfed isode for kerberos work
+ * 
+ * Revision 1.1  1994/05/31 20:34:46  eichin
+ * reduced-isode release from /mit/isode/isode-subset/src
+ *
+ * Revision 8.0  91/07/17  12:18:13  isode
+ * Release 7.0
+ * 
+ * 
+ */
+
+/*
+ *				  NOTICE
+ *
+ *    Acquisition, use, and distribution of this module and related
+ *    materials are subject to the restrictions of a license agreement.
+ *    Consult the Preface in the User's Manual for the full terms of
+ *    this agreement.
+ *
+ */
+
+
+/* LINTLIBRARY */
+
+#include <stdio.h>
+#include "general.h"
+#include "manifest.h"
+
+/*  */
+
+char  *sprintb (v, bits)
+register int	v;
+register char  *bits;
+{
+    register int    i,
+                    j;
+    register char   c,
+                   *bp;
+    static char buffer[BUFSIZ];
+
+    (void) sprintf (buffer, bits && *bits == 010 ? "0%o" : "0x%x", v);
+    bp = buffer + strlen (buffer);
+
+    if (bits && *++bits) {
+	j = 0;
+	*bp++ = '<';
+	while (i = *bits++)
+	    if (v & (1 << (i - 1))) {
+		if (j++)
+		    *bp++ = ',';
+		for (; (c = *bits) > 32; bits++)
+		    *bp++ = c;
+	    }
+	    else
+		for (; *bits > 32; bits++)
+		    continue;
+	*bp++ = '>';
+	*bp = NULL;
+    }
+
+    return buffer;
+}