Retro68/libretro/glue.c
2014-09-25 01:44:21 +02:00

64 lines
1.6 KiB
C

/*
Copyright 2012 Wolfgang Thaller.
This file is part of Retro68.
Retro68 is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
Retro68 is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with Retro68. If not, see <http://www.gnu.org/licenses/>.
*/
#include <MacMemory.h>
#include <Files.h>
#include <string.h>
pascal Size GetPtrSize(Ptr ptr)
{
long tmp;
__asm__ __volatile__(
"move.l %1, %%a0\n\t"
"dc.w 0xA021\n\t"
"move.l %%d0, %1"
: "=g"(tmp) : "g"(ptr) : "%%a0", "%%d0");
if(tmp > 0)
return (Size) tmp;
else
return 0;
}
pascal OSErr SetVol (ConstStr63Param volName, short vRefNum)
{
ParamBlockRec pb;
memset(&pb, 0, sizeof(pb));
pb.volumeParam.ioNamePtr = (StringPtr)volName;
pb.volumeParam.ioVRefNum = vRefNum;
return PBSetVolSync(&pb);
}
pascal OSErr UnmountVol (ConstStr63Param volName, short vRefNum)
{
ParamBlockRec pb;
memset(&pb, 0, sizeof(pb));
pb.volumeParam.ioNamePtr = (StringPtr)volName;
pb.volumeParam.ioVRefNum = vRefNum;
return PBUnmountVolImmed(&pb);
}
pascal OSErr Eject (ConstStr63Param volName, short vRefNum)
{
ParamBlockRec pb;
memset(&pb, 0, sizeof(pb));
pb.volumeParam.ioNamePtr = (StringPtr)volName;
pb.volumeParam.ioVRefNum = vRefNum;
return PBEject(&pb);
}