/*
 *  cSmallDaemon
 *
 *  7/92 Greg Robbins         based on code by C.K. Haun
 *
 *  8/96 Modified by Don Swatman
 *
 *  This is a minimal faceless background application for System 7.
 *
 *  It demonstrates how to install and dispatch Apple events, as well
 *  as the other bare essentials for a faceless background app.
 *
 *  The file type for this application should be 'APPL' if it will be launched
 *  like an application or 'appe' if it will be placed into the Extensions
 *  folder and launched at startup.  'appe' files can also have an INIT resource 
 *  to put up an icon (using ShowInit) at startup.
 */

//===============================================================================
//  AGHelper
//
// This app has been modified to compile under the latest enviroments. It also
// has had the AGValues unit added to it. This adds context check handlers and
// apple events to allow apple guides to track what sequences have been
// displayed. This turns it into an Apple Guide helper app. There are two calls
// into the unit. 
//      OSErr InitAGStuff();  // This installs the handlers
//      void RemoveAGStuff(); // This removes them
//
//===============================================================================

#include "AppleEvents.h"
#include "GestaltEqu.h"

#include "AGValues.h"

#define kSleepMax 216000  // long sleep time (in ticks) to avoid stealing cycles
                          // an app which does something on null events might
						  // sleep less

Boolean gAppleEventsFlag, gQuitFlag;
long gSleepVal;

#if !defined(THINK_C) && !defined(__MWERKS__)
	QDGlobals  qd;
#endif

//===============================================================================
// Prototypes
//===============================================================================

void InitAppleEventsCoreStuff(void);
void DoHighLevelEvent(EventRecord * theEventRecPtr);

pascal OSErr DoAEOpenApplication(AppleEvent * theAppleEvent,
                                 AppleEvent * replyAppleEvent, 
                                 long refCon);
                                 
pascal OSErr DoAEOpenDocuments(AppleEvent * theAppleEvent,
                               AppleEvent * replyAppleEvent, 
                               long refCon);

pascal OSErr DoAEPrintDocuments(AppleEvent * theAppleEvent,
                                AppleEvent * replyAppleEvent, 
                                long refCon);

pascal OSErr DoAEQuitApplication(AppleEvent * theAppleEvent,
                                 AppleEvent * replyAppleEvent, 
                                 long refCon);
                                 
//===============================================================================
//
// Apple event handlers to be installed
//
//===============================================================================

pascal OSErr DoAEOpenApplication(AppleEvent * theAppleEvent,
                                 AppleEvent * replyAppleEvent, 
                                 long refCon)
{
	return noErr;
}

pascal OSErr DoAEOpenDocuments(AppleEvent * theAppleEvent,
                               AppleEvent * replyAppleEvent, 
                               long refCon)
{
	return errAEEventNotHandled;
}

pascal OSErr DoAEPrintDocuments(AppleEvent * theAppleEvent,
                                AppleEvent * replyAppleEvent, 
                                long refCon)
{
	return errAEEventNotHandled;
}

pascal OSErr DoAEQuitApplication(AppleEvent * theAppleEvent,
                                 AppleEvent * replyAppleEvent, 
                                 long refCon)
{
	gQuitFlag = true;
	return noErr;
}

void InitAppleEventsCoreStuff(void)
// install Apple event handlers
{
	OSErr retCode;
	
	if (gAppleEventsFlag) {
		
		retCode = AEInstallEventHandler(kCoreEventClass, kAEOpenApplication,
		            NewAEEventHandlerProc (DoAEOpenApplication), 0, false);
										
		if (retCode == noErr)
			retCode = AEInstallEventHandler(kCoreEventClass, kAEOpenDocuments,
			        NewAEEventHandlerProc (DoAEOpenDocuments), 0, false);

		if (retCode == noErr)
			retCode = AEInstallEventHandler(kCoreEventClass, kAEPrintDocuments,
			        NewAEEventHandlerProc (DoAEPrintDocuments), 0, false);
		if (retCode == noErr)
			retCode = AEInstallEventHandler(kCoreEventClass, kAEQuitApplication,
			        NewAEEventHandlerProc (DoAEQuitApplication), 0, false);
		
		if (retCode != noErr) DebugStr("\pInstall event handler failed");
		// a better way to indicate an error is to post a notification					
	}
}

void DoHighLevelEvent(EventRecord * theEventRecPtr)
// high-level event dispatching
{
	(void) AEProcessAppleEvent(theEventRecPtr);
}


main()
{
	OSErr retCode;
	long gestResponse;
	
	EventRecord mainEventRec;
	Boolean eventFlag;
	
	// faceless background apps only get a 2K stack by default.  If necessary,
	// increase the stack size here (by calling GetApplLimit to find the current
	// heap limit, and SetApplLimit to set it to a lower address, thus reserving
	// more space for the stack)
	
	// initialize QuickDraw globals
	
	InitGraf(&qd.thePort);
	
	// initialize application globals
	
	gQuitFlag = false;
	gSleepVal = kSleepMax;
	
	// is the Apple Event Manager available?
	retCode = Gestalt(gestaltAppleEventsAttr, &gestResponse);
	if (retCode == noErr &&
	    (gestResponse & (1 << gestaltAppleEventsPresent)) != 0)
		gAppleEventsFlag = true;
	else gAppleEventsFlag = false;

	// install Apple event handlers
	InitAppleEventsCoreStuff();
	
// Install Apple Guide handlers
	if (InitAGStuff())
		DebugStr("\pError occured insralling AG handlers");
	else
	{
		// main event loop
		
		while (!gQuitFlag) {
			eventFlag = WaitNextEvent(everyEvent, &mainEventRec, gSleepVal, nil);
			
			if (mainEventRec.what == kHighLevelEvent)
				DoHighLevelEvent(&mainEventRec);
				
			// during testing, I like to call GetKeys here and check if the CapsLock
			// key is down.  If it is, set gQuitFlag so the program will exit.
		}

// Remove Apple Guide handlers
		RemoveAGStuff();
	}
}