Macintosh-Tools/Retro68
1
0
Fork 0
mirror of https://github.com/autc04/Retro68.git synced 2024-06-01 15:41:39 +00:00
Code Issues Projects Releases Wiki Activity

Add OpenDriver and CloseDriver glue

Browse Source
This commit is contained in:
Charles Lehner 2014-09-28 22:54:46 -04:00
parent fa39132cdc
commit 6f2812ca65
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
libretro/glue.c
View File

@ -202,3 +202,20 @@ pascal OSErr GetWDInfo(short wdRefNum, short *vRefNum, long *dirID,
return err;
}
pascal OSErr OpenDriver(ConstStr255Param name, short *drvrRefNum)
{
ParamBlockRec pb;
OSErr err;
memset(&pb, 0, sizeof(pb));
pb.ioParam.ioNamePtr = (StringPtr)name;
err = PBOpenSync(&pb);
*drvrRefNum = pb.ioParam.ioRefNum;
return err;
}
pascal OSErr CloseDriver(short refNum)
{
return FSClose(refNum);
}