1 /* PostScript Printer Description (PPD) file parser
3 * See http://www.adobe.com/supportservice/devrelations/PDFS/TN/5003.PPD_Spec_v4.3.pdf
5 * Copyright 1998 Huw D M Davies
11 #include "winnt.h" /* HEAP_ZERO_MEMORY */
13 #include "debugtools.h"
17 DEFAULT_DEBUG_CHANNEL(psdrv
);
28 /* map of page names in ppd file to Windows paper constants */
34 {"10x11", DMPAPER_10X11
},
35 {"10x14", DMPAPER_10X14
},
36 {"12x11", DMPAPER_12X11
},
37 {"15x11", DMPAPER_15X11
},
38 {"9x11", DMPAPER_9X11
},
41 {"A3.Transverse", DMPAPER_A3_TRANSVERSE
},
42 {"A3Extra", DMPAPER_A3_EXTRA
},
43 {"A3Extra.Transverse", DMPAPER_A3_EXTRA_TRANSVERSE
},
44 {"A3Rotated", DMPAPER_A3_ROTATED
},
46 {"A4.Transverse", DMPAPER_A4_TRANSVERSE
},
47 {"A4Extra", DMPAPER_A4_EXTRA
},
48 {"A4Plus", DMPAPER_A4_PLUS
},
49 {"A4Rotated", DMPAPER_A4_ROTATED
},
50 {"A4Small", DMPAPER_A4SMALL
},
52 {"A5.Transverse", DMPAPER_A5_TRANSVERSE
},
53 {"A5Extra", DMPAPER_A5_EXTRA
},
54 {"A5Rotated", DMPAPER_A5_ROTATED
},
56 {"A6Rotated", DMPAPER_A6_ROTATED
},
57 {"ARCHC", DMPAPER_CSHEET
},
58 {"ARCHD", DMPAPER_DSHEET
},
59 {"ARCHE", DMPAPER_ESHEET
},
61 {"B4Rotated", DMPAPER_B4_JIS_ROTATED
},
63 {"B5.Transverse", DMPAPER_B5_TRANSVERSE
},
64 {"B5Rotated", DMPAPER_B5_JIS_ROTATED
},
65 {"B6", DMPAPER_B6_JIS
},
66 {"B6Rotated", DMPAPER_B6_JIS_ROTATED
},
67 {"C4", DMPAPER_ENV_C4
},
68 {"C5", DMPAPER_ENV_C5
},
69 {"C6", DMPAPER_ENV_C6
},
70 {"Comm10", DMPAPER_ENV_10
},
71 {"DL", DMPAPER_ENV_DL
},
72 {"DoublePostcard", DMPAPER_DBL_JAPANESE_POSTCARD
},
73 {"DoublePostcardRotated", DMPAPER_DBL_JAPANESE_POSTCARD_ROTATED
},
74 {"Env9", DMPAPER_ENV_9
},
75 {"Env10", DMPAPER_ENV_10
},
76 {"Env11", DMPAPER_ENV_11
},
77 {"Env12", DMPAPER_ENV_12
},
78 {"Env14", DMPAPER_ENV_14
},
79 {"EnvC3", DMPAPER_ENV_C3
},
80 {"EnvC4", DMPAPER_ENV_C4
},
81 {"EnvC5", DMPAPER_ENV_C5
},
82 {"EnvC6", DMPAPER_ENV_C6
},
83 {"EnvC65", DMPAPER_ENV_C65
},
84 {"EnvChou3", DMPAPER_JENV_CHOU3
},
85 {"EnvChou3Rotated", DMPAPER_JENV_CHOU3_ROTATED
},
86 {"EnvChou4", DMPAPER_JENV_CHOU4
},
87 {"EnvChou4Rotated", DMPAPER_JENV_CHOU4_ROTATED
},
88 {"EnvDL", DMPAPER_ENV_DL
},
89 {"EnvInvite", DMPAPER_ENV_INVITE
},
90 {"EnvISOB4", DMPAPER_ENV_B4
},
91 {"EnvISOB5", DMPAPER_ENV_B5
},
92 {"EnvISOB6", DMPAPER_ENV_B6
},
93 {"EnvItalian", DMPAPER_ENV_ITALY
},
94 {"EnvKaku2", DMPAPER_JENV_KAKU2
},
95 {"EnvKaku2Rotated", DMPAPER_JENV_KAKU2_ROTATED
},
96 {"EnvKaku3", DMPAPER_JENV_KAKU3
},
97 {"EnvKaku3Rotated", DMPAPER_JENV_KAKU3_ROTATED
},
98 {"EnvMonarch", DMPAPER_ENV_MONARCH
},
99 {"EnvPersonal", DMPAPER_ENV_PERSONAL
},
100 {"EnvPRC1", DMPAPER_PENV_1
},
101 {"EnvPRC1Rotated", DMPAPER_PENV_1_ROTATED
},
102 {"EnvPRC2", DMPAPER_PENV_2
},
103 {"EnvPRC2Rotated", DMPAPER_PENV_2_ROTATED
},
104 {"EnvPRC3", DMPAPER_PENV_3
},
105 {"EnvPRC3Rotated", DMPAPER_PENV_3_ROTATED
},
106 {"EnvPRC4", DMPAPER_PENV_4
},
107 {"EnvPRC4Rotated", DMPAPER_PENV_4_ROTATED
},
108 {"EnvPRC5", DMPAPER_PENV_5
},
109 {"EnvPRC5Rotated", DMPAPER_PENV_5_ROTATED
},
110 {"EnvPRC6", DMPAPER_PENV_6
},
111 {"EnvPRC6Rotated", DMPAPER_PENV_6_ROTATED
},
112 {"EnvPRC7", DMPAPER_PENV_7
},
113 {"EnvPRC7Rotated", DMPAPER_PENV_7_ROTATED
},
114 {"EnvPRC8", DMPAPER_PENV_8
},
115 {"EnvPRC8Rotated", DMPAPER_PENV_8_ROTATED
},
116 {"EnvPRC9", DMPAPER_PENV_9
},
117 {"EnvPRC9Rotated", DMPAPER_PENV_9_ROTATED
},
118 {"EnvPRC10", DMPAPER_PENV_10
},
119 {"EnvPRC10Rotated", DMPAPER_PENV_10_ROTATED
},
120 {"EnvYou4", DMPAPER_JENV_YOU4
},
121 {"EnvYou4Rotated", DMPAPER_JENV_YOU4_ROTATED
},
122 {"Executive", DMPAPER_EXECUTIVE
},
123 {"FanFoldUS", DMPAPER_FANFOLD_US
},
124 {"FanFoldGerman", DMPAPER_FANFOLD_STD_GERMAN
},
125 {"FanFoldGermanLegal", DMPAPER_FANFOLD_LGL_GERMAN
},
126 {"Folio", DMPAPER_FOLIO
},
127 {"ISOB4", DMPAPER_ISO_B4
},
128 {"ISOB5Extra", DMPAPER_B5_EXTRA
},
129 {"Ledger", DMPAPER_LEDGER
},
130 {"Legal", DMPAPER_LEGAL
},
131 {"LegalExtra", DMPAPER_LEGAL_EXTRA
},
132 {"Letter", DMPAPER_LETTER
},
133 {"Letter.Transverse", DMPAPER_LETTER_TRANSVERSE
},
134 {"LetterExtra", DMPAPER_LETTER_EXTRA
},
135 {"LetterExtra.Transverse", DMPAPER_LETTER_EXTRA_TRANSVERSE
},
136 {"LetterPlus", DMPAPER_LETTER_PLUS
},
137 {"LetterRotated", DMPAPER_LETTER_ROTATED
},
138 {"LetterSmall", DMPAPER_LETTERSMALL
},
139 {"Monarch", DMPAPER_ENV_MONARCH
},
140 {"Note", DMPAPER_NOTE
},
141 {"Postcard", DMPAPER_JAPANESE_POSTCARD
},
142 {"PostcardRotated", DMPAPER_JAPANESE_POSTCARD_ROTATED
},
143 {"PRC16K", DMPAPER_P16K
},
144 {"PRC16KRotated", DMPAPER_P16K_ROTATED
},
145 {"PRC32K", DMPAPER_P32K
},
146 {"PRC32KBig", DMPAPER_P32KBIG
},
147 {"PRC32KBigRotated", DMPAPER_P32KBIG_ROTATED
},
148 {"PRC32KRotated", DMPAPER_P32K_ROTATED
},
149 {"Quarto", DMPAPER_QUARTO
},
150 {"Statement", DMPAPER_STATEMENT
},
151 {"SuperA", DMPAPER_A_PLUS
},
152 {"SuperB", DMPAPER_B_PLUS
},
153 {"Tabloid", DMPAPER_TABLOID
},
154 {"TabloidExtra", DMPAPER_TABLOID_EXTRA
},
158 /* the same for bin names */
164 /* In alphabetical order by the PSName member */
165 {"Cassette", DMBIN_CASSETTE
},
166 {"Envelope", DMBIN_ENVELOPE
},
167 {"LargeCapacity", DMBIN_LARGECAPACITY
},
168 {"Lower", DMBIN_LOWER
},
169 {"Manual", DMBIN_MANUAL
},
170 {"ManualEnv", DMBIN_ENVMANUAL
},
171 {"ManualFeed", DMBIN_MANUAL
},
172 {"Middle", DMBIN_MIDDLE
},
173 {"OnlyOne", DMBIN_ONLYONE
},
174 {"Upper", DMBIN_UPPER
},
178 /***********************************************************************
182 * Copies str into a newly allocated string from the process heap subsituting
183 * hex strings enclosed in '<' and '>' for their byte codes.
186 static char *PSDRV_PPDDecodeHex(char *str
)
188 char *buf
, *in
, *out
;
191 buf
= HeapAlloc(PSDRV_Heap
, 0, strlen(str
) + 1);
195 for(in
= str
, out
= buf
; *in
; in
++) {
206 else if(isspace(*in
))
210 if(!isxdigit(*in
) || !isxdigit(*(in
+ 1))) {
211 ERR("Invalid hex char in hex string\n");
212 HeapFree(PSDRV_Heap
, 0, buf
);
216 for(i
= 0; i
< 2; i
++) {
217 if(isdigit(*(in
+ i
)))
218 *out
|= (*(in
+ i
) - '0') << ((1-i
) * 4);
220 *out
|= (toupper(*(in
+ i
)) - 'A' + 10) << ((1-i
) * 4);
232 /***********************************************************************
234 * PSDRV_PPDGetTransValue
237 static BOOL
PSDRV_PPDGetTransValue(char *start
, PPDTuple
*tuple
)
241 end
= strpbrk(start
, "\r\n");
242 if(end
== start
) return FALSE
;
243 if(!end
) end
= start
+ strlen(start
);
244 buf
= HeapAlloc( PSDRV_Heap
, 0, end
- start
+ 1 );
245 memcpy(buf
, start
, end
- start
);
246 *(buf
+ (end
- start
)) = '\0';
247 tuple
->valtrans
= PSDRV_PPDDecodeHex(buf
);
248 HeapFree( PSDRV_Heap
, 0, buf
);
253 /***********************************************************************
255 * PSDRV_PPDGetInvocationValue
257 * Passed string that should be surrounded by `"'s, return string alloced
260 static BOOL
PSDRV_PPDGetInvocationValue(FILE *fp
, char *pos
, PPDTuple
*tuple
)
262 char *start
, *end
, *buf
;
267 buf
= HeapAlloc( PSDRV_Heap
, 0, strlen(start
) + 1 );
270 end
= strchr(start
, '"');
272 buf
= HeapReAlloc( PSDRV_Heap
, 0, buf
,
273 len
+ (end
- start
) + 1 );
274 memcpy(buf
+ len
, start
, end
- start
);
275 *(buf
+ len
+ (end
- start
)) = '\0';
277 start
= strchr(end
, '/');
279 return PSDRV_PPDGetTransValue(start
+ 1, tuple
);
282 int sl
= strlen(start
);
283 buf
= HeapReAlloc( PSDRV_Heap
, 0, buf
, len
+ sl
+ 1 );
284 strcpy(buf
+ len
, start
);
287 } while( fgets((start
= line
), sizeof(line
), fp
) );
290 HeapFree( PSDRV_Heap
, 0, buf
);
295 /***********************************************************************
297 * PSDRV_PPDGetQuotedValue
299 * Passed string that should be surrounded by `"'s. Expand <xx> as hex
300 * return string alloced from process heap.
302 static BOOL
PSDRV_PPDGetQuotedValue(FILE *fp
, char *pos
, PPDTuple
*tuple
)
306 if(!PSDRV_PPDGetInvocationValue(fp
, pos
, tuple
))
308 buf
= PSDRV_PPDDecodeHex(tuple
->value
);
309 HeapFree(PSDRV_Heap
, 0, tuple
->value
);
315 /***********************************************************************
317 * PSDRV_PPDGetStringValue
319 * Just strip leading white space.
321 static BOOL
PSDRV_PPDGetStringValue(char *str
, PPDTuple
*tuple
)
323 char *start
= str
, *end
;
325 while(*start
!= '\0' && isspace(*start
))
328 end
= strpbrk(start
, "/\r\n");
329 if(!end
) end
= start
+ strlen(start
);
330 tuple
->value
= HeapAlloc( PSDRV_Heap
, 0, (end
- start
) + 1 );
331 memcpy(tuple
->value
, start
, end
- start
);
332 *(tuple
->value
+ (end
- start
)) = '\0';
334 PSDRV_PPDGetTransValue(end
+ 1, tuple
);
339 /***********************************************************************
341 * PSDRV_PPDSymbolValue
343 * Not implemented yet.
345 static BOOL
PSDRV_PPDGetSymbolValue(char *pos
, PPDTuple
*tuple
)
352 /*********************************************************************
354 * PSDRV_PPDGetNextTuple
356 * Gets the next Keyword Option Value tuple from the file. Allocs space off
357 * the process heap which should be free()ed by the caller if not needed.
359 static BOOL
PSDRV_PPDGetNextTuple(FILE *fp
, PPDTuple
*tuple
)
361 char line
[257], *opt
= NULL
, *cp
, *trans
, *endkey
;
362 BOOL gotoption
= TRUE
;
364 memset(tuple
, 0, sizeof(*tuple
));
367 if(!fgets(line
, sizeof(line
), fp
))
369 if(line
[0] == '*' && line
[1] != '%' && strncmp(line
, "*End", 4))
373 if(line
[strlen(line
)-1] != '\n') {
374 ERR("Line too long.\n");
378 for(cp
= line
; !isspace(*cp
) && *cp
!= ':'; cp
++)
382 if(*cp
== ':') { /* <key>: */
387 if(*cp
== ':') { /* <key> : */
389 } else { /* <key> <option> */
394 tuple
->key
= HeapAlloc( PSDRV_Heap
, 0, endkey
- line
+ 1 );
395 if(!tuple
->key
) return FALSE
;
397 memcpy(tuple
->key
, line
, endkey
- line
);
398 tuple
->key
[endkey
- line
] = '\0';
400 if(gotoption
) { /* opt points to 1st non-space character of the option */
401 cp
= strpbrk(opt
, ":/");
403 ERR("Error in line '%s'?\n", line
);
406 tuple
->option
= HeapAlloc( PSDRV_Heap
, 0, cp
- opt
+ 1 );
407 if(!tuple
->option
) return FALSE
;
408 memcpy(tuple
->option
, opt
, cp
- opt
);
409 tuple
->option
[cp
- opt
] = '\0';
413 cp
= strchr(trans
, ':');
415 ERR("Error in line '%s'?\n", line
);
418 buf
= HeapAlloc( PSDRV_Heap
, 0, cp
- trans
+ 1 );
419 if(!buf
) return FALSE
;
420 memcpy(buf
, trans
, cp
- trans
);
421 buf
[cp
- trans
] = '\0';
422 tuple
->opttrans
= PSDRV_PPDDecodeHex(buf
);
423 HeapFree( PSDRV_Heap
, 0, buf
);
427 /* cp should point to a ':', so we increment past it */
435 if( (!gotoption
&& strncmp(tuple
->key
, "*?", 2) ) ||
436 !strncmp(tuple
->key
, "*JCL", 4))
437 PSDRV_PPDGetQuotedValue(fp
, cp
, tuple
);
439 PSDRV_PPDGetInvocationValue(fp
, cp
, tuple
);
443 PSDRV_PPDGetSymbolValue(cp
, tuple
);
447 PSDRV_PPDGetStringValue(cp
, tuple
);
452 /*********************************************************************
454 * PSDRV_PPDGetPageSizeInfo
456 * Searches ppd PageSize list to return entry matching name or creates new
457 * entry which is appended to the list if name is not found.
460 PAGESIZE
*PSDRV_PPDGetPageSizeInfo(PPD
*ppd
, char *name
)
462 PAGESIZE
*page
= ppd
->PageSizes
, *lastpage
;
465 page
= ppd
->PageSizes
= HeapAlloc( PSDRV_Heap
,
466 HEAP_ZERO_MEMORY
, sizeof(*page
) );
469 for( ; page
; page
= page
->next
) {
470 if(!strcmp(page
->Name
, name
))
475 lastpage
->next
= HeapAlloc( PSDRV_Heap
,
476 HEAP_ZERO_MEMORY
, sizeof(*page
) );
477 return lastpage
->next
;
481 /**********************************************************************
485 * Returns ptr alloced from heap to first word in str. Strips leading spaces.
486 * Puts ptr to next word in next
488 static char *PSDRV_PPDGetWord(char *str
, char **next
)
490 char *start
, *end
, *ret
;
493 while(start
&& *start
&& isspace(*start
))
495 if(!start
|| !*start
) return FALSE
;
498 while(*end
&& !isspace(*end
))
501 ret
= HeapAlloc( PSDRV_Heap
, 0, end
- start
+ 1 );
502 memcpy(ret
, start
, end
- start
);
503 *(ret
+ (end
- start
)) = '\0';
505 while(*end
&& isspace(*end
))
515 /***********************************************************************
521 PPD
*PSDRV_ParsePPD(char *fname
)
527 TRACE("%s\n", fname
);
529 if((fp
= fopen(fname
, "r")) == NULL
) {
530 WARN("Couldn't open ppd file '%s'\n", fname
);
534 ppd
= HeapAlloc( PSDRV_Heap
, HEAP_ZERO_MEMORY
, sizeof(*ppd
));
536 ERR("Unable to allocate memory for ppd\n");
542 while( PSDRV_PPDGetNextTuple(fp
, &tuple
)) {
544 if(!strcmp("*NickName", tuple
.key
)) {
545 ppd
->NickName
= tuple
.value
;
547 TRACE("NickName = '%s'\n", ppd
->NickName
);
550 else if(!strcmp("*LanguageLevel", tuple
.key
)) {
551 sscanf(tuple
.value
, "%d", &(ppd
->LanguageLevel
));
552 TRACE("LanguageLevel = %d\n", ppd
->LanguageLevel
);
555 else if(!strcmp("*ColorDevice", tuple
.key
)) {
556 if(!strcasecmp(tuple
.value
, "true"))
557 ppd
->ColorDevice
= TRUE
;
558 TRACE("ColorDevice = %d\n", (int)ppd
->ColorDevice
);
561 else if((!strcmp("*DefaultResolution", tuple
.key
)) ||
562 (!strcmp("*DefaultJCLResolution", tuple
.key
))) {
563 sscanf(tuple
.value
, "%d", &(ppd
->DefaultResolution
));
564 TRACE("DefaultResolution = %d\n", ppd
->DefaultResolution
);
567 else if(!strcmp("*Font", tuple
.key
)) {
570 for(fn
= ppd
->InstalledFonts
; fn
&& fn
->next
; fn
= fn
->next
)
573 ppd
->InstalledFonts
= HeapAlloc(PSDRV_Heap
,
574 HEAP_ZERO_MEMORY
, sizeof(*fn
));
575 fn
= ppd
->InstalledFonts
;
577 fn
->next
= HeapAlloc(PSDRV_Heap
,
578 HEAP_ZERO_MEMORY
, sizeof(*fn
));
581 fn
->Name
= tuple
.option
;
585 else if(!strcmp("*DefaultFont", tuple
.key
)) {
586 ppd
->DefaultFont
= tuple
.value
;
590 else if(!strcmp("*JCLBegin", tuple
.key
)) {
591 ppd
->JCLBegin
= tuple
.value
;
595 else if(!strcmp("*JCLToPSInterpreter", tuple
.key
)) {
596 ppd
->JCLToPSInterpreter
= tuple
.value
;
600 else if(!strcmp("*JCLEnd", tuple
.key
)) {
601 ppd
->JCLEnd
= tuple
.value
;
605 else if(!strcmp("*PageSize", tuple
.key
)) {
607 page
= PSDRV_PPDGetPageSizeInfo(ppd
, tuple
.option
);
612 page
->Name
= tuple
.option
;
615 for(i
= 0; PageTrans
[i
].PSName
; i
++) {
616 if(!strcmp(PageTrans
[i
].PSName
, page
->Name
)) { /* case ? */
617 page
->WinPage
= PageTrans
[i
].WinPage
;
622 FIXME("Can't find Windows page type for '%s'\n",
625 if(!page
->FullName
) {
627 page
->FullName
= tuple
.opttrans
;
628 tuple
.opttrans
= NULL
;
630 page
->FullName
= HEAP_strdupA( PSDRV_Heap
, 0, page
->Name
);
633 if(!page
->InvocationString
) {
634 page
->InvocationString
= tuple
.value
;
639 else if(!strcmp("*ImageableArea", tuple
.key
)) {
641 page
= PSDRV_PPDGetPageSizeInfo(ppd
, tuple
.option
);
644 page
->Name
= tuple
.option
;
647 if(!page
->FullName
) {
648 page
->FullName
= tuple
.opttrans
;
649 tuple
.opttrans
= NULL
;
652 #define PIA page->ImageableArea
654 PIA
= HeapAlloc( PSDRV_Heap
, 0, sizeof(*PIA
) );
655 sscanf(tuple
.value
, "%f%f%f%f", &PIA
->llx
, &PIA
->lly
,
656 &PIA
->urx
, &PIA
->ury
);
662 else if(!strcmp("*PaperDimension", tuple
.key
)) {
664 page
= PSDRV_PPDGetPageSizeInfo(ppd
, tuple
.option
);
667 page
->Name
= tuple
.option
;
670 if(!page
->FullName
) {
671 page
->FullName
= tuple
.opttrans
;
672 tuple
.opttrans
= NULL
;
675 #define PD page->PaperDimension
677 PD
= HeapAlloc( PSDRV_Heap
, 0, sizeof(*PD
) );
678 sscanf(tuple
.value
, "%f%f", &PD
->x
, &PD
->y
);
683 else if(!strcmp("*LandscapeOrientation", tuple
.key
)) {
684 if(!strcmp(tuple
.value
, "Plus90"))
685 ppd
->LandscapeOrientation
= 90;
686 else if(!strcmp(tuple
.value
, "Minus90"))
687 ppd
->LandscapeOrientation
= -90;
689 /* anything else, namely 'any', leaves value at 0 */
691 TRACE("LandscapeOrientation = %d\n",
692 ppd
->LandscapeOrientation
);
695 else if(!strcmp("*UIConstraints", tuple
.key
)) {
697 CONSTRAINT
*con
, **insert
= &ppd
->Constraints
;
700 insert
= &((*insert
)->next
);
702 con
= *insert
= HeapAlloc( PSDRV_Heap
, HEAP_ZERO_MEMORY
,
707 con
->Feature1
= PSDRV_PPDGetWord(start
, &start
);
708 con
->Value1
= PSDRV_PPDGetWord(start
, &start
);
709 con
->Feature2
= PSDRV_PPDGetWord(start
, &start
);
710 con
->Value2
= PSDRV_PPDGetWord(start
, &start
);
713 else if(!strcmp("*InputSlot", tuple
.key
)) {
714 INPUTSLOT
*slot
, **insert
= &ppd
->InputSlots
;
718 insert
= &((*insert
)->next
);
720 slot
= *insert
= HeapAlloc( PSDRV_Heap
, HEAP_ZERO_MEMORY
,
723 slot
->Name
= tuple
.option
;
726 slot
->FullName
= tuple
.opttrans
;
727 tuple
.opttrans
= NULL
;
729 slot
->FullName
= HEAP_strdupA( PSDRV_Heap
, 0, slot
->Name
);
733 slot
->InvocationString
= tuple
.value
;
738 for(i
= 0; BinTrans
[i
].PSName
; i
++) {
739 if(!strcmp(BinTrans
[i
].PSName
, slot
->Name
)) { /* case ? */
740 slot
->WinBin
= BinTrans
[i
].WinBin
;
745 FIXME("Can't find Windows bin type for '%s'\n",
750 if(tuple
.key
) HeapFree(PSDRV_Heap
, 0, tuple
.key
);
751 if(tuple
.option
) HeapFree(PSDRV_Heap
, 0, tuple
.option
);
752 if(tuple
.value
) HeapFree(PSDRV_Heap
, 0, tuple
.value
);
753 if(tuple
.opttrans
) HeapFree(PSDRV_Heap
, 0, tuple
.opttrans
);
754 if(tuple
.valtrans
) HeapFree(PSDRV_Heap
, 0, tuple
.valtrans
);
765 OPTIONENTRY
*optionEntry
;
767 for(fn
= ppd
->InstalledFonts
; fn
; fn
= fn
->next
)
768 TRACE("'%s'\n", fn
->Name
);
770 for(page
= ppd
->PageSizes
; page
; page
= page
->next
) {
771 TRACE("'%s' aka '%s' (%d) invoked by '%s'\n", page
->Name
,
772 page
->FullName
, page
->WinPage
, page
->InvocationString
);
773 if(page
->ImageableArea
)
774 TRACE("Area = %.2f,%.2f - %.2f, %.2f\n",
775 page
->ImageableArea
->llx
, page
->ImageableArea
->lly
,
776 page
->ImageableArea
->urx
, page
->ImageableArea
->ury
);
777 if(page
->PaperDimension
)
778 TRACE("Dimension = %.2f x %.2f\n",
779 page
->PaperDimension
->x
, page
->PaperDimension
->y
);
782 for(con
= ppd
->Constraints
; con
; con
= con
->next
)
783 TRACE("CONSTRAINTS@ %s %s %s %s\n", con
->Feature1
,
784 con
->Value1
, con
->Feature2
, con
->Value2
);
786 for(option
= ppd
->InstalledOptions
; option
; option
= option
->next
) {
787 TRACE("OPTION: %s %s %s\n", option
->OptionName
,
788 option
->FullName
, option
->DefaultOption
);
789 for(optionEntry
= option
->Options
; optionEntry
;
790 optionEntry
= optionEntry
->next
)
791 TRACE("\tOPTIONENTRY: %s %s %s\n", optionEntry
->Name
,
792 optionEntry
->FullName
, optionEntry
->InvocationString
);
795 for(slot
= ppd
->InputSlots
; slot
; slot
= slot
->next
)
796 TRACE("INPUTSLOTS '%s' Name '%s' (%d) Invocation '%s'\n",
797 slot
->Name
, slot
->FullName
, slot
->WinBin
,
798 slot
->InvocationString
);