cleanups, add manual page

[unix-history] / usr / src / usr.bin / uuencode / uuencode.c

/*
* Copyright (c) 1983 Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice and this paragraph are
* duplicated in all such forms and that any documentation,
* advertising materials, and other materials related to such
* distribution and use acknowledge that the software was developed
* by the University of California, Berkeley.  The name of the
* University may not be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*/

#ifndef lint
static char sccsid[] = "@(#)uuencode.c  5.6 (Berkeley) %G%";
#endif /* not lint */

/*
* uuencode [input] output
*
* Encode a file so it can be mailed to a remote system.
*/
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>

/* ENC is the basic 1 character encoding function to make a char printing */
#define ENC(c) ((c) ? ((c) & 077) + ' ': '`')

main(argc, argv)
char **argv;
{
       FILE *in;
       struct stat sbuf;
       int mode;

       /* optional 1st argument */
       if (argc > 2) {
               if ((in = fopen(argv[1], "r")) == NULL) {
                       perror(argv[1]);
                       exit(1);
               }
               argv++; argc--;
       } else
               in = stdin;

       if (argc != 2) {
               fprintf(stderr,"Usage: uuencode [infile] remotefile\n");
               exit(2);
       }

       /* figure out the input file mode */
       if (fstat(fileno(in), &sbuf) < 0 || !isatty(fileno(in)))
               mode = 0666 & ~umask(0666);
       else
               mode = sbuf.st_mode & 0777;
       printf("begin %o %s\n", mode, argv[1]);

       encode(in, stdout);

       printf("end\n");
       exit(0);
}

/*
* copy from in to out, encoding as you go along.
*/
encode(in, out)
register FILE *in;
register FILE *out;
{
       char buf[80];
       register int i, n;

       for (;;) {
               /* 1 (up to) 45 character line */
               n = fread(buf, 1, 45, in);
               putc(ENC(n), out);

               for (i=0; i<n; i += 3)
                       outdec(&buf[i], out);

               putc('\n', out);
               if (n <= 0)
                       break;
       }
}

/*
* output one group of 3 bytes, pointed at by p, on file f.
*/
outdec(p, f)
register char *p;
register FILE *f;
{
       register int c1, c2, c3, c4;

       c1 = *p >> 2;
       c2 = (*p << 4) & 060 | (p[1] >> 4) & 017;
       c3 = (p[1] << 2) & 074 | (p[2] >> 6) & 03;
       c4 = p[2] & 077;
       putc(ENC(c1), f);
       putc(ENC(c2), f);
       putc(ENC(c3), f);
       putc(ENC(c4), f);
}