Otherware/Otherware_1_SB_Development.iso/mac/util/unix/mcread1.tz/mcread1/main.c

C/C++ Source or Header | 1991-06-26 | 4.1 KB | 197 lines

/*    mcread: main.c
    Copyright (C) 1991, Mike Gleason Jr & NCEMRSoft.
    All Rights Reserved. See mcread.h for details. */


#include <stdio.h>
#include <signal.h>

#ifndef THINK_C
#ifndef applec
#ifdef BIG_ENDIAN
#include <sys/types.h>    /* need sys/types.h or stddef.h for size_t */
#endif
#endif
#endif                            /* if unix */

#include "mcread.h"

extern short                    tab, width, linecount, pager;
short                            readFromStdin;


main (argc, argv)
    int argc;
    char **argv;
{
    register short i, filesToDo, filesDone;
    char crap[80];
    extern void on_interrupt();

#ifdef THINK_C
#include <console.h>
    argc = ccommand (&argv);
#endif
    if (argc < 2) {
usage:
        (void) fprintf (stderr, "usage: %s %s\n", argv[0], USAGE);
        exit (EXIT_FAILURE);
    }

    if (signal(SIGINT, SIG_IGN) != SIG_IGN)
        (void) signal(SIGINT, on_interrupt);

    readFromStdin = 0;

    /* preprocess options... */
    for (i=1,filesToDo=0; i<argc; i++)
        if (*argv[i] == '-')
            switch (argv[i][1]) {
                case 't': tab = atoi (argv[i] + 2); break;
                case 'w': width = atoi (argv[i] + 2); break;
                case 'p':
                    if (argv[i][2])
                        pager = atoi (argv[i] + 2);
                    else
                        pager = 23;
                    break;
                /* case 's':
                case '\0': readFromStdin = 1; break; */
                default:
                    goto usage;
            }
        else
            filesToDo++;

    /* ...now do the converting. */
    if (readFromStdin)
        (void) thrash ("stdin");
    else for (i=1,filesDone=0; i<argc; i++)
        if (*argv[i] != '-') {
            linecount = 0;
            if (filesToDo > 1)
            {
                (void) printf ("\n\nfile: %s\n", argv[i]);
                linecount = 1;
                (void) thrash (argv[i]);
                filesDone++;
                if (pager > 0 && filesDone < filesToDo) {
                    (void) printf ("...end of file '%s'...hit return, q to cancel...", argv[i]);
                    (void) fgets (crap, 78, stdin);
                    if (*crap == 'q') exit (EXIT_SUCCESS);
                }
            } else (void) thrash (argv[i]);
        }
}    /* main */



void on_interrupt()
{
    (void) fprintf (stderr, "### mcread: aborted.\n");
    exit (EXIT_FAILURE);
}    /* on_interrupt */



int thrash (name)
    char                    *name;
{
    char                    typestr[8];
    long                    dforklen;
    FILE                    *in;
    int                        result;

    if (readFromStdin)
        return (0);        /* not supported yet */

    if (!(in = fopen (name, READ_BINARY))) {
        (void) fprintf (stderr, "%s: could not open for reading.\n", name);
        return (1);
    }

    dforklen = CheckMBHeader(in, typestr);

    if (dforklen < 0L) {        /* no mb header.  gr.... */
        result = thrash_macwrite (in, name, dforklen);
        if (result) {        /* not macwrite, try text. */
            rewind (in);
            result = thrash_text (in, name, dforklen, TRUE);
        }
    }
    else if (strcmp(MACWRITE_TYPE, typestr) == 0)
        result = thrash_macwrite (in, name, dforklen);
    else if (strcmp(TEXT_TYPE, typestr) == 0)
        result = thrash_text (in, name, dforklen, FALSE);
    else if (strcmp(TEACHTEXT_TYPE, typestr) == 0)
        result = thrash_text (in, name, dforklen, TRUE);
    else if (strcmp(WORD_TYPE, typestr) == 0) {
        (void) fprintf (stderr, "%s: cannot mcread MS Word documents (yet).\n",
        name);
    }
    else {
        (void) fprintf (stderr, "%s: unrecognized file type (%s)\n",
            name, typestr);
        (void) fclose (in);
        return (2);
    }

    (void) fclose (in);
    return (0);
}    /* thrash;  am I the only programmer who listens to thrash/speed metal? */



/* If you know for sure that the machine you are going to run this on had
    Big Endian byte-ordering, you can #define it and you'll get a mild
    speed increase/size decrease. */

#ifdef BIG_ENDIAN

MacWord Getw (in)
    FILE *in;
{
    MacWord aWord;    /* 2 bytes */
    fread (&aWord, (size_t) 2, (size_t) 1, in);
    return (aWord);
}

MacLongword Getl (in)
    FILE *in;
{
    MacLongword aLongword;    /* 4 bytes */
    fread (&aLongword, (size_t) 4, (size_t) 1, in);
    return (aLongword);
}

#else

MacWord Getw (in)
    FILE *in;
{
    register MacWord a, b;
    register MacWord aWord;    /* 2 bytes */

    a = (MacWord) getc (in) << 8;
    b = (MacWord) getc (in);
    aWord = a + b;
    return (aWord);
}

MacLongword Getl (in)
    FILE *in;
{
    register MacLongword aLongword;    /* 4 bytes */
    register MacLongword a, b, c, d;

    a = (long) getc (in) << 24;
    b = (long) getc (in) << 16;
    c = (long) getc (in) << 8;
    d = (long) getc (in);
    aLongword = a + b + c + d;
    return (aLongword);
}

#endif
/* eof */