indhist

[Dominik Wujastyk]

On Dec 7,  2:56pm, Vilok wrote:
 
> In message "Re: indhist", you write:
> >it through the program XXdecode, followed by unZIP.  Then you
>
> I have heard of uudecode/encode but not XXencode ? My workstation
> running HP-UX 8.0 does not have it. I tried uudecode but it doesn't
> work. What is XXencode ? Where can I get XXencode from ? Also I
> don't have zip/unzip.
>
> Can somebody also get indhist converted to uuencode + compressed ?
 
The XXencode binary-to-ascii conversion replaced UUencode about four
years ago as the encoding of choice for robust transmission of files
between networks (especially involoving ASCII/EBCDIC gateways).
I have used Xxencode because it really solves a lot of problems which
people have with Uuencoding.  XXen/decode source code is freely available
from many sites on the Internet (use archie to find the nearest site).
 
Zip and unzip are also available free from many sites.  Again, I refer
you to Archie.  Zip is a totally standard form of file distribution,
far more widely used than compress.
 
 
I append the C source code for xxdecode.
 
Dominik
 
/*
Date: Wed, 13 Jul 88 13:39:20 cdt
From: wucs1!wubios!david at uunet.UU.NET (David Camp)
Subject: XXENCODE.C and XXDECODE.C
 
     Here is the source for XXENCODE and XXDECODE, replacements for
UUENCODE and UUDECODE that use a better character set.  I use them to
transfer files between VM/CMS and my PC and Unix.  They were developed by
Phil Howard <PHIL at UIUCVMD.BITNET>.  I adapted them for MS-Dos and VM/CMS.
They are public domain.
 
Notice that under VM/CMS, these require the Waterloo C compiler.  Under
MS-Dos they require the Microsoft C compiler.  The usual cc command works
under Ultrix.
 
*-------------------------------------------------------------------------*
| (314) 362-3635                     Mr. David J. Camp                    |
| Room 1108D               ^         Box 8067, Biostatistics              |
| 706 South Euclid       < * >       Washington University Medical School |
|                          v         660 South Euclid                     |
| Bitnet: david%wubios at wucfua.wustl  Saint Louis, MO 63110                |
| Internet: david%wubios at wucfua.wustl.edu                                 |
*-------------------------------------------------------------------------*
 
-----xxdecode.c-----
*/
 
#ifndef lint
static char sccsid[] = "@(#)xxdecode.c  5.3 (Berkeley) 4/10/85";
#endif
 
/*
 * xxdecode [input]
 *
 * create the specified file, decoding as you go.
 * used with xxencode.
 */
#include <stdio.h>
#include <string.h>
#ifndef MSDOS
#ifndef VMCMS
#include <pwd.h>
#endif /* VMCMS */
#else /* MSDOS */
#include <fcntl.h>
#include <io.h>
#endif /* MSDOS */
 
#ifndef VMCMS
#include <sys/types.h>
#include <sys/stat.h>
#else
#include <types.h>
#include <stat.h>
#include <dir.h>
DIR * dir;
#define perror(string) fprintf (stderr, "%s\n", string)
#endif /* VMCMS */
 
/* single character decode */
#define DEC(c)  ( table[ (c) & 0177 ] )
 
static char set[] =
 "+-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";
static char table[128];
int replace;
 
main (argc, argv)
int argc;
char * argv [];
 
{
FILE *in, *out;
int mode;
char source [128];
char cdest [128];
char * dest;
char * temp;
int i;
char buf[80];
int did = 0;
int replflg = 0;
int nameptr = 1;
struct stat statbuf;
 
if (argc > 1)
    {
    if (strcmp (argv [1], "-r") == 0 || strcmp (argv [1], "-R") == 0)
        {
        replflg = 1;
        nameptr = 2;
        }
    }
/* input filename */
if (nameptr <= argc - 1)
    {
    strcpy (source, argv [nameptr]);
#ifdef VMCMS
    for (i = nameptr + 1; i < argc; i++)
        {
        strcat (source, " ");
        strcat (source, argv [i]);
        }
#endif /* VMCMS */
    if ((in = fopen(source, "r")) == NULL)
        {
#ifndef VMCMS
        perror(source);
#else /* VMCMS */
        fprintf (stderr, "Cannot open file <%s>\n", source);
#endif /* VMCMS */
        exit(1);
        }
    }
else
#ifdef VMCMS
    {
    fprintf (stderr, "Usage: xxdecode [-r] fn ft [fm] ");
    fprintf (stderr, "[> fn ft [fm] [(options] (bin]\n");
    exit (2);
    }
#else
    in = stdin;
if (isatty (fileno (in)) || argc > 2)
    {
    fprintf (stderr, "Usage: xxdecode [-r] [infile]\n");
    exit(2);
    }
#endif /* VMCMS */
 
while (1)
    {
    dest = cdest;
    /* search for header line */
    for (;;)
        {
        if (fgets(buf, sizeof buf, in) == NULL)
            {
            if (! did)
                {
                fprintf (stderr, "No begin line\n");
                exit (3);
                }
            else
                exit (0);
            }
        if (strncmp(buf, "begin ", 6) == 0)
            {
            did = 1;
            break;
            }
        }
    sscanf(buf, "begin %o %s", &mode, dest);
 
    /* handle ~user/file format */
    if (dest[0] == '~')
        {
#ifndef VMCMS
#ifndef MSDOS
        char *sl;
        struct passwd *getpwnam();
        char *index();
        struct passwd *user;
        char dnbuf[100];
 
        sl = index(dest, '/');
        if (sl == NULL)
            {
            fprintf(stderr, "Illegal ~user\n");
            exit(3);
            }
        *sl++ = 0;
        user = getpwnam(dest+1);
        if (user == NULL)
            {
            fprintf(stderr, "No such user as %s\n", dest);
            exit(4);
            }
        strcpy(dnbuf, user->pw_dir);
        strcat(dnbuf, "/");
        strcat(dnbuf, sl);
        strcpy(dest, dnbuf);
#else
        dest++;
#endif /* MSDOS */
#endif /* VMCMS */
        }
    replace = replflg;
    if (strcmp (dest, "/dev/stdout") != 0)
        {
#ifdef VMCMS
        for (i = strlen (dest) - 1; i >= 0 && dest [i] != '/'; i--)
            dest [i] = toupper (dest [i]);
        dest = &dest [i + 1];
        for (i = 0; dest [i] && dest [i] != '.'; i++)
            dest [i] = toupper (dest [i]);
        if (dest [i] == '.')
            dest [i] = ' ';
        for (; dest [i] && dest [i] != '.'; i++)
            ;
        if (dest [i] == '.')
            dest [i] = '\0';
#endif /* VMCMS */
        if (stat (dest, &statbuf) == 0 && ! replflg)
            {
            fprintf (stderr, "File <%s> already exists.\n", dest);
            fprintf (stderr, "Replace? (Y or N): ");
#ifdef VMCMS
            fprintf (stderr, "\n");
#endif /* VMCMS */
            do
                {
                fscanf (stdin, "%s", buf);
                buf [0] = toupper (buf [0]);
                }
                while (buf [0] != 'N' && buf [0] != 'Y');
            replace = (buf [0] == 'Y');
            }
        else
            replace = 1;
#ifdef VMCMS
        strcat (dest, " (bin");
#endif /* VMCMS */
        }
    else
        replace = 1;
    /* create output file */
    if (replace)
        {
        fprintf (stderr, "Opening file: %s\n", dest);
        if (strcmp (dest, "/dev/stdout") == 0)
            out = stdout;
        else
            out = fopen(dest, "w");
#ifdef MSDOS
        if (setmode (fileno (out), O_BINARY) == -1)
            {
            perror ("Cannot open stdout as binary\n");
            exit (3);
            }
#endif /* MSDOS */
        if (out == NULL)
            {
#ifndef VMCMS
            perror(dest);
#else /* VMCMS */
            fprintf (stderr, "Cannot open file <%s>\n", dest);
#endif /* VMCMS */
            exit(4);
            }
#ifndef VMCMS
        chmod(dest, mode);
#endif /* VMCMS */
        }
 
    decode(in, out);
 
    if (fgets(buf,sizeof (buf), in) == NULL || strcmp (buf, "end\n"))
        {
        fprintf(stderr, "No end line\n");
        exit(5);
        }
    }
}
 
/*
 * copy from in to out, decoding as you go along.
 */
decode(in, out)
FILE *in;
FILE *out;
{
        char buf[80];
        char *bp;
        int n;
 
        bp=table;       /* clear table */
        for( n=128 ; n ; --n ) {
          *(bp++) = 0;
        };
 
        bp=set;         /* fill table */
        for( n=64 ; n ; --n ) {
          table[ *(bp++) & 0177 ] = 64-n;
        };
 
        for (;;) {
                /* for each input line */
                if (fgets(buf, sizeof buf, in) == NULL) {
                        printf("Short file\n");
                        exit(10);
                }
                n = DEC(buf[0]);
                if (n <= 0)
                        break;
 
                bp = &buf[1];
                while (n > 0) {
                        if (replace)
                            outdec(bp, out, n);
                        bp += 4;
                        n -= 3;
                }
        }
}
 
/*
 * 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.
 */
outdec(p, f, n)
char *p;
FILE *f;
{
        int c1, c2, c3;
 
        c1 = DEC(*p) << 2 | DEC(p[1]) >> 4;
        c2 = DEC(p[1]) << 4 | DEC(p[2]) >> 2;
        c3 = DEC(p[2]) << 6 | DEC(p[3]);
        if (n >= 1)
                putc(c1, f);
        if (n >= 2)
                putc(c2, f);
        if (n >= 3)
                putc(c3, f);
}
 
 
/* fr: like read but stdio */
int
fr(fd, buf, cnt)
FILE *fd;
char *buf;
int cnt;
{
        int c, i;
 
        for (i=0; i<cnt; i++) {
                c = getc(fd);
                if (c == EOF)
                        return(i);
                buf[i] = c;
        }
        return (cnt);
}
 
/*
 * Return the ptr in sp at which the character c appears;
 * NULL if not found
 */
 
#define NULL    0
 
char *
index(sp, c)
register char *sp, c;
{
        do {
                if (*sp == c)
                        return(sp);
        } while (*sp++);
        return(NULL);
}