Macintosh-SW/mpw
1
0
Fork 0
mirror of https://github.com/ksherlock/mpw.git synced 2024-06-17 15:29:38 +00:00
Code Issues Projects Releases Wiki Activity

RM::CurResFile

Browse Source
This commit is contained in:
Kelvin Sherlock 2013-03-02 20:53:54 -05:00
parent ceeabfb1b0
commit 68852c9d16
3 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
toolbox/rm.cpp
View File

@ -281,6 +281,19 @@ namespace RM
}
uint16_t CurResFile(uint16_t trap)
{
Log("%04x CurResFile()\n", trap);
ResFileRefNum refNum = ::CurResFile();
ToolReturn<2>(-1, refNum);
return SetResError(::ResError());
}
// todo -- move since it's not RM related.
uint16_t UnloadSeg(uint16_t trap)
{

2
toolbox/rm.h
View File

@ -20,6 +20,8 @@ namespace RM
uint16_t OpenResFile(uint16_t trap);
uint16_t SetResLoad(uint16_t trap);
uint16_t CurResFile(uint16_t trap);
}

4
toolbox/toolbox.cpp
View File

@ -188,6 +188,10 @@ namespace ToolBox {
d0 = RM::Get1NamedResource(trap);
break;
case 0xa994:
d0 = RM::CurResFile(trap);
break;
case 0xA997:
d0 = RM::OpenResFile(trap);
break;