mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-06-13 10:29:34 +00:00
4325cdcc78
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
102 lines
2.8 KiB
C
102 lines
2.8 KiB
C
/*
|
|
File: ProcessMgrINIT.c
|
|
|
|
Contains: Code for an INIT which creates a resource override of the system.
|
|
This code is only used to build an experimental Process Manager
|
|
for testing, it SHOULD NOT be part of the normal system build!
|
|
|
|
Written by: Dave Falkenburg
|
|
|
|
Copyright: © 1980-1993 by Apple Computer, Inc., all rights reserved.
|
|
|
|
Change History (most recent first):
|
|
|
|
<SM3> 7/21/93 joe Backed out <SM2>.
|
|
<1> 11/25/92 DRF first checked in
|
|
|
|
*/
|
|
|
|
#include <Types.h>
|
|
#include <Resources.h>
|
|
#include <Memory.h>
|
|
#include <ResourceMgrPriv.h>
|
|
#include <SysEqu.h>
|
|
#include <Traps.h>
|
|
|
|
// Functions defined in this fileÉ
|
|
|
|
pascal Handle MyGet1IndResource(ResType, short);
|
|
|
|
void
|
|
main(void)
|
|
{
|
|
Handle myResourceMap;
|
|
Handle systemResourceMap;
|
|
Handle myNewResourceMap;
|
|
SignedByte currentAttributes;
|
|
Size myResourceMapSize;
|
|
long oldTrap;
|
|
|
|
#if PsychicTV
|
|
// Only install PsychicTV ProcessMgr on a RISC machine
|
|
// we check this by looking to see if GoNative has already installed
|
|
// trap interfaces to CodeFragmentManagerÉ
|
|
|
|
// We really should check specifically for a PowerPC box here,
|
|
// but there is no Gestalt selector for this purpose yetÉ
|
|
|
|
if (GetToolboxTrapAddress(0xaa5a) == GetToolboxTrapAddress(_Unimplemented))
|
|
return;
|
|
#endif
|
|
|
|
oldTrap = GetToolboxTrapAddress(_Get1IxResource);
|
|
SetToolboxTrapAddress((long) MyGet1IndResource, _Get1IxResource);
|
|
*(long*)ApplScratch = oldTrap;
|
|
|
|
myResourceMap = GetMap(CurResFile());
|
|
if(ResError())
|
|
DebugStr("\pGetMap failed");
|
|
|
|
// Special code to put my resource map into the system heap.
|
|
myResourceMapSize = GetHandleSize(myResourceMap);
|
|
myNewResourceMap = NewHandleSys(myResourceMapSize);
|
|
BlockMove(*myResourceMap,*myNewResourceMap,myResourceMapSize);
|
|
|
|
*(Handle *)TopMapHndl = myNewResourceMap;
|
|
DisposHandle(myResourceMap);
|
|
|
|
systemResourceMap = GetOverrideMap(GetMap(0));
|
|
if(ResError())
|
|
DebugStr("\pGetOverrideMap failed");
|
|
|
|
InsertOverrideMap(myNewResourceMap,systemResourceMap);
|
|
if(ResError())
|
|
DebugStr("\pInsertOverridMap");
|
|
|
|
currentAttributes = GetOverrideAttributes(myNewResourceMap);
|
|
if(ResError())
|
|
DebugStr("\pGetOverrideAttributes failed");
|
|
|
|
currentAttributes |= (kDontCountOrIndexDuplicatesMask |
|
|
kTwoDeepMask |
|
|
kPreventFileFromBeingClosedMask |
|
|
kOverrideNextMapMask);
|
|
|
|
SetOverrideAttributes(myNewResourceMap,currentAttributes);
|
|
if(ResError())
|
|
DebugStr("\pSetOverrideAttributes failed");
|
|
}
|
|
|
|
|
|
// This GetIndResource patch prevents loading of additional resources from the
|
|
// System file. It is basically a hack to prevent the Start Manager from loading
|
|
// the wrong INIT resources, or accidentally running our extension twice!
|
|
|
|
pascal Handle MyGet1IndResource(ResType, short)
|
|
{
|
|
long oldTrap;
|
|
oldTrap = *(long*)ApplScratch;
|
|
NSetTrapAddress(oldTrap, _Get1IxResource, ToolTrap);
|
|
return NULL;
|
|
}
|