#pragma lint -1#pragma optimize -1#include <memory.h>#include <event.h>#include <window.h>#include <locator.h>#include <gsos.h>#include <quickdraw.h>#include <qdaux.h>#include <misctool.h>#include <menu.h>#include <desk.h>#include <control.h>#include <resources.h>#include <intmath.h>#include <string.h>#include <stdlib.h>#include "res.h"#include "pd.h"#define	refIsResource	2#define	refIsHandle	1#define	refIsPtr	0/*    These are low-level printer functions generally called by    printer drivers only. */extern pascal void PrDevOpen(void *, LongWord reserved)	inline(0x1c13,dispatcher);extern pascal void PrDevClose(void) inline(0x1f13,dispatcher);extern pascal void PrDevWrite(void *, void *buffer, Word length)	inline(0x1e13,dispatcher);extern pascal Word PrDevIsItSafe(void)	inline(0x3013,dispatcher);extern pascal Word PrDevAsyncRead(void *, Word length, void *buffer)	inline(0x2113,dispatcher);extern pascal Word KernStatus(void) inline(0x0603, 0xe10008);WmTaskRec MyEvent;QuitRecGS QuitDCB = {2, 0, 0x4000};OpenRecGS OpenDCB;RefNumRecGS CloseDCB;IORecGS IODCB;Word Quit;#define BUFFER 1024char buffer[BUFFER];int DonePrinting;void do_it(GSString255*);static int _gno;	//set iff gno is activevoid SetThermMaxByID(Word Data,  GrafPortPtr W, LongWord ID){Handle Hand;Ptr Ptr;	Hand = (Handle)GetCtlHandleFromID(W, ID);	if (Hand && !_toolErr)	{		asm		{			ldy #2			lda [<Hand]			sta <Ptr			lda [<Hand],y			sta <Ptr+2					lda #0			ldy #26			sta [<Ptr],y			iny			iny			lda <Data			sta [<Ptr],y		}	}}/* * disable/enable the da-related menu items. * */void DisableEdits(void){	DisableMItem(kCutItem);	DisableMItem(kCopyItem);	DisableMItem(kPasteItem);	DisableMItem(kClearItem);	DisableMItem(kCloseItem);	DisableMItem(kUndoItem);}void EnableEdits(void){	EnableMItem(kUndoItem);	EnableMItem(kCutItem);	EnableMItem(kCopyItem);	EnableMItem(kPasteItem);	EnableMItem(kClearItem);	EnableMItem(kCloseItem);}void InitMenus (void){	SetSysBar(NewMenuBar2(refIsResource,kMenuBarID,NULL));	SetMenuBar(0);  	FixAppleMenu(kAppleMID);	FixMenuBar();	DisableEdits();	DrawMenuBar();}void DoAbout(void){	AlertWindow(awCString | awPointer, (Pointer)NULL,	(Ref)"30~Printer Dumper 1.0\rby Kelvin W Sherlock~^#0");}struct split { Word low, hi; };void MenuEvents(LongWord data){	switch ( (word)data)        {	case kAboutItem: DoAbout(); break;	case kQuitItem:	Quit++;			break;	case kOpenItem: DoOpen();			break;	default:	break;        }	HiliteMenu(false, ((struct split)data).hi );}struct io_rec{	Word pCount;	Word refNum;	void *buffer;	LongWord requestCount;	LongWord transferCount;};void ErrWrite(const char *cp){struct io_rec io;	io.pCount = 4;	io.refNum = 3;	//stderr	io.buffer = cp;	io.requestCount = strlen(cp);	WriteGS(&io);}int main (int argc, char **argv){int myID;Ref tools;int speed;word i;GSString255 *fname;	// check if GNO is active	KernStatus();        if (_toolErr) _gno = 0;        else        {        	_gno = 1;                if (QDStatus()) // make sure QD isn't already happening                {			ErrWrite("\nSorry - QuickDraw is already started!\n");			rexit(1);                }	}	TLStartUp();	myID = MMStartUp();	//auxID = myID | 0x0200;	tools = StartUpTools(myID | 0x0100, refIsResource, (Ref)1);		if (!_toolErr)	 {		InitCursor();                					InitMenus();		if (argv)	// are we from a shell?		{			argv++;			argc--;			for (i = 0; i < argc; i++)			{				fname = __C2GSMalloc(argv[i]);				if (fname)				{					do_it(fname);					free(fname);				}			}		}                //else check the message center (centre, if you will		EventLoop();		ShutDownTools(refIsHandle, tools);            	}	MMShutDown(myID);	TLShutDown();	if (_gno) rexit(0);	//return something for $status	else QuitGS(&QuitDCB);}//#pragma debug -1//// TODO - show window w/ name & thermometer//void do_it(GSString255* name){char *RefName;GrafPortPtr PWind;Word i;Word scale;LongDivRec LDR;Word myTaskCode;	if (!name) return;	WaitCursor();	DonePrinting = 0;	RefName = Basename(name);	OpenDCB.pCount = 15;	OpenDCB.pathname = name;	OpenDCB.requestAccess = readEnable;	OpenDCB.resourceNumber = 0;	OpenGS(&OpenDCB);	if (_toolErr)	{		InitCursor();		AlertWindow(awCString | awPointer, (Pointer)&RefName,			(Ref)"24~Error opening file\r*0.~^#0");		free(RefName);	        return;	}/* * Determine the scale on the thermometer * */	LDR = LongDivide(OpenDCB.eof , BUFFER);	if (((struct split)LDR.quotient).hi)		scale = 0xffff;	// this is a HUGE file	else	{		scale = (Word)LDR.quotient;		if (LDR.remainder) scale++;	}	CloseDCB.pCount = 1;	CloseDCB.refNum = OpenDCB.refNum;	IODCB.pCount = 4;	IODCB.refNum = OpenDCB.refNum;	IODCB.dataBuffer = buffer;	IODCB.requestCount = BUFFER;	PrDevOpen(NULL, NULL);	if (_toolErr)	{		InitCursor();		AlertWindow(awCString | awPointer, (Pointer)NULL,			(Ref)"24~Error opening printer.~^#0");		free(RefName);		CloseGS(&CloseDCB);		return;	}	PWind = NewWindow2 ( NULL, NULL, &DefaultDraw, NULL,		refIsResource, ProgressWindowID, rWindParam1);	DrawControls(PWind);	SetPort(PWind);	MoveTo(10, 15);	DrawCString("File: ");	DrawCString(RefName);	SetThermMaxByID(scale,  PWind, PWThermoControlID);	i = 0;	while (1)	{		if (GetNextEvent(keyDownMask, &MyEvent)			&& MyEvent.message == '.'			&& MyEvent.modifiers == appleKey)			break;		ReadGS(&IODCB);		if (_toolErr == 0x4c) break;		else if (_toolErr)		{			PrDevClose();			CloseGS(&CloseDCB);			CloseWindow(PWind);			InitCursor();			AlertWindow(awCString | awPointer, (Pointer)&RefName,				(Ref)"24~Error reading file\r*0.~^#0");				free(RefName);			return;		}		if (IODCB.transferCount)		{			PrDevWrite(NULL, buffer, IODCB.transferCount);			SetCtlValueByID(++i, PWind, PWThermoControlID);		}		//else break;	}	PrDevClose();	CloseGS(&CloseDCB);	CloseWindow(PWind);                                           	InitCursor();	free(RefName);}       #pragma debug 0#define TaskMask	0x001fffffvoid EventLoop(void){Word myTaskCode;GrafPortPtr fw;	Quit = 0;        while (!Quit)        {		/* check if the front window is a system window... */		fw = FrontWindow();		if (!_toolErr)		{			if (GetWKind(fw) & 0x8000) EnableEdits();			else DisableEdits();		}		MyEvent.wmTaskMask = TaskMask;		myTaskCode = TaskMaster(0xffff, &MyEvent);		switch (myTaskCode)                {			case wInDeskItem:	//NDA opened				DisableEdits();				break;			case wClosedNDA:	// NDA closed				EnableEdits();				break;        		case wInGoAway:                        	break;        		case wInSpecial:        		case wInMenuBar:				MenuEvents(MyEvent.wmTaskData);        			break;        		default:; 		}	}}void DefaultDraw(void){	asm	{		phk		plb	}	DrawControls (GetPort());}