This is hexbin.c in view mode; [Download] [Up]
#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");
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.