#include <cups/cups.h>
#include <cups/ppd.h>
#include <cups/string-private.h>
#include <cups/language-private.h>
#include <cups/raster.h>
#include <unistd.h>
#include <fcntl.h>
#include <signal.h>
#define EPSON_9PIN 0
#define EPSON_24PIN 1
#define EPSON_COLOR 2
#define EPSON_PHOTO 3
#define EPSON_ICOLOR 4
#define EPSON_IPHOTO 5
#define pwrite(s,n) fwrite((s), 1, (n), stdout)
unsigned char *Planes[6],
*CompBuffer,
*LineBuffers[2];
int Model,
EjectPage,
Shingling,
Canceled;
unsigned NumPlanes,
Feed,
DotBit,
DotBytes,
DotColumns,
LineCount,
EvenOffset,
OddOffset;
void Setup(void);
void StartPage(const ppd_file_t *ppd, const cups_page_header2_t *header);
void EndPage(const cups_page_header2_t *header);
void Shutdown(void);
void CancelJob(int sig);
void CompressData(const unsigned char *line, unsigned length, unsigned plane,
unsigned type, unsigned xstep, unsigned ystep);
void OutputLine(const cups_page_header2_t *header);
void OutputRows(const cups_page_header2_t *header, int row);
void
Setup(void)
{
const char *device_uri;
if ((device_uri = getenv("DEVICE_URI")) != NULL &&
strncmp(device_uri, "usb:", 4) == 0 && Model >= EPSON_ICOLOR)
pwrite("\000\000\000\033\001@EJL 1284.4\n@EJL \n\033@", 29);
}
void
StartPage(
const ppd_file_t *ppd,
const cups_page_header2_t *header)
{
int n, t;
unsigned plane;
if (ppd && ppd->nickname && strstr(ppd->nickname, "OKIDATA") != NULL)
printf("\033{A");
printf("\033@");
switch (Model)
{
case EPSON_9PIN :
case EPSON_24PIN :
printf("\033P\022");
if (header->HWResolution[0] == 360 || header->HWResolution[0] == 240)
{
printf("\033x1");
printf("\033U1");
}
else
{
printf("\033x0");
printf("\033U0");
}
printf("\033l%c\033Q%c", 0,
(int)(10.0 * header->PageSize[0] / 72.0 + 0.5));
printf("\033\062\033C%c",
(int)(header->PageSize[1] / 12.0 + 0.5));
printf("\033N%c", 0);
printf("\033O");
DotBytes = header->cupsRowCount / 8;
DotColumns = header->HWResolution[0] / 60;
Shingling = 0;
if (Model == EPSON_9PIN)
printf("\033\063\030");
else
switch (header->HWResolution[0])
{
case 60:
case 120 :
case 240 :
printf("\033\063\030");
break;
case 180 :
case 360 :
Shingling = 1;
if (header->HWResolution[1] == 180)
printf("\033\063\010");
else
printf("\033+\010");
break;
}
break;
default :
pwrite("\033(G\001\000\001", 6);
if (Model < EPSON_ICOLOR)
{
pwrite("\033(U\001\000", 5);
putchar((int)(3600 / header->HWResolution[1]));
}
else
{
pwrite("\033(U\005\000", 5);
putchar((int)(1440 / header->HWResolution[1]));
putchar((int)(1440 / header->HWResolution[1]));
putchar((int)(1440 / header->HWResolution[0]));
putchar(0xa0);
putchar(0x05);
}
n = (int)(header->PageSize[1] * header->HWResolution[1] / 72.0);
pwrite("\033(C\002\000", 5);
putchar(n);
putchar(n >> 8);
if (ppd)
t = (int)((ppd->sizes[1].length - ppd->sizes[1].top) * header->HWResolution[1] / 72.0);
else
t = 0;
pwrite("\033(c\004\000", 5);
putchar(t);
putchar(t >> 8);
putchar(n);
putchar(n >> 8);
if (header->HWResolution[1] == 720)
{
pwrite("\033(i\001\000\001", 6);
pwrite("\033(e\002\000\000\001", 7);
}
pwrite("\033(V\002\000\000\000", 7);
DotBytes = 0;
DotColumns = 0;
Shingling = 0;
break;
}
if (header->cupsColorSpace == CUPS_CSPACE_CMY)
NumPlanes = 3;
else if (header->cupsColorSpace == CUPS_CSPACE_KCMY)
NumPlanes = 4;
else if (header->cupsColorSpace == CUPS_CSPACE_KCMYcm)
NumPlanes = 6;
else
NumPlanes = 1;
Feed = 0;
if ((Planes[0] = malloc(header->cupsBytesPerLine)) == NULL)
{
fputs("ERROR: Unable to allocate memory\n", stderr);
exit(1);
}
for (plane = 1; plane < NumPlanes; plane ++)
Planes[plane] = Planes[0] + plane * header->cupsBytesPerLine / NumPlanes;
if (header->cupsCompression || DotBytes)
{
if ((CompBuffer = calloc(2, header->cupsWidth + 1)) == NULL)
{
fputs("ERROR: Unable to allocate memory\n", stderr);
exit(1);
}
}
else
CompBuffer = NULL;
if (DotBytes)
{
if ((LineBuffers[0] = calloc((size_t)DotBytes, header->cupsWidth * (size_t)(Shingling + 1))) == NULL)
{
fputs("ERROR: Unable to allocate memory\n", stderr);
exit(1);
}
LineBuffers[1] = LineBuffers[0] + DotBytes * header->cupsWidth;
DotBit = 128;
LineCount = 0;
EvenOffset = 0;
OddOffset = 0;
}
}
void
EndPage(
const cups_page_header2_t *header)
{
if (DotBytes && header)
{
if (!Shingling)
{
if (DotBit < 128 || EvenOffset)
OutputRows(header, 0);
}
else if (OddOffset > EvenOffset)
{
OutputRows(header, 1);
OutputRows(header, 0);
}
else
{
OutputRows(header, 0);
OutputRows(header, 1);
}
}
putchar(12);
fflush(stdout);
free(Planes[0]);
if (CompBuffer)
free(CompBuffer);
if (DotBytes)
free(LineBuffers[0]);
}
void
Shutdown(void)
{
printf("\033@");
}
void
CancelJob(int sig)
{
(void)sig;
Canceled = 1;
}
void
CompressData(const unsigned char *line,
unsigned length,
unsigned plane,
unsigned type,
unsigned xstep,
unsigned ystep)
{
const unsigned char *line_ptr,
*line_end,
*start;
unsigned char *comp_ptr,
temp;
int count;
static int ctable[6] = { 0, 2, 1, 4, 18, 17 };
line_ptr = line;
line_end = line + length;
if (ystep == 5)
{
for (comp_ptr = (unsigned char *)line; comp_ptr < line_end;)
{
temp = *comp_ptr;
if ((temp & 0xc0) == 0xc0)
temp &= 0xbf;
if ((temp & 0x60) == 0x60)
temp &= 0xdf;
if ((temp & 0x30) == 0x30)
temp &= 0xef;
if ((temp & 0x18) == 0x18)
temp &= 0xf7;
if ((temp & 0x0c) == 0x0c)
temp &= 0xfb;
if ((temp & 0x06) == 0x06)
temp &= 0xfd;
if ((temp & 0x03) == 0x03)
temp &= 0xfe;
*comp_ptr++ = temp;
if ((temp & 0x01) && comp_ptr < line_end && *comp_ptr & 0x80)
*comp_ptr &= 0x7f;
}
}
switch (type)
{
case 0 :
break;
case 1 :
comp_ptr = CompBuffer;
while (line_ptr < line_end)
{
if ((line_ptr + 1) >= line_end)
{
*comp_ptr++ = 0x00;
*comp_ptr++ = *line_ptr++;
}
else if (line_ptr[0] == line_ptr[1])
{
line_ptr ++;
count = 2;
while (line_ptr < (line_end - 1) &&
line_ptr[0] == line_ptr[1] &&
count < 127)
{
line_ptr ++;
count ++;
}
*comp_ptr++ = (unsigned char)(257 - count);
*comp_ptr++ = *line_ptr++;
}
else
{
start = line_ptr;
line_ptr ++;
count = 1;
while (line_ptr < (line_end - 1) &&
line_ptr[0] != line_ptr[1] &&
count < 127)
{
line_ptr ++;
count ++;
}
*comp_ptr++ = (unsigned char)(count - 1);
memcpy(comp_ptr, start, (size_t)count);
comp_ptr += count;
}
}
line_ptr = CompBuffer;
line_end = comp_ptr;
break;
}
putchar(0x0d);
if (Model < EPSON_ICOLOR)
{
if (NumPlanes > 1)
{
if (plane > 3)
printf("\033(r%c%c%c%c", 2, 0, 1, ctable[plane] & 15);
else if (NumPlanes == 3)
printf("\033r%c", ctable[plane + 1]);
else
printf("\033r%c", ctable[plane]);
}
length *= 8;
printf("\033.");
putchar((int)type);
putchar((int)ystep);
putchar((int)xstep);
putchar(1);
putchar((int)length);
putchar((int)(length >> 8));
}
else
{
printf("\033i");
putchar(ctable[plane]);
putchar((int)type);
putchar(1);
putchar((int)length);
putchar((int)(length >> 8));
putchar(1);
putchar(0);
}
pwrite(line_ptr, (size_t)(line_end - line_ptr));
fflush(stdout);
}
void
OutputLine(
const cups_page_header2_t *header)
{
if (header->cupsRowCount)
{
unsigned width;
unsigned char *tempptr,
*evenptr,
*oddptr;
unsigned int x;
unsigned char bit;
const unsigned char *pixel;
unsigned char *temp;
for (x = header->cupsWidth, bit = 128, pixel = Planes[0],
temp = CompBuffer;
x > 0;
x --, temp ++)
{
if (*pixel & bit)
*temp |= DotBit;
if (bit > 1)
bit >>= 1;
else
{
bit = 128;
pixel ++;
}
}
if (DotBit > 1)
DotBit >>= 1;
else
{
if (Shingling && LineCount != 0)
{
if (LineCount & 1)
{
evenptr = LineBuffers[1] + OddOffset;
oddptr = LineBuffers[0] + EvenOffset + DotBytes;
}
else
{
evenptr = LineBuffers[0] + EvenOffset;
oddptr = LineBuffers[1] + OddOffset + DotBytes;
}
for (width = header->cupsWidth, tempptr = CompBuffer;
width > 1;
width -= 2, tempptr += 2, oddptr += DotBytes * 2,
evenptr += DotBytes * 2)
{
evenptr[0] = tempptr[0];
oddptr[0] = tempptr[1];
}
if (width == 1)
{
evenptr[0] = tempptr[0];
oddptr[0] = tempptr[1];
}
}
else
{
for (width = header->cupsWidth, tempptr = CompBuffer,
evenptr = LineBuffers[0] + EvenOffset;
width > 0;
width --, tempptr ++, evenptr += DotBytes)
*evenptr = tempptr[0];
}
if (Shingling && LineCount != 0)
{
EvenOffset ++;
OddOffset ++;
if (EvenOffset == DotBytes)
{
EvenOffset = 0;
OutputRows(header, 0);
}
if (OddOffset == DotBytes)
{
OddOffset = 0;
OutputRows(header, 1);
}
}
else
{
EvenOffset ++;
if (EvenOffset == DotBytes)
{
EvenOffset = 0;
OutputRows(header, 0);
}
}
DotBit = 128;
LineCount ++;
memset(CompBuffer, 0, header->cupsWidth);
}
}
else
{
unsigned plane;
unsigned bytes;
unsigned xstep, ystep;
xstep = 3600 / header->HWResolution[0];
ystep = 3600 / header->HWResolution[1];
bytes = header->cupsBytesPerLine / NumPlanes;
for (plane = 0; plane < NumPlanes; plane ++)
{
if (!Planes[plane][0] &&
memcmp(Planes[plane], Planes[plane] + 1, (size_t)bytes - 1) == 0)
continue;
if (Feed > 0)
{
pwrite("\033(v\002\000", 5);
putchar((int)Feed);
putchar((int)(Feed >> 8));
Feed = 0;
}
CompressData(Planes[plane], bytes, plane, header->cupsCompression, xstep, ystep);
}
Feed ++;
}
}
void
OutputRows(
const cups_page_header2_t *header,
int row)
{
unsigned i, n,
dot_count,
dot_min;
unsigned char *dot_ptr,
*ptr;
dot_min = DotBytes * DotColumns;
if (LineBuffers[row][0] != 0 ||
memcmp(LineBuffers[row], LineBuffers[row] + 1, header->cupsWidth * DotBytes - 1))
{
i = 0;
dot_count = header->cupsWidth * DotBytes;
dot_ptr = LineBuffers[row];
while (dot_count >= dot_min && dot_ptr[0] == 0 &&
memcmp(dot_ptr, dot_ptr + 1, dot_min - 1) == 0)
{
i ++;
dot_ptr += dot_min;
dot_count -= dot_min;
}
while (dot_count >= dot_min && dot_ptr[dot_count - dot_min] == 0 &&
memcmp(dot_ptr + dot_count - dot_min,
dot_ptr + dot_count - dot_min + 1, dot_min - 1) == 0)
dot_count -= dot_min;
if (i == 0)
putchar('\r');
else
{
putchar(0x1b);
putchar('$');
putchar((int)(i & 255));
putchar((int)(i >> 8));
}
printf("\033*");
switch (header->HWResolution[0])
{
case 60 :
putchar(0);
break;
case 120 :
putchar(1);
break;
case 180 :
putchar(39);
break;
case 240 :
putchar(3);
break;
case 360 :
if (header->HWResolution[1] == 180)
{
if (Shingling && LineCount != 0)
putchar(40);
else
putchar(41);
}
else
{
if (Shingling && LineCount != 0)
putchar(72);
else
putchar(73);
}
break;
}
n = dot_count / DotBytes;
putchar((int)(n & 255));
putchar((int)(n / 256));
if (header->HWResolution[0] == 120 ||
header->HWResolution[0] == 240)
{
for (n = dot_count / 2, ptr = dot_ptr; n > 0; n --, ptr += 2)
{
putchar(*ptr);
putchar(0);
}
if (dot_count & 1)
putchar(*ptr);
if (i == 0)
putchar('\r');
else
{
putchar(0x1b);
putchar('$');
putchar((int)(i & 255));
putchar((int)(i >> 8));
}
if (header->HWResolution[0] == 120)
printf("\033*\001");
else
printf("\033*\003");
n = (unsigned)dot_count / DotBytes;
putchar((int)(n & 255));
putchar((int)(n / 256));
for (n = dot_count / 2, ptr = dot_ptr + 1; n > 0; n --, ptr += 2)
{
putchar(0);
putchar(*ptr);
}
if (dot_count & 1)
putchar(0);
}
else
pwrite(dot_ptr, dot_count);
}
putchar('\n');
if (Shingling && row == 1)
{
if (header->HWResolution[1] == 360)
printf("\n\n\n\n");
else
printf("\n");
}
fflush(stdout);
memset(LineBuffers[row], 0, header->cupsWidth * DotBytes);
}
int
main(int argc,
char *argv[])
{
int fd;
cups_raster_t *ras;
cups_page_header2_t header;
ppd_file_t *ppd;
int page;
unsigned y;
#if defined(HAVE_SIGACTION) && !defined(HAVE_SIGSET)
struct sigaction action;
#endif
setbuf(stderr, NULL);
if (argc < 6 || argc > 7)
{
_cupsLangPrintFilter(stderr, "ERROR",
_("%s job-id user title copies options [file]"),
"rastertoepson");
return (1);
}
if (argc == 7)
{
if ((fd = open(argv[6], O_RDONLY)) == -1)
{
_cupsLangPrintError("ERROR", _("Unable to open raster file"));
sleep(1);
return (1);
}
}
else
fd = 0;
ras = cupsRasterOpen(fd, CUPS_RASTER_READ);
Canceled = 0;
#ifdef HAVE_SIGSET
sigset(SIGTERM, CancelJob);
#elif defined(HAVE_SIGACTION)
memset(&action, 0, sizeof(action));
sigemptyset(&action.sa_mask);
action.sa_handler = CancelJob;
sigaction(SIGTERM, &action, NULL);
#else
signal(SIGTERM, CancelJob);
#endif
ppd = ppdOpenFile(getenv("PPD"));
if (!ppd)
{
ppd_status_t status;
int linenum;
_cupsLangPrintFilter(stderr, "ERROR",
_("The PPD file could not be opened."));
status = ppdLastError(&linenum);
fprintf(stderr, "DEBUG: %s on line %d.\n", ppdErrorString(status), linenum);
return (1);
}
Model = ppd->model_number;
Setup();
page = 0;
while (cupsRasterReadHeader2(ras, &header))
{
if (Canceled)
break;
page ++;
fprintf(stderr, "PAGE: %d %d\n", page, header.NumCopies);
_cupsLangPrintFilter(stderr, "INFO", _("Starting page %d."), page);
StartPage(ppd, &header);
for (y = 0; y < header.cupsHeight; y ++)
{
if (Canceled)
break;
if ((y & 127) == 0)
{
_cupsLangPrintFilter(stderr, "INFO",
_("Printing page %d, %u%% complete."),
page, 100 * y / header.cupsHeight);
fprintf(stderr, "ATTR: job-media-progress=%u\n",
100 * y / header.cupsHeight);
}
if (cupsRasterReadPixels(ras, Planes[0], header.cupsBytesPerLine) < 1)
break;
OutputLine(&header);
}
_cupsLangPrintFilter(stderr, "INFO", _("Finished page %d."), page);
EndPage(&header);
if (Canceled)
break;
}
Shutdown();
ppdClose(ppd);
cupsRasterClose(ras);
if (fd != 0)
close(fd);
if (page == 0)
{
_cupsLangPrintFilter(stderr, "ERROR", _("No pages were found."));
return (1);
}
else
return (0);
}