source: trunk/minix/commands/simple/uue.c@ 10

Last change on this file since 10 was 9, checked in by Mattia Monga, 13 years ago

Minix 3.1.2a

File size: 4.8 KB
Line 
1/* uue - bulletproof version of uuencode */
2
3/* Uue -- encode a file so that it's printable ascii, short lines
4 *
5 * Slightly modified from a version posted to net.sources a while back,
6 * and suitable for compilation on the IBM PC
7 *
8 * modified for Lattice C on the ST - 11.05.85 by MSD
9 * modified for ALCYON on the ST - 10-24-86 by RDR
10 * modified a little more for MWC... 02/09/87 by JPHD
11 * (An optional first argument of the form: -nnumber (e.g. -500), will
12 * produce a serie of files that long, linked by the include statement,
13 * such files are automatically uudecoded by the companion program.)
14 * More mods, - ... 05/06/87 by jphd
15 * Mods for TOPS 20, and more. 08/06/87 by jphd
16 * (remove freopen and rindex...change filename generation...)
17 * (A lot more to do about I/O speed, avoiding completely the stdio.h...)
18 * May be called as uuencode. Oct 2 1993 by Kees J. Bot
19 *
20 */
21
22
23#include <ctype.h>
24#include <stdlib.h>
25#include <string.h>
26#include <stdio.h>
27
28#define USAGE
29#define FILE_NAME 10 /* affects how long names are truncated */
30
31/* ENC is the basic 1 character encoding function to make a char printing */
32#define ENC(c) (((c) & 077) + ' ')
33
34FILE *fp, *outp;
35char ofname[80];
36int lenofname;
37int stdo = 0;
38
39#ifdef ST
40#define READ "rb"
41#else
42#define READ "r"
43#endif
44
45int part = 'a', chap = 'a';
46#define SEQMAX 'z'
47#define SEQMIN 'a'
48char seqc = SEQMAX;
49
50int split = 0;
51int fileln = 32000;
52
53_PROTOTYPE(int main, (int argc, char **argv));
54_PROTOTYPE(void maketable, (void));
55_PROTOTYPE(void makename, (void));
56_PROTOTYPE(void encode, (void));
57_PROTOTYPE(void outdec, (char *p));
58_PROTOTYPE(int fr, (char *buf, int cnt));
59
60int main(argc, argv)
61int argc;
62char *argv[];
63{
64 char *prog_name;
65 char *fname;
66 int filter;
67
68 prog_name = argv[0] + strlen(argv[0]);
69 while (prog_name > argv[0] && prog_name[-1] != '/') prog_name--;
70 filter = strcmp(prog_name, "uuencode") == 0;
71
72 if (argc < 2) {
73 fprintf(stderr, "Usage: %s [-n] inputfile [-]\n", prog_name);
74 exit(2);
75 }
76 if (argv[1][0] == '-') {
77 fileln = -atoi(argv[1]);
78 if (fileln <= 0) {
79 fprintf(stderr, "Wrong file length arg.\n");
80 exit(3);
81 }
82 split = 1;
83 argv++;
84 argc--;
85 }
86 if (filter) { /* old uuencode reads from standard input */
87 fp = stdin;
88 } else {
89 if ((fp = fopen(argv[1], READ)) == NULL) { /* binary input !!! */
90 fprintf(stderr, "Cannot open %s\n", argv[1]);
91 exit(1);
92 }
93 }
94 fname = argv[1] + strlen(argv[1]);
95 while (fname > argv[1] && fname[-1] != '/') fname--;
96 strcpy(ofname, fname);
97 fname = ofname;
98 do {
99 if (*fname == '.') *fname = '\0';
100 } while (*fname++);
101 /* 10 char prefix + .uue -> 14 chars MAX */
102 lenofname = strlen(ofname);
103 if (lenofname > FILE_NAME) ofname[FILE_NAME] = '\0';
104 strcat(ofname, ".uue");
105 lenofname = strlen(ofname);
106 if (!split && (filter || (argc > 2) && (argv[2][0] == '-'))) {
107 stdo = 1;
108 outp = stdout;
109 } else {
110 makename();
111 if ((outp = fopen(ofname, "w")) == NULL) {
112 fprintf(stderr, "Cannot open %s\n", ofname);
113 exit(1);
114 }
115 }
116 maketable();
117 fprintf(outp, "begin %o %s\n", 0644, argv[1]);
118 encode();
119 fprintf(outp, "end\n");
120 fclose(outp);
121 return(0);
122}
123
124/* Create ASCII table so a mailer can screw it up and the decode
125 * program can restore the error.
126 */
127void maketable()
128{
129 register int i, j;
130
131 fputs("table\n", outp);
132 for (i = ' ', j = 0; i < '`'; j++) {
133 if (j == 32) putc('\n', outp);
134 fputc(i++, outp);
135 }
136 putc('\n', outp);
137}
138
139/* Generate the names needed for single and multiple part encoding. */
140void makename()
141{
142 if (split) {
143 ofname[lenofname - 1] = part;
144 ofname[lenofname - 2] = chap;
145 }
146}
147
148/* Copy from in to out, encoding as you go along. */
149void encode()
150{
151 char buf[80];
152 register int i, n;
153 register int lines;
154 lines = 6;
155
156 for (;;) {
157 n = fr(buf, 45);
158 putc(ENC(n), outp);
159 for (i = 0; i < n; i += 3) outdec(&buf[i]);
160 putc(seqc, outp);
161 seqc--;
162 if (seqc < SEQMIN) seqc = SEQMAX;
163 putc('\n', outp);
164 ++lines;
165 if (split && (lines > fileln)) {
166 part++;
167 if (part > 'z') {
168 part = 'a';
169 if (chap == 'z')
170 chap = 'a'; /* loop ... */
171 else
172 chap++;
173 }
174 makename();
175 fprintf(outp, "include %s\n", ofname);
176 fclose(outp);
177 if ((outp = fopen(ofname, "w")) == NULL) {
178 fprintf(stderr, "Cannot open %s\n", ofname);
179 exit(1);
180 }
181 maketable();
182 fprintf(outp, "begin part %c %s\n", part, ofname);
183 lines = 6;
184 }
185 if (n <= 0) break;
186 }
187}
188
189/* Output one group of 3 bytes, pointed at by p, on file f. */
190void outdec(p)
191register char *p;
192{
193 register int c1, c2, c3, c4;
194
195 c1 = *p >> 2;
196 c2 = ((*p << 4) & 060) | ((p[1] >> 4) & 017);
197 c3 = ((p[1] << 2) & 074) | ((p[2] >> 6) & 03);
198 c4 = p[2] & 077;
199 putc(ENC(c1), outp);
200 putc(ENC(c2), outp);
201 putc(ENC(c3), outp);
202 putc(ENC(c4), outp);
203}
204
205/* Fr: like read but stdio */
206int fr(buf, cnt)
207register char *buf;
208register int cnt;
209{
210 register int c, i;
211 for (i = 0; i < cnt; i++) {
212 c = fgetc(fp);
213 if (feof(fp)) return(i);
214 buf[i] = c;
215 }
216 return(cnt);
217}
Note: See TracBrowser for help on using the repository browser.