#ifdef TYPES_H
#include <sys/types.h>
#endif /* TYPES_H */
#include <sys/stat.h>
#include "globals.h"
#include "crc.h"
#include "readline.h"
#include "../util/masks.h"
#include "../util/util.h"
#include "../util/patchlevel.h"
#include "../fileio/wrfile.h"
#include "../fileio/wrfileopt.h"
#include "../fileio/machdr.h"
#include "../fileio/kind.h"
#include "../util/curtime.h"
#include "hexbin.h"

#define LOCALOPT	"ilvcn:qVH"

extern void exit();
extern void backtrans();
#ifdef DL
extern void dl();
#endif /* DL */
#ifdef HECX
extern void hecx();
#endif /* HECX */
#ifdef HQX
extern void hqx();
#endif /* HQX */
#ifdef MU
extern void mu();
#endif /* MU */

static void usage();
static void do_files();
static int find_header();

static char options[128];

int main(argc, argv)
int argc;
char **argv;
{
    char *filename;
    char macname[32];
    extern int optind;
    extern char *optarg;
    int errflg;
    int c;

    set_wrfileopt(0);
    (void)strcat(options, get_wrfileopt());
    (void)strcat(options, LOCALOPT);
    errflg = 0;
    filename = "";
    macname[0] = 0;

    while((c = getopt(argc, argv, options)) != EOF) {
	if(!wrfileopt((char)c)) {
	    switch(c) {
	    case 'l':
		listmode++;
		break;
	    case 'v':
		verbose++;
		break;
	    case 'i':
		info_only++;
		break;
	    case 'c':
		uneven_lines++;
		break;
	    case 'n':
		backtrans(macname, optarg);
		break;
	    case '?':
		errflg++;
		break;
	    case 'H':
		give_wrfileopt();
		(void)fprintf(stderr, "Hexbin specific options:\n");
		(void)fprintf(stderr,
			"-i:\tgive information only, do not convert\n");
		(void)fprintf(stderr, "-l:\tgive listing\n");
		(void)fprintf(stderr,
			"-v:\tgive verbose listing, including lines skipped\n");
		(void)fprintf(stderr,
			"-c:\tdo not check for equal line lengths\n");
		(void)fprintf(stderr, "-n nm:\tname to be generated\n");
		(void)fprintf(stderr,
			"-V:\tgive information about this version\n");
		(void)fprintf(stderr, "-H:\tthis message\n");
		(void)fprintf(stderr, "Default is silent conversion\n");
		exit(0);
	    case 'V':
		(void)fprintf(stderr, "Version %s, ", VERSION);
		(void)fprintf(stderr, "patchlevel %d", PATCHLEVEL);
		(void)fprintf(stderr, "%s.\n", get_mina());
		(void)fprintf(stderr, "Hexified files recognized:\n");
#ifdef DL
		(void)fprintf(stderr, "\tDownload (.dl)\n");
#endif /* DL */
#ifdef HECX
		(void)fprintf(stderr, "\tBinHex 2.0 (.hex)\n");
		(void)fprintf(stderr, "\tBinHex 3.0 (.hcx)\n");
#endif /* HECX */
#ifdef HQX
		(void)fprintf(stderr, "\tBinHex 4.0 (.hqx)\n");
#endif /* HQX */
#ifdef MU
		(void)fprintf(stderr, "\tUUTool (.mu)\n");
#endif /* MU */
		exit(0);
	    }
	}
    }
    if(errflg) {
	usage();
	exit(1);
    }
    if(info_only || verbose) {
	listmode++;
    }

    do {
	if(optind == argc) {
	    filename = "-";
	} else {
	    filename = argv[optind];
	    optind++;
#ifdef SCAN
	    do_idf(filename, UNIX_NAME);
#endif /* SCAN */
	}
	do_files(filename, macname);
    } while(optind < argc);
    exit(0);
    /* NOTREACHED */
}

static char *extensions[] = {
#ifdef DL
    ".dl",
#endif /* DL */
#ifdef HECX
    ".hex",
    ".Hex",
    ".hcx",
    ".Hcx",
#endif /* HECX */
#ifdef HQX
    ".hqx",
    ".Hqx",
#endif /* HQX */
#ifdef MU
    ".mu",
#endif /* MU */
    "",
    NULL
};

static void do_files(filename, macname)
char *filename;	/* input file name -- extension optional */
char *macname;	/* name to use on the mac side of things */
{
    char namebuf[256];
    char **ep;
    struct stat stbuf;
    long curtime;
    int qformat;
    int again;

    if(filename[0] == '-') {
	ifp = stdin;
	filename = "stdin";
    } else {
	/* find input file and open it */
	for(ep = extensions; *ep != NULL; ep++) {
	    (void)sprintf(namebuf, "%s%s", filename, *ep);
	    if(stat(namebuf, &stbuf) == 0) {
		break;
	    }
	}
	if(*ep == NULL) {
	    perror(namebuf);
	    exit(1);
	}
	ifp = fopen(namebuf, "r");
	if(ifp == NULL) {
	    perror(namebuf);
	    exit(1);
	}
    }
    again = 0;
nexttry:
    if(ifp == stdin) {
	curtime = (long)time((time_t *)0) + TIMEDIFF;
	mh.m_createtime = curtime;
	mh.m_modifytime = curtime;
    } else {
	mh.m_createtime = stbuf.st_mtime + TIMEDIFF;
	mh.m_modifytime = stbuf.st_mtime + TIMEDIFF;
    }

    qformat = find_header(again); /* eat mailer header &cetera, intuit format */

    switch (qformat) {
#ifdef DL
    case form_dl:
	dl(macname, filename);
	break;
#endif /* DL */
#ifdef HECX
    case form_hecx:
	hecx(macname, filename);
	break;
#endif /* HECX */
#ifdef HQX
    case form_hqx:
	hqx(macname);
	again = 1;
	goto nexttry;
#endif /* HQX */
#ifdef MU
    case form_mu:
	mu(macname);
	again = 1;
	goto nexttry;
#endif /* MU */
    default:
	break;
    }
    (void)fclose(ifp);
}

/* eat characters until header detected, return which format */
static int find_header(again)
int again;
{
    int c, dl_start, llen;
    char *cp;
    char header[INFOBYTES];
    int ds, rs;

    if(again && was_macbin) {
	while(to_read-- > 0) {
	    c = fgetc(ifp);
	}
    }
    was_macbin = 0;
    c = fgetc(ifp);
    (void)ungetc(c, ifp);
    if(c == 0) {
	was_macbin = 1;
	if(fread(header, 1, INFOBYTES, ifp) != INFOBYTES) {
	    (void)fprintf(stderr, "Premature EOF\n");
#ifdef SCAN
	    do_error("hexbin: Premature EOF");
#endif /* SCAN */
	    exit(1);
	}
	ds = get4(header + I_DLENOFF);
	rs = get4(header + I_RLENOFF);
	ds = (((ds + 127) >> 7) << 7);
	rs = (((rs + 127) >> 7) << 7);
	to_read = ds + rs;
	if(strncmp(header + I_TYPEOFF, "TEXT", 4)) {
	    (void)fprintf(stderr, "This file is not a proper BinHexed file.\n");
#ifdef SCAN
	    do_error("hexbin: not a proper BinHexed file");
#endif /* SCAN */
	    exit(1);
	}
	if(listmode) {
	    (void)fprintf(stderr, "This file is probably packed by ");
	    if(!strncmp(header + I_AUTHOFF, "BNHQ", 4)) {
		(void)fprintf(stderr, "\"BinHex\"");
	    } else if(!strncmp(header + I_AUTHOFF, "BthX", 4)) {
		(void)fprintf(stderr, "\"BinHqx\"");
	    } else if(!strncmp(header + I_AUTHOFF, "BnHq", 4)) {
		(void)fprintf(stderr, "\"StuffIt\"");
	    } else if(!strncmp(header + I_AUTHOFF, "ttxt", 4)) {
		(void)fprintf(stderr, "\"Compactor\"");
	    } else if(!strncmp(header + I_AUTHOFF, "BSWU", 4)) {
		(void)fprintf(stderr, "\"UUTool\"");
	    } else {
		(void)fprintf(stderr, "an unknown program");
	    }
	    (void)fprintf(stderr, ".\n");
	}
    }
    /*	look for "(This file ...)" or "(Convert with...)" line. */
    /*	or for "begin " */
    /*	dl format starts with a line containing only the symbols '@' to 'O',
	or '|'. */
    while(readline()) {
	llen = strlen(line);
#ifdef HQX
	if((strncmp(line, "(This file", 10) == 0) ||
	    (strncmp(line, "(Convert with", 13) == 0)) {
	    if(verbose) {
		(void)fprintf(stderr, "Skip:%s\n", line);
	    }
	    break;
	}
#endif /* HQX */
#ifdef MU
	if(strncmp(line, "begin ", 6) == 0) {
	    return form_mu;
	}
#endif /* MU */
#ifdef DL
	/* Do not allow bogus false starts */
	if(llen > 40 && (llen & 1) == 0) {
	    dl_start = 1;
	    for(cp = &line[0]; *cp != 0; cp++) {
		if((*cp < '@' || *cp > 'O') && *cp != '|') {
		    dl_start = 0;
		    break;
		}
	    }
	    if(dl_start && cp > &line[1]) {
		return form_dl;
	    }
	}
#endif /* DL */
	if(llen != 0 && verbose) {
	    (void)fprintf(stderr, "Skip:%s\n", line);
	}
    }
    while(readline()) {
	switch (line[0]) {
#ifdef HQX
	case ':':
	    return form_hqx;
#endif /* HQX */
#ifdef HECX
	case '#':
	    return form_hecx;
#endif /* HECX */
	default:
	    break;
	}
    }

    if(!again) {
	(void)fprintf(stderr, "unexpected EOF\n");
#ifdef SCAN
	do_error("hexbin: unexpected EOF");
#endif /* SCAN */
	exit(1);
    }
    return form_none;
}

static void usage()
{
    (void)fprintf(stderr, "Usage: hexbin [-%s] [filenames]\n", options);
    (void)fprintf(stderr, "Use \"hexbin -H\" for help.\n");
}