home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / CMDS / uudecode.t.Z / uudecode.t / uue.c < prev   
C/C++ Source or Header  |  1990-12-09  |  5KB  |  222 lines
  1. /*
  2.  *
  3.  * Uue -- encode a file so that it's printable ascii, short lines
  4.  *
  5.  * Slightly modified from a version posted to net.sources a while back,
  6.  * and suitable for compilation on the IBM PC
  7.  *
  8.  * modified for Lattice C on the ST - 11.05.85 by MSD
  9.  * modified for ALCYON on the ST -    10-24-86 by RDR
  10.  * modified a little more for MWC...  02/09/87 by JPHD
  11.  * added OSK........................  08/12/90 by MHB
  12.  * (An optional first argument of the form: -nnumber (e.g. -500), will
  13.  * produce a serie of files that long, linked by the include statement,
  14.  * such files are automatically uudecoded by the companion program.)
  15.  * More mods, - ...           05/06/87 by jphd
  16.  * Mods for TOPS 20, and more.     08/06/87 by jphd
  17.  *     (remove freopen and rindex...change filename generation...)
  18.  * (A lot more to do about I/O speed, avoiding completely the stdio.h...)
  19.  *
  20.  */
  21.  
  22.  
  23. #include <stdio.h>
  24. #include <ctype.h>
  25.  
  26. #define USAGE 
  27.  
  28. /* ENC is the basic 1 character encoding function to make a char printing */
  29. #define ENC(c) (((c) & 077) + ' ')
  30.  
  31. extern FILE  *fopen();
  32. FILE *fp, *outp;
  33. char ofname[80];
  34. int lenofname;
  35. int stdo = 0;
  36.  
  37. #ifdef ST
  38. #define READ "rb"
  39. #else
  40. #define READ "r"
  41. #endif
  42.  
  43. int part = 'a', chap = 'a';
  44. #define SEQMAX 'z'
  45. #define SEQMIN 'a'
  46. char seqc = SEQMAX;
  47.  
  48. int split = 0; fileln = 32000;
  49.  
  50. main(argc, argv)
  51. int argc; char *argv[];
  52. {
  53.     char *fname;
  54.  
  55.     if (argc < 2) {
  56.         usage();
  57.         exit(0);
  58.         }
  59.     if (argv[1][0] == '-') {
  60.         fileln = -atoi(argv[1]);
  61.         if (fileln <= 0) {
  62.             fprintf(stderr, "Wrong file length arg.\n");
  63.             exit();
  64.         }
  65.         split = 1;
  66.         argv++;
  67.         argc--;
  68.     }
  69.     if ((fp=fopen(argv[1], READ))==NULL) {  /* binary input !!! */
  70.         fprintf(stderr,"Cannot open %s\n",argv[1]);
  71.         exit(1);
  72.     }
  73.     strcpy(ofname, argv[1]);
  74.     fname = ofname;
  75.     do {
  76.         if (*fname == '.')
  77.             *fname = '\0';
  78.     } while (*fname++);
  79.         /* 8 char prefix + .uue -> 12 chars MAX */
  80.     lenofname = strlen(ofname);
  81.     if (lenofname > 8) ofname[8] = '\0';
  82.     strcat(ofname,".uue");
  83.     lenofname = strlen(ofname);
  84.     if (!split && (argc > 2) && (argv[2][0] == '-')) {
  85.         stdo = 1;
  86.         outp = stdout;
  87.      } else {
  88.          makename();
  89.          if((outp = fopen(ofname, "w")) == NULL) {
  90.              fprintf(stderr,"Cannot open %s\n", ofname);
  91.              exit(1);
  92.              }
  93.     }
  94.     maketable();
  95.     fprintf(outp,"begin %o %s\n", 0644, argv[1]);
  96.     encode();
  97.     fprintf(outp,"end\n");
  98.     fclose(outp);
  99.     exit(0);
  100. }
  101.  
  102. /* create ASCII table so a mailer can screw it up and the decode
  103.  * program can restore the error.
  104.  */
  105. maketable()
  106. {
  107.     register int i, j;
  108.  
  109.     fputs("table\n", outp);
  110.     for(i = ' ', j = 0; i < '`' ; j++) {
  111.         if (j == 32)
  112.             putc('\n', outp);
  113.         putc(i++, outp);
  114.     }
  115.     putc('\n', outp);
  116. }
  117.  
  118. /*
  119.  * Generate the names needed for single and multiple part encoding.
  120.  */
  121. makename()
  122. {
  123.     if (split) {
  124.         ofname[lenofname - 1] = part;
  125.         ofname[lenofname - 2] = chap;
  126.     }
  127. }
  128.  
  129. /*
  130.  * copy from in to out, encoding as you go along.
  131.  */
  132. encode()
  133. {
  134.     char buf[80];
  135.     register int i, n;
  136.     register int lines;
  137.     lines = 6;
  138.  
  139.     for (;;) {
  140.         n = fr(buf, 45);
  141.         putc(ENC(n), outp);
  142.         for (i = 0; i < n; i += 3)
  143.               outdec(&buf[i]);
  144.         putc(seqc, outp);
  145.         seqc--;
  146.         if (seqc < SEQMIN) seqc = SEQMAX;
  147.         putc('\n', outp);
  148.         ++lines;
  149.         if (split && (lines > fileln)) {
  150.             part++;
  151.             if (part > 'z') {
  152.                 part = 'a';
  153.                 if (chap == 'z')
  154.                     chap = 'a'; /* loop ... */
  155.                 else
  156.                     chap++;
  157.             }
  158.             makename();
  159.             fprintf(outp,"include %s\n",ofname);
  160.             fclose(outp);
  161.             if((outp = fopen(ofname, "w")) == NULL) {
  162.                 fprintf(stderr,"Cannot open %s\n",ofname);
  163.                 exit(1);
  164.             }
  165.             maketable();
  166.             fprintf(outp,"begin part %c %s\n",part,ofname);
  167.             lines = 6;
  168.         }
  169.         if (n <= 0)
  170.             break;
  171.     }
  172. }
  173.  
  174. /*
  175.  * output one group of 3 bytes, pointed at by p, on file f.
  176.  */
  177. outdec(p)
  178. register char *p;
  179. {
  180.     register int c1, c2, c3, c4;
  181.  
  182.     c1 = *p >> 2;
  183.     c2 = (*p << 4) & 060 | (p[1] >> 4) & 017;
  184.     c3 = (p[1] << 2) & 074 | (p[2] >> 6) & 03;
  185.     c4 = p[2] & 077;
  186.     putc(ENC(c1), outp);
  187.     putc(ENC(c2), outp);
  188.     putc(ENC(c3), outp);
  189.     putc(ENC(c4), outp);
  190. }
  191.  
  192. /* fr: like read but stdio */
  193. int fr(buf, cnt)
  194. register char *buf;
  195. register int cnt;
  196. {
  197.     register int c, i;
  198.  
  199.     for (i = 0; i < cnt; i++) {
  200.         c = fgetc(fp);
  201.         if (feof(fp))
  202.             return(i);
  203.         buf[i] = c;
  204.     }
  205.     return (cnt);
  206. }
  207.  
  208. usage()
  209. {
  210.   fprintf(stderr, "Almost foolproof uuencode v3.1 06 Aug 1987\n");
  211.   fprintf(stderr, "Usage: uue [-n] inputfile [-]\n");
  212.   fprintf(stderr,
  213.     "SHORT DESCRIPTION\n\
  214.     An optional first argument of the form: -number (e.g. -500),\n\
  215.     will produce a series of files that number of lines long, linked\n\
  216.     by the include statement. The default for 'number' is %d.\n\
  217.     Files produced like this are automatically uudecoded by the\n\
  218.     companion program UUD.\n\
  219.     If a '-' is given as the last argument, output is redirected\n\
  220.     to the standard output.\n", fileln);
  221. }
  222.