2 * Implementation of some printer driver bits
4 * Copyright 1996 John Harvey
5 * Copyright 1998 Huw Davies
6 * Copyright 1998 Andreas Mohr
7 * Copyright 1999 Klaas van Gend
17 #include "wine/winbase16.h"
18 #include "wine/wingdi16.h"
22 #include "debugtools.h"
29 DEFAULT_DEBUG_CHANNEL(print
);
31 static char PrinterModel
[] = "Printer Model";
32 static char DefaultDevMode
[] = "Default DevMode";
33 static char PrinterDriverData
[] = "PrinterDriverData";
34 static char Printers
[] = "System\\CurrentControlSet\\Control\\Print\\Printers\\";
36 /******************************************************************
37 * StartDoc16 [GDI.377]
40 INT16 WINAPI
StartDoc16( HDC16 hdc
, const DOCINFO16
*lpdoc
)
44 docA
.cbSize
= lpdoc
->cbSize
;
45 docA
.lpszDocName
= MapSL(lpdoc
->lpszDocName
);
46 docA
.lpszOutput
= MapSL(lpdoc
->lpszOutput
);
48 if(lpdoc
->cbSize
>= 14)
49 docA
.lpszDatatype
= MapSL(lpdoc
->lpszDatatype
);
51 docA
.lpszDatatype
= NULL
;
53 if(lpdoc
->cbSize
>= 18)
54 docA
.fwType
= lpdoc
->fwType
;
58 return StartDocA(hdc
, &docA
);
61 /******************************************************************
62 * StartDocA [GDI32.347]
64 * StartDoc calls the STARTDOC Escape with the input data pointing to DocName
65 * and the output data (which is used as a second input parameter).pointing at
66 * the whole docinfo structure. This seems to be an undocumented feature of
67 * the STARTDOC Escape.
69 INT WINAPI
StartDocA(HDC hdc
, const DOCINFOA
* doc
)
72 DC
*dc
= DC_GetDCPtr( hdc
);
74 TRACE("DocName = '%s' Output = '%s' Datatype = '%s'\n",
75 doc
->lpszDocName
, doc
->lpszOutput
, doc
->lpszDatatype
);
77 if(!dc
) return SP_ERROR
;
79 if(dc
->funcs
->pStartDoc
)
80 ret
= dc
->funcs
->pStartDoc( dc
, doc
);
82 ret
= Escape(hdc
, STARTDOC
, strlen(doc
->lpszDocName
),
83 doc
->lpszDocName
, (LPVOID
)doc
);
84 GDI_ReleaseObj( hdc
);
88 /*************************************************************************
89 * StartDocW [GDI32.348]
92 INT WINAPI
StartDocW(HDC hdc
, const DOCINFOW
* doc
)
97 docA
.cbSize
= doc
->cbSize
;
98 docA
.lpszDocName
= doc
->lpszDocName
?
99 HEAP_strdupWtoA( GetProcessHeap(), 0, doc
->lpszDocName
) : NULL
;
100 docA
.lpszOutput
= doc
->lpszOutput
?
101 HEAP_strdupWtoA( GetProcessHeap(), 0, doc
->lpszOutput
) : NULL
;
102 docA
.lpszDatatype
= doc
->lpszDatatype
?
103 HEAP_strdupWtoA( GetProcessHeap(), 0, doc
->lpszDatatype
) : NULL
;
104 docA
.fwType
= doc
->fwType
;
106 ret
= StartDocA(hdc
, &docA
);
109 HeapFree( GetProcessHeap(), 0, (LPSTR
)docA
.lpszDocName
);
111 HeapFree( GetProcessHeap(), 0, (LPSTR
)docA
.lpszOutput
);
112 if(docA
.lpszDatatype
)
113 HeapFree( GetProcessHeap(), 0, (LPSTR
)docA
.lpszDatatype
);
118 /******************************************************************
122 INT16 WINAPI
EndDoc16(HDC16 hdc
)
127 /******************************************************************
131 INT WINAPI
EndDoc(HDC hdc
)
134 DC
*dc
= DC_GetDCPtr( hdc
);
135 if(!dc
) return SP_ERROR
;
137 if(dc
->funcs
->pEndDoc
)
138 ret
= dc
->funcs
->pEndDoc( dc
);
140 ret
= Escape(hdc
, ENDDOC
, 0, 0, 0);
141 GDI_ReleaseObj( hdc
);
145 /******************************************************************
146 * StartPage16 [GDI.379]
149 INT16 WINAPI
StartPage16(HDC16 hdc
)
151 return StartPage(hdc
);
154 /******************************************************************
155 * StartPage [GDI32.349]
158 INT WINAPI
StartPage(HDC hdc
)
161 DC
*dc
= DC_GetDCPtr( hdc
);
162 if(!dc
) return SP_ERROR
;
164 if(dc
->funcs
->pStartPage
)
165 ret
= dc
->funcs
->pStartPage( dc
);
168 GDI_ReleaseObj( hdc
);
172 /******************************************************************
173 * EndPage16 [GDI.380]
176 INT16 WINAPI
EndPage16( HDC16 hdc
)
181 /******************************************************************
185 INT WINAPI
EndPage(HDC hdc
)
188 DC
*dc
= DC_GetDCPtr( hdc
);
189 if(!dc
) return SP_ERROR
;
191 if(dc
->funcs
->pEndPage
)
192 ret
= dc
->funcs
->pEndPage( dc
);
194 ret
= Escape(hdc
, NEWFRAME
, 0, 0, 0);
195 GDI_ReleaseObj( hdc
);
196 if (!QueryAbort16( hdc
, 0 ))
204 /******************************************************************************
205 * AbortDoc16 [GDI.382]
207 INT16 WINAPI
AbortDoc16(HDC16 hdc
)
209 return AbortDoc(hdc
);
212 /******************************************************************************
213 * AbortDoc [GDI32.105]
215 INT WINAPI
AbortDoc(HDC hdc
)
218 DC
*dc
= DC_GetDCPtr( hdc
);
219 if(!dc
) return SP_ERROR
;
221 if(dc
->funcs
->pAbortDoc
)
222 ret
= dc
->funcs
->pAbortDoc( dc
);
224 ret
= Escape(hdc
, ABORTDOC
, 0, 0, 0);
225 GDI_ReleaseObj( hdc
);
229 /**********************************************************************
230 * QueryAbort16 (GDI.155)
232 * Calls the app's AbortProc function if avail.
235 * TRUE if no AbortProc avail or AbortProc wants to continue printing.
236 * FALSE if AbortProc wants to abort printing.
238 BOOL16 WINAPI
QueryAbort16(HDC16 hdc
, INT16 reserved
)
241 DC
*dc
= DC_GetDCPtr( hdc
);
244 ERR("Invalid hdc %04x\n", hdc
);
248 if (dc
->pAbortProc
) ret
= dc
->pAbortProc(hdc
, 0);
249 GDI_ReleaseObj( hdc
);
253 /* ### start build ### */
254 extern WORD CALLBACK
PRTDRV_CallTo16_word_ww(FARPROC16
,WORD
,WORD
);
255 /* ### stop build ### */
257 /**********************************************************************
258 * SetAbortProc16 (GDI.381)
261 INT16 WINAPI
SetAbortProc16(HDC16 hdc
, SEGPTR abrtprc
)
263 ABORTPROC proc32
= (ABORTPROC
)THUNK_Alloc((FARPROC16
)abrtprc
,
264 (RELAY
)PRTDRV_CallTo16_word_ww
);
265 return SetAbortProc(hdc
, proc32
);
268 /**********************************************************************
269 * SetAbortProc (GDI32.301)
272 INT WINAPI
SetAbortProc(HDC hdc
, ABORTPROC abrtprc
)
274 DC
*dc
= DC_GetDCPtr( hdc
);
276 if(dc
->pAbortProc
) THUNK_Free((FARPROC
)dc
->pAbortProc
);
277 dc
->pAbortProc
= abrtprc
;
278 GDI_ReleaseObj( hdc
);
283 /****************** misc. printer related functions */
286 * The following function should implement a queing system
295 static struct hpq
*hpqueue
;
297 /**********************************************************************
301 HPQ16 WINAPI
CreatePQ16(INT16 size
)
308 tmp_size
= size
<< 2;
309 if (!(hpq
= GlobalAlloc16(GMEM_SHARE
|GMEM_MOVEABLE
, tmp_size
+ 8)))
311 pPQ
= GlobalLock16(hpq
);
320 FIXME("(%d): stub\n",size
);
325 /**********************************************************************
329 INT16 WINAPI
DeletePQ16(HPQ16 hPQ
)
331 return GlobalFree16((HGLOBAL16
)hPQ
);
334 /**********************************************************************
335 * ExtractPQ (GDI.232)
338 INT16 WINAPI
ExtractPQ16(HPQ16 hPQ
)
340 struct hpq
*queue
, *prev
, *current
, *currentPrev
;
341 int key
= 0, tag
= -1;
342 currentPrev
= prev
= NULL
;
343 queue
= current
= hpqueue
;
349 currentPrev
= current
;
350 current
= current
->next
;
353 if (current
->key
< key
)
365 prev
->next
= queue
->next
;
367 hpqueue
= queue
->next
;
368 HeapFree(GetProcessHeap(), 0, queue
);
371 TRACE("%x got tag %d key %d\n", hPQ
, tag
, key
);
376 /**********************************************************************
380 INT16 WINAPI
InsertPQ16(HPQ16 hPQ
, INT16 tag
, INT16 key
)
382 struct hpq
*queueItem
= HeapAlloc(GetProcessHeap(), 0, sizeof(struct hpq
));
383 if(queueItem
== NULL
) {
384 ERR("Memory exausted!");
387 queueItem
->next
= hpqueue
;
389 queueItem
->key
= key
;
390 queueItem
->tag
= tag
;
392 FIXME("(%x %d %d): stub???\n", hPQ
, tag
, key
);
396 /**********************************************************************
400 INT16 WINAPI
MinPQ16(HPQ16 hPQ
)
402 FIXME("(%x): stub\n", hPQ
);
406 /**********************************************************************
410 INT16 WINAPI
SizePQ16(HPQ16 hPQ
, INT16 sizechange
)
412 FIXME("(%x %d): stub\n", hPQ
, sizechange
);
419 * The following functions implement part of the spooling process to
420 * print manager. I would like to see wine have a version of print managers
421 * that used LPR/LPD. For simplicity print jobs will be sent to a file for
424 typedef struct PRINTJOB
432 } PRINTJOB
, *PPRINTJOB
;
434 #define MAX_PRINT_JOBS 1
437 PPRINTJOB gPrintJobsTable
[MAX_PRINT_JOBS
];
440 static PPRINTJOB
FindPrintJobFromHandle(HANDLE16 hHandle
)
442 return gPrintJobsTable
[0];
445 static int CreateSpoolFile(LPCSTR pszOutput
)
449 char *psCmdP
= psCmd
;
451 /* TTD convert the 'output device' into a spool file name */
453 if (pszOutput
== NULL
|| *pszOutput
== '\0')
456 PROFILE_GetWineIniString( "spooler", pszOutput
, "", psCmd
, sizeof(psCmd
) );
457 TRACE("Got printerSpoolCommand '%s' for output device '%s'\n",
460 psCmdP
= (char *)pszOutput
;
463 while (*psCmdP
&& isspace(*psCmdP
))
479 TRACE("In child need to exec %s\n",psCmdP
);
489 TRACE("Need to execute a cmnd and pipe the output to it\n");
493 DOS_FULL_NAME fullName
;
495 TRACE("Just assume it's a file\n");
498 * The file name can be dos based, we have to find its
499 * Unix correspondant file name
501 DOSFS_GetFullName(psCmdP
, FALSE
, &fullName
);
503 if ((fd
= open(fullName
.long_name
, O_CREAT
| O_TRUNC
| O_WRONLY
, 0600)) < 0)
505 ERR("Failed to create spool file %s (%s)\n",
506 fullName
.long_name
, strerror(errno
));
512 static int FreePrintJob(HANDLE16 hJob
)
517 pPrintJob
= FindPrintJobFromHandle(hJob
);
518 if (pPrintJob
!= NULL
)
520 gPrintJobsTable
[pPrintJob
->nIndex
] = NULL
;
521 HeapFree(GetProcessHeap(), 0, pPrintJob
->pszOutput
);
522 HeapFree(GetProcessHeap(), 0, pPrintJob
->pszTitle
);
523 if (pPrintJob
->fd
>= 0) close(pPrintJob
->fd
);
524 HeapFree(GetProcessHeap(), 0, pPrintJob
);
530 /**********************************************************************
534 HPJOB16 WINAPI
OpenJob16(LPCSTR lpOutput
, LPCSTR lpTitle
, HDC16 hDC
)
536 HPJOB16 hHandle
= (HPJOB16
)SP_ERROR
;
539 TRACE("'%s' '%s' %04x\n", lpOutput
, lpTitle
, hDC
);
541 pPrintJob
= gPrintJobsTable
[0];
542 if (pPrintJob
== NULL
)
546 /* Try an create a spool file */
547 fd
= CreateSpoolFile(lpOutput
);
550 pPrintJob
= HeapAlloc(GetProcessHeap(), 0, sizeof(PRINTJOB
));
551 if(pPrintJob
== NULL
) {
552 WARN("Memory exausted!");
558 pPrintJob
->pszOutput
= HEAP_strdupA(GetProcessHeap(), 0, lpOutput
);
560 pPrintJob
->pszTitle
= HEAP_strdupA(GetProcessHeap(), 0, lpTitle
);
561 pPrintJob
->hDC
= hDC
;
563 pPrintJob
->nIndex
= 0;
564 pPrintJob
->hHandle
= hHandle
;
565 gPrintJobsTable
[pPrintJob
->nIndex
] = pPrintJob
;
568 TRACE("return %04x\n", hHandle
);
572 /**********************************************************************
576 INT16 WINAPI
CloseJob16(HPJOB16 hJob
)
579 PPRINTJOB pPrintJob
= NULL
;
581 TRACE("%04x\n", hJob
);
583 pPrintJob
= FindPrintJobFromHandle(hJob
);
584 if (pPrintJob
!= NULL
)
586 /* Close the spool file */
587 close(pPrintJob
->fd
);
594 /**********************************************************************
595 * WriteSpool (GDI.241)
598 INT16 WINAPI
WriteSpool16(HPJOB16 hJob
, LPSTR lpData
, INT16 cch
)
601 PPRINTJOB pPrintJob
= NULL
;
603 TRACE("%04x %08lx %04x\n", hJob
, (DWORD
)lpData
, cch
);
605 pPrintJob
= FindPrintJobFromHandle(hJob
);
606 if (pPrintJob
!= NULL
&& pPrintJob
->fd
>= 0 && cch
)
608 if (write(pPrintJob
->fd
, lpData
, cch
) != cch
)
613 /* FIXME: We just cannot call 16 bit functions from here, since we
614 * have acquired several locks (DC). And we do not really need to.
616 if (pPrintJob
->hDC
== 0) {
617 TRACE("hDC == 0 so no QueryAbort\n");
619 else if (!(QueryAbort16(pPrintJob
->hDC
, (nRet
== SP_OUTOFDISK
) ? nRet
: 0 )))
621 CloseJob16(hJob
); /* printing aborted */
629 typedef INT
WINAPI (*MSGBOX_PROC
)( HWND
, LPCSTR
, LPCSTR
, UINT
);
631 /**********************************************************************
632 * WriteDialog (GDI.242)
635 INT16 WINAPI
WriteDialog16(HPJOB16 hJob
, LPSTR lpMsg
, INT16 cchMsg
)
638 MSGBOX_PROC pMessageBoxA
;
641 TRACE("%04x %04x '%s'\n", hJob
, cchMsg
, lpMsg
);
643 if ((mod
= GetModuleHandleA("user32.dll")))
645 if ((pMessageBoxA
= (MSGBOX_PROC
)GetProcAddress( mod
, "MessageBoxA" )))
646 ret
= pMessageBoxA(0, lpMsg
, "Printing Error", MB_OKCANCEL
);
652 /**********************************************************************
653 * DeleteJob (GDI.244)
656 INT16 WINAPI
DeleteJob16(HPJOB16 hJob
, INT16 nNotUsed
)
660 TRACE("%04x\n", hJob
);
662 nRet
= FreePrintJob(hJob
);
667 * The following two function would allow a page to be sent to the printer
668 * when it has been processed. For simplicity they havn't been implemented.
669 * This means a whole job has to be processed before it is sent to the printer.
672 /**********************************************************************
673 * StartSpoolPage (GDI.246)
676 INT16 WINAPI
StartSpoolPage16(HPJOB16 hJob
)
678 FIXME("StartSpoolPage GDI.246 unimplemented\n");
684 /**********************************************************************
685 * EndSpoolPage (GDI.247)
688 INT16 WINAPI
EndSpoolPage16(HPJOB16 hJob
)
690 FIXME("EndSpoolPage GDI.247 unimplemented\n");
695 /**********************************************************************
696 * GetSpoolJob (GDI.245)
699 DWORD WINAPI
GetSpoolJob16(int nOption
, LONG param
)
702 TRACE("In GetSpoolJob param 0x%lx noption %d\n",param
, nOption
);
707 /******************************************************************
708 * DrvGetPrinterDataInternal
710 * Helper for DrvGetPrinterData
712 static DWORD
DrvGetPrinterDataInternal(LPSTR RegStr_Printer
,
713 LPBYTE lpPrinterData
, int cbData
, int what
)
717 DWORD dwType
, cbQueryData
;
719 if (!(RegOpenKeyA(HKEY_LOCAL_MACHINE
, RegStr_Printer
, &hkey
))) {
720 if (what
== INT_PD_DEFAULT_DEVMODE
) { /* "Default DevMode" */
721 if (!(RegQueryValueExA(hkey
, DefaultDevMode
, 0, &dwType
, 0, &cbQueryData
))) {
724 else if ((cbQueryData
) && (cbQueryData
<= cbData
)) {
725 cbQueryData
= cbData
;
726 if (RegQueryValueExA(hkey
, DefaultDevMode
, 0,
727 &dwType
, lpPrinterData
, &cbQueryData
))
731 } else { /* "Printer Driver" */
733 RegQueryValueExA(hkey
, "Printer Driver", 0,
734 &dwType
, lpPrinterData
, &cbQueryData
);
738 if (hkey
) RegCloseKey(hkey
);
742 /******************************************************************
743 * DrvGetPrinterData [GDI.282]
746 DWORD WINAPI
DrvGetPrinterData16(LPSTR lpPrinter
, LPSTR lpProfile
,
747 LPDWORD lpType
, LPBYTE lpPrinterData
,
748 int cbData
, LPDWORD lpNeeded
)
750 LPSTR RegStr_Printer
;
751 HKEY hkey
= 0, hkey2
= 0;
753 DWORD dwType
, PrinterAttr
, cbPrinterAttr
, SetData
, size
;
755 if (HIWORD(lpPrinter
))
756 TRACE("printer %s\n",lpPrinter
);
758 TRACE("printer %p\n",lpPrinter
);
759 if (HIWORD(lpProfile
))
760 TRACE("profile %s\n",lpProfile
);
762 TRACE("profile %p\n",lpProfile
);
763 TRACE("lpType %p\n",lpType
);
765 if ((!lpPrinter
) || (!lpProfile
) || (!lpNeeded
))
766 return ERROR_INVALID_PARAMETER
;
768 RegStr_Printer
= HeapAlloc(GetProcessHeap(), 0,
769 strlen(Printers
) + strlen(lpPrinter
) + 2);
770 strcpy(RegStr_Printer
, Printers
);
771 strcat(RegStr_Printer
, lpPrinter
);
773 if (((DWORD
)lpProfile
== INT_PD_DEFAULT_DEVMODE
) || (HIWORD(lpProfile
) &&
774 (!strcmp(lpProfile
, DefaultDevMode
)))) {
775 size
= DrvGetPrinterDataInternal(RegStr_Printer
, lpPrinterData
, cbData
,
776 INT_PD_DEFAULT_DEVMODE
);
779 if ((lpPrinterData
) && (*lpNeeded
> cbData
))
780 res
= ERROR_MORE_DATA
;
782 else res
= ERROR_INVALID_PRINTER_NAME
;
785 if (((DWORD
)lpProfile
== INT_PD_DEFAULT_MODEL
) || (HIWORD(lpProfile
) &&
786 (!strcmp(lpProfile
, PrinterModel
)))) {
788 if (!lpPrinterData
) goto failed
;
790 res
= ERROR_MORE_DATA
;
793 size
= DrvGetPrinterDataInternal(RegStr_Printer
, lpPrinterData
, cbData
,
794 INT_PD_DEFAULT_MODEL
);
795 if ((size
+1) && (lpType
))
798 res
= ERROR_INVALID_PRINTER_NAME
;
802 if ((res
= RegOpenKeyA(HKEY_LOCAL_MACHINE
, RegStr_Printer
, &hkey
)))
805 if ((res
= RegQueryValueExA(hkey
, "Attributes", 0,
806 &dwType
, (LPBYTE
)&PrinterAttr
, &cbPrinterAttr
)))
808 if ((res
= RegOpenKeyA(hkey
, PrinterDriverData
, &hkey2
)))
811 res
= RegQueryValueExA(hkey2
, lpProfile
, 0,
812 lpType
, lpPrinterData
, lpNeeded
);
813 if ((res
!= ERROR_CANTREAD
) &&
815 (PRINTER_ATTRIBUTE_ENABLE_BIDI
|PRINTER_ATTRIBUTE_NETWORK
))
816 == PRINTER_ATTRIBUTE_NETWORK
))
818 if (!(res
) && (*lpType
== REG_DWORD
) && (*(LPDWORD
)lpPrinterData
== -1))
819 res
= ERROR_INVALID_DATA
;
824 RegSetValueExA(hkey2
, lpProfile
, 0, REG_DWORD
, (LPBYTE
)&SetData
, 4); /* no result returned */
829 if (hkey2
) RegCloseKey(hkey2
);
830 if (hkey
) RegCloseKey(hkey
);
831 HeapFree(GetProcessHeap(), 0, RegStr_Printer
);
836 /******************************************************************
837 * DrvSetPrinterData [GDI.281]
840 DWORD WINAPI
DrvSetPrinterData16(LPSTR lpPrinter
, LPSTR lpProfile
,
841 DWORD lpType
, LPBYTE lpPrinterData
,
844 LPSTR RegStr_Printer
;
848 if (HIWORD(lpPrinter
))
849 TRACE("printer %s\n",lpPrinter
);
851 TRACE("printer %p\n",lpPrinter
);
852 if (HIWORD(lpProfile
))
853 TRACE("profile %s\n",lpProfile
);
855 TRACE("profile %p\n",lpProfile
);
856 TRACE("lpType %08lx\n",lpType
);
858 if ((!lpPrinter
) || (!lpProfile
) ||
859 ((DWORD
)lpProfile
== INT_PD_DEFAULT_MODEL
) || (HIWORD(lpProfile
) &&
860 (!strcmp(lpProfile
, PrinterModel
))))
861 return ERROR_INVALID_PARAMETER
;
863 RegStr_Printer
= HeapAlloc(GetProcessHeap(), 0,
864 strlen(Printers
) + strlen(lpPrinter
) + 2);
865 strcpy(RegStr_Printer
, Printers
);
866 strcat(RegStr_Printer
, lpPrinter
);
868 if (((DWORD
)lpProfile
== INT_PD_DEFAULT_DEVMODE
) || (HIWORD(lpProfile
) &&
869 (!strcmp(lpProfile
, DefaultDevMode
)))) {
870 if ( RegOpenKeyA(HKEY_LOCAL_MACHINE
, RegStr_Printer
, &hkey
)
872 RegSetValueExA(hkey
, DefaultDevMode
, 0, REG_BINARY
,
873 lpPrinterData
, dwSize
) != ERROR_SUCCESS
)
874 res
= ERROR_INVALID_PRINTER_NAME
;
878 strcat(RegStr_Printer
, "\\");
880 if( (res
= RegOpenKeyA(HKEY_LOCAL_MACHINE
, RegStr_Printer
, &hkey
)) ==
884 res
= RegDeleteValueA(hkey
, lpProfile
);
886 res
= RegSetValueExA(hkey
, lpProfile
, 0, lpType
,
887 lpPrinterData
, dwSize
);
891 if (hkey
) RegCloseKey(hkey
);
892 HeapFree(GetProcessHeap(), 0, RegStr_Printer
);