Remove debugging statement.
[oweals/busybox.git] / coreutils / uudecode.c
1 /* uudecode.c -- uudecode utility.
2  * Copyright (C) 1994, 1995 Free Software Foundation, Inc.
3  *
4  * This product is free software; you can redistribute it and/or modify
5  * it under the terms of the GNU General Public License as published by
6  * the Free Software Foundation; either version 2, or (at your option)
7  * any later version.
8  *
9  * This product is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12  * GNU General Public License for more details.
13  *
14  * You should have received a copy of the GNU General Public License
15  * along with this product; see the file COPYING.  If not, write to
16  * the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
17  * 02111-1307, USA.
18  *
19  * Reworked to GNU style by Ian Lance Taylor, ian@airs.com, August 93.
20  *
21  * Original copyright notice is retained at the end of this file.
22  */
23
24
25
26 #include <stdio.h>
27 #include <errno.h>
28 #include <getopt.h>
29 #include <string.h>
30 #include <stdlib.h>
31 #include "busybox.h"
32 #include "pwd_grp/pwd.h"
33 #include "pwd_grp/grp.h"
34
35 /*struct passwd *getpwnam();*/
36
37 /* Single character decode.  */
38 #define DEC(Char) (((Char) - ' ') & 077)
39
40 static int read_stduu (const char *inname)
41 {
42   char buf[2 * BUFSIZ];
43
44   while (1) {
45     int n;
46     char *p;
47
48     if (fgets (buf, sizeof(buf), stdin) == NULL) {
49       error_msg("%s: Short file", inname);
50       return FALSE;
51     }
52     p = buf;
53
54     /* N is used to avoid writing out all the characters at the end of
55        the file.  */
56     n = DEC (*p);
57     if (n <= 0)
58       break;
59     for (++p; n > 0; p += 4, n -= 3) {
60       char ch;
61
62       if (n >= 3) {
63         ch = DEC (p[0]) << 2 | DEC (p[1]) >> 4;
64         putchar (ch);
65         ch = DEC (p[1]) << 4 | DEC (p[2]) >> 2;
66         putchar (ch);
67         ch = DEC (p[2]) << 6 | DEC (p[3]);
68         putchar (ch);
69       } else {
70         if (n >= 1) {
71           ch = DEC (p[0]) << 2 | DEC (p[1]) >> 4;
72           putchar (ch);
73         }
74         if (n >= 2) {
75           ch = DEC (p[1]) << 4 | DEC (p[2]) >> 2;
76           putchar (ch);
77         }
78       }
79     }
80   }
81
82   if (fgets (buf, sizeof(buf), stdin) == NULL
83       || strcmp (buf, "end\n")) {
84     error_msg("%s: No `end' line", inname);
85     return FALSE;
86   }
87
88   return TRUE;
89 }
90
91 static int read_base64 (const char *inname)
92 {
93   static const char b64_tab[256] = {
94     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*000-007*/
95     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*010-017*/
96     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*020-027*/
97     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*030-037*/
98     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*040-047*/
99     '\177', '\177', '\177', '\76',  '\177', '\177', '\177', '\77',  /*050-057*/
100     '\64',  '\65',  '\66',  '\67',  '\70',  '\71',  '\72',  '\73',  /*060-067*/
101     '\74',  '\75',  '\177', '\177', '\177', '\100', '\177', '\177', /*070-077*/
102     '\177', '\0',   '\1',   '\2',   '\3',   '\4',   '\5',   '\6',   /*100-107*/
103     '\7',   '\10',  '\11',  '\12',  '\13',  '\14',  '\15',  '\16',  /*110-117*/
104     '\17',  '\20',  '\21',  '\22',  '\23',  '\24',  '\25',  '\26',  /*120-127*/
105     '\27',  '\30',  '\31',  '\177', '\177', '\177', '\177', '\177', /*130-137*/
106     '\177', '\32',  '\33',  '\34',  '\35',  '\36',  '\37',  '\40',  /*140-147*/
107     '\41',  '\42',  '\43',  '\44',  '\45',  '\46',  '\47',  '\50',  /*150-157*/
108     '\51',  '\52',  '\53',  '\54',  '\55',  '\56',  '\57',  '\60',  /*160-167*/
109     '\61',  '\62',  '\63',  '\177', '\177', '\177', '\177', '\177', /*170-177*/
110     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*200-207*/
111     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*210-217*/
112     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*220-227*/
113     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*230-237*/
114     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*240-247*/
115     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*250-257*/
116     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*260-267*/
117     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*270-277*/
118     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*300-307*/
119     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*310-317*/
120     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*320-327*/
121     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*330-337*/
122     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*340-347*/
123     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*350-357*/
124     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*360-367*/
125     '\177', '\177', '\177', '\177', '\177', '\177', '\177', '\177', /*370-377*/
126   };
127   unsigned char buf[2 * BUFSIZ];
128
129   while (1) {
130     int last_data = 0;
131     unsigned char *p;
132
133     if (fgets (buf, sizeof(buf), stdin) == NULL) {
134       error_msg("%s: Short file", inname);
135       return FALSE;
136     }
137     p = buf;
138
139     if (memcmp (buf, "====", 4) == 0)
140       break;
141     if (last_data != 0) {
142       error_msg("%s: data following `=' padding character", inname);
143       return FALSE;
144     }
145
146     /* The following implementation of the base64 decoding might look
147        a bit clumsy but I only try to follow the POSIX standard:
148        ``All line breaks or other characters not found in the table
149        [with base64 characters] shall be ignored by decoding
150        software.''  */
151     while (*p != '\n') {
152       char c1, c2, c3;
153
154       while ((b64_tab[*p] & '\100') != 0)
155         if (*p == '\n' || *p++ == '=')
156           break;
157       if (*p == '\n')
158         /* This leaves the loop.  */
159         continue;
160       c1 = b64_tab[*p++];
161
162       while ((b64_tab[*p] & '\100') != 0)
163         if (*p == '\n' || *p++ == '=') {
164           error_msg("%s: illegal line", inname);
165           return FALSE;
166         }
167       c2 = b64_tab[*p++];
168
169       while (b64_tab[*p] == '\177')
170         if (*p++ == '\n') {
171           error_msg("%s: illegal line", inname);
172           return FALSE;
173         }
174       if (*p == '=') {
175         putchar (c1 << 2 | c2 >> 4);
176         last_data = 1;
177         break;
178       }
179       c3 = b64_tab[*p++];
180
181       while (b64_tab[*p] == '\177')
182         if (*p++ == '\n') {
183           error_msg("%s: illegal line", inname);
184           return FALSE;
185         }
186       putchar (c1 << 2 | c2 >> 4);
187       putchar (c2 << 4 | c3 >> 2);
188       if (*p == '=') {
189         last_data = 1;
190         break;
191       }
192       else
193         putchar (c3 << 6 | b64_tab[*p++]);
194     }
195   }
196
197   return TRUE;
198 }
199
200 static int decode (const char *inname,
201                    const char *forced_outname)
202 {
203   struct passwd *pw;
204   register int n;
205   register char *p;
206   int mode, n1;
207   char buf[2 * BUFSIZ];
208   char *outname;
209   int do_base64 = 0;
210
211   /* Search for header line.  */
212
213   while (1) {
214     if (fgets (buf, sizeof (buf), stdin) == NULL) {
215       error_msg("%s: No `begin' line", inname);
216       return FALSE;
217     }
218
219     if (strncmp (buf, "begin", 5) == 0) {
220       if (sscanf (buf, "begin-base64 %o %s", &mode, buf) == 2) {
221         do_base64 = 1;
222         break;
223       } else if (sscanf (buf, "begin %o %s", &mode, buf) == 2)
224         break;
225     }
226   }
227
228   /* If the output file name is given on the command line this rules.  */
229   if (forced_outname != NULL)
230     outname = (char *) forced_outname;
231   else {
232     /* Handle ~user/file format.  */
233     if (buf[0] != '~')
234       outname = buf;
235     else {
236       p = buf + 1;
237       while (*p != '/')
238         ++p;
239       if (*p == '\0') {
240         error_msg("%s: Illegal ~user", inname);
241         return FALSE;
242       }
243       *p++ = '\0';
244       pw = getpwnam (buf + 1);
245       if (pw == NULL) {
246         error_msg("%s: No user `%s'", inname, buf + 1);
247         return FALSE;
248       }
249       n = strlen (pw->pw_dir);
250       n1 = strlen (p);
251       outname = (char *) alloca ((size_t) (n + n1 + 2));
252       memcpy (outname + n + 1, p, (size_t) (n1 + 1));
253       memcpy (outname, pw->pw_dir, (size_t) n);
254       outname[n] = '/';
255     }
256   }
257
258   /* Create output file and set mode.  */
259   if (strcmp (outname, "/dev/stdout") != 0 && strcmp (outname, "-") != 0
260       && (freopen (outname, "w", stdout) == NULL
261           || chmod (outname, mode & (S_IRWXU | S_IRWXG | S_IRWXO))
262          )) {
263     perror_msg("%s", outname); /* */
264     return FALSE;
265   }
266
267   /* We differenciate decoding standard UU encoding and base64.  A
268      common function would only slow down the program.  */
269
270   /* For each input line:  */
271   if (do_base64)
272     return read_base64 (inname);
273   else
274     return read_stduu (inname);
275 }
276
277 int uudecode_main (int argc,
278                    char **argv)
279 {
280   int opt;
281   int exit_status;
282   const char *outname;
283   outname = NULL;
284
285   while ((opt = getopt(argc, argv, "o:")) != EOF) {
286     switch (opt) {
287      case 0:
288       break;
289
290      case 'o':
291       outname = optarg;
292       break;
293
294      default:
295       show_usage();
296     }
297   }
298
299   if (optind == argc)
300     exit_status = decode ("stdin", outname) == 0 ? EXIT_SUCCESS : EXIT_FAILURE;
301   else {
302     exit_status = EXIT_SUCCESS;
303     do {
304       if (freopen (argv[optind], "r", stdin) != NULL) {
305         if (decode (argv[optind], outname) != 0)
306           exit_status = FALSE;
307       } else {
308         perror_msg("%s", argv[optind]);
309         exit_status = EXIT_FAILURE;
310       }
311       optind++;
312     }
313     while (optind < argc);
314   }
315   return(exit_status);
316 }
317
318 /* Copyright (c) 1983 Regents of the University of California.
319  * All rights reserved.
320  *
321  * Redistribution and use in source and binary forms, with or without
322  * modification, are permitted provided that the following conditions
323  * are met:
324  * 1. Redistributions of source code must retain the above copyright
325  *    notice, this list of conditions and the following disclaimer.
326  * 2. Redistributions in binary form must reproduce the above copyright
327  *    notice, this list of conditions and the following disclaimer in the
328  *    documentation and/or other materials provided with the distribution.
329  *
330  * 3. <BSD Advertising Clause omitted per the July 22, 1999 licensing change 
331  *              ftp://ftp.cs.berkeley.edu/pub/4bsd/README.Impt.License.Change> 
332  *
333  * 4. Neither the name of the University nor the names of its contributors
334  *    may be used to endorse or promote products derived from this software
335  *    without specific prior written permission.
336  *
337  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
338  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
339  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
340  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
341  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
342  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
343  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
344  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
345  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
346  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
347  * SUCH DAMAGE.
348  */
349
350