git.oblomov.eu Git - wine/blob - 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 <string.h>
  26 #ifdef HAVE_UNISTD_H
  27 # include <unistd.h>
  28 #endif
  29 #ifdef HAVE_CUPS_CUPS_H
  30 # include <cups/cups.h>
  31 #endif
  32
  33 #define NONAMELESSUNION
  34 #define NONAMELESSSTRUCT
  35
  36 #include "wine/debug.h"
  37 #include "winerror.h"
  38 #include "wownt32.h"
  39 #include "heap.h"
  40 #include "winreg.h"
  41 #include "psdrv.h"
  42 #include "winspool.h"
  43
  44 WINE_DEFAULT_DEBUG_CHANNEL(psdrv);
  45
  46 #ifndef SONAME_LIBCUPS
  47 #define SONAME_LIBCUPS "libcups.so"
  48 #endif
  49
  50 #ifdef HAVE_CUPS_CUPS_H
  51 static void *cupshandle = NULL;
  52 #endif
  53
  54 static PSDRV_DEVMODEA DefaultDevmode =
  55 {
  56   { /* dmPublic */
  57 /* dmDeviceName */      "Wine PostScript Driver",
  58 /* dmSpecVersion */     0x30a,
  59 /* dmDriverVersion */   0x001,
  60 /* dmSize */            sizeof(DEVMODEA),
  61 /* dmDriverExtra */     sizeof(PSDRV_DEVMODEA)-sizeof(DEVMODEA),
  62 /* dmFields */          DM_ORIENTATION | DM_PAPERSIZE | DM_SCALE |
  63                         DM_COPIES | DM_DEFAULTSOURCE | DM_COLOR |
  64                         DM_YRESOLUTION | DM_TTOPTION,
  65    { /* u1 */
  66      { /* s1 */
  67 /* dmOrientation */     DMORIENT_PORTRAIT,
  68 /* dmPaperSize */       DMPAPER_LETTER,
  69 /* dmPaperLength */     2794,
  70 /* dmPaperWidth */      2159
  71      }
  72    },
  73 /* dmScale */           100, /* ?? */
  74 /* dmCopies */          1,
  75 /* dmDefaultSource */   DMBIN_AUTO,
  76 /* dmPrintQuality */    0,
  77 /* dmColor */           DMCOLOR_COLOR,
  78 /* dmDuplex */          DMDUP_SIMPLEX,
  79 /* dmYResolution */     0,
  80 /* dmTTOption */        DMTT_SUBDEV,
  81 /* dmCollate */         0,
  82 /* dmFormName */        "",
  83 /* dmUnusedPadding */   0,
  84 /* dmBitsPerPel */      0,
  85 /* dmPelsWidth */       0,
  86 /* dmPelsHeight */      0,
  87 /* dmDisplayFlags */    0,
  88 /* dmDisplayFrequency */ 0,
  89 /* dmICMMethod */       0,
  90 /* dmICMIntent */       0,
  91 /* dmMediaType */       0,
  92 /* dmDitherType */      0,
  93 /* dmReserved1 */       0,
  94 /* dmReserved2 */       0,
  95 /* dmPanningWidth */    0,
  96 /* dmPanningHeight */   0
  97   },
  98   { /* dmDocPrivate */
  99     /* dummy */ 0
 100   },
 101   { /* dmDrvPrivate */
 102     /* numInstalledOptions */ 0
 103   }
 104 };
 105
 106 HINSTANCE PSDRV_hInstance = 0;
 107 HANDLE PSDRV_Heap = 0;
 108
 109 static HFONT PSDRV_DefaultFont = 0;
 110 static LOGFONTA DefaultLogFont = {
 111     100, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET, 0, 0,
 112     DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN, ""
 113 };
 114
 115 /*********************************************************************
 116  *           DllMain
 117  *
 118  * Initializes font metrics and registers driver. wineps dll entry point.
 119  *
 120  */
 121 BOOL WINAPI DllMain( HINSTANCE hinst, DWORD reason, LPVOID reserved )
 122 {
 123     TRACE("(%p, %ld, %p)\n", hinst, reason, reserved);
 124
 125     switch(reason) {
 126
 127         case DLL_PROCESS_ATTACH:
 128             PSDRV_hInstance = hinst;
 129             DisableThreadLibraryCalls(hinst);
 130
 131             PSDRV_Heap = HeapCreate(0, 0x10000, 0);
 132             if (PSDRV_Heap == NULL)
 133                 return FALSE;
 134
 135             if (PSDRV_GetFontMetrics() == FALSE) {
 136                 HeapDestroy(PSDRV_Heap);
 137                 return FALSE;
 138             }
 139
 140             PSDRV_DefaultFont = CreateFontIndirectA(&DefaultLogFont);
 141             if (PSDRV_DefaultFont == NULL) {
 142                 HeapDestroy(PSDRV_Heap);
 143                 return FALSE;
 144             }
 145 #ifdef HAVE_CUPS_CUPS_H
 146             /* dynamically load CUPS if not yet loaded */
 147             if (!cupshandle) {
 148                 cupshandle = wine_dlopen(SONAME_LIBCUPS, RTLD_NOW, NULL, 0);
 149                 if (!cupshandle) cupshandle = (void*)-1;
 150             }
 151 #endif
 152             break;
 153
 154         case DLL_PROCESS_DETACH:
 155
 156             DeleteObject( PSDRV_DefaultFont );
 157             HeapDestroy( PSDRV_Heap );
 158 #ifdef HAVE_CUPS_CUPS_H
 159             if (cupshandle && (cupshandle != (void*)-1)) {
 160                 wine_dlclose(cupshandle, NULL, 0);
 161                 cupshandle = NULL;
 162             }
 163 #endif
 164             break;
 165     }
 166
 167     return TRUE;
 168 }
 169
 170
 171 static void PSDRV_UpdateDevCaps( PSDRV_PDEVICE *physDev )
 172 {
 173     PAGESIZE *page;
 174     INT width = 0, height = 0;
 175
 176     if(physDev->Devmode->dmPublic.dmFields & DM_PAPERSIZE) {
 177         for(page = physDev->pi->ppd->PageSizes; page; page = page->next) {
 178             if(page->WinPage == physDev->Devmode->dmPublic.u1.s1.dmPaperSize)
 179                 break;
 180         }
 181
 182         if(!page) {
 183             FIXME("Can't find page\n");
 184             physDev->ImageableArea.left = 0;
 185             physDev->ImageableArea.right = 0;
 186             physDev->ImageableArea.bottom = 0;
 187             physDev->ImageableArea.top = 0;
 188             physDev->PageSize.cx = 0;
 189             physDev->PageSize.cy = 0;
 190         } else if(page->ImageableArea) {
 191           /* physDev sizes in device units; ppd sizes in 1/72" */
 192             physDev->ImageableArea.left = page->ImageableArea->llx *
 193               physDev->logPixelsX / 72;
 194             physDev->ImageableArea.right = page->ImageableArea->urx *
 195               physDev->logPixelsX / 72;
 196             physDev->ImageableArea.bottom = page->ImageableArea->lly *
 197               physDev->logPixelsY / 72;
 198             physDev->ImageableArea.top = page->ImageableArea->ury *
 199               physDev->logPixelsY / 72;
 200             physDev->PageSize.cx = page->PaperDimension->x *
 201               physDev->logPixelsX / 72;
 202             physDev->PageSize.cy = page->PaperDimension->y *
 203               physDev->logPixelsY / 72;
 204         } else {
 205             physDev->ImageableArea.left = physDev->ImageableArea.bottom = 0;
 206             physDev->ImageableArea.right = physDev->PageSize.cx =
 207               page->PaperDimension->x * physDev->logPixelsX / 72;
 208             physDev->ImageableArea.top = physDev->PageSize.cy =
 209               page->PaperDimension->y * physDev->logPixelsY / 72;
 210         }
 211     } else if((physDev->Devmode->dmPublic.dmFields & DM_PAPERLENGTH) &&
 212               (physDev->Devmode->dmPublic.dmFields & DM_PAPERWIDTH)) {
 213       /* physDev sizes in device units; Devmode sizes in 1/10 mm */
 214         physDev->ImageableArea.left = physDev->ImageableArea.bottom = 0;
 215         physDev->ImageableArea.right = physDev->PageSize.cx =
 216           physDev->Devmode->dmPublic.u1.s1.dmPaperWidth *
 217           physDev->logPixelsX / 254;
 218         physDev->ImageableArea.top = physDev->PageSize.cy =
 219           physDev->Devmode->dmPublic.u1.s1.dmPaperLength *
 220           physDev->logPixelsY / 254;
 221     } else {
 222         FIXME("Odd dmFields %lx\n", physDev->Devmode->dmPublic.dmFields);
 223         physDev->ImageableArea.left = 0;
 224         physDev->ImageableArea.right = 0;
 225         physDev->ImageableArea.bottom = 0;
 226         physDev->ImageableArea.top = 0;
 227         physDev->PageSize.cx = 0;
 228         physDev->PageSize.cy = 0;
 229     }
 230
 231     TRACE("ImageableArea = %ld,%ld - %ld,%ld: PageSize = %ldx%ld\n",
 232           physDev->ImageableArea.left, physDev->ImageableArea.bottom,
 233           physDev->ImageableArea.right, physDev->ImageableArea.top,
 234           physDev->PageSize.cx, physDev->PageSize.cy);
 235
 236     /* these are in device units */
 237     width = physDev->ImageableArea.right - physDev->ImageableArea.left;
 238     height = physDev->ImageableArea.top - physDev->ImageableArea.bottom;
 239
 240     if(physDev->Devmode->dmPublic.u1.s1.dmOrientation == DMORIENT_PORTRAIT) {
 241         physDev->horzRes = width;
 242         physDev->vertRes = height;
 243     } else {
 244         physDev->horzRes = height;
 245         physDev->vertRes = width;
 246     }
 247
 248     /* these are in mm */
 249     physDev->horzSize = (physDev->horzRes * 25.4) / physDev->logPixelsX;
 250     physDev->vertSize = (physDev->vertRes * 25.4) / physDev->logPixelsY;
 251
 252     TRACE("devcaps: horzSize = %dmm, vertSize = %dmm, "
 253           "horzRes = %d, vertRes = %d\n",
 254           physDev->horzSize, physDev->vertSize,
 255           physDev->horzRes, physDev->vertRes);
 256 }
 257
 258
 259 /***********************************************************
 260  *      DEVMODEdupWtoA
 261  *
 262  * Creates an ascii copy of supplied devmode on heap
 263  *
 264  * Copied from dlls/winspool/info.c until full unicodification
 265  */
 266 static LPDEVMODEA DEVMODEdupWtoA(HANDLE heap, const DEVMODEW *dmW)
 267 {
 268     LPDEVMODEA dmA;
 269     DWORD size;
 270     BOOL Formname;
 271     ptrdiff_t off_formname = (const char *)dmW->dmFormName - (const char *)dmW;
 272
 273     if(!dmW) return NULL;
 274     Formname = (dmW->dmSize > off_formname);
 275     size = dmW->dmSize - CCHDEVICENAME - (Formname ? CCHFORMNAME : 0);
 276     dmA = HeapAlloc(heap, HEAP_ZERO_MEMORY, size + dmW->dmDriverExtra);
 277     WideCharToMultiByte(CP_ACP, 0, dmW->dmDeviceName, -1, (LPSTR)dmA->dmDeviceName,
 278                         CCHDEVICENAME, NULL, NULL);
 279     if(!Formname) {
 280       memcpy(&dmA->dmSpecVersion, &dmW->dmSpecVersion,
 281              dmW->dmSize - CCHDEVICENAME * sizeof(WCHAR));
 282     } else {
 283       memcpy(&dmA->dmSpecVersion, &dmW->dmSpecVersion,
 284              off_formname - CCHDEVICENAME * sizeof(WCHAR));
 285       WideCharToMultiByte(CP_ACP, 0, dmW->dmFormName, -1, (LPSTR)dmA->dmFormName,
 286                           CCHFORMNAME, NULL, NULL);
 287       memcpy(&dmA->dmLogPixels, &dmW->dmLogPixels, dmW->dmSize -
 288              (off_formname + CCHFORMNAME * sizeof(WCHAR)));
 289     }
 290     dmA->dmSize = size;
 291     memcpy((char *)dmA + dmA->dmSize, (const char *)dmW + dmW->dmSize,
 292            dmW->dmDriverExtra);
 293     return dmA;
 294 }
 295
 296
 297 /**********************************************************************
 298  *           PSDRV_CreateDC
 299  */
 300 BOOL PSDRV_CreateDC( HDC hdc, PSDRV_PDEVICE **pdev, LPCWSTR driver, LPCWSTR device,
 301                      LPCWSTR output, const DEVMODEW* initData )
 302 {
 303     PSDRV_PDEVICE *physDev;
 304     PRINTERINFO *pi;
 305     char *deviceA;
 306
 307     /* If no device name was specified, retrieve the device name
 308      * from the DEVMODE structure from the DC's physDev.
 309      * (See CreateCompatibleDC) */
 310     if ( !device && *pdev )
 311     {
 312         physDev = *pdev;
 313         deviceA = HeapAlloc(GetProcessHeap(), 0, CCHDEVICENAME);
 314         lstrcpynA(deviceA, (LPCSTR)physDev->Devmode->dmPublic.dmDeviceName, CCHDEVICENAME);
 315     }
 316     else
 317     {
 318         DWORD len = WideCharToMultiByte(CP_ACP, 0, device, -1, NULL, 0, NULL, NULL);
 319         deviceA = HeapAlloc(GetProcessHeap(), 0, len);
 320         WideCharToMultiByte(CP_ACP, 0, device, -1, deviceA, len, NULL, NULL);
 321     }
 322     pi = PSDRV_FindPrinterInfo(deviceA);
 323
 324     HeapFree(GetProcessHeap(), 0, deviceA);
 325     deviceA = NULL;
 326
 327     TRACE("(%s %s %s %p)\n", debugstr_w(driver), debugstr_w(device),
 328                              debugstr_w(output), initData);
 329
 330     if(!pi) return FALSE;
 331
 332     if(!pi->Fonts) {
 333         MESSAGE("To use WINEPS you need to install some AFM files.\n");
 334         return FALSE;
 335     }
 336
 337     physDev = HeapAlloc( PSDRV_Heap, HEAP_ZERO_MEMORY, sizeof(*physDev) );
 338     if (!physDev) return FALSE;
 339     *pdev = physDev;
 340     physDev->hdc = hdc;
 341
 342     physDev->pi = pi;
 343
 344     physDev->Devmode = HeapAlloc( PSDRV_Heap, 0, sizeof(PSDRV_DEVMODEA) );
 345     if(!physDev->Devmode) {
 346         HeapFree( PSDRV_Heap, 0, physDev );
 347         return FALSE;
 348     }
 349
 350     memcpy( physDev->Devmode, pi->Devmode, sizeof(PSDRV_DEVMODEA) );
 351
 352     physDev->logPixelsX = physDev->pi->ppd->DefaultResolution;
 353     physDev->logPixelsY = physDev->pi->ppd->DefaultResolution;
 354
 355     if (output) {
 356         physDev->job.output = HEAP_strdupWtoA( PSDRV_Heap, 0, output );
 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         return physDev->horzRes;
 426     case VERTRES:
 427         return physDev->vertRes;
 428     case BITSPIXEL:
 429         return physDev->pi->ppd->ColorDevice ? 8 : 1;
 430     case PLANES:
 431         return 1;
 432     case NUMBRUSHES:
 433         return -1;
 434     case NUMPENS:
 435         return 10;
 436     case NUMMARKERS:
 437         return 0;
 438     case NUMFONTS:
 439         return 39;
 440     case NUMCOLORS:
 441         return (physDev->pi->ppd->ColorDevice ? 256 : -1);
 442     case PDEVICESIZE:
 443         return sizeof(PSDRV_PDEVICE);
 444     case CURVECAPS:
 445         return (CC_CIRCLES | CC_PIE | CC_CHORD | CC_ELLIPSES | CC_WIDE |
 446                 CC_STYLED | CC_WIDESTYLED | CC_INTERIORS | CC_ROUNDRECT);
 447     case LINECAPS:
 448         return (LC_POLYLINE | LC_MARKER | LC_POLYMARKER | LC_WIDE |
 449                 LC_STYLED | LC_WIDESTYLED | LC_INTERIORS);
 450     case POLYGONALCAPS:
 451         return (PC_POLYGON | PC_RECTANGLE | PC_WINDPOLYGON | PC_SCANLINE |
 452                 PC_WIDE | PC_STYLED | PC_WIDESTYLED | PC_INTERIORS);
 453     case TEXTCAPS:
 454         return TC_CR_ANY | TC_VA_ABLE; /* psdrv 0x59f7 */
 455     case CLIPCAPS:
 456         return CP_RECTANGLE;
 457     case RASTERCAPS:
 458         return (RC_BITBLT | RC_BITMAP64 | RC_GDI20_OUTPUT | RC_DIBTODEV |
 459                 RC_STRETCHBLT | RC_STRETCHDIB); /* psdrv 0x6e99 */
 460     /* Are aspect[XY] and logPixels[XY] correct? */
 461     /* Need to handle different res in x and y => fix ppd */
 462     case ASPECTX:
 463     case ASPECTY:
 464         return physDev->pi->ppd->DefaultResolution;
 465     case ASPECTXY:
 466         return (int)hypot( (double)physDev->pi->ppd->DefaultResolution,
 467                            (double)physDev->pi->ppd->DefaultResolution );
 468     case LOGPIXELSX:
 469         return MulDiv(physDev->logPixelsX,
 470                       physDev->Devmode->dmPublic.dmScale, 100);
 471     case LOGPIXELSY:
 472         return MulDiv(physDev->logPixelsY,
 473                       physDev->Devmode->dmPublic.dmScale, 100);
 474     case SIZEPALETTE:
 475         return 0;
 476     case NUMRESERVED:
 477         return 0;
 478     case COLORRES:
 479         return 0;
 480     case PHYSICALWIDTH:
 481         return (physDev->Devmode->dmPublic.u1.s1.dmOrientation == DMORIENT_LANDSCAPE) ?
 482           physDev->PageSize.cy : physDev->PageSize.cx;
 483     case PHYSICALHEIGHT:
 484         return (physDev->Devmode->dmPublic.u1.s1.dmOrientation == DMORIENT_LANDSCAPE) ?
 485           physDev->PageSize.cx : physDev->PageSize.cy;
 486     case PHYSICALOFFSETX:
 487       if(physDev->Devmode->dmPublic.u1.s1.dmOrientation == DMORIENT_LANDSCAPE) {
 488           if(physDev->pi->ppd->LandscapeOrientation == -90)
 489               return physDev->PageSize.cy - physDev->ImageableArea.top;
 490           else
 491               return physDev->ImageableArea.bottom;
 492       }
 493       return physDev->ImageableArea.left;
 494
 495     case PHYSICALOFFSETY:
 496       if(physDev->Devmode->dmPublic.u1.s1.dmOrientation == DMORIENT_LANDSCAPE) {
 497           if(physDev->pi->ppd->LandscapeOrientation == -90)
 498               return physDev->PageSize.cx - physDev->ImageableArea.right;
 499           else
 500               return physDev->ImageableArea.left;
 501       }
 502       return physDev->PageSize.cy - physDev->ImageableArea.top;
 503
 504     case SCALINGFACTORX:
 505     case SCALINGFACTORY:
 506     case VREFRESH:
 507     case DESKTOPVERTRES:
 508     case DESKTOPHORZRES:
 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 %li\n", GetLastError ());
 576         goto cleanup;
 577     }
 578
 579 #ifdef HAVE_CUPS_CUPS_H
 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 %li 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 %li\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 %li 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 %li\n", res);
 743             goto closeprinter;
 744         }
 745     }
 746     else {
 747         ERR("EnumPrinterDataExA returned %li\n", res);
 748         goto closeprinter;
 749     }
 750
 751     if (ClosePrinter (hPrinter) == 0) {
 752         ERR ("ClosePrinter failed with code %li\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 }