Retro68/libretro/glue.c

/*
	Copyright 2015 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.

	Under Section 7 of GPL version 3, you are granted additional
	permissions described in the GCC Runtime Library Exception, version
	3.1, as published by the Free Software Foundation.

	You should have received a copy of the GNU General Public License and
	a copy of the GCC Runtime Library Exception along with this program;
	see the files COPYING and COPYING.RUNTIME respectively.  If not, see
	<http://www.gnu.org/licenses/>.
*/

#include <MacMemory.h>
#include <Files.h>
#include <string.h>
#include <Files.h>
#include <Devices.h>
#include <Resources.h>
#include <SegLoad.h>
#include <LowMem.h>

#pragma parameter __D0 _GetPtrSize(__A0)
pascal long _GetPtrSize(Ptr ptr) = { 0xA021 };

pascal Size GetPtrSize(Ptr ptr)
{
	long tmp = _GetPtrSize(ptr);
	if(tmp > 0)
		return (Size) tmp;
	else
		return 0;
}

#pragma parameter __D0 _GetHandleSize(__A0)
pascal long _GetHandleSize(Handle h) = { 0xA025 };

pascal Size GetHandleSize(Handle h)
{
	long tmp = _GetHandleSize(h);
	if(tmp > 0)
		return (Size) tmp;
	else
		return 0;
}

#pragma parameter __A0 _PtrToHand(__A0, __D0)
pascal Handle _PtrToHand(const void *srcPtr, long size) = { 0xA9E3 };

EXTERN_API( OSErr )
PtrToHand(
  const void *  srcPtr,
  Handle *      dstHndl,
  long          size)
{
	*dstHndl = _PtrToHand(srcPtr, size);

	return MemError();
}

#pragma parameter __A0 _HandToHand(__A0)
pascal Handle _HandToHand(Handle h) = { 0xA9E1 };

EXTERN_API( OSErr )
HandToHand(Handle * theHndl)
{
	*theHndl = _HandToHand(*theHndl);

	return MemError();
}

#pragma parameter __D0 _StringToNum(__A0)
pascal long _StringToNum(ConstStr255Param theString) = { 0x3F3C, 0x0001, 0xA9EE };

EXTERN_API( void )
StringToNum(
  ConstStr255Param   theString,
  long *             theNum)
{
	*theNum = _StringToNum(theString);
}

#pragma parameter _NumToString(__D0, __A0)
pascal long _NumToString(long theNum, ConstStr255Param theString) = { 0x4267, 0xA9EE };

EXTERN_API( void )
NumToString(
  long     theNum,
  Str255   theString)
{
	_NumToString(theNum, theString);
}

#pragma parameter __D0 _CmpString(__A0, __A1, __D0)
pascal long _CmpString(const char *a, const char *b, long lens) = { 0xA03C };
#pragma parameter __D0 _CmpStringCase(__A0, __A1, __D0)
pascal long _CmpStringCase(const char *a, const char *b, long lens) = { 0xA43C };
#pragma parameter __D0 _CmpStringMarks(__A0, __A1, __D0)
pascal long _CmpStringMarks(const char *a, const char *b, long lens) = { 0xA23C };
#pragma parameter __D0 _CmpStringCaseMarks(__A0, __A1, __D0)
pascal long _CmpStringCaseMarks(const char *a, const char *b, long lens) = { 0xA63C };

EXTERN_API( Boolean )
EqualString(
  ConstStr255Param   str1,
  ConstStr255Param   str2,
  Boolean            caseSensitive,
  Boolean            diacSensitive)
{
	long lens = (str1[0] << 16) | str2[0];
	long result;
	if(caseSensitive)
	{
		if(diacSensitive)
			result = _CmpStringCase(str1+1, str2+1, lens);
		else
			result = _CmpStringCaseMarks(str1+1, str2+1, lens);
	}
	else
	{
		if(diacSensitive)
			result = _CmpString(str1+1, str2+1, lens);
		else
			result = _CmpStringMarks(str1+1, str2+1, lens);
	}
	return result == 0;
}

pascal void GetIndString(Str255 theString, short strListID, short index)
{
	Handle h = GetResource('STR#', strListID);
	theString[0] = 0;
	if(index > *(short*)*h)
		return;
	unsigned char *p = ((unsigned char*) *h) + 2;
	while(--index > 0)
		p += *p + 1;
	if(index == 0)
		memcpy(theString, p, p[0]+1);
}

EXTERN_API( UniversalProcPtr )
NGetTrapAddress(
  UInt16     trapNum,
  TrapType   tTyp)
{
	if(tTyp == kOSTrapType)
		return GetOSTrapAddress(trapNum);
	else
		return GetToolTrapAddress(trapNum);
}

EXTERN_API( void )
CountAppFiles(
  short *  message,
  short *  count)
{
	Handle h = LMGetAppParmHandle();
	if(!GetHandleSize(h))
		return;
	*message = ((short*)*h)[0];
	*count = ((short*)*h)[1];
}

static AppFile* AppFilePtr(short index)
{
	Handle h = LMGetAppParmHandle();
	if(!GetHandleSize(h))
		return NULL;
	short count = ((short*)*h)[1];
	if(index < 1 || index > count)
		return NULL;
	index--;

	Ptr p = *h + 4;
	while(index)
	{
		AppFile *f = (AppFile*) p;
		p += (8 + 1 + f->fName[0] + 1) & ~1;
	}
	return (AppFile*) p;
}

EXTERN_API( void )
GetAppFiles(
  short      index,
  AppFile *  theFile)
{
	AppFile *ptr = AppFilePtr(index);
	if(ptr)
		memcpy(theFile, ptr, 8 + 1 + ptr->fName[0]);
}

EXTERN_API( void )
ClrAppFiles(short index)
{
	AppFile *ptr = AppFilePtr(index);
	if(ptr)
		ptr->fType = 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);
}

EXTERN_API( OSErr )
GetVol(
  StringPtr   volName,
  short *     vRefNum)
{
	ParamBlockRec pb;
	memset(&pb, 0, sizeof(pb));
	pb.volumeParam.ioNamePtr = volName;
	OSErr err = PBGetVolSync(&pb);
	*vRefNum = pb.volumeParam.ioVRefNum;
	return err;
}


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);
}

pascal OSErr FSOpen (ConstStr255Param fileName, short vRefNum, short *refNum)
{
	OSErr err;
	ParamBlockRec pb;
	memset(&pb, 0, sizeof(pb));
	pb.ioParam.ioNamePtr = (StringPtr)fileName;
	pb.ioParam.ioVRefNum = vRefNum;

	// Try newer OpenDF first, because it does not open drivers
	err = PBOpenDFSync(&pb);
	if (err == paramErr) {
		// OpenDF not implemented, so use regular Open.
		err = PBOpenSync(&pb);
	}

	*refNum = pb.ioParam.ioRefNum;
	return err;
}

pascal OSErr OpenDF (ConstStr255Param fileName, short vRefNum, short *refNum)
{
	return FSOpen(fileName, vRefNum, refNum);
}

pascal OSErr FSClose (short refNum)
{
	ParamBlockRec pb;
	memset(&pb, 0, sizeof(pb));
	pb.ioParam.ioRefNum = refNum;
	return PBCloseSync(&pb);
}

pascal OSErr FSRead (short refNum, long *count, void *buffPtr)
{
	OSErr err;
	ParamBlockRec pb;
	memset(&pb, 0, sizeof(pb));
	pb.ioParam.ioRefNum = refNum;
	pb.ioParam.ioBuffer = buffPtr;
	pb.ioParam.ioReqCount = *count;

	err = PBReadSync(&pb);
	*count = pb.ioParam.ioActCount;
	return err;
}

pascal OSErr FSWrite (short refNum, long *count, const void *buffPtr)
{
	OSErr err;
	ParamBlockRec pb;
	memset(&pb, 0, sizeof(pb));
	pb.ioParam.ioRefNum = refNum;
	pb.ioParam.ioBuffer = (void *)buffPtr;
	pb.ioParam.ioReqCount = *count;

	err = PBWriteSync(&pb);
	*count = pb.ioParam.ioActCount;
	return err;
}

pascal OSErr GetEOF (short refNum, long *logEOF)
{
	OSErr err;
	ParamBlockRec pb;
	memset(&pb, 0, sizeof(pb));
	pb.ioParam.ioRefNum = refNum;
	err = PBGetEOFSync(&pb);
	*logEOF = (long)pb.ioParam.ioMisc;
	return err;
}

pascal OSErr SetEOF (short refNum, long logEOF)
{
	OSErr err;
	ParamBlockRec pb;
	memset(&pb, 0, sizeof(pb));
	pb.ioParam.ioRefNum = refNum;
	pb.ioParam.ioMisc = (Ptr)logEOF;
	return PBGetEOFSync(&pb);
}

pascal OSErr GetFPos (short refNum, long *filePos)
{
	OSErr err;
	ParamBlockRec pb;
	pb.ioParam.ioRefNum = refNum;
	err = PBGetFPosSync(&pb);
	*filePos = pb.ioParam.ioPosOffset;
	return err;
}

pascal OSErr SetFPos (short refNum, short posMode, long posOff)
{
	ParamBlockRec pb;
	memset(&pb, 0, sizeof(pb));
	pb.ioParam.ioRefNum = refNum;
	pb.ioParam.ioPosMode = posMode;
	pb.ioParam.ioPosOffset = posOff;
	return PBSetFPosSync(&pb);
}

pascal OSErr Create (ConstStr255Param fileName, short vRefNum, OSType creator,
		OSType fileType)
{
	ParamBlockRec pb;
	OSErr err;
	memset(&pb, 0, sizeof(pb));
	pb.fileParam.ioVRefNum = vRefNum;
	pb.fileParam.ioNamePtr = (StringPtr)fileName;
	// create the file
	err = PBCreateSync(&pb);
	if (err != noErr) return err;
	// get previous finder info
	err = PBGetFInfoSync(&pb);
	if (err != noErr) return err;
	// clear directory index
	pb.fileParam.ioFDirIndex = 0;
	// copy finder info words
	pb.fileParam.ioFlFndrInfo.fdType = fileType;
	pb.fileParam.ioFlFndrInfo.fdCreator = 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;
}

EXTERN_API( OSErr )
GetFInfo(
  ConstStr255Param   fileName,
  short              vRefNum,
  FInfo *            fndrInfo)
{
	ParamBlockRec pb;
	OSErr err;
	memset(&pb, 0, sizeof(pb));
	pb.fileParam.ioVRefNum = vRefNum;
	pb.fileParam.ioNamePtr = (StringPtr)fileName;
	err = PBGetFInfoSync(&pb);
	*fndrInfo = pb.fileParam.ioFlFndrInfo;
	return err;
}

EXTERN_API( OSErr )
HDelete(
  short              vRefNum,
  long               dirID,
  ConstStr255Param   fileName)
{
	HParamBlockRec pb;
	pb.fileParam.ioVRefNum = vRefNum;
	pb.fileParam.ioNamePtr = (StringPtr)fileName;
	pb.fileParam.ioDirID = dirID;
	pb.fileParam.ioFVersNum = 0;	// ???
	return PBHDeleteSync(&pb);
}

EXTERN_API( OSErr )
HGetFInfo(
  short              vRefNum,
  long               dirID,
  ConstStr255Param   fileName,
  FInfo *            fndrInfo)
{
	HParamBlockRec pb;
	OSErr err;
	pb.fileParam.ioVRefNum = vRefNum;
	pb.fileParam.ioNamePtr = (StringPtr)fileName;
	pb.fileParam.ioFVersNum = 0;	// ???
	pb.fileParam.ioFDirIndex = 0;
	pb.fileParam.ioDirID = dirID;
	err = PBHGetFInfoSync(&pb);
	*fndrInfo = pb.fileParam.ioFlFndrInfo;
	return err;
}

EXTERN_API( OSErr )
HSetFInfo(
  short              vRefNum,
  long               dirID,
  ConstStr255Param   fileName,
  const FInfo *      fndrInfo)
{
	HParamBlockRec pb;
	OSErr err;
	pb.fileParam.ioVRefNum = vRefNum;
	pb.fileParam.ioNamePtr = (StringPtr)fileName;
	pb.fileParam.ioFVersNum = 0;	// ???
	pb.fileParam.ioFDirIndex = 0;
	pb.fileParam.ioDirID = dirID;
	pb.fileParam.ioFlFndrInfo = *fndrInfo;
	return PBHSetFInfoSync(&pb);
}

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);
}