mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-06-01 07:41:58 +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.
441 lines
11 KiB
C
441 lines
11 KiB
C
/*
|
|
File: HFSGlue.c
|
|
|
|
Contains: File Manager, Device Manager and Resource Manager glue for HFS
|
|
|
|
Written by: Darin Adler
|
|
|
|
Copyright: © 1990-1991 by Apple Computer, Inc., all rights reserved.
|
|
|
|
Change History (most recent first):
|
|
|
|
<7> 11/21/91 JL Added inclusion of Memory.h for StripAddress.
|
|
<6> 11/21/91 JL In HOpenResFile, called StripAddress for the fileName passed in
|
|
the OpenRFPerm call. This gives support for System 6 running on
|
|
the Mac Classic. This works around the known bug in the resource
|
|
manager. Radar #106686.
|
|
<5> 7/29/91 gbm Avoid a naming problem created by making HOpenResFile and
|
|
HCreateResFile in-lines
|
|
<4> 8/6/90 dnf Remove the FSp glue routines.
|
|
<3> 8/6/90 dnf Change the name of MakeFSSpec to FSMakeFSSpec since it's a high
|
|
level call
|
|
<2> 6/2/90 dnf Add FSSpec versions for appropriate calls
|
|
|
|
modified 10/18/88 dba added interfaces for PBOpenFile, PBHOpenFile,
|
|
PBOpenDriver, OpenFile, HOpenFile, OpenDriver;
|
|
note that OpenDriver replaces an existing glue
|
|
routine *** NO IMPLEMENTATION YET ***
|
|
modified 10/18/88 dba another crack at HOpenResFile
|
|
modified 9/24/88 dba HOpenResFile bug fixed
|
|
created 8/3/88 dba
|
|
|
|
*/
|
|
|
|
|
|
#include <Types.h>
|
|
#include <Errors.h>
|
|
#include <Files.h>
|
|
#include <Resources.h>
|
|
#include <Traps.h>
|
|
#include <SysEqu.h>
|
|
#include <Memory.h>
|
|
|
|
|
|
/* trap numbers (remove when they are in Traps.h) */
|
|
|
|
#define _HOpenResFile 0xA81A
|
|
#define _HCreateResFile 0xA81B
|
|
|
|
/* this is needed for Resource Manager glue */
|
|
|
|
#define RESERR (* (OSErr *) ResErr)
|
|
|
|
/* this is needed to check if the new Resource Manager traps exist */
|
|
|
|
#define SYSVERSION (* (short *) SysVersion)
|
|
|
|
|
|
/* File Manager routines */
|
|
|
|
|
|
pascal OSErr HGetVol(StringPtr volName, short *vRefNum, long *dirID)
|
|
{
|
|
OSErr error;
|
|
WDPBRec pb;
|
|
|
|
pb.ioNamePtr = volName;
|
|
error = PBHGetVol(&pb, false);
|
|
*vRefNum = pb.ioVRefNum;
|
|
*dirID = pb.ioWDDirID;
|
|
return(error);
|
|
}
|
|
|
|
|
|
pascal OSErr HSetVol(StringPtr volName, short vRefNum, long dirID)
|
|
{
|
|
WDPBRec pb;
|
|
|
|
pb.ioNamePtr = volName;
|
|
pb.ioVRefNum = vRefNum;
|
|
pb.ioWDDirID = dirID;
|
|
return(PBHSetVol(&pb, false));
|
|
}
|
|
|
|
|
|
pascal OSErr HOpen(short vRefNum, long dirID, const Str255 fileName, char permission, short *refNum)
|
|
{
|
|
OSErr error;
|
|
HParamBlockRec pb;
|
|
|
|
pb.ioParam.ioVRefNum = vRefNum;
|
|
pb.fileParam.ioDirID = dirID;
|
|
pb.ioParam.ioNamePtr = (StringPtr) fileName;
|
|
pb.ioParam.ioVersNum = 0;
|
|
pb.ioParam.ioPermssn = permission;
|
|
pb.ioParam.ioMisc = nil;
|
|
error = PBHOpen(&pb, false);
|
|
*refNum = pb.ioParam.ioRefNum;
|
|
return(error);
|
|
}
|
|
|
|
pascal OSErr HOpenDF(short vRefNum, long dirID, const Str255 fileName, char permission, short *refNum)
|
|
{
|
|
OSErr error;
|
|
HParamBlockRec pb;
|
|
|
|
pb.ioParam.ioVRefNum = vRefNum;
|
|
pb.fileParam.ioDirID = dirID;
|
|
pb.ioParam.ioNamePtr = (StringPtr) fileName;
|
|
pb.ioParam.ioVersNum = 0;
|
|
pb.ioParam.ioPermssn = permission;
|
|
pb.ioParam.ioMisc = nil;
|
|
error = PBHOpenDF(&pb, false);
|
|
*refNum = pb.ioParam.ioRefNum;
|
|
return(error);
|
|
}
|
|
|
|
pascal OSErr HOpenRF(short vRefNum, long dirID, const Str255 fileName, char permission, short *refNum)
|
|
{
|
|
OSErr error;
|
|
HParamBlockRec pb;
|
|
|
|
pb.ioParam.ioVRefNum = vRefNum;
|
|
pb.fileParam.ioDirID = dirID;
|
|
pb.ioParam.ioNamePtr = (StringPtr) fileName;
|
|
pb.ioParam.ioVersNum = 0;
|
|
pb.ioParam.ioPermssn = permission;
|
|
pb.ioParam.ioMisc = nil;
|
|
error = PBHOpenRF(&pb, false);
|
|
*refNum = pb.ioParam.ioRefNum;
|
|
return(error);
|
|
}
|
|
|
|
pascal OSErr AllocContig(short refNum, long *count)
|
|
{
|
|
OSErr error;
|
|
ParamBlockRec pb;
|
|
|
|
pb.ioParam.ioRefNum = refNum;
|
|
pb.ioParam.ioReqCount = *count;
|
|
error = PBAllocContig(&pb, false);
|
|
*count = pb.ioParam.ioActCount;
|
|
return(error);
|
|
};
|
|
|
|
|
|
pascal OSErr HCreate(short vRefNum, long dirID, const Str255 fileName, OSType creator, OSType fileType)
|
|
{
|
|
OSErr error;
|
|
HParamBlockRec pb;
|
|
|
|
pb.ioParam.ioVRefNum = vRefNum;
|
|
pb.fileParam.ioDirID = dirID;
|
|
pb.ioParam.ioNamePtr = (StringPtr) fileName;
|
|
pb.ioParam.ioVersNum = 0;
|
|
error = PBHCreate(&pb, false);
|
|
if (error == noErr) {
|
|
pb.fileParam.ioFDirIndex = 0;
|
|
error = PBHGetFInfo(&pb, false);
|
|
if (error == noErr) {
|
|
pb.fileParam.ioFlFndrInfo.fdCreator = creator;
|
|
pb.fileParam.ioFlFndrInfo.fdType = fileType;
|
|
pb.fileParam.ioDirID = dirID;
|
|
error = PBHSetFInfo(&pb, false);
|
|
}
|
|
}
|
|
return(error);
|
|
}
|
|
|
|
pascal OSErr DirCreate(short vRefNum, long parentDirID, const Str255 directoryName, long *createdDirID)
|
|
{
|
|
OSErr error;
|
|
HParamBlockRec pb;
|
|
|
|
pb.ioParam.ioVRefNum = vRefNum;
|
|
pb.fileParam.ioDirID = parentDirID;
|
|
pb.ioParam.ioNamePtr = (StringPtr) directoryName;
|
|
error = PBDirCreate(&pb, false);
|
|
*createdDirID = pb.fileParam.ioDirID;
|
|
return(error);
|
|
}
|
|
|
|
|
|
pascal OSErr HDelete(short vRefNum, long dirID, const Str255 fileName)
|
|
{
|
|
HParamBlockRec pb;
|
|
|
|
pb.ioParam.ioVRefNum = vRefNum;
|
|
pb.fileParam.ioDirID = dirID;
|
|
pb.ioParam.ioNamePtr = (StringPtr) fileName;
|
|
pb.ioParam.ioVersNum = 0;
|
|
return(PBHDelete(&pb, false));
|
|
}
|
|
|
|
pascal OSErr HGetFInfo(short vRefNum, long dirID, const Str255 fileName, FInfo *fndrInfo)
|
|
{
|
|
OSErr error;
|
|
HParamBlockRec pb;
|
|
|
|
pb.ioParam.ioVRefNum = vRefNum;
|
|
pb.fileParam.ioDirID = dirID;
|
|
pb.ioParam.ioNamePtr = (StringPtr) fileName;
|
|
pb.ioParam.ioVersNum = 0;
|
|
pb.fileParam.ioFDirIndex = 0;
|
|
error = PBHGetFInfo(&pb, false);
|
|
*fndrInfo = pb.fileParam.ioFlFndrInfo;
|
|
return(error);
|
|
}
|
|
|
|
|
|
pascal OSErr HSetFInfo(short vRefNum, long dirID, const Str255 fileName, const FInfo *fndrInfo)
|
|
{
|
|
OSErr error;
|
|
HParamBlockRec pb;
|
|
|
|
pb.ioParam.ioVRefNum = vRefNum;
|
|
pb.fileParam.ioDirID = dirID;
|
|
pb.ioParam.ioNamePtr = (StringPtr) fileName;
|
|
pb.ioParam.ioVersNum = 0;
|
|
pb.fileParam.ioFDirIndex = 0;
|
|
error = PBHGetFInfo(&pb, false);
|
|
if (error == noErr) {
|
|
pb.fileParam.ioFlFndrInfo = *fndrInfo;
|
|
pb.fileParam.ioDirID = dirID;
|
|
error = PBHSetFInfo(&pb, false);
|
|
}
|
|
return(error);
|
|
}
|
|
|
|
|
|
pascal OSErr HSetFLock(short vRefNum, long dirID, const Str255 fileName)
|
|
{
|
|
HParamBlockRec pb;
|
|
|
|
pb.ioParam.ioVRefNum = vRefNum;
|
|
pb.fileParam.ioDirID = dirID;
|
|
pb.ioParam.ioNamePtr = (StringPtr) fileName;
|
|
pb.ioParam.ioVersNum = 0;
|
|
return(PBHSetFLock(&pb, false));
|
|
}
|
|
|
|
|
|
pascal OSErr HRstFLock(short vRefNum, long dirID, const Str255 fileName)
|
|
{
|
|
HParamBlockRec pb;
|
|
|
|
pb.ioParam.ioVRefNum = vRefNum;
|
|
pb.fileParam.ioDirID = dirID;
|
|
pb.ioParam.ioNamePtr = (StringPtr) fileName;
|
|
pb.ioParam.ioVersNum = 0;
|
|
return(PBHRstFLock(&pb, false));
|
|
}
|
|
|
|
|
|
pascal OSErr HRename(short vRefNum, long dirID, const Str255 oldName, const Str255 newName)
|
|
{
|
|
HParamBlockRec pb;
|
|
|
|
pb.ioParam.ioVRefNum = vRefNum;
|
|
pb.fileParam.ioDirID = dirID;
|
|
pb.ioParam.ioNamePtr = (StringPtr) oldName;
|
|
pb.ioParam.ioVersNum = 0;
|
|
pb.ioParam.ioMisc = (Ptr) newName;
|
|
return(PBHRename(&pb, false));
|
|
}
|
|
|
|
pascal OSErr CatMove(short vRefNum, long dirID, const Str255 oldName, long newDirID, const Str255 newName)
|
|
{
|
|
CMovePBRec pb;
|
|
|
|
pb.ioNamePtr = (StringPtr) oldName;
|
|
pb.ioVRefNum = vRefNum;
|
|
pb.ioDirID = dirID;
|
|
pb.ioNewDirID = newDirID;
|
|
pb.ioNewName = (StringPtr) newName;
|
|
return(PBCatMove(&pb, false));
|
|
}
|
|
|
|
|
|
pascal OSErr OpenWD(short vRefNum, long dirID, long procID, short *wdRefNum)
|
|
{
|
|
OSErr error;
|
|
WDPBRec pb;
|
|
|
|
pb.ioVRefNum = vRefNum;
|
|
pb.ioWDDirID = dirID;
|
|
pb.ioWDProcID = procID;
|
|
pb.ioNamePtr = nil;
|
|
error = PBOpenWD(&pb, false);
|
|
*wdRefNum = pb.ioVRefNum;
|
|
return(error);
|
|
}
|
|
|
|
|
|
pascal OSErr CloseWD(short wdRefNum)
|
|
{
|
|
WDPBRec pb;
|
|
|
|
pb.ioVRefNum = wdRefNum;
|
|
return(PBCloseWD(&pb, false));
|
|
}
|
|
|
|
|
|
pascal OSErr GetWDInfo(short wdRefNum, short *vRefNum, long *dirID, long *procID)
|
|
{
|
|
OSErr error;
|
|
WDPBRec pb;
|
|
|
|
pb.ioVRefNum = wdRefNum;
|
|
pb.ioWDIndex = 0;
|
|
pb.ioNamePtr = nil;
|
|
error = PBGetWDInfo(&pb, false);
|
|
*vRefNum = pb.ioWDVRefNum;
|
|
*dirID = pb.ioWDDirID;
|
|
*procID = pb.ioWDProcID;
|
|
return(error);
|
|
}
|
|
|
|
|
|
/* Resource Manager routines */
|
|
|
|
|
|
pascal short ROMHOpenResFile(short vRefNum, long dirID, const Str255 fileName, char permission)
|
|
= _HOpenResFile;
|
|
|
|
|
|
/* This module gets renamed to HOpenResFile in the lib statement in the Interface.Make file */
|
|
pascal short HOpenResFileGlue(short vRefNum, long dirID, const Str255 fileName, char permission)
|
|
{
|
|
if ((SYSVERSION >= 0x0600) && (GetTrapAddress(_Unimplemented) != NGetTrapAddress(_HOpenResFile, ToolTrap)))
|
|
return(ROMHOpenResFile(vRefNum, dirID, fileName, permission));
|
|
else {
|
|
OSErr error;
|
|
short refNum;
|
|
short openRFRefNum;
|
|
short savedVRefNum;
|
|
long savedDirID;
|
|
short parsedVRefNum;
|
|
long parsedDirID;
|
|
long parsedProcID;
|
|
OSErr setVolError;
|
|
|
|
refNum = -1;
|
|
error = HOpenRF(vRefNum, dirID, fileName, permission, &openRFRefNum);
|
|
if (error == noErr)
|
|
error = FSClose(openRFRefNum);
|
|
if ((error == noErr) || (error == opWrErr)) {
|
|
error = HGetVol(nil, &savedVRefNum, &savedDirID);
|
|
if (error == noErr) {
|
|
|
|
/* determine if the default volume was a wdRefNum */
|
|
|
|
error = GetWDInfo(savedVRefNum, &parsedVRefNum, &parsedDirID, &parsedProcID);
|
|
if (error == noErr) {
|
|
error = HSetVol(nil, vRefNum, dirID);
|
|
if (error == noErr) {
|
|
refNum = OpenRFPerm((StringPtr)StripAddress((Ptr)fileName), 0, permission);
|
|
error = ResError();
|
|
}
|
|
|
|
/* if the default volume was a wdRefNum, the dirID that we
|
|
parsed out of it will be something other than the root
|
|
(which indicates a vRefNum). We should use a regular
|
|
SetVol call if it was a wdRefNum, and an HSetVol if it
|
|
was a vRefNum (possibly with a dirID). */
|
|
|
|
if (parsedDirID == fsRtDirID)
|
|
setVolError = HSetVol(nil, savedVRefNum, savedDirID);
|
|
else
|
|
setVolError = SetVol(nil, savedVRefNum);
|
|
if (error == noErr)
|
|
error = setVolError;
|
|
}
|
|
}
|
|
}
|
|
RESERR = error;
|
|
return(refNum);
|
|
}
|
|
}
|
|
|
|
pascal void ROMHCreateResFile(short vRefNum, long dirID, const Str255 fileName)
|
|
= _HCreateResFile;
|
|
|
|
/* This module gets renamed to HCreateResFile in the lib statement in the Interface.Make file */
|
|
pascal void HCreateResFileGlue(short vRefNum, long dirID, const Str255 fileName)
|
|
{
|
|
if ((SYSVERSION >= 0x0600) && (GetTrapAddress(_Unimplemented) != NGetTrapAddress(_HCreateResFile, ToolTrap)))
|
|
ROMHCreateResFile(vRefNum, dirID, fileName);
|
|
else {
|
|
OSErr error;
|
|
short refNum;
|
|
short savedVRefNum;
|
|
long savedDirID;
|
|
short parsedVRefNum;
|
|
long parsedDirID;
|
|
long parsedProcID;
|
|
OSErr setVolError;
|
|
|
|
error = HOpenRF(vRefNum, dirID, fileName, fsCurPerm, &refNum);
|
|
if (error == noErr)
|
|
error = FSClose(refNum);
|
|
if (error == fnfErr) {
|
|
error = HCreate(vRefNum, dirID, fileName, 0, 0);
|
|
}
|
|
if (error == noErr) {
|
|
error = HGetVol(nil, &savedVRefNum, &savedDirID);
|
|
if (error == noErr) {
|
|
|
|
/* determine if the default volume was a wdRefNum */
|
|
|
|
error = GetWDInfo(savedVRefNum, &parsedVRefNum, &parsedDirID, &parsedProcID);
|
|
if (error == noErr) {
|
|
error = HSetVol(nil, vRefNum, dirID);
|
|
if (error == noErr) {
|
|
CreateResFile(fileName);
|
|
error = ResError();
|
|
}
|
|
|
|
/* if the default volume was a wdRefNum, the dirID that we
|
|
parsed out of it will be something other than the root
|
|
(which indicates a vRefNum). We should use a regular
|
|
SetVol call if it was a wdRefNum, and an HSetVol if it
|
|
was a vRefNum (possibly with a dirID). */
|
|
|
|
if (parsedDirID == fsRtDirID)
|
|
setVolError = HSetVol(nil, savedVRefNum, savedDirID);
|
|
else
|
|
setVolError = SetVol(nil, savedVRefNum);
|
|
if (error == noErr)
|
|
error = setVolError;
|
|
}
|
|
}
|
|
}
|
|
RESERR = error;
|
|
}
|
|
}
|
|
|
|
/* put more implementations here */
|
|
|
|
pascal OSErr PBOpenDriver(ParmBlkPtr paramBlock);
|
|
pascal OSErr OpenDriver(const Str255 driverName, short *refNum);
|