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