This is macninit.c in view mode; [Download] [Up]
/* 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);
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.