Implemented CPSignHash and CPVerifySignature.
[wine] / dlls / wineps / init.c
1 /*
2  *      PostScript driver initialization functions
3  *
4  *      Copyright 1998 Huw D M Davies
5  *      Copyright 2001 Marcus Meissner
6  *
7  * This library is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public
9  * License as published by the Free Software Foundation; either
10  * version 2.1 of the License, or (at your option) any later version.
11  *
12  * This library is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with this library; if not, write to the Free Software
19  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
20  */
21
22 #include "config.h"
23 #include "wine/port.h"
24
25 #include <string.h>
26 #ifdef HAVE_UNISTD_H
27 # include <unistd.h>
28 #endif
29
30 #define NONAMELESSUNION
31 #define NONAMELESSSTRUCT
32 #include "psdrv.h"
33 #include "wine/debug.h"
34 #include "winreg.h"
35 #include "winspool.h"
36 #include "winerror.h"
37 #include "wownt32.h"
38 #include "heap.h"
39
40 WINE_DEFAULT_DEBUG_CHANNEL(psdrv);
41
42 #ifdef HAVE_CUPS_CUPS_H
43 #include <cups/cups.h>
44
45 #ifndef SONAME_LIBCUPS
46 #define SONAME_LIBCUPS "libcups.so"
47 #endif
48
49 static void *cupshandle = NULL;
50 #endif
51
52 static PSDRV_DEVMODEA DefaultDevmode =
53 {
54   { /* dmPublic */
55 /* dmDeviceName */      "Wine PostScript Driver",
56 /* dmSpecVersion */     0x30a,
57 /* dmDriverVersion */   0x001,
58 /* dmSize */            sizeof(DEVMODEA),
59 /* dmDriverExtra */     sizeof(PSDRV_DEVMODEA)-sizeof(DEVMODEA),
60 /* dmFields */          DM_ORIENTATION | DM_PAPERSIZE | DM_SCALE |
61                         DM_COPIES | DM_DEFAULTSOURCE | DM_COLOR |
62                         DM_YRESOLUTION | DM_TTOPTION,
63    { /* u1 */
64      { /* s1 */
65 /* dmOrientation */     DMORIENT_PORTRAIT,
66 /* dmPaperSize */       DMPAPER_LETTER,
67 /* dmPaperLength */     2794,
68 /* dmPaperWidth */      2159
69      }
70    },
71 /* dmScale */           100, /* ?? */
72 /* dmCopies */          1,
73 /* dmDefaultSource */   DMBIN_AUTO,
74 /* dmPrintQuality */    0,
75 /* dmColor */           DMCOLOR_COLOR,
76 /* dmDuplex */          DMDUP_SIMPLEX,
77 /* dmYResolution */     0,
78 /* dmTTOption */        DMTT_SUBDEV,
79 /* dmCollate */         0,
80 /* dmFormName */        "",
81 /* dmUnusedPadding */   0,
82 /* dmBitsPerPel */      0,
83 /* dmPelsWidth */       0,
84 /* dmPelsHeight */      0,
85 /* dmDisplayFlags */    0,
86 /* dmDisplayFrequency */ 0,
87 /* dmICMMethod */       0,
88 /* dmICMIntent */       0,
89 /* dmMediaType */       0,
90 /* dmDitherType */      0,
91 /* dmReserved1 */       0,
92 /* dmReserved2 */       0,
93 /* dmPanningWidth */    0,
94 /* dmPanningHeight */   0
95   },
96   { /* dmDocPrivate */
97     /* dummy */ 0
98   },
99   { /* dmDrvPrivate */
100     /* numInstalledOptions */ 0
101   }
102 };
103
104 HANDLE PSDRV_Heap = 0;
105
106 static HFONT PSDRV_DefaultFont = 0;
107 static LOGFONTA DefaultLogFont = {
108     100, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET, 0, 0,
109     DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN, ""
110 };
111
112 /*********************************************************************
113  *           DllMain
114  *
115  * Initializes font metrics and registers driver. wineps dll entry point.
116  *
117  */
118 BOOL WINAPI DllMain( HINSTANCE hinst, DWORD reason, LPVOID reserved )
119 {
120     TRACE("(%p, 0x%08lx, %p)\n", hinst, reason, reserved);
121
122     switch(reason) {
123
124         case DLL_PROCESS_ATTACH:
125             DisableThreadLibraryCalls(hinst);
126
127             PSDRV_Heap = HeapCreate(0, 0x10000, 0);
128             if (PSDRV_Heap == NULL)
129                 return FALSE;
130
131             if (PSDRV_GetFontMetrics() == FALSE) {
132                 HeapDestroy(PSDRV_Heap);
133                 return FALSE;
134             }
135
136             PSDRV_DefaultFont = CreateFontIndirectA(&DefaultLogFont);
137             if (PSDRV_DefaultFont == NULL) {
138                 HeapDestroy(PSDRV_Heap);
139                 return FALSE;
140             }
141 #ifdef HAVE_CUPS_CUPS_H
142             /* dynamically load CUPS if not yet loaded */
143             if (!cupshandle) {
144                 cupshandle = wine_dlopen(SONAME_LIBCUPS, RTLD_NOW, NULL, 0);
145                 if (!cupshandle) cupshandle = (void*)-1;
146             }
147 #endif
148             break;
149
150         case DLL_PROCESS_DETACH:
151
152             DeleteObject( PSDRV_DefaultFont );
153             HeapDestroy( PSDRV_Heap );
154 #ifdef HAVE_CUPS_CUPS_H
155             if (cupshandle && (cupshandle != (void*)-1)) {
156                 wine_dlclose(cupshandle, NULL, 0);
157                 cupshandle = NULL;
158             }
159 #endif
160             break;
161     }
162
163     return TRUE;
164 }
165
166
167 static void PSDRV_UpdateDevCaps( PSDRV_PDEVICE *physDev )
168 {
169     PAGESIZE *page;
170     INT width = 0, height = 0;
171
172     if(physDev->Devmode->dmPublic.dmFields & DM_PAPERSIZE) {
173         for(page = physDev->pi->ppd->PageSizes; page; page = page->next) {
174             if(page->WinPage == physDev->Devmode->dmPublic.u1.s1.dmPaperSize)
175                 break;
176         }
177
178         if(!page) {
179             FIXME("Can't find page\n");
180             physDev->ImageableArea.left = 0;
181             physDev->ImageableArea.right = 0;
182             physDev->ImageableArea.bottom = 0;
183             physDev->ImageableArea.top = 0;
184             physDev->PageSize.cx = 0;
185             physDev->PageSize.cy = 0;
186         } else if(page->ImageableArea) {
187           /* physDev sizes in device units; ppd sizes in 1/72" */
188             physDev->ImageableArea.left = page->ImageableArea->llx *
189               physDev->logPixelsX / 72;
190             physDev->ImageableArea.right = page->ImageableArea->urx *
191               physDev->logPixelsX / 72;
192             physDev->ImageableArea.bottom = page->ImageableArea->lly *
193               physDev->logPixelsY / 72;
194             physDev->ImageableArea.top = page->ImageableArea->ury *
195               physDev->logPixelsY / 72;
196             physDev->PageSize.cx = page->PaperDimension->x *
197               physDev->logPixelsX / 72;
198             physDev->PageSize.cy = page->PaperDimension->y *
199               physDev->logPixelsY / 72;
200         } else {
201             physDev->ImageableArea.left = physDev->ImageableArea.bottom = 0;
202             physDev->ImageableArea.right = physDev->PageSize.cx =
203               page->PaperDimension->x * physDev->logPixelsX / 72;
204             physDev->ImageableArea.top = physDev->PageSize.cy =
205               page->PaperDimension->y * physDev->logPixelsY / 72;
206         }
207     } else if((physDev->Devmode->dmPublic.dmFields & DM_PAPERLENGTH) &&
208               (physDev->Devmode->dmPublic.dmFields & DM_PAPERWIDTH)) {
209       /* physDev sizes in device units; Devmode sizes in 1/10 mm */
210         physDev->ImageableArea.left = physDev->ImageableArea.bottom = 0;
211         physDev->ImageableArea.right = physDev->PageSize.cx =
212           physDev->Devmode->dmPublic.u1.s1.dmPaperWidth *
213           physDev->logPixelsX / 254;
214         physDev->ImageableArea.top = physDev->PageSize.cy =
215           physDev->Devmode->dmPublic.u1.s1.dmPaperLength *
216           physDev->logPixelsY / 254;
217     } else {
218         FIXME("Odd dmFields %lx\n", physDev->Devmode->dmPublic.dmFields);
219         physDev->ImageableArea.left = 0;
220         physDev->ImageableArea.right = 0;
221         physDev->ImageableArea.bottom = 0;
222         physDev->ImageableArea.top = 0;
223         physDev->PageSize.cx = 0;
224         physDev->PageSize.cy = 0;
225     }
226
227     TRACE("ImageableArea = %ld,%ld - %ld,%ld: PageSize = %ldx%ld\n",
228           physDev->ImageableArea.left, physDev->ImageableArea.bottom,
229           physDev->ImageableArea.right, physDev->ImageableArea.top,
230           physDev->PageSize.cx, physDev->PageSize.cy);
231
232     /* these are in device units */
233     width = physDev->ImageableArea.right - physDev->ImageableArea.left;
234     height = physDev->ImageableArea.top - physDev->ImageableArea.bottom;
235
236     if(physDev->Devmode->dmPublic.u1.s1.dmOrientation == DMORIENT_PORTRAIT) {
237         physDev->horzRes = width;
238         physDev->vertRes = height;
239     } else {
240         physDev->horzRes = height;
241         physDev->vertRes = width;
242     }
243
244     /* these are in mm */
245     physDev->horzSize = (physDev->horzRes * 25.4) / physDev->logPixelsX;
246     physDev->vertSize = (physDev->vertRes * 25.4) / physDev->logPixelsY;
247
248     TRACE("devcaps: horzSize = %dmm, vertSize = %dmm, "
249           "horzRes = %d, vertRes = %d\n",
250           physDev->horzSize, physDev->vertSize,
251           physDev->horzRes, physDev->vertRes);
252 }
253
254
255 /***********************************************************
256  *      DEVMODEdupWtoA
257  *
258  * Creates an ascii copy of supplied devmode on heap
259  *
260  * Copied from dlls/winspool/info.c until full unicodification
261  */
262 static LPDEVMODEA DEVMODEdupWtoA(HANDLE heap, const DEVMODEW *dmW)
263 {
264     LPDEVMODEA dmA;
265     DWORD size;
266     BOOL Formname;
267     ptrdiff_t off_formname = (const char *)dmW->dmFormName - (const char *)dmW;
268
269     if(!dmW) return NULL;
270     Formname = (dmW->dmSize > off_formname);
271     size = dmW->dmSize - CCHDEVICENAME - (Formname ? CCHFORMNAME : 0);
272     dmA = HeapAlloc(heap, HEAP_ZERO_MEMORY, size + dmW->dmDriverExtra);
273     WideCharToMultiByte(CP_ACP, 0, dmW->dmDeviceName, -1, dmA->dmDeviceName,
274                         CCHDEVICENAME, NULL, NULL);
275     if(!Formname) {
276       memcpy(&dmA->dmSpecVersion, &dmW->dmSpecVersion,
277              dmW->dmSize - CCHDEVICENAME * sizeof(WCHAR));
278     } else {
279       memcpy(&dmA->dmSpecVersion, &dmW->dmSpecVersion,
280              off_formname - CCHDEVICENAME * sizeof(WCHAR));
281       WideCharToMultiByte(CP_ACP, 0, dmW->dmFormName, -1, dmA->dmFormName,
282                           CCHFORMNAME, NULL, NULL);
283       memcpy(&dmA->dmLogPixels, &dmW->dmLogPixels, dmW->dmSize -
284              (off_formname + CCHFORMNAME * sizeof(WCHAR)));
285     }
286     dmA->dmSize = size;
287     memcpy((char *)dmA + dmA->dmSize, (const char *)dmW + dmW->dmSize,
288            dmW->dmDriverExtra);
289     return dmA;
290 }
291
292
293 /**********************************************************************
294  *           PSDRV_CreateDC
295  */
296 BOOL PSDRV_CreateDC( HDC hdc, PSDRV_PDEVICE **pdev, LPCWSTR driver, LPCWSTR device,
297                      LPCWSTR output, const DEVMODEW* initData )
298 {
299     PSDRV_PDEVICE *physDev;
300     PRINTERINFO *pi;
301     char deviceA[CCHDEVICENAME];
302
303     /* If no device name was specified, retrieve the device name
304      * from the DEVMODE structure from the DC's physDev.
305      * (See CreateCompatibleDC) */
306     if ( !device && *pdev )
307     {
308         physDev = *pdev;
309         strcpy(deviceA, physDev->Devmode->dmPublic.dmDeviceName);
310     }
311     else
312         WideCharToMultiByte(CP_ACP, 0, device, -1, deviceA, sizeof(deviceA), NULL, NULL);
313     pi = PSDRV_FindPrinterInfo(deviceA);
314
315     TRACE("(%s %s %s %p)\n", debugstr_w(driver), debugstr_w(device),
316                              debugstr_w(output), initData);
317
318     if(!pi) return FALSE;
319
320     if(!pi->Fonts) {
321         MESSAGE("To use WINEPS you need to install some AFM files.\n");
322         return FALSE;
323     }
324
325     physDev = (PSDRV_PDEVICE *)HeapAlloc( PSDRV_Heap, HEAP_ZERO_MEMORY,
326                                                      sizeof(*physDev) );
327     if (!physDev) return FALSE;
328     *pdev = physDev;
329     physDev->hdc = hdc;
330
331     physDev->pi = pi;
332
333     physDev->Devmode = (PSDRV_DEVMODEA *)HeapAlloc( PSDRV_Heap, 0,
334                                                      sizeof(PSDRV_DEVMODEA) );
335     if(!physDev->Devmode) {
336         HeapFree( PSDRV_Heap, 0, physDev );
337         return FALSE;
338     }
339
340     memcpy( physDev->Devmode, pi->Devmode, sizeof(PSDRV_DEVMODEA) );
341
342     physDev->logPixelsX = physDev->pi->ppd->DefaultResolution;
343     physDev->logPixelsY = physDev->pi->ppd->DefaultResolution;
344
345     if (output) {
346         physDev->job.output = HEAP_strdupWtoA( PSDRV_Heap, 0, output );
347     } else
348         physDev->job.output = NULL;
349     physDev->job.hJob = 0;
350
351     if(initData) {
352         DEVMODEA *devmodeA = DEVMODEdupWtoA(PSDRV_Heap, initData);
353         PSDRV_MergeDevmodes(physDev->Devmode, (PSDRV_DEVMODEA *)devmodeA, pi);
354         HeapFree(PSDRV_Heap, 0, devmodeA);
355     }
356
357     PSDRV_UpdateDevCaps(physDev);
358     SelectObject( hdc, PSDRV_DefaultFont );
359     return TRUE;
360 }
361
362
363
364 /**********************************************************************
365  *           PSDRV_DeleteDC
366  */
367 BOOL PSDRV_DeleteDC( PSDRV_PDEVICE *physDev )
368 {
369     TRACE("\n");
370
371     HeapFree( PSDRV_Heap, 0, physDev->Devmode );
372     if(physDev->job.output)
373         HeapFree( PSDRV_Heap, 0, physDev->job.output );
374     HeapFree( PSDRV_Heap, 0, physDev );
375
376     return TRUE;
377 }
378
379
380 /**********************************************************************
381  *           ResetDC   (WINEPS.@)
382  */
383 HDC PSDRV_ResetDC( PSDRV_PDEVICE *physDev, const DEVMODEW *lpInitData )
384 {
385     if(lpInitData) {
386         HRGN hrgn;
387         DEVMODEA *devmodeA = DEVMODEdupWtoA(PSDRV_Heap, lpInitData);
388         PSDRV_MergeDevmodes(physDev->Devmode, (PSDRV_DEVMODEA *)devmodeA, physDev->pi);
389         HeapFree(PSDRV_Heap, 0, devmodeA);
390         PSDRV_UpdateDevCaps(physDev);
391         hrgn = CreateRectRgn(0, 0, physDev->horzRes, physDev->vertRes);
392         SelectVisRgn16(HDC_16(physDev->hdc), HRGN_16(hrgn));
393         DeleteObject(hrgn);
394     }
395     return physDev->hdc;
396 }
397
398 /***********************************************************************
399  *           GetDeviceCaps    (WINEPS.@)
400  */
401 INT PSDRV_GetDeviceCaps( PSDRV_PDEVICE *physDev, INT cap )
402 {
403     switch(cap)
404     {
405     case DRIVERVERSION:
406         return 0;
407     case TECHNOLOGY:
408         return DT_RASPRINTER;
409     case HORZSIZE:
410         return MulDiv(physDev->horzSize, 100,
411                       physDev->Devmode->dmPublic.dmScale);
412     case VERTSIZE:
413         return MulDiv(physDev->vertSize, 100,
414                       physDev->Devmode->dmPublic.dmScale);
415     case HORZRES:
416         return physDev->horzRes;
417     case VERTRES:
418         return physDev->vertRes;
419     case BITSPIXEL:
420         return physDev->pi->ppd->ColorDevice ? 8 : 1;
421     case PLANES:
422         return 1;
423     case NUMBRUSHES:
424         return -1;
425     case NUMPENS:
426         return 10;
427     case NUMMARKERS:
428         return 0;
429     case NUMFONTS:
430         return 39;
431     case NUMCOLORS:
432         return (physDev->pi->ppd->ColorDevice ? 256 : -1);
433     case PDEVICESIZE:
434         return sizeof(PSDRV_PDEVICE);
435     case CURVECAPS:
436         return (CC_CIRCLES | CC_PIE | CC_CHORD | CC_ELLIPSES | CC_WIDE |
437                 CC_STYLED | CC_WIDESTYLED | CC_INTERIORS | CC_ROUNDRECT);
438     case LINECAPS:
439         return (LC_POLYLINE | LC_MARKER | LC_POLYMARKER | LC_WIDE |
440                 LC_STYLED | LC_WIDESTYLED | LC_INTERIORS);
441     case POLYGONALCAPS:
442         return (PC_POLYGON | PC_RECTANGLE | PC_WINDPOLYGON | PC_SCANLINE |
443                 PC_WIDE | PC_STYLED | PC_WIDESTYLED | PC_INTERIORS);
444     case TEXTCAPS:
445         return TC_CR_ANY | TC_VA_ABLE; /* psdrv 0x59f7 */
446     case CLIPCAPS:
447         return CP_RECTANGLE;
448     case RASTERCAPS:
449         return (RC_BITBLT | RC_BITMAP64 | RC_GDI20_OUTPUT | RC_DIBTODEV |
450                 RC_STRETCHBLT | RC_STRETCHDIB); /* psdrv 0x6e99 */
451     /* Are aspect[XY] and logPixels[XY] correct? */
452     /* Need to handle different res in x and y => fix ppd */
453     case ASPECTX:
454     case ASPECTY:
455         return physDev->pi->ppd->DefaultResolution;
456     case ASPECTXY:
457         return (int)hypot( (double)physDev->pi->ppd->DefaultResolution,
458                            (double)physDev->pi->ppd->DefaultResolution );
459     case LOGPIXELSX:
460         return MulDiv(physDev->logPixelsX,
461                       physDev->Devmode->dmPublic.dmScale, 100);
462     case LOGPIXELSY:
463         return MulDiv(physDev->logPixelsY,
464                       physDev->Devmode->dmPublic.dmScale, 100);
465     case SIZEPALETTE:
466         return 0;
467     case NUMRESERVED:
468         return 0;
469     case COLORRES:
470         return 0;
471     case PHYSICALWIDTH:
472         return (physDev->Devmode->dmPublic.u1.s1.dmOrientation == DMORIENT_LANDSCAPE) ?
473           physDev->PageSize.cy : physDev->PageSize.cx;
474     case PHYSICALHEIGHT:
475         return (physDev->Devmode->dmPublic.u1.s1.dmOrientation == DMORIENT_LANDSCAPE) ?
476           physDev->PageSize.cx : physDev->PageSize.cy;
477     case PHYSICALOFFSETX:
478       if(physDev->Devmode->dmPublic.u1.s1.dmOrientation == DMORIENT_LANDSCAPE) {
479           if(physDev->pi->ppd->LandscapeOrientation == -90)
480               return physDev->PageSize.cy - physDev->ImageableArea.top;
481           else
482               return physDev->ImageableArea.bottom;
483       }
484       return physDev->ImageableArea.left;
485
486     case PHYSICALOFFSETY:
487       if(physDev->Devmode->dmPublic.u1.s1.dmOrientation == DMORIENT_LANDSCAPE) {
488           if(physDev->pi->ppd->LandscapeOrientation == -90)
489               return physDev->PageSize.cx - physDev->ImageableArea.right;
490           else
491               return physDev->ImageableArea.left;
492       }
493       return physDev->PageSize.cy - physDev->ImageableArea.top;
494
495     case SCALINGFACTORX:
496     case SCALINGFACTORY:
497     case VREFRESH:
498     case DESKTOPVERTRES:
499     case DESKTOPHORZRES:
500     case BTLALIGNMENT:
501         return 0;
502     default:
503         FIXME("(%p): unsupported capability %d, will return 0\n", physDev->hdc, cap );
504         return 0;
505     }
506 }
507
508
509 /**********************************************************************
510  *              PSDRV_FindPrinterInfo
511  */
512 PRINTERINFO *PSDRV_FindPrinterInfo(LPCSTR name)
513 {
514     static PRINTERINFO *PSDRV_PrinterList;
515     DWORD type = REG_BINARY, needed, res, dwPaperSize;
516     PRINTERINFO *pi = PSDRV_PrinterList, **last = &PSDRV_PrinterList;
517     FONTNAME *font;
518     const AFM *afm;
519     HANDLE hPrinter;
520     const char *ppd = NULL;
521     DWORD ppdType;
522     char* ppdFileName = NULL;
523     HKEY hkey;
524     BOOL using_default_devmode = FALSE;
525
526     TRACE("'%s'\n", name);
527
528     /*
529      *  If this loop completes, last will point to the 'next' element of the
530      *  final PRINTERINFO in the list
531      */
532     for( ; pi; last = &pi->next, pi = pi->next)
533         if(!strcmp(pi->FriendlyName, name))
534             return pi;
535
536     pi = *last = HeapAlloc( PSDRV_Heap, HEAP_ZERO_MEMORY, sizeof(*pi) );
537     if (pi == NULL)
538         return NULL;
539
540     if (!(pi->FriendlyName = HeapAlloc( PSDRV_Heap, 0, strlen(name)+1 ))) goto fail;
541     strcpy( pi->FriendlyName, name );
542
543     /* Use Get|SetPrinterDataExA instead? */
544
545     res = DrvGetPrinterData16((LPSTR)name, (LPSTR)INT_PD_DEFAULT_DEVMODE, &type,
546                             NULL, 0, &needed );
547
548     if(res == ERROR_INVALID_PRINTER_NAME || needed != sizeof(DefaultDevmode)) {
549         pi->Devmode = HeapAlloc( PSDRV_Heap, 0, sizeof(DefaultDevmode) );
550         if (pi->Devmode == NULL)
551             goto cleanup;
552         memcpy(pi->Devmode, &DefaultDevmode, sizeof(DefaultDevmode) );
553         strcpy(pi->Devmode->dmPublic.dmDeviceName,name);
554         using_default_devmode = TRUE;
555
556         /* need to do something here AddPrinter?? */
557     }
558     else {
559         pi->Devmode = HeapAlloc( PSDRV_Heap, 0, needed );
560         DrvGetPrinterData16((LPSTR)name, (LPSTR)INT_PD_DEFAULT_DEVMODE, &type,
561                           (LPBYTE)pi->Devmode, needed, &needed);
562     }
563
564     if (OpenPrinterA (pi->FriendlyName, &hPrinter, NULL) == 0) {
565         ERR ("OpenPrinterA failed with code %li\n", GetLastError ());
566         goto cleanup;
567     }
568
569 #ifdef HAVE_CUPS_CUPS_H
570     if (cupshandle != (void*)-1) {
571         typeof(cupsGetPPD) * pcupsGetPPD = NULL;
572
573         pcupsGetPPD = wine_dlsym(cupshandle, "cupsGetPPD", NULL, 0);
574         if (pcupsGetPPD) {
575             ppd = pcupsGetPPD(name);
576
577             if (ppd) {
578                 needed=strlen(ppd)+1;
579                 ppdFileName=HeapAlloc(PSDRV_Heap, 0, needed);
580                 memcpy(ppdFileName, ppd, needed);
581                 ppdType=REG_SZ;
582                 res = ERROR_SUCCESS;
583                 /* we should unlink() that file later */
584             } else {
585                 res = ERROR_FILE_NOT_FOUND;
586                 WARN("Did not find ppd for %s\n",name);
587             }
588         }
589     }
590 #endif
591     if (!ppdFileName) {
592         res = GetPrinterDataA(hPrinter, "PPD File", NULL, NULL, 0, &needed);
593         if ((res==ERROR_SUCCESS) || (res==ERROR_MORE_DATA)) {
594             ppdFileName=HeapAlloc(PSDRV_Heap, 0, needed);
595             res = GetPrinterDataA(hPrinter, "PPD File", &ppdType, ppdFileName, needed, &needed);
596         }
597     }
598     /* Look for a ppd file for this printer in the config file.
599      * First look under that printer's name, and then under 'generic'
600      */
601     if((res != ERROR_SUCCESS) && !RegOpenKeyA(HKEY_LOCAL_MACHINE, "Software\\Wine\\Wine\\Config\\ppd", &hkey))
602     {
603         const char* value_name;
604
605         if (RegQueryValueExA(hkey, name, 0, NULL, NULL, &needed) == ERROR_SUCCESS) {
606             value_name=name;
607         } else if (RegQueryValueExA(hkey, "generic", 0, NULL, NULL, &needed) == ERROR_SUCCESS) {
608             value_name="generic";
609         } else {
610             value_name=NULL;
611         }
612         if (value_name) {
613             ppdFileName=HeapAlloc(PSDRV_Heap, 0, needed);
614             RegQueryValueExA(hkey, value_name, 0, &ppdType, ppdFileName, &needed);
615         }
616         RegCloseKey(hkey);
617     }
618
619     if (!ppdFileName) {
620         res = ERROR_FILE_NOT_FOUND;
621         ERR ("Error %li getting PPD file name for printer '%s'\n", res, name);
622         goto closeprinter;
623     } else {
624         res = ERROR_SUCCESS;
625         if (ppdType==REG_EXPAND_SZ) {
626             char* tmp;
627
628             /* Expand environment variable references */
629             needed=ExpandEnvironmentStringsA(ppdFileName,NULL,0);
630             tmp=HeapAlloc(PSDRV_Heap, 0, needed);
631             ExpandEnvironmentStringsA(ppdFileName,tmp,needed);
632             HeapFree(PSDRV_Heap, 0, ppdFileName);
633             ppdFileName=tmp;
634         }
635     }
636
637     pi->ppd = PSDRV_ParsePPD(ppdFileName);
638     if(!pi->ppd) {
639         MESSAGE("Couldn't find PPD file '%s', expect a crash now!\n",
640             ppdFileName);
641         goto closeprinter;
642     }
643
644     /* Some gimp-print ppd files don't contain a DefaultResolution line
645        set it to 300 if it's not specified */
646     if(pi->ppd->DefaultResolution == 0)
647         pi->ppd->DefaultResolution = 300;
648
649     if(using_default_devmode) {
650         DWORD papersize;
651
652         if(GetLocaleInfoW(LOCALE_USER_DEFAULT, LOCALE_IPAPERSIZE | LOCALE_RETURN_NUMBER,
653                           (LPWSTR)&papersize, sizeof(papersize)/sizeof(WCHAR))) {
654             PSDRV_DEVMODEA dm;
655             memset(&dm, 0, sizeof(dm));
656             dm.dmPublic.dmFields = DM_PAPERSIZE;
657             dm.dmPublic.u1.s1.dmPaperSize = papersize;
658             PSDRV_MergeDevmodes(pi->Devmode, &dm, pi);
659         }
660         DrvSetPrinterData16((LPSTR)name, (LPSTR)INT_PD_DEFAULT_DEVMODE,
661                  REG_BINARY, (LPBYTE)pi->Devmode, sizeof(DefaultDevmode) );
662     }
663
664     if(pi->ppd->DefaultPageSize) { /* We'll let the ppd override the devmode */
665         PSDRV_DEVMODEA dm;
666         memset(&dm, 0, sizeof(dm));
667         dm.dmPublic.dmFields = DM_PAPERSIZE;
668         dm.dmPublic.u1.s1.dmPaperSize = pi->ppd->DefaultPageSize->WinPage;
669         PSDRV_MergeDevmodes(pi->Devmode, &dm, pi);
670     }
671
672     /*
673      *  This is a hack.  The default paper size should be read in as part of
674      *  the Devmode structure, but Wine doesn't currently provide a convenient
675      *  way to configure printers.
676      */
677     res = GetPrinterDataA (hPrinter, "Paper Size", NULL, (LPBYTE) &dwPaperSize,
678             sizeof (DWORD), &needed);
679     if (res == ERROR_SUCCESS)
680         pi->Devmode->dmPublic.u1.s1.dmPaperSize = (SHORT) dwPaperSize;
681     else if (res == ERROR_FILE_NOT_FOUND)
682         TRACE ("No 'Paper Size' for printer '%s'\n", name);
683     else {
684         ERR ("GetPrinterDataA returned %li\n", res);
685         goto closeprinter;
686     }
687
688     /* Duplex is indicated by the setting of the DM_DUPLEX bit in dmFields.
689        WinDuplex == 0 is a special case which means that the ppd has a
690        *DefaultDuplex: NotCapable entry.  In this case we'll try not to confuse
691        apps and set dmDuplex to DMDUP_SIMPLEX but leave the DM_DUPLEX clear.
692        PSDRV_WriteHeader understands this and copes. */
693     pi->Devmode->dmPublic.dmFields &= ~DM_DUPLEX;
694     if(pi->ppd->DefaultDuplex) {
695         pi->Devmode->dmPublic.dmDuplex = pi->ppd->DefaultDuplex->WinDuplex;
696         if(pi->Devmode->dmPublic.dmDuplex != 0)
697             pi->Devmode->dmPublic.dmFields |= DM_DUPLEX;
698         else
699             pi->Devmode->dmPublic.dmDuplex = DMDUP_SIMPLEX;
700     }
701
702     res = EnumPrinterDataExA (hPrinter, "PrinterDriverData\\FontSubTable", NULL,
703             0, &needed, &pi->FontSubTableSize);
704     if (res == ERROR_SUCCESS || res == ERROR_FILE_NOT_FOUND) {
705         TRACE ("No 'FontSubTable' for printer '%s'\n", name);
706     }
707     else if (res == ERROR_MORE_DATA) {
708         pi->FontSubTable = HeapAlloc (PSDRV_Heap, 0, needed);
709         if (pi->FontSubTable == NULL) {
710             ERR ("Failed to allocate %li bytes from heap\n", needed);
711             goto closeprinter;
712         }
713
714         res = EnumPrinterDataExA (hPrinter, "PrinterDriverData\\FontSubTable",
715                 (LPBYTE) pi->FontSubTable, needed, &needed,
716                 &pi->FontSubTableSize);
717         if (res != ERROR_SUCCESS) {
718             ERR ("EnumPrinterDataExA returned %li\n", res);
719             goto closeprinter;
720         }
721     }
722     else {
723         ERR("EnumPrinterDataExA returned %li\n", res);
724         goto closeprinter;
725     }
726
727     if (ClosePrinter (hPrinter) == 0) {
728         ERR ("ClosePrinter failed with code %li\n", GetLastError ());
729         goto cleanup;
730     }
731
732     pi->next = NULL;
733     pi->Fonts = NULL;
734
735     for(font = pi->ppd->InstalledFonts; font; font = font->next) {
736         afm = PSDRV_FindAFMinList(PSDRV_AFMFontList, font->Name);
737         if(!afm) {
738             TRACE( "Couldn't find AFM file for installed printer font '%s' - "
739                     "ignoring\n", font->Name);
740         }
741         else {
742             BOOL added;
743             if (PSDRV_AddAFMtoList(&pi->Fonts, afm, &added) == FALSE) {
744                 PSDRV_FreeAFMList(pi->Fonts);
745                 goto cleanup;
746             }
747         }
748
749     }
750     if (ppd) unlink(ppd);
751     return pi;
752
753 closeprinter:
754     ClosePrinter(hPrinter);
755 cleanup:
756     if (ppdFileName)
757         HeapFree(PSDRV_Heap, 0, ppdFileName);
758     if (pi->FontSubTable)
759         HeapFree(PSDRV_Heap, 0, pi->FontSubTable);
760     if (pi->FriendlyName)
761         HeapFree(PSDRV_Heap, 0, pi->FriendlyName);
762     if (pi->Devmode)
763         HeapFree(PSDRV_Heap, 0, pi->Devmode);
764 fail:
765     HeapFree(PSDRV_Heap, 0, pi);
766     if (ppd) unlink(ppd);
767     *last = NULL;
768     return NULL;
769 }