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