date and time created 83/03/09 16:23:12 by ralph

SCCS-vsn: old/lib2648/rdchar.c 4.1

diff --git a/usr/src/old/lib2648/rdchar.c b/usr/src/old/lib2648/rdchar.c
new file mode 100644 (file)
index 0000000..c98f746
--- /dev/null
+++ b/usr/src/old/lib2648/rdchar.c
@@ -0,0 +1,26 @@
+/*     rdchar.c        4.1     83/03/09        */
+/*
+ * rdchar: returns a readable representation of an ASCII char, using ^ notation.
+ */
+
+#include <ctype.h>
+
+char *rdchar(c)
+char c;
+{
+       static char ret[4];
+       register char *p;
+
+       /*
+        * Due to a bug in isprint, this prints spaces as ^`, but this is OK
+        * because we want something to show up on the screen.
+        */
+       ret[0] = ((c&0377) > 0177) ? '\'' : ' ';
+       c &= 0177;
+       ret[1] = isprint(c) ? ' ' : '^';
+       ret[2] = isprint(c) ?  c  : c^0100;
+       ret[3] = 0;
+       for (p=ret; *p==' '; p++)
+               ;
+       return (p);
+}