]>
git.ipfire.org Git - thirdparty/cups.git/blob - cups/emit.c
2 * "$Id: emit.c 6190 2007-01-10 16:48:27Z mike $"
4 * PPD code emission routines for the Common UNIX Printing System (CUPS).
6 * Copyright 1997-2007 by Easy Software Products, all rights reserved.
8 * These coded instructions, statements, and computer programs are the
9 * property of Easy Software Products and are protected by Federal
10 * copyright law. Distribution and use rights are outlined in the file
11 * "LICENSE.txt" which should have been included with this file. If this
12 * file is missing or damaged please contact Easy Software Products
15 * Attn: CUPS Licensing Information
16 * Easy Software Products
17 * 44141 Airport View Drive, Suite 204
18 * Hollywood, Maryland 20636 USA
20 * Voice: (301) 373-9600
21 * EMail: cups-info@cups.org
22 * WWW: http://www.cups.org
24 * PostScript is a trademark of Adobe Systems, Inc.
26 * This file is subject to the Apple OS-Developed Software exception.
30 * ppdCollect() - Collect all marked options that reside in the
32 * ppdCollect2() - Collect all marked options that reside in the
33 * specified section and minimum order.
34 * ppdEmit() - Emit code for marked options to a file.
35 * ppdEmitAfterOrder() - Emit a subset of the code for marked options to a
37 * ppdEmitFd() - Emit code for marked options to a file.
38 * ppdEmitJCL() - Emit code for JCL options to a file.
39 * ppdEmitJCLEnd() - Emit JCLEnd code to a file.
40 * ppdEmitString() - Get a string containing the code for marked options.
41 * ppd_handle_media() - Handle media selection...
42 * ppd_sort() - Sort options by ordering numbers...
46 * Include necessary headers...
55 #if defined(WIN32) || defined(__EMX__)
59 #endif /* WIN32 || __EMX__ */
66 static void ppd_handle_media(ppd_file_t
*ppd
);
67 static int ppd_sort(ppd_choice_t
**c1
, ppd_choice_t
**c2
);
74 static const char ppd_custom_code
[] =
76 "<</PageSize[5 -2 roll]/ImagingBBox null>>setpagedevice\n";
80 * 'ppdCollect()' - Collect all marked options that reside in the specified
84 int /* O - Number of options marked */
85 ppdCollect(ppd_file_t
*ppd
, /* I - PPD file data */
86 ppd_section_t section
, /* I - Section to collect */
87 ppd_choice_t
***choices
) /* O - Pointers to choices */
89 return (ppdCollect2(ppd
, section
, 0.0, choices
));
94 * 'ppdCollect2()' - Collect all marked options that reside in the
95 * specified section and minimum order.
100 int /* O - Number of options marked */
101 ppdCollect2(ppd_file_t
*ppd
, /* I - PPD file data */
102 ppd_section_t section
, /* I - Section to collect */
103 float min_order
, /* I - Minimum OrderDependency value */
104 ppd_choice_t
***choices
) /* O - Pointers to choices */
106 int i
, j
, k
, m
; /* Looping vars */
107 ppd_group_t
*g
, /* Current group */
108 *sg
; /* Current sub-group */
109 ppd_option_t
*o
; /* Current option */
110 ppd_choice_t
*c
; /* Current choice */
111 int count
; /* Number of choices collected */
112 ppd_choice_t
**collect
; /* Collected choices */
115 DEBUG_printf(("ppdCollect2(ppd=%p, section=%d, min_order=%f, choices=%p)\n",
116 ppd
, section
, min_order
, choices
));
122 * Allocate memory for up to 1000 selected choices...
126 collect
= calloc(sizeof(ppd_choice_t
*), 1000);
129 * Loop through all options and add choices as needed...
132 for (i
= ppd
->num_groups
, g
= ppd
->groups
; i
> 0; i
--, g
++)
134 for (j
= g
->num_options
, o
= g
->options
; j
> 0; j
--, o
++)
135 if (o
->section
== section
&& o
->order
>= min_order
)
136 for (k
= o
->num_choices
, c
= o
->choices
; k
> 0; k
--, c
++)
137 if (c
->marked
&& count
< 1000)
139 DEBUG_printf(("ppdCollect2: %s=%s marked...\n", o
->keyword
,
145 for (j
= g
->num_subgroups
, sg
= g
->subgroups
; j
> 0; j
--, sg
++)
146 for (k
= sg
->num_options
, o
= sg
->options
; k
> 0; k
--, o
++)
147 if (o
->section
== section
&& o
->order
>= min_order
)
148 for (m
= o
->num_choices
, c
= o
->choices
; m
> 0; m
--, c
++)
149 if (c
->marked
&& count
< 1000)
151 DEBUG_printf(("ppdCollect2: %s=%s marked...\n", o
->keyword
,
159 * If we have more than 1 marked choice, sort them...
163 qsort(collect
, count
, sizeof(ppd_choice_t
*),
164 (int (*)(const void *, const void *))ppd_sort
);
166 DEBUG_printf(("ppdCollect2: %d marked choices...\n", count
));
169 * Return the array and number of choices; if 0, free the array since
188 * 'ppdEmit()' - Emit code for marked options to a file.
191 int /* O - 0 on success, -1 on failure */
192 ppdEmit(ppd_file_t
*ppd
, /* I - PPD file record */
193 FILE *fp
, /* I - File to write to */
194 ppd_section_t section
) /* I - Section to write */
196 return (ppdEmitAfterOrder(ppd
, fp
, section
, 0, 0.0));
201 * 'ppdEmitAfterOrder()' - Emit a subset of the code for marked options to a file.
203 * When "limit" is non-zero, this function only emits options whose
204 * OrderDependency value is greater than or equal to "min_order".
206 * When "limit" is zero, this function is identical to ppdEmit().
211 int /* O - 0 on success, -1 on failure */
213 ppd_file_t
*ppd
, /* I - PPD file record */
214 FILE *fp
, /* I - File to write to */
215 ppd_section_t section
, /* I - Section to write */
216 int limit
, /* I - Non-zero to use min_order */
217 float min_order
) /* I - Lowest OrderDependency */
219 char *buffer
; /* Option code */
220 int status
; /* Return status */
224 * Range check input...
234 buffer
= ppdEmitString(ppd
, section
, min_order
);
237 * Write it as needed and return...
242 status
= fputs(buffer
, fp
) < 0 ? -1 : 0;
254 * 'ppdEmitFd()' - Emit code for marked options to a file.
257 int /* O - 0 on success, -1 on failure */
258 ppdEmitFd(ppd_file_t
*ppd
, /* I - PPD file record */
259 int fd
, /* I - File to write to */
260 ppd_section_t section
) /* I - Section to write */
262 char *buffer
, /* Option code */
263 *bufptr
; /* Pointer into code */
264 size_t buflength
; /* Length of option code */
265 ssize_t bytes
; /* Bytes written */
266 int status
; /* Return status */
270 * Range check input...
280 buffer
= ppdEmitString(ppd
, section
, 0.0);
283 * Write it as needed and return...
288 buflength
= strlen(buffer
);
292 while (buflength
> 0)
295 if ((bytes
= (ssize_t
)write(fd
, bufptr
, (unsigned)buflength
)) < 0)
297 if ((bytes
= write(fd
, bufptr
, buflength
)) < 0)
300 if (errno
== EAGAIN
|| errno
== EINTR
)
310 status
= bytes
< 0 ? -1 : 0;
322 * 'ppdEmitJCL()' - Emit code for JCL options to a file.
325 int /* O - 0 on success, -1 on failure */
326 ppdEmitJCL(ppd_file_t
*ppd
, /* I - PPD file record */
327 FILE *fp
, /* I - File to write to */
328 int job_id
, /* I - Job ID */
329 const char *user
, /* I - Username */
330 const char *title
) /* I - Title */
332 char *ptr
; /* Pointer into JCL string */
333 char temp
[81]; /* Local title string */
337 * Range check the input...
340 if (!ppd
|| !ppd
->jcl_begin
|| !ppd
->jcl_ps
)
344 * See if the printer supports HP PJL...
347 if (!strncmp(ppd
->jcl_begin
, "\033%-12345X@", 10))
350 * This printer uses HP PJL commands for output; filter the output
351 * so that we only have a single "@PJL JOB" command in the header...
353 * To avoid bugs in the PJL implementation of certain vendors' products
354 * (Xerox in particular), we add a dummy "@PJL" command at the beginning
355 * of the PJL commands to initialize PJL processing.
358 ppd_attr_t
*charset
; /* PJL charset */
361 if ((charset
= ppdFindAttr(ppd
, "cupsPJLCharset", NULL
)) != NULL
)
363 if (!charset
->value
|| strcasecmp(charset
->value
, "UTF-8"))
367 fputs("\033%-12345X@PJL\n", fp
);
368 for (ptr
= ppd
->jcl_begin
+ 9; *ptr
;)
369 if (!strncmp(ptr
, "@PJL JOB", 8))
372 * Skip job command...
400 * Eliminate any path info from the job title...
403 if ((ptr
= strrchr(title
, '/')) != NULL
)
407 * Replace double quotes with single quotes and 8-bit characters with
408 * question marks so that the title does not cause a PJL syntax error.
411 strlcpy(temp
, title
, sizeof(temp
));
413 for (ptr
= temp
; *ptr
; ptr
++)
416 else if (charset
&& (*ptr
& 128))
420 * Send PJL JOB and PJL RDYMSG commands before we enter PostScript mode...
423 fprintf(fp
, "@PJL JOB NAME = \"%s\" DISPLAY = \"%d %s %s\"\n", temp
,
425 fprintf(fp
, "@PJL RDYMSG DISPLAY = \"%d %s %s\"\n", job_id
, user
, temp
);
428 fputs(ppd
->jcl_begin
, fp
);
430 ppdEmit(ppd
, fp
, PPD_ORDER_JCL
);
431 fputs(ppd
->jcl_ps
, fp
);
438 * 'ppdEmitJCLEnd()' - Emit JCLEnd code to a file.
443 int /* O - 0 on success, -1 on failure */
444 ppdEmitJCLEnd(ppd_file_t
*ppd
, /* I - PPD file record */
445 FILE *fp
) /* I - File to write to */
448 * Range check the input...
456 if (ppd
->num_filters
== 0)
463 * See if the printer supports HP PJL...
466 if (!strncmp(ppd
->jcl_end
, "\033%-12345X@", 10))
469 * This printer uses HP PJL commands for output; filter the output
470 * so that we only have a single "@PJL JOB" command in the header...
472 * To avoid bugs in the PJL implementation of certain vendors' products
473 * (Xerox in particular), we add a dummy "@PJL" command at the beginning
474 * of the PJL commands to initialize PJL processing.
477 fputs("\033%-12345X@PJL\n", fp
);
478 fputs("@PJL RDYMSG DISPLAY = \"READY\"\n", fp
);
479 fputs(ppd
->jcl_end
+ 9, fp
);
482 fputs(ppd
->jcl_end
, fp
);
489 * 'ppdEmitString()' - Get a string containing the code for marked options.
491 * When "min_order" is greater than zero, this function only includes options
492 * whose OrderDependency value is greater than or equal to "min_order".
493 * Otherwise, all options in the specified section are included in the
496 * The return string is allocated on the heap and should be freed using
497 * free() when you are done with it.
502 char * /* O - String containing option code */
503 ppdEmitString(ppd_file_t
*ppd
, /* I - PPD file record */
504 ppd_section_t section
, /* I - Section to write */
505 float min_order
) /* I - Lowest OrderDependency */
507 int i
, j
, /* Looping vars */
508 count
; /* Number of choices */
509 ppd_choice_t
**choices
; /* Choices */
510 ppd_size_t
*size
; /* Custom page size */
511 ppd_coption_t
*coption
; /* Custom option */
512 ppd_cparam_t
*cparam
; /* Custom parameter */
513 size_t bufsize
; /* Size of string buffer needed */
514 char *buffer
, /* String buffer */
515 *bufptr
, /* Pointer into buffer */
516 *bufend
; /* End of buffer */
517 struct lconv
*loc
; /* Locale data */
520 DEBUG_printf(("ppdEmitString(ppd=%p, section=%d, min_order=%f)\n",
521 ppd
, section
, min_order
));
524 * Range check input...
531 * Use PageSize or PageRegion as required...
534 ppd_handle_media(ppd
);
537 * Collect the options we need to emit...
540 if ((count
= ppdCollect2(ppd
, section
, min_order
, &choices
)) == 0)
544 * Count the number of bytes that are required to hold all of the
548 for (i
= 0, bufsize
= 1; i
< count
; i
++)
550 if (section
!= PPD_ORDER_EXIT
&& section
!= PPD_ORDER_JCL
)
552 bufsize
+= 3; /* [{\n */
554 if ((!strcasecmp(choices
[i
]->option
->keyword
, "PageSize") ||
555 !strcasecmp(choices
[i
]->option
->keyword
, "PageRegion")) &&
556 !strcasecmp(choices
[i
]->choice
, "Custom"))
558 DEBUG_puts("ppdEmitString: Custom size set!");
560 bufsize
+= 37; /* %%BeginFeature: *CustomPageSize True\n */
561 bufsize
+= 50; /* Five 9-digit numbers + newline */
563 else if (!strcasecmp(choices
[i
]->choice
, "Custom") &&
564 (coption
= ppdFindCustomOption(ppd
,
565 choices
[i
]->option
->keyword
))
568 bufsize
+= 17 + strlen(choices
[i
]->option
->keyword
) + 6;
569 /* %%BeginFeature: *keyword True\n */
572 for (cparam
= (ppd_cparam_t
*)cupsArrayFirst(coption
->params
);
574 cparam
= (ppd_cparam_t
*)cupsArrayNext(coption
->params
))
576 switch (cparam
->type
)
578 case PPD_CUSTOM_CURVE
:
579 case PPD_CUSTOM_INVCURVE
:
580 case PPD_CUSTOM_POINTS
:
581 case PPD_CUSTOM_REAL
:
582 case PPD_CUSTOM_INT
:
586 case PPD_CUSTOM_PASSCODE
:
587 case PPD_CUSTOM_PASSWORD
:
588 case PPD_CUSTOM_STRING
:
589 bufsize
+= 3 + 4 * strlen(cparam
->current
.custom_string
);
595 bufsize
+= 17 + strlen(choices
[i
]->option
->keyword
) + 1 +
596 strlen(choices
[i
]->choice
) + 1;
597 /* %%BeginFeature: *keyword choice\n */
599 bufsize
+= 13; /* %%EndFeature\n */
600 bufsize
+= 22; /* } stopped cleartomark\n */
603 if (choices
[i
]->code
)
604 bufsize
+= strlen(choices
[i
]->code
) + 1;
606 bufsize
+= strlen(ppd_custom_code
);
613 DEBUG_printf(("ppdEmitString: Allocating %d bytes for string...\n", bufsize
));
615 if ((buffer
= calloc(1, bufsize
)) == NULL
)
621 bufend
= buffer
+ bufsize
- 1;
625 * Copy the option code to the buffer...
628 for (i
= 0, bufptr
= buffer
; i
< count
; i
++, bufptr
+= strlen(bufptr
))
629 if (section
!= PPD_ORDER_EXIT
&& section
!= PPD_ORDER_JCL
)
632 * Add wrapper commands to prevent printer errors for unsupported
636 strlcpy(bufptr
, "[{\n", bufend
- bufptr
+ 1);
640 * Send DSC comments with option...
643 DEBUG_printf(("Adding code for %s=%s...\n", choices
[i
]->option
->keyword
,
644 choices
[i
]->choice
));
646 if ((!strcasecmp(choices
[i
]->option
->keyword
, "PageSize") ||
647 !strcasecmp(choices
[i
]->option
->keyword
, "PageRegion")) &&
648 !strcasecmp(choices
[i
]->choice
, "Custom"))
651 * Variable size; write out standard size options, using the
652 * parameter positions defined in the PPD file...
655 ppd_attr_t
*attr
; /* PPD attribute */
656 int pos
, /* Position of custom value */
657 orientation
; /* Orientation to use */
658 float values
[5]; /* Values for custom command */
661 strlcpy(bufptr
, "%%BeginFeature: *CustomPageSize True\n",
662 bufend
- bufptr
+ 1);
665 size
= ppdPageSize(ppd
, "Custom");
667 memset(values
, 0, sizeof(values
));
669 if ((attr
= ppdFindAttr(ppd
, "ParamCustomPageSize", "Width")) != NULL
)
671 pos
= atoi(attr
->value
) - 1;
673 if (pos
< 0 || pos
> 4)
679 values
[pos
] = size
->width
;
681 if ((attr
= ppdFindAttr(ppd
, "ParamCustomPageSize", "Height")) != NULL
)
683 pos
= atoi(attr
->value
) - 1;
685 if (pos
< 0 || pos
> 4)
691 values
[pos
] = size
->length
;
694 * According to the Adobe PPD specification, an orientation of 1
695 * will produce a print that comes out upside-down with the X
696 * axis perpendicular to the direction of feed, which is exactly
697 * what we want to be consistent with non-PS printers.
699 * We could also use an orientation of 3 to produce output that
700 * comes out rightside-up (this is the default for many large format
701 * printer PPDs), however for consistency we will stick with the
704 * If we wanted to get fancy, we could use orientations of 0 or
705 * 2 and swap the width and length, however we don't want to get
706 * fancy, we just want it to work consistently.
708 * The orientation value is range limited by the Orientation
709 * parameter definition, so certain non-PS printer drivers that
710 * only support an Orientation of 0 will get the value 0 as
716 if ((attr
= ppdFindAttr(ppd
, "ParamCustomPageSize",
717 "Orientation")) != NULL
)
719 int min_orient
, max_orient
; /* Minimum and maximum orientations */
722 if (sscanf(attr
->value
, "%d%*s%d%d", &pos
, &min_orient
,
729 if (pos
< 0 || pos
> 4)
732 if (orientation
> max_orient
)
733 orientation
= max_orient
;
734 else if (orientation
< min_orient
)
735 orientation
= min_orient
;
741 values
[pos
] = (float)orientation
;
743 for (pos
= 0; pos
< 5; pos
++)
745 bufptr
= _cupsStrFormatd(bufptr
, bufend
, values
[pos
], loc
);
749 if (!choices
[i
]->code
)
752 * This can happen with certain buggy PPD files that don't include
753 * a CustomPageSize command sequence... We just use a generic
754 * Level 2 command sequence...
757 strlcpy(bufptr
, ppd_custom_code
, bufend
- bufptr
+ 1);
758 bufptr
+= strlen(bufptr
);
761 else if (!strcasecmp(choices
[i
]->choice
, "Custom") &&
762 (coption
= ppdFindCustomOption(ppd
,
763 choices
[i
]->option
->keyword
))
770 const char *s
; /* Pointer into string value */
773 snprintf(bufptr
, bufend
- bufptr
+ 1,
774 "%%%%BeginFeature: *Custom%s True\n", coption
->keyword
);
775 bufptr
+= strlen(bufptr
);
777 for (cparam
= (ppd_cparam_t
*)cupsArrayFirst(coption
->params
);
779 cparam
= (ppd_cparam_t
*)cupsArrayNext(coption
->params
))
781 switch (cparam
->type
)
783 case PPD_CUSTOM_CURVE
:
784 case PPD_CUSTOM_INVCURVE
:
785 case PPD_CUSTOM_POINTS
:
786 case PPD_CUSTOM_REAL
:
787 bufptr
= _cupsStrFormatd(bufptr
, bufend
,
788 cparam
->current
.custom_real
, loc
);
792 case PPD_CUSTOM_INT
:
793 snprintf(bufptr
, bufend
- bufptr
+ 1, "%d\n",
794 cparam
->current
.custom_int
);
795 bufptr
+= strlen(bufptr
);
798 case PPD_CUSTOM_PASSCODE
:
799 case PPD_CUSTOM_PASSWORD
:
800 case PPD_CUSTOM_STRING
:
803 for (s
= cparam
->current
.custom_string
; *s
; s
++)
804 if (*s
< ' ' || *s
== '(' || *s
== ')' || *s
>= 127)
806 snprintf(bufptr
, bufend
- bufptr
+ 1, "\\%03o", *s
& 255);
807 bufptr
+= strlen(bufptr
);
820 snprintf(bufptr
, bufend
- bufptr
+ 1, "%%%%BeginFeature: *%s %s\n",
821 choices
[i
]->option
->keyword
, choices
[i
]->choice
);
822 bufptr
+= strlen(bufptr
);
825 if (choices
[i
]->code
&& choices
[i
]->code
[0])
827 j
= (int)strlen(choices
[i
]->code
);
828 memcpy(bufptr
, choices
[i
]->code
, j
);
831 if (choices
[i
]->code
[j
- 1] != '\n')
835 strlcpy(bufptr
, "%%EndFeature\n"
836 "} stopped cleartomark\n", bufend
- bufptr
+ 1);
837 bufptr
+= strlen(bufptr
);
839 DEBUG_printf(("ppdEmitString: Offset in string is %d...\n",
844 strlcpy(bufptr
, choices
[i
]->code
, bufend
- bufptr
+ 1);
845 bufptr
+= strlen(bufptr
);
849 * Nul-terminate, free, and return...
861 * 'ppd_handle_media()' - Handle media selection...
865 ppd_handle_media(ppd_file_t
*ppd
)
867 ppd_choice_t
*manual_feed
, /* ManualFeed choice, if any */
868 *input_slot
, /* InputSlot choice, if any */
869 *page
; /* PageSize/PageRegion */
870 ppd_size_t
*size
; /* Current media size */
871 ppd_attr_t
*rpr
; /* RequiresPageRegion value */
875 * This function determines if the user has selected a media source
876 * via the InputSlot or ManualFeed options; if so, it marks the
877 * PageRegion option corresponding to the current media size.
878 * Otherwise it marks the PageSize option.
881 if ((size
= ppdPageSize(ppd
, NULL
)) == NULL
)
884 manual_feed
= ppdFindMarkedChoice(ppd
, "ManualFeed");
885 input_slot
= ppdFindMarkedChoice(ppd
, "InputSlot");
887 if (input_slot
!= NULL
)
888 rpr
= ppdFindAttr(ppd
, "RequiresPageRegion", input_slot
->choice
);
893 rpr
= ppdFindAttr(ppd
, "RequiresPageRegion", "All");
895 if (!strcasecmp(size
->name
, "Custom") || (!manual_feed
&& !input_slot
) ||
896 !((manual_feed
&& !strcasecmp(manual_feed
->choice
, "True")) ||
897 (input_slot
&& input_slot
->code
&& input_slot
->code
[0])))
900 * Manual feed was not selected and/or the input slot selection does
901 * not contain any PostScript code. Use the PageSize option...
904 ppdMarkOption(ppd
, "PageSize", size
->name
);
909 * Manual feed was selected and/or the input slot selection contains
910 * PostScript code. Use the PageRegion option...
913 ppdMarkOption(ppd
, "PageRegion", size
->name
);
916 * RequiresPageRegion does not apply to manual feed so we need to
917 * check that we are not doing manual feed before unmarking PageRegion.
920 if (!(manual_feed
&& !strcasecmp(manual_feed
->choice
, "True")) &&
921 ((rpr
&& rpr
->value
&& !strcmp(rpr
->value
, "False")) ||
922 (!rpr
&& !ppd
->num_filters
)))
925 * Either the PPD file specifies no PageRegion code or the PPD file
926 * not for a CUPS raster driver and thus defaults to no PageRegion
927 * code... Unmark the PageRegion choice so that we don't output the
931 page
= ppdFindMarkedChoice(ppd
, "PageRegion");
941 * 'ppd_sort()' - Sort options by ordering numbers...
944 static int /* O - -1 if c1 < c2, 0 if equal, 1 otherwise */
945 ppd_sort(ppd_choice_t
**c1
, /* I - First choice */
946 ppd_choice_t
**c2
) /* I - Second choice */
948 if ((*c1
)->option
->order
< (*c2
)->option
->order
)
950 else if ((*c1
)->option
->order
> (*c2
)->option
->order
)
958 * End of "$Id: emit.c 6190 2007-01-10 16:48:27Z mike $".