mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-12 14:29:29 +00:00
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);
|