}
}
+dump_bin(f, str)
+ register FILE *f;
+ register char *str;
+{
+ register char *ibp = str;
+ register int c; /* PCC doesn't put chars in registers.. */
+ register int t;
+
+ for (; c = (unsigned char) *ibp; ibp++) {
+ switch(act[c]) {
+ case 1:
+ if (putc1('\\', f) < 0) wpunt();
+ /* fall thru.. */
+ case 0:
+ if (putc1(c, f) < 0) wpunt();
+
+ break;
+ case 2:
+ if (putc1('\\', f) < 0) wpunt();
+ t = ((c>>6)&7) + '0';
+ if (putc1(t,f) < 0) wpunt();
+ t = ((c>>3)&7) + '0';
+ if (putc1(t,f) < 0) wpunt();
+ t = (c&7) + '0';
+ if (putc1(t,f) < 0) wpunt();
+ break;
+
+ default:
+ punt("Can't get here");
+ }
+ }
+}
+
safe_close(stream)
FILE *stream;
{