lab@and.cs.liv.ac.uk (02/09/91)
This seems to be wanted frequently....so here's saving somebody a trip
to find the archives. This is as sent to me.
Alan Thew
qq11@liverpool.ac.uk
------------------------------cut here-----------------------
#!/bin/sh
# This is a shell archive (produced by shar 3.49)
# To extract the files from this archive, save it to a file, remove
# everything above the "!/bin/sh" line above, and type "sh file_name".
#
# made 09/22/1990 02:48 UTC by rhg@cpsolv
# Source directory /u/rhg/src
#
# existing files will NOT be overwritten unless -c is specified
#
# This shar contains:
# length mode name
# ------ ---------- ------------------------------------------
# 1967 -rw-rw-rw- uuencode.c
# 3054 -rw-rw-rw- uudecode.c
#
# ============= uuencode.c ==============
if test -f 'uuencode.c' -a X"$1" != X"-c"; then
echo 'x - skipping uuencode.c (File already exists)'
else
echo 'x - extracting uuencode.c (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'uuencode.c' &&
#ifndef lint
static char sccsid[] = "@(#)uuencode.c 5.1 (Berkeley) 7/2/83";
#endif
X
/*
X * uuencode [input] output
X *
X * Encode a file so it can be mailed to a remote system.
X */
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
X
/* ENC is the basic 1 character encoding function to make a char printing */
#if 1 /* Richard H. Gumpertz (RHG@CPS.COM), 24 April 1990 */
#define ENC(c) ((((c) + 077) & 077) + 041)
#else /* RHG */
#define ENC(c) (((c) & 077) + ' ')
#endif /* RHG */
X
main(argc, argv)
char **argv;
{
X FILE *in;
X struct stat sbuf;
X int mode;
X
X /* optional 1st argument */
X if (argc > 2) {
#if 0 /* Richard H Gumpertz (RHG@CPS.COM) */
X if ((in = fopen(argv[1], "rb")) == NULL) {
#else /* RHG */
X if ((in = fopen(argv[1], "r")) == NULL) {
#endif /* RHG */
X perror(argv[1]);
X exit(1);
X }
X argv++; argc--;
X } else
X in = stdin;
X
X if (argc != 2) {
X printf("Usage: uuencode [infile] remotefile\n");
X exit(2);
X }
X
X /* figure out the input file mode */
X fstat(fileno(in), &sbuf);
X mode = sbuf.st_mode & 0777;
X printf("begin %o %s\n", mode, argv[1]);
X
X encode(in, stdout);
X
X printf("end\n");
X exit(0);
}
X
/*
X * copy from in to out, encoding as you go along.
X */
encode(in, out)
FILE *in;
FILE *out;
{
X char buf[80];
X int i, n;
X
X for (;;) {
X /* 1 (up to) 45 character line */
X n = fr(in, buf, 45);
X putc(ENC(n), out);
X
X for (i=0; i<n; i += 3)
X outdec(&buf[i], out);
X
X putc('\n', out);
X if (n <= 0)
X break;
X }
}
X
/*
X * output one group of 3 bytes, pointed at by p, on file f.
X */
outdec(p, f)
char *p;
FILE *f;
{
X int c1, c2, c3, c4;
X
X c1 = *p >> 2;
X c2 = (*p << 4) & 060 | (p[1] >> 4) & 017;
X c3 = (p[1] << 2) & 074 | (p[2] >> 6) & 03;
X c4 = p[2] & 077;
X putc(ENC(c1), f);
X putc(ENC(c2), f);
X putc(ENC(c3), f);
X putc(ENC(c4), f);
}
X
/* fr: like read but stdio */
int
fr(fd, buf, cnt)
FILE *fd;
char *buf;
int cnt;
{
X int c, i;
X
X for (i=0; i<cnt; i++) {
X c = getc(fd);
X if (c == EOF)
X return(i);
X buf[i] = c;
X }
X return (cnt);
}
SHAR_EOF
chmod 0666 uuencode.c ||
echo 'restore of uuencode.c failed'
Wc_c="`wc -c < 'uuencode.c'`"
test 1967 -eq "$Wc_c" ||
echo 'uuencode.c: original size 1967, current size' "$Wc_c"
fi
# ============= uudecode.c ==============
if test -f 'uudecode.c' -a X"$1" != X"-c"; then
echo 'x - skipping uudecode.c (File already exists)'
else
echo 'x - extracting uudecode.c (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'uudecode.c' &&
#ifndef lint
static char sccsid[] = "@(#)uudecode.c 5.1 (Berkeley) 7/2/83";
#endif
X
/*
X * uudecode [input]
X *
X * create the specified file, decoding as you go.
X * used with uuencode.
X */
#include <stdio.h>
#include <pwd.h>
#include <sys/types.h>
#include <sys/stat.h>
X
/* single character decode */
#define DEC(c) (((c) - ' ') & 077)
X
main(argc, argv)
char **argv;
{
X FILE *in, *out;
X struct stat sbuf;
X int mode;
X char dest[128];
X char buf[80];
X
X /* optional input arg */
X if (argc > 1) {
X if ((in = fopen(argv[1], "r")) == NULL) {
X perror(argv[1]);
X exit(1);
X }
X argv++; argc--;
X } else
X in = stdin;
X
X if (argc != 1) {
X printf("Usage: uudecode [infile]\n");
X exit(2);
X }
X
X /* search for header line */
X for (;;) {
X if (fgets(buf, sizeof buf, in) == NULL) {
X fprintf(stderr, "No begin line\n");
X exit(3);
X }
X if (strncmp(buf, "begin ", 6) == 0)
X break;
X }
X sscanf(buf, "begin %o %s", &mode, dest);
X
X /* handle ~user/file format */
X if (dest[0] == '~') {
X char *sl;
X struct passwd *getpwnam();
X char *index();
X struct passwd *user;
X char dnbuf[100];
X
X sl = index(dest, '/');
X if (sl == NULL) {
X fprintf(stderr, "Illegal ~user\n");
X exit(3);
X }
X *sl++ = 0;
X user = getpwnam(dest+1);
X if (user == NULL) {
X fprintf(stderr, "No such user as %s\n", dest);
X exit(4);
X }
X strcpy(dnbuf, user->pw_dir);
X strcat(dnbuf, "/");
X strcat(dnbuf, sl);
X strcpy(dest, dnbuf);
X }
X
X /* create output file */
#if 0 /* Richard H. Gumpertz (RHG@CPS.COM) */
X out = fopen(dest, "wb");
#else /* RHG */
X out = fopen(dest, "w");
#endif /* RHG */
X if (out == NULL) {
X perror(dest);
X exit(4);
X }
X chmod(dest, mode);
X
X decode(in, out);
X
X if (fgets(buf, sizeof buf, in) == NULL || strcmp(buf, "end\n")) {
X fprintf(stderr, "No end line\n");
X exit(5);
X }
X exit(0);
}
X
/*
X * copy from in to out, decoding as you go along.
X */
decode(in, out)
FILE *in;
FILE *out;
{
X char buf[80];
X char *bp;
X int n;
X
X for (;;) {
X /* for each input line */
X if (fgets(buf, sizeof buf, in) == NULL) {
X printf("Short file\n");
X exit(10);
X }
X n = DEC(buf[0]);
X if (n <= 0)
X break;
X
X bp = &buf[1];
X while (n > 0) {
X outdec(bp, out, n);
X bp += 4;
X n -= 3;
X }
X }
}
X
/*
X * output a group of 3 bytes (4 input characters).
X * the input chars are pointed to by p, they are to
X * be output to file f. n is used to tell us not to
X * output all of them at the end of the file.
X */
outdec(p, f, n)
char *p;
FILE *f;
{
X int c1, c2, c3;
X
X c1 = DEC(*p) << 2 | DEC(p[1]) >> 4;
X c2 = DEC(p[1]) << 4 | DEC(p[2]) >> 2;
X c3 = DEC(p[2]) << 6 | DEC(p[3]);
X if (n >= 1)
X putc(c1, f);
X if (n >= 2)
X putc(c2, f);
X if (n >= 3)
X putc(c3, f);
}
X
X
/* fr: like read but stdio */
int
fr(fd, buf, cnt)
FILE *fd;
char *buf;
int cnt;
{
X int c, i;
X
X for (i=0; i<cnt; i++) {
X c = getc(fd);
X if (c == EOF)
X return(i);
X buf[i] = c;
X }
X return (cnt);
}
X
/*
X * Return the ptr in sp at which the character c appears;
X * NULL if not found
X */
X
#define NULL 0
X
char *
index(sp, c)
register char *sp, c;
{
X do {
X if (*sp == c)
X return(sp);
X } while (*sp++);
X return(NULL);
}
SHAR_EOF
chmod 0666 uudecode.c ||
echo 'restore of uudecode.c failed'
Wc_c="`wc -c < 'uudecode.c'`"
test 3054 -eq "$Wc_c" ||
echo 'uudecode.c: original size 3054, current size' "$Wc_c"
fi
exit 0