home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS 1996 June
/
Simtel-MSDOS-Jun1996-CD1.iso
/
00_start
/
uuencode.c
< prev
next >
Wrap
C/C++ Source or Header
|
1996-02-24
|
4KB
|
165 lines
/*
* 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.
*/
/*
* Modified 12 April 1990 by Mark Adler for use on MSDOS systems with
* Microsoft C and Turbo C. Standard input problem fixed 29 April 1990
* as per suggestion by Steve Harrold.
*
* Modifed 13 February 1991 by Greg Roelofs for use on VMS systems.
* Compile and link normally (but note that the shared-image link option
* produces a binary only 6 blocks long, as opposed to the 152-block one
* produced by an ordinary link). To set up the VMS symbol to run the
* program ("run uuencode filename1 filename2 filename3" won't work), do:
* uuencode :== "$disk:[directory]uuencode.exe"
* and don't forget the leading "$" or it still won't work. The syntax
* differs slightly from the Unix and MS-DOS versions since VMS has such
* an awkward approach to redirection; run the program with no arguments
* for the usage (or see USAGE below). The output file is in VMS "stream-
* LF" format but should be readable by MAIL, ftp, or anything else.
*/
#ifndef lint
static char sccsid[] = "@(#)uuencode.c 5.6 (Berkeley) 7/6/88";
#endif /* not lint */
#ifdef __MSDOS__ /* For Turbo C */
#define MSDOS 1
#endif
/*
* uuencode [input] output
*
* Encode a file so it can be mailed to a remote system.
*/
#include <stdio.h>
#ifdef VMS
# define OUT out /* force user to specify output file */
# define NUM_ARGS 3
# define USAGE "Usage: uuencode [infile] remotefile uufile\n"
# include <types.h>
# include <stat.h>
#else
# define OUT stdout /* Unix, MS-DOS: anybody with decent redirection */
# define NUM_ARGS 2
# define USAGE "Usage: uuencode [infile] remotefile\n"
# include <sys/types.h>
# include <sys/stat.h>
#endif
#if MSDOS
#include <io.h>
#include <fcntl.h>
#endif
/* ENC is the basic 1-character encoding function to make a char printing */
#define ENC(c) ((c) ? ((c) & 077) + ' ': '`')
main(argc, argv)
char **argv;
{
#ifdef VMS
FILE *out;
#endif
FILE *in;
struct stat sbuf;
int mode;
/* optional 1st argument */
if (argc > NUM_ARGS) {
if ((in = fopen(argv[1], "r")) == NULL) {
perror(argv[1]);
exit(1);
}
argv++; argc--;
} else
in = stdin;
#if MSDOS
/* set input file mode to binary for MSDOS systems */
setmode(fileno(in), O_BINARY);
#endif
if (argc != NUM_ARGS) {
fprintf(stderr, USAGE);
exit(2);
}
#ifdef VMS /* mandatory 3rd argument is name of uuencoded file */
if ((out = fopen(argv[2], "w")) == NULL) {
perror(argv[2]);
exit(4);
}
#endif
/* 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;
fprintf(OUT, "begin %o %s\n", mode, argv[1]);
encode(in, OUT);
fprintf(OUT, "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);
}