/*
- * "$Id: pstops.c 181 2006-06-22 20:01:18Z jlovell $"
+ * PostScript filter for CUPS.
*
- * PostScript filter for the Common UNIX Printing System (CUPS).
+ * Copyright 2007-2015 by Apple Inc.
+ * Copyright 1993-2007 by Easy Software Products.
*
- * Copyright 1993-2006 by Easy Software Products.
+ * These coded instructions, statements, and computer programs are the
+ * property of Apple Inc. and are protected by Federal copyright
+ * law. Distribution and use rights are outlined in the file "LICENSE.txt"
+ * which should have been included with this file. If this file is
+ * missing or damaged, see the license at "http://www.cups.org/".
*
- * These coded instructions, statements, and computer programs are the
- * property of Easy Software Products and are protected by Federal
- * copyright law. Distribution and use rights are outlined in the file
- * "LICENSE.txt" which should have been included with this file. If this
- * file is missing or damaged please contact Easy Software Products
- * at:
- *
- * Attn: CUPS Licensing Information
- * Easy Software Products
- * 44141 Airport View Drive, Suite 204
- * Hollywood, Maryland 20636 USA
- *
- * Voice: (301) 373-9600
- * EMail: cups-info@cups.org
- * WWW: http://www.cups.org
- *
- * This file is subject to the Apple OS-Developed Software exception.
- *
- * Contents:
- *
- * main() - Main entry...
- * add_page() - Add a page to the pages array...
- * check_range() - Check to see if the current page is selected for
- * copy_bytes() - Copy bytes from the input file to stdout...
- * copy_comments() - Copy all of the comments section...
- * copy_dsc() - Copy a DSC-conforming document...
- * copy_non_dsc() - Copy a document that does not conform to the DSC...
- * copy_page() - Copy a page description...
- * copy_prolog() - Copy the document prolog section...
- * copy_setup() - Copy the document setup section...
- * copy_trailer() - Copy the document trailer...
- * do_prolog() - Send the necessary document prolog commands...
- * do_setup() - Send the necessary document setup commands...
- * doc_printf() - Send a formatted string to stdout and/or the temp
- * file.
- * doc_puts() - Send a nul-terminated string to stdout and/or the
- * temp file.
- * doc_write() - Send data to stdout and/or the temp file.
- * end_nup() - End processing for N-up printing...
- * include_feature() - Include a printer option/feature command.
- * parse_text() - Parse a text value in a comment...
- * set_pstops_options() - Set pstops options...
- * skip_page() - Skip past a page that won't be printed...
- * start_nup() - Start processing for N-up printing...
- * write_labels() - Write the actual page labels.
+ * This file is subject to the Apple OS-Developed Software exception.
*/
/*
#include <math.h>
#include <cups/file.h>
#include <cups/array.h>
+#include <cups/language-private.h>
+#include <signal.h>
/*
*title; /* Job name */
int copies; /* Number of copies */
const char *ap_input_slot, /* AP_FIRSTPAGE_InputSlot value */
- *ap_manual_feed; /* AP_FIRSTPAGE_ManualFeed value */
- float brightness; /* brightness value */
+ *ap_manual_feed, /* AP_FIRSTPAGE_ManualFeed value */
+ *ap_media_color, /* AP_FIRSTPAGE_MediaColor value */
+ *ap_media_type, /* AP_FIRSTPAGE_MediaType value */
+ *ap_page_region, /* AP_FIRSTPAGE_PageRegion value */
+ *ap_page_size; /* AP_FIRSTPAGE_PageSize value */
int collate, /* Collate copies? */
emit_jcl, /* Emit JCL commands? */
- fitplot; /* Fit pages to media */
- float gamma; /* gamma value */
+ fit_to_page; /* Fit pages to media */
const char *input_slot, /* InputSlot value */
- *manual_feed; /* ManualFeed value */
+ *manual_feed, /* ManualFeed value */
+ *media_color, /* MediaColor value */
+ *media_type, /* MediaType value */
+ *page_region, /* PageRegion value */
+ *page_size; /* PageSize value */
int mirror, /* doc->mirror/mirror pages */
number_up, /* Number of pages on each sheet */
number_up_layout, /* doc->number_up_layout of N-up pages */
((p) % doc->number_up) != 0)
+/*
+ * Local globals...
+ */
+
+static int JobCanceled = 0;/* Set to 1 on SIGTERM */
+
+
/*
* Local functions...
*/
static pstops_page_t *add_page(pstops_doc_t *doc, const char *label);
+static void cancel_job(int sig);
static int check_range(pstops_doc_t *doc, int page);
static void copy_bytes(cups_file_t *fp, off_t offset,
size_t length);
-static size_t copy_comments(cups_file_t *fp, pstops_doc_t *doc,
- char *line, size_t linelen,
- size_t linesize);
+static ssize_t copy_comments(cups_file_t *fp, pstops_doc_t *doc,
+ ppd_file_t *ppd, char *line,
+ ssize_t linelen, size_t linesize);
static void copy_dsc(cups_file_t *fp, pstops_doc_t *doc,
- ppd_file_t *ppd, char *line, size_t linelen,
+ ppd_file_t *ppd, char *line, ssize_t linelen,
size_t linesize);
static void copy_non_dsc(cups_file_t *fp, pstops_doc_t *doc,
ppd_file_t *ppd, char *line,
- size_t linelen, size_t linesize);
-static size_t copy_page(cups_file_t *fp, pstops_doc_t *doc,
+ ssize_t linelen, size_t linesize);
+static ssize_t copy_page(cups_file_t *fp, pstops_doc_t *doc,
ppd_file_t *ppd, int number, char *line,
- size_t linelen, size_t linesize);
-static size_t copy_prolog(cups_file_t *fp, pstops_doc_t *doc,
+ ssize_t linelen, size_t linesize);
+static ssize_t copy_prolog(cups_file_t *fp, pstops_doc_t *doc,
ppd_file_t *ppd, char *line,
- size_t linelen, size_t linesize);
-static size_t copy_setup(cups_file_t *fp, pstops_doc_t *doc,
+ ssize_t linelen, size_t linesize);
+static ssize_t copy_setup(cups_file_t *fp, pstops_doc_t *doc,
ppd_file_t *ppd, char *line,
- size_t linelen, size_t linesize);
-static size_t copy_trailer(cups_file_t *fp, pstops_doc_t *doc,
+ ssize_t linelen, size_t linesize);
+static ssize_t copy_trailer(cups_file_t *fp, pstops_doc_t *doc,
ppd_file_t *ppd, int number, char *line,
- size_t linelen, size_t linesize);
+ ssize_t linelen, size_t linesize);
static void do_prolog(pstops_doc_t *doc, ppd_file_t *ppd);
static void do_setup(pstops_doc_t *doc, ppd_file_t *ppd);
static void doc_printf(pstops_doc_t *doc, const char *format, ...)
-#ifdef __GNUC__
-__attribute__ ((__format__ (__printf__, 2, 3)))
-#endif /* __GNUC__ */
-;
+ __attribute__ ((__format__ (__printf__, 2, 3)));
static void doc_puts(pstops_doc_t *doc, const char *s);
static void doc_write(pstops_doc_t *doc, const char *s, size_t len);
static void end_nup(pstops_doc_t *doc, int number);
static void set_pstops_options(pstops_doc_t *doc, ppd_file_t *ppd,
char *argv[], int num_options,
cups_option_t *options);
-static size_t skip_page(cups_file_t *fp, char *line, size_t linelen,
+static ssize_t skip_page(cups_file_t *fp, char *line, ssize_t linelen,
size_t linesize);
static void start_nup(pstops_doc_t *doc, int number,
int show_border, const int *bounding_box);
+static void write_label_prolog(pstops_doc_t *doc, const char *label,
+ float bottom, float top,
+ float width);
static void write_labels(pstops_doc_t *doc, int orient);
+static void write_options(pstops_doc_t *doc, ppd_file_t *ppd,
+ int num_options, cups_option_t *options);
/*
- * 'main()' - Main entry...
+ * 'main()' - Main entry.
*/
int /* O - Exit status */
int num_options; /* Number of print options */
cups_option_t *options; /* Print options */
char line[8192]; /* Line buffer */
- size_t len; /* Length of line buffer */
+ ssize_t len; /* Length of line buffer */
+#if defined(HAVE_SIGACTION) && !defined(HAVE_SIGSET)
+ struct sigaction action; /* Actions for POSIX signals */
+#endif /* HAVE_SIGACTION && !HAVE_SIGSET */
/*
setbuf(stderr, NULL);
+ /*
+ * Ignore broken pipe signals...
+ */
+
+ signal(SIGPIPE, SIG_IGN);
+
/*
* Check command-line...
*/
if (argc < 6 || argc > 7)
{
- fputs("ERROR: pstops job-id user title copies options [file]\n", stderr);
+ _cupsLangPrintf(stderr,
+ _("Usage: %s job-id user title copies options [file]"),
+ argv[0]);
return (1);
}
+ /*
+ * Register a signal handler to cleanly cancel a job.
+ */
+
+#ifdef HAVE_SIGSET /* Use System V signals over POSIX to avoid bugs */
+ sigset(SIGTERM, cancel_job);
+#elif defined(HAVE_SIGACTION)
+ memset(&action, 0, sizeof(action));
+
+ sigemptyset(&action.sa_mask);
+ action.sa_handler = cancel_job;
+ sigaction(SIGTERM, &action, NULL);
+#else
+ signal(SIGTERM, cancel_job);
+#endif /* HAVE_SIGSET */
+
/*
* If we have 7 arguments, print the file named on the command-line.
* Otherwise, send stdin instead...
if ((fp = cupsFileOpen(argv[6], "r")) == NULL)
{
- fprintf(stderr, "ERROR: Unable to open print file \"%s\" - %s\n",
- argv[6], strerror(errno));
+ if (!JobCanceled)
+ {
+ fprintf(stderr, "DEBUG: Unable to open \"%s\".\n", argv[6]);
+ _cupsLangPrintError("ERROR", _("Unable to open print file"));
+ }
+
return (1);
}
}
* Read the first line to see if we have DSC comments...
*/
- if ((len = cupsFileGetLine(fp, line, sizeof(line))) == 0)
+ if ((len = (ssize_t)cupsFileGetLine(fp, line, sizeof(line))) == 0)
{
- fputs("ERROR: Empty print file!\n", stderr);
+ fputs("DEBUG: The print file is empty.\n", stderr);
return (1);
}
fputs("DEBUG: Skipping PJL header...\n", stderr);
while (strstr(line, "ENTER LANGUAGE") == NULL && strncmp(line, "%!", 2))
- if ((len = cupsFileGetLine(fp, line, sizeof(line))) == 0)
+ if ((len = (ssize_t)cupsFileGetLine(fp, line, sizeof(line))) == 0)
break;
if (!strncmp(line, "%!", 2))
break;
- if ((len = cupsFileGetLine(fp, line, sizeof(line))) == 0)
+ if ((len = (ssize_t)cupsFileGetLine(fp, line, sizeof(line))) == 0)
break;
}
/*
- * 'add_page()' - Add a page to the pages array...
+ * 'add_page()' - Add a page to the pages array.
*/
static pstops_page_t * /* O - New page info object */
if (!doc->pages)
{
- fprintf(stderr, "EMERG: Unable to allocate memory for pages array: %s\n",
- strerror(errno));
+ _cupsLangPrintError("EMERG", _("Unable to allocate memory for pages array"));
exit(1);
}
if ((pageinfo = calloc(1, sizeof(pstops_page_t))) == NULL)
{
- fprintf(stderr, "EMERG: Unable to allocate memory for page info: %s\n",
- strerror(errno));
+ _cupsLangPrintError("EMERG", _("Unable to allocate memory for page info"));
exit(1);
}
}
+/*
+ * 'cancel_job()' - Flag the job as canceled.
+ */
+
+static void
+cancel_job(int sig) /* I - Signal number (unused) */
+{
+ (void)sig;
+
+ JobCanceled = 1;
+}
+
+
/*
* 'check_range()' - Check to see if the current page is selected for
* printing.
* See if we only print even or odd pages...
*/
- if (!strcasecmp(doc->page_set, "even") && (page & 1))
+ if (!_cups_strcasecmp(doc->page_set, "even") && (page & 1))
return (0);
- if (!strcasecmp(doc->page_set, "odd") && !(page & 1))
+ if (!_cups_strcasecmp(doc->page_set, "odd") && !(page & 1))
return (0);
}
{
lower = 1;
range ++;
- upper = strtol(range, (char **)&range, 10);
+ upper = (int)strtol(range, (char **)&range, 10);
}
else
{
- lower = strtol(range, (char **)&range, 10);
+ lower = (int)strtol(range, (char **)&range, 10);
if (*range == '-')
{
if (!isdigit(*range & 255))
upper = 65535;
else
- upper = strtol(range, (char **)&range, 10);
+ upper = (int)strtol(range, (char **)&range, 10);
}
else
upper = lower;
/*
- * 'copy_bytes()' - Copy bytes from the input file to stdout...
+ * 'copy_bytes()' - Copy bytes from the input file to stdout.
*/
static void
if (cupsFileSeek(fp, offset) < 0)
{
- fprintf(stderr, "ERROR: Unable to seek to offset " CUPS_LLFMT
- " in file - %s\n",
- CUPS_LLCAST offset, strerror(errno));
+ _cupsLangPrintError("ERROR", _("Unable to see in file"));
return;
}
if (nleft > sizeof(buffer) || length == 0)
nbytes = sizeof(buffer);
else
- nbytes = nleft;
+ nbytes = (ssize_t)nleft;
- if ((nbytes = cupsFileRead(fp, buffer, nbytes)) < 1)
+ if ((nbytes = cupsFileRead(fp, buffer, (size_t)nbytes)) < 1)
return;
- nleft -= nbytes;
+ nleft -= (size_t)nbytes;
- fwrite(buffer, 1, nbytes, stdout);
+ fwrite(buffer, 1, (size_t)nbytes, stdout);
}
}
/*
- * 'copy_comments()' - Copy all of the comments section...
+ * 'copy_comments()' - Copy all of the comments section.
*
* This function expects "line" to be filled with a comment line.
* On return, "line" will contain the next line in the file, if any.
*/
-static size_t /* O - Length of next line */
+static ssize_t /* O - Length of next line */
copy_comments(cups_file_t *fp, /* I - File to read from */
pstops_doc_t *doc, /* I - Document info */
+ ppd_file_t *ppd, /* I - PPD file */
char *line, /* I - Line buffer */
- size_t linelen, /* I - Length of initial line */
+ ssize_t linelen, /* I - Length of initial line */
size_t linesize) /* I - Size of line buffer */
{
int saw_bounding_box, /* Saw %%BoundingBox: comment? */
saw_bounding_box = 0;
saw_for = 0;
saw_pages = 0;
- saw_title = 0;
+ saw_title = 0;
while (line[0] == '%')
{
if (!strncmp(line, "%%Pages:", 8))
{
+ int pages; /* Number of pages */
+
if (saw_pages)
- fputs("ERROR: Duplicate %%Pages: comment seen!\n", stderr);
+ fputs("DEBUG: A duplicate %%Pages: comment was seen.\n", stderr);
saw_pages = 1;
+
+ if (Duplex && (pages = atoi(line + 8)) > 0 && pages <= doc->number_up)
+ {
+ /*
+ * Since we will only be printing on a single page, disable duplexing.
+ */
+
+ Duplex = 0;
+ doc->slow_duplex = 0;
+
+ if (cupsGetOption("sides", doc->num_options, doc->options))
+ doc->num_options = cupsAddOption("sides", "one-sided",
+ doc->num_options, &(doc->options));
+
+ if (cupsGetOption("Duplex", doc->num_options, doc->options))
+ doc->num_options = cupsAddOption("Duplex", "None",
+ doc->num_options, &(doc->options));
+
+ if (cupsGetOption("EFDuplex", doc->num_options, doc->options))
+ doc->num_options = cupsAddOption("EFDuplex", "None",
+ doc->num_options, &(doc->options));
+
+ if (cupsGetOption("EFDuplexing", doc->num_options, doc->options))
+ doc->num_options = cupsAddOption("EFDuplexing", "False",
+ doc->num_options, &(doc->options));
+
+ if (cupsGetOption("KD03Duplex", doc->num_options, doc->options))
+ doc->num_options = cupsAddOption("KD03Duplex", "None",
+ doc->num_options, &(doc->options));
+
+ if (cupsGetOption("JCLDuplex", doc->num_options, doc->options))
+ doc->num_options = cupsAddOption("JCLDuplex", "None",
+ doc->num_options, &(doc->options));
+
+ ppdMarkOption(ppd, "Duplex", "None");
+ ppdMarkOption(ppd, "EFDuplex", "None");
+ ppdMarkOption(ppd, "EFDuplexing", "False");
+ ppdMarkOption(ppd, "KD03Duplex", "None");
+ ppdMarkOption(ppd, "JCLDuplex", "None");
+ }
}
else if (!strncmp(line, "%%BoundingBox:", 14))
{
if (saw_bounding_box)
- fputs("ERROR: Duplicate %%BoundingBox: comment seen!\n", stderr);
+ fputs("DEBUG: A duplicate %%BoundingBox: comment was seen.\n", stderr);
else if (strstr(line + 14, "(atend)"))
{
/*
doc->bounding_box + 1, doc->bounding_box + 2,
doc->bounding_box + 3) != 4)
{
- fputs("ERROR: Bad %%BoundingBox: comment seen!\n", stderr);
+ fputs("DEBUG: A bad %%BoundingBox: comment was seen.\n", stderr);
doc->bounding_box[0] = (int)PageLeft;
doc->bounding_box[1] = (int)PageBottom;
else if (!strncmp(line, "%%For:", 6))
{
saw_for = 1;
- printf("%s\n", line);
+ doc_printf(doc, "%s\n", line);
}
else if (!strncmp(line, "%%Title:", 8))
{
saw_title = 1;
- printf("%s\n", line);
+ doc_printf(doc, "%s\n", line);
}
else if (!strncmp(line, "%cupsRotation:", 14))
{
}
else if (!strcmp(line, "%%EndComments"))
{
- linelen = cupsFileGetLine(fp, line, linesize);
+ linelen = (ssize_t)cupsFileGetLine(fp, line, linesize);
break;
}
else if (strncmp(line, "%!", 2) && strncmp(line, "%cups", 5))
- printf("%s\n", line);
+ doc_printf(doc, "%s\n", line);
- if ((linelen = cupsFileGetLine(fp, line, linesize)) == 0)
+ if ((linelen = (ssize_t)cupsFileGetLine(fp, line, linesize)) == 0)
break;
}
if (!saw_bounding_box)
- fputs("ERROR: No %%BoundingBox: comment in header!\n", stderr);
+ fputs("DEBUG: There wasn't a %%BoundingBox: comment in the header.\n",
+ stderr);
if (!saw_pages)
- fputs("ERROR: No %%Pages: comment in header!\n", stderr);
+ fputs("DEBUG: There wasn't a %%Pages: comment in the header.\n", stderr);
if (!saw_for)
- printf("%%%%For: %s\n", doc->user);
+ WriteTextComment("For", doc->user);
if (!saw_title)
- printf("%%%%Title: %s\n", doc->title);
+ WriteTextComment("Title", doc->title);
if (doc->copies != 1 && (!doc->collate || !doc->slow_collate))
{
* that are required...
*/
- printf("%%%%Requirements: numcopies(%d)%s%s\n", doc->copies,
- doc->collate ? " collate" : "",
- Duplex ? " duplex" : "");
+ doc_printf(doc, "%%%%Requirements: numcopies(%d)%s%s\n", doc->copies,
+ doc->collate ? " collate" : "",
+ Duplex ? " duplex" : "");
/*
* Apple uses RBI comments for various non-PPD options...
*/
- printf("%%RBINumCopies: %d\n", doc->copies);
+ doc_printf(doc, "%%RBINumCopies: %d\n", doc->copies);
}
else
{
*/
if (Duplex)
- puts("%%Requirements: duplex");
+ doc_puts(doc, "%%Requirements: duplex\n");
/*
* Apple uses RBI comments for various non-PPD options...
*/
- puts("%RBINumCopies: 1");
+ doc_puts(doc, "%RBINumCopies: 1\n");
}
- puts("%%Pages: (atend)");
- puts("%%BoundingBox: (atend)");
- puts("%%EndComments");
+ doc_puts(doc, "%%Pages: (atend)\n");
+ doc_puts(doc, "%%BoundingBox: (atend)\n");
+ doc_puts(doc, "%%EndComments\n");
return (linelen);
}
/*
- * 'copy_dsc()' - Copy a DSC-conforming document...
+ * 'copy_dsc()' - Copy a DSC-conforming document.
*
* This function expects "line" to be filled with the %!PS-Adobe comment line.
*/
pstops_doc_t *doc, /* I - Document info */
ppd_file_t *ppd, /* I - PPD file */
char *line, /* I - Line buffer */
- size_t linelen, /* I - Length of initial line */
+ ssize_t linelen, /* I - Length of initial line */
size_t linesize) /* I - Size of line buffer */
{
int number; /* Page number */
*/
fprintf(stderr, "DEBUG: Before copy_comments - %s", line);
- linelen = copy_comments(fp, doc, line, linelen, linesize);
+ linelen = copy_comments(fp, doc, ppd, line, linelen, linesize);
/*
* Now find the prolog section, if any...
while (strncmp(line, "%%Page:", 7) && strncmp(line, "%%Trailer", 9))
{
- fwrite(line, 1, linelen, stdout);
+ doc_write(doc, line, (size_t)linelen);
- if ((linelen = cupsFileGetLine(fp, line, linesize)) == 0)
+ if ((linelen = (ssize_t)cupsFileGetLine(fp, line, linesize)) == 0)
break;
}
fprintf(stderr, "DEBUG: Before page loop - %s", line);
while (!strncmp(line, "%%Page:", 7))
{
+ if (JobCanceled)
+ break;
+
number ++;
if (check_range(doc, (number - 1) / doc->number_up + 1))
* Finish up the last page(s)...
*/
- if (number && is_not_last_page(number) && cupsArrayLast(doc->pages))
+ if (number && is_not_last_page(number) && cupsArrayLast(doc->pages) &&
+ check_range(doc, (number - 1) / doc->number_up + 1))
{
pageinfo = (pstops_page_t *)cupsArrayLast(doc->pages);
doc_puts(doc, "showpage\n");
end_nup(doc, doc->number_up);
- pageinfo->length = cupsFileTell(doc->temp) - pageinfo->offset;
+ pageinfo->length = (ssize_t)(cupsFileTell(doc->temp) - pageinfo->offset);
}
if (doc->slow_duplex && (doc->page & 1))
doc_puts(doc, "showpage\n");
end_nup(doc, doc->number_up);
- pageinfo->length = cupsFileTell(doc->temp) - pageinfo->offset;
+ pageinfo->length = (ssize_t)(cupsFileTell(doc->temp) - pageinfo->offset);
}
/*
number = doc->slow_order ? 0 : doc->page;
- if (doc->temp)
+ if (doc->temp && !JobCanceled && cupsArrayCount(doc->pages) > 0)
{
int copy; /* Current copy */
* Make the copies...
*/
- for (copy = !doc->slow_order; copy < doc->copies; copy ++)
+ if (doc->slow_collate)
+ copy = !doc->slow_order;
+ else
+ copy = doc->copies - 1;
+
+ for (; copy < doc->copies; copy ++)
{
+ if (JobCanceled)
+ break;
+
+ /*
+ * Send end-of-job stuff followed by any start-of-job stuff required
+ * for the JCL options...
+ */
+
+ if (number && doc->emit_jcl && ppd && ppd->jcl_end)
+ {
+ /*
+ * Send the trailer...
+ */
+
+ puts("%%Trailer");
+ printf("%%%%Pages: %d\n", cupsArrayCount(doc->pages));
+ if (doc->number_up > 1 || doc->fit_to_page)
+ printf("%%%%BoundingBox: %.0f %.0f %.0f %.0f\n",
+ PageLeft, PageBottom, PageRight, PageTop);
+ else
+ printf("%%%%BoundingBox: %d %d %d %d\n",
+ doc->new_bounding_box[0], doc->new_bounding_box[1],
+ doc->new_bounding_box[2], doc->new_bounding_box[3]);
+ puts("%%EOF");
+
+ /*
+ * Start a new document...
+ */
+
+ ppdEmitJCLEnd(ppd, stdout);
+ ppdEmitJCL(ppd, stdout, doc->job_id, doc->user, doc->title);
+
+ puts("%!PS-Adobe-3.0");
+
+ number = 0;
+ }
+
+ /*
+ * Copy the prolog as needed...
+ */
+
+ if (!number)
+ {
+ pageinfo = (pstops_page_t *)cupsArrayFirst(doc->pages);
+ copy_bytes(doc->temp, 0, (size_t)pageinfo->offset);
+ }
+
+ /*
+ * Then copy all of the pages...
+ */
+
pageinfo = doc->slow_order ? (pstops_page_t *)cupsArrayLast(doc->pages) :
(pstops_page_t *)cupsArrayFirst(doc->pages);
while (pageinfo)
{
+ if (JobCanceled)
+ break;
+
number ++;
if (!ppd || !ppd->num_filters)
- fprintf(stderr, "PAGE: %d 1\n", number);
+ fprintf(stderr, "PAGE: %d %d\n", number,
+ doc->slow_collate ? 1 : doc->copies);
if (doc->number_up > 1)
{
}
else
{
- printf("%%%%Page: %s %d\n", pageinfo->label, number);
+ printf("%%%%Page: %s %d\n", pageinfo->label, number);
printf("%%%%PageBoundingBox: %d %d %d %d\n",
pageinfo->bounding_box[0], pageinfo->bounding_box[1],
pageinfo->bounding_box[2], pageinfo->bounding_box[3]);
}
- copy_bytes(doc->temp, pageinfo->offset, pageinfo->length);
+ copy_bytes(doc->temp, pageinfo->offset, (size_t)pageinfo->length);
pageinfo = doc->slow_order ? (pstops_page_t *)cupsArrayPrev(doc->pages) :
(pstops_page_t *)cupsArrayNext(doc->pages);
* Write/copy the trailer...
*/
- linelen = copy_trailer(fp, doc, ppd, number, line, linelen, linesize);
+ if (!JobCanceled)
+ copy_trailer(fp, doc, ppd, number, line, linelen, linesize);
}
/*
- * 'copy_non_dsc()' - Copy a document that does not conform to the DSC...
+ * 'copy_non_dsc()' - Copy a document that does not conform to the DSC.
*
* This function expects "line" to be filled with the %! comment line.
*/
pstops_doc_t *doc, /* I - Document info */
ppd_file_t *ppd, /* I - PPD file */
char *line, /* I - Line buffer */
- size_t linelen, /* I - Length of initial line */
+ ssize_t linelen, /* I - Length of initial line */
size_t linesize) /* I - Size of line buffer */
{
- int copy; /* Current copy */
- char buffer[8192]; /* Copy buffer */
- int bytes; /* Number of bytes copied */
+ int copy; /* Current copy */
+ char buffer[8192]; /* Copy buffer */
+ ssize_t bytes; /* Number of bytes copied */
+
+ (void)linesize;
/*
* First let the user know that they are attempting to print a file
* that may not print correctly...
*/
- fputs("WARNING: This document does not conform to the Adobe Document "
- "Structuring Conventions and may not print correctly!\n", stderr);
+ fputs("DEBUG: This document does not conform to the Adobe Document "
+ "Structuring Conventions and may not print correctly.\n", stderr);
/*
* Then write a standard DSC comment section...
else
puts("%%Pages: 1");
- printf("%%%%For: %s\n", doc->user);
- printf("%%%%Title: %s\n", doc->title);
+ WriteTextComment("For", doc->user);
+ WriteTextComment("Title", doc->title);
if (doc->copies != 1 && (!doc->collate || !doc->slow_collate))
{
puts("%%EndPageSetup");
puts("%%BeginDocument: nondsc");
- fwrite(line, linelen, 1, stdout);
+ fwrite(line, (size_t)linelen, 1, stdout);
if (doc->temp)
- cupsFileWrite(doc->temp, line, linelen);
+ cupsFileWrite(doc->temp, line, (size_t)linelen);
while ((bytes = cupsFileRead(fp, buffer, sizeof(buffer))) > 0)
{
- fwrite(buffer, 1, bytes, stdout);
+ fwrite(buffer, 1, (size_t)bytes, stdout);
if (doc->temp)
- cupsFileWrite(doc->temp, buffer, bytes);
+ cupsFileWrite(doc->temp, buffer, (size_t)bytes);
}
puts("%%EndDocument");
puts("ESPshowpage");
}
- if (doc->temp)
+ if (doc->temp && !JobCanceled)
{
/*
* Reopen the temporary file for reading...
for (copy = 1; copy < doc->copies; copy ++)
{
+ if (JobCanceled)
+ break;
+
if (!ppd || !ppd->num_filters)
fputs("PAGE: 1 1\n", stderr);
/*
- * 'copy_page()' - Copy a page description...
+ * 'copy_page()' - Copy a page description.
*
* This function expects "line" to be filled with a %%Page comment line.
* On return, "line" will contain the next line in the file, if any.
*/
-static size_t /* O - Length of next line */
+static ssize_t /* O - Length of next line */
copy_page(cups_file_t *fp, /* I - File to read from */
pstops_doc_t *doc, /* I - Document info */
ppd_file_t *ppd, /* I - PPD file */
int number, /* I - Current page number */
char *line, /* I - Line buffer */
- size_t linelen, /* I - Length of initial line */
+ ssize_t linelen, /* I - Length of initial line */
size_t linesize) /* I - Size of line buffer */
{
char label[256], /* Page label string */
int level; /* Embedded document level */
pstops_page_t *pageinfo; /* Page information */
int first_page; /* First page on N-up output? */
+ int has_page_setup = 0; /* Does the page have %%Begin/EndPageSetup? */
int bounding_box[4]; /* PageBoundingBox */
if (!parse_text(line + 7, &ptr, label, sizeof(label)))
{
- fputs("ERROR: Bad %%Page: comment in file!\n", stderr);
+ fputs("DEBUG: There was a bad %%Page: comment in the file.\n", stderr);
label[0] = '\0';
number = doc->page;
}
else if (strtol(ptr, &ptr, 10) == LONG_MAX || !isspace(*ptr & 255))
{
- fputs("ERROR: Bad %%Page: comment in file!\n", stderr);
+ fputs("DEBUG: There was a bad %%Page: comment in the file.\n", stderr);
number = doc->page;
}
if (doc->ap_input_slot || doc->ap_manual_feed)
{
- if (doc->page == 1)
+ if ((doc->page == 1 && (!doc->slow_order || !Duplex)) ||
+ (doc->page == 2 && doc->slow_order && Duplex))
{
/*
* First page/sheet gets AP_FIRSTPAGE_* options...
pageinfo->num_options = cupsAddOption("InputSlot", doc->ap_input_slot,
pageinfo->num_options,
&(pageinfo->options));
- pageinfo->num_options = cupsAddOption("ManualFeed", doc->ap_manual_feed,
+ pageinfo->num_options = cupsAddOption("ManualFeed",
+ doc->ap_input_slot ? "False" :
+ doc->ap_manual_feed,
+ pageinfo->num_options,
+ &(pageinfo->options));
+ pageinfo->num_options = cupsAddOption("MediaColor", doc->ap_media_color,
+ pageinfo->num_options,
+ &(pageinfo->options));
+ pageinfo->num_options = cupsAddOption("MediaType", doc->ap_media_type,
+ pageinfo->num_options,
+ &(pageinfo->options));
+ pageinfo->num_options = cupsAddOption("PageRegion", doc->ap_page_region,
+ pageinfo->num_options,
+ &(pageinfo->options));
+ pageinfo->num_options = cupsAddOption("PageSize", doc->ap_page_size,
pageinfo->num_options,
&(pageinfo->options));
}
pageinfo->num_options = cupsAddOption("InputSlot", doc->input_slot,
pageinfo->num_options,
&(pageinfo->options));
- pageinfo->num_options = cupsAddOption("ManualFeed", doc->manual_feed,
+ pageinfo->num_options = cupsAddOption("ManualFeed",
+ doc->input_slot ? "False" :
+ doc->manual_feed,
+ pageinfo->num_options,
+ &(pageinfo->options));
+ pageinfo->num_options = cupsAddOption("MediaColor", doc->media_color,
+ pageinfo->num_options,
+ &(pageinfo->options));
+ pageinfo->num_options = cupsAddOption("MediaType", doc->media_type,
+ pageinfo->num_options,
+ &(pageinfo->options));
+ pageinfo->num_options = cupsAddOption("PageRegion", doc->page_region,
+ pageinfo->num_options,
+ &(pageinfo->options));
+ pageinfo->num_options = cupsAddOption("PageSize", doc->page_size,
pageinfo->num_options,
&(pageinfo->options));
}
memcpy(bounding_box, doc->bounding_box, sizeof(bounding_box));
- while ((linelen = cupsFileGetLine(fp, line, linesize)) > 0)
+ while ((linelen = (ssize_t)cupsFileGetLine(fp, line, linesize)) > 0)
{
if (!strncmp(line, "%%PageBoundingBox:", 18))
{
bounding_box + 1, bounding_box + 2,
bounding_box + 3) != 4)
{
- fputs("ERROR: Bad %%PageBoundingBox: comment in file!\n", stderr);
+ fputs("DEBUG: There was a bad %%PageBoundingBox: comment in the file.\n", stderr);
memcpy(bounding_box, doc->bounding_box,
sizeof(bounding_box));
}
+ else if (doc->number_up == 1 && !doc->fit_to_page && Orientation)
+ {
+ int temp_bbox[4]; /* Temporary bounding box */
+
+
+ memcpy(temp_bbox, bounding_box, sizeof(temp_bbox));
+
+ fprintf(stderr, "DEBUG: Orientation = %d\n", Orientation);
+ fprintf(stderr, "DEBUG: original bounding_box = [ %d %d %d %d ]\n",
+ bounding_box[0], bounding_box[1],
+ bounding_box[2], bounding_box[3]);
+ fprintf(stderr, "DEBUG: PageWidth = %.1f, PageLength = %.1f\n",
+ PageWidth, PageLength);
+
+ switch (Orientation)
+ {
+ case 1 : /* Landscape */
+ bounding_box[0] = (int)(PageLength - temp_bbox[3]);
+ bounding_box[1] = temp_bbox[0];
+ bounding_box[2] = (int)(PageLength - temp_bbox[1]);
+ bounding_box[3] = temp_bbox[2];
+ break;
+
+ case 2 : /* Reverse Portrait */
+ bounding_box[0] = (int)(PageWidth - temp_bbox[2]);
+ bounding_box[1] = (int)(PageLength - temp_bbox[3]);
+ bounding_box[2] = (int)(PageWidth - temp_bbox[0]);
+ bounding_box[3] = (int)(PageLength - temp_bbox[1]);
+ break;
+
+ case 3 : /* Reverse Landscape */
+ bounding_box[0] = temp_bbox[1];
+ bounding_box[1] = (int)(PageWidth - temp_bbox[2]);
+ bounding_box[2] = temp_bbox[3];
+ bounding_box[3] = (int)(PageWidth - temp_bbox[0]);
+ break;
+ }
+
+ fprintf(stderr, "DEBUG: updated bounding_box = [ %d %d %d %d ]\n",
+ bounding_box[0], bounding_box[1],
+ bounding_box[2], bounding_box[3]);
+ }
}
#if 0
else if (!strncmp(line, "%%PageCustomColors:", 19) ||
* %%IncludeFeature: *MainKeyword OptionKeyword
*/
- if (doc->number_up == 1 &&!doc->fitplot)
+ if (doc->number_up == 1 &&!doc->fit_to_page)
pageinfo->num_options = include_feature(ppd, line,
pageinfo->num_options,
&(pageinfo->options));
}
- else if (strncmp(line, "%%Include", 9))
+ else if (!strncmp(line, "%%BeginPageSetup", 16))
+ {
+ has_page_setup = 1;
+ break;
+ }
+ else
break;
}
*/
if (first_page)
- {
- char *page_setup; /* PageSetup commands to send */
-
-
doc_puts(doc, "%%BeginPageSetup\n");
- if (pageinfo->num_options > 0)
- {
- int i; /* Looping var */
- ppd_option_t *option; /* PPD option */
- int min_order; /* Minimum OrderDependency value */
- char *doc_setup, /* DocumentSetup commands to send */
- *any_setup; /* AnySetup commands to send */
+ if (has_page_setup)
+ {
+ int feature = 0; /* In a Begin/EndFeature block? */
+ while ((linelen = (ssize_t)cupsFileGetLine(fp, line, linesize)) > 0)
+ {
+ if (!strncmp(line, "%%EndPageSetup", 14))
+ break;
+ else if (!strncmp(line, "%%BeginFeature:", 15))
+ {
+ feature = 1;
- /*
- * Yes, figure out the minimum OrderDependency value...
- */
+ if (doc->number_up > 1 || doc->fit_to_page)
+ continue;
+ }
+ else if (!strncmp(line, "%%EndFeature", 12))
+ {
+ feature = 0;
- if ((option = ppdFindOption(ppd, "PageRegion")) != NULL)
- min_order = option->order;
- else
- min_order = 999.0f;
+ if (doc->number_up > 1 || doc->fit_to_page)
+ continue;
+ }
+ else if (!strncmp(line, "%%IncludeFeature:", 17))
+ {
+ pageinfo->num_options = include_feature(ppd, line,
+ pageinfo->num_options,
+ &(pageinfo->options));
+ continue;
+ }
+ else if (!strncmp(line, "%%Include", 9))
+ continue;
- for (i = 0; i < pageinfo->num_options; i ++)
- if ((option = ppdFindOption(ppd, pageinfo->options[i].name)) != NULL &&
- option->order < min_order)
- min_order = option->order;
+ if (line[0] != '%' && !feature)
+ break;
- /*
- * Mark and extract them...
- */
+ if (!feature || (doc->number_up == 1 && !doc->fit_to_page))
+ doc_write(doc, line, (size_t)linelen);
+ }
- cupsMarkOptions(ppd, pageinfo->num_options, pageinfo->options);
+ /*
+ * Skip %%EndPageSetup...
+ */
- doc_setup = ppdEmitString(ppd, PPD_ORDER_DOCUMENT, min_order);
- any_setup = ppdEmitString(ppd, PPD_ORDER_ANY, min_order);
+ if (linelen > 0 && !strncmp(line, "%%EndPageSetup", 14))
+ linelen = (ssize_t)cupsFileGetLine(fp, line, linesize);
+ }
- /*
- * Then send them out...
- */
+ if (first_page)
+ {
+ char *page_setup; /* PageSetup commands to send */
- if (doc_setup)
- {
- doc_puts(doc, doc_setup);
- free(doc_setup);
- }
- if (any_setup)
- {
- doc_puts(doc, any_setup);
- free(any_setup);
- }
- }
+ if (pageinfo->num_options > 0)
+ write_options(doc, ppd, pageinfo->num_options, pageinfo->options);
/*
* Output commands for the current page...
start_nup(doc, number, 1, bounding_box);
- /*
- * Copy page setup commands as needed...
- */
-
- if (!strncmp(line, "%%BeginPageSetup", 16))
- {
- int feature = 0; /* In a Begin/EndFeature block? */
-
-
- while ((linelen = cupsFileGetLine(fp, line, linesize)) > 0)
- {
- if (!strncmp(line, "%%EndPageSetup", 14))
- break;
- else if (!strncmp(line, "%%BeginFeature:", 15))
- {
- feature = 1;
-
- if (doc->number_up > 1 || doc->fitplot)
- continue;
- }
- else if (!strncmp(line, "%%EndFeature:", 13))
- {
- feature = 0;
-
- if (doc->number_up > 1 || doc->fitplot)
- continue;
- }
- else if (!strncmp(line, "%%Include", 9))
- continue;
-
- if (!feature || (doc->number_up == 1 && !doc->fitplot))
- doc_write(doc, line, linelen);
- }
-
- /*
- * Skip %%EndPageSetup...
- */
-
- if (linelen > 0)
- linelen = cupsFileGetLine(fp, line, linesize);
- }
-
- /*
- * Finish the PageSetup section as needed...
- */
-
if (first_page)
doc_puts(doc, "%%EndPageSetup\n");
else if (!strncmp(line, "%%BeginDocument", 15) ||
!strncmp(line, "%ADO_BeginApplication", 21))
{
- doc_write(doc, line, linelen);
+ doc_write(doc, line, (size_t)linelen);
level ++;
}
else if ((!strncmp(line, "%%EndDocument", 13) ||
!strncmp(line, "%ADO_EndApplication", 19)) && level > 0)
{
- doc_write(doc, line, linelen);
+ doc_write(doc, line, (size_t)linelen);
level --;
}
int bytes; /* Bytes of data */
- doc_write(doc, line, linelen);
+ doc_write(doc, line, (size_t)linelen);
bytes = atoi(strchr(line, ':') + 1);
while (bytes > 0)
{
- if (bytes > linesize)
+ if ((size_t)bytes > linesize)
linelen = cupsFileRead(fp, line, linesize);
else
- linelen = cupsFileRead(fp, line, bytes);
+ linelen = cupsFileRead(fp, line, (size_t)bytes);
if (linelen < 1)
{
return (0);
}
- doc_write(doc, line, linelen);
+ doc_write(doc, line, (size_t)linelen);
bytes -= linelen;
}
}
else
- doc_write(doc, line, linelen);
+ doc_write(doc, line, (size_t)linelen);
}
- while ((linelen = cupsFileGetLine(fp, line, linesize)) > 0);
+ while ((linelen = (ssize_t)cupsFileGetLine(fp, line, linesize)) > 0);
/*
* Finish up this page and return...
end_nup(doc, number);
- pageinfo->length = cupsFileTell(doc->temp) - pageinfo->offset;
+ pageinfo->length = (ssize_t)(cupsFileTell(doc->temp) - pageinfo->offset);
return (linelen);
}
/*
- * 'copy_prolog()' - Copy the document prolog section...
+ * 'copy_prolog()' - Copy the document prolog section.
*
* This function expects "line" to be filled with a %%BeginProlog comment line.
* On return, "line" will contain the next line in the file, if any.
*/
-static size_t /* O - Length of next line */
+static ssize_t /* O - Length of next line */
copy_prolog(cups_file_t *fp, /* I - File to read from */
pstops_doc_t *doc, /* I - Document info */
ppd_file_t *ppd, /* I - PPD file */
char *line, /* I - Line buffer */
- size_t linelen, /* I - Length of initial line */
+ ssize_t linelen, /* I - Length of initial line */
size_t linesize) /* I - Size of line buffer */
{
while (strncmp(line, "%%BeginProlog", 13))
if (!strncmp(line, "%%BeginSetup", 12) || !strncmp(line, "%%Page:", 7))
break;
- fwrite(line, 1, linelen, stdout);
+ doc_write(doc, line, (size_t)linelen);
- if ((linelen = cupsFileGetLine(fp, line, linesize)) == 0)
+ if ((linelen = (ssize_t)cupsFileGetLine(fp, line, linesize)) == 0)
break;
}
- puts("%%BeginProlog");
+ doc_puts(doc, "%%BeginProlog\n");
do_prolog(doc, ppd);
if (!strncmp(line, "%%BeginProlog", 13))
{
- while ((linelen = cupsFileGetLine(fp, line, linesize)) > 0)
+ while ((linelen = (ssize_t)cupsFileGetLine(fp, line, linesize)) > 0)
{
if (!strncmp(line, "%%EndProlog", 11) ||
!strncmp(line, "%%BeginSetup", 12) ||
!strncmp(line, "%%Page:", 7))
break;
- fwrite(line, 1, linelen, stdout);
+ doc_write(doc, line, (size_t)linelen);
}
if (!strncmp(line, "%%EndProlog", 11))
- linelen = cupsFileGetLine(fp, line, linesize);
+ linelen = (ssize_t)cupsFileGetLine(fp, line, linesize);
else
- fputs("ERROR: Missing %%EndProlog!\n", stderr);
+ fputs("DEBUG: The %%EndProlog comment is missing.\n", stderr);
}
- puts("%%EndProlog");
+ doc_puts(doc, "%%EndProlog\n");
return (linelen);
}
/*
- * 'copy_setup()' - Copy the document setup section...
+ * 'copy_setup()' - Copy the document setup section.
*
* This function expects "line" to be filled with a %%BeginSetup comment line.
* On return, "line" will contain the next line in the file, if any.
*/
-static size_t /* O - Length of next line */
+static ssize_t /* O - Length of next line */
copy_setup(cups_file_t *fp, /* I - File to read from */
pstops_doc_t *doc, /* I - Document info */
ppd_file_t *ppd, /* I - PPD file */
char *line, /* I - Line buffer */
- size_t linelen, /* I - Length of initial line */
+ ssize_t linelen, /* I - Length of initial line */
size_t linesize) /* I - Size of line buffer */
{
+ int num_options; /* Number of options */
+ cups_option_t *options; /* Options */
+
+
while (strncmp(line, "%%BeginSetup", 12))
{
if (!strncmp(line, "%%Page:", 7))
break;
- fwrite(line, 1, linelen, stdout);
+ doc_write(doc, line, (size_t)linelen);
- if ((linelen = cupsFileGetLine(fp, line, linesize)) == 0)
+ if ((linelen = (ssize_t)cupsFileGetLine(fp, line, linesize)) == 0)
break;
}
+ doc_puts(doc, "%%BeginSetup\n");
+
+ do_setup(doc, ppd);
+
+ num_options = 0;
+ options = NULL;
+
if (!strncmp(line, "%%BeginSetup", 12))
{
while (strncmp(line, "%%EndSetup", 10))
* %%IncludeFeature: *MainKeyword OptionKeyword
*/
- if (doc->number_up == 1 && !doc->fitplot)
- doc->num_options = include_feature(ppd, line, doc->num_options,
- &(doc->options));
+ if (doc->number_up == 1 && !doc->fit_to_page)
+ num_options = include_feature(ppd, line, num_options, &options);
}
- else
- fwrite(line, 1, linelen, stdout);
+ else if (strncmp(line, "%%BeginSetup", 12))
+ doc_write(doc, line, (size_t)linelen);
- if ((linelen = cupsFileGetLine(fp, line, linesize)) == 0)
+ if ((linelen = (ssize_t)cupsFileGetLine(fp, line, linesize)) == 0)
break;
}
if (!strncmp(line, "%%EndSetup", 10))
- linelen = cupsFileGetLine(fp, line, linesize);
+ linelen = (ssize_t)cupsFileGetLine(fp, line, linesize);
else
- fputs("ERROR: Missing %%EndSetup!\n", stderr);
+ fputs("DEBUG: The %%EndSetup comment is missing.\n", stderr);
}
- else
- puts("%%BeginSetup");
- do_setup(doc, ppd);
+ if (num_options > 0)
+ {
+ write_options(doc, ppd, num_options, options);
+ cupsFreeOptions(num_options, options);
+ }
- puts("%%EndSetup");
+ doc_puts(doc, "%%EndSetup\n");
return (linelen);
}
/*
- * 'copy_trailer()' - Copy the document trailer...
+ * 'copy_trailer()' - Copy the document trailer.
*
* This function expects "line" to be filled with a %%Trailer comment line.
* On return, "line" will contain the next line in the file, if any.
*/
-static size_t /* O - Length of next line */
+static ssize_t /* O - Length of next line */
copy_trailer(cups_file_t *fp, /* I - File to read from */
pstops_doc_t *doc, /* I - Document info */
ppd_file_t *ppd, /* I - PPD file */
int number, /* I - Number of pages */
char *line, /* I - Line buffer */
- size_t linelen, /* I - Length of initial line */
+ ssize_t linelen, /* I - Length of initial line */
size_t linesize) /* I - Size of line buffer */
{
/*
* Write the trailer comments...
*/
+ (void)ppd;
+
puts("%%Trailer");
while (linelen > 0)
else if (strncmp(line, "%%Trailer", 9) &&
strncmp(line, "%%Pages:", 8) &&
strncmp(line, "%%BoundingBox:", 14))
- fwrite(line, 1, linelen, stdout);
+ fwrite(line, 1, (size_t)linelen, stdout);
- linelen = cupsFileGetLine(fp, line, linesize);
+ linelen = (ssize_t)cupsFileGetLine(fp, line, linesize);
}
fprintf(stderr, "DEBUG: Wrote %d pages...\n", number);
printf("%%%%Pages: %d\n", number);
- if (doc->number_up > 1 || doc->fitplot)
+ if (doc->number_up > 1 || doc->fit_to_page)
printf("%%%%BoundingBox: %.0f %.0f %.0f %.0f\n",
PageLeft, PageBottom, PageRight, PageTop);
else
/*
- * 'do_prolog()' - Send the necessary document prolog commands...
+ * 'do_prolog()' - Send the necessary document prolog commands.
*/
static void
do_prolog(pstops_doc_t *doc, /* I - Document information */
ppd_file_t *ppd) /* I - PPD file */
{
+ char *ps; /* PS commands */
+
+
/*
* Send the document prolog commands...
*/
if (ppd && ppd->patches)
{
- puts("%%BeginFeature: *JobPatchFile 1");
- puts(ppd->patches);
- puts("%%EndFeature");
+ doc_puts(doc, "%%BeginFeature: *JobPatchFile 1\n");
+ doc_puts(doc, ppd->patches);
+ doc_puts(doc, "\n%%EndFeature\n");
}
- ppdEmit(ppd, stdout, PPD_ORDER_PROLOG);
+ if ((ps = ppdEmitString(ppd, PPD_ORDER_PROLOG, 0.0)) != NULL)
+ {
+ doc_puts(doc, ps);
+ free(ps);
+ }
/*
* Define ESPshowpage here so that applications that define their
*/
if (doc->use_ESPshowpage)
- puts("userdict/ESPshowpage/showpage load put\n"
- "userdict/showpage{}put");
-
+ doc_puts(doc, "userdict/ESPshowpage/showpage load put\n"
+ "userdict/showpage{}put\n");
}
/*
- * 'do_setup()' - Send the necessary document setup commands...
+ * 'do_setup()' - Send the necessary document setup commands.
*/
static void
do_setup(pstops_doc_t *doc, /* I - Document information */
ppd_file_t *ppd) /* I - PPD file */
{
+ char *ps; /* PS commands */
+
+
/*
* Disable CTRL-D so that embedded files don't cause printing
* errors...
*/
- puts("% Disable CTRL-D as an end-of-file marker...");
- puts("userdict dup(\\004)cvn{}put (\\004\\004)cvn{}put");
+ doc_puts(doc, "% Disable CTRL-D as an end-of-file marker...\n");
+ doc_puts(doc, "userdict dup(\\004)cvn{}put (\\004\\004)cvn{}put\n");
/*
- * Mark any options from %%IncludeFeature: comments...
+ * Mark job options...
*/
cupsMarkOptions(ppd, doc->num_options, doc->options);
* Send all the printer-specific setup commands...
*/
- ppdEmit(ppd, stdout, PPD_ORDER_DOCUMENT);
- ppdEmit(ppd, stdout, PPD_ORDER_ANY);
+ if ((ps = ppdEmitString(ppd, PPD_ORDER_DOCUMENT, 0.0)) != NULL)
+ {
+ doc_puts(doc, ps);
+ free(ps);
+ }
+
+ if ((ps = ppdEmitString(ppd, PPD_ORDER_ANY, 0.0)) != NULL)
+ {
+ doc_puts(doc, ps);
+ free(ps);
+ }
/*
* Set the number of copies for the job...
if (doc->copies != 1 && (!doc->collate || !doc->slow_collate))
{
- printf("%%RBIBeginNonPPDFeature: *NumCopies %d\n", doc->copies);
- printf("%d/languagelevel where{pop languagelevel 2 ge}{false}ifelse\n"
- "{1 dict begin/NumCopies exch def currentdict end setpagedevice}\n"
- "{userdict/#copies 3 -1 roll put}ifelse\n", doc->copies);
- puts("%RBIEndNonPPDFeature");
+ doc_printf(doc, "%%RBIBeginNonPPDFeature: *NumCopies %d\n", doc->copies);
+ doc_printf(doc,
+ "%d/languagelevel where{pop languagelevel 2 ge}{false}ifelse\n"
+ "{1 dict begin/NumCopies exch def currentdict end "
+ "setpagedevice}\n"
+ "{userdict/#copies 3 -1 roll put}ifelse\n", doc->copies);
+ doc_puts(doc, "%RBIEndNonPPDFeature\n");
}
/*
*/
if (doc->number_up > 1)
- puts("userdict/setpagedevice{pop}bind put");
+ {
+ doc_puts(doc, "userdict/CUPSsetpagedevice/setpagedevice load put\n");
+ doc_puts(doc, "userdict/setpagedevice{pop}bind put\n");
+ }
/*
- * Changes to the transfer function must be made AFTER any
- * setpagedevice code...
+ * Make sure we have rectclip and rectstroke procedures of some sort...
*/
- if (doc->gamma != 1.0f || doc->brightness != 1.0f)
- printf("{ neg 1 add dup 0 lt { pop 1 } { %.3f exp neg 1 add } "
- "ifelse %.3f mul } bind settransfer\n", doc->gamma,
- doc->brightness);
+ doc_puts(doc,
+ "% x y w h ESPrc - Clip to a rectangle.\n"
+ "userdict/ESPrc/rectclip where{pop/rectclip load}\n"
+ "{{newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto\n"
+ "neg 0 rlineto closepath clip newpath}bind}ifelse put\n");
- /*
- * Make sure we have rectclip and rectstroke procedures of some sort...
- */
+ doc_puts(doc,
+ "% x y w h ESPrf - Fill a rectangle.\n"
+ "userdict/ESPrf/rectfill where{pop/rectfill load}\n"
+ "{{gsave newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto\n"
+ "neg 0 rlineto closepath fill grestore}bind}ifelse put\n");
- WriteCommon();
+ doc_puts(doc,
+ "% x y w h ESPrs - Stroke a rectangle.\n"
+ "userdict/ESPrs/rectstroke where{pop/rectstroke load}\n"
+ "{{gsave newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto\n"
+ "neg 0 rlineto closepath stroke grestore}bind}ifelse put\n");
/*
* Write the page and label prologs...
*/
if (Orientation & 1)
- WriteLabelProlog(doc->page_label, PageBottom,
- PageWidth - PageLength + PageTop, PageLength);
+ write_label_prolog(doc, doc->page_label, PageBottom,
+ PageWidth - PageLength + PageTop, PageLength);
else
- WriteLabelProlog(doc->page_label, PageLeft, PageRight, PageLength);
+ write_label_prolog(doc, doc->page_label, PageLeft, PageRight,
+ PageLength);
}
else
- WriteLabelProlog(doc->page_label, PageBottom, PageTop, PageWidth);
+ write_label_prolog(doc, doc->page_label, PageBottom, PageTop, PageWidth);
}
{
va_list ap; /* Pointer to arguments */
char buffer[1024]; /* Output buffer */
- size_t bytes; /* Number of bytes to write */
+ ssize_t bytes; /* Number of bytes to write */
va_start(ap, format);
bytes = vsnprintf(buffer, sizeof(buffer), format, ap);
va_end(ap);
- if (bytes > sizeof(buffer))
+ if ((size_t)bytes > sizeof(buffer))
{
- fprintf(stderr,
- "ERROR: doc_printf overflow (%d bytes) detected, aborting!\n",
- (int)bytes);
+ _cupsLangPrintFilter(stderr, "ERROR",
+ _("Buffer overflow detected, aborting."));
exit(1);
}
- doc_write(doc, buffer, bytes);
+ doc_write(doc, buffer, (size_t)bytes);
}
/*
- * 'end_nup()' - End processing for N-up printing...
+ * 'end_nup()' - End processing for N-up printing.
*/
static void
end_nup(pstops_doc_t *doc, /* I - Document information */
int number) /* I - Page number */
{
- if (doc->mirror || Orientation || doc->number_up > 1)
+ if (doc->number_up > 1)
doc_puts(doc, "userdict/ESPsave get restore\n");
switch (doc->number_up)
char name[255], /* Option name */
value[255]; /* Option value */
ppd_option_t *option; /* Option in file */
- ppd_choice_t *choice; /* Choice */
/*
if (sscanf(line + 17, "%254s%254s", name, value) != 2)
{
- fputs("ERROR: Bad %%IncludeFeature: comment!\n", stderr);
+ fputs("DEBUG: The %%IncludeFeature: comment is not valid.\n", stderr);
return (num_options);
}
if ((option = ppdFindOption(ppd, name + 1)) == NULL)
{
- fprintf(stderr, "WARNING: Unknown option \"%s\"!\n", name + 1);
+ _cupsLangPrintFilter(stderr, "WARNING", _("Unknown option \"%s\"."),
+ name + 1);
return (num_options);
}
if (option->section == PPD_ORDER_EXIT ||
option->section == PPD_ORDER_JCL)
{
- fprintf(stderr, "WARNING: Option \"%s\" cannot be included via "
- "IncludeFeature!\n", name + 1);
+ _cupsLangPrintFilter(stderr, "WARNING",
+ _("Option \"%s\" cannot be included via "
+ "%%%%IncludeFeature."), name + 1);
return (num_options);
}
- if ((choice = ppdFindChoice(option, value)) == NULL)
+ if (!ppdFindChoice(option, value))
{
- fprintf(stderr, "WARNING: Unknown choice \"%s\" for option \"%s\"!\n",
- value, name + 1);
+ _cupsLangPrintFilter(stderr, "WARNING",
+ _("Unknown choice \"%s\" for option \"%s\"."),
+ value, name + 1);
return (num_options);
}
/*
- * 'parse_text()' - Parse a text value in a comment...
+ * 'parse_text()' - Parse a text value in a comment.
*
* This function parses a DSC text value as defined on page 36 of the
* DSC specification. Text values are either surrounded by parenthesis
/*
- * 'set_pstops_options()' - Set pstops options...
+ * 'set_pstops_options()' - Set pstops options.
*/
static void
ppd_attr_t *attr; /* PPD attribute */
ppd_option_t *option; /* PPD option */
ppd_choice_t *choice; /* PPD choice */
+ const char *content_type; /* Original content type */
+ int max_copies; /* Maximum number of copies supported */
/*
doc->new_bounding_box[3] = INT_MIN;
/*
- * AP_FIRSTPAGE_InputSlot
- */
-
- doc->ap_input_slot = cupsGetOption("AP_FIRSTPAGE_InputSlot", num_options,
- options);
-
- /*
- * AP_FIRSTPAGE_ManualFeed
+ * AP_FIRSTPAGE_* and the corresponding non-first-page options.
*/
+ doc->ap_input_slot = cupsGetOption("AP_FIRSTPAGE_InputSlot", num_options,
+ options);
doc->ap_manual_feed = cupsGetOption("AP_FIRSTPAGE_ManualFeed", num_options,
options);
+ doc->ap_media_color = cupsGetOption("AP_FIRSTPAGE_MediaColor", num_options,
+ options);
+ doc->ap_media_type = cupsGetOption("AP_FIRSTPAGE_MediaType", num_options,
+ options);
+ doc->ap_page_region = cupsGetOption("AP_FIRSTPAGE_PageRegion", num_options,
+ options);
+ doc->ap_page_size = cupsGetOption("AP_FIRSTPAGE_PageSize", num_options,
+ options);
- /*
- * brightness
- */
-
- if ((val = cupsGetOption("brightness", num_options, options)) != NULL)
- {
- /*
- * Get brightness value from 10 to 1000.
- */
-
- intval = atoi(val);
-
- if (intval < 10 || intval > 1000)
- {
- fprintf(stderr, "ERROR: Unsupported brightness value %s, using "
- "brightness=100!\n", val);
- doc->brightness = 1.0f;
- }
- else
- doc->brightness = intval * 0.01f;
- }
- else
- doc->brightness = 1.0f;
+ if ((choice = ppdFindMarkedChoice(ppd, "InputSlot")) != NULL)
+ doc->input_slot = choice->choice;
+ if ((choice = ppdFindMarkedChoice(ppd, "ManualFeed")) != NULL)
+ doc->manual_feed = choice->choice;
+ if ((choice = ppdFindMarkedChoice(ppd, "MediaColor")) != NULL)
+ doc->media_color = choice->choice;
+ if ((choice = ppdFindMarkedChoice(ppd, "MediaType")) != NULL)
+ doc->media_type = choice->choice;
+ if ((choice = ppdFindMarkedChoice(ppd, "PageRegion")) != NULL)
+ doc->page_region = choice->choice;
+ if ((choice = ppdFindMarkedChoice(ppd, "PageSize")) != NULL)
+ doc->page_size = choice->choice;
/*
* collate, multiple-document-handling
* separate-documents-uncollated-copies allows for uncollated copies.
*/
- doc->collate = strcasecmp(val, "separate-documents-uncollated-copies") != 0;
+ doc->collate = _cups_strcasecmp(val, "separate-documents-uncollated-copies") != 0;
}
if ((val = cupsGetOption("Collate", num_options, options)) != NULL &&
- (!strcasecmp(val, "true") ||!strcasecmp(val, "on") ||
- !strcasecmp(val, "yes")))
+ (!_cups_strcasecmp(val, "true") ||!_cups_strcasecmp(val, "on") ||
+ !_cups_strcasecmp(val, "yes")))
doc->collate = 1;
/*
*/
if ((val = cupsGetOption("emit-jcl", num_options, options)) != NULL &&
- (!strcasecmp(val, "false") || !strcasecmp(val, "off") ||
- !strcasecmp(val, "no") || !strcmp(val, "0")))
+ (!_cups_strcasecmp(val, "false") || !_cups_strcasecmp(val, "off") ||
+ !_cups_strcasecmp(val, "no") || !strcmp(val, "0")))
doc->emit_jcl = 0;
else
doc->emit_jcl = 1;
/*
- * fitplot
+ * fit-to-page/ipp-attribute-fidelity
+ *
+ * (Only for original PostScript content)
*/
- if ((val = cupsGetOption("fitplot", num_options, options)) != NULL &&
- (!strcasecmp(val, "true") || !strcasecmp(val, "on") ||
- !strcasecmp(val, "yes")))
- doc->fitplot = 1;
+ if ((content_type = getenv("CONTENT_TYPE")) == NULL)
+ content_type = "application/postscript";
- /*
- * gamma
- */
-
- if ((val = cupsGetOption("gamma", num_options, options)) != NULL)
+ if (!_cups_strcasecmp(content_type, "application/postscript"))
{
- /*
- * Get gamma value from 1 to 10000...
- */
-
- intval = atoi(val);
-
- if (intval < 1 || intval > 10000)
- {
- fprintf(stderr, "ERROR: Unsupported gamma value %s, using "
- "gamma=1000!\n", val);
- doc->gamma = 1.0f;
- }
- else
- doc->gamma = intval * 0.001f;
+ if ((val = cupsGetOption("fit-to-page", num_options, options)) != NULL &&
+ !_cups_strcasecmp(val, "true"))
+ doc->fit_to_page = 1;
+ else if ((val = cupsGetOption("ipp-attribute-fidelity", num_options,
+ options)) != NULL &&
+ !_cups_strcasecmp(val, "true"))
+ doc->fit_to_page = 1;
}
- else
- doc->gamma = 1.0f;
/*
- * InputSlot
+ * mirror/MirrorPrint
*/
- if ((choice = ppdFindMarkedChoice(ppd, "InputSlot")) != NULL)
- doc->input_slot = choice->choice;
-
- /*
- * ManualFeed
- */
-
- if ((choice = ppdFindMarkedChoice(ppd, "ManualFeed")) != NULL)
- doc->manual_feed = choice->choice;
+ if ((choice = ppdFindMarkedChoice(ppd, "MirrorPrint")) != NULL)
+ {
+ val = choice->choice;
+ choice->marked = 0;
+ }
+ else
+ val = cupsGetOption("mirror", num_options, options);
- if ((val = cupsGetOption("mirror", num_options, options)) != NULL &&
- (!strcasecmp(val, "true") || !strcasecmp(val, "on") ||
- !strcasecmp(val, "yes")))
+ if (val && (!_cups_strcasecmp(val, "true") || !_cups_strcasecmp(val, "on") ||
+ !_cups_strcasecmp(val, "yes")))
doc->mirror = 1;
/*
doc->number_up = intval;
break;
default :
- fprintf(stderr,
- "ERROR: Unsupported number-up value %d, using number-up=1!\n",
- intval);
+ _cupsLangPrintFilter(stderr, "ERROR",
+ _("Unsupported number-up value %d, using "
+ "number-up=1."), intval);
doc->number_up = 1;
break;
}
if ((val = cupsGetOption("number-up-layout", num_options, options)) != NULL)
{
- if (!strcasecmp(val, "lrtb"))
+ if (!_cups_strcasecmp(val, "lrtb"))
doc->number_up_layout = PSTOPS_LAYOUT_LRTB;
- else if (!strcasecmp(val, "lrbt"))
+ else if (!_cups_strcasecmp(val, "lrbt"))
doc->number_up_layout = PSTOPS_LAYOUT_LRBT;
- else if (!strcasecmp(val, "rltb"))
+ else if (!_cups_strcasecmp(val, "rltb"))
doc->number_up_layout = PSTOPS_LAYOUT_RLTB;
- else if (!strcasecmp(val, "rlbt"))
+ else if (!_cups_strcasecmp(val, "rlbt"))
doc->number_up_layout = PSTOPS_LAYOUT_RLBT;
- else if (!strcasecmp(val, "tblr"))
+ else if (!_cups_strcasecmp(val, "tblr"))
doc->number_up_layout = PSTOPS_LAYOUT_TBLR;
- else if (!strcasecmp(val, "tbrl"))
+ else if (!_cups_strcasecmp(val, "tbrl"))
doc->number_up_layout = PSTOPS_LAYOUT_TBRL;
- else if (!strcasecmp(val, "btlr"))
+ else if (!_cups_strcasecmp(val, "btlr"))
doc->number_up_layout = PSTOPS_LAYOUT_BTLR;
- else if (!strcasecmp(val, "btrl"))
+ else if (!_cups_strcasecmp(val, "btrl"))
doc->number_up_layout = PSTOPS_LAYOUT_BTRL;
else
{
- fprintf(stderr, "ERROR: Unsupported number-up-layout value %s, using "
- "number-up-layout=lrtb!\n", val);
+ _cupsLangPrintFilter(stderr, "ERROR",
+ _("Unsupported number-up-layout value %s, using "
+ "number-up-layout=lrtb."), val);
doc->number_up_layout = PSTOPS_LAYOUT_LRTB;
}
}
if ((val = cupsGetOption("OutputOrder", num_options, options)) != NULL)
{
- if (!strcasecmp(val, "Reverse"))
+ if (!_cups_strcasecmp(val, "Reverse"))
doc->output_order = 1;
}
else if (ppd)
if ((choice = ppdFindMarkedChoice(ppd, "OutputBin")) != NULL &&
(attr = ppdFindAttr(ppd, "PageStackOrder", choice->choice)) != NULL &&
attr->value)
- doc->output_order = !strcasecmp(attr->value, "Reverse");
+ doc->output_order = !_cups_strcasecmp(attr->value, "Reverse");
else if ((attr = ppdFindAttr(ppd, "DefaultOutputOrder", NULL)) != NULL &&
attr->value)
- doc->output_order = !strcasecmp(attr->value, "Reverse");
+ doc->output_order = !_cups_strcasecmp(attr->value, "Reverse");
}
/*
if ((val = cupsGetOption("page-border", num_options, options)) != NULL)
{
- if (!strcasecmp(val, "none"))
+ if (!_cups_strcasecmp(val, "none"))
doc->page_border = PSTOPS_BORDERNONE;
- else if (!strcasecmp(val, "single"))
+ else if (!_cups_strcasecmp(val, "single"))
doc->page_border = PSTOPS_BORDERSINGLE;
- else if (!strcasecmp(val, "single-thick"))
+ else if (!_cups_strcasecmp(val, "single-thick"))
doc->page_border = PSTOPS_BORDERSINGLE2;
- else if (!strcasecmp(val, "double"))
+ else if (!_cups_strcasecmp(val, "double"))
doc->page_border = PSTOPS_BORDERDOUBLE;
- else if (!strcasecmp(val, "double-thick"))
+ else if (!_cups_strcasecmp(val, "double-thick"))
doc->page_border = PSTOPS_BORDERDOUBLE2;
else
{
- fprintf(stderr, "ERROR: Unsupported page-border value %s, using "
- "page-border=none!\n", val);
+ _cupsLangPrintFilter(stderr, "ERROR",
+ _("Unsupported page-border value %s, using "
+ "page-border=none."), val);
doc->page_border = PSTOPS_BORDERNONE;
}
}
* Now figure out if we have to force collated copies, etc.
*/
- if (ppd && ppd->manual_copies && Duplex && doc->copies > 1)
+ if ((attr = ppdFindAttr(ppd, "cupsMaxCopies", NULL)) != NULL)
+ max_copies = atoi(attr->value);
+ else if (ppd && ppd->manual_copies)
+ max_copies = 1;
+ else
+ max_copies = 9999;
+
+ if (doc->copies > max_copies)
+ doc->collate = 1;
+ else if (ppd && ppd->manual_copies && Duplex && doc->copies > 1)
{
/*
* Force collated copies when printing a duplexed document to
doc->slow_collate = 1;
- if ((choice = ppdFindMarkedChoice(ppd, "Collate")) != NULL &&
- !strcasecmp(choice->choice, "True"))
+ if (doc->copies <= max_copies &&
+ (choice = ppdFindMarkedChoice(ppd, "Collate")) != NULL &&
+ !_cups_strcasecmp(choice->choice, "True"))
{
/*
* Hardware collate option is selected, see if the option is
* turn the hardware collate option off...
*/
- if ((option = ppdFindOption(ppd, "Option")) != NULL &&
+ if ((option = ppdFindOption(ppd, "Collate")) != NULL &&
!option->conflicted)
doc->slow_collate = 0;
else
else
doc->slow_order = 0;
- if ((doc->slow_collate || doc->slow_order) && Duplex)
+ if (Duplex &&
+ (doc->slow_collate || doc->slow_order ||
+ ((attr = ppdFindAttr(ppd, "cupsEvenDuplex", NULL)) != NULL &&
+ attr->value && !_cups_strcasecmp(attr->value, "true"))))
doc->slow_duplex = 1;
else
doc->slow_duplex = 0;
if ((doc->temp = cupsTempFile2(doc->tempfile,
sizeof(doc->tempfile))) == NULL)
{
- fprintf(stderr, "ERROR: Unable to create temporary file: %s\n",
- strerror(errno));
+ perror("DEBUG: Unable to create temporary file");
exit(1);
}
}
/*
- * 'skip_page()' - Skip past a page that won't be printed...
+ * 'skip_page()' - Skip past a page that won't be printed.
*/
-static size_t /* O - Length of next line */
+static ssize_t /* O - Length of next line */
skip_page(cups_file_t *fp, /* I - File to read from */
char *line, /* I - Line buffer */
- size_t linelen, /* I - Length of initial line */
+ ssize_t linelen, /* I - Length of initial line */
size_t linesize) /* I - Size of line buffer */
{
int level; /* Embedded document level */
level = 0;
- while ((linelen = cupsFileGetLine(fp, line, linesize)) > 0)
+ while ((linelen = (ssize_t)cupsFileGetLine(fp, line, linesize)) > 0)
{
if (level == 0 &&
(!strncmp(line, "%%Page:", 7) || !strncmp(line, "%%Trailer", 9)))
* Skip binary data...
*/
- int bytes; /* Bytes of data */
-
+ ssize_t bytes; /* Bytes of data */
bytes = atoi(strchr(line, ':') + 1);
while (bytes > 0)
{
- if (bytes > linesize)
- linelen = cupsFileRead(fp, line, linesize);
+ if ((size_t)bytes > linesize)
+ linelen = (ssize_t)cupsFileRead(fp, line, linesize);
else
- linelen = cupsFileRead(fp, line, bytes);
+ linelen = (ssize_t)cupsFileRead(fp, line, (size_t)bytes);
if (linelen < 1)
{
/*
- * 'start_nup()' - Start processing for N-up printing...
+ * 'start_nup()' - Start processing for N-up printing.
*/
static void
{
int pos; /* Position on page */
int x, y; /* Relative position of subpage */
- float w, l, /* Width and length of subpage */
+ double w, l, /* Width and length of subpage */
tx, ty; /* Translation values for subpage */
- float pagew, /* Printable width of page */
+ double pagew, /* Printable width of page */
pagel; /* Printable height of page */
- int bboxw, /* BoundingBox width */
+ int bboxx, /* BoundingBox X origin */
+ bboxy, /* BoundingBox Y origin */
+ bboxw, /* BoundingBox width */
bboxl; /* BoundingBox height */
+ double margin = 0; /* Current margin for border */
- if (doc->mirror || Orientation || doc->number_up > 1)
+ if (doc->number_up > 1)
doc_puts(doc, "userdict/ESPsave save put\n");
- if (doc->mirror)
- doc_printf(doc, "%.1f 0.0 translate -1 1 scale\n", PageWidth);
-
pos = (number - 1) % doc->number_up;
pagew = PageRight - PageLeft;
pagel = PageTop - PageBottom;
- if (doc->fitplot)
+ if (doc->fit_to_page)
{
+ bboxx = bounding_box[0];
+ bboxy = bounding_box[1];
bboxw = bounding_box[2] - bounding_box[0];
bboxl = bounding_box[3] - bounding_box[1];
}
else
{
- bboxw = PageWidth;
- bboxl = PageLength;
+ bboxx = 0;
+ bboxy = 0;
+ bboxw = (int)PageWidth;
+ bboxl = (int)PageLength;
}
fprintf(stderr, "DEBUG: pagew = %.1f, pagel = %.1f\n", pagew, pagel);
- fprintf(stderr, "DEBUG: bboxw = %d, bboxl = %d\n", bboxw, bboxl);
+ fprintf(stderr, "DEBUG: bboxx = %d, bboxy = %d, bboxw = %d, bboxl = %d\n",
+ bboxx, bboxy, bboxw, bboxl);
fprintf(stderr, "DEBUG: PageLeft = %.1f, PageRight = %.1f\n",
PageLeft, PageRight);
fprintf(stderr, "DEBUG: PageTop = %.1f, PageBottom = %.1f\n",
break;
}
+ /*
+ * Mirror the page as needed...
+ */
+
+ if (doc->mirror)
+ doc_printf(doc, "%.1f 0.0 translate -1 1 scale\n", PageWidth);
+
+ /*
+ * Offset and scale as necessary for fit_to_page/fit-to-page/number-up...
+ */
+
if (Duplex && doc->number_up > 1 && ((number / doc->number_up) & 1))
doc_printf(doc, "%.1f %.1f translate\n", PageWidth - PageRight, PageBottom);
- else if (doc->number_up > 1 || doc->fitplot)
+ else if (doc->number_up > 1 || doc->fit_to_page)
doc_printf(doc, "%.1f %.1f translate\n", PageLeft, PageBottom);
switch (doc->number_up)
{
default :
- if (doc->fitplot)
+ if (doc->fit_to_page)
{
w = pagew;
l = w * bboxl / bboxw;
w / bboxw, l / bboxl);
}
else
- {
w = PageWidth;
- l = PageLength;
- }
break;
case 2 :
if (doc->page_border && show_border)
{
int rects; /* Number of border rectangles */
- float fscale, /* Scaling value for points */
- margin; /* Current margin for borders */
+ double fscale; /* Scaling value for points */
rects = (doc->page_border & PSTOPS_BORDERDOUBLE) ? 2 : 1;
for (; rects > 0; rects --, margin += 2 * fscale)
if (doc->number_up > 1)
doc_printf(doc, "%.1f %.1f %.1f %.1f ESPrs\n",
- margin - 2.25 * fscale,
- margin - 2.25 * fscale,
- bboxw + 4.5 * fscale - 2 * margin,
- bboxl + 4.5 * fscale - 2 * margin);
+ margin,
+ margin,
+ bboxw - 2 * margin,
+ bboxl - 2 * margin);
else
doc_printf(doc, "%.1f %.1f %.1f %.1f ESPrs\n",
PageLeft + margin,
doc_puts(doc, "grestore\n");
}
- if (doc->fitplot)
+ if (doc->fit_to_page)
{
/*
- * Clip the page that follows to the bounding box of the page...
+ * Offset the page by its bounding box...
*/
doc_printf(doc, "%d %d translate\n", -bounding_box[0],
-bounding_box[1]);
- doc_printf(doc, "%d %d %d %d ESPrc\n", bounding_box[0], bounding_box[1],
- bboxw, bboxl);
}
- else if (doc->number_up > 1)
+
+ if (doc->fit_to_page || doc->number_up > 1)
{
/*
- * Clip the page that follows to the default page size...
+ * Clip the page to the page's bounding box...
*/
- doc_printf(doc, "0 0 %d %d ESPrc\n", bboxw, bboxl);
+ doc_printf(doc, "%.1f %.1f %.1f %.1f ESPrc\n",
+ bboxx + margin, bboxy + margin,
+ bboxw - 2 * margin, bboxl - 2 * margin);
}
}
+/*
+ * 'write_label_prolog()' - Write the prolog with the classification
+ * and page label.
+ */
+
+static void
+write_label_prolog(pstops_doc_t *doc, /* I - Document info */
+ const char *label, /* I - Page label */
+ float bottom, /* I - Bottom position in points */
+ float top, /* I - Top position in points */
+ float width) /* I - Width in points */
+{
+ const char *classification; /* CLASSIFICATION environment variable */
+ const char *ptr; /* Temporary string pointer */
+
+
+ /*
+ * First get the current classification...
+ */
+
+ if ((classification = getenv("CLASSIFICATION")) == NULL)
+ classification = "";
+ if (strcmp(classification, "none") == 0)
+ classification = "";
+
+ /*
+ * If there is nothing to show, bind an empty 'write labels' procedure
+ * and return...
+ */
+
+ if (!classification[0] && (label == NULL || !label[0]))
+ {
+ doc_puts(doc, "userdict/ESPwl{}bind put\n");
+ return;
+ }
+
+ /*
+ * Set the classification + page label string...
+ */
+
+ doc_puts(doc, "userdict");
+ if (!strcmp(classification, "confidential"))
+ doc_puts(doc, "/ESPpl(CONFIDENTIAL");
+ else if (!strcmp(classification, "classified"))
+ doc_puts(doc, "/ESPpl(CLASSIFIED");
+ else if (!strcmp(classification, "secret"))
+ doc_puts(doc, "/ESPpl(SECRET");
+ else if (!strcmp(classification, "topsecret"))
+ doc_puts(doc, "/ESPpl(TOP SECRET");
+ else if (!strcmp(classification, "unclassified"))
+ doc_puts(doc, "/ESPpl(UNCLASSIFIED");
+ else
+ {
+ doc_puts(doc, "/ESPpl(");
+
+ for (ptr = classification; *ptr; ptr ++)
+ {
+ if (*ptr < 32 || *ptr > 126)
+ doc_printf(doc, "\\%03o", *ptr);
+ else if (*ptr == '_')
+ doc_puts(doc, " ");
+ else if (*ptr == '(' || *ptr == ')' || *ptr == '\\')
+ doc_printf(doc, "\\%c", *ptr);
+ else
+ doc_printf(doc, "%c", *ptr);
+ }
+ }
+
+ if (label)
+ {
+ if (classification[0])
+ doc_puts(doc, " - ");
+
+ /*
+ * Quote the label string as needed...
+ */
+
+ for (ptr = label; *ptr; ptr ++)
+ {
+ if (*ptr < 32 || *ptr > 126)
+ doc_printf(doc, "\\%03o", *ptr);
+ else if (*ptr == '(' || *ptr == ')' || *ptr == '\\')
+ doc_printf(doc, "\\%c", *ptr);
+ else
+ doc_printf(doc, "%c", *ptr);
+ }
+ }
+
+ doc_puts(doc, ")put\n");
+
+ /*
+ * Then get a 14 point Helvetica-Bold font...
+ */
+
+ doc_puts(doc, "userdict/ESPpf /Helvetica-Bold findfont 14 scalefont put\n");
+
+ /*
+ * Finally, the procedure to write the labels on the page...
+ */
+
+ doc_puts(doc, "userdict/ESPwl{\n");
+ doc_puts(doc, " ESPpf setfont\n");
+ doc_printf(doc, " ESPpl stringwidth pop dup 12 add exch -0.5 mul %.0f add\n",
+ width * 0.5f);
+ doc_puts(doc, " 1 setgray\n");
+ doc_printf(doc, " dup 6 sub %.0f 3 index 20 ESPrf\n", bottom - 2.0);
+ doc_printf(doc, " dup 6 sub %.0f 3 index 20 ESPrf\n", top - 18.0);
+ doc_puts(doc, " 0 setgray\n");
+ doc_printf(doc, " dup 6 sub %.0f 3 index 20 ESPrs\n", bottom - 2.0);
+ doc_printf(doc, " dup 6 sub %.0f 3 index 20 ESPrs\n", top - 18.0);
+ doc_printf(doc, " dup %.0f moveto ESPpl show\n", bottom + 2.0);
+ doc_printf(doc, " %.0f moveto ESPpl show\n", top - 14.0);
+ doc_puts(doc, "pop\n");
+ doc_puts(doc, "}bind put\n");
+}
+
+
/*
* 'write_labels()' - Write the actual page labels.
*
/*
- * End of "$Id: pstops.c 181 2006-06-22 20:01:18Z jlovell $".
+ * 'write_options()' - Write options provided via %%IncludeFeature.
*/
+
+static void
+write_options(
+ pstops_doc_t *doc, /* I - Document */
+ ppd_file_t *ppd, /* I - PPD file */
+ int num_options, /* I - Number of options */
+ cups_option_t *options) /* I - Options */
+{
+ int i; /* Looping var */
+ ppd_option_t *option; /* PPD option */
+ float min_order; /* Minimum OrderDependency value */
+ char *doc_setup, /* DocumentSetup commands to send */
+ *any_setup; /* AnySetup commands to send */
+
+
+ /*
+ * Figure out the minimum OrderDependency value...
+ */
+
+ if ((option = ppdFindOption(ppd, "PageRegion")) != NULL)
+ min_order = option->order;
+ else
+ min_order = 999.0f;
+
+ for (i = 0; i < num_options; i ++)
+ if ((option = ppdFindOption(ppd, options[i].name)) != NULL &&
+ option->order < min_order)
+ min_order = option->order;
+
+ /*
+ * Mark and extract them...
+ */
+
+ cupsMarkOptions(ppd, num_options, options);
+
+ doc_setup = ppdEmitString(ppd, PPD_ORDER_DOCUMENT, min_order);
+ any_setup = ppdEmitString(ppd, PPD_ORDER_ANY, min_order);
+
+ /*
+ * Then send them out...
+ */
+
+ if (doc->number_up > 1)
+ {
+ /*
+ * Temporarily restore setpagedevice so we can set the options...
+ */
+
+ doc_puts(doc, "userdict/setpagedevice/CUPSsetpagedevice load put\n");
+ }
+
+ if (doc_setup)
+ {
+ doc_puts(doc, doc_setup);
+ free(doc_setup);
+ }
+
+ if (any_setup)
+ {
+ doc_puts(doc, any_setup);
+ free(any_setup);
+ }
+
+ if (doc->number_up > 1)
+ {
+ /*
+ * Disable setpagedevice again...
+ */
+
+ doc_puts(doc, "userdict/setpagedevice{pop}bind put\n");
+ }
+}