home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / unix / unxfiles.sit / source / UNIX / uuencode.c next >
Encoding:
C/C++ Source or Header  |  1989-11-22  |  3.5 KB  |  178 lines
  1. #include <string.h>
  2.  
  3. #include "my_stdio.h"  /* for multi-volume file systems; set up for Mac */
  4. #include "Un*xFiles.h"
  5.  
  6. int fr ( FILE *fd, char *buf, int cnt );
  7. int decode ( FILE *in, FILE *out );
  8. int doutdec(char *p, FILE *f, int n);
  9. char *index ( char *sp, char c );
  10. int encode( FILE *in, FILE *out);
  11. int eoutdec ( char *p, FILE *f);
  12.  
  13. int fr ( FILE *fd, char *buf, int cnt ) {
  14.     int c, i;
  15.  
  16.     for (i=0; i<cnt; i++) {
  17.         c = getc(fd);
  18.         if (c == EOF)
  19.             return(i);
  20.         buf[i] = c;
  21.     }
  22.     return (cnt);
  23. }
  24.  
  25. /************************************************************************/
  26.  
  27. /* single character decode */
  28. #define DEC(c)    (((c) - ' ') & 077)
  29.  
  30. int uudecode ( char *source ) {
  31.     FILE *in, *out;
  32.     int mode, result;
  33.     char dest[31], buf[80];
  34.  
  35.     if (!(in = my_fopen(source, "r")))
  36.         return ( NOOPIN );
  37.  
  38.     /* search for header line */
  39.     for (;;) {
  40.         if (fgets(buf, sizeof buf, in) == NULL)
  41.             return ( FORMAT );
  42.         if (strncmp(buf, "begin ", 6) == 0)
  43.             break;
  44.     }
  45.     sscanf(buf, "begin %o %s", &mode, dest);
  46.  
  47.     /* create output file */
  48.     out = my_fopen(dest, "w");
  49.     if (out == NULL)
  50.         return ( NOOPOUT );
  51.  
  52.     if ( result = decode (in, out) )
  53.         return ( result );
  54.  
  55.     if (fgets(buf, sizeof buf, in) == NULL || strcmp(buf, "end\n"))
  56.         return ( DETRANS );
  57.  
  58.     return ( NOERR );
  59. }
  60.  
  61. int decode ( FILE *in, FILE *out ) {
  62.     char buf[80];
  63.     char *bp;
  64.     int n, result;
  65.  
  66.     for (;;) {
  67.         /* for each input line */
  68.         if (fgets(buf, sizeof buf, in) == NULL)
  69.             return ( NOREAD );
  70.         n = DEC(buf[0]);
  71.         if (n <= 0)
  72.             break;
  73.  
  74.         bp = &buf[1];
  75.         while (n > 0) {
  76.             if ( result = doutdec(bp, out, n) )
  77.                 return ( result );
  78.             bp += 4;
  79.             n -= 3;
  80.         }
  81.     }
  82.     return ( NOERR );
  83. }
  84.  
  85. int doutdec(char *p, FILE *f, int n) {
  86.     int c1, c2, c3;
  87.  
  88.     c1 = DEC(*p)   << 2 | DEC(p[1]) >> 4;
  89.     c2 = DEC(p[1]) << 4 | DEC(p[2]) >> 2;
  90.     c3 = DEC(p[2]) << 6 | DEC(p[3]);
  91.     if (n >= 1)
  92.         if ( EOF == putc(c1, f) )
  93.             return ( NOWRITE );
  94.     if (n >= 2)
  95.         if ( EOF == putc(c2, f) )
  96.             return ( NOWRITE );
  97.     if (n >= 3)
  98.         if ( EOF == putc(c3, f) )
  99.             return ( NOWRITE );
  100.     return ( NOERR );
  101. }
  102.  
  103. char *index ( char *sp, char c ) {
  104.     do {
  105.         if (*sp == c)
  106.             return(sp);
  107.     } while (*sp++);
  108.     return(NULL);
  109. }
  110.  
  111. /**********************************************************************/
  112.  
  113. /* ENC is the basic 1 character encoding function to make a char printing */
  114. #define ENC(c) (((c) & 077) + ' ')
  115.  
  116. int uuencode (char *source, char *target) {
  117.     FILE *in, *out;
  118.     int result;
  119.  
  120.     if ( ( in = my_fopen ( source,  "r" ) ) == NULL )
  121.         return ( NOOPIN );
  122.  
  123.     if ( ( out = my_fopen ( target, "w" ) ) == NULL )
  124.         return ( NOOPOUT );
  125.  
  126.     fprintf(out, "begin %o %s\n", 022, source);
  127.     if ( ferror ( out ) )
  128.         return ( NOWRITE );
  129.  
  130.     if ( NOERR != ( result = encode(in, out) ) )
  131.         return ( result );
  132.  
  133.     fprintf(out, "end\n");
  134.     if ( ferror ( out ) )
  135.         return ( NOWRITE );
  136.     
  137.     return ( NOERR );
  138. }
  139.  
  140. int encode( FILE *in, FILE *out) {
  141.     char buf[80];
  142.     int i, n, result;
  143.  
  144.     for (;;) {
  145.         /* 1 (up to) 45 character line */
  146.         n = fr(in, buf, 45);
  147.         if ( EOF == putc(ENC(n), out) )
  148.             return ( NOWRITE );
  149.  
  150.         for (i=0; i<n; i += 3)
  151.             if ( NOERR != ( result = eoutdec(&buf[i], out) ) )
  152.                 return ( result );
  153.  
  154.         if ( EOF == putc('\n', out) )
  155.             return ( NOWRITE );
  156.         if (n <= 0)
  157.             break;
  158.     }
  159.     return ( NOERR );
  160. }
  161.  
  162. int eoutdec ( char *p, FILE *f) {
  163.     int c1, c2, c3, c4;
  164.  
  165.     c1 = *p >> 2;
  166.     c2 = (*p << 4) & 060 | (p[1] >> 4) & 017;
  167.     c3 = (p[1] << 2) & 074 | (p[2] >> 6) & 03;
  168.     c4 = p[2] & 077;
  169.     if ( EOF == putc(ENC(c1), f) )
  170.         return ( NOWRITE );
  171.     if ( EOF == putc(ENC(c2), f) )
  172.         return ( NOWRITE );
  173.     if ( EOF == putc(ENC(c3), f) )
  174.         return ( NOWRITE );
  175.     if ( EOF == putc(ENC(c4), f) )
  176.         return ( NOWRITE );
  177.     return ( NOERR );
  178. }