/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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) 7/6/88";
#endif /* not lint */

/*
* uuencode [input] output
*
* Encode a file so it can be mailed to a remote system.
*/
#include "V.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);
}