Myth/foo2zjs
1
0
Fork 0
mirror of https://github.com/koenkooi/foo2zjs.git synced 2026-01-22 03:34:49 +08:00
Code Issues Projects Releases Wiki Activity
foo2zjs/slxdecode.c
Koen Kooi 66819e6d05 import 'Tarball last modified: Fri Jan 22 05:14:24 2016 CST' 
Signed-off-by: Koen Kooi <koen@dominion.thruhere.net>
2016-01-25 16:22:04 +01:00

599 lines
13 KiB
C
Raw Permalink Blame History

/*
* $Id: slxdecode.c,v 1.16 2014/01/24 19:25:47 rick Exp $
*/
/*b
* Copyright (C) 2003-2006 Rick Richardson
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*
* Author: Rick Richardson <rick.richardson@comcast.net>
b*/
#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include <string.h>
#include <unistd.h>
#include <errno.h>
#include "slx.h"
#include "jbig.h"
/*
* Global option flags
*/
int Debug = 0;
char *RawFile;
char *DecFile;
int PrintOffset = 0;
int PrintHexOffset = 0;
void
debug(int level, char *fmt, ...)
{
va_list ap;
if (Debug < level)
return;
va_start(ap, fmt);
vfprintf(stderr, fmt, ap);
va_end(ap);
}
int
error(int fatal, char *fmt, ...)
{
va_list ap;
fprintf(stderr, fatal ? "Error: " : "Warning: ");
if (errno)
fprintf(stderr, "%s: ", strerror(errno));
va_start(ap, fmt);
vfprintf(stderr, fmt, ap);
va_end(ap);
if (fatal > 0)
exit(fatal);
else
{
errno = 0;
return (fatal);
}
}
void
usage(void)
{
fprintf(stderr,
"Usage:\n"
" slxdecode [options] < zjs-file\n"
"\n"
" Decode a SLX stream into human readable form.\n"
"\n"
" A SLX stream is the printer language used by some Lexmark\n"
" printers, such as the C500n.\n"
"\n"
" More information on SLX Stream can be found at:\n"
"\n"
" http://softwareimaging.com/products-services/sorcerer/index.asp\n"
"\n"
"Options:\n"
" -d basename Basename of .pbm file for saving decompressed planes\n"
" -r basename Basename of .jbg file for saving raw planes\n"
" -o Print file offsets\n"
" -h Print hex file offsets\n"
" -D lvl Set Debug level [%d]\n"
, Debug
);
exit(1);
}
void
print_bih(unsigned char bih[20])
{
unsigned int xd, yd, l0;
xd = (bih[4] << 24) | (bih[5] << 16) | (bih[6] << 8) | (bih[7] << 0);
yd = (bih[8] << 24) | (bih[9] << 16) | (bih[10] << 8) | (bih[11] << 0);
l0 = (bih[12] << 24) | (bih[13] << 16) | (bih[14] << 8) | (bih[15] << 0);
printf(" DL = %d, D = %d, P = %d, - = %d, XY = %d x %d\n",
bih[0], bih[1], bih[2], bih[3], xd, yd);
printf(" L0 = %d, MX = %d, MY = %d\n",
l0, bih[16], bih[17]);
printf(" Order = %d %s%s%s%s%s\n", bih[18],
bih[18] & JBG_HITOLO ? " HITOLO" : "",
bih[18] & JBG_SEQ ? " SEQ" : "",
bih[18] & JBG_ILEAVE ? " ILEAVE" : "",
bih[18] & JBG_SMID ? " SMID" : "",
bih[18] & 0xf0 ? " other" : "");
printf(" Options = %d %s%s%s%s%s%s%s%s\n", bih[19],
bih[19] & JBG_LRLTWO ? " LRLTWO" : "",
bih[19] & JBG_VLENGTH ? " VLENGTH" : "",
bih[19] & JBG_TPDON ? " TPDON" : "",
bih[19] & JBG_TPBON ? " TPBON" : "",
bih[19] & JBG_DPON ? " DPON" : "",
bih[19] & JBG_DPPRIV ? " DPPRIV" : "",
bih[19] & JBG_DPLAST ? " DPLAST" : "",
bih[19] & 0x80 ? " other" : "");
printf(" %u stripes, %d layers, %d planes\n",
((yd >> bih[1]) + ((((1UL << bih[1]) - 1) & xd) != 0) + l0 - 1) / l0,
bih[1] - bih[0], bih[2]);
}
void
decode(FILE *fp)
{
DWORD magic;
SL_HEADER hdr;
int c;
int rc;
int size;
int items;
char *codestr;
FILE *dfp = NULL;
FILE *rfp = NULL;
int pageNum = 0;
int padding;
int len;
int curOff = 0;
struct jbg_dec_state s[5];
unsigned char bih[20];
int bihlen = 0;
int imageCnt[5] = {0,0,0,0,0};
int pn = 0;
int incrY = 0;
int totSize = 0;
/*
* Zenographics ZX format
*/
c = getc(fp);
if (c == EOF)
{
printf("EOF on file reading header.\n");
return;
}
ungetc(c, fp);
if (c == '\033')
{
char buf[1024];
while (fgets(buf, sizeof(buf), fp))
{
if (PrintOffset)
printf("%d: ", curOff);
else if (PrintHexOffset)
printf("%6x: ", curOff);
if (buf[0] == '\033')
{
printf("\\033");
fputs(buf+1, stdout);
}
else
fputs(buf, stdout);
curOff += strlen(buf);
if (strcmp(buf, "@PJL ENTER LANGUAGE = ZJS\r\n") == 0)
break;
if (strcmp(buf, "@PJL USTATUS TIMED = 30\n") == 0)
{
rc = fread(buf, 52, 1, fp);
break;
}
}
if (feof(fp))
{
printf("\n");
return;
}
}
/*
* Software Imaging K.K. SLX_MAGIC format
*/
rc = fread(&magic, len = sizeof(magic), 1, fp);
if (rc != 1)
{
printf("Missing SLX Magic number\n");
return;
}
if (PrintOffset)
printf("%d: ", curOff);
else if (PrintHexOffset)
printf("%6x: ", curOff);
printf("SLX_MAGIC, 0x%lx (%.3s)\n", (long)magic, (char *) &magic + 1);
if (memcmp((char *) &magic, "\245SLX", 4) &&
memcmp((char *) &magic, "XLS\245", 4))
{
printf(" Don't understand magic number 0x%lx\n", (long)magic);
return;
}
curOff += len;
for (;;)
{
if (PrintOffset)
printf("%d: ", curOff);
else if (PrintHexOffset)
printf("%6x: ", curOff);
rc = fread(&hdr, len = sizeof(hdr), 1, fp);
if (rc != 1) break;
curOff += len;
hdr.type = be32(hdr.type);
hdr.size = be32(hdr.size);
hdr.items = be32(hdr.items);
hdr.reserved = be16(hdr.reserved);
hdr.signature = be16(hdr.signature);
#define CODESTR(X) case X: codestr = #X;
switch (hdr.type)
{
CODESTR(SLT_START_DOC) break;
CODESTR(SLT_END_DOC) break;
CODESTR(SLT_START_PAGE) ++pageNum;
memset(imageCnt, 0, sizeof(imageCnt));
totSize = 0;
break;
CODESTR(SLT_END_PAGE) pn = 0;
break;
CODESTR(SLT_JBIG_BIH) break;
CODESTR(SLT_JBIG_BID) break;
CODESTR(SLT_END_JBIG) break;
CODESTR(SLT_SIGNATURE) break;
CODESTR(SLT_RAW_IMAGE) break;
CODESTR(SLT_START_PLANE) break;
CODESTR(SLT_END_PLANE) break;
CODESTR(SLT_2600N_PAUSE) break;
CODESTR(SLT_2600N) break;
default: codestr = NULL; break;
}
if (codestr)
printf("%s, %ld items", codestr, (long) hdr.items);
else
printf("SLT_0x%lx, %ld items", (long) hdr.type, (long) hdr.items);
if (hdr.size & 3)
{
printf(" (unaligned size)");
padding = 4 - (hdr.size & 3);
}
else
padding = 0;
if (hdr.reserved)
printf(" (reserved=0x%x)", hdr.reserved);
if (hdr.signature != 0xa5a5)
printf(" (funny siggy 0x%x)", hdr.signature);
if (hdr.type == SLT_START_PAGE)
printf(" [Page %d]", pageNum);
if (hdr.type == SLT_JBIG_BIH)
{
switch (++pn)
{
case 1: printf(" [black]"); break;
case 2: printf(" [cyan]"); break;
case 3: printf(" [magenta]"); break;
case 4: printf(" [yellow]"); break;
}
}
printf("\n");
fflush(stdout);
items = hdr.items;
size = hdr.size - sizeof(hdr);
while (items--)
{
SL_ITEM_HEADER ihdr;
int isize;
DWORD val;
char buf[512];
int i, c;
if (PrintOffset)
printf(" %d: ", curOff);
else if (PrintHexOffset)
printf(" %6x: ", curOff);
size -= sizeof(ihdr);
rc = fread(&ihdr, len = sizeof(ihdr), 1, fp);
if (rc != 1) break;
curOff += len;
ihdr.size = be32(ihdr.size);
ihdr.item = be16(ihdr.item);
isize = ihdr.size - sizeof(ihdr);
size -= isize;
switch (ihdr.item)
{
CODESTR(SLI_PAGECOUNT) break;
CODESTR(SLI_DMCOLLATE) break;
CODESTR(SLI_DMDUPLEX) break;
CODESTR(SLI_DISPLAY) break;
CODESTR(SLI_DISPLAY_PC) break;
CODESTR(SLI_PRINT_SLOWLY) break;
CODESTR(SLI_REMOVE_SLEEP_MODE) break;
CODESTR(SLI_USE_SEP_SHEETS) break;
CODESTR(SLI_COUNT) break;
CODESTR(SLI_DMPAPER) break;
CODESTR(SLI_DMCOPIES) break;
CODESTR(SLI_DMDEFAULTSOURCE) break;
CODESTR(SLI_DMMEDIATYPE) break;
CODESTR(SLI_NBIE) break;
CODESTR(SLI_RESOLUTION_X) break;
CODESTR(SLI_RESOLUTION_Y) break;
CODESTR(SLI_OFFSET_X) break;
CODESTR(SLI_OFFSET_Y) break;
CODESTR(SLI_RASTER_X) break;
CODESTR(SLI_RASTER_Y) break;
CODESTR(SLI_CUSTOM_X) break;
CODESTR(SLI_CUSTOM_Y) break;
CODESTR(SLI_VIDEO_X) break;
CODESTR(SLI_VIDEO_Y) break;
default: codestr = NULL; break;
}
switch (ihdr.type)
{
case SLIT_UINT32:
rc = fread(&val, len = sizeof(val), 1, fp);
curOff += len;
val = be32(val);
isize -= 4;
if (codestr)
printf(" %s, %ld (0x%lx) %s",
codestr, (long) val, (long) val,
ihdr.type == SLIT_INT32 ? "(int)" : "");
else
printf(" SLI_0x%x, %ld (0x%lx) %s",
ihdr.item, (long) val, (long) val,
ihdr.type == SLIT_INT32 ? "(int)" : "");
if (ihdr.item == SLI_NBIE)
; // pn = (val & 7);
break;
case SLIT_INT32:
case SLIT_STRING:
for (i = 0; i < sizeof(buf) - 1; )
{
c = fgetc(fp);
if (c == EOF) break;
++curOff;
buf[i++] = c;
--isize;
if (isize == 0 || c == 0) break;
}
buf[i] = 0;
if (codestr)
printf(" %s, '%s'", codestr, buf);
else
printf(" SLI_0x%x, '%s'", ihdr.item, buf);
break;
default:
case SLIT_BYTELUT:
rc = fread(&val, len = sizeof(val), 1, fp);
curOff += len;
val = be32(val);
isize -= 4;
if (codestr)
printf(" %s, BYTELUT (len=%d)", codestr, val);
else
printf(" SLI_0x%x, BYTELUT (len=%d)", ihdr.item, val);
if (0) // ihdr.item == SLI_JBIG_BIH && val == 20)
{
bihlen = fread(bih, 1, len = sizeof(bih), fp);
if (bihlen <= 0)
isize = 0;
else
{
isize -= bihlen;
curOff += len;
}
if (bihlen == 20)
{
printf("\n");
print_bih(bih);
}
}
break;
}
if (ihdr.param != 0)
printf(" (reserved=0x%x)", ihdr.param);
printf("\n");
fflush(stdout);
while (isize-- > 0)
{
fgetc(fp);
++curOff;
}
if (size <= 0 && items)
{
printf(" #items is wrong!\n");
break;
}
}
if (size)
{
if (PrintOffset)
printf(" %d:", curOff);
else if (PrintHexOffset)
printf(" %6x:", curOff);
printf(" Data: %d bytes\n", size);
fflush(stdout);
totSize += size;
if (hdr.type == SLT_JBIG_BIH)
{
bihlen = fread(bih, 1, len = sizeof(bih), fp);
if (bihlen <= 0)
size = 0;
else
{
size -= bihlen;
curOff += len;
}
if (bihlen == 20)
print_bih(bih);
}
if ( (RawFile || DecFile) &&
(hdr.type == SLT_JBIG_BIH || hdr.type == SLT_JBIG_BID
|| hdr.type == SLT_2600N) )
{
if (hdr.type == SLT_JBIG_BIH)
{
if (RawFile)
{
char buf[512];
sprintf(buf, "%s-%02d-%d.jbg",
RawFile, pageNum, pn);
rfp = fopen(buf, "w");
}
if (rfp)
rc = fwrite(bih, bihlen, 1, rfp);
if (DecFile)
{
size_t cnt;
// debug(1, "pn = %d\n", pn);
imageCnt[pn] = 0;
jbg_dec_init(&s[pn]);
rc = jbg_dec_in(&s[pn], bih, bihlen, &cnt);
if (rc == JBG_EIMPL)
error(1, "JBIG uses unimplemented feature\n");
}
}
while (size--)
{
int c;
c = fgetc(fp);
++curOff;
if (rfp)
fputc(c, rfp);
if (DecFile)
{
size_t cnt;
unsigned char ch = c;
rc = JBG_EAGAIN;
rc = jbg_dec_in(&s[pn], &ch, 1, &cnt);
if (rc == JBG_EOK)
{
int h, w, len;
unsigned char *image;
// debug(1, "JBG_EOK: %d\n", pn);
h = jbg_dec_getheight(&s[pn]);
w = jbg_dec_getwidth(&s[pn]);
image = jbg_dec_getimage(&s[pn], 0);
len = jbg_dec_getsize(&s[pn]);
if (image)
{
char buf[512];
sprintf(buf, "%s-%02d-%d.pbm",
DecFile, pageNum, pn);
dfp = fopen(buf,
imageCnt[pn] ? "a" : "w");
if (dfp)
{
if (imageCnt[pn] == 0)
fprintf(dfp, "P4\n%8d %8d\n", w, h);
imageCnt[pn] += incrY;
rc = fwrite(image, 1, len, dfp);
fclose(dfp);
}
}
else
debug(0, "Missing image %dx%d!\n", h, w);
jbg_dec_free(&s[pn]);
}
}
}
}
else
{
while (size--)
{
fgetc(fp);
++curOff;
}
if (rfp)
{
fclose(rfp);
rfp = NULL;
}
}
}
while (padding--)
{
fgetc(fp);
++curOff;
}
if (hdr.type == SLT_END_DOC)
break;
}
if (rfp)
fclose(rfp);
printf("Total size: %d bytes\n", totSize);
}
int
main(int argc, char *argv[])
{
extern int optind;
extern char *optarg;
int c;
while ( (c = getopt(argc, argv, "d:hor:D:?h")) != EOF)
switch (c)
{
case 'd': DecFile = optarg; break;
case 'r': RawFile = optarg; break;
case 'o': PrintOffset = 1; break;
case 'h': PrintHexOffset = 1; break;
case 'D': Debug = atoi(optarg); break;
default: usage(); exit(1);
}
argc -= optind;
argv += optind;
for(;;)
{
decode(stdin);
c = getc(stdin); ungetc(c, stdin);
if (feof(stdin))
break;
}
exit(0);
}
Reference in New Issue View Git Blame Copy Permalink