mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-10-31 19:05:04 +00:00
553 lines
16 KiB
C
553 lines
16 KiB
C
/*
|
||
Hacks to match MacOS (most recent first):
|
||
|
||
<Sys7.1> 8/3/92 Reverted <26> by using the non-standard "MyGestalt" glue.
|
||
9/2/94 SuperMario ROM source dump (header preserved below)
|
||
*/
|
||
|
||
/*
|
||
File: Startup.c
|
||
|
||
Contains: Main startup for the Process Manager.
|
||
|
||
Written by: Erich Ringewald
|
||
|
||
Copyright: © 1986-1993 by Apple Computer, Inc., all rights reserved.
|
||
|
||
Change History (most recent first):
|
||
|
||
<SM28> 7/21/93 joe Back out <SM27>.
|
||
<27> 10/28/92 DTY Use new Get/Set macros to access ExpandMem.
|
||
<26> 9/25/92 DRF Get rid of MyGestalt, since inline glue exists
|
||
<25> 8/26/92 DTY Change ModSquad’s funky conditional to use #ifdefs like everyone
|
||
else.
|
||
<24> 8/26/92 DTY Roll in latest changes for A/UX.
|
||
<23> 8/17/92 hjcr Adding support for OCE's "defer drag" feature. Conditionally
|
||
compiled under MODSQUAD
|
||
<22> 5/11/92 JSM #1029437 <DC>: Set emProcessMgrExists to true after calling
|
||
MyNewGestalt().
|
||
<21> 3/30/92 DTY #1025416,<DDG>: Look for Skia in InitConfig and set skiaExists
|
||
accordingly.
|
||
<20> 3/23/92 JSM OSEvents.h is obsolete, use Events.h.
|
||
<19> 1/11/92 YK Initialize new globals for the TSM.
|
||
<18> 11/22/91 DTY Initialize allocateGMBlkInSysHeap to be false. GMBlk normally
|
||
tries to allocate it’s block in the Process Manager zone first,
|
||
except when an 'obit' event is being sent.
|
||
<17> 11/1/91 DTY Set TOPMAPHANDLE to point to the first system override map
|
||
instead of SYSMAPHANDLE in main().
|
||
<16> 10/15/91 YK Added initializing code for the Text Service Manager.
|
||
<15> 9/16/91 DFH Set initialProcessSR in InitializeScheduler. Needed for
|
||
NuKernel.
|
||
<14> 5/23/91 dba do a style of coercion that MPW 3.2 C likes
|
||
<13> 1/28/91 DFH JSM,#81425: Removed inhibit_DAs mechanism.
|
||
<12> 1/15/91 DFH (VL) Conditionalize out FloatAUXUp.
|
||
<11> 1/14/91 DFH (dba) Make system mode per process.
|
||
<10> 1/14/91 DFH (JDR) Conditionalize out AUX support.
|
||
<8> 1/8/91 DFH (rdd) Got rid of pErrantProcess since it is no longer needed.
|
||
<7> 12/15/90 DFH Main now initializes srcMyScrapInfo.pScrapOwner.
|
||
<6> 12/14/90 DFH InitializeScheduler now initializes kernelMode.
|
||
<5> 12/13/90 JWM For 7.0B3, sending the AppleEvent message to the network
|
||
extension (Network Setup) in the shell program (Finder 7.0)
|
||
about the PPCToolbox not initializing was removed.
|
||
<4> 12/5/90 DFH Integrated AUX support.
|
||
<3> 11/26/90 DFH Change trespass() to dbmsg().
|
||
<0> 9/2/86 ELR New Today.
|
||
|
||
*/
|
||
|
||
#pragma segment INIT
|
||
|
||
#include <types.h>
|
||
#include <memory.h>
|
||
#include <menus.h>
|
||
#include <files.h>
|
||
#include <quickdraw.h>
|
||
#include <events.h>
|
||
#include <resources.h>
|
||
#include <scrap.h>
|
||
#include <osutils.h>
|
||
#include <retrace.h>
|
||
#include <fonts.h>
|
||
#include <dialogs.h>
|
||
#include <textedit.h>
|
||
#include <segload.h>
|
||
#include <errors.h>
|
||
#include <GestaltEqu.h>
|
||
#include <EPPC.h>
|
||
#include <AppleEventsInternal.h>
|
||
#include <MFPrivate.h>
|
||
#include <ResourceMgrPriv.h>
|
||
|
||
#include "Lomem.h"
|
||
#include "SysMisc.h"
|
||
#include "Glue.h"
|
||
#include "Data.h"
|
||
#include "OSDispatchPrivate.h"
|
||
#include "Patches.h"
|
||
#include "Aux.h"
|
||
#include "Puppet.h"
|
||
#include "HList.h"
|
||
#include "Zone.h"
|
||
#include "EppcPrivate.h"
|
||
#include "AppleEventExtensions.h"
|
||
|
||
/* Some function prototypes that should be in (yet another) header file */
|
||
void MyNewGestalt(void);
|
||
void InitExceptions(void);
|
||
void GetSwitchTab(void);
|
||
void InitSystemMenus(void);
|
||
void VNInit(void);
|
||
void FMKill(Boolean);
|
||
|
||
/* Function prototypes internal to this file */
|
||
void InitializeEnvironment(void);
|
||
void InitializeScheduler(void);
|
||
void InitConfig(void);
|
||
void FloatMainUp(void);
|
||
void FloatKernelUp(void);
|
||
void FloatEppcUp(void);
|
||
void FloatAUXUp(void);
|
||
|
||
main(void)
|
||
{
|
||
LaunchResults finderLaunchResults;
|
||
Handle ourScrapHdl;
|
||
HighLevelEventRecord theEvent;
|
||
FSSpec finderSpec;
|
||
|
||
_DataInit(); /* Initialize our global data */
|
||
InitializeEnvironment(); /* Adjust machine environment to our liking */
|
||
InstallPatches(); /* Install our patches */
|
||
InitializeScheduler(); /* Initialize our global structures */
|
||
|
||
/* Locate Process Mgr's scrap handle BEFORE launches */
|
||
ourScrapHdl = SCRAPHANDLE;
|
||
|
||
/* In case BG app dies before we launch FINDERNAME */
|
||
pShellProcess = ((Ptr) -1);
|
||
|
||
/* Launch startup background applications */
|
||
if ((EXTENSIONSENABLEBYTE & (1 << ExtensionsEnabledBit)) != 0)
|
||
LaunchFacelessTasks();
|
||
|
||
THEZONE = ProcessMgrZone;
|
||
if ((finderLaunchResults.LaunchError = FSMakeFSSpec(BOOTVOL, 0, FINDERNAME, &finderSpec)) == noErr)
|
||
StandardLaunch(&finderSpec, launchUseMinimum, 0, nil, &finderLaunchResults, nil);
|
||
|
||
/* Quick Restore: Have to set zone to sys to do _UnloadSeg correctly */
|
||
THEZONE = SYSZONE; CURMAP = SYSMAP; TOPMAPHANDLE = GetOverrideMap(SYSMAPHANDLE);
|
||
|
||
/* Bomb box if the Finder launch failed */
|
||
if (finderLaunchResults.LaunchError != noErr)
|
||
SysError(dsFinderErr);
|
||
|
||
/* Remember who we launched from this special place of honor */
|
||
pShellProcess = finderLaunchResults.pNewProcess;
|
||
pShellProcess->p_dadProcess = nil;
|
||
ShellWasFinderType = IS_FINDER(pShellProcess);
|
||
|
||
/* Dump scrap since we don't use it */
|
||
if (ourScrapHdl != nil)
|
||
DisposHandle(ourScrapHdl);
|
||
|
||
/* Next Process Mgr call should use Process Mgr stack as kernel stack */
|
||
kernelstack = initCurStackBase;
|
||
|
||
/* Prepare to execute Finder */
|
||
coercionState = CS_INIT;
|
||
srcMyScrapInfo.pScrapOwner = pFrontProcess = pShellProcess;
|
||
pFrontProcess->p_state = PRRUN;
|
||
|
||
/* Unload initialization code before leaving, and also
|
||
* remove the handle from the system res map.
|
||
* NOTE: This leaves us running in a dead code segment. But the current
|
||
* Resource Manager and Memory Manager let us get away with this
|
||
* for now. All we need to do is make the switch_task call, since its
|
||
* code is in another segment, and will never return.
|
||
*/
|
||
{
|
||
CodeEntry *pCodeEntry; /* Needed explicitly because of C compiler bug */
|
||
|
||
pCodeEntry = InitializeEnvironment;
|
||
UnloadSeg(pCodeEntry);
|
||
ReleaseResource(GET_SCOD_HDL_FROM_FNC_PTR(pCodeEntry));
|
||
}
|
||
|
||
/* Send Finder AppleEvents a) to say that machine was just booted, and b) to give a
|
||
* message to the network extension if PPC wouldn't initialize.
|
||
*/
|
||
SetAppleEvent(aeStartup, &theEvent);
|
||
(void) BeginSystemMode();
|
||
(void) PostHighLevelEvent((EventRecord *) &theEvent, (u_long) &pShellProcess->p_serialNumber, 0, nil, 0, receiverIDisPSN);
|
||
|
||
/* For 7.0B3 the message to the network extension in the shell program about the
|
||
* PPCToolbox not initializing was removed. No one to support Responder, so it
|
||
* was rewritten.
|
||
*/
|
||
|
||
(void) EndSystemMode();
|
||
|
||
/* Switch to the Finder we launched, never to return (hopefully) */
|
||
switch_task(pFrontProcess);
|
||
dbmsg("Illegal return to the Process Manager.");
|
||
}
|
||
|
||
|
||
/* Dummy routines to force load of CODE segments */
|
||
#pragma segment Main
|
||
|
||
void
|
||
FloatMainUp(void)
|
||
{
|
||
}
|
||
|
||
#pragma segment kernel_segment
|
||
|
||
void
|
||
FloatKernelUp(void)
|
||
{
|
||
}
|
||
|
||
#pragma segment eppc_segment
|
||
|
||
void
|
||
FloatEppcUp(void)
|
||
{
|
||
}
|
||
|
||
#ifdef HAS_AUX_PROCESSMGR
|
||
#pragma segment AUX_SEGMENT
|
||
|
||
/* null procedure so that segment can get loaded appropriately */
|
||
void FloatAUXUp(void)
|
||
{
|
||
}
|
||
#endif HAS_AUX_PROCESSMGR
|
||
|
||
#pragma segment INIT
|
||
|
||
/* This is the size we give the system heap at startup. It's exact value is somewhat
|
||
* unimportant. It mainly determines how many times we'll have to call the System
|
||
* zone or Process Mgr zone GrowZone procedures before things settle out. Make sure
|
||
* it's small enough that the initial Finder launch goes smoothly.
|
||
*/
|
||
#define INIT_SYS_HEAP_SIZE (96*1024)
|
||
|
||
/* InitializeEnvironment. Set up the initial world (i.e. heap, qd globals, etc.). */
|
||
void
|
||
InitializeEnvironment(void)
|
||
{
|
||
CodeEntry *pCodeEntry;
|
||
register OSDispatchEntry *pDispatchEntry;
|
||
|
||
/* Set up our own lomem A5 ptr */
|
||
PROCESSMGRGLOBALS = CURRENTA5;
|
||
|
||
/* Save initial location zero before we call any traps that might change it! */
|
||
initLocationZero = LOCATIONZERO;
|
||
|
||
/* Get configuration information */
|
||
InitConfig();
|
||
|
||
/* Get table of switchable low memory locations (in System Heap) */
|
||
GetSwitchTab();
|
||
|
||
/* Expand the zone up to the APPLLIMIT */
|
||
MaxApplZone();
|
||
|
||
/* initialize the scrap, if necessary */
|
||
THEZONE = SYSZONE;
|
||
if (SCRAPSTATE == (-1))
|
||
(void) ZeroScrap();
|
||
THEZONE = APPLZONE;
|
||
|
||
/* Unload data init seg and release its CODE resource (to get it out of map). */
|
||
pCodeEntry = _DataInit;
|
||
UnloadSeg(pCodeEntry);
|
||
ReleaseResource(GET_SCOD_HDL_FROM_FNC_PTR(pCodeEntry));
|
||
|
||
/* Set up dynamic heaps */
|
||
InitHeaps();
|
||
|
||
THEZONE = SYSZONE;
|
||
|
||
/* Load in the code segments now that zone expansion code is in place */
|
||
FloatMainUp();
|
||
FloatKernelUp();
|
||
FloatEppcUp();
|
||
#ifdef HAS_AUX_PROCESSMGR
|
||
if (AUXIsPresent)
|
||
FloatAUXUp();
|
||
#endif HAS_AUX_PROCESSMGR
|
||
|
||
/* Alter dispatch table to go directly to routine, bypassing the jump table */
|
||
pDispatchEntry = &OSDispatchTable[0];
|
||
while (pDispatchEntry->dispatchAddr != nil)
|
||
{
|
||
pDispatchEntry->dispatchAddr = ROUTINE_ADDR(pDispatchEntry->dispatchAddr);
|
||
pDispatchEntry += 1;
|
||
};
|
||
|
||
/* Make sure PROCESSMGRGLOBALS world is reasonable */
|
||
InitGraf(&qd.thePort);
|
||
#ifdef MM_DEBUG
|
||
{
|
||
pascal void DebugNotifyPurge(void);
|
||
extern Ptr oldPurgeProc;
|
||
|
||
oldPurgeProc = (Ptr)SYSZONE->purgeProc;
|
||
SYSZONE->purgeProc = (ProcPtr)DebugNotifyPurge;
|
||
}
|
||
#endif MM_DEBUG
|
||
|
||
/* Initialize window manager in system heap ('cause it's shared in our patch)
|
||
* NOTE: Calls InitFonts for InitWindow's sake on older machines.
|
||
*/
|
||
InitFonts();
|
||
InitWindows();
|
||
MFLayer = GetCurLayer();
|
||
IMLayer = nil;
|
||
THEZONE = APPLZONE;
|
||
|
||
#ifdef HAS_AUX_PROCESSMGR
|
||
/* Adjust ourselves to running under AUX */
|
||
if (AUXIsPresent)
|
||
AUX_Setup();
|
||
#endif HAS_AUX_PROCESSMGR
|
||
|
||
/* We want to run from the boot volume. */
|
||
SetVol(nil, BOOTVOL);
|
||
|
||
/* Set up volume notification mechanism */
|
||
VNInit();
|
||
}
|
||
|
||
/* GetKernelMode. Inline to fetch the processor's SR and save it sans all bits
|
||
* except the supervisor/user mode one.
|
||
*/
|
||
#pragma parameter GetKernelMode(__A0)
|
||
void
|
||
GetKernelMode(short *storage)
|
||
= {0x40C0, 0x0240, 0x2000, 0x3080};
|
||
/* MOVE SR,D0
|
||
* ANDI.W #$2000,D0
|
||
* MOVE.W D0,(A0)
|
||
*/
|
||
|
||
/* InitializeScheduler. Now that our machine environment looks good, prepare our data
|
||
* structures so we can run applications.
|
||
*/
|
||
void
|
||
InitializeScheduler(void)
|
||
{
|
||
PEntryPtr pProc;
|
||
Handle hdl;
|
||
u_size currSysHeapSize;
|
||
extern StringPtr SSSPromptpStr, MacOSPortNamepStr;
|
||
|
||
/* Initialize these before calling InitExceptions() because the exception
|
||
* handlers will want to look at them.
|
||
*/
|
||
pProc = pCurrentProcess = pNullProcess;
|
||
|
||
/* Install our exception handlers */
|
||
InitExceptions();
|
||
|
||
/* initialize the process list globals */
|
||
ProcessNumberSource = LowestNonSystemPSN;
|
||
ProcessIDSource = MAX_PROCESSID;
|
||
pProcessList = nil;
|
||
pFrontProcess = pNullProcess;
|
||
|
||
/* we are taking over the nullprocess */
|
||
MemClear(pProc, sizeof(PEntry));
|
||
pProc->p_state = PRNULL;
|
||
pProc->p_signature = NULLPROC_SIGNATURE;
|
||
pProc->p_version = SYS_VERSION;
|
||
SetPSN(kSystemProcess, &pProc->p_serialNumber);
|
||
pProc->p_zone = THEZONE;
|
||
pProc->p_size = (unsigned long) BUFPTR - (unsigned long) THEZONE;
|
||
|
||
/* Save useful startup values */
|
||
initialProcessSR = GetCPUStatusRegister() & (kCPUSupervisorMode | kCPUMasterStack);
|
||
initMemTop = MEMTOP;
|
||
initFSQueueHook = FSQUEUEHOOK;
|
||
|
||
/* Get the stack for kernel use set up. */
|
||
initCurStackBase = CURSTACKBASE;
|
||
kernelstack = nil;
|
||
kernelstackbase = (unsigned long) APPLZONE->bkLim;
|
||
GetKernelMode(&kernelMode);
|
||
|
||
/* Because app zone can't grow anymore */
|
||
kernelbusy = 0;
|
||
|
||
/* initialize the state lists */
|
||
pSleepingStateList = nil;
|
||
pDyingStateList = nil;
|
||
|
||
/* Now init some of the more mundane things. */
|
||
pDebugProcess = nil;
|
||
debugKeyTryCount = -1; /* Based on -1 as start */
|
||
pSystemQuitAllMsg = nil;
|
||
pLastBGProcess = nil;
|
||
nbacks = 0;
|
||
cutCopyCount = 0;
|
||
dont_switch = 0;
|
||
napOver = false;
|
||
(void) GetDeskPort((GrafPtr *) &desklayer);
|
||
desklayerowner = nil;
|
||
SystemTempMemHList = CreateHList(0);
|
||
|
||
/* Allocate handle for supporting the Text Service Manager */
|
||
fakeKeyHandle = (FakeKeyHandle)NewHandle( 0);
|
||
fakeKeyCount = 0;
|
||
dontGetFakeKey = 0;
|
||
tsmLayerOwner = nil;
|
||
routeEvent = false;
|
||
|
||
/* Get all the resources we need. Do the Process Mgr ones first. Wait to do system
|
||
* ones until we have THEZONE == SYSZONE. See note below.
|
||
*/
|
||
THEZONE = SYSZONE;
|
||
|
||
/* Get menu strings for scrap coercion */
|
||
hdl = Get1Resource('STR#',-16414);
|
||
pStrListCopyNamePrefix = (hdl == nil) ? nil : *((StrListHdl)hdl);
|
||
|
||
/* Get the strings for ePPC */
|
||
SSSPromptpStr = nil;
|
||
MacOSPortNamepStr = nil;
|
||
if ((hdl = Get1Resource('STR#',-16457)) != nil)
|
||
{
|
||
SSSPromptpStr = *hdl+(Ptr)2;
|
||
MacOSPortNamepStr = (Ptr)SSSPromptpStr + (Ptr)(*(char *)SSSPromptpStr);
|
||
MacOSPortNamepStr += (Ptr)1;
|
||
}
|
||
|
||
/* <18> This semaphore is only true when an 'obit' event is being sent from
|
||
SendDeathNotice. Set it to false to start off. */
|
||
allocateGMBlkInSysHeap = false;
|
||
|
||
/* Make sure there is some minimum sys heap size so we won't call
|
||
* the grow zone proc so many times to launch Finder.
|
||
*/
|
||
currSysHeapSize = (Ptr)SYSZONE->bkLim - (Ptr)SYSZONE;
|
||
if (currSysHeapSize < INIT_SYS_HEAP_SIZE)
|
||
(void)ProcessMgrSysGZProc(INIT_SYS_HEAP_SIZE - currSysHeapSize);
|
||
|
||
/* Initialize the puppet strings */
|
||
PuppetStringsInit();
|
||
|
||
/* Get rid of old system resources that were in the system heap */
|
||
THEZONE = APPLZONE;
|
||
RsrcZoneInit();
|
||
|
||
/* Switch to SYSZONE because any of the _GetResource calls below could move
|
||
* memory within the call, which is a problem for the rsrc mgr routine
|
||
* CheckLoad(). It saves and restores THEZONE, but our heap can move so restoring
|
||
* the "original" value is incorrect.
|
||
*/
|
||
THEZONE = SYSZONE;
|
||
{
|
||
/* Get the standard MDEF for the system menus. We must do this because some apps
|
||
* (like Finder!) aren't picky about what they get. We need a good version!
|
||
*/
|
||
long mdef = 'MDEF';
|
||
short mdefIndex = 0;
|
||
long mdefVersionID = 0;
|
||
Handle realMDefHdl;
|
||
|
||
#define SMALLEST_GOOD_MDEF_ID (13)
|
||
|
||
while (mdefVersionID < SMALLEST_GOOD_MDEF_ID)
|
||
{
|
||
if ((realMDefHdl = GetResource(mdef, mdefIndex)) == nil)
|
||
{
|
||
/* Couldn't find any tables */
|
||
assert(RESERR == memFullErr);
|
||
SysError(dsMemFullErr);
|
||
}
|
||
|
||
/* NOTE: Create struct for this */
|
||
mdefVersionID = *((unsigned long *)(*((Handle)realMDefHdl) + 8));
|
||
mdefIndex++;
|
||
}
|
||
|
||
standardMenuDefProcRsrc = (Handle) StripAddress(realMDefHdl);
|
||
}
|
||
|
||
/* Insert the system menus now that we have the MDEF */
|
||
InitSystemMenus();
|
||
|
||
/* Get rid of useless font width tables, etc. Must be done after InitSystemMenus,
|
||
* because menu installers need font info set up.
|
||
*/
|
||
FMKill(false);
|
||
|
||
/* Announce our arrival */
|
||
MyNewGestalt();
|
||
|
||
/* Let other parts of system software know we are here without having to call the gestalt routine we just installed */
|
||
SetExpandMemProcessMgrExists((short)true);
|
||
|
||
/* Initialize the Event Program to Program Communication (can load drivers) */
|
||
ePPCInit();
|
||
|
||
/* End of sys resources */
|
||
THEZONE = ProcessMgrZone;
|
||
}
|
||
|
||
/* InitConfig. Set up hardware/software configuration information, based on the
|
||
* word of our wonderboy, Gestalt. Only gets the info we actually need. Sets
|
||
* defaults if selector not installed. The defaults are somewhat impossible to
|
||
* know for FPU and keyboard types, but their selectors should always be safe.
|
||
*/
|
||
void
|
||
InitConfig(void)
|
||
{
|
||
long gestaltResult;
|
||
|
||
/* set defaults in case selector undefined */
|
||
In32BitMode = false;
|
||
Colorized = false;
|
||
MachineHasFPU = false;
|
||
MachineHasMacPlusKbd = false;
|
||
#ifdef HAS_AUX_PROCESSMGR
|
||
AUXIsPresent = false;
|
||
#endif HAS_AUX_PROCESSMGR
|
||
|
||
/* Check processor addressing mode */
|
||
if (MyGestalt(gestaltAddressingModeAttr,&gestaltResult) == noErr) // ex<26> <Sys7.1>
|
||
In32BitMode = ((gestaltResult & (1 << gestalt32BitAddressing)) != 0);
|
||
|
||
/* Check QuickDraw version */
|
||
if (MyGestalt(gestaltQuickdrawVersion,&gestaltResult) == noErr) // ex<26> <Sys7.1>
|
||
Colorized = ((gestaltResult & 0xFFFF) >= gestalt8BitQD);
|
||
|
||
/* Does this machine have an FPU? */
|
||
if (MyGestalt(gestaltFPUType,&gestaltResult) == noErr) // ex<26> <Sys7.1>
|
||
MachineHasFPU = (gestaltResult != gestaltNoFPU);
|
||
|
||
/* Does this machine have an older style keyboard (without an escape key)? */
|
||
if (MyGestalt(gestaltKeyboardType,&gestaltResult) == noErr) // ex<26> <Sys7.1>
|
||
MachineHasMacPlusKbd = (gestaltResult <= gestaltMacPlusKbd);
|
||
|
||
if (MyGestalt(gestaltGraphicsVersion,&gestaltResult) == noErr) // ex<26> <Sys7.1>
|
||
skiaExists = true;
|
||
else
|
||
skiaExists = false;
|
||
|
||
#ifdef MODSQUAD
|
||
/* Check whether drag manager is installed. */
|
||
if (MyGestalt(gestaltDragMgrVersion, &gestaltResult) == noErr) // ex<26> <Sys7.1>
|
||
gDragMgrIsAvailable = true;
|
||
#endif
|
||
|
||
#ifdef HAS_AUX_PROCESSMGR
|
||
/* Check whether we're running under AUX. */
|
||
if (MyGestalt(gestaltAUXVersion, &gestaltResult) == noErr && AUX_EnableCoffLaunch()) // ex<26> <Sys7.1>
|
||
AUXIsPresent = true;
|
||
#endif HAS_AUX_PROCESSMGR
|
||
}
|