jepler/multiversal
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add SetFInfo, HSetFInfo

Browse source
This commit is contained in:
Wolfgang Thaller 2020-03-08 00:11:47 +01:00
parent 72cc1fc525
commit 413a1f119b
1 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
custom/glue.c
View file

@ -405,11 +405,28 @@ pascal OSErr GetFInfo(ConstStr255Param fileName, short vRefNum,
OSErr err;
pb.fileParam.ioVRefNum = vRefNum;
pb.fileParam.ioNamePtr = (StringPtr)fileName;
pb.fileParam.ioFVersNum = 0;
err = PBGetFInfoSync(&pb);
*fndrInfo = pb.fileParam.ioFlFndrInfo;
return err;
}
pascal OSErr SetFInfo(ConstStr255Param fileName, short vRefNum,
FInfo *fndrInfo)
{
ParamBlockRec pb;
OSErr err;
pb.fileParam.ioVRefNum = vRefNum;
pb.fileParam.ioNamePtr = (StringPtr)fileName;
pb.fileParam.ioFVersNum = 0;
PBGetFInfoSync(&pb);
if(err)
return err;
pb.fileParam.ioFlFndrInfo = *fndrInfo;
return PBSetFInfoSync(&pb);
}
pascal OSErr HDelete(short vRefNum, long dirID, ConstStr255Param fileName)
{
HParamBlockRec pb;
@ -445,6 +462,9 @@ pascal OSErr HSetFInfo(short vRefNum, long dirID, ConstStr255Param fileName,
pb.fileParam.ioFVersNum = 0; // ???
pb.fileParam.ioFDirIndex = 0;
pb.fileParam.ioDirID = dirID;
err = PBHGetFInfoSync(&pb);
if(err)
return err;
pb.fileParam.ioFlFndrInfo = *fndrInfo;
return PBHSetFInfoSync(&pb);
}