[thirdparty/cups.git] / filter / common.c

/*
 * Common filter routines for CUPS.
 *
 * Copyright 2007-2014 by Apple Inc.
 * Copyright 1997-2006 by Easy Software Products.
 *
 * These coded instructions, statements, and computer programs are the
 * property of Apple Inc. and are protected by Federal copyright
 * law.  Distribution and use rights are outlined in the file "LICENSE.txt"
 * which should have been included with this file.  If this file is
 * file is missing or damaged, see the license at "http://www.cups.org/".
 *
 * This file is subject to the Apple OS-Developed Software exception.
 */

/*
 * Include necessary headers...
 */

#include "common.h"
#include <locale.h>


/*
 * Globals...
 */

int	Orientation = 0,		/* 0 = portrait, 1 = landscape, etc. */
	Duplex = 0,			/* Duplexed? */
	LanguageLevel = 1,		/* Language level of printer */
	ColorDevice = 1;		/* Do color text? */
float	PageLeft = 18.0f,		/* Left margin */
	PageRight = 594.0f,		/* Right margin */
	PageBottom = 36.0f,		/* Bottom margin */
	PageTop = 756.0f,		/* Top margin */
	PageWidth = 612.0f,		/* Total page width */
	PageLength = 792.0f;		/* Total page length */


/*
 * 'SetCommonOptions()' - Set common filter options for media size, etc.
 */

ppd_file_t *				/* O - PPD file */
SetCommonOptions(
    int           num_options,		/* I - Number of options */
    cups_option_t *options,		/* I - Options */
    int           change_size)		/* I - Change page size? */
{
  ppd_file_t	*ppd;			/* PPD file */
  ppd_size_t	*pagesize;		/* Current page size */
  const char	*val;			/* Option value */


#ifdef LC_TIME
  setlocale(LC_TIME, "");
#endif /* LC_TIME */

  ppd = ppdOpenFile(getenv("PPD"));

  ppdMarkDefaults(ppd);
  cupsMarkOptions(ppd, num_options, options);

  if ((pagesize = ppdPageSize(ppd, NULL)) != NULL)
  {
    PageWidth  = pagesize->width;
    PageLength = pagesize->length;
    PageTop    = pagesize->top;
    PageBottom = pagesize->bottom;
    PageLeft   = pagesize->left;
    PageRight  = pagesize->right;

    fprintf(stderr, "DEBUG: Page = %.0fx%.0f; %.0f,%.0f to %.0f,%.0f\n",
            PageWidth, PageLength, PageLeft, PageBottom, PageRight, PageTop);
  }

  if (ppd != NULL)
  {
    ColorDevice   = ppd->color_device;
    LanguageLevel = ppd->language_level;
  }

  if ((val = cupsGetOption("landscape", num_options, options)) != NULL)
  {
    if (_cups_strcasecmp(val, "no") != 0 && _cups_strcasecmp(val, "off") != 0 &&
        _cups_strcasecmp(val, "false") != 0)
    {
      if (ppd && ppd->landscape > 0)
        Orientation = 1;
      else
        Orientation = 3;
    }
  }
  else if ((val = cupsGetOption("orientation-requested", num_options, options)) != NULL)
  {
   /*
    * Map IPP orientation values to 0 to 3:
    *
    *   3 = 0 degrees   = 0
    *   4 = 90 degrees  = 1
    *   5 = -90 degrees = 3
    *   6 = 180 degrees = 2
    */

    Orientation = atoi(val) - 3;
    if (Orientation >= 2)
      Orientation ^= 1;
  }

  if ((val = cupsGetOption("page-left", num_options, options)) != NULL)
  {
    switch (Orientation & 3)
    {
      case 0 :
          PageLeft = (float)atof(val);
	  break;
      case 1 :
          PageBottom = (float)atof(val);
	  break;
      case 2 :
          PageRight = PageWidth - (float)atof(val);
	  break;
      case 3 :
          PageTop = PageLength - (float)atof(val);
	  break;
    }
  }

  if ((val = cupsGetOption("page-right", num_options, options)) != NULL)
  {
    switch (Orientation & 3)
    {
      case 0 :
          PageRight = PageWidth - (float)atof(val);
	  break;
      case 1 :
          PageTop = PageLength - (float)atof(val);
	  break;
      case 2 :
          PageLeft = (float)atof(val);
	  break;
      case 3 :
          PageBottom = (float)atof(val);
	  break;
    }
  }

  if ((val = cupsGetOption("page-bottom", num_options, options)) != NULL)
  {
    switch (Orientation & 3)
    {
      case 0 :
          PageBottom = (float)atof(val);
	  break;
      case 1 :
          PageLeft = (float)atof(val);
	  break;
      case 2 :
          PageTop = PageLength - (float)atof(val);
	  break;
      case 3 :
          PageRight = PageWidth - (float)atof(val);
	  break;
    }
  }

  if ((val = cupsGetOption("page-top", num_options, options)) != NULL)
  {
    switch (Orientation & 3)
    {
      case 0 :
          PageTop = PageLength - (float)atof(val);
	  break;
      case 1 :
          PageRight = PageWidth - (float)atof(val);
	  break;
      case 2 :
          PageBottom = (float)atof(val);
	  break;
      case 3 :
          PageLeft = (float)atof(val);
	  break;
    }
  }

  if (change_size)
    UpdatePageVars();

  if (ppdIsMarked(ppd, "Duplex", "DuplexNoTumble") ||
      ppdIsMarked(ppd, "Duplex", "DuplexTumble") ||
      ppdIsMarked(ppd, "JCLDuplex", "DuplexNoTumble") ||
      ppdIsMarked(ppd, "JCLDuplex", "DuplexTumble") ||
      ppdIsMarked(ppd, "EFDuplex", "DuplexNoTumble") ||
      ppdIsMarked(ppd, "EFDuplex", "DuplexTumble") ||
      ppdIsMarked(ppd, "KD03Duplex", "DuplexNoTumble") ||
      ppdIsMarked(ppd, "KD03Duplex", "DuplexTumble"))
    Duplex = 1;

  return (ppd);
}


/*
 * 'UpdatePageVars()' - Update the page variables for the orientation.
 */

void
UpdatePageVars(void)
{
  float		temp;			/* Swapping variable */


  switch (Orientation & 3)
  {
    case 0 : /* Portait */
        break;

    case 1 : /* Landscape */
	temp       = PageLeft;
	PageLeft   = PageBottom;
	PageBottom = temp;

	temp       = PageRight;
	PageRight  = PageTop;
	PageTop    = temp;

	temp       = PageWidth;
	PageWidth  = PageLength;
	PageLength = temp;
	break;

    case 2 : /* Reverse Portrait */
	temp       = PageWidth - PageLeft;
	PageLeft   = PageWidth - PageRight;
	PageRight  = temp;

	temp       = PageLength - PageBottom;
	PageBottom = PageLength - PageTop;
	PageTop    = temp;
        break;

    case 3 : /* Reverse Landscape */
	temp       = PageWidth - PageLeft;
	PageLeft   = PageWidth - PageRight;
	PageRight  = temp;

	temp       = PageLength - PageBottom;
	PageBottom = PageLength - PageTop;
	PageTop    = temp;

	temp       = PageLeft;
	PageLeft   = PageBottom;
	PageBottom = temp;

	temp       = PageRight;
	PageRight  = PageTop;
	PageTop    = temp;

	temp       = PageWidth;
	PageWidth  = PageLength;
	PageLength = temp;
	break;
  }
}


/*
 * 'WriteCommon()' - Write common procedures...
 */

void
WriteCommon(void)
{
  puts("% x y w h ESPrc - Clip to a rectangle.\n"
       "userdict/ESPrc/rectclip where{pop/rectclip load}\n"
       "{{newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto\n"
       "neg 0 rlineto closepath clip newpath}bind}ifelse put");
  puts("% x y w h ESPrf - Fill a rectangle.\n"
       "userdict/ESPrf/rectfill where{pop/rectfill load}\n"
       "{{gsave newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto\n"
       "neg 0 rlineto closepath fill grestore}bind}ifelse put");
  puts("% x y w h ESPrs - Stroke a rectangle.\n"
       "userdict/ESPrs/rectstroke where{pop/rectstroke load}\n"
       "{{gsave newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto\n"
       "neg 0 rlineto closepath stroke grestore}bind}ifelse put");
}


/*
 * 'WriteLabelProlog()' - Write the prolog with the classification
 *                        and page label.
 */

void
WriteLabelProlog(const char *label,	/* I - Page label */
		 float      bottom,	/* I - Bottom position in points */
		 float      top,	/* I - Top position in points */
		 float      width)	/* I - Width in points */
{
  const char	*classification;	/* CLASSIFICATION environment variable */
  const char	*ptr;			/* Temporary string pointer */


 /*
  * First get the current classification...
  */

  if ((classification = getenv("CLASSIFICATION")) == NULL)
    classification = "";
  if (strcmp(classification, "none") == 0)
    classification = "";

 /*
  * If there is nothing to show, bind an empty 'write labels' procedure
  * and return...
  */

  if (!classification[0] && (label == NULL || !label[0]))
  {
    puts("userdict/ESPwl{}bind put");
    return;
  }

 /*
  * Set the classification + page label string...
  */

  printf("userdict");
  if (strcmp(classification, "confidential") == 0)
    printf("/ESPpl(CONFIDENTIAL");
  else if (strcmp(classification, "classified") == 0)
    printf("/ESPpl(CLASSIFIED");
  else if (strcmp(classification, "secret") == 0)
    printf("/ESPpl(SECRET");
  else if (strcmp(classification, "topsecret") == 0)
    printf("/ESPpl(TOP SECRET");
  else if (strcmp(classification, "unclassified") == 0)
    printf("/ESPpl(UNCLASSIFIED");
  else
  {
    printf("/ESPpl(");

    for (ptr = classification; *ptr; ptr ++)
      if (*ptr < 32 || *ptr > 126)
        printf("\\%03o", *ptr);
      else if (*ptr == '_')
        putchar(' ');
      else
      {
	if (*ptr == '(' || *ptr == ')' || *ptr == '\\')
	  putchar('\\');

	putchar(*ptr);
      }
  }

  if (label)
  {
    if (classification[0])
      printf(" - ");

   /*
    * Quote the label string as needed...
    */

    for (ptr = label; *ptr; ptr ++)
      if (*ptr < 32 || *ptr > 126)
        printf("\\%03o", *ptr);
      else
      {
	if (*ptr == '(' || *ptr == ')' || *ptr == '\\')
	  putchar('\\');

	putchar(*ptr);
      }
  }

  puts(")put");

 /*
  * Then get a 14 point Helvetica-Bold font...
  */

  puts("userdict/ESPpf /Helvetica-Bold findfont 14 scalefont put");

 /*
  * Finally, the procedure to write the labels on the page...
  */

  puts("userdict/ESPwl{");
  puts("  ESPpf setfont");
  printf("  ESPpl stringwidth pop dup 12 add exch -0.5 mul %.0f add\n",
         width * 0.5f);
  puts("  1 setgray");
  printf("  dup 6 sub %.0f 3 index 20 ESPrf\n", bottom - 2.0);
  printf("  dup 6 sub %.0f 3 index 20 ESPrf\n", top - 18.0);
  puts("  0 setgray");
  printf("  dup 6 sub %.0f 3 index 20 ESPrs\n", bottom - 2.0);
  printf("  dup 6 sub %.0f 3 index 20 ESPrs\n", top - 18.0);
  printf("  dup %.0f moveto ESPpl show\n", bottom + 2.0);
  printf("  %.0f moveto ESPpl show\n", top - 14.0);
  puts("pop");
  puts("}bind put");
}


/*
 * 'WriteLabels()' - Write the actual page labels.
 */

void
WriteLabels(int orient)	/* I - Orientation of the page */
{
  float	width,		/* Width of page */
	length;		/* Length of page */


  puts("gsave");

  if ((orient ^ Orientation) & 1)
  {
    width  = PageLength;
    length = PageWidth;
  }
  else
  {
    width  = PageWidth;
    length = PageLength;
  }

  switch (orient & 3)
  {
    case 1 : /* Landscape */
        printf("%.1f 0.0 translate 90 rotate\n", length);
        break;
    case 2 : /* Reverse Portrait */
        printf("%.1f %.1f translate 180 rotate\n", width, length);
        break;
    case 3 : /* Reverse Landscape */
        printf("0.0 %.1f translate -90 rotate\n", width);
        break;
  }

  puts("ESPwl");
  puts("grestore");
}


/*
 * 'WriteTextComment()' - Write a DSC text comment.
 */

void
WriteTextComment(const char *name,	/* I - Comment name ("Title", etc.) */
                 const char *value)	/* I - Comment value */
{
  int	len;				/* Current line length */


 /*
  * DSC comments are of the form:
  *
  *   %%name: value
  *
  * The name and value must be limited to 7-bit ASCII for most printers,
  * so we escape all non-ASCII and ASCII control characters as described
  * in the Adobe Document Structuring Conventions specification.
  */

  printf("%%%%%s: (", name);
  len = 5 + (int)strlen(name);

  while (*value)
  {
    if (*value < ' ' || *value >= 127)
    {
     /*
      * Escape this character value...
      */

      if (len >= 251)			/* Keep line < 254 chars */
        break;

      printf("\\%03o", *value & 255);
      len += 4;
    }
    else if (*value == '\\')
    {
     /*
      * Escape the backslash...
      */

      if (len >= 253)			/* Keep line < 254 chars */
        break;

      putchar('\\');
      putchar('\\');
      len += 2;
    }
    else
    {
     /*
      * Put this character literally...
      */

      if (len >= 254)			/* Keep line < 254 chars */
        break;

      putchar(*value);
      len ++;
    }

    value ++;
  }

  puts(")");
}
Commit	Line	Data
ef416fc2	1	/*
7e86f2f6	2	* Common filter routines for CUPS.
ef416fc2	3	*
7e86f2f6 MS	4	* Copyright 2007-2014 by Apple Inc.
7e86f2f6 MS	5	* Copyright 1997-2006 by Easy Software Products.
ef416fc2	6	*
7e86f2f6 MS	7	* These coded instructions, statements, and computer programs are the
	8	* property of Apple Inc. and are protected by Federal copyright
	9	* law. Distribution and use rights are outlined in the file "LICENSE.txt"
	10	* which should have been included with this file. If this file is
	11	* file is missing or damaged, see the license at "http://www.cups.org/".
ef416fc2	12	*
7e86f2f6	13	* This file is subject to the Apple OS-Developed Software exception.
ef416fc2	14	*/
	15
	16	/*
	17	* Include necessary headers...
	18	*/
	19
	20	#include "common.h"
	21	#include <locale.h>
	22
	23
	24	/*
	25	* Globals...
	26	*/
	27
2abf387c	28	int Orientation = 0, /* 0 = portrait, 1 = landscape, etc. */
	29	Duplex = 0, /* Duplexed? */
	30	LanguageLevel = 1, /* Language level of printer */
	31	ColorDevice = 1; /* Do color text? */
	32	float PageLeft = 18.0f, /* Left margin */
	33	PageRight = 594.0f, /* Right margin */
	34	PageBottom = 36.0f, /* Bottom margin */
	35	PageTop = 756.0f, /* Top margin */
	36	PageWidth = 612.0f, /* Total page width */
	37	PageLength = 792.0f; /* Total page length */
ef416fc2	38
	39
	40	/*
	41	* 'SetCommonOptions()' - Set common filter options for media size, etc.
	42	*/
	43
2abf387c	44	ppd_file_t * /* O - PPD file */
	45	SetCommonOptions(
	46	int num_options, /* I - Number of options */
	47	cups_option_t options, / I - Options */
	48	int change_size) /* I - Change page size? */
ef416fc2	49	{
2abf387c	50	ppd_file_t ppd; / PPD file */
	51	ppd_size_t pagesize; / Current page size */
	52	const char val; / Option value */
ef416fc2	53
	54
	55	#ifdef LC_TIME
	56	setlocale(LC_TIME, "");
	57	#endif /* LC_TIME */
	58
	59	ppd = ppdOpenFile(getenv("PPD"));
	60
	61	ppdMarkDefaults(ppd);
	62	cupsMarkOptions(ppd, num_options, options);
	63
	64	if ((pagesize = ppdPageSize(ppd, NULL)) != NULL)
	65	{
	66	PageWidth = pagesize->width;
	67	PageLength = pagesize->length;
	68	PageTop = pagesize->top;
	69	PageBottom = pagesize->bottom;
	70	PageLeft = pagesize->left;
	71	PageRight = pagesize->right;
	72
	73	fprintf(stderr, "DEBUG: Page = %.0fx%.0f; %.0f,%.0f to %.0f,%.0f\n",
	74	PageWidth, PageLength, PageLeft, PageBottom, PageRight, PageTop);
	75	}
	76
	77	if (ppd != NULL)
	78	{
	79	ColorDevice = ppd->color_device;
	80	LanguageLevel = ppd->language_level;
	81	}
	82
	83	if ((val = cupsGetOption("landscape", num_options, options)) != NULL)
	84	{
88f9aafc MS	85	if (_cups_strcasecmp(val, "no") != 0 && _cups_strcasecmp(val, "off") != 0 &&
88f9aafc MS	86	_cups_strcasecmp(val, "false") != 0)
ef416fc2	87	{
	88	if (ppd && ppd->landscape > 0)
	89	Orientation = 1;
	90	else
	91	Orientation = 3;
	92	}
	93	}
	94	else if ((val = cupsGetOption("orientation-requested", num_options, options)) != NULL)
	95	{
	96	/*
	97	* Map IPP orientation values to 0 to 3:
	98	*
	99	* 3 = 0 degrees = 0
	100	* 4 = 90 degrees = 1
	101	* 5 = -90 degrees = 3
	102	* 6 = 180 degrees = 2
	103	*/
	104
	105	Orientation = atoi(val) - 3;
	106	if (Orientation >= 2)
	107	Orientation ^= 1;
	108	}
	109
	110	if ((val = cupsGetOption("page-left", num_options, options)) != NULL)
	111	{
	112	switch (Orientation & 3)
	113	{
	114	case 0 :
	115	PageLeft = (float)atof(val);
	116	break;
	117	case 1 :
	118	PageBottom = (float)atof(val);
	119	break;
	120	case 2 :
	121	PageRight = PageWidth - (float)atof(val);
	122	break;
	123	case 3 :
	124	PageTop = PageLength - (float)atof(val);
	125	break;
	126	}
	127	}
	128
	129	if ((val = cupsGetOption("page-right", num_options, options)) != NULL)
	130	{
	131	switch (Orientation & 3)
	132	{
	133	case 0 :
	134	PageRight = PageWidth - (float)atof(val);
	135	break;
	136	case 1 :
	137	PageTop = PageLength - (float)atof(val);
	138	break;
	139	case 2 :
	140	PageLeft = (float)atof(val);
	141	break;
	142	case 3 :
	143	PageBottom = (float)atof(val);
	144	break;
	145	}
	146	}
	147
	148	if ((val = cupsGetOption("page-bottom", num_options, options)) != NULL)
	149	{
	150	switch (Orientation & 3)
151	{
152	case 0 :
153	PageBottom = (float)atof(val);
154	break;
155	case 1 :
156	PageLeft = (float)atof(val);
157	break;
158	case 2 :
159	PageTop = PageLength - (float)atof(val);
160	break;
161	case 3 :
162	PageRight = PageWidth - (float)atof(val);
163	break;
164	}
165	}
166
167	if ((val = cupsGetOption("page-top", num_options, options)) != NULL)
168	{
169	switch (Orientation & 3)
170	{
171	case 0 :
172	PageTop = PageLength - (float)atof(val);
173	break;
174	case 1 :
175	PageRight = PageWidth - (float)atof(val);
176	break;
177	case 2 :
178	PageBottom = (float)atof(val);
179	break;
180	case 3 :
181	PageLeft = (float)atof(val);
182	break;
183	}
184	}
185
186	if (change_size)
187	UpdatePageVars();
188
189	if (ppdIsMarked(ppd, "Duplex", "DuplexNoTumble") \|\|
190	ppdIsMarked(ppd, "Duplex", "DuplexTumble") \|\|
191	ppdIsMarked(ppd, "JCLDuplex", "DuplexNoTumble") \|\|
192	ppdIsMarked(ppd, "JCLDuplex", "DuplexTumble") \|\|
193	ppdIsMarked(ppd, "EFDuplex", "DuplexNoTumble") \|\|
194	ppdIsMarked(ppd, "EFDuplex", "DuplexTumble") \|\|
195	ppdIsMarked(ppd, "KD03Duplex", "DuplexNoTumble") \|\|
196	ppdIsMarked(ppd, "KD03Duplex", "DuplexTumble"))
197	Duplex = 1;
198
199	return (ppd);
200	}
201
202
203	/*
204	* 'UpdatePageVars()' - Update the page variables for the orientation.
205	*/
206
207	void
208	UpdatePageVars(void)
209	{
2abf387c	210	float temp; /* Swapping variable */
ef416fc2	211
	212
	213	switch (Orientation & 3)
	214	{
	215	case 0 : /* Portait */
	216	break;
	217
	218	case 1 : /* Landscape */
	219	temp = PageLeft;
	220	PageLeft = PageBottom;
	221	PageBottom = temp;
	222
	223	temp = PageRight;
	224	PageRight = PageTop;
	225	PageTop = temp;
	226
	227	temp = PageWidth;
	228	PageWidth = PageLength;
	229	PageLength = temp;
	230	break;
	231
	232	case 2 : /* Reverse Portrait */
	233	temp = PageWidth - PageLeft;
	234	PageLeft = PageWidth - PageRight;
	235	PageRight = temp;
	236
	237	temp = PageLength - PageBottom;
	238	PageBottom = PageLength - PageTop;
	239	PageTop = temp;
	240	break;
	241
	242	case 3 : /* Reverse Landscape */
	243	temp = PageWidth - PageLeft;
	244	PageLeft = PageWidth - PageRight;
	245	PageRight = temp;
	246
	247	temp = PageLength - PageBottom;
	248	PageBottom = PageLength - PageTop;
	249	PageTop = temp;
	250
	251	temp = PageLeft;
	252	PageLeft = PageBottom;
	253	PageBottom = temp;
	254
	255	temp = PageRight;
	256	PageRight = PageTop;
	257	PageTop = temp;
	258
	259	temp = PageWidth;
	260	PageWidth = PageLength;
	261	PageLength = temp;
	262	break;
	263	}
	264	}
	265
	266
	267	/*
	268	* 'WriteCommon()' - Write common procedures...
	269	*/
	270
	271	void
	272	WriteCommon(void)
	273	{
	274	puts("% x y w h ESPrc - Clip to a rectangle.\n"
275	"userdict/ESPrc/rectclip where{pop/rectclip load}\n"
276	"{{newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto\n"
277	"neg 0 rlineto closepath clip newpath}bind}ifelse put");
278	puts("% x y w h ESPrf - Fill a rectangle.\n"
279	"userdict/ESPrf/rectfill where{pop/rectfill load}\n"
280	"{{gsave newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto\n"
281	"neg 0 rlineto closepath fill grestore}bind}ifelse put");
282	puts("% x y w h ESPrs - Stroke a rectangle.\n"
283	"userdict/ESPrs/rectstroke where{pop/rectstroke load}\n"
284	"{{gsave newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto\n"
285	"neg 0 rlineto closepath stroke grestore}bind}ifelse put");
286	}
287
288
289	/*
290	* 'WriteLabelProlog()' - Write the prolog with the classification
291	* and page label.
292	*/
293
294	void
295	WriteLabelProlog(const char label, / I - Page label */
296	float bottom, /* I - Bottom position in points */
297	float top, /* I - Top position in points */
298	float width) /* I - Width in points */
299	{
300	const char classification; / CLASSIFICATION environment variable */
301	const char ptr; / Temporary string pointer */
302
303
304	/*
305	* First get the current classification...
306	*/
307
308	if ((classification = getenv("CLASSIFICATION")) == NULL)
309	classification = "";
310	if (strcmp(classification, "none") == 0)
311	classification = "";
312
313	/*
314	* If there is nothing to show, bind an empty 'write labels' procedure
315	* and return...
316	*/
317
318	if (!classification[0] && (label == NULL \|\| !label[0]))
319	{
320	puts("userdict/ESPwl{}bind put");
321	return;
322	}
323
324	/*
325	* Set the classification + page label string...
326	*/
327
328	printf("userdict");
329	if (strcmp(classification, "confidential") == 0)
330	printf("/ESPpl(CONFIDENTIAL");
331	else if (strcmp(classification, "classified") == 0)
332	printf("/ESPpl(CLASSIFIED");
333	else if (strcmp(classification, "secret") == 0)
334	printf("/ESPpl(SECRET");
335	else if (strcmp(classification, "topsecret") == 0)
336	printf("/ESPpl(TOP SECRET");
337	else if (strcmp(classification, "unclassified") == 0)
338	printf("/ESPpl(UNCLASSIFIED");
339	else
340	{
341	printf("/ESPpl(");
342
343	for (ptr = classification; *ptr; ptr ++)
344	if (ptr < 32 \|\| ptr > 126)
345	printf("\\%03o", *ptr);
346	else if (*ptr == '_')
347	putchar(' ');
348	else
349	{
350	if (ptr == '(' \|\| ptr == ')' \|\| *ptr == '\\')
351	putchar('\\');
352
353	putchar(*ptr);
354	}
355	}
356
357	if (label)
358	{
359	if (classification[0])
360	printf(" - ");
361
362	/*
363	* Quote the label string as needed...
364	*/
365
366	for (ptr = label; *ptr; ptr ++)
367	if (ptr < 32 \|\| ptr > 126)
368	printf("\\%03o", *ptr);
369	else
370	{
371	if (ptr == '(' \|\| ptr == ')' \|\| *ptr == '\\')
372	putchar('\\');
373
374	putchar(*ptr);
375	}
376	}
377
378	puts(")put");
379
380	/*
381	* Then get a 14 point Helvetica-Bold font...
382	*/
383
384	puts("userdict/ESPpf /Helvetica-Bold findfont 14 scalefont put");
385
386	/*
387	* Finally, the procedure to write the labels on the page...
388	*/
389
390	puts("userdict/ESPwl{");
391	puts(" ESPpf setfont");
392	printf(" ESPpl stringwidth pop dup 12 add exch -0.5 mul %.0f add\n",
393	width * 0.5f);
394	puts(" 1 setgray");
395	printf(" dup 6 sub %.0f 3 index 20 ESPrf\n", bottom - 2.0);
396	printf(" dup 6 sub %.0f 3 index 20 ESPrf\n", top - 18.0);
397	puts(" 0 setgray");
398	printf(" dup 6 sub %.0f 3 index 20 ESPrs\n", bottom - 2.0);
399	printf(" dup 6 sub %.0f 3 index 20 ESPrs\n", top - 18.0);
400	printf(" dup %.0f moveto ESPpl show\n", bottom + 2.0);
401	printf(" %.0f moveto ESPpl show\n", top - 14.0);
402	puts("pop");
403	puts("}bind put");
404	}
405
406
407	/*
408	* 'WriteLabels()' - Write the actual page labels.
409	*/
410
411	void
412	WriteLabels(int orient) /* I - Orientation of the page */
413	{
414	float width, /* Width of page */
415	length; /* Length of page */
416
417
418	puts("gsave");
419
420	if ((orient ^ Orientation) & 1)
421	{
422	width = PageLength;
423	length = PageWidth;
424	}
425	else
426	{
427	width = PageWidth;
428	length = PageLength;
429	}
430
431	switch (orient & 3)
432	{
433	case 1 : /* Landscape */
434	printf("%.1f 0.0 translate 90 rotate\n", length);
435	break;
436	case 2 : /* Reverse Portrait */
437	printf("%.1f %.1f translate 180 rotate\n", width, length);
438	break;
439	case 3 : /* Reverse Landscape */
440	printf("0.0 %.1f translate -90 rotate\n", width);
441	break;
442	}
443
444	puts("ESPwl");
445	puts("grestore");
446	}
447
448
449	/*
2abf387c	450	* 'WriteTextComment()' - Write a DSC text comment.
	451	*/
	452
	453	void
	454	WriteTextComment(const char name, / I - Comment name ("Title", etc.) */
	455	const char value) / I - Comment value */
	456	{
	457	int len; /* Current line length */
	458
	459
	460	/*
	461	* DSC comments are of the form:
	462	*
	463	* %%name: value
	464	*
	465	* The name and value must be limited to 7-bit ASCII for most printers,
	466	* so we escape all non-ASCII and ASCII control characters as described
	467	* in the Adobe Document Structuring Conventions specification.
	468	*/
	469
	470	printf("%%%%%s: (", name);
7e86f2f6	471	len = 5 + (int)strlen(name);
2abf387c	472
	473	while (*value)
	474	{
	475	if (value < ' ' \|\| value >= 127)
	476	{
	477	/*
	478	* Escape this character value...
	479	*/
	480
	481	if (len >= 251) /* Keep line < 254 chars */
	482	break;
	483
	484	printf("\\%03o", *value & 255);
	485	len += 4;
	486	}
	487	else if (*value == '\\')
	488	{
	489	/*
	490	* Escape the backslash...
	491	*/
	492
	493	if (len >= 253) /* Keep line < 254 chars */
	494	break;
	495
	496	putchar('\\');
	497	putchar('\\');
	498	len += 2;
	499	}
	500	else
	501	{
	502	/*
	503	* Put this character literally...
	504	*/
	505
	506	if (len >= 254) /* Keep line < 254 chars */
	507	break;
	508
	509	putchar(*value);
	510	len ++;
	511	}
	512
	513	value ++;
	514	}
	515
	516	puts(")");
	517	}