/*
- * "$Id: pstops.c 181 2006-06-22 20:01:18Z jlovell $"
+ * "$Id: pstops.c 6649 2007-07-11 21:46:42Z mike $"
*
* PostScript filter for the Common UNIX Printing System (CUPS).
*
- * Copyright 1993-2006 by Easy Software Products.
+ * Copyright 2007 by Apple Inc.
+ * Copyright 1993-2007 by Easy Software Products.
*
* 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
+ * 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
+ * file is missing or damaged, see the license at "http://www.cups.org/".
*
* This file is subject to the Apple OS-Developed Software exception.
*
#include <math.h>
#include <cups/file.h>
#include <cups/array.h>
+#include <cups/i18n.h>
/*
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);
+ ppd_file_t *ppd, char *line,
+ size_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,
size_t linesize);
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);
if (argc < 6 || argc > 7)
{
- fputs("ERROR: pstops job-id user title copies options [file]\n", stderr);
+ fprintf(stderr, _("Usage: %s job-id user title copies options [file]\n"),
+ argv[0]);
return (1);
}
if ((fp = cupsFileOpen(argv[6], "r")) == NULL)
{
- fprintf(stderr, "ERROR: Unable to open print file \"%s\" - %s\n",
+ fprintf(stderr, _("ERROR: Unable to open file \"%s\" - %s\n"),
argv[6], strerror(errno));
return (1);
}
if ((len = cupsFileGetLine(fp, line, sizeof(line))) == 0)
{
- fputs("ERROR: Empty print file!\n", stderr);
+ fputs(_("ERROR: Empty print file!\n"), stderr);
return (1);
}
if (!doc->pages)
{
- fprintf(stderr, "EMERG: Unable to allocate memory for pages array: %s\n",
+ fprintf(stderr, _("EMERG: Unable to allocate memory for pages array: %s\n"),
strerror(errno));
exit(1);
}
if ((pageinfo = calloc(1, sizeof(pstops_page_t))) == NULL)
{
- fprintf(stderr, "EMERG: Unable to allocate memory for page info: %s\n",
+ fprintf(stderr, _("EMERG: Unable to allocate memory for page info: %s\n"),
strerror(errno));
exit(1);
}
if (cupsFileSeek(fp, offset) < 0)
{
- fprintf(stderr, "ERROR: Unable to seek to offset " CUPS_LLFMT
- " in file - %s\n",
+ fprintf(stderr,
+#ifdef HAVE_LONG_LONG
+ _("ERROR: Unable to seek to offset %lld in file - %s\n"),
+#else
+ _("ERROR: Unable to seek to offset %ld in file - %s\n"),
+#endif /* HAVE_LONG_LONG */
CUPS_LLCAST offset, strerror(errno));
return;
}
static size_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 */
size_t linesize) /* I - Size of line buffer */
if (!strncmp(line, "%%Pages:", 8))
{
+ int pages; /* Number of pages */
+
+
if (saw_pages)
- fputs("ERROR: Duplicate %%Pages: comment seen!\n", stderr);
+ fputs(_("ERROR: Duplicate %%Pages: comment 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(_("ERROR: Duplicate %%BoundingBox: comment 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(_("ERROR: Bad %%BoundingBox: comment 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))
{
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)
break;
}
if (!saw_bounding_box)
- fputs("ERROR: No %%BoundingBox: comment in header!\n", stderr);
+ fputs(_("ERROR: No %%BoundingBox: comment in header!\n"), stderr);
if (!saw_pages)
- fputs("ERROR: No %%Pages: comment in header!\n", stderr);
+ fputs(_("ERROR: No %%Pages: comment in 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);
}
*/
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, linelen);
if ((linelen = cupsFileGetLine(fp, line, linesize)) == 0)
break;
for (copy = !doc->slow_order; copy < doc->copies; copy ++)
{
+ /*
+ * 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->fitplot)
+ 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, pageinfo->offset);
+ }
+
+ /*
+ * Then copy all of the pages...
+ */
+
pageinfo = doc->slow_order ? (pstops_page_t *)cupsArrayLast(doc->pages) :
(pstops_page_t *)cupsArrayFirst(doc->pages);
}
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]);
* 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(_("WARNING: 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))
{
if (!parse_text(line + 7, &ptr, label, sizeof(label)))
{
- fputs("ERROR: Bad %%Page: comment in file!\n", stderr);
+ fputs(_("ERROR: Bad %%Page: comment in 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(_("ERROR: Bad %%Page: comment in file!\n"), stderr);
number = doc->page;
}
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("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));
}
bounding_box + 1, bounding_box + 2,
bounding_box + 3) != 4)
{
- fputs("ERROR: Bad %%PageBoundingBox: comment in file!\n", stderr);
+ fputs(_("ERROR: Bad %%PageBoundingBox: comment in file!\n"), stderr);
memcpy(bounding_box, doc->bounding_box,
sizeof(bounding_box));
}
+ else if (doc->number_up == 1 && !doc->fitplot && 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] = PageLength - temp_bbox[3];
+ bounding_box[1] = temp_bbox[0];
+ bounding_box[2] = PageLength - temp_bbox[1];
+ bounding_box[3] = temp_bbox[2];
+ break;
+
+ case 2 : /* Reverse Portrait */
+ bounding_box[0] = PageWidth - temp_bbox[2];
+ bounding_box[1] = PageLength - temp_bbox[3];
+ bounding_box[2] = PageWidth - temp_bbox[0];
+ bounding_box[3] = PageLength - temp_bbox[1];
+ break;
+
+ case 3 : /* Reverse Landscape */
+ bounding_box[0] = temp_bbox[1];
+ bounding_box[1] = PageWidth - temp_bbox[2];
+ bounding_box[2] = temp_bbox[3];
+ bounding_box[3] = 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) ||
if (doc->number_up > 1 || doc->fitplot)
continue;
}
- else if (!strncmp(line, "%%EndFeature:", 13))
+ else if (!strncmp(line, "%%EndFeature", 12))
{
feature = 0;
if (!strncmp(line, "%%BeginSetup", 12) || !strncmp(line, "%%Page:", 7))
break;
- fwrite(line, 1, linelen, stdout);
+ doc_write(doc, line, linelen);
if ((linelen = cupsFileGetLine(fp, line, linesize)) == 0)
break;
}
- puts("%%BeginProlog");
+ doc_puts(doc, "%%BeginProlog\n");
do_prolog(doc, ppd);
!strncmp(line, "%%Page:", 7))
break;
- fwrite(line, 1, linelen, stdout);
+ doc_write(doc, line, linelen);
}
if (!strncmp(line, "%%EndProlog", 11))
linelen = cupsFileGetLine(fp, line, linesize);
else
- fputs("ERROR: Missing %%EndProlog!\n", stderr);
+ fputs(_("ERROR: Missing %%EndProlog!\n"), stderr);
}
- puts("%%EndProlog");
+ doc_puts(doc, "%%EndProlog\n");
return (linelen);
}
if (!strncmp(line, "%%Page:", 7))
break;
- fwrite(line, 1, linelen, stdout);
+ doc_write(doc, line, linelen);
if ((linelen = cupsFileGetLine(fp, line, linesize)) == 0)
break;
}
+ doc_puts(doc, "%%BeginSetup\n");
+
+ do_setup(doc, ppd);
+
if (!strncmp(line, "%%BeginSetup", 12))
{
while (strncmp(line, "%%EndSetup", 10))
doc->num_options = include_feature(ppd, line, doc->num_options,
&(doc->options));
}
- else
- fwrite(line, 1, linelen, stdout);
+ else if (strncmp(line, "%%BeginSetup", 12))
+ doc_write(doc, line, linelen);
if ((linelen = cupsFileGetLine(fp, line, linesize)) == 0)
break;
if (!strncmp(line, "%%EndSetup", 10))
linelen = cupsFileGetLine(fp, line, linesize);
else
- fputs("ERROR: Missing %%EndSetup!\n", stderr);
+ fputs(_("ERROR: Missing %%EndSetup!\n"), stderr);
}
- else
- puts("%%BeginSetup");
-
- do_setup(doc, ppd);
- puts("%%EndSetup");
+ doc_puts(doc, "%%EndSetup\n");
return (linelen);
}
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(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...
* 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/setpagedevice{pop}bind put\n");
/*
* Changes to the transfer function must be made AFTER any
*/
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_printf(doc, "{ neg 1 add dup 0 lt { pop 1 } { %.3f exp neg 1 add } "
+ "ifelse %.3f mul } bind settransfer\n",
+ doc->gamma, doc->brightness);
/*
* Make sure we have rectclip and rectstroke procedures of some sort...
*/
- WriteCommon();
+ 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");
+
+ 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");
+
+ 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);
}
if (bytes > sizeof(buffer))
{
fprintf(stderr,
- "ERROR: doc_printf overflow (%d bytes) detected, aborting!\n",
+ _("ERROR: doc_printf overflow (%d bytes) detected, aborting!\n"),
(int)bytes);
exit(1);
}
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)
if (sscanf(line + 17, "%254s%254s", name, value) != 2)
{
- fputs("ERROR: Bad %%IncludeFeature: comment!\n", stderr);
+ fputs(_("ERROR: Bad %%IncludeFeature: comment!\n"), stderr);
return (num_options);
}
if ((option = ppdFindOption(ppd, name + 1)) == NULL)
{
- fprintf(stderr, "WARNING: Unknown option \"%s\"!\n", name + 1);
+ fprintf(stderr, _("WARNING: Unknown option \"%s\"!\n"), 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);
+ fprintf(stderr, _("WARNING: Option \"%s\" cannot be included via "
+ "IncludeFeature!\n"), name + 1);
return (num_options);
}
if ((choice = ppdFindChoice(option, value)) == NULL)
{
- fprintf(stderr, "WARNING: Unknown choice \"%s\" for option \"%s\"!\n",
+ fprintf(stderr, _("WARNING: Unknown choice \"%s\" for option \"%s\"!\n"),
value, name + 1);
return (num_options);
}
if (intval < 10 || intval > 1000)
{
- fprintf(stderr, "ERROR: Unsupported brightness value %s, using "
- "brightness=100!\n", val);
+ fprintf(stderr, _("ERROR: Unsupported brightness value %s, using "
+ "brightness=100!\n"), val);
doc->brightness = 1.0f;
}
else
if (intval < 1 || intval > 10000)
{
- fprintf(stderr, "ERROR: Unsupported gamma value %s, using "
- "gamma=1000!\n", val);
+ fprintf(stderr, _("ERROR: Unsupported gamma value %s, using "
+ "gamma=1000!\n"), val);
doc->gamma = 1.0f;
}
else
if ((choice = ppdFindMarkedChoice(ppd, "ManualFeed")) != NULL)
doc->manual_feed = choice->choice;
- if ((val = cupsGetOption("mirror", num_options, options)) != NULL &&
- (!strcasecmp(val, "true") || !strcasecmp(val, "on") ||
- !strcasecmp(val, "yes")))
+ if ((choice = ppdFindMarkedChoice(ppd, "MirrorPrint")) != NULL)
+ {
+ val = choice->choice;
+ choice->marked = 0;
+ }
+ else
+ val = cupsGetOption("mirror", num_options, options);
+
+ if (val && (!strcasecmp(val, "true") || !strcasecmp(val, "on") ||
+ !strcasecmp(val, "yes")))
doc->mirror = 1;
/*
break;
default :
fprintf(stderr,
- "ERROR: Unsupported number-up value %d, using number-up=1!\n",
- intval);
+ _("ERROR: Unsupported number-up value %d, using "
+ "number-up=1!\n"), intval);
doc->number_up = 1;
break;
}
doc->number_up_layout = PSTOPS_LAYOUT_BTRL;
else
{
- fprintf(stderr, "ERROR: Unsupported number-up-layout value %s, using "
- "number-up-layout=lrtb!\n", val);
+ fprintf(stderr, _("ERROR: Unsupported number-up-layout value %s, using "
+ "number-up-layout=lrtb!\n"), val);
doc->number_up_layout = PSTOPS_LAYOUT_LRTB;
}
}
doc->page_border = PSTOPS_BORDERDOUBLE2;
else
{
- fprintf(stderr, "ERROR: Unsupported page-border value %s, using "
- "page-border=none!\n", val);
+ fprintf(stderr, _("ERROR: Unsupported page-border value %s, using "
+ "page-border=none!\n"), val);
doc->page_border = PSTOPS_BORDERNONE;
}
}
* 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 && !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",
+ fprintf(stderr, _("ERROR: Unable to create temporary file: %s\n"),
strerror(errno));
exit(1);
}
bboxl; /* BoundingBox height */
- if (doc->mirror || Orientation || doc->number_up > 1)
+ if (doc->number_up > 1)
doc_puts(doc, "userdict/ESPsave save put\n");
if (doc->mirror)
}
+/*
+ * '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 $".
+ * End of "$Id: pstops.c 6649 2007-07-11 21:46:42Z mike $".
*/