/* macninit.c -- general mac nifty application library initialization
 */
/* (C) Copyright 1995 by Carnegie Mellon University
 * All Rights Reserved.
 *
 * Permission to use, copy, modify, distribute, and sell this software
 * and its documentation for any purpose is hereby granted without
 * fee, provided that the above copyright notice appear in all copies
 * and that both that copyright notice and this permission notice
 * appear in supporting documentation, and that the name of Carnegie
 * Mellon University not be used in advertising or publicity
 * pertaining to distribution of the software without specific,
 * written prior permission.  Carnegie Mellon University makes no
 * representations about the suitability of this software for any
 * purpose.  It is provided "as is" without express or implied
 * warranty.
 *
 * CARNEGIE MELLON UNIVERSITY DISCLAIMS ALL WARRANTIES WITH REGARD TO
 * THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
 * AND FITNESS, IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE
 * FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
 * AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
 * OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
 * SOFTWARE.
 */
/* (C) Copyright 1990-1994 by Christopher J. Newman
 * All Rights Reserved.
 *
 * Permission to use, copy, modify, distribute, and sell this software and its
 * documentation for any purpose is hereby granted without fee, provided that
 * the above copyright notice appear in all copies and that both that
 * copyright notice and this permission notice appear in supporting
 * documentation, and that the name of Christopher J. Newman not be used in
 * advertising or publicity pertaining to distribution of the software without
 * specific, written prior permission.  Christopher J. Newman makes no
 * representations about the suitability of this software for any purpose.  It
 * is provided "as is" without express or implied warranty.
 *
 * CHRISTOPHER J. NEWMAN DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
 * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT
 * SHALL CHRISTOPHER J. NEWMAN BE LIABLE FOR ANY SPECIAL, INDIRECT OR
 * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
 * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
 * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
 * OF THIS SOFTWARE.
 *
 * Author:	Christopher J. Newman
 * Message:	This is a nifty program.
 */

#ifndef THINK_C
#include <Fonts.h>
#include <SegLoad.h>
#include <OSEvents.h>

extern void _DataInit();			/* MPW initialize routine */
#endif
#include <string.h>
#include <Traps.h>
#include <AppleEvents.h>
#include <GestaltEqu.h>
#include <Balloons.h>
#include "macnapp.h"

extern pascal OSErr NArequiredAE(AppleEvent *, AppleEvent *, long);

#ifndef _Unimplemented
#define _Unimplemented					0xA89F
#endif
#ifndef _WaitNextEvent
#define _WaitNextEvent					0xA860
#endif
#ifndef _Gestalt
#define _Gestalt						0xA1AD
#endif

/* global to hold the application heap zone */
extern THz NAappzone;

static Boolean TrapAvailable(short);

/* this checks if a given trap is available on the system
 */
static Boolean TrapAvailable(short tNumber)
{
	short numtraps = 0x400;
	TrapType tType;
	
	tType = tNumber & 0x800 ? ToolTrap : OSTrap;
	if (tType == ToolTrap) {
		if (NGetTrapAddress(_InitGraf, ToolTrap)
			== NGetTrapAddress(0xAA6E, ToolTrap)) {
			numtraps = 0x200;
		}
		tNumber = tNumber & 0x07FF;
		if (tNumber >= numtraps)
			tNumber = _Unimplemented;
	}
	
	return (NGetTrapAddress(tNumber, tType)
			!= NGetTrapAddress(_Unimplemented, ToolTrap));
}

/* initialize the Macintosh managers and niftyapp internal variables.
 * call this first.
 */
short NAinit(short minK, short masters, na_openp openp, na_menup menup,
	short nummenu, short numapple, short newitem, short closeitem)
 {
	long		 total, contig, response, procid;
	EventRecord  event;
	short		 count;
	Handle		 menuBar;
	short		 message, i, aeflag = 0;
	AppFile		 afile;
	FSSpec		 fspec;
	Str255		 str;
	MenuHandle   mh, helpmh;
	CInfoPBRec   catinfo;

#ifndef THINK_C
	UnloadSeg((Ptr) _DataInit);		/* unload MPW init routine */
#endif
	MaxApplZone();					/* expand heap so code loads at top */
	
	/* initialize all the managers */
	InitGraf((Ptr) &QD(thePort));
	InitFonts();
	InitWindows();
	InitMenus();
	TEInit();
	InitDialogs(NULL);
	InitCursor();
	
	/* allocate enough master pointers */
	for (count = 1; count <= masters; count++) {
		MoreMasters();
		if (MemError() != noErr) return (-1);
	}
	
	/* hack to bring to front in MultiFinder */
	for (count = 1; count <= 3; count++) EventAvail(everyEvent, &event);
		
	/* get the system environment */
	(void) SysEnvirons(1, &NAsysenv);
	
	/* verify we have 128K ROMS, WaitNextEvent is available, and we have enough memory */
	if (NAsysenv.machineType < 0
			|| !TrapAvailable(_WaitNextEvent)
			|| (long) GetApplLimit() - (long) ApplicZone() < minK) {
		return (-1);
	}
	
	/* check for some Gestalt things and set up Apple Event Handler
	 * We assume that the Gestalt compatibility glue is used
	 */
	NAgestaltBits = 0;
	if (Gestalt(gestaltAppleEventsAttr, &response) == noErr) {
		NAgestaltBits |= NA_HASAEVENTS;
		if (AEInstallEventHandler(kCoreEventClass, typeWildCard,
				NArequiredAE, (long) openp, FALSE) == noErr) {
			aeflag = 1;
		}
	}
	if (Gestalt(gestaltFSAttr, &response) == noErr
		&& (response & gestaltHasFSSpecCalls)) {
		NAgestaltBits |= NA_HASFSSPEC;
	}
	if (Gestalt(gestaltStandardFileAttr, &response) == noErr) {
		NAgestaltBits |= NA_HASSTDFILE;
	}
	
	/* clean up and check available free memory */
	PurgeSpace(&total, &contig);
	if (total < minK) return (-1);
	
	/* store our application heap zone */
	NAappzone = ApplicZone();
	
	/* if the user wants automatic menu handling, do it now */
	NAmenus = NULL;
	if (menup != (na_menup) NULL) {
		NAmenus = (MenuHandle **) NewHandle(sizeof (MenuHandle) * (nummenu + 1));
		if (NAmenus == (MenuHandle **) NULL) return (-1);
		HLock((Handle) NAmenus);
		for (i = 0; i < nummenu; ++i) {
			InsertMenu((*NAmenus)[i] = GetMenu(mApple + i), 0);
		}
		(*NAmenus)[i] = NULL;
		HUnlock((Handle) NAmenus);
		mh = **NAmenus; /* Apple menu */
		*str = 0;
		GetIndString(str, NA_HELPSTR, 1);
		if (*str) {
			if (Gestalt(gestaltHelpMgrAttr, &response) != noErr
				|| HMGetHelpMenuHandle(&helpmh) != noErr) {
				helpmh = mh;
			} else {
				NAhelpcount = CountMItems(helpmh);
			}
			for (i = 2; *str; ++i) {
				++NAhelpitems;
				AppendMenu(helpmh, str);
				GetIndString(str, NA_HELPSTR, i);
			}
		}
		AppendMenu(mh, "\p-");
		AddResMenu(mh, 'DRVR');
		DrawMenuBar();
		NAcloseitem = closeitem;
		NAnewitem = newitem;
		NAappleitems = numapple;
		if (nummenu > 2) NAhasedit = true;
		NAmenup = menup;
	}
	
	/* create full & empty regions */
	NAfullRgn = NewRgn();
	NAnullRgn = NewRgn();
	if (!NAfullRgn || !NAnullRgn) return (-1);
	SetRectRgn(NAfullRgn, -32767, -32767, 32767, 32767);
	
	/* save ibeam cursor */
	NAibeam = **GetCursor(iBeamCursor);
	
	/* handle startup files (prior to system 7) */
	if (!aeflag) {
		count = 0;
		if (openp != (na_openp) NULL) {
			CountAppFiles(&message, &count);
			if (count) {
				for (i = 1; i <= count; i++) {
					GetAppFiles(i, &afile);
					procid = 0;
					catinfo.hFileInfo.ioNamePtr = (StringPtr) &afile.fName;
					catinfo.hFileInfo.ioVRefNum = afile.vRefNum;
					catinfo.hFileInfo.ioFDirIndex = 0;
					catinfo.hFileInfo.ioDirID = 0;
					GetWDInfo(afile.vRefNum, &catinfo.hFileInfo.ioVRefNum,
						&catinfo.hFileInfo.ioDirID, &procid);
					if (PBGetCatInfoSync(&catinfo) == noErr) {
						fspec.vRefNum = catinfo.hFileInfo.ioVRefNum;
						fspec.parID = catinfo.hFileInfo.ioFlParID;
						memcpy(fspec.name, afile.fName, *afile.fName + 1);
						if ((*openp)(message, &fspec, &catinfo.hFileInfo.ioFlFndrInfo) < 0) {
							break;
						}
					}
				}
				ClrAppFiles(count);
				if (message == appPrint
						&& NAcloseWindows(NAhead, NA_REQCLOSEALL) == NA_ALLCLOSED) {
					return (1);
				}
			}
		}
		if (newitem && !count && menup != (na_menup) NULL) {
			(*menup)(NULL, mFile, newitem);
		}
	}

	return (0);
}