388 lines
9.6 KiB
C
388 lines
9.6 KiB
C
|
#define INCLUDE_DRIVINIT_H
|
||
|
|
#include <windows.h>
|
||
|
|
#include <string.h>
|
||
|
|
#include <stdio.h>
|
||
|
|
#include "edit.h"
|
||
|
|
#include "win1632.h"
|
||
|
|
|
||
|
|
#define PSTR_LEN 256
|
||
|
|
static char ProfileString[PSTR_LEN];
|
||
|
|
static char _FAR *Title;
|
||
|
|
static char *Rest;
|
||
|
|
static char *DeviceName;
|
||
|
|
static char *DriverName;
|
||
|
|
static char *PortName;
|
||
|
|
static char _FAR *PrinterData;
|
||
|
|
static char DriverFormat[] = "%s.DRV";
|
||
|
|
|
||
|
|
/*
|
||
|
|
* PrinterDC - obtains a DC to the current printer
|
||
|
|
*/
|
||
|
|
HDC PrinterDC( void )
|
||
|
|
{
|
||
|
|
char *tmp;
|
||
|
|
HDC hdc;
|
||
|
|
char str[128];
|
||
|
|
HINSTANCE hlib;
|
||
|
|
FARPROC fp;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* get printer device type
|
||
|
|
*/
|
||
|
|
PrinterSupport = PSUPP_NONE;
|
||
|
|
GetProfileString( "WiNdOwS", "dEvIcE", "", ProfileString, PSTR_LEN );
|
||
|
|
|
||
|
|
/*
|
||
|
|
* find first ',' and insert a 0; this is the device name
|
||
|
|
*/
|
||
|
|
DeviceName = ProfileString;
|
||
|
|
tmp = ProfileString;
|
||
|
|
while( 1 ) {
|
||
|
|
if( *tmp == ',' ) {
|
||
|
|
*tmp = 0;
|
||
|
|
tmp++;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
if( !(*tmp) ) {
|
||
|
|
DeviceName[0] = 0;
|
||
|
|
return( NULL );
|
||
|
|
}
|
||
|
|
tmp++;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* find next ',' and insert a 0; this terminates the driver name
|
||
|
|
*/
|
||
|
|
DriverName = tmp;
|
||
|
|
while( 1 ) {
|
||
|
|
if( *tmp == ',' ) {
|
||
|
|
*tmp = 0;
|
||
|
|
tmp++;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
if( !(*tmp) ) {
|
||
|
|
DeviceName[0] = 0;
|
||
|
|
return( NULL );
|
||
|
|
}
|
||
|
|
tmp++;
|
||
|
|
}
|
||
|
|
if( !(*tmp) ) {
|
||
|
|
DeviceName[0] = 0;
|
||
|
|
return( NULL );
|
||
|
|
}
|
||
|
|
PortName = tmp;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* check if printer has changed, if so, toss the data
|
||
|
|
*/
|
||
|
|
if( PrinterData != NULL && _strcmp( PrinterData, DeviceName ) ) {
|
||
|
|
MemFree( PrinterData );
|
||
|
|
PrinterData = NULL;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* get the printer dc
|
||
|
|
*/
|
||
|
|
hdc = CreateDC( DriverName, DeviceName, PortName, NULL );
|
||
|
|
if( hdc == NULL ) return( NULL );
|
||
|
|
PrinterSupport = PSUPP_CANPRINT;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* look for ExtDeviceMode
|
||
|
|
*/
|
||
|
|
sprintf( str, DriverFormat, DriverName );
|
||
|
|
hlib = LoadLibrary( str );
|
||
|
|
if( (UINT)hlib >= 32 ) {
|
||
|
|
fp = GetProcAddress( hlib, "EXTDEVICEMODE" );
|
||
|
|
if( fp != NULL ) PrinterSupport = PSUPP_CANPRINTANDSET;
|
||
|
|
FreeLibrary( hlib );
|
||
|
|
}
|
||
|
|
return( hdc );
|
||
|
|
|
||
|
|
} /* PrinterDC */
|
||
|
|
|
||
|
|
#ifndef __WINDOWS_386__
|
||
|
|
typedef int (CALLBACK* EDMPROC)(HWND, HANDLE, LPDEVMODE, LPSTR, LPSTR, LPDEVMODE, LPSTR, WORD);
|
||
|
|
#endif
|
||
|
|
/*
|
||
|
|
* GetPrinterSetup - get data about this printer
|
||
|
|
*/
|
||
|
|
void GetPrinterSetup( HWND hwnd )
|
||
|
|
{
|
||
|
|
char str[128];
|
||
|
|
HINSTANCE hlib;
|
||
|
|
int edm_flag;
|
||
|
|
char _FAR *newdata;
|
||
|
|
char _FAR *olddata;
|
||
|
|
WORD bytes;
|
||
|
|
WORD rc;
|
||
|
|
#ifdef __WINDOWS_386__
|
||
|
|
HINDIR hindir;
|
||
|
|
#endif
|
||
|
|
FARPROC fp;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* get ExtDeviceMode address
|
||
|
|
*/
|
||
|
|
sprintf( str, DriverFormat, DriverName );
|
||
|
|
hlib = LoadLibrary( str );
|
||
|
|
if( (UINT)hlib < 32 ) return;
|
||
|
|
fp = GetProcAddress( hlib, "EXTDEVICEMODE" );
|
||
|
|
if( fp == NULL ) {
|
||
|
|
FreeLibrary( hlib );
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* get number of bytes
|
||
|
|
*/
|
||
|
|
#ifdef __WINDOWS_386__
|
||
|
|
hindir = GetIndirectFunctionHandle( fp,
|
||
|
|
INDIR_WORD, INDIR_WORD, INDIR_DWORD,
|
||
|
|
INDIR_PTR, INDIR_PTR, INDIR_DWORD,
|
||
|
|
INDIR_DWORD, INDIR_WORD, INDIR_ENDLIST );
|
||
|
|
bytes = (WORD) InvokeIndirectFunction( hindir, hwnd, hlib, NULL,
|
||
|
|
DeviceName, PortName, NULL, NULL, 0 );
|
||
|
|
MemFree( (void *) hindir );
|
||
|
|
#else
|
||
|
|
bytes = ((EDMPROC)fp)( hwnd, hlib, (LPDEVMODE) NULL, (LPSTR) DeviceName,
|
||
|
|
(LPSTR) PortName, (LPDEVMODE) NULL, (LPSTR) NULL, 0);
|
||
|
|
#endif
|
||
|
|
/*
|
||
|
|
* if we already have data, use that in the dialog
|
||
|
|
*/
|
||
|
|
newdata = MemAlloc( bytes );
|
||
|
|
edm_flag = DM_PROMPT | DM_COPY;
|
||
|
|
if( PrinterData != NULL ) edm_flag |= DM_MODIFY;
|
||
|
|
olddata = PrinterData;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* now, get the new data from the dialog
|
||
|
|
*/
|
||
|
|
#ifdef __WINDOWS_386__
|
||
|
|
hindir = GetIndirectFunctionHandle( fp,
|
||
|
|
INDIR_WORD, INDIR_WORD, INDIR_PTR,
|
||
|
|
INDIR_PTR, INDIR_PTR, INDIR_PTR,
|
||
|
|
INDIR_DWORD, INDIR_WORD, INDIR_ENDLIST );
|
||
|
|
rc = InvokeIndirectFunction(
|
||
|
|
hindir,
|
||
|
|
hwnd,
|
||
|
|
hlib,
|
||
|
|
(LPDEVMODE) newdata,
|
||
|
|
(LPSTR) DeviceName,
|
||
|
|
(LPSTR) PortName,
|
||
|
|
(LPDEVMODE) olddata,
|
||
|
|
0L,
|
||
|
|
edm_flag );
|
||
|
|
MemFree( (void *) hindir );
|
||
|
|
#else
|
||
|
|
rc = ((EDMPROC)fp)( hwnd, hlib, (LPDEVMODE) newdata, (LPSTR) DeviceName,
|
||
|
|
(LPSTR) PortName, (LPDEVMODE) olddata,
|
||
|
|
(LPSTR) NULL, edm_flag );
|
||
|
|
#endif
|
||
|
|
|
||
|
|
FreeLibrary( hlib );
|
||
|
|
if( rc != IDOK ) {
|
||
|
|
MemFree( newdata );
|
||
|
|
} else {
|
||
|
|
MemFree( olddata );
|
||
|
|
PrinterData = newdata;
|
||
|
|
}
|
||
|
|
|
||
|
|
} /* GetPrinterSetup */
|
||
|
|
|
||
|
|
static volatile BOOL WasAborted;
|
||
|
|
static HWND DlgWnd;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Abort - procedure to abort a print job
|
||
|
|
*/
|
||
|
|
int _EXPORT FAR PASCAL Abort( HDC hdc, WORD w )
|
||
|
|
{
|
||
|
|
MSG msg;
|
||
|
|
|
||
|
|
w = w; /* shut up warning */
|
||
|
|
hdc = hdc;
|
||
|
|
|
||
|
|
while( !WasAborted && PeekMessage( &msg, 0, 0, 0, TRUE )) {
|
||
|
|
if( !IsDialogMessage( DlgWnd, &msg ) ) {
|
||
|
|
TranslateMessage( &msg );
|
||
|
|
DispatchMessage ( &msg );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return( !WasAborted );
|
||
|
|
|
||
|
|
} /* Abort */
|
||
|
|
|
||
|
|
/*
|
||
|
|
* AbortDialog - wait for the person to press cancel
|
||
|
|
*/
|
||
|
|
int _EXPORT FAR PASCAL AbortDialog( HWND hwnd, unsigned msg, UINT wparam,
|
||
|
|
LONG lparam )
|
||
|
|
{
|
||
|
|
lparam = lparam;
|
||
|
|
wparam = wparam;
|
||
|
|
|
||
|
|
switch(msg) {
|
||
|
|
case WM_COMMAND:
|
||
|
|
WasAborted = TRUE;
|
||
|
|
return( TRUE );
|
||
|
|
|
||
|
|
case WM_INITDIALOG:
|
||
|
|
SetDlgItemText( hwnd, PRINT_TITLE, (LPSTR) Title );
|
||
|
|
SetDlgItemText( hwnd, PRINT_REST, (LPSTR) Rest );
|
||
|
|
return( TRUE );
|
||
|
|
}
|
||
|
|
return( FALSE );
|
||
|
|
|
||
|
|
} /* AbortDialog */
|
||
|
|
|
||
|
|
|
||
|
|
/*
|
||
|
|
* CleanUp - clean up after print
|
||
|
|
*/
|
||
|
|
static BOOL CleanUp( HDC hdc, FARPROC abort, FARPROC abortdlg, BOOL err )
|
||
|
|
{
|
||
|
|
|
||
|
|
if( err ) Escape( hdc, ABORTDOC, 0, NULL, NULL );
|
||
|
|
if( DlgWnd != NULL ) DestroyWindow( DlgWnd );
|
||
|
|
DlgWnd = NULL;
|
||
|
|
if( hdc != NULL ) DeleteDC( hdc );
|
||
|
|
#ifndef __NT__
|
||
|
|
if( abortdlg != NULL ) FreeProcInstance( abortdlg );
|
||
|
|
if( abort != NULL ) FreeProcInstance( abort );
|
||
|
|
#else
|
||
|
|
abortdlg = abortdlg;
|
||
|
|
abort = abort;
|
||
|
|
#endif
|
||
|
|
/* Error? make sure the user knows... */
|
||
|
|
if( WasAborted ) {
|
||
|
|
MessageBox( NULL, Title, "Error printing file", MB_OK );
|
||
|
|
}
|
||
|
|
return( 0 );
|
||
|
|
|
||
|
|
} /* CleanUp */
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Print - print current file
|
||
|
|
*/
|
||
|
|
BOOL Print( LPEDATA ed )
|
||
|
|
{
|
||
|
|
FARPROC abort;
|
||
|
|
FARPROC abortdlg;
|
||
|
|
HDC hdc;
|
||
|
|
WORD pageheight;
|
||
|
|
WORD lineheight;
|
||
|
|
WORD height;
|
||
|
|
LRESULT linecnt;
|
||
|
|
WORD currline;
|
||
|
|
UINT offset;
|
||
|
|
WORD len;
|
||
|
|
LOCALHANDLE hdata;
|
||
|
|
BOOL error;
|
||
|
|
char FAR *buff;
|
||
|
|
char _FAR *tmpbuff;
|
||
|
|
char rest[256];
|
||
|
|
SIZE sz;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* init. misc.
|
||
|
|
*/
|
||
|
|
Title = ed->filename;
|
||
|
|
if( Title == NULL ) Title = (LPSTR) "untitled";
|
||
|
|
WasAborted = FALSE;
|
||
|
|
error = FALSE;
|
||
|
|
Rest = rest;
|
||
|
|
sprintf( Rest,"%s %s", PortName, DeviceName );
|
||
|
|
|
||
|
|
/*
|
||
|
|
* create procs
|
||
|
|
*/
|
||
|
|
abort = MakeProcInstance( (FARPROC)Abort, ed->inst );
|
||
|
|
if( abort == NULL ) return( 0 );
|
||
|
|
abortdlg = MakeProcInstance( (FARPROC)AbortDialog, ed->inst );
|
||
|
|
if( abortdlg == NULL ) return( CleanUp( NULL, abort, NULL, FALSE ) );
|
||
|
|
|
||
|
|
/*
|
||
|
|
* init. printer
|
||
|
|
*/
|
||
|
|
hdc = PrinterDC();
|
||
|
|
if( !hdc ) return( CleanUp( NULL, abort, abortdlg, FALSE ) );
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Create abort dialog
|
||
|
|
*/
|
||
|
|
DlgWnd = CreateDialog( ed->inst, "AbortDialog", ed->hwnd, (DLGPROC)abortdlg );
|
||
|
|
if( DlgWnd == NULL ) return( CleanUp( hdc, abort, abortdlg, 0 ) );
|
||
|
|
ShowWindow( DlgWnd, SW_SHOW );
|
||
|
|
UpdateWindow( DlgWnd );
|
||
|
|
|
||
|
|
/*
|
||
|
|
* set up escape function
|
||
|
|
*/
|
||
|
|
if( Escape( hdc, SETABORTPROC, 0, (LPSTR) abort, NULL ) < 0 ) {
|
||
|
|
return( CleanUp( hdc, abort, abortdlg, FALSE ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* start document
|
||
|
|
*/
|
||
|
|
if( Escape( hdc, STARTDOC, _strlen( Title ), (LPSTR) Title, NULL ) < 0 ) {
|
||
|
|
return( CleanUp( hdc, abort, abortdlg, FALSE ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* get info
|
||
|
|
*/
|
||
|
|
pageheight = GetDeviceCaps( hdc, VERTRES );
|
||
|
|
GetTextExtentPoint( hdc, "CC", 2, &sz );
|
||
|
|
lineheight = sz.cy;
|
||
|
|
height = 0;
|
||
|
|
linecnt = SendMessage( ed->editwnd, EM_GETLINECOUNT, 0, 0L );
|
||
|
|
currline = 0;
|
||
|
|
hdata = (HANDLE)SendMessage( ed->editwnd, EM_GETHANDLE, 0, 0L );
|
||
|
|
|
||
|
|
/*
|
||
|
|
* print all lines
|
||
|
|
*/
|
||
|
|
while( currline < linecnt ) {
|
||
|
|
|
||
|
|
if( height + lineheight > pageheight ) {
|
||
|
|
height = 0;
|
||
|
|
if( Escape( hdc, NEWFRAME, 0, NULL, NULL ) < 0 ) error = TRUE;
|
||
|
|
}
|
||
|
|
if( WasAborted || error ) return( CleanUp( hdc, abort, abortdlg, TRUE ) );
|
||
|
|
|
||
|
|
/*
|
||
|
|
* get the data and print it
|
||
|
|
*/
|
||
|
|
offset = SendMessage( ed->editwnd, EM_LINEINDEX, currline, 0L );
|
||
|
|
len = SendMessage( ed->editwnd, EM_LINELENGTH, offset, 0L );
|
||
|
|
buff = MK_LOCAL32( LocalLock( hdata ) ) ;
|
||
|
|
tmpbuff = MemAlloc( len );
|
||
|
|
#ifndef __NT__
|
||
|
|
_fmemcpy( tmpbuff, buff + offset, len );
|
||
|
|
#else
|
||
|
|
memcpy( tmpbuff, buff + offset, len );
|
||
|
|
#endif
|
||
|
|
LocalUnlock( hdata );
|
||
|
|
|
||
|
|
TextOut( hdc, 0, height, (LPSTR)tmpbuff, len );
|
||
|
|
MemFree( tmpbuff );
|
||
|
|
|
||
|
|
currline++;
|
||
|
|
height += lineheight;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* eject final page, and tidy up
|
||
|
|
*/
|
||
|
|
if( Escape( hdc, NEWFRAME, 0, NULL, NULL) >= 0 ) {
|
||
|
|
if( Escape( hdc, ENDDOC, 0, NULL, NULL ) < 0 ) error = TRUE;
|
||
|
|
} else {
|
||
|
|
error = TRUE;
|
||
|
|
}
|
||
|
|
return( CleanUp( hdc, abort, abortdlg, error ) );
|
||
|
|
|
||
|
|
} /* Print */
|