/*› * Uudecode -- decode a uuencoded file back to binary form.› *› * modified for Lattice C on the ST - 11.05.86 by MSD› * modified for Alcyon on the ST -    10-24-86 by RDR› * modified (a lot) for MWC on the ST 02/07/87 by JPHD› * (Some more to be done on the I/O speed...)› * modified more for Atari 8-bit -- jrd› *› */››#include <stdio.h>›extern FILE * fopen();›extern char * strcpy();››#ifdef M6502›#define exit(x) careful_exit(x)›#else›#include <osbind.h>›#define fix_pathname(foo) foo›#endif››#define MAXCHAR 127›#define LINELEN 80›#define FILELEN 64›#define CODEDLN 61›#define NORMLEN 45››char * mism = "Part suffix mismatch: <%> instead of <%>.\n";›#define SUBS1 23›#define SUBS238››FILE * in, * out;›char ifname[FILELEN];›char chtbl[MAXCHAR];›char * pos;›char blank, part = '\0';›int partn = 'a';›int lens;››#ifdef M6502›char argbuf[80];›#endif››/*› * Bring back a pointer to the start of the nth word.› */›char * getnword(str, n)›register char * str;›register int n;›{›  while ((*str == '\t') || (*str == ' '))›    str++;›  if (!*str)›    return NULL;›  while (--n)›    {›      while ((*str != '\t') && (*str != ' ') && (*str))›str++;›      if (!*str)›return NULL;›      while ((*str == '\t') || (*str == ' '))›str++;›      if (!*str)›return NULL;›    }›  return str;›}››main(argc, argv)›int argc;›char * argv[];›{›  register int i, j;›  char dest[FILELEN], buf[LINELEN];››#ifdef M6502›  if (argc < 2)›    argc = 1 + readargs("UUD>", argbuf, argv + 1);›#endif››  if (argc < 2)›    {›      Console("Almost foolproof uudecode v1.0 15-Feb-1987 JPHD\n");›      Console("Usage: uudecode inputfile\n");›      exit(1);›    }›  if ((in = fopen(fix_pathname(argv[1]), "r")) == NULL)›    {›      Console("Cant open input file.\n");›      exit(2);›    }››  /*›   * Set up the default translation table.›   */›  for (i = 0; i < ' '; i++)›    chtbl[i] = '\0';›  for (i = ' ', j = 0; i < ' ' + 64; i++, j++)›    chtbl[i] = j;›  for (i = ' ' + 64; i < MAXCHAR; i++)›    chtbl[i] = '\0';›  chtbl['`'] = chtbl[' '];/* common mutation */›  chtbl['~'] = chtbl['^'];/* an other common mutation */›  blank = ' ';›  /*›   * search for header or translation table line.›   */›  for (;;)›    {›      if (fgets(buf, sizeof buf, in) == NULL)›{›  Console("No begin line\n");›  exit(3);›}›      if (strncmp(buf, "table", 5) == 0)›{›  gettable();›  continue;›}›      if (strncmp(buf, "begin", 5) == 0)›{›  break;›}›    }›  lens = strlen(buf);›  if (lens)›    buf[--lens] = '\0';›  if ((pos = getnword(buf, 3)) == NULL)›    {›      Console("Missing filename in begin line.\n");›      exit(10);›    }›  else›    strcpy(dest, pos);››  if ((out = fopen(fix_pathname(dest), "wb")) == NULL)›    {›      Console("Cannot open output file\n");›      exit(4);›    }›  decode();›  fclose(out);›  exit(0);›}››/*› * Install the table in memory for later use.› */›gettable()›{›  char buf[LINELEN];›  register int c, n;›  register char * cpt;››  n = 0;›  for (c = 0; c <= MAXCHAR; c++)›    chtbl[c] = '\0';›› again:if (fgets(buf, sizeof buf, in) == NULL)›   {›     Console("EOF while in translation table.\n");›     exit(5);›   }›  if (strncmp(buf, "begin", 5) == 0)›    {›      Console("Incomplete translation table.\n");›      exit(6);›    }›  cpt = buf + strlen(buf) - 1;›  *cpt = ' ';›  while (*(cpt) == ' ')›    {›      *cpt = '\0';›      cpt--;›    }›  cpt = buf;›  while (c = *cpt)›    {›      if (chtbl[c] != '\0')›{›  Console("Duplicate char in translation table.\n");›  exit(6);›}›      if (n == 0)›blank = c;›      chtbl[c] = n++;›      if (n >= 64)›return;›      cpt++;›    }›  goto again;›}››/*› * copy from in to out, decoding as you go along.› */››decode()›{›  char buf[LINELEN], outl[LINELEN];›  register char * bp, * ut, * trtbl;›  register unsigned int n, c, len;››  trtbl = chtbl;›  for (;;)›    {›      if (fgets(buf, sizeof buf, in) == NULL)›{›  Console("Short file.\n");›  return;›}›      len = strlen(buf);›      if (len)›buf[--len] = '\0';›      /*›       * Get the binary line length.›       */›      n = trtbl[*buf];›      if (n == NORMLEN)›goto decod;›      /*›       * end of uuencoded file ?›       */›      if (strncmp(buf, "end", 3) == 0)›return;›      /*›       * end of current file ? : get next one.›       */›      if (strncmp(buf, "include", 7) == 0)›{›  getfile(buf);›  continue;›}›      /*›       * Is it the empty line before the end line ?›       */›      if (n <= 0)›continue;›      /*›       * Pad with blanks.›       */›    decod:for (bp = &buf[c = len];›       c < CODEDLN; c++, bp++)›      *bp = blank;››      /*›       * output a group of 3 bytes (4 input characters).›       * the input chars are pointed to by p, they are to›       * be output to file f.  n is used to tell us not to›       * output all of them at the end of the file.›       */›      ut = outl;›      len = n;›      bp = &buf[1];›      while (n > 0)›{›  *(ut++) = trtbl[*bp] << 2 | trtbl[bp[1]] >> 4;›  n--;›  if (n)›    {›      *(ut++) = trtbl[bp[1]] << 4 | trtbl[bp[2]] >> 2;›      n--;›    }›  if (n)›    {›      *(ut++) = trtbl[bp[2]] << 6 | trtbl[bp[3]];›      n--;›    }›  bp += 4;›}›      n = fwrite(outl, 1, len, out);›    }›}››/* you may need to rename the filenames at the ends of each part›* if the encoder encoded them on directories and specified drives.›*/›getfile(buf)›register char * buf;›{›  if ((pos = getnword(buf, 2)) == NULL)›    {›      Console("Missing include file name.\n");›      exit(11);›    }›  else›    strcpy(ifname, pos);››#ifdef M6502›  fclose(in);›  if ((in = fopen(fix_pathname(ifname), "r")) == NULL)›#else›  if (freopen(ifname, "r", in) !=in)›#endif›    {›      Console("Cannot reassign input file to included file.\n");›      exit(7);›    }›  for (;;)›    {›      if (fgets(buf, LINELEN, in) == NULL)›{›  Console("No begin line in included file: ");›  Console(ifname);›  Console(".\n");›  exit(3);›}››      if (strncmp(buf, "table", 5) == 0)›{›  gettable();›  continue;›}›      if (strncmp(buf, "begin", 5) == 0)›{›  break;›}›    }›  lens = strlen(buf);›  if (lens)›    buf[--lens] = '\0';›  if ((pos = getnword(buf, 3)) == NULL)›    {›      Console("Missing part name, in included begin line.\n");›      part = '?';›    }›  else›    {›      part = *pos;›/*› * Check the part suffix.› */›      partn++;›      if (part != partn)›{›  mism[SUBS1] = part;›  mism[SUBS2] = partn;›  Console(mism);›}›    }›}››/*› * Output to console, immune against redirection of stdout.› */›Console(s)›register char * s;›{›  while (*s)›    Bconout(2, *s++);›}›