| Received: from CU-ARPA.CS.CORNELL.EDU by loki.cs.cornell.edu (5.61/I-1.91f) |
| id AA25874; Wed, 18 Jul 90 12:02:22 -0400 |
| Message-Id: <9007181320.AA24810@cu-arpa.cs.cornell.edu> |
| Received: from CORNELLC.CIT.CORNELL.EDU by cu-arpa.cs.cornell.edu (5.61+2/1.91d) |
| id AA24810; Wed, 18 Jul 90 09:20:21 -0400 |
| Received: from CORNELLC by CORNELLC.cit.cornell.edu (IBM VM SMTP R1.2.1MX) with BSMTP id 6769; Wed, 18 Jul 90 09:18:46 EDT |
| Received: from CAS.BITNET (MAILER) by CORNELLC (Mailer R2.05X) with BSMTP id |
| 5378; Wed, 18 Jul 90 09:18:38 EDT |
| From: swl26%CAS.BITNET@CORNELLC.cit.cornell.edu |
| Date: Wed, 18 Jul 1990 09:16 EDT |
| Subject: Re(2): diffs for mvs port of flex-2.3 |
| In-Reply-To: Your message of Tue, 17 Jul 90 17:42:3 |
| To: vern@cs.cornell.edu |
| |
| Sorry about the trailing blank problem. It's farily common with data sent |
| through bitnet paths, but ever the optimist ... |
| |
| >I think there should be an 'M' at the beginning of the second line. |
| |
| This isn't a problem. I believe that the first byte of the line indicates |
| it's length (in some manner). |
| |
| Rather than re-send the data, how about a uudecode that compensates for |
| the trailing blank problem? I manually mangled the uuencoded file and ran |
| the following decode, and it seemed to work. |
| |
| #! /bin/sh |
| # This is a shell archive. Remove anything before this line, then feed it |
| # into a shell via "sh file" or similar. To overwrite existing files, |
| # type "sh file -c". |
| # The tool that generated this appeared in the comp.sources.unix newsgroup; |
| # send mail to [email protected] if you want that tool. |
| # If this archive is complete, you will see the following message at the end: |
| # "End of shell archive." |
| # Contents: uudecode.c |
| # Wrapped by swl26@swl26aws on Wed Jul 18 08:59:24 1990 |
| PATH=/bin:/usr/bin:/usr/ucb ; export PATH |
| if test -f 'uudecode.c' -a "${1}" != "-c" ; then |
| echo shar: Will not clobber existing file \"'uudecode.c'\" |
| else |
| echo shar: Extracting \"'uudecode.c'\" \(6418 characters\) |
| sed "s/^X//" >'uudecode.c' <<'END_OF_FILE' |
| X/* #ifndef lint |
| Xstatic char sccsid[] = "@(#)uudecode.c 5.3-1 (Berkeley) 9/1/87"; |
| X#endif */ |
| X |
| X/* Written by Mark Horton */ |
| X/* Modified by ajr (Alan J Rosenthatl,[email protected]) to use checksums */ |
| X/* Modified by fnf (Fred Fish,well!fnf) to use Keith Pyle's suggestion for |
| X compatibility */ |
| X/* Modified by bcn (Bryce Nesbitt,ucbvax!cogsci!bryce) to fix a misleading |
| X error message on the Amiga port, to fix a bug that prevented decoding |
| X certain files, to work even if trailing spaces have been removed from a |
| X file, to check the filesize (if present), to add some error checking, to |
| X loop for multiple decodes from a single file, and to handle common |
| X BITNET mangling. Also kludged around a missing string function in Aztec |
| X C */ |
| X |
| X/* |
| X * uudecode [input] |
| X * |
| X * Decode a file encoded with uuencode. WIll extract multiple encoded |
| X * modules from a single file. Can deal with most mangled files, including |
| X * BITNET. |
| X */ |
| X |
| X#include <stdio.h> |
| X#include <ctype.h> |
| X |
| X#ifdef AMIGA |
| X#define AMIGA_LATTICE /* Set for Amiga Lattice C */ |
| X#define MCH_AMIGA |
| X#define MPU68000 |
| X#endif |
| X |
| X#ifdef unix |
| X#include <pwd.h> |
| X#include <sys/types.h> |
| X#include <sys/stat.h> |
| X#endif |
| X |
| X#define SUMSIZE 64 |
| X#define DEC(c) (((c) - ' ') & 077) /* single character decode */ |
| X |
| Xmain(argc, argv) |
| Xchar **argv; |
| X{ |
| XFILE *in, *out; |
| Xint through_loop=0; /* Dejavu indicator */ |
| Xint mode; /* file's mode (from header) */ |
| Xlong filesize; /* theoretical file size (from header) */ |
| Xchar dest[128]; |
| Xchar buf[80]; |
| X |
| X#ifdef AMIGA_LATTICE |
| Xextern int Enable_Abort; |
| X Enable_Abort=1; |
| X#endif |
| X |
| X /* A filename can be specified to be uudecoded, or nothing can |
| X be specified, and the input will come from STDIN */ |
| X |
| X switch (argc) |
| X { |
| X case 1: |
| X in=stdin; |
| X break; |
| X |
| X case 2: |
| X if ((in = fopen(argv[1], "r")) == NULL) |
| X { |
| X fprintf(stderr, "ERROR: can't find %s\n", argv[1]); |
| X fprintf(stderr, "USAGE: uudecode [infile]\n"); |
| X exit(10); |
| X } |
| X break; |
| X |
| X default: |
| X fprintf(stderr, "USAGE: uudecode [infile]\n"); |
| X exit(11); |
| X break; |
| X } |
| X |
| X /* Loop through file, searching for headers. Decode anything with a |
| X header, complain if there where no headers. */ |
| X |
| Xfor (;;) |
| X{ |
| X /* search file for header line */ |
| X for (;;) |
| X { |
| X if (fgets(buf, sizeof buf, in) == NULL) |
| X { |
| X if (!through_loop) |
| X { |
| X fprintf(stderr, "ERROR: no `begin' line!\n"); |
| X exit(12); |
| X } |
| X else |
| X { |
| X exit(0); |
| X } |
| X } |
| X if (strncmp(buf, "begin ", 6) == 0) |
| X break; |
| X } |
| X sscanf(buf, "begin %o %s", &mode, dest); |
| X |
| X#ifdef unix |
| X /* handle ~user/file format */ |
| X if (dest[0] == '~') |
| X { |
| 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 { |
| X fprintf(stderr, "Illegal ~user\n"); |
| X exit(13); |
| X } |
| X *sl++ = 0; |
| X user = getpwnam(dest+1); |
| X if (user == NULL) |
| X { |
| X fprintf(stderr, "No such user as %s\n", dest); |
| X exit(14); |
| X } |
| X strcpy(dnbuf, user->pw_dir); |
| X strcat(dnbuf, "/"); |
| X strcat(dnbuf, sl); |
| X strcpy(dest, dnbuf); |
| X } |
| X#endif |
| X |
| X /* create output file */ |
| X if ((out = fopen(dest, "w")) == NULL) |
| X { |
| X fprintf(stderr, "ERROR: can't open output file %s\n", dest); |
| X exit(15); |
| X } |
| X#ifdef unix |
| X chmod(dest, mode); |
| X#endif |
| X |
| X decode(in, out, dest); |
| X |
| X if (fgets(buf, sizeof buf, in) == NULL || strncmp(buf,"end",3)) |
| X { /* don't be overly picky about newline ^ */ |
| X fprintf(stderr, "ERROR: no `end' line\n"); |
| X exit(16); |
| X } |
| X |
| X if (!(fgets(buf,sizeof buf,in) == NULL || strncmp(buf,"size ",3))) |
| X { |
| X sscanf(buf, "size %ld", &filesize); |
| X if (ftell(out) != filesize) |
| X { |
| X fprintf(stderr, "ERROR: file should have been %ld bytes long but was |
| X exit(17); |
| X } |
| X } |
| X through_loop = 1; |
| X} /* forever */ |
| X} /* main */ |
| X |
| X/* |
| X * Copy from in to out, decoding as you go. |
| X * If a return or newline is encountered too early in a line, it is |
| X * assumed that means that some editor has truncated trailing spaces. |
| X */ |
| Xdecode(in, out, dest) |
| XFILE *in; |
| XFILE *out; |
| Xchar *dest; |
| X{ |
| Xchar buf[81]; |
| Xchar *bp; |
| Xint nosum=0; |
| X#ifndef unix |
| Xextern errno; |
| X#endif |
| Xregister int j; |
| Xregister int n; |
| Xint checksum, line; |
| X |
| X for (line = 1; ; line++) /* for each input line */ |
| X { |
| X if (fgets(buf, sizeof buf, in) == NULL) |
| X { |
| X fprintf(stderr, "ERROR: input ended unexpectedly!\n"); |
| X exit(18); |
| X } |
| X |
| X /* Pad end of lines in case some editor truncated trailing |
| X spaces */ |
| X |
| X for (n=0;n<79;n++) /* search for first \r, \n or \000 */ |
| X { |
| X if (buf[n]=='\176') /* If BITNET made a twiddle, */ |
| X buf[n]='\136'; /* we make a caret */ |
| X if (buf[n]=='\r'||buf[n]=='\n'||buf[n]=='\000') |
| X break; |
| X } |
| X for (;n<79;n++) /* when found, fill rest of line with space */ |
| X { |
| X buf[n]=' '; |
| X } |
| X buf[79]=0; /* terminate new string */ |
| X |
| X checksum = 0; |
| X n = DEC(buf[0]); |
| X if (n <= 0) |
| X break; /* 0 bytes on a line?? Must be the last line */ |
| X |
| X bp = &buf[1]; |
| X |
| X /* FOUR input characters go into each THREE output charcters */ |
| X |
| X while (n >= 4) |
| X { |
| X j = DEC(bp[0]) << 2 | DEC(bp[1]) >> 4; putc(j, out); checksum += j; |
| X j = DEC(bp[1]) << 4 | DEC(bp[2]) >> 2; putc(j, out); checksum += j; |
| X j = DEC(bp[2]) << 6 | DEC(bp[3]); putc(j, out); checksum += j; |
| X checksum = checksum % SUMSIZE; |
| X bp += 4; |
| X n -= 3; |
| X } |
| X |
| X j = DEC(bp[0]) << 2 | DEC(bp[1]) >> 4; |
| X checksum += j; |
| X if (n >= 1) |
| X putc(j, out); |
| X j = DEC(bp[1]) << 4 | DEC(bp[2]) >> 2; |
| X checksum += j; |
| X if (n >= 2) |
| X putc(j, out); |
| X j = DEC(bp[2]) << 6 | DEC(bp[3]); |
| X checksum += j; |
| X if (n >= 3) |
| X putc(j, out); |
| X checksum = checksum % SUMSIZE; |
| X bp += 4; |
| X n -= 3; |
| X |
| X#ifndef unix |
| X /* Error checking under UNIX??? You must be kidding... */ |
| X /* Check if an error occured while writing to that last line */ |
| X if (errno) |
| X { |
| X fprintf(stderr, "ERROR: error writing to %s\n",dest); |
| X exit(19); |
| X } |
| X#endif |
| X |
| X /* The line has been decoded; now check that sum */ |
| X |
| X nosum |= !isspace(*bp); |
| X if (nosum) /* Is there a checksum at all?? */ |
| X { |
| X if (checksum != DEC(*bp)) /* Does that checksum match? */ |
| X { |
| X fprintf(stderr, "ERROR: checksum mismatch decoding %s, line %d.\ |
| X } |
| X } /* sum */ |
| X } /* line */ |
| X} /* function */ |
| X |
| X#ifdef unix |
| X/* |
| X * Return the ptr in sp at which the character c appears; |
| X * 0 if not found |
| X */ |
| Xchar * |
| Xindex(sp, c) |
| Xregister char *sp, c; |
| X{ |
| X do |
| X { |
| X if (*sp == c) |
| X return(sp); |
| X } |
| X while (*sp++); |
| X |
| X return(0); |
| X} |
| X#endif unix |
| X |
| |
| END_OF_FILE |
| echo shar: NEWLINE appended to \"'uudecode.c'\" |
| if test 6419 -ne `wc -c <'uudecode.c'`; then |
| echo shar: \"'uudecode.c'\" unpacked with wrong size! |
| fi |
| # end of 'uudecode.c' |
| fi |
| echo shar: End of shell archive. |
| exit 0 |
