git.oblomov.eu Git - wine/blob - 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
  24 #include <string.h>
  25 #include <unistd.h>
  26
  27 #include "gdi.h"
  28 #include "psdrv.h"
  29 #include "wine/debug.h"
  30 #include "winreg.h"
  31 #include "winspool.h"
  32 #include "winerror.h"
  33
  34 #ifdef HAVE_CUPS
  35 # include <cups/cups.h>
  36 #endif
  37
  38 WINE_DEFAULT_DEBUG_CHANNEL(psdrv);
  39
  40 static PSDRV_DEVMODEA DefaultDevmode =
  41 {
  42   { /* dmPublic */
  43 /* dmDeviceName */      "Wine PostScript Driver",
  44 /* dmSpecVersion */     0x30a,
  45 /* dmDriverVersion */   0x001,
  46 /* dmSize */            sizeof(DEVMODEA),
  47 /* dmDriverExtra */     0,
  48 /* dmFields */          DM_ORIENTATION | DM_PAPERSIZE | DM_SCALE |
  49                         DM_COPIES | DM_DEFAULTSOURCE | DM_COLOR |
  50                         DM_DUPLEX | DM_YRESOLUTION | DM_TTOPTION,
  51    { /* u1 */
  52      { /* s1 */
  53 /* dmOrientation */     DMORIENT_PORTRAIT,
  54 /* dmPaperSize */       DMPAPER_LETTER,
  55 /* dmPaperLength */     2794,
  56 /* dmPaperWidth */      2159
  57      }
  58    },
  59 /* dmScale */           100, /* ?? */
  60 /* dmCopies */          1,
  61 /* dmDefaultSource */   DMBIN_AUTO,
  62 /* dmPrintQuality */    0,
  63 /* dmColor */           DMCOLOR_COLOR,
  64 /* dmDuplex */          0,
  65 /* dmYResolution */     0,
  66 /* dmTTOption */        DMTT_SUBDEV,
  67 /* dmCollate */         0,
  68 /* dmFormName */        "",
  69 /* dmUnusedPadding */   0,
  70 /* dmBitsPerPel */      0,
  71 /* dmPelsWidth */       0,
  72 /* dmPelsHeight */      0,
  73 /* dmDisplayFlags */    0,
  74 /* dmDisplayFrequency */ 0,
  75 /* dmICMMethod */       0,
  76 /* dmICMIntent */       0,
  77 /* dmMediaType */       0,
  78 /* dmDitherType */      0,
  79 /* dmReserved1 */       0,
  80 /* dmReserved2 */       0,
  81 /* dmPanningWidth */    0,
  82 /* dmPanningHeight */   0
  83   },
  84   { /* dmDocPrivate */
  85     /* dummy */ 0
  86   },
  87   { /* dmDrvPrivate */
  88     /* numInstalledOptions */ 0
  89   }
  90 };
  91
  92 HANDLE PSDRV_Heap = 0;
  93
  94 static HANDLE PSDRV_DefaultFont = 0;
  95 static LOGFONTA DefaultLogFont = {
  96     100, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET, 0, 0,
  97     DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN, ""
  98 };
  99
 100 /*********************************************************************
 101  *           PSDRV_Init
 102  *
 103  * Initializes font metrics and registers driver. Called from GDI_Init()
 104  *
 105  */
 106 BOOL WINAPI PSDRV_Init( HINSTANCE hinst, DWORD reason, LPVOID reserved )
 107 {
 108     TRACE("(0x%4x, 0x%08lx, %p)\n", hinst, reason, reserved);
 109
 110     switch(reason) {
 111
 112         case DLL_PROCESS_ATTACH:
 113
 114             PSDRV_Heap = HeapCreate(0, 0x10000, 0);
 115             if (PSDRV_Heap == (HANDLE)NULL)
 116                 return FALSE;
 117
 118             if (PSDRV_GetFontMetrics() == FALSE) {
 119                 HeapDestroy(PSDRV_Heap);
 120                 return FALSE;
 121             }
 122
 123             PSDRV_DefaultFont = CreateFontIndirectA(&DefaultLogFont);
 124             if (PSDRV_DefaultFont == (HANDLE)NULL) {
 125                 HeapDestroy(PSDRV_Heap);
 126                 return FALSE;
 127             }
 128             break;
 129
 130         case DLL_PROCESS_DETACH:
 131
 132             DeleteObject( PSDRV_DefaultFont );
 133             HeapDestroy( PSDRV_Heap );
 134             break;
 135     }
 136
 137     return TRUE;
 138 }
 139
 140
 141 static void PSDRV_UpdateDevCaps( PSDRV_PDEVICE *physDev )
 142 {
 143     PAGESIZE *page;
 144     INT width = 0, height = 0;
 145
 146     if(physDev->Devmode->dmPublic.dmFields & DM_PAPERSIZE) {
 147         for(page = physDev->pi->ppd->PageSizes; page; page = page->next) {
 148             if(page->WinPage == physDev->Devmode->dmPublic.u1.s1.dmPaperSize)
 149                 break;
 150         }
 151
 152         if(!page) {
 153             FIXME("Can't find page\n");
 154             physDev->ImageableArea.left = 0;
 155             physDev->ImageableArea.right = 0;
 156             physDev->ImageableArea.bottom = 0;
 157             physDev->ImageableArea.top = 0;
 158             physDev->PageSize.cx = 0;
 159             physDev->PageSize.cy = 0;
 160         } else if(page->ImageableArea) {
 161           /* physDev sizes in device units; ppd sizes in 1/72" */
 162             physDev->ImageableArea.left = page->ImageableArea->llx *
 163               physDev->logPixelsX / 72;
 164             physDev->ImageableArea.right = page->ImageableArea->urx *
 165               physDev->logPixelsX / 72;
 166             physDev->ImageableArea.bottom = page->ImageableArea->lly *
 167               physDev->logPixelsY / 72;
 168             physDev->ImageableArea.top = page->ImageableArea->ury *
 169               physDev->logPixelsY / 72;
 170             physDev->PageSize.cx = page->PaperDimension->x *
 171               physDev->logPixelsX / 72;
 172             physDev->PageSize.cy = page->PaperDimension->y *
 173               physDev->logPixelsY / 72;
 174         } else {
 175             physDev->ImageableArea.left = physDev->ImageableArea.bottom = 0;
 176             physDev->ImageableArea.right = physDev->PageSize.cx =
 177               page->PaperDimension->x * physDev->logPixelsX / 72;
 178             physDev->ImageableArea.top = physDev->PageSize.cy =
 179               page->PaperDimension->y * physDev->logPixelsY / 72;
 180         }
 181     } else if((physDev->Devmode->dmPublic.dmFields & DM_PAPERLENGTH) &&
 182               (physDev->Devmode->dmPublic.dmFields & DM_PAPERWIDTH)) {
 183       /* physDev sizes in device units; Devmode sizes in 1/10 mm */
 184         physDev->ImageableArea.left = physDev->ImageableArea.bottom = 0;
 185         physDev->ImageableArea.right = physDev->PageSize.cx =
 186           physDev->Devmode->dmPublic.u1.s1.dmPaperWidth *
 187           physDev->logPixelsX / 254;
 188         physDev->ImageableArea.top = physDev->PageSize.cy =
 189           physDev->Devmode->dmPublic.u1.s1.dmPaperLength *
 190           physDev->logPixelsY / 254;
 191     } else {
 192         FIXME("Odd dmFields %lx\n", physDev->Devmode->dmPublic.dmFields);
 193         physDev->ImageableArea.left = 0;
 194         physDev->ImageableArea.right = 0;
 195         physDev->ImageableArea.bottom = 0;
 196         physDev->ImageableArea.top = 0;
 197         physDev->PageSize.cx = 0;
 198         physDev->PageSize.cy = 0;
 199     }
 200
 201     TRACE("ImageableArea = %d,%d - %d,%d: PageSize = %ldx%ld\n",
 202           physDev->ImageableArea.left, physDev->ImageableArea.bottom,
 203           physDev->ImageableArea.right, physDev->ImageableArea.top,
 204           physDev->PageSize.cx, physDev->PageSize.cy);
 205
 206     /* these are in device units */
 207     width = physDev->ImageableArea.right - physDev->ImageableArea.left;
 208     height = physDev->ImageableArea.top - physDev->ImageableArea.bottom;
 209
 210     if(physDev->Devmode->dmPublic.u1.s1.dmOrientation == DMORIENT_PORTRAIT) {
 211         physDev->horzRes = width;
 212         physDev->vertRes = height;
 213     } else {
 214         physDev->horzRes = height;
 215         physDev->vertRes = width;
 216     }
 217
 218     /* these are in mm */
 219     physDev->horzSize = (physDev->horzRes * 25.4) / physDev->logPixelsX;
 220     physDev->vertSize = (physDev->vertRes * 25.4) / physDev->logPixelsY;
 221
 222     TRACE("devcaps: horzSize = %dmm, vertSize = %dmm, "
 223           "horzRes = %d, vertRes = %d\n",
 224           physDev->horzSize, physDev->vertSize,
 225           physDev->horzRes, physDev->vertRes);
 226 }
 227
 228
 229 /**********************************************************************
 230  *           PSDRV_CreateDC
 231  */
 232 BOOL PSDRV_CreateDC( DC *dc, PSDRV_PDEVICE **pdev, LPCSTR driver, LPCSTR device,
 233                      LPCSTR output, const DEVMODEA* initData )
 234 {
 235     PSDRV_PDEVICE *physDev;
 236     PRINTERINFO *pi;
 237
 238     /* If no device name was specified, retrieve the device name
 239      * from the DEVMODE structure from the DC's physDev.
 240      * (See CreateCompatibleDC) */
 241     if ( !device && *pdev )
 242     {
 243         physDev = *pdev;
 244         device = physDev->Devmode->dmPublic.dmDeviceName;
 245     }
 246     pi = PSDRV_FindPrinterInfo(device);
 247
 248     TRACE("(%s %s %s %p)\n", driver, device, output, initData);
 249
 250     if(!pi) return FALSE;
 251
 252     if(!pi->Fonts) {
 253         MESSAGE("To use WINEPS you need to install some AFM files.\n");
 254         return FALSE;
 255     }
 256
 257     physDev = (PSDRV_PDEVICE *)HeapAlloc( PSDRV_Heap, HEAP_ZERO_MEMORY,
 258                                                      sizeof(*physDev) );
 259     if (!physDev) return FALSE;
 260     *pdev = physDev;
 261     physDev->hdc = dc->hSelf;
 262     physDev->dc = dc;
 263
 264     physDev->pi = pi;
 265
 266     physDev->Devmode = (PSDRV_DEVMODEA *)HeapAlloc( PSDRV_Heap, 0,
 267                                                      sizeof(PSDRV_DEVMODEA) );
 268     if(!physDev->Devmode) {
 269         HeapFree( PSDRV_Heap, 0, physDev );
 270         return FALSE;
 271     }
 272
 273     memcpy( physDev->Devmode, pi->Devmode, sizeof(PSDRV_DEVMODEA) );
 274
 275     physDev->logPixelsX = physDev->pi->ppd->DefaultResolution;
 276     physDev->logPixelsY = physDev->pi->ppd->DefaultResolution;
 277
 278     if (!output) output = "LPT1:";  /* HACK */
 279     physDev->job.output = HeapAlloc( PSDRV_Heap, 0, strlen(output)+1 );
 280     strcpy( physDev->job.output, output );
 281     physDev->job.hJob = 0;
 282
 283     if(initData) {
 284         PSDRV_MergeDevmodes(physDev->Devmode, (PSDRV_DEVMODEA *)initData, pi);
 285     }
 286
 287     PSDRV_UpdateDevCaps(physDev);
 288     dc->hFont = PSDRV_DefaultFont;
 289     return TRUE;
 290 }
 291
 292
 293
 294 /**********************************************************************
 295  *           PSDRV_DeleteDC
 296  */
 297 BOOL PSDRV_DeleteDC( PSDRV_PDEVICE *physDev )
 298 {
 299     TRACE("\n");
 300
 301     HeapFree( PSDRV_Heap, 0, physDev->Devmode );
 302     HeapFree( PSDRV_Heap, 0, physDev->job.output );
 303     HeapFree( PSDRV_Heap, 0, physDev );
 304
 305     return TRUE;
 306 }
 307
 308
 309 /**********************************************************************
 310  *           ResetDC   (WINEPS.@)
 311  */
 312 HDC PSDRV_ResetDC( PSDRV_PDEVICE *physDev, const DEVMODEA *lpInitData )
 313 {
 314     if(lpInitData) {
 315         PSDRV_MergeDevmodes(physDev->Devmode, (PSDRV_DEVMODEA *)lpInitData, physDev->pi);
 316         PSDRV_UpdateDevCaps(physDev);
 317     }
 318     return physDev->hdc;
 319 }
 320
 321 /***********************************************************************
 322  *           GetDeviceCaps    (WINEPS.@)
 323  */
 324 INT PSDRV_GetDeviceCaps( PSDRV_PDEVICE *physDev, INT cap )
 325 {
 326     switch(cap)
 327     {
 328     case DRIVERVERSION:
 329         return 0;
 330     case TECHNOLOGY:
 331         return DT_RASPRINTER;
 332     case HORZSIZE:
 333         return MulDiv(physDev->horzSize, 100,
 334                       physDev->Devmode->dmPublic.dmScale);
 335     case VERTSIZE:
 336         return MulDiv(physDev->vertSize, 100,
 337                       physDev->Devmode->dmPublic.dmScale);
 338     case HORZRES:
 339         return physDev->horzRes;
 340     case VERTRES:
 341         return physDev->vertRes;
 342     case BITSPIXEL:
 343         return (physDev->pi->ppd->ColorDevice ? 8 : 1);
 344     case PLANES:
 345         return 1;
 346     case NUMBRUSHES:
 347         return -1;
 348     case NUMPENS:
 349         return 10;
 350     case NUMMARKERS:
 351         return 0;
 352     case NUMFONTS:
 353         return 39;
 354     case NUMCOLORS:
 355         return (physDev->pi->ppd->ColorDevice ? 256 : -1);
 356     case PDEVICESIZE:
 357         return sizeof(PSDRV_PDEVICE);
 358     case CURVECAPS:
 359         return (CC_CIRCLES | CC_PIE | CC_CHORD | CC_ELLIPSES | CC_WIDE |
 360                 CC_STYLED | CC_WIDESTYLED | CC_INTERIORS | CC_ROUNDRECT);
 361     case LINECAPS:
 362         return (LC_POLYLINE | LC_MARKER | LC_POLYMARKER | LC_WIDE |
 363                 LC_STYLED | LC_WIDESTYLED | LC_INTERIORS);
 364     case POLYGONALCAPS:
 365         return (PC_POLYGON | PC_RECTANGLE | PC_WINDPOLYGON | PC_SCANLINE |
 366                 PC_WIDE | PC_STYLED | PC_WIDESTYLED | PC_INTERIORS);
 367     case TEXTCAPS:
 368         return TC_CR_ANY | TC_VA_ABLE; /* psdrv 0x59f7 */
 369     case CLIPCAPS:
 370         return CP_RECTANGLE;
 371     case RASTERCAPS:
 372         return (RC_BITBLT | RC_BITMAP64 | RC_GDI20_OUTPUT | RC_DIBTODEV |
 373                 RC_STRETCHBLT | RC_STRETCHDIB); /* psdrv 0x6e99 */
 374     /* Are aspect[XY] and logPixels[XY] correct? */
 375     /* Need to handle different res in x and y => fix ppd */
 376     case ASPECTX:
 377     case ASPECTY:
 378         return physDev->pi->ppd->DefaultResolution;
 379     case ASPECTXY:
 380         return (int)hypot( (double)physDev->pi->ppd->DefaultResolution,
 381                            (double)physDev->pi->ppd->DefaultResolution );
 382     case LOGPIXELSX:
 383         return MulDiv(physDev->logPixelsX,
 384                       physDev->Devmode->dmPublic.dmScale, 100);
 385     case LOGPIXELSY:
 386         return MulDiv(physDev->logPixelsY,
 387                       physDev->Devmode->dmPublic.dmScale, 100);
 388     case SIZEPALETTE:
 389         return 0;
 390     case NUMRESERVED:
 391         return 0;
 392     case COLORRES:
 393         return 0;
 394     case PHYSICALWIDTH:
 395         return (physDev->Devmode->dmPublic.u1.s1.dmOrientation == DMORIENT_LANDSCAPE) ?
 396           physDev->PageSize.cy : physDev->PageSize.cx;
 397     case PHYSICALHEIGHT:
 398         return (physDev->Devmode->dmPublic.u1.s1.dmOrientation == DMORIENT_LANDSCAPE) ?
 399           physDev->PageSize.cx : physDev->PageSize.cy;
 400     case PHYSICALOFFSETX:
 401       if(physDev->Devmode->dmPublic.u1.s1.dmOrientation == DMORIENT_LANDSCAPE) {
 402           if(physDev->pi->ppd->LandscapeOrientation == -90)
 403               return physDev->PageSize.cy - physDev->ImageableArea.top;
 404           else
 405               return physDev->ImageableArea.bottom;
 406       }
 407       return physDev->ImageableArea.left;
 408
 409     case PHYSICALOFFSETY:
 410       if(physDev->Devmode->dmPublic.u1.s1.dmOrientation == DMORIENT_LANDSCAPE) {
 411           if(physDev->pi->ppd->LandscapeOrientation == -90)
 412               return physDev->PageSize.cx - physDev->ImageableArea.right;
 413           else
 414               return physDev->ImageableArea.left;
 415       }
 416       return physDev->PageSize.cy - physDev->ImageableArea.top;
 417
 418     case SCALINGFACTORX:
 419     case SCALINGFACTORY:
 420     case VREFRESH:
 421     case DESKTOPVERTRES:
 422     case DESKTOPHORZRES:
 423     case BTLALIGNMENT:
 424         return 0;
 425     default:
 426         FIXME("(%04x): unsupported capability %d, will return 0\n", physDev->hdc, cap );
 427         return 0;
 428     }
 429 }
 430
 431
 432 /**********************************************************************
 433  *              PSDRV_FindPrinterInfo
 434  */
 435 PRINTERINFO *PSDRV_FindPrinterInfo(LPCSTR name)
 436 {
 437     static PRINTERINFO *PSDRV_PrinterList;
 438     DWORD type = REG_BINARY, needed, res, dwPaperSize;
 439     PRINTERINFO *pi = PSDRV_PrinterList, **last = &PSDRV_PrinterList;
 440     FONTNAME *font;
 441     const AFM *afm;
 442     HANDLE hPrinter;
 443     const char *ppd = NULL;
 444     DWORD ppdType;
 445     char* ppdFileName = NULL;
 446     HKEY hkey;
 447
 448     TRACE("'%s'\n", name);
 449
 450     /*
 451      *  If this loop completes, last will point to the 'next' element of the
 452      *  final PRINTERINFO in the list
 453      */
 454     for( ; pi; last = &pi->next, pi = pi->next)
 455         if(!strcmp(pi->FriendlyName, name))
 456             return pi;
 457
 458     pi = *last = HeapAlloc( PSDRV_Heap, HEAP_ZERO_MEMORY, sizeof(*pi) );
 459     if (pi == NULL)
 460         return NULL;
 461
 462     if (!(pi->FriendlyName = HeapAlloc( PSDRV_Heap, 0, strlen(name)+1 ))) goto fail;
 463     strcpy( pi->FriendlyName, name );
 464
 465     /* Use Get|SetPrinterDataExA instead? */
 466
 467     res = DrvGetPrinterData16((LPSTR)name, (LPSTR)INT_PD_DEFAULT_DEVMODE, &type,
 468                             NULL, 0, &needed );
 469
 470     if(res == ERROR_INVALID_PRINTER_NAME || needed != sizeof(DefaultDevmode)) {
 471         pi->Devmode = HeapAlloc( PSDRV_Heap, 0, sizeof(DefaultDevmode) );
 472         if (pi->Devmode == NULL)
 473             goto cleanup;
 474         memcpy(pi->Devmode, &DefaultDevmode, sizeof(DefaultDevmode) );
 475         strcpy(pi->Devmode->dmPublic.dmDeviceName,name);
 476         DrvSetPrinterData16((LPSTR)name, (LPSTR)INT_PD_DEFAULT_DEVMODE,
 477                  REG_BINARY, (LPBYTE)&DefaultDevmode, sizeof(DefaultDevmode) );
 478
 479         /* need to do something here AddPrinter?? */
 480     }
 481     else {
 482         pi->Devmode = HeapAlloc( PSDRV_Heap, 0, needed );
 483         DrvGetPrinterData16((LPSTR)name, (LPSTR)INT_PD_DEFAULT_DEVMODE, &type,
 484                           (LPBYTE)pi->Devmode, needed, &needed);
 485     }
 486
 487     if (OpenPrinterA (pi->FriendlyName, &hPrinter, NULL) == 0) {
 488         ERR ("OpenPrinterA failed with code %li\n", GetLastError ());
 489         goto cleanup;
 490     }
 491
 492 #ifdef HAVE_CUPS
 493     {
 494         ppd = cupsGetPPD(name);
 495
 496         if (ppd) {
 497             needed=strlen(ppd)+1;
 498             ppdFileName=HeapAlloc(PSDRV_Heap, 0, needed);
 499             memcpy(ppdFileName, ppd, needed);
 500             ppdType=REG_SZ;
 501             res = ERROR_SUCCESS;
 502             /* we should unlink() that file later */
 503         } else {
 504             res = ERROR_FILE_NOT_FOUND;
 505             WARN("Did not find ppd for %s\n",name);
 506         }
 507     }
 508 #endif
 509
 510     if (!ppdFileName) {
 511         res = GetPrinterDataA(hPrinter, "PPD File", NULL, NULL, 0, &needed);
 512         if ((res==ERROR_SUCCESS) || (res==ERROR_MORE_DATA)) {
 513             ppdFileName=HeapAlloc(PSDRV_Heap, 0, needed);
 514             res = GetPrinterDataA(hPrinter, "PPD File", &ppdType, ppdFileName, needed, &needed);
 515         }
 516     }
 517     /* Look for a ppd file for this printer in the config file.
 518      * First look under that printer's name, and then under 'generic'
 519      */
 520     if((res != ERROR_SUCCESS) && !RegOpenKeyA(HKEY_LOCAL_MACHINE, "Software\\Wine\\Wine\\Config\\ppd", &hkey))
 521     {
 522         const char* value_name;
 523
 524         if (RegQueryValueExA(hkey, name, 0, NULL, NULL, &needed) == ERROR_SUCCESS) {
 525             value_name=name;
 526         } else if (RegQueryValueExA(hkey, "generic", 0, NULL, NULL, &needed) == ERROR_SUCCESS) {
 527             value_name="generic";
 528         } else {
 529             value_name=NULL;
 530         }
 531         if (value_name) {
 532             ppdFileName=HeapAlloc(PSDRV_Heap, 0, needed);
 533             RegQueryValueExA(hkey, value_name, 0, &ppdType, ppdFileName, &needed);
 534         }
 535         RegCloseKey(hkey);
 536     }
 537
 538     if (!ppdFileName) {
 539         res = ERROR_FILE_NOT_FOUND;
 540         ERR ("Error %li getting PPD file name for printer '%s'\n", res, name);
 541         goto closeprinter;
 542     } else {
 543         res = ERROR_SUCCESS;
 544         if (ppdType==REG_EXPAND_SZ) {
 545             char* tmp;
 546
 547             /* Expand environment variable references */
 548             needed=ExpandEnvironmentStringsA(ppdFileName,NULL,0);
 549             tmp=HeapAlloc(PSDRV_Heap, 0, needed);
 550             ExpandEnvironmentStringsA(ppdFileName,tmp,needed);
 551             HeapFree(PSDRV_Heap, 0, ppdFileName);
 552             ppdFileName=tmp;
 553         }
 554     }
 555
 556     pi->ppd = PSDRV_ParsePPD(ppdFileName);
 557     if(!pi->ppd) {
 558         MESSAGE("Couldn't find PPD file '%s', expect a crash now!\n",
 559             ppdFileName);
 560         goto closeprinter;
 561     }
 562
 563     /*
 564      *  This is a hack.  The default paper size should be read in as part of
 565      *  the Devmode structure, but Wine doesn't currently provide a convenient
 566      *  way to configure printers.
 567      */
 568     res = GetPrinterDataA (hPrinter, "Paper Size", NULL, (LPBYTE) &dwPaperSize,
 569             sizeof (DWORD), &needed);
 570     if (res == ERROR_SUCCESS)
 571         pi->Devmode->dmPublic.u1.s1.dmPaperSize = (SHORT) dwPaperSize;
 572     else if (res == ERROR_FILE_NOT_FOUND)
 573         TRACE ("No 'Paper Size' for printer '%s'\n", name);
 574     else {
 575         ERR ("GetPrinterDataA returned %li\n", res);
 576         goto closeprinter;
 577     }
 578
 579     res = EnumPrinterDataExA (hPrinter, "PrinterDriverData\\FontSubTable", NULL,
 580             0, &needed, &pi->FontSubTableSize);
 581     if (res == ERROR_SUCCESS || res == ERROR_FILE_NOT_FOUND) {
 582         TRACE ("No 'FontSubTable' for printer '%s'\n", name);
 583     }
 584     else if (res == ERROR_MORE_DATA) {
 585         pi->FontSubTable = HeapAlloc (PSDRV_Heap, 0, needed);
 586         if (pi->FontSubTable == NULL) {
 587             ERR ("Failed to allocate %li bytes from heap\n", needed);
 588             goto closeprinter;
 589         }
 590
 591         res = EnumPrinterDataExA (hPrinter, "PrinterDriverData\\FontSubTable",
 592                 (LPBYTE) pi->FontSubTable, needed, &needed,
 593                 &pi->FontSubTableSize);
 594         if (res != ERROR_SUCCESS) {
 595             ERR ("EnumPrinterDataExA returned %li\n", res);
 596             goto closeprinter;
 597         }
 598     }
 599     else {
 600         ERR("EnumPrinterDataExA returned %li\n", res);
 601         goto closeprinter;
 602     }
 603
 604     if (ClosePrinter (hPrinter) == 0) {
 605         ERR ("ClosePrinter failed with code %li\n", GetLastError ());
 606         goto cleanup;
 607     }
 608
 609     pi->next = NULL;
 610     pi->Fonts = NULL;
 611
 612     for(font = pi->ppd->InstalledFonts; font; font = font->next) {
 613         afm = PSDRV_FindAFMinList(PSDRV_AFMFontList, font->Name);
 614         if(!afm) {
 615             TRACE( "Couldn't find AFM file for installed printer font '%s' - "
 616                     "ignoring\n", font->Name);
 617         }
 618         else {
 619             BOOL added;
 620             if (PSDRV_AddAFMtoList(&pi->Fonts, afm, &added) == FALSE) {
 621                 PSDRV_FreeAFMList(pi->Fonts);
 622                 goto cleanup;
 623             }
 624         }
 625
 626     }
 627     if (ppd) unlink(ppd);
 628     return pi;
 629
 630 closeprinter:
 631     ClosePrinter(hPrinter);
 632 cleanup:
 633     if (ppdFileName)
 634         HeapFree(PSDRV_Heap, 0, ppdFileName);
 635     if (pi->FontSubTable)
 636         HeapFree(PSDRV_Heap, 0, pi->FontSubTable);
 637     if (pi->FriendlyName)
 638         HeapFree(PSDRV_Heap, 0, pi->FriendlyName);
 639     if (pi->Devmode)
 640         HeapFree(PSDRV_Heap, 0, pi->Devmode);
 641 fail:
 642     HeapFree(PSDRV_Heap, 0, pi);
 643     if (ppd) unlink(ppd);
 644     *last = NULL;
 645     return NULL;
 646 }