]>
git.ipfire.org Git - thirdparty/cups.git/blob - filter/pstops.c
c6c1129a41e70e2c1bf8c3696e4f514a510b164e
2 * "$Id: pstops.c 7689 2008-06-24 20:50:57Z mike $"
4 * PostScript filter for the Common UNIX Printing System (CUPS).
6 * Copyright 2007-2008 by Apple Inc.
7 * Copyright 1993-2007 by Easy Software Products.
9 * These coded instructions, statements, and computer programs are the
10 * property of Apple Inc. and are protected by Federal copyright
11 * law. Distribution and use rights are outlined in the file "LICENSE.txt"
12 * which should have been included with this file. If this file is
13 * file is missing or damaged, see the license at "http://www.cups.org/".
15 * This file is subject to the Apple OS-Developed Software exception.
19 * main() - Main entry...
20 * add_page() - Add a page to the pages array...
21 * cancel_job() - Flag the job as canceled.
22 * check_range() - Check to see if the current page is selected for
23 * copy_bytes() - Copy bytes from the input file to stdout...
24 * copy_comments() - Copy all of the comments section...
25 * copy_dsc() - Copy a DSC-conforming document...
26 * copy_non_dsc() - Copy a document that does not conform to the DSC...
27 * copy_page() - Copy a page description...
28 * copy_prolog() - Copy the document prolog section...
29 * copy_setup() - Copy the document setup section...
30 * copy_trailer() - Copy the document trailer...
31 * do_prolog() - Send the necessary document prolog commands...
32 * do_setup() - Send the necessary document setup commands...
33 * doc_printf() - Send a formatted string to stdout and/or the temp
35 * doc_puts() - Send a nul-terminated string to stdout and/or the
37 * doc_write() - Send data to stdout and/or the temp file.
38 * end_nup() - End processing for N-up printing...
39 * include_feature() - Include a printer option/feature command.
40 * parse_text() - Parse a text value in a comment...
41 * set_pstops_options() - Set pstops options...
42 * skip_page() - Skip past a page that won't be printed...
43 * start_nup() - Start processing for N-up printing...
44 * write_labels() - Write the actual page labels.
48 * Include necessary headers...
54 #include <cups/file.h>
55 #include <cups/array.h>
56 #include <cups/i18n.h>
64 #define PSTOPS_BORDERNONE 0 /* No border or hairline border */
65 #define PSTOPS_BORDERTHICK 1 /* Think border */
66 #define PSTOPS_BORDERSINGLE 2 /* Single-line hairline border */
67 #define PSTOPS_BORDERSINGLE2 3 /* Single-line thick border */
68 #define PSTOPS_BORDERDOUBLE 4 /* Double-line hairline border */
69 #define PSTOPS_BORDERDOUBLE2 5 /* Double-line thick border */
71 #define PSTOPS_LAYOUT_LRBT 0 /* Left to right, bottom to top */
72 #define PSTOPS_LAYOUT_LRTB 1 /* Left to right, top to bottom */
73 #define PSTOPS_LAYOUT_RLBT 2 /* Right to left, bottom to top */
74 #define PSTOPS_LAYOUT_RLTB 3 /* Right to left, top to bottom */
75 #define PSTOPS_LAYOUT_BTLR 4 /* Bottom to top, left to right */
76 #define PSTOPS_LAYOUT_TBLR 5 /* Top to bottom, left to right */
77 #define PSTOPS_LAYOUT_BTRL 6 /* Bottom to top, right to left */
78 #define PSTOPS_LAYOUT_TBRL 7 /* Top to bottom, right to left */
80 #define PSTOPS_LAYOUT_NEGATEY 1 /* The bits for the layout */
81 #define PSTOPS_LAYOUT_NEGATEX 2 /* definitions above... */
82 #define PSTOPS_LAYOUT_VERTICAL 4
89 typedef struct /**** Page information ****/
91 char *label
; /* Page label */
92 int bounding_box
[4]; /* PageBoundingBox */
93 off_t offset
; /* Offset to start of page */
94 ssize_t length
; /* Number of bytes for page */
95 int num_options
; /* Number of options for this page */
96 cups_option_t
*options
; /* Options for this page */
99 typedef struct /**** Document information ****/
101 int page
; /* Current page */
102 int bounding_box
[4]; /* BoundingBox from header */
103 int new_bounding_box
[4]; /* New composite bounding box */
104 int num_options
; /* Number of document-wide options */
105 cups_option_t
*options
; /* Document-wide options */
106 int normal_landscape
, /* Normal rotation for landscape? */
107 saw_eof
, /* Saw the %%EOF comment? */
108 slow_collate
, /* Collate copies by hand? */
109 slow_duplex
, /* Duplex pages slowly? */
110 slow_order
, /* Reverse pages slowly? */
111 use_ESPshowpage
; /* Use ESPshowpage? */
112 cups_array_t
*pages
; /* Pages in document */
113 cups_file_t
*temp
; /* Temporary file, if any */
114 char tempfile
[1024]; /* Temporary filename */
115 int job_id
; /* Job ID */
116 const char *user
, /* User name */
117 *title
; /* Job name */
118 int copies
; /* Number of copies */
119 const char *ap_input_slot
, /* AP_FIRSTPAGE_InputSlot value */
120 *ap_manual_feed
; /* AP_FIRSTPAGE_ManualFeed value */
121 float brightness
; /* brightness value */
122 int collate
, /* Collate copies? */
123 emit_jcl
, /* Emit JCL commands? */
124 fitplot
; /* Fit pages to media */
125 float gamma
; /* gamma value */
126 const char *input_slot
, /* InputSlot value */
127 *manual_feed
; /* ManualFeed value */
128 int mirror
, /* doc->mirror/mirror pages */
129 number_up
, /* Number of pages on each sheet */
130 number_up_layout
, /* doc->number_up_layout of N-up pages */
131 output_order
, /* Requested reverse output order? */
132 page_border
; /* doc->page_border around pages */
133 const char *page_label
, /* page-label option, if any */
134 *page_ranges
, /* page-ranges option, if any */
135 *page_set
; /* page-set option, if any */
140 * Convenience macros...
143 #define is_first_page(p) (doc->number_up == 1 || \
144 ((p) % doc->number_up) == 1)
145 #define is_last_page(p) (doc->number_up == 1 || \
146 ((p) % doc->number_up) == 0)
147 #define is_not_last_page(p) (doc->number_up > 1 && \
148 ((p) % doc->number_up) != 0)
155 static int JobCanceled
= 0;/* Set to 1 on SIGTERM */
162 static pstops_page_t
*add_page(pstops_doc_t
*doc
, const char *label
);
163 static void cancel_job(int sig
);
164 static int check_range(pstops_doc_t
*doc
, int page
);
165 static void copy_bytes(cups_file_t
*fp
, off_t offset
,
167 static ssize_t
copy_comments(cups_file_t
*fp
, pstops_doc_t
*doc
,
168 ppd_file_t
*ppd
, char *line
,
169 ssize_t linelen
, size_t linesize
);
170 static void copy_dsc(cups_file_t
*fp
, pstops_doc_t
*doc
,
171 ppd_file_t
*ppd
, char *line
, ssize_t linelen
,
173 static void copy_non_dsc(cups_file_t
*fp
, pstops_doc_t
*doc
,
174 ppd_file_t
*ppd
, char *line
,
175 ssize_t linelen
, size_t linesize
);
176 static ssize_t
copy_page(cups_file_t
*fp
, pstops_doc_t
*doc
,
177 ppd_file_t
*ppd
, int number
, char *line
,
178 ssize_t linelen
, size_t linesize
);
179 static ssize_t
copy_prolog(cups_file_t
*fp
, pstops_doc_t
*doc
,
180 ppd_file_t
*ppd
, char *line
,
181 ssize_t linelen
, size_t linesize
);
182 static ssize_t
copy_setup(cups_file_t
*fp
, pstops_doc_t
*doc
,
183 ppd_file_t
*ppd
, char *line
,
184 ssize_t linelen
, size_t linesize
);
185 static ssize_t
copy_trailer(cups_file_t
*fp
, pstops_doc_t
*doc
,
186 ppd_file_t
*ppd
, int number
, char *line
,
187 ssize_t linelen
, size_t linesize
);
188 static void do_prolog(pstops_doc_t
*doc
, ppd_file_t
*ppd
);
189 static void do_setup(pstops_doc_t
*doc
, ppd_file_t
*ppd
);
190 static void doc_printf(pstops_doc_t
*doc
, const char *format
, ...)
192 __attribute__ ((__format__ (__printf__
, 2, 3)))
193 #endif /* __GNUC__ */
195 static void doc_puts(pstops_doc_t
*doc
, const char *s
);
196 static void doc_write(pstops_doc_t
*doc
, const char *s
, size_t len
);
197 static void end_nup(pstops_doc_t
*doc
, int number
);
198 static int include_feature(ppd_file_t
*ppd
, const char *line
,
200 cups_option_t
**options
);
201 static char *parse_text(const char *start
, char **end
, char *buffer
,
203 static void set_pstops_options(pstops_doc_t
*doc
, ppd_file_t
*ppd
,
204 char *argv
[], int num_options
,
205 cups_option_t
*options
);
206 static ssize_t
skip_page(cups_file_t
*fp
, char *line
, ssize_t linelen
,
208 static void start_nup(pstops_doc_t
*doc
, int number
,
209 int show_border
, const int *bounding_box
);
210 static void write_label_prolog(pstops_doc_t
*doc
, const char *label
,
211 float bottom
, float top
,
213 static void write_labels(pstops_doc_t
*doc
, int orient
);
217 * 'main()' - Main entry...
220 int /* O - Exit status */
221 main(int argc
, /* I - Number of command-line args */
222 char *argv
[]) /* I - Command-line arguments */
224 pstops_doc_t doc
; /* Document information */
225 cups_file_t
*fp
; /* Print file */
226 ppd_file_t
*ppd
; /* PPD file */
227 int num_options
; /* Number of print options */
228 cups_option_t
*options
; /* Print options */
229 char line
[8192]; /* Line buffer */
230 size_t len
; /* Length of line buffer */
231 #if defined(HAVE_SIGACTION) && !defined(HAVE_SIGSET)
232 struct sigaction action
; /* Actions for POSIX signals */
233 #endif /* HAVE_SIGACTION && !HAVE_SIGSET */
237 * Make sure status messages are not buffered...
240 setbuf(stderr
, NULL
);
243 * Check command-line...
246 if (argc
< 6 || argc
> 7)
248 fprintf(stderr
, _("Usage: %s job-id user title copies options [file]\n"),
254 * Register a signal handler to cleanly cancel a job.
257 #ifdef HAVE_SIGSET /* Use System V signals over POSIX to avoid bugs */
258 sigset(SIGTERM
, cancel_job
);
259 #elif defined(HAVE_SIGACTION)
260 memset(&action
, 0, sizeof(action
));
262 sigemptyset(&action
.sa_mask
);
263 action
.sa_handler
= cancel_job
;
264 sigaction(SIGTERM
, &action
, NULL
);
266 signal(SIGTERM
, cancel_job
);
267 #endif /* HAVE_SIGSET */
270 * If we have 7 arguments, print the file named on the command-line.
271 * Otherwise, send stdin instead...
275 fp
= cupsFileStdin();
279 * Try to open the print file...
282 if ((fp
= cupsFileOpen(argv
[6], "r")) == NULL
)
284 fprintf(stderr
, _("ERROR: Unable to open file \"%s\" - %s\n"),
285 argv
[6], strerror(errno
));
291 * Read the first line to see if we have DSC comments...
294 if ((len
= cupsFileGetLine(fp
, line
, sizeof(line
))) == 0)
296 fputs(_("ERROR: Empty print file!\n"), stderr
);
301 * Process command-line options...
305 num_options
= cupsParseOptions(argv
[5], 0, &options
);
306 ppd
= SetCommonOptions(num_options
, options
, 1);
308 set_pstops_options(&doc
, ppd
, argv
, num_options
, options
);
311 * Write any "exit server" options that have been selected...
314 ppdEmit(ppd
, stdout
, PPD_ORDER_EXIT
);
317 * Write any JCL commands that are needed to print PostScript code...
321 ppdEmitJCL(ppd
, stdout
, doc
.job_id
, doc
.user
, doc
.title
);
324 * Start with a DSC header...
327 puts("%!PS-Adobe-3.0");
330 * Skip leading PJL in the document...
333 while (!strncmp(line
, "\033%-12345X", 9) || !strncmp(line
, "@PJL ", 5))
336 * Yup, we have leading PJL fun, so skip it until we hit the line
337 * with "ENTER LANGUAGE"...
340 fputs("DEBUG: Skipping PJL header...\n", stderr
);
342 while (strstr(line
, "ENTER LANGUAGE") == NULL
&& strncmp(line
, "%!", 2))
343 if ((len
= cupsFileGetLine(fp
, line
, sizeof(line
))) == 0)
346 if (!strncmp(line
, "%!", 2))
349 if ((len
= cupsFileGetLine(fp
, line
, sizeof(line
))) == 0)
354 * Now see if the document conforms to the Adobe Document Structuring
358 if (!strncmp(line
, "%!PS-Adobe-", 11))
361 * Yes, filter the document...
364 copy_dsc(fp
, &doc
, ppd
, line
, len
, sizeof(line
));
369 * No, display an error message and treat the file as if it contains
373 copy_non_dsc(fp
, &doc
, ppd
, line
, len
, sizeof(line
));
377 * Send %%EOF as needed...
384 * End the job with the appropriate JCL command or CTRL-D...
389 if (ppd
&& ppd
->jcl_end
)
390 ppdEmitJCLEnd(ppd
, stdout
);
396 * Close files and remove the temporary file if needed...
401 cupsFileClose(doc
.temp
);
402 unlink(doc
.tempfile
);
406 cupsFreeOptions(num_options
, options
);
415 * 'add_page()' - Add a page to the pages array...
418 static pstops_page_t
* /* O - New page info object */
419 add_page(pstops_doc_t
*doc
, /* I - Document information */
420 const char *label
) /* I - Page label */
422 pstops_page_t
*pageinfo
; /* New page info object */
426 doc
->pages
= cupsArrayNew(NULL
, NULL
);
430 fprintf(stderr
, _("EMERG: Unable to allocate memory for pages array: %s\n"),
435 if ((pageinfo
= calloc(1, sizeof(pstops_page_t
))) == NULL
)
437 fprintf(stderr
, _("EMERG: Unable to allocate memory for page info: %s\n"),
442 pageinfo
->label
= strdup(label
);
443 pageinfo
->offset
= cupsFileTell(doc
->temp
);
445 cupsArrayAdd(doc
->pages
, pageinfo
);
454 * 'cancel_job()' - Flag the job as canceled.
458 cancel_job(int sig
) /* I - Signal number (unused) */
467 * 'check_range()' - Check to see if the current page is selected for
471 static int /* O - 1 if selected, 0 otherwise */
472 check_range(pstops_doc_t
*doc
, /* I - Document information */
473 int page
) /* I - Page number */
475 const char *range
; /* Pointer into range string */
476 int lower
, upper
; /* Lower and upper page numbers */
482 * See if we only print even or odd pages...
485 if (!strcasecmp(doc
->page_set
, "even") && (page
& 1))
488 if (!strcasecmp(doc
->page_set
, "odd") && !(page
& 1))
492 if (!doc
->page_ranges
)
493 return (1); /* No range, print all pages... */
495 for (range
= doc
->page_ranges
; *range
!= '\0';)
501 upper
= strtol(range
, (char **)&range
, 10);
505 lower
= strtol(range
, (char **)&range
, 10);
510 if (!isdigit(*range
& 255))
513 upper
= strtol(range
, (char **)&range
, 10);
519 if (page
>= lower
&& page
<= upper
)
533 * 'copy_bytes()' - Copy bytes from the input file to stdout...
537 copy_bytes(cups_file_t
*fp
, /* I - File to read from */
538 off_t offset
, /* I - Offset to page data */
539 size_t length
) /* I - Length of page data */
541 char buffer
[8192]; /* Data buffer */
542 ssize_t nbytes
; /* Number of bytes read */
543 size_t nleft
; /* Number of bytes left/remaining */
548 if (cupsFileSeek(fp
, offset
) < 0)
551 #ifdef HAVE_LONG_LONG
552 _("ERROR: Unable to seek to offset %lld in file - %s\n"),
554 _("ERROR: Unable to seek to offset %ld in file - %s\n"),
555 #endif /* HAVE_LONG_LONG */
556 CUPS_LLCAST offset
, strerror(errno
));
560 while (nleft
> 0 || length
== 0)
562 if (nleft
> sizeof(buffer
) || length
== 0)
563 nbytes
= sizeof(buffer
);
567 if ((nbytes
= cupsFileRead(fp
, buffer
, nbytes
)) < 1)
572 fwrite(buffer
, 1, nbytes
, stdout
);
578 * 'copy_comments()' - Copy all of the comments section...
580 * This function expects "line" to be filled with a comment line.
581 * On return, "line" will contain the next line in the file, if any.
584 static ssize_t
/* O - Length of next line */
585 copy_comments(cups_file_t
*fp
, /* I - File to read from */
586 pstops_doc_t
*doc
, /* I - Document info */
587 ppd_file_t
*ppd
, /* I - PPD file */
588 char *line
, /* I - Line buffer */
589 ssize_t linelen
, /* I - Length of initial line */
590 size_t linesize
) /* I - Size of line buffer */
592 int saw_bounding_box
, /* Saw %%BoundingBox: comment? */
593 saw_for
, /* Saw %%For: comment? */
594 saw_pages
, /* Saw %%Pages: comment? */
595 saw_title
; /* Saw %%Title: comment? */
599 * Loop until we see %%EndComments or a non-comment line...
602 saw_bounding_box
= 0;
607 while (line
[0] == '%')
610 * Strip trailing whitespace...
617 if (!isspace(line
[linelen
] & 255))
620 line
[linelen
] = '\0';
627 fprintf(stderr
, "DEBUG: %s\n", line
);
630 * Pull the headers out...
633 if (!strncmp(line
, "%%Pages:", 8))
635 int pages
; /* Number of pages */
639 fputs(_("ERROR: Duplicate %%Pages: comment seen!\n"), stderr
);
643 if (Duplex
&& (pages
= atoi(line
+ 8)) > 0 && pages
<= doc
->number_up
)
646 * Since we will only be printing on a single page, disable duplexing.
650 doc
->slow_duplex
= 0;
652 if (cupsGetOption("sides", doc
->num_options
, doc
->options
))
653 doc
->num_options
= cupsAddOption("sides", "one-sided",
654 doc
->num_options
, &(doc
->options
));
656 if (cupsGetOption("Duplex", doc
->num_options
, doc
->options
))
657 doc
->num_options
= cupsAddOption("Duplex", "None",
658 doc
->num_options
, &(doc
->options
));
660 if (cupsGetOption("EFDuplex", doc
->num_options
, doc
->options
))
661 doc
->num_options
= cupsAddOption("EFDuplex", "None",
662 doc
->num_options
, &(doc
->options
));
664 if (cupsGetOption("EFDuplexing", doc
->num_options
, doc
->options
))
665 doc
->num_options
= cupsAddOption("EFDuplexing", "False",
666 doc
->num_options
, &(doc
->options
));
668 if (cupsGetOption("KD03Duplex", doc
->num_options
, doc
->options
))
669 doc
->num_options
= cupsAddOption("KD03Duplex", "None",
670 doc
->num_options
, &(doc
->options
));
672 if (cupsGetOption("JCLDuplex", doc
->num_options
, doc
->options
))
673 doc
->num_options
= cupsAddOption("JCLDuplex", "None",
674 doc
->num_options
, &(doc
->options
));
676 ppdMarkOption(ppd
, "Duplex", "None");
677 ppdMarkOption(ppd
, "EFDuplex", "None");
678 ppdMarkOption(ppd
, "EFDuplexing", "False");
679 ppdMarkOption(ppd
, "KD03Duplex", "None");
680 ppdMarkOption(ppd
, "JCLDuplex", "None");
683 else if (!strncmp(line
, "%%BoundingBox:", 14))
685 if (saw_bounding_box
)
686 fputs(_("ERROR: Duplicate %%BoundingBox: comment seen!\n"), stderr
);
687 else if (strstr(line
+ 14, "(atend)"))
690 * Do nothing for now but use the default imageable area...
693 else if (sscanf(line
+ 14, "%d%d%d%d", doc
->bounding_box
+ 0,
694 doc
->bounding_box
+ 1, doc
->bounding_box
+ 2,
695 doc
->bounding_box
+ 3) != 4)
697 fputs(_("ERROR: Bad %%BoundingBox: comment seen!\n"), stderr
);
699 doc
->bounding_box
[0] = (int)PageLeft
;
700 doc
->bounding_box
[1] = (int)PageBottom
;
701 doc
->bounding_box
[2] = (int)PageRight
;
702 doc
->bounding_box
[3] = (int)PageTop
;
705 saw_bounding_box
= 1;
707 else if (!strncmp(line
, "%%For:", 6))
710 doc_printf(doc
, "%s\n", line
);
712 else if (!strncmp(line
, "%%Title:", 8))
715 doc_printf(doc
, "%s\n", line
);
717 else if (!strncmp(line
, "%cupsRotation:", 14))
720 * Reset orientation of document?
723 int orient
= (atoi(line
+ 14) / 90) & 3;
725 if (orient
!= Orientation
)
728 * Yes, update things so that the pages come out right...
731 Orientation
= (4 - Orientation
+ orient
) & 3;
733 Orientation
= orient
;
736 else if (!strcmp(line
, "%%EndComments"))
738 linelen
= cupsFileGetLine(fp
, line
, linesize
);
741 else if (strncmp(line
, "%!", 2) && strncmp(line
, "%cups", 5))
742 doc_printf(doc
, "%s\n", line
);
744 if ((linelen
= cupsFileGetLine(fp
, line
, linesize
)) == 0)
748 if (!saw_bounding_box
)
749 fputs(_("ERROR: No %%BoundingBox: comment in header!\n"), stderr
);
752 fputs(_("ERROR: No %%Pages: comment in header!\n"), stderr
);
755 WriteTextComment("For", doc
->user
);
758 WriteTextComment("Title", doc
->title
);
760 if (doc
->copies
!= 1 && (!doc
->collate
|| !doc
->slow_collate
))
763 * Tell the document processor the copy and duplex options
764 * that are required...
767 doc_printf(doc
, "%%%%Requirements: numcopies(%d)%s%s\n", doc
->copies
,
768 doc
->collate
? " collate" : "",
769 Duplex
? " duplex" : "");
772 * Apple uses RBI comments for various non-PPD options...
775 doc_printf(doc
, "%%RBINumCopies: %d\n", doc
->copies
);
780 * Tell the document processor the duplex option that is required...
784 doc_puts(doc
, "%%Requirements: duplex\n");
787 * Apple uses RBI comments for various non-PPD options...
790 doc_puts(doc
, "%RBINumCopies: 1\n");
793 doc_puts(doc
, "%%Pages: (atend)\n");
794 doc_puts(doc
, "%%BoundingBox: (atend)\n");
795 doc_puts(doc
, "%%EndComments\n");
802 * 'copy_dsc()' - Copy a DSC-conforming document...
804 * This function expects "line" to be filled with the %!PS-Adobe comment line.
808 copy_dsc(cups_file_t
*fp
, /* I - File to read from */
809 pstops_doc_t
*doc
, /* I - Document info */
810 ppd_file_t
*ppd
, /* I - PPD file */
811 char *line
, /* I - Line buffer */
812 ssize_t linelen
, /* I - Length of initial line */
813 size_t linesize
) /* I - Size of line buffer */
815 int number
; /* Page number */
816 pstops_page_t
*pageinfo
; /* Page information */
820 * Make sure we use ESPshowpage for EPS files...
823 if (strstr(line
, "EPSF"))
825 doc
->use_ESPshowpage
= 1;
830 * Start sending the document with any commands needed...
833 fprintf(stderr
, "DEBUG: Before copy_comments - %s", line
);
834 linelen
= copy_comments(fp
, doc
, ppd
, line
, linelen
, linesize
);
837 * Now find the prolog section, if any...
840 fprintf(stderr
, "DEBUG: Before copy_prolog - %s", line
);
841 linelen
= copy_prolog(fp
, doc
, ppd
, line
, linelen
, linesize
);
844 * Then the document setup section...
847 fprintf(stderr
, "DEBUG: Before copy_setup - %s", line
);
848 linelen
= copy_setup(fp
, doc
, ppd
, line
, linelen
, linesize
);
851 * Copy until we see %%Page:...
854 while (strncmp(line
, "%%Page:", 7) && strncmp(line
, "%%Trailer", 9))
856 doc_write(doc
, line
, linelen
);
858 if ((linelen
= cupsFileGetLine(fp
, line
, linesize
)) == 0)
863 * Then process pages until we have no more...
868 fprintf(stderr
, "DEBUG: Before page loop - %s", line
);
869 while (!strncmp(line
, "%%Page:", 7))
876 if (check_range(doc
, (number
- 1) / doc
->number_up
+ 1))
878 fprintf(stderr
, "DEBUG: Copying page %d...\n", number
);
879 linelen
= copy_page(fp
, doc
, ppd
, number
, line
, linelen
, linesize
);
883 fprintf(stderr
, "DEBUG: Skipping page %d...\n", number
);
884 linelen
= skip_page(fp
, line
, linelen
, linesize
);
889 * Finish up the last page(s)...
892 if (number
&& is_not_last_page(number
) && cupsArrayLast(doc
->pages
) &&
893 check_range(doc
, (number
- 1) / doc
->number_up
+ 1))
895 pageinfo
= (pstops_page_t
*)cupsArrayLast(doc
->pages
);
897 start_nup(doc
, doc
->number_up
, 0, doc
->bounding_box
);
898 doc_puts(doc
, "showpage\n");
899 end_nup(doc
, doc
->number_up
);
901 pageinfo
->length
= cupsFileTell(doc
->temp
) - pageinfo
->offset
;
904 if (doc
->slow_duplex
&& (doc
->page
& 1))
907 * Make sure we have an even number of pages...
910 pageinfo
= add_page(doc
, "(filler)");
912 if (!doc
->slow_order
)
914 if (!ppd
|| !ppd
->num_filters
)
915 fprintf(stderr
, "PAGE: %d %d\n", doc
->page
,
916 doc
->slow_collate
? 1 : doc
->copies
);
918 printf("%%%%Page: (filler) %d\n", doc
->page
);
921 start_nup(doc
, doc
->number_up
, 0, doc
->bounding_box
);
922 doc_puts(doc
, "showpage\n");
923 end_nup(doc
, doc
->number_up
);
925 pageinfo
->length
= cupsFileTell(doc
->temp
) - pageinfo
->offset
;
929 * Make additional copies as necessary...
932 number
= doc
->slow_order
? 0 : doc
->page
;
934 if (doc
->temp
&& !JobCanceled
&& cupsArrayCount(doc
->pages
) > 0)
936 int copy
; /* Current copy */
940 * Reopen the temporary file for reading...
943 cupsFileClose(doc
->temp
);
945 doc
->temp
= cupsFileOpen(doc
->tempfile
, "r");
951 if (doc
->slow_collate
)
952 copy
= !doc
->slow_order
;
954 copy
= doc
->copies
- 1;
956 for (; copy
< doc
->copies
; copy
++)
962 * Send end-of-job stuff followed by any start-of-job stuff required
963 * for the JCL options...
966 if (number
&& doc
->emit_jcl
&& ppd
&& ppd
->jcl_end
)
969 * Send the trailer...
973 printf("%%%%Pages: %d\n", cupsArrayCount(doc
->pages
));
974 if (doc
->number_up
> 1 || doc
->fitplot
)
975 printf("%%%%BoundingBox: %.0f %.0f %.0f %.0f\n",
976 PageLeft
, PageBottom
, PageRight
, PageTop
);
978 printf("%%%%BoundingBox: %d %d %d %d\n",
979 doc
->new_bounding_box
[0], doc
->new_bounding_box
[1],
980 doc
->new_bounding_box
[2], doc
->new_bounding_box
[3]);
984 * Start a new document...
987 ppdEmitJCLEnd(ppd
, stdout
);
988 ppdEmitJCL(ppd
, stdout
, doc
->job_id
, doc
->user
, doc
->title
);
990 puts("%!PS-Adobe-3.0");
996 * Copy the prolog as needed...
1001 pageinfo
= (pstops_page_t
*)cupsArrayFirst(doc
->pages
);
1002 copy_bytes(doc
->temp
, 0, pageinfo
->offset
);
1006 * Then copy all of the pages...
1009 pageinfo
= doc
->slow_order
? (pstops_page_t
*)cupsArrayLast(doc
->pages
) :
1010 (pstops_page_t
*)cupsArrayFirst(doc
->pages
);
1019 if (!ppd
|| !ppd
->num_filters
)
1020 fprintf(stderr
, "PAGE: %d %d\n", number
,
1021 doc
->slow_collate
? 1 : doc
->copies
);
1023 if (doc
->number_up
> 1)
1025 printf("%%%%Page: (%d) %d\n", number
, number
);
1026 printf("%%%%PageBoundingBox: %.0f %.0f %.0f %.0f\n",
1027 PageLeft
, PageBottom
, PageRight
, PageTop
);
1031 printf("%%%%Page: %s %d\n", pageinfo
->label
, number
);
1032 printf("%%%%PageBoundingBox: %d %d %d %d\n",
1033 pageinfo
->bounding_box
[0], pageinfo
->bounding_box
[1],
1034 pageinfo
->bounding_box
[2], pageinfo
->bounding_box
[3]);
1037 copy_bytes(doc
->temp
, pageinfo
->offset
, pageinfo
->length
);
1039 pageinfo
= doc
->slow_order
? (pstops_page_t
*)cupsArrayPrev(doc
->pages
) :
1040 (pstops_page_t
*)cupsArrayNext(doc
->pages
);
1046 * Restore the old showpage operator as needed...
1049 if (doc
->use_ESPshowpage
)
1050 puts("userdict/showpage/ESPshowpage load put\n");
1053 * Write/copy the trailer...
1057 copy_trailer(fp
, doc
, ppd
, number
, line
, linelen
, linesize
);
1062 * 'copy_non_dsc()' - Copy a document that does not conform to the DSC...
1064 * This function expects "line" to be filled with the %! comment line.
1068 copy_non_dsc(cups_file_t
*fp
, /* I - File to read from */
1069 pstops_doc_t
*doc
, /* I - Document info */
1070 ppd_file_t
*ppd
, /* I - PPD file */
1071 char *line
, /* I - Line buffer */
1072 ssize_t linelen
, /* I - Length of initial line */
1073 size_t linesize
) /* I - Size of line buffer */
1075 int copy
; /* Current copy */
1076 char buffer
[8192]; /* Copy buffer */
1077 int bytes
; /* Number of bytes copied */
1081 * First let the user know that they are attempting to print a file
1082 * that may not print correctly...
1085 fputs(_("WARNING: This document does not conform to the Adobe Document "
1086 "Structuring Conventions and may not print correctly!\n"), stderr
);
1089 * Then write a standard DSC comment section...
1092 printf("%%%%BoundingBox: %.0f %.0f %.0f %.0f\n", PageLeft
, PageBottom
,
1093 PageRight
, PageTop
);
1095 if (doc
->slow_collate
&& doc
->copies
> 1)
1096 printf("%%%%Pages: %d\n", doc
->copies
);
1100 WriteTextComment("For", doc
->user
);
1101 WriteTextComment("Title", doc
->title
);
1103 if (doc
->copies
!= 1 && (!doc
->collate
|| !doc
->slow_collate
))
1106 * Tell the document processor the copy and duplex options
1107 * that are required...
1110 printf("%%%%Requirements: numcopies(%d)%s%s\n", doc
->copies
,
1111 doc
->collate
? " collate" : "",
1112 Duplex
? " duplex" : "");
1115 * Apple uses RBI comments for various non-PPD options...
1118 printf("%%RBINumCopies: %d\n", doc
->copies
);
1123 * Tell the document processor the duplex option that is required...
1127 puts("%%Requirements: duplex");
1130 * Apple uses RBI comments for various non-PPD options...
1133 puts("%RBINumCopies: 1");
1136 puts("%%EndComments");
1139 * Then the prolog...
1142 puts("%%BeginProlog");
1144 do_prolog(doc
, ppd
);
1146 puts("%%EndProlog");
1149 * Then the setup section...
1152 puts("%%BeginSetup");
1159 * Finally, embed a copy of the file inside a %%Page...
1162 if (!ppd
|| !ppd
->num_filters
)
1163 fprintf(stderr
, "PAGE: 1 %d\n", doc
->temp
? 1 : doc
->copies
);
1165 puts("%%Page: 1 1");
1166 puts("%%BeginPageSetup");
1167 ppdEmit(ppd
, stdout
, PPD_ORDER_PAGE
);
1168 puts("%%EndPageSetup");
1169 puts("%%BeginDocument: nondsc");
1171 fwrite(line
, linelen
, 1, stdout
);
1174 cupsFileWrite(doc
->temp
, line
, linelen
);
1176 while ((bytes
= cupsFileRead(fp
, buffer
, sizeof(buffer
))) > 0)
1178 fwrite(buffer
, 1, bytes
, stdout
);
1181 cupsFileWrite(doc
->temp
, buffer
, bytes
);
1184 puts("%%EndDocument");
1186 if (doc
->use_ESPshowpage
)
1188 WriteLabels(Orientation
);
1189 puts("ESPshowpage");
1192 if (doc
->temp
&& !JobCanceled
)
1195 * Reopen the temporary file for reading...
1198 cupsFileClose(doc
->temp
);
1200 doc
->temp
= cupsFileOpen(doc
->tempfile
, "r");
1203 * Make the additional copies as needed...
1206 for (copy
= 1; copy
< doc
->copies
; copy
++)
1211 if (!ppd
|| !ppd
->num_filters
)
1212 fputs("PAGE: 1 1\n", stderr
);
1214 printf("%%%%Page: %d %d\n", copy
+ 1, copy
+ 1);
1215 puts("%%BeginPageSetup");
1216 ppdEmit(ppd
, stdout
, PPD_ORDER_PAGE
);
1217 puts("%%EndPageSetup");
1218 puts("%%BeginDocument: nondsc");
1220 copy_bytes(doc
->temp
, 0, 0);
1222 puts("%%EndDocument");
1224 if (doc
->use_ESPshowpage
)
1226 WriteLabels(Orientation
);
1227 puts("ESPshowpage");
1233 * Restore the old showpage operator as needed...
1236 if (doc
->use_ESPshowpage
)
1237 puts("userdict/showpage/ESPshowpage load put\n");
1242 * 'copy_page()' - Copy a page description...
1244 * This function expects "line" to be filled with a %%Page comment line.
1245 * On return, "line" will contain the next line in the file, if any.
1248 static ssize_t
/* O - Length of next line */
1249 copy_page(cups_file_t
*fp
, /* I - File to read from */
1250 pstops_doc_t
*doc
, /* I - Document info */
1251 ppd_file_t
*ppd
, /* I - PPD file */
1252 int number
, /* I - Current page number */
1253 char *line
, /* I - Line buffer */
1254 ssize_t linelen
, /* I - Length of initial line */
1255 size_t linesize
) /* I - Size of line buffer */
1257 char label
[256], /* Page label string */
1258 *ptr
; /* Pointer into line */
1259 int level
; /* Embedded document level */
1260 pstops_page_t
*pageinfo
; /* Page information */
1261 int first_page
; /* First page on N-up output? */
1262 int has_page_setup
; /* Does the page have %%Begin/EndPageSetup? */
1263 int bounding_box
[4]; /* PageBoundingBox */
1267 * Get the page label for this page...
1270 first_page
= is_first_page(number
);
1272 if (!parse_text(line
+ 7, &ptr
, label
, sizeof(label
)))
1274 fputs(_("ERROR: Bad %%Page: comment in file!\n"), stderr
);
1278 else if (strtol(ptr
, &ptr
, 10) == LONG_MAX
|| !isspace(*ptr
& 255))
1280 fputs(_("ERROR: Bad %%Page: comment in file!\n"), stderr
);
1285 * Create or update the current output page...
1289 pageinfo
= add_page(doc
, label
);
1291 pageinfo
= (pstops_page_t
*)cupsArrayLast(doc
->pages
);
1294 * Handle first page override...
1297 if (doc
->ap_input_slot
|| doc
->ap_manual_feed
)
1302 * First page/sheet gets AP_FIRSTPAGE_* options...
1305 pageinfo
->num_options
= cupsAddOption("InputSlot", doc
->ap_input_slot
,
1306 pageinfo
->num_options
,
1307 &(pageinfo
->options
));
1308 pageinfo
->num_options
= cupsAddOption("ManualFeed",
1309 doc
->ap_input_slot
? "False" :
1310 doc
->ap_manual_feed
,
1311 pageinfo
->num_options
,
1312 &(pageinfo
->options
));
1314 else if (doc
->page
== (Duplex
+ 2))
1317 * Second page/sheet gets default options...
1320 pageinfo
->num_options
= cupsAddOption("InputSlot", doc
->input_slot
,
1321 pageinfo
->num_options
,
1322 &(pageinfo
->options
));
1323 pageinfo
->num_options
= cupsAddOption("ManualFeed",
1324 doc
->input_slot
? "False" :
1326 pageinfo
->num_options
,
1327 &(pageinfo
->options
));
1332 * Scan comments until we see something other than %%Page*: or
1336 memcpy(bounding_box
, doc
->bounding_box
, sizeof(bounding_box
));
1338 while ((linelen
= cupsFileGetLine(fp
, line
, linesize
)) > 0)
1340 if (!strncmp(line
, "%%PageBoundingBox:", 18))
1343 * %%PageBoundingBox: llx lly urx ury
1346 if (sscanf(line
+ 18, "%d%d%d%d", bounding_box
+ 0,
1347 bounding_box
+ 1, bounding_box
+ 2,
1348 bounding_box
+ 3) != 4)
1350 fputs(_("ERROR: Bad %%PageBoundingBox: comment in file!\n"), stderr
);
1351 memcpy(bounding_box
, doc
->bounding_box
,
1352 sizeof(bounding_box
));
1354 else if (doc
->number_up
== 1 && !doc
->fitplot
&& Orientation
)
1356 int temp_bbox
[4]; /* Temporary bounding box */
1359 memcpy(temp_bbox
, bounding_box
, sizeof(temp_bbox
));
1361 fprintf(stderr
, "DEBUG: Orientation = %d\n", Orientation
);
1362 fprintf(stderr
, "DEBUG: original bounding_box = [ %d %d %d %d ]\n",
1363 bounding_box
[0], bounding_box
[1],
1364 bounding_box
[2], bounding_box
[3]);
1365 fprintf(stderr
, "DEBUG: PageWidth = %.1f, PageLength = %.1f\n",
1366 PageWidth
, PageLength
);
1368 switch (Orientation
)
1370 case 1 : /* Landscape */
1371 bounding_box
[0] = PageLength
- temp_bbox
[3];
1372 bounding_box
[1] = temp_bbox
[0];
1373 bounding_box
[2] = PageLength
- temp_bbox
[1];
1374 bounding_box
[3] = temp_bbox
[2];
1377 case 2 : /* Reverse Portrait */
1378 bounding_box
[0] = PageWidth
- temp_bbox
[2];
1379 bounding_box
[1] = PageLength
- temp_bbox
[3];
1380 bounding_box
[2] = PageWidth
- temp_bbox
[0];
1381 bounding_box
[3] = PageLength
- temp_bbox
[1];
1384 case 3 : /* Reverse Landscape */
1385 bounding_box
[0] = temp_bbox
[1];
1386 bounding_box
[1] = PageWidth
- temp_bbox
[2];
1387 bounding_box
[2] = temp_bbox
[3];
1388 bounding_box
[3] = PageWidth
- temp_bbox
[0];
1392 fprintf(stderr
, "DEBUG: updated bounding_box = [ %d %d %d %d ]\n",
1393 bounding_box
[0], bounding_box
[1],
1394 bounding_box
[2], bounding_box
[3]);
1398 else if (!strncmp(line
, "%%PageCustomColors:", 19) ||
1399 !strncmp(line
, "%%PageMedia:", 12) ||
1400 !strncmp(line
, "%%PageOrientation:", 18) ||
1401 !strncmp(line
, "%%PageProcessColors:", 20) ||
1402 !strncmp(line
, "%%PageRequirements:", 18) ||
1403 !strncmp(line
, "%%PageResources:", 16))
1410 else if (!strncmp(line
, "%%PageCustomColors:", 19))
1413 * %%PageCustomColors: ...
1416 else if (!strncmp(line
, "%%PageMedia:", 12))
1422 else if (!strncmp(line
, "%%PageOrientation:", 18))
1425 * %%PageOrientation: ...
1428 else if (!strncmp(line
, "%%PageProcessColors:", 20))
1431 * %%PageProcessColors: ...
1434 else if (!strncmp(line
, "%%PageRequirements:", 18))
1437 * %%PageRequirements: ...
1440 else if (!strncmp(line
, "%%PageResources:", 16))
1443 * %%PageResources: ...
1446 else if (!strncmp(line
, "%%IncludeFeature:", 17))
1449 * %%IncludeFeature: *MainKeyword OptionKeyword
1452 if (doc
->number_up
== 1 &&!doc
->fitplot
)
1453 pageinfo
->num_options
= include_feature(ppd
, line
,
1454 pageinfo
->num_options
,
1455 &(pageinfo
->options
));
1457 else if (strncmp(line
, "%%Include", 9))
1461 if (doc
->number_up
== 1)
1464 * Update the document's composite and page bounding box...
1467 memcpy(pageinfo
->bounding_box
, bounding_box
,
1468 sizeof(pageinfo
->bounding_box
));
1470 if (bounding_box
[0] < doc
->new_bounding_box
[0])
1471 doc
->new_bounding_box
[0] = bounding_box
[0];
1472 if (bounding_box
[1] < doc
->new_bounding_box
[1])
1473 doc
->new_bounding_box
[1] = bounding_box
[1];
1474 if (bounding_box
[2] > doc
->new_bounding_box
[2])
1475 doc
->new_bounding_box
[2] = bounding_box
[2];
1476 if (bounding_box
[3] > doc
->new_bounding_box
[3])
1477 doc
->new_bounding_box
[3] = bounding_box
[3];
1481 * Output the page header as needed...
1484 if (!doc
->slow_order
&& first_page
)
1486 if (!ppd
|| !ppd
->num_filters
)
1487 fprintf(stderr
, "PAGE: %d %d\n", doc
->page
,
1488 doc
->slow_collate
? 1 : doc
->copies
);
1490 if (doc
->number_up
> 1)
1492 printf("%%%%Page: (%d) %d\n", doc
->page
, doc
->page
);
1493 printf("%%%%PageBoundingBox: %.0f %.0f %.0f %.0f\n",
1494 PageLeft
, PageBottom
, PageRight
, PageTop
);
1498 printf("%%%%Page: %s %d\n", pageinfo
->label
, doc
->page
);
1499 printf("%%%%PageBoundingBox: %d %d %d %d\n",
1500 pageinfo
->bounding_box
[0], pageinfo
->bounding_box
[1],
1501 pageinfo
->bounding_box
[2], pageinfo
->bounding_box
[3]);
1506 * Copy any page setup commands...
1510 doc_puts(doc
, "%%BeginPageSetup\n");
1512 if ((has_page_setup
= !strncmp(line
, "%%BeginPageSetup", 16)) != 0)
1514 int feature
= 0; /* In a Begin/EndFeature block? */
1516 while ((linelen
= cupsFileGetLine(fp
, line
, linesize
)) > 0)
1518 if (!strncmp(line
, "%%EndPageSetup", 14))
1520 else if (!strncmp(line
, "%%BeginFeature:", 15))
1524 if (doc
->number_up
> 1 || doc
->fitplot
)
1527 else if (!strncmp(line
, "%%EndFeature", 12))
1531 if (doc
->number_up
> 1 || doc
->fitplot
)
1534 else if (!strncmp(line
, "%%IncludeFeature:", 17))
1536 pageinfo
->num_options
= include_feature(ppd
, line
,
1537 pageinfo
->num_options
,
1538 &(pageinfo
->options
));
1541 else if (!strncmp(line
, "%%Include", 9))
1544 if (line
[0] != '%' && !feature
)
1547 if (!feature
|| (doc
->number_up
== 1 && !doc
->fitplot
))
1548 doc_write(doc
, line
, linelen
);
1552 * Skip %%EndPageSetup...
1555 if (linelen
> 0 && !strncmp(line
, "%%EndPageSetup", 14))
1557 linelen
= cupsFileGetLine(fp
, line
, linesize
);
1564 char *page_setup
; /* PageSetup commands to send */
1567 if (pageinfo
->num_options
> 0)
1569 int i
; /* Looping var */
1570 ppd_option_t
*option
; /* PPD option */
1571 int min_order
; /* Minimum OrderDependency value */
1572 char *doc_setup
, /* DocumentSetup commands to send */
1573 *any_setup
; /* AnySetup commands to send */
1577 * Yes, figure out the minimum OrderDependency value...
1580 if ((option
= ppdFindOption(ppd
, "PageRegion")) != NULL
)
1581 min_order
= option
->order
;
1585 for (i
= 0; i
< pageinfo
->num_options
; i
++)
1586 if ((option
= ppdFindOption(ppd
, pageinfo
->options
[i
].name
)) != NULL
&&
1587 option
->order
< min_order
)
1588 min_order
= option
->order
;
1591 * Mark and extract them...
1594 cupsMarkOptions(ppd
, pageinfo
->num_options
, pageinfo
->options
);
1596 doc_setup
= ppdEmitString(ppd
, PPD_ORDER_DOCUMENT
, min_order
);
1597 any_setup
= ppdEmitString(ppd
, PPD_ORDER_ANY
, min_order
);
1600 * Then send them out...
1605 doc_puts(doc
, doc_setup
);
1611 doc_puts(doc
, any_setup
);
1617 * Output commands for the current page...
1620 page_setup
= ppdEmitString(ppd
, PPD_ORDER_PAGE
, 0);
1624 doc_puts(doc
, page_setup
);
1630 * Prep for the start of the page description...
1633 start_nup(doc
, number
, 1, bounding_box
);
1636 * Finish the PageSetup section as needed...
1641 int feature
= 0; /* In a Begin/EndFeature block? */
1643 doc_write(doc
, line
, linelen
);
1645 while ((linelen
= cupsFileGetLine(fp
, line
, linesize
)) > 0)
1647 if (!strncmp(line
, "%%EndPageSetup", 14))
1649 else if (!strncmp(line
, "%%BeginFeature:", 15))
1653 if (doc
->number_up
> 1 || doc
->fitplot
)
1656 else if (!strncmp(line
, "%%EndFeature", 12))
1660 if (doc
->number_up
> 1 || doc
->fitplot
)
1663 else if (!strncmp(line
, "%%Include", 9))
1666 if (!feature
|| (doc
->number_up
== 1 && !doc
->fitplot
))
1667 doc_write(doc
, line
, linelen
);
1671 * Skip %%EndPageSetup...
1674 if (linelen
> 0 && !strncmp(line
, "%%EndPageSetup", 14))
1675 linelen
= cupsFileGetLine(fp
, line
, linesize
);
1679 doc_puts(doc
, "%%EndPageSetup\n");
1682 * Read the rest of the page description...
1690 (!strncmp(line
, "%%Page:", 7) ||
1691 !strncmp(line
, "%%Trailer", 9) ||
1692 !strncmp(line
, "%%EOF", 5)))
1694 else if (!strncmp(line
, "%%BeginDocument", 15) ||
1695 !strncmp(line
, "%ADO_BeginApplication", 21))
1697 doc_write(doc
, line
, linelen
);
1701 else if ((!strncmp(line
, "%%EndDocument", 13) ||
1702 !strncmp(line
, "%ADO_EndApplication", 19)) && level
> 0)
1704 doc_write(doc
, line
, linelen
);
1708 else if (!strncmp(line
, "%%BeginBinary:", 14) ||
1709 (!strncmp(line
, "%%BeginData:", 12) &&
1710 !strstr(line
, "ASCII") && !strstr(line
, "Hex")))
1713 * Copy binary data...
1716 int bytes
; /* Bytes of data */
1719 doc_write(doc
, line
, linelen
);
1721 bytes
= atoi(strchr(line
, ':') + 1);
1725 if (bytes
> linesize
)
1726 linelen
= cupsFileRead(fp
, line
, linesize
);
1728 linelen
= cupsFileRead(fp
, line
, bytes
);
1733 perror("ERROR: Early end-of-file while reading binary data");
1737 doc_write(doc
, line
, linelen
);
1743 doc_write(doc
, line
, linelen
);
1745 while ((linelen
= cupsFileGetLine(fp
, line
, linesize
)) > 0);
1748 * Finish up this page and return...
1751 end_nup(doc
, number
);
1753 pageinfo
->length
= cupsFileTell(doc
->temp
) - pageinfo
->offset
;
1760 * 'copy_prolog()' - Copy the document prolog section...
1762 * This function expects "line" to be filled with a %%BeginProlog comment line.
1763 * On return, "line" will contain the next line in the file, if any.
1766 static ssize_t
/* O - Length of next line */
1767 copy_prolog(cups_file_t
*fp
, /* I - File to read from */
1768 pstops_doc_t
*doc
, /* I - Document info */
1769 ppd_file_t
*ppd
, /* I - PPD file */
1770 char *line
, /* I - Line buffer */
1771 ssize_t linelen
, /* I - Length of initial line */
1772 size_t linesize
) /* I - Size of line buffer */
1774 while (strncmp(line
, "%%BeginProlog", 13))
1776 if (!strncmp(line
, "%%BeginSetup", 12) || !strncmp(line
, "%%Page:", 7))
1779 doc_write(doc
, line
, linelen
);
1781 if ((linelen
= cupsFileGetLine(fp
, line
, linesize
)) == 0)
1785 doc_puts(doc
, "%%BeginProlog\n");
1787 do_prolog(doc
, ppd
);
1789 if (!strncmp(line
, "%%BeginProlog", 13))
1791 while ((linelen
= cupsFileGetLine(fp
, line
, linesize
)) > 0)
1793 if (!strncmp(line
, "%%EndProlog", 11) ||
1794 !strncmp(line
, "%%BeginSetup", 12) ||
1795 !strncmp(line
, "%%Page:", 7))
1798 doc_write(doc
, line
, linelen
);
1801 if (!strncmp(line
, "%%EndProlog", 11))
1802 linelen
= cupsFileGetLine(fp
, line
, linesize
);
1804 fputs(_("ERROR: Missing %%EndProlog!\n"), stderr
);
1807 doc_puts(doc
, "%%EndProlog\n");
1814 * 'copy_setup()' - Copy the document setup section...
1816 * This function expects "line" to be filled with a %%BeginSetup comment line.
1817 * On return, "line" will contain the next line in the file, if any.
1820 static ssize_t
/* O - Length of next line */
1821 copy_setup(cups_file_t
*fp
, /* I - File to read from */
1822 pstops_doc_t
*doc
, /* I - Document info */
1823 ppd_file_t
*ppd
, /* I - PPD file */
1824 char *line
, /* I - Line buffer */
1825 ssize_t linelen
, /* I - Length of initial line */
1826 size_t linesize
) /* I - Size of line buffer */
1828 while (strncmp(line
, "%%BeginSetup", 12))
1830 if (!strncmp(line
, "%%Page:", 7))
1833 doc_write(doc
, line
, linelen
);
1835 if ((linelen
= cupsFileGetLine(fp
, line
, linesize
)) == 0)
1839 doc_puts(doc
, "%%BeginSetup\n");
1841 if (!strncmp(line
, "%%BeginSetup", 12))
1843 while (strncmp(line
, "%%EndSetup", 10))
1845 if (!strncmp(line
, "%%Page:", 7))
1847 else if (!strncmp(line
, "%%IncludeFeature:", 17))
1850 * %%IncludeFeature: *MainKeyword OptionKeyword
1853 if (doc
->number_up
== 1 && !doc
->fitplot
)
1854 doc
->num_options
= include_feature(ppd
, line
, doc
->num_options
,
1857 else if (strncmp(line
, "%%BeginSetup", 12))
1858 doc_write(doc
, line
, linelen
);
1860 if ((linelen
= cupsFileGetLine(fp
, line
, linesize
)) == 0)
1864 if (!strncmp(line
, "%%EndSetup", 10))
1865 linelen
= cupsFileGetLine(fp
, line
, linesize
);
1867 fputs(_("ERROR: Missing %%EndSetup!\n"), stderr
);
1872 doc_puts(doc
, "%%EndSetup\n");
1879 * 'copy_trailer()' - Copy the document trailer...
1881 * This function expects "line" to be filled with a %%Trailer comment line.
1882 * On return, "line" will contain the next line in the file, if any.
1885 static ssize_t
/* O - Length of next line */
1886 copy_trailer(cups_file_t
*fp
, /* I - File to read from */
1887 pstops_doc_t
*doc
, /* I - Document info */
1888 ppd_file_t
*ppd
, /* I - PPD file */
1889 int number
, /* I - Number of pages */
1890 char *line
, /* I - Line buffer */
1891 ssize_t linelen
, /* I - Length of initial line */
1892 size_t linesize
) /* I - Size of line buffer */
1895 * Write the trailer comments...
1902 if (!strncmp(line
, "%%EOF", 5))
1904 else if (strncmp(line
, "%%Trailer", 9) &&
1905 strncmp(line
, "%%Pages:", 8) &&
1906 strncmp(line
, "%%BoundingBox:", 14))
1907 fwrite(line
, 1, linelen
, stdout
);
1909 linelen
= cupsFileGetLine(fp
, line
, linesize
);
1912 fprintf(stderr
, "DEBUG: Wrote %d pages...\n", number
);
1914 printf("%%%%Pages: %d\n", number
);
1915 if (doc
->number_up
> 1 || doc
->fitplot
)
1916 printf("%%%%BoundingBox: %.0f %.0f %.0f %.0f\n",
1917 PageLeft
, PageBottom
, PageRight
, PageTop
);
1919 printf("%%%%BoundingBox: %d %d %d %d\n",
1920 doc
->new_bounding_box
[0], doc
->new_bounding_box
[1],
1921 doc
->new_bounding_box
[2], doc
->new_bounding_box
[3]);
1928 * 'do_prolog()' - Send the necessary document prolog commands...
1932 do_prolog(pstops_doc_t
*doc
, /* I - Document information */
1933 ppd_file_t
*ppd
) /* I - PPD file */
1935 char *ps
; /* PS commands */
1939 * Send the document prolog commands...
1942 if (ppd
&& ppd
->patches
)
1944 doc_puts(doc
, "%%BeginFeature: *JobPatchFile 1\n");
1945 doc_puts(doc
, ppd
->patches
);
1946 doc_puts(doc
, "\n%%EndFeature\n");
1949 if ((ps
= ppdEmitString(ppd
, PPD_ORDER_PROLOG
, 0.0)) != NULL
)
1956 * Define ESPshowpage here so that applications that define their
1957 * own procedure to do a showpage pick it up...
1960 if (doc
->use_ESPshowpage
)
1961 doc_puts(doc
, "userdict/ESPshowpage/showpage load put\n"
1962 "userdict/showpage{}put\n");
1967 * 'do_setup()' - Send the necessary document setup commands...
1971 do_setup(pstops_doc_t
*doc
, /* I - Document information */
1972 ppd_file_t
*ppd
) /* I - PPD file */
1974 char *ps
; /* PS commands */
1978 * Disable CTRL-D so that embedded files don't cause printing
1982 doc_puts(doc
, "% Disable CTRL-D as an end-of-file marker...\n");
1983 doc_puts(doc
, "userdict dup(\\004)cvn{}put (\\004\\004)cvn{}put\n");
1986 * Mark any options from %%IncludeFeature: comments...
1989 cupsMarkOptions(ppd
, doc
->num_options
, doc
->options
);
1992 * Send all the printer-specific setup commands...
1995 if ((ps
= ppdEmitString(ppd
, PPD_ORDER_DOCUMENT
, 0.0)) != NULL
)
2001 if ((ps
= ppdEmitString(ppd
, PPD_ORDER_ANY
, 0.0)) != NULL
)
2008 * Set the number of copies for the job...
2011 if (doc
->copies
!= 1 && (!doc
->collate
|| !doc
->slow_collate
))
2013 doc_printf(doc
, "%%RBIBeginNonPPDFeature: *NumCopies %d\n", doc
->copies
);
2015 "%d/languagelevel where{pop languagelevel 2 ge}{false}ifelse\n"
2016 "{1 dict begin/NumCopies exch def currentdict end "
2018 "{userdict/#copies 3 -1 roll put}ifelse\n", doc
->copies
);
2019 doc_puts(doc
, "%RBIEndNonPPDFeature\n");
2023 * If we are doing N-up printing, disable setpagedevice...
2026 if (doc
->number_up
> 1)
2027 doc_puts(doc
, "userdict/setpagedevice{pop}bind put\n");
2030 * Changes to the transfer function must be made AFTER any
2031 * setpagedevice code...
2034 if (doc
->gamma
!= 1.0f
|| doc
->brightness
!= 1.0f
)
2035 doc_printf(doc
, "{ neg 1 add dup 0 lt { pop 1 } { %.3f exp neg 1 add } "
2036 "ifelse %.3f mul } bind settransfer\n",
2037 doc
->gamma
, doc
->brightness
);
2040 * Make sure we have rectclip and rectstroke procedures of some sort...
2044 "% x y w h ESPrc - Clip to a rectangle.\n"
2045 "userdict/ESPrc/rectclip where{pop/rectclip load}\n"
2046 "{{newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto\n"
2047 "neg 0 rlineto closepath clip newpath}bind}ifelse put\n");
2050 "% x y w h ESPrf - Fill a rectangle.\n"
2051 "userdict/ESPrf/rectfill where{pop/rectfill load}\n"
2052 "{{gsave newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto\n"
2053 "neg 0 rlineto closepath fill grestore}bind}ifelse put\n");
2056 "% x y w h ESPrs - Stroke a rectangle.\n"
2057 "userdict/ESPrs/rectstroke where{pop/rectstroke load}\n"
2058 "{{gsave newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto\n"
2059 "neg 0 rlineto closepath stroke grestore}bind}ifelse put\n");
2062 * Write the page and label prologs...
2065 if (doc
->number_up
== 2 || doc
->number_up
== 6)
2068 * For 2- and 6-up output, rotate the labels to match the orientation
2072 if (Orientation
& 1)
2073 write_label_prolog(doc
, doc
->page_label
, PageBottom
,
2074 PageWidth
- PageLength
+ PageTop
, PageLength
);
2076 write_label_prolog(doc
, doc
->page_label
, PageLeft
, PageRight
,
2080 write_label_prolog(doc
, doc
->page_label
, PageBottom
, PageTop
, PageWidth
);
2085 * 'doc_printf()' - Send a formatted string to stdout and/or the temp file.
2087 * This function should be used for all page-level output that is affected
2088 * by ordering, collation, etc.
2092 doc_printf(pstops_doc_t
*doc
, /* I - Document information */
2093 const char *format
, /* I - Printf-style format string */
2094 ...) /* I - Additional arguments as needed */
2096 va_list ap
; /* Pointer to arguments */
2097 char buffer
[1024]; /* Output buffer */
2098 size_t bytes
; /* Number of bytes to write */
2101 va_start(ap
, format
);
2102 bytes
= vsnprintf(buffer
, sizeof(buffer
), format
, ap
);
2105 if (bytes
> sizeof(buffer
))
2108 _("ERROR: doc_printf overflow (%d bytes) detected, aborting!\n"),
2113 doc_write(doc
, buffer
, bytes
);
2118 * 'doc_puts()' - Send a nul-terminated string to stdout and/or the temp file.
2120 * This function should be used for all page-level output that is affected
2121 * by ordering, collation, etc.
2125 doc_puts(pstops_doc_t
*doc
, /* I - Document information */
2126 const char *s
) /* I - String to send */
2128 doc_write(doc
, s
, strlen(s
));
2133 * 'doc_write()' - Send data to stdout and/or the temp file.
2137 doc_write(pstops_doc_t
*doc
, /* I - Document information */
2138 const char *s
, /* I - Data to send */
2139 size_t len
) /* I - Number of bytes to send */
2141 if (!doc
->slow_order
)
2142 fwrite(s
, 1, len
, stdout
);
2145 cupsFileWrite(doc
->temp
, s
, len
);
2150 * 'end_nup()' - End processing for N-up printing...
2154 end_nup(pstops_doc_t
*doc
, /* I - Document information */
2155 int number
) /* I - Page number */
2157 if (doc
->number_up
> 1)
2158 doc_puts(doc
, "userdict/ESPsave get restore\n");
2160 switch (doc
->number_up
)
2163 if (doc
->use_ESPshowpage
)
2165 write_labels(doc
, Orientation
);
2166 doc_puts(doc
, "ESPshowpage\n");
2172 if (is_last_page(number
) && doc
->use_ESPshowpage
)
2174 if (Orientation
& 1)
2177 * Rotate the labels back to portrait...
2180 write_labels(doc
, Orientation
- 1);
2182 else if (Orientation
== 0)
2185 * Rotate the labels to landscape...
2188 write_labels(doc
, doc
->normal_landscape
? 1 : 3);
2193 * Rotate the labels to landscape...
2196 write_labels(doc
, doc
->normal_landscape
? 3 : 1);
2199 doc_puts(doc
, "ESPshowpage\n");
2204 if (is_last_page(number
) && doc
->use_ESPshowpage
)
2206 write_labels(doc
, Orientation
);
2207 doc_puts(doc
, "ESPshowpage\n");
2217 * 'include_feature()' - Include a printer option/feature command.
2220 static int /* O - New number of options */
2222 ppd_file_t
*ppd
, /* I - PPD file */
2223 const char *line
, /* I - DSC line */
2224 int num_options
, /* I - Number of options */
2225 cups_option_t
**options
) /* IO - Options */
2227 char name
[255], /* Option name */
2228 value
[255]; /* Option value */
2229 ppd_option_t
*option
; /* Option in file */
2233 * Get the "%%IncludeFeature: *Keyword OptionKeyword" values...
2236 if (sscanf(line
+ 17, "%254s%254s", name
, value
) != 2)
2238 fputs(_("ERROR: Bad %%IncludeFeature: comment!\n"), stderr
);
2239 return (num_options
);
2243 * Find the option and choice...
2246 if ((option
= ppdFindOption(ppd
, name
+ 1)) == NULL
)
2248 fprintf(stderr
, _("WARNING: Unknown option \"%s\"!\n"), name
+ 1);
2249 return (num_options
);
2252 if (option
->section
== PPD_ORDER_EXIT
||
2253 option
->section
== PPD_ORDER_JCL
)
2255 fprintf(stderr
, _("WARNING: Option \"%s\" cannot be included via "
2256 "IncludeFeature!\n"), name
+ 1);
2257 return (num_options
);
2260 if (!ppdFindChoice(option
, value
))
2262 fprintf(stderr
, _("WARNING: Unknown choice \"%s\" for option \"%s\"!\n"),
2264 return (num_options
);
2268 * Add the option to the option array and return...
2271 return (cupsAddOption(name
+ 1, value
, num_options
, options
));
2276 * 'parse_text()' - Parse a text value in a comment...
2278 * This function parses a DSC text value as defined on page 36 of the
2279 * DSC specification. Text values are either surrounded by parenthesis
2280 * or whitespace-delimited.
2282 * The value returned is the literal characters for the entire text
2283 * string, including any parenthesis and escape characters.
2286 static char * /* O - Value or NULL on error */
2287 parse_text(const char *start
, /* I - Start of text value */
2288 char **end
, /* O - End of text value */
2289 char *buffer
, /* I - Buffer */
2290 size_t bufsize
) /* I - Size of buffer */
2292 char *bufptr
, /* Pointer in buffer */
2293 *bufend
; /* End of buffer */
2294 int level
; /* Parenthesis level */
2298 * Skip leading whitespace...
2301 while (isspace(*start
& 255))
2305 * Then copy the value...
2310 bufend
= buffer
+ bufsize
- 1;
2312 while (bufptr
< bufend
)
2314 if (isspace(*start
& 255) && !level
)
2321 else if (*start
== ')')
2331 else if (*start
== '\\')
2334 * Copy escaped character...
2337 int i
; /* Looping var */
2341 i
<= 3 && isdigit(start
[i
] & 255) && bufptr
< bufend
;
2342 *bufptr
++ = start
[i
], i
++);
2351 * Return the value and new pointer into the line...
2355 *end
= (char *)start
;
2357 if (bufptr
== bufend
)
2365 * 'set_pstops_options()' - Set pstops options...
2370 pstops_doc_t
*doc
, /* I - Document information */
2371 ppd_file_t
*ppd
, /* I - PPD file */
2372 char *argv
[], /* I - Command-line arguments */
2373 int num_options
, /* I - Number of options */
2374 cups_option_t
*options
) /* I - Options */
2376 const char *val
; /* Option value */
2377 int intval
; /* Integer option value */
2378 ppd_attr_t
*attr
; /* PPD attribute */
2379 ppd_option_t
*option
; /* PPD option */
2380 ppd_choice_t
*choice
; /* PPD choice */
2384 * Initialize document information structure...
2387 memset(doc
, 0, sizeof(pstops_doc_t
));
2389 doc
->job_id
= atoi(argv
[1]);
2390 doc
->user
= argv
[2];
2391 doc
->title
= argv
[3];
2392 doc
->copies
= atoi(argv
[4]);
2394 if (ppd
&& ppd
->landscape
> 0)
2395 doc
->normal_landscape
= 1;
2397 doc
->bounding_box
[0] = (int)PageLeft
;
2398 doc
->bounding_box
[1] = (int)PageBottom
;
2399 doc
->bounding_box
[2] = (int)PageRight
;
2400 doc
->bounding_box
[3] = (int)PageTop
;
2402 doc
->new_bounding_box
[0] = INT_MAX
;
2403 doc
->new_bounding_box
[1] = INT_MAX
;
2404 doc
->new_bounding_box
[2] = INT_MIN
;
2405 doc
->new_bounding_box
[3] = INT_MIN
;
2408 * AP_FIRSTPAGE_InputSlot
2411 doc
->ap_input_slot
= cupsGetOption("AP_FIRSTPAGE_InputSlot", num_options
,
2415 * AP_FIRSTPAGE_ManualFeed
2418 doc
->ap_manual_feed
= cupsGetOption("AP_FIRSTPAGE_ManualFeed", num_options
,
2425 if ((val
= cupsGetOption("brightness", num_options
, options
)) != NULL
)
2428 * Get brightness value from 10 to 1000.
2433 if (intval
< 10 || intval
> 1000)
2435 fprintf(stderr
, _("ERROR: Unsupported brightness value %s, using "
2436 "brightness=100!\n"), val
);
2437 doc
->brightness
= 1.0f
;
2440 doc
->brightness
= intval
* 0.01f
;
2443 doc
->brightness
= 1.0f
;
2446 * collate, multiple-document-handling
2449 if ((val
= cupsGetOption("multiple-document-handling", num_options
, options
)) != NULL
)
2452 * This IPP attribute is unnecessarily complicated...
2454 * single-document, separate-documents-collated-copies, and
2455 * single-document-new-sheet all require collated copies.
2457 * separate-documents-uncollated-copies allows for uncollated copies.
2460 doc
->collate
= strcasecmp(val
, "separate-documents-uncollated-copies") != 0;
2463 if ((val
= cupsGetOption("Collate", num_options
, options
)) != NULL
&&
2464 (!strcasecmp(val
, "true") ||!strcasecmp(val
, "on") ||
2465 !strcasecmp(val
, "yes")))
2472 if ((val
= cupsGetOption("emit-jcl", num_options
, options
)) != NULL
&&
2473 (!strcasecmp(val
, "false") || !strcasecmp(val
, "off") ||
2474 !strcasecmp(val
, "no") || !strcmp(val
, "0")))
2483 if ((val
= cupsGetOption("fitplot", num_options
, options
)) != NULL
&&
2484 (!strcasecmp(val
, "true") || !strcasecmp(val
, "on") ||
2485 !strcasecmp(val
, "yes")))
2492 if ((val
= cupsGetOption("gamma", num_options
, options
)) != NULL
)
2495 * Get gamma value from 1 to 10000...
2500 if (intval
< 1 || intval
> 10000)
2502 fprintf(stderr
, _("ERROR: Unsupported gamma value %s, using "
2503 "gamma=1000!\n"), val
);
2507 doc
->gamma
= intval
* 0.001f
;
2516 if ((choice
= ppdFindMarkedChoice(ppd
, "InputSlot")) != NULL
)
2517 doc
->input_slot
= choice
->choice
;
2523 if ((choice
= ppdFindMarkedChoice(ppd
, "ManualFeed")) != NULL
)
2524 doc
->manual_feed
= choice
->choice
;
2526 if ((choice
= ppdFindMarkedChoice(ppd
, "MirrorPrint")) != NULL
)
2528 val
= choice
->choice
;
2532 val
= cupsGetOption("mirror", num_options
, options
);
2534 if (val
&& (!strcasecmp(val
, "true") || !strcasecmp(val
, "on") ||
2535 !strcasecmp(val
, "yes")))
2542 if ((val
= cupsGetOption("number-up", num_options
, options
)) != NULL
)
2544 switch (intval
= atoi(val
))
2552 doc
->number_up
= intval
;
2556 _("ERROR: Unsupported number-up value %d, using "
2557 "number-up=1!\n"), intval
);
2569 if ((val
= cupsGetOption("number-up-layout", num_options
, options
)) != NULL
)
2571 if (!strcasecmp(val
, "lrtb"))
2572 doc
->number_up_layout
= PSTOPS_LAYOUT_LRTB
;
2573 else if (!strcasecmp(val
, "lrbt"))
2574 doc
->number_up_layout
= PSTOPS_LAYOUT_LRBT
;
2575 else if (!strcasecmp(val
, "rltb"))
2576 doc
->number_up_layout
= PSTOPS_LAYOUT_RLTB
;
2577 else if (!strcasecmp(val
, "rlbt"))
2578 doc
->number_up_layout
= PSTOPS_LAYOUT_RLBT
;
2579 else if (!strcasecmp(val
, "tblr"))
2580 doc
->number_up_layout
= PSTOPS_LAYOUT_TBLR
;
2581 else if (!strcasecmp(val
, "tbrl"))
2582 doc
->number_up_layout
= PSTOPS_LAYOUT_TBRL
;
2583 else if (!strcasecmp(val
, "btlr"))
2584 doc
->number_up_layout
= PSTOPS_LAYOUT_BTLR
;
2585 else if (!strcasecmp(val
, "btrl"))
2586 doc
->number_up_layout
= PSTOPS_LAYOUT_BTRL
;
2589 fprintf(stderr
, _("ERROR: Unsupported number-up-layout value %s, using "
2590 "number-up-layout=lrtb!\n"), val
);
2591 doc
->number_up_layout
= PSTOPS_LAYOUT_LRTB
;
2595 doc
->number_up_layout
= PSTOPS_LAYOUT_LRTB
;
2601 if ((val
= cupsGetOption("OutputOrder", num_options
, options
)) != NULL
)
2603 if (!strcasecmp(val
, "Reverse"))
2604 doc
->output_order
= 1;
2609 * Figure out the right default output order from the PPD file...
2612 if ((choice
= ppdFindMarkedChoice(ppd
, "OutputBin")) != NULL
&&
2613 (attr
= ppdFindAttr(ppd
, "PageStackOrder", choice
->choice
)) != NULL
&&
2615 doc
->output_order
= !strcasecmp(attr
->value
, "Reverse");
2616 else if ((attr
= ppdFindAttr(ppd
, "DefaultOutputOrder", NULL
)) != NULL
&&
2618 doc
->output_order
= !strcasecmp(attr
->value
, "Reverse");
2625 if ((val
= cupsGetOption("page-border", num_options
, options
)) != NULL
)
2627 if (!strcasecmp(val
, "none"))
2628 doc
->page_border
= PSTOPS_BORDERNONE
;
2629 else if (!strcasecmp(val
, "single"))
2630 doc
->page_border
= PSTOPS_BORDERSINGLE
;
2631 else if (!strcasecmp(val
, "single-thick"))
2632 doc
->page_border
= PSTOPS_BORDERSINGLE2
;
2633 else if (!strcasecmp(val
, "double"))
2634 doc
->page_border
= PSTOPS_BORDERDOUBLE
;
2635 else if (!strcasecmp(val
, "double-thick"))
2636 doc
->page_border
= PSTOPS_BORDERDOUBLE2
;
2639 fprintf(stderr
, _("ERROR: Unsupported page-border value %s, using "
2640 "page-border=none!\n"), val
);
2641 doc
->page_border
= PSTOPS_BORDERNONE
;
2645 doc
->page_border
= PSTOPS_BORDERNONE
;
2651 doc
->page_label
= cupsGetOption("page-label", num_options
, options
);
2657 doc
->page_ranges
= cupsGetOption("page-ranges", num_options
, options
);
2663 doc
->page_set
= cupsGetOption("page-set", num_options
, options
);
2666 * Now figure out if we have to force collated copies, etc.
2669 if (ppd
&& ppd
->manual_copies
&& Duplex
&& doc
->copies
> 1)
2672 * Force collated copies when printing a duplexed document to
2673 * a non-PS printer that doesn't do hardware copy generation.
2674 * Otherwise the copies will end up on the front/back side of
2682 * See if we have to filter the fast or slow way...
2685 if (doc
->collate
&& doc
->copies
> 1)
2688 * See if we need to manually collate the pages...
2691 doc
->slow_collate
= 1;
2693 if ((choice
= ppdFindMarkedChoice(ppd
, "Collate")) != NULL
&&
2694 !strcasecmp(choice
->choice
, "True"))
2697 * Hardware collate option is selected, see if the option is
2698 * conflicting - if not, collate in hardware. Otherwise,
2699 * turn the hardware collate option off...
2702 if ((option
= ppdFindOption(ppd
, "Collate")) != NULL
&&
2703 !option
->conflicted
)
2704 doc
->slow_collate
= 0;
2706 ppdMarkOption(ppd
, "Collate", "False");
2710 doc
->slow_collate
= 0;
2712 if (!ppdFindOption(ppd
, "OutputOrder") && doc
->output_order
)
2713 doc
->slow_order
= 1;
2715 doc
->slow_order
= 0;
2718 (doc
->slow_collate
|| doc
->slow_order
||
2719 ((attr
= ppdFindAttr(ppd
, "cupsEvenDuplex", NULL
)) != NULL
&&
2720 attr
->value
&& !strcasecmp(attr
->value
, "true"))))
2721 doc
->slow_duplex
= 1;
2723 doc
->slow_duplex
= 0;
2726 * Create a temporary file for page data if we need to filter slowly...
2729 if (doc
->slow_order
|| doc
->slow_collate
)
2731 if ((doc
->temp
= cupsTempFile2(doc
->tempfile
,
2732 sizeof(doc
->tempfile
))) == NULL
)
2734 fprintf(stderr
, _("ERROR: Unable to create temporary file: %s\n"),
2741 * Figure out if we should use ESPshowpage or not...
2744 if (doc
->page_label
|| getenv("CLASSIFICATION") || doc
->number_up
> 1 ||
2748 * Yes, use ESPshowpage...
2751 doc
->use_ESPshowpage
= 1;
2754 fprintf(stderr
, "DEBUG: slow_collate=%d, slow_duplex=%d, slow_order=%d\n",
2755 doc
->slow_collate
, doc
->slow_duplex
, doc
->slow_order
);
2760 * 'skip_page()' - Skip past a page that won't be printed...
2763 static ssize_t
/* O - Length of next line */
2764 skip_page(cups_file_t
*fp
, /* I - File to read from */
2765 char *line
, /* I - Line buffer */
2766 ssize_t linelen
, /* I - Length of initial line */
2767 size_t linesize
) /* I - Size of line buffer */
2769 int level
; /* Embedded document level */
2774 while ((linelen
= cupsFileGetLine(fp
, line
, linesize
)) > 0)
2777 (!strncmp(line
, "%%Page:", 7) || !strncmp(line
, "%%Trailer", 9)))
2779 else if (!strncmp(line
, "%%BeginDocument", 15) ||
2780 !strncmp(line
, "%ADO_BeginApplication", 21))
2782 else if ((!strncmp(line
, "%%EndDocument", 13) ||
2783 !strncmp(line
, "%ADO_EndApplication", 19)) && level
> 0)
2785 else if (!strncmp(line
, "%%BeginBinary:", 14) ||
2786 (!strncmp(line
, "%%BeginData:", 12) &&
2787 !strstr(line
, "ASCII") && !strstr(line
, "Hex")))
2790 * Skip binary data...
2793 int bytes
; /* Bytes of data */
2796 bytes
= atoi(strchr(line
, ':') + 1);
2800 if (bytes
> linesize
)
2801 linelen
= cupsFileRead(fp
, line
, linesize
);
2803 linelen
= cupsFileRead(fp
, line
, bytes
);
2808 perror("ERROR: Early end-of-file while reading binary data");
2822 * 'start_nup()' - Start processing for N-up printing...
2826 start_nup(pstops_doc_t
*doc
, /* I - Document information */
2827 int number
, /* I - Page number */
2828 int show_border
, /* I - Show the border? */
2829 const int *bounding_box
) /* I - BoundingBox value */
2831 int pos
; /* Position on page */
2832 int x
, y
; /* Relative position of subpage */
2833 float w
, l
, /* Width and length of subpage */
2834 tx
, ty
; /* Translation values for subpage */
2835 float pagew
, /* Printable width of page */
2836 pagel
; /* Printable height of page */
2837 int bboxx
, /* BoundingBox X origin */
2838 bboxy
, /* BoundingBox Y origin */
2839 bboxw
, /* BoundingBox width */
2840 bboxl
; /* BoundingBox height */
2841 float margin
= 0; /* Current margin for border */
2844 if (doc
->number_up
> 1)
2845 doc_puts(doc
, "userdict/ESPsave save put\n");
2848 doc_printf(doc
, "%.1f 0.0 translate -1 1 scale\n", PageWidth
);
2850 pos
= (number
- 1) % doc
->number_up
;
2851 pagew
= PageRight
- PageLeft
;
2852 pagel
= PageTop
- PageBottom
;
2856 bboxx
= bounding_box
[0];
2857 bboxy
= bounding_box
[1];
2858 bboxw
= bounding_box
[2] - bounding_box
[0];
2859 bboxl
= bounding_box
[3] - bounding_box
[1];
2869 fprintf(stderr
, "DEBUG: pagew = %.1f, pagel = %.1f\n", pagew
, pagel
);
2870 fprintf(stderr
, "DEBUG: bboxx = %d, bboxy = %d, bboxw = %d, bboxl = %d\n",
2871 bboxx
, bboxy
, bboxw
, bboxl
);
2872 fprintf(stderr
, "DEBUG: PageLeft = %.1f, PageRight = %.1f\n",
2873 PageLeft
, PageRight
);
2874 fprintf(stderr
, "DEBUG: PageTop = %.1f, PageBottom = %.1f\n",
2875 PageTop
, PageBottom
);
2876 fprintf(stderr
, "DEBUG: PageWidth = %.1f, PageLength = %.1f\n",
2877 PageWidth
, PageLength
);
2879 switch (Orientation
)
2881 case 1 : /* Landscape */
2882 doc_printf(doc
, "%.1f 0.0 translate 90 rotate\n", PageLength
);
2884 case 2 : /* Reverse Portrait */
2885 doc_printf(doc
, "%.1f %.1f translate 180 rotate\n", PageWidth
,
2888 case 3 : /* Reverse Landscape */
2889 doc_printf(doc
, "0.0 %.1f translate -90 rotate\n", PageWidth
);
2893 if (Duplex
&& doc
->number_up
> 1 && ((number
/ doc
->number_up
) & 1))
2894 doc_printf(doc
, "%.1f %.1f translate\n", PageWidth
- PageRight
, PageBottom
);
2895 else if (doc
->number_up
> 1 || doc
->fitplot
)
2896 doc_printf(doc
, "%.1f %.1f translate\n", PageLeft
, PageBottom
);
2898 switch (doc
->number_up
)
2904 l
= w
* bboxl
/ bboxw
;
2909 w
= l
* bboxw
/ bboxl
;
2912 tx
= 0.5 * (pagew
- w
);
2913 ty
= 0.5 * (pagel
- l
);
2915 doc_printf(doc
, "%.1f %.1f translate %.3f %.3f scale\n", tx
, ty
,
2916 w
/ bboxw
, l
/ bboxl
);
2923 if (Orientation
& 1)
2927 if (doc
->number_up_layout
& PSTOPS_LAYOUT_NEGATEY
)
2931 l
= w
* bboxl
/ bboxw
;
2933 if (l
> (pagew
* 0.5))
2936 w
= l
* bboxw
/ bboxl
;
2939 tx
= 0.5 * (pagew
* 0.5 - l
);
2940 ty
= 0.5 * (pagel
- w
);
2942 if (doc
->normal_landscape
)
2943 doc_printf(doc
, "0.0 %.1f translate -90 rotate\n", pagel
);
2945 doc_printf(doc
, "%.1f 0.0 translate 90 rotate\n", pagew
);
2947 doc_printf(doc
, "%.1f %.1f translate %.3f %.3f scale\n",
2948 ty
, tx
+ pagew
* 0.5 * x
, w
/ bboxw
, l
/ bboxl
);
2954 if (doc
->number_up_layout
& PSTOPS_LAYOUT_NEGATEX
)
2958 w
= l
* bboxw
/ bboxl
;
2960 if (w
> (pagel
* 0.5))
2963 l
= w
* bboxl
/ bboxw
;
2966 tx
= 0.5 * (pagel
* 0.5 - w
);
2967 ty
= 0.5 * (pagew
- l
);
2969 if (doc
->normal_landscape
)
2970 doc_printf(doc
, "%.1f 0.0 translate 90 rotate\n", pagew
);
2972 doc_printf(doc
, "0.0 %.1f translate -90 rotate\n", pagel
);
2974 doc_printf(doc
, "%.1f %.1f translate %.3f %.3f scale\n",
2975 tx
+ pagel
* 0.5 * x
, ty
, w
/ bboxw
, l
/ bboxl
);
2980 if (doc
->number_up_layout
& PSTOPS_LAYOUT_VERTICAL
)
2991 if (doc
->number_up_layout
& PSTOPS_LAYOUT_NEGATEX
)
2994 if (doc
->number_up_layout
& PSTOPS_LAYOUT_NEGATEY
)
2998 l
= w
* bboxl
/ bboxw
;
3000 if (l
> (pagel
* 0.5))
3003 w
= l
* bboxw
/ bboxl
;
3006 tx
= 0.5 * (pagew
* 0.5 - w
);
3007 ty
= 0.5 * (pagel
* 0.5 - l
);
3009 doc_printf(doc
, "%.1f %.1f translate %.3f %.3f scale\n",
3010 tx
+ x
* pagew
* 0.5, ty
+ y
* pagel
* 0.5,
3011 w
/ bboxw
, l
/ bboxl
);
3015 if (Orientation
& 1)
3017 if (doc
->number_up_layout
& PSTOPS_LAYOUT_VERTICAL
)
3022 if (doc
->number_up_layout
& PSTOPS_LAYOUT_NEGATEX
)
3025 if (doc
->number_up_layout
& PSTOPS_LAYOUT_NEGATEY
)
3033 if (doc
->number_up_layout
& PSTOPS_LAYOUT_NEGATEX
)
3036 if (doc
->number_up_layout
& PSTOPS_LAYOUT_NEGATEY
)
3041 l
= w
* bboxl
/ bboxw
;
3043 if (l
> (pagew
* 0.333))
3046 w
= l
* bboxw
/ bboxl
;
3049 tx
= 0.5 * (pagel
- 2 * w
);
3050 ty
= 0.5 * (pagew
- 3 * l
);
3052 if (doc
->normal_landscape
)
3053 doc_printf(doc
, "0 %.1f translate -90 rotate\n", pagel
);
3055 doc_printf(doc
, "%.1f 0 translate 90 rotate\n", pagew
);
3057 doc_printf(doc
, "%.1f %.1f translate %.3f %.3f scale\n",
3058 tx
+ x
* w
, ty
+ y
* l
, l
/ bboxl
, w
/ bboxw
);
3062 if (doc
->number_up_layout
& PSTOPS_LAYOUT_VERTICAL
)
3067 if (doc
->number_up_layout
& PSTOPS_LAYOUT_NEGATEX
)
3070 if (doc
->number_up_layout
& PSTOPS_LAYOUT_NEGATEY
)
3078 if (doc
->number_up_layout
& PSTOPS_LAYOUT_NEGATEX
)
3081 if (doc
->number_up_layout
& PSTOPS_LAYOUT_NEGATEY
)
3086 w
= l
* bboxw
/ bboxl
;
3088 if (w
> (pagel
* 0.333))
3091 l
= w
* bboxl
/ bboxw
;
3094 tx
= 0.5 * (pagel
- 3 * w
);
3095 ty
= 0.5 * (pagew
- 2 * l
);
3097 if (doc
->normal_landscape
)
3098 doc_printf(doc
, "%.1f 0 translate 90 rotate\n", pagew
);
3100 doc_printf(doc
, "0 %.1f translate -90 rotate\n", pagel
);
3102 doc_printf(doc
, "%.1f %.1f translate %.3f %.3f scale\n",
3103 tx
+ w
* x
, ty
+ l
* y
, w
/ bboxw
, l
/ bboxl
);
3109 if (doc
->number_up_layout
& PSTOPS_LAYOUT_VERTICAL
)
3120 if (doc
->number_up_layout
& PSTOPS_LAYOUT_NEGATEX
)
3123 if (doc
->number_up_layout
& PSTOPS_LAYOUT_NEGATEY
)
3127 l
= w
* bboxl
/ bboxw
;
3129 if (l
> (pagel
* 0.333))
3132 w
= l
* bboxw
/ bboxl
;
3135 tx
= 0.5 * (pagew
* 0.333 - w
);
3136 ty
= 0.5 * (pagel
* 0.333 - l
);
3138 doc_printf(doc
, "%.1f %.1f translate %.3f %.3f scale\n",
3139 tx
+ x
* pagew
* 0.333, ty
+ y
* pagel
* 0.333,
3140 w
/ bboxw
, l
/ bboxl
);
3144 if (doc
->number_up_layout
& PSTOPS_LAYOUT_VERTICAL
)
3155 if (doc
->number_up_layout
& PSTOPS_LAYOUT_NEGATEX
)
3158 if (doc
->number_up_layout
& PSTOPS_LAYOUT_NEGATEY
)
3162 l
= w
* bboxl
/ bboxw
;
3164 if (l
> (pagel
* 0.25))
3167 w
= l
* bboxw
/ bboxl
;
3170 tx
= 0.5 * (pagew
* 0.25 - w
);
3171 ty
= 0.5 * (pagel
* 0.25 - l
);
3173 doc_printf(doc
, "%.1f %.1f translate %.3f %.3f scale\n",
3174 tx
+ x
* pagew
* 0.25, ty
+ y
* pagel
* 0.25,
3175 w
/ bboxw
, l
/ bboxl
);
3180 * Draw borders as necessary...
3183 if (doc
->page_border
&& show_border
)
3185 int rects
; /* Number of border rectangles */
3186 float fscale
; /* Scaling value for points */
3189 rects
= (doc
->page_border
& PSTOPS_BORDERDOUBLE
) ? 2 : 1;
3190 fscale
= PageWidth
/ w
;
3191 margin
= 2.25 * fscale
;
3194 * Set the line width and color...
3197 doc_puts(doc
, "gsave\n");
3198 doc_printf(doc
, "%.3f setlinewidth 0 setgray newpath\n",
3199 (doc
->page_border
& PSTOPS_BORDERTHICK
) ? 0.5 * fscale
:
3203 * Draw border boxes...
3206 for (; rects
> 0; rects
--, margin
+= 2 * fscale
)
3207 if (doc
->number_up
> 1)
3208 doc_printf(doc
, "%.1f %.1f %.1f %.1f ESPrs\n",
3212 bboxl
- 2 * margin
);
3214 doc_printf(doc
, "%.1f %.1f %.1f %.1f ESPrs\n",
3216 PageBottom
+ margin
,
3217 PageRight
- PageLeft
- 2 * margin
,
3218 PageTop
- PageBottom
- 2 * margin
);
3221 * Restore pen settings...
3224 doc_puts(doc
, "grestore\n");
3230 * Offset the page by its bounding box...
3233 doc_printf(doc
, "%d %d translate\n", -bounding_box
[0],
3237 if (doc
->fitplot
|| doc
->number_up
> 1)
3240 * Clip the page to the page's bounding box...
3243 doc_printf(doc
, "%.1f %.1f %.1f %.1f ESPrc\n",
3244 bboxx
+ margin
, bboxy
+ margin
,
3245 bboxw
- 2 * margin
, bboxl
- 2 * margin
);
3251 * 'write_label_prolog()' - Write the prolog with the classification
3256 write_label_prolog(pstops_doc_t
*doc
, /* I - Document info */
3257 const char *label
, /* I - Page label */
3258 float bottom
, /* I - Bottom position in points */
3259 float top
, /* I - Top position in points */
3260 float width
) /* I - Width in points */
3262 const char *classification
; /* CLASSIFICATION environment variable */
3263 const char *ptr
; /* Temporary string pointer */
3267 * First get the current classification...
3270 if ((classification
= getenv("CLASSIFICATION")) == NULL
)
3271 classification
= "";
3272 if (strcmp(classification
, "none") == 0)
3273 classification
= "";
3276 * If there is nothing to show, bind an empty 'write labels' procedure
3280 if (!classification
[0] && (label
== NULL
|| !label
[0]))
3282 doc_puts(doc
, "userdict/ESPwl{}bind put\n");
3287 * Set the classification + page label string...
3290 doc_puts(doc
, "userdict");
3291 if (!strcmp(classification
, "confidential"))
3292 doc_puts(doc
, "/ESPpl(CONFIDENTIAL");
3293 else if (!strcmp(classification
, "classified"))
3294 doc_puts(doc
, "/ESPpl(CLASSIFIED");
3295 else if (!strcmp(classification
, "secret"))
3296 doc_puts(doc
, "/ESPpl(SECRET");
3297 else if (!strcmp(classification
, "topsecret"))
3298 doc_puts(doc
, "/ESPpl(TOP SECRET");
3299 else if (!strcmp(classification
, "unclassified"))
3300 doc_puts(doc
, "/ESPpl(UNCLASSIFIED");
3303 doc_puts(doc
, "/ESPpl(");
3305 for (ptr
= classification
; *ptr
; ptr
++)
3307 if (*ptr
< 32 || *ptr
> 126)
3308 doc_printf(doc
, "\\%03o", *ptr
);
3309 else if (*ptr
== '_')
3311 else if (*ptr
== '(' || *ptr
== ')' || *ptr
== '\\')
3312 doc_printf(doc
, "\\%c", *ptr
);
3314 doc_printf(doc
, "%c", *ptr
);
3320 if (classification
[0])
3321 doc_puts(doc
, " - ");
3324 * Quote the label string as needed...
3327 for (ptr
= label
; *ptr
; ptr
++)
3329 if (*ptr
< 32 || *ptr
> 126)
3330 doc_printf(doc
, "\\%03o", *ptr
);
3331 else if (*ptr
== '(' || *ptr
== ')' || *ptr
== '\\')
3332 doc_printf(doc
, "\\%c", *ptr
);
3334 doc_printf(doc
, "%c", *ptr
);
3338 doc_puts(doc
, ")put\n");
3341 * Then get a 14 point Helvetica-Bold font...
3344 doc_puts(doc
, "userdict/ESPpf /Helvetica-Bold findfont 14 scalefont put\n");
3347 * Finally, the procedure to write the labels on the page...
3350 doc_puts(doc
, "userdict/ESPwl{\n");
3351 doc_puts(doc
, " ESPpf setfont\n");
3352 doc_printf(doc
, " ESPpl stringwidth pop dup 12 add exch -0.5 mul %.0f add\n",
3354 doc_puts(doc
, " 1 setgray\n");
3355 doc_printf(doc
, " dup 6 sub %.0f 3 index 20 ESPrf\n", bottom
- 2.0);
3356 doc_printf(doc
, " dup 6 sub %.0f 3 index 20 ESPrf\n", top
- 18.0);
3357 doc_puts(doc
, " 0 setgray\n");
3358 doc_printf(doc
, " dup 6 sub %.0f 3 index 20 ESPrs\n", bottom
- 2.0);
3359 doc_printf(doc
, " dup 6 sub %.0f 3 index 20 ESPrs\n", top
- 18.0);
3360 doc_printf(doc
, " dup %.0f moveto ESPpl show\n", bottom
+ 2.0);
3361 doc_printf(doc
, " %.0f moveto ESPpl show\n", top
- 14.0);
3362 doc_puts(doc
, "pop\n");
3363 doc_puts(doc
, "}bind put\n");
3368 * 'write_labels()' - Write the actual page labels.
3370 * This function is a copy of the one in common.c since we need to
3371 * use doc_puts/doc_printf instead of puts/printf...
3375 write_labels(pstops_doc_t
*doc
, /* I - Document information */
3376 int orient
) /* I - Orientation of the page */
3378 float width
, /* Width of page */
3379 length
; /* Length of page */
3382 doc_puts(doc
, "gsave\n");
3384 if ((orient
^ Orientation
) & 1)
3392 length
= PageLength
;
3397 case 1 : /* Landscape */
3398 doc_printf(doc
, "%.1f 0.0 translate 90 rotate\n", length
);
3400 case 2 : /* Reverse Portrait */
3401 doc_printf(doc
, "%.1f %.1f translate 180 rotate\n", width
, length
);
3403 case 3 : /* Reverse Landscape */
3404 doc_printf(doc
, "0.0 %.1f translate -90 rotate\n", width
);
3408 doc_puts(doc
, "ESPwl\n");
3409 doc_puts(doc
, "grestore\n");
3414 * End of "$Id: pstops.c 7689 2008-06-24 20:50:57Z mike $".