/* uue - bulletproof version of uuencode *//* Uue -- encode a file so that it's printable ascii, short lines * * Slightly modified from a version posted to net.sources a while back, * and suitable for compilation on the IBM PC * * modified for Lattice C on the ST - 11.05.85 by MSD * modified for ALCYON on the ST -    10-24-86 by RDR * modified a little more for MWC...  02/09/87 by JPHD * (An optional first argument of the form: -nnumber (e.g. -500), will * produce a serie of files that long, linked by the include statement, * such files are automatically uudecoded by the companion program.) * More mods, - ...		   05/06/87 by jphd * Mods for TOPS 20, and more.     08/06/87 by jphd *     (remove freopen and rindex...change filename generation...) * (A lot more to do about I/O speed, avoiding completely the stdio.h...) * May be called as uuencode.       Oct 2 1993 by Kees J. Bot * */#include <ctype.h>#include <stdlib.h>#include <string.h>#include <stdio.h>#define USAGE#define FILE_NAME 10		/* affects how long names are truncated *//* ENC is the basic 1 character encoding function to make a char printing */#define ENC(c) (((c) & 077) + ' ')FILE *fp, *outp;char ofname[80];int lenofname;int stdo = 0;#ifdef ST#define READ "rb"#else#define READ "r"#endifint part = 'a', chap = 'a';#define SEQMAX 'z'#define SEQMIN 'a'char seqc = SEQMAX;int split = 0;int fileln = 32000;_PROTOTYPE(int main, (int argc, char **argv));_PROTOTYPE(void maketable, (void));_PROTOTYPE(void makename, (void));_PROTOTYPE(void encode, (void));_PROTOTYPE(void outdec, (char *p));_PROTOTYPE(int fr, (char *buf, int cnt));int main(argc, argv)int argc;char *argv[];{  char *prog_name;  char *fname;  int filter;  prog_name = argv[0] + strlen(argv[0]);  while (prog_name > argv[0] && prog_name[-1] != '/') prog_name--;  filter = strcmp(prog_name, "uuencode") == 0;  if (argc < 2) {	fprintf(stderr, "Usage: %s [-n] inputfile [-]\n", prog_name);	exit(2);  }  if (argv[1][0] == '-') {	fileln = -atoi(argv[1]);	if (fileln <= 0) {		fprintf(stderr, "Wrong file length arg.\n");		exit(3);	}	split = 1;	argv++;	argc--;  }  if (filter) {		/* old uuencode reads from standard input */	fp = stdin;  } else {	if ((fp = fopen(argv[1], READ)) == NULL) {	/* binary input !!! */		fprintf(stderr, "Cannot open %s\n", argv[1]);		exit(1);	}  }  fname = argv[1] + strlen(argv[1]);  while (fname > argv[1] && fname[-1] != '/') fname--;  strcpy(ofname, fname);  fname = ofname;  do {	if (*fname == '.') *fname = '\0';  } while (*fname++);  /* 10 char prefix + .uue -> 14 chars MAX */  lenofname = strlen(ofname);  if (lenofname > FILE_NAME) ofname[FILE_NAME] = '\0';  strcat(ofname, ".uue");  lenofname = strlen(ofname);  if (!split && (filter || (argc > 2) && (argv[2][0] == '-'))) {	stdo = 1;	outp = stdout;  } else {	makename();	if ((outp = fopen(ofname, "w")) == NULL) {		fprintf(stderr, "Cannot open %s\n", ofname);		exit(1);	}  }  maketable();  fprintf(outp, "begin %o %s\n", 0644, argv[1]);  encode();  fprintf(outp, "end\n");  fclose(outp);  return(0);}/* Create ASCII table so a mailer can screw it up and the decode * program can restore the error. */void maketable(){  register int i, j;  fputs("table\n", outp);  for (i = ' ', j = 0; i < '`'; j++) {	if (j == 32) putc('\n', outp);	fputc(i++, outp);  }  putc('\n', outp);}/* Generate the names needed for single and multiple part encoding.  */void makename(){  if (split) {	ofname[lenofname - 1] = part;	ofname[lenofname - 2] = chap;  }}/* Copy from in to out, encoding as you go along.  */void encode(){  char buf[80];  register int i, n;  register int lines;  lines = 6;  for (;;) {	n = fr(buf, 45);	putc(ENC(n), outp);	for (i = 0; i < n; i += 3) outdec(&buf[i]);	putc(seqc, outp);	seqc--;	if (seqc < SEQMIN) seqc = SEQMAX;	putc('\n', outp);	++lines;	if (split && (lines > fileln)) {		part++;		if (part > 'z') {			part = 'a';			if (chap == 'z')				chap = 'a';	/* loop ... */			else				chap++;		}		makename();		fprintf(outp, "include %s\n", ofname);		fclose(outp);		if ((outp = fopen(ofname, "w")) == NULL) {			fprintf(stderr, "Cannot open %s\n", ofname);			exit(1);		}		maketable();		fprintf(outp, "begin part %c %s\n", part, ofname);		lines = 6;	}	if (n <= 0) break;  }}/* Output one group of 3 bytes, pointed at by p, on file f.  */void outdec(p)register char *p;{  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), outp);  putc(ENC(c2), outp);  putc(ENC(c3), outp);  putc(ENC(c4), outp);}/* Fr: like read but stdio */int fr(buf, cnt)register char *buf;register int cnt;{  register int c, i;  for (i = 0; i < cnt; i++) {	c = fgetc(fp);	if (feof(fp)) return(i);	buf[i] = c;  }  return(cnt);}