Macintosh-Tools/Retro68
1
0
Fork 0
mirror of https://github.com/autc04/Retro68.git synced 2024-06-17 05:29:38 +00:00
Code Issues Projects Releases Wiki Activity

Add GetWDInfo glue

Browse Source
This commit is contained in:
Charles Lehner 2014-09-28 11:18:27 -04:00
parent 073047e119
commit fa39132cdc
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
libretro/glue.c
View File

@ -187,3 +187,18 @@ pascal OSErr Create (ConstStr255Param fileName, short vRefNum, OSType creator,
// save finder info
return PBSetFInfoSync(&pb);
}
pascal OSErr GetWDInfo(short wdRefNum, short *vRefNum, long *dirID,
long *procID)
{
OSErr err;
WDPBRec pb;
memset(&pb, 0, sizeof(pb));
pb.ioVRefNum = wdRefNum;
err = PBGetWDInfo(&pb, false);
*vRefNum = pb.ioWDVRefNum;
*dirID = pb.ioWDDirID;
*procID = pb.ioWDProcID;
return err;
}