Macintosh-SW/mpw
1
0
Fork 0
mirror of https://github.com/ksherlock/mpw.git synced 2025-08-19 06:27:47 +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
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. // todo -- move since it's not RM related.
uint16_t UnloadSeg(uint16_t trap) 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 OpenResFile(uint16_t trap);
uint16_t SetResLoad(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); d0 = RM::Get1NamedResource(trap);
break; break;
case 0xa994:
d0 = RM::CurResFile(trap);
break;
case 0xA997: case 0xA997:
d0 = RM::OpenResFile(trap); d0 = RM::OpenResFile(trap);
break; break;