#include <cups/cups-private.h>
#include <cups/ppd.h>
static char *psgets(char *buf, size_t *bytes, FILE *fp);
static ssize_t pswrite(const char *buf, size_t bytes);
int
main(int argc,
char *argv[])
{
FILE *fp;
int copies;
char line[1024];
size_t linelen;
if (argc < 6 || argc > 7)
{
_cupsLangPrintf(stderr,
_("Usage: %s job-id user title copies options [file]"),
argv[0]);
return (1);
}
if (argc == 6)
{
copies = 1;
fp = stdin;
}
else
{
copies = atoi(argv[4]);
fp = fopen(argv[6], "rb");
if (!fp)
{
perror(argv[6]);
return (1);
}
}
while (copies > 0)
{
copies --;
linelen = sizeof(line);
if (!psgets(line, &linelen, fp))
break;
if (!strncmp(line, "\033%-12345X", 9) || !strncmp(line, "@PJL ", 5))
{
while (strstr(line, "ENTER LANGUAGE") == NULL)
{
fwrite(line, 1, linelen, stdout);
linelen = sizeof(line);
if (psgets(line, &linelen, fp) == NULL)
break;
}
}
else
{
fputs("\033%-12345X", stdout);
}
fputs("\001M", stdout);
while (pswrite(line, linelen) > 0)
{
linelen = sizeof(line);
if (psgets(line, &linelen, fp) == NULL)
break;
}
fflush(stdout);
}
return (0);
}
static char *
psgets(char *buf,
size_t *bytes,
FILE *fp)
{
char *bufptr;
int ch;
size_t len;
len = *bytes - 1;
bufptr = buf;
ch = EOF;
while ((size_t)(bufptr - buf) < len)
{
if ((ch = getc(fp)) == EOF)
break;
if (ch == '\r')
{
ch = getc(fp);
if (ch != EOF && ch != '\n')
{
ungetc(ch, fp);
ch = '\r';
}
else
*bufptr++ = '\r';
break;
}
else if (ch == '\n')
break;
else
*bufptr++ = (char)ch;
}
if (ch == '\n' || ch == '\r')
{
if ((size_t)(bufptr - buf) < len)
*bufptr++ = (char)ch;
else
ungetc(ch, fp);
}
*bufptr = '\0';
*bytes = (size_t)(bufptr - buf);
if (ch == EOF && bufptr == buf)
return (NULL);
else
return (buf);
}
static ssize_t
pswrite(const char *buf,
size_t bytes)
{
size_t count;
for (count = bytes; count > 0; count --, buf ++)
switch (*buf)
{
case 0x04 :
if (bytes == 1)
{
putchar(0x04);
break;
}
case 0x01 :
case 0x03 :
case 0x05 :
case 0x11 :
case 0x13 :
case 0x14 :
case 0x1b :
case 0x1c :
if (putchar(0x01) < 0)
return (-1);
if (putchar(*buf ^ 0x40) < 0)
return (-1);
break;
default :
if (putchar(*buf) < 0)
return (-1);
break;
}
return ((ssize_t)bytes);
}