chiark / gitweb /
debugging for thing that crashed
[innduct.git] / frontends / encode.c
1 /*  $Id: encode.c 6119 2003-01-13 07:59:39Z rra $
2 **
3 **  Produce a seven-bit printable encoding of stdin on stdout.
4 **  From @(#)encode.c 1.3 5/15/85, distributed with B2.11 News.
5 **
6 **  The encoding uses characters from 0x20 (' ') through 0x7A ('z').
7 **  (That fits nicely into the UUCP 'f' protocol by Piet Beertema.) First,
8 **  expand three eight-bit charcters into four six-bit ones.  Collect
9 **  until we have 13, and spread the last one over the first 12, so that
10 **  we have 12 6.5-bit characters.  Since there are very few half-bit
11 **  machines, collect them into pairs, making six 13-bit characters.  We
12 **  can do this as A * 91 + B where A and B are less then 91 after we add
13 **  0x20 to make it printable.
14 **
15 **  And if you thought that was unclear, then we won't even get into the
16 **  terminating conditions!
17 */
18
19 #include "config.h"
20 #include "clibrary.h"
21
22
23 /*
24 **  These characters can't appear in normal output, so we use them to
25 **  mark that the data that follows is the terminator.  The character
26 **  immediately following this pair is the length of the terminator (which
27 **  otherwise might be indeterminable)
28 */
29 #define ENDMARK1        ((90 * 91 + 90) / 91 + ' ')
30 #define ENDMARK2        ((90 * 91 + 90) % 91 + ' ')
31
32 static char     Buffer[13];
33 static int      Count;
34
35
36 static void
37 dumpcode(char *p, int n)
38 {
39     int last;
40     int c;
41
42     if (n == 13) {
43         n--;
44         last = p[12];
45     }
46     else if (n & 1)
47         last = 1 << (6 - 1);
48     else
49         last = 0;
50
51     for (; n > 0; n -= 2) {
52         c = *p++ << 6;
53         c |= *p++;
54         if (last & (1 << (6 - 1)))
55             c |= (1 << 12);
56         last <<= 1;
57
58         putchar((c / 91) + ' ');
59         putchar((c % 91) + ' ');
60     }
61 }
62
63 static void
64 flushout(void)
65 {
66     putchar(ENDMARK1);
67     putchar(ENDMARK2);
68     putchar(Count + ' ');
69     dumpcode(Buffer, Count);
70 }
71
72
73 static void
74 encode(char *dest, int n)
75 {
76     char        *p;
77     int i;
78     int j;
79     char                b4[4];
80
81     b4[0] = (dest[0] >> 2) & 0x3F;
82     b4[1] = ((dest[0] & 0x03) << 4) | ((dest[1] >> 4) & 0x0F);
83     b4[2] = ((dest[1] & 0x0F) << 2) | ((dest[2] >> 6) & 0x03);
84     b4[3] = (char)(n == 3 ? dest[2] & 0x3F : n);
85
86     for (p = b4, i = Count, dest = &Buffer[i], j = 4; --j >= 0; i++) {
87         if (i == 13) {
88             dumpcode(Buffer, 13);
89             dest = Buffer;
90             i = 0;
91         }
92         *dest++ = *p++;
93     }
94     Count = i;
95 }
96
97
98 int
99 main(void)
100 {
101     char        *p;
102     int c;
103     char                b3[3];
104
105     for (p = b3; (c = getchar()) != EOF; ) {
106         *p++ = (char)c;
107         if (p == &b3[3]) {
108             encode(b3, 3);
109             p = b3;
110         }
111     }
112     encode(b3, (int)(p - b3));
113     flushout();
114     exit(0);
115     /* NOTREACHED */
116 }