#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 1024
char buffer[BUFFER];

int DonePrinting;

void do_it(GSString255*);


static int _gno;	//set iff gno is active



void 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	0x001fffff


void 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());
}