Macintosh-Tools
/
macemu
mirror of https://github.com/kanjitalk755/macemu.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
macemu/SheepShaver/src/macos_util.cpp

446 lines
11 KiB
C++
Raw Permalink Blame History

/*
* macos_util.cpp - MacOS definitions/utility functions
*
* SheepShaver (C) Christian Bauer and Marc Hellwig
*
* This program 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 2 of the License, or
* (at your option) any later version.
*
* This program 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 this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
#include "sysdeps.h"
#include "cpu_emulation.h"
#include "main.h"
#include "sony.h"
#include "disk.h"
#include "cdrom.h"
#include "xlowmem.h"
#include "emul_op.h"
#include "macos_util.h"
#include "thunks.h"
#include "prefs.h"
#include <algorithm>
#define DEBUG 0
#include "debug.h"
// Function pointers
typedef long (*cu_ptr)(void *, uint32);
static uint32 cu_tvect = 0;
static inline long CallUniversal(void *arg1, uint32 arg2)
{
return (long)CallMacOS2(cu_ptr, cu_tvect, arg1, arg2);
}
typedef int16 (*gsl_ptr)(char *, uint32, uint32, uint32 *, void **, char *);
static uint32 gsl_tvect = 0;
static inline int16 GetSharedLibrary(uintptr arg1, uint32 arg2, uint32 arg3, uintptr arg4, uintptr arg5, uintptr arg6)
{
return (int16)CallMacOS6(gsl_ptr, gsl_tvect, (char *)arg1, arg2, arg3, (uint32 *)arg4, (void **)arg5, (char *)arg6);
}
typedef int16 (*fs_ptr)(uint32, char *, void **, uint32 *);
static uint32 fs_tvect = 0;
static inline int16 FindSymbol(uint32 arg1, uintptr arg2, uintptr arg3, uintptr arg4)
{
return (int16)CallMacOS4(fs_ptr, fs_tvect, arg1, (char *)arg2, (void **)arg3, (uint32 **)arg4);
}
#if 0
typedef int16 (*cc_ptr)(uint32 *);
static uint32 cc_tvect = 0;
static inline int16 CloseConnection(uint32 *arg1)
{
return (int16)CallMacOS1(cc_ptr, cc_tvect, arg1);
}
#endif
typedef uint32 (*nps_ptr)(uint32);
static uint32 nps_tvect = 0;
static inline uint32 NewPtrSys(uint32 arg1)
{
return CallMacOS1(nps_ptr, nps_tvect, arg1);
}
typedef void (*d_ptr)(uint32);
static uint32 d_tvect = 0;
static inline void DisposePtr(uint32 arg1)
{
CallMacOS1(d_ptr, d_tvect, arg1);
}
/*
* Reset MacOS utilities
*/
void MacOSUtilReset(void)
{
cu_tvect = 0;
gsl_tvect = 0;
fs_tvect = 0;
#if 0
cc_tvect = 0;
#endif
}
/*
* Enqueue QElem to list
*/
void Enqueue(uint32 elem, uint32 list)
{
WriteMacInt32(elem + qLink, 0);
if (!ReadMacInt32(list + qTail)) {
WriteMacInt32(list + qHead, elem);
WriteMacInt32(list + qTail, elem);
} else {
WriteMacInt32(ReadMacInt32(list + qTail) + qLink, elem);
WriteMacInt32(list + qTail, elem);
}
}
static void InsertQueueEntry(uint32 elem, uint32 at, uint32 list) {
uint32 next = ReadMacInt32(at);
WriteMacInt32(at, elem);
WriteMacInt32(elem + qLink, next);
if (next == 0) {
// inserted at end
WriteMacInt32(list + qTail, elem);
}
}
static void RemoveQueueEntry(uint32 at, uint32 list) {
uint32 e = ReadMacInt32(at);
uint32 next = ReadMacInt32(e + qLink);
if (next == 0) {
// removing from end
if (at == list + qHead) {
WriteMacInt32(list + qTail, 0);
} else {
WriteMacInt32(list + qTail, at - qLink);
}
}
WriteMacInt32(at, next);
WriteMacInt32(e + qLink, 0);
}
/*
* Find first free drive number, starting at num
*/
static bool is_drive_number_free(int num)
{
uint32 e = ReadMacInt32(0x308 + qHead);
while (e) {
uint32 d = e - dsQLink;
if ((int)ReadMacInt16(d + dsQDrive) == num)
return false;
e = ReadMacInt32(e + qLink);
}
return true;
}
int FindFreeDriveNumber(int num)
{
while (!is_drive_number_free(num))
num++;
return num;
}
/*
* Move drives of the given driver to the front of the drive queue
*/
void MoveDrivesFromDriverToFront(uint32 driverRefNum) {
const uint32 DrvQHdr = 0x308; // drive queue address
uint32 nextInsertPos = DrvQHdr + qHead;
uint32 ptrToElem = DrvQHdr + qHead;
uint32 e = ReadMacInt32(ptrToElem);
while (e) {
uint32 next = ReadMacInt32(e + qLink);
uint32 d = e - dsQLink;
uint32 curRefNum = ReadMacInt16(d + dsQRefNum);
if ((curRefNum & 0xffff) == (driverRefNum & 0xffff)) {
RemoveQueueEntry(ptrToElem, DrvQHdr);
InsertQueueEntry(e, nextInsertPos, DrvQHdr);
nextInsertPos = e + qLink;
// after the removal, ptrToElem already points to next
} else {
ptrToElem = e + qLink;
}
e = next;
}
}
/*
* Mount volume with given file handle (call this function when you are unable to
* do automatic media change detection and the user has to press a special key
* or something to mount a volume; this function will check if there's really a
* volume in the drive with SysIsDiskInserted(); volumes which are present on startup
* are automatically mounted)
*/
void MountVolume(void *fh)
{
SonyMountVolume(fh) || DiskMountVolume(fh) || CDROMMountVolume(fh);
}
/*
* Calculate disk image file layout given file size and first 256 data bytes
*/
void FileDiskLayout(loff_t size, uint8 *data, loff_t &start_byte, loff_t &real_size)
{
if (size == 419284 || size == 838484) {
// 400K/800K DiskCopy image, 84 byte header
start_byte = 84;
real_size = (size - 84) & ~0x1ff;
} else {
// 0..511 byte header
start_byte = size & 0x1ff;
real_size = size - start_byte;
}
}
/*
* Find symbol in shared library (using CFM)
* lib and sym must be Pascal strings!
*/
uint32 FindLibSymbol(const char *lib_str, const char *sym_str)
{
SheepVar32 conn_id = 0;
SheepVar32 main_addr = 0;
SheepArray<256> err;
WriteMacInt8(err.addr(), 0);
SheepVar32 sym_addr = 0;
SheepVar32 sym_class = 0;
SheepString lib(lib_str);
SheepString sym(sym_str);
D(bug("FindLibSymbol %s in %s...\n", sym.value()+1, lib.value()+1));
if (ReadMacInt32(XLM_RUN_MODE) == MODE_EMUL_OP) {
M68kRegisters r;
// Find shared library
static const uint8 proc1_template[] = {
0x55, 0x8f, // subq.l #2,a7
0x2f, 0x08, // move.l a0,-(a7)
0x2f, 0x3c, 0x70, 0x77, 0x70, 0x63, // move.l #'pwpc',-(a7)
0x2f, 0x3c, 0x00, 0x00, 0x00, 0x01, // move.l #kReferenceCFrag,-(a7)
0x2f, 0x09, // move.l a1,-(a7)
0x2f, 0x0a, // move.l a2,-(a7)
0x2f, 0x0b, // move.l a3,-(a7)
0x3f, 0x3c, 0x00, 0x01, // (GetSharedLibrary)
0xaa, 0x5a, // CFMDispatch
0x30, 0x1f, // move.w (a7)+,d0
M68K_RTS >> 8, M68K_RTS & 0xff
};
BUILD_SHEEPSHAVER_PROCEDURE(proc1);
r.a[0] = lib.addr();
r.a[1] = conn_id.addr();
r.a[2] = main_addr.addr();
r.a[3] = err.addr();
Execute68k(proc1, &r);
D(bug(" GetSharedLibrary: ret %d, connection ID %ld, main %p\n", (int16)r.d[0], conn_id.value(), main_addr.value()));
if (r.d[0])
return 0;
// Find symbol
static const uint8 proc2_template[] = {
0x55, 0x8f, // subq.l #2,a7
0x2f, 0x00, // move.l d0,-(a7)
0x2f, 0x08, // move.l a0,-(a7)
0x2f, 0x09, // move.l a1,-(a7)
0x2f, 0x0a, // move.l a2,-(a7)
0x3f, 0x3c, 0x00, 0x05, // (FindSymbol)
0xaa, 0x5a, // CFMDispatch
0x30, 0x1f, // move.w (a7)+,d0
M68K_RTS >> 8, M68K_RTS & 0xff
};
BUILD_SHEEPSHAVER_PROCEDURE(proc2);
r.d[0] = conn_id.value();
r.a[0] = sym.addr();
r.a[1] = sym_addr.addr();
r.a[2] = sym_class.addr();
Execute68k(proc2, &r);
D(bug(" FindSymbol1: ret %d, sym_addr %p, sym_class %ld\n", (int16)r.d[0], sym_addr.value(), sym_class.value()));
//!! CloseConnection()?
if (r.d[0])
return 0;
else
return sym_addr.value();
} else {
if (GetSharedLibrary == NULL || FindSymbol == NULL) {
printf("FATAL: FindLibSymbol() called too early\n");
return 0;
}
int16 res;
res = GetSharedLibrary(lib.addr(), FOURCC('p','w','p','c'), 1, conn_id.addr(), main_addr.addr(), err.addr());
D(bug(" GetSharedLibrary: ret %d, connection ID %ld, main %p\n", res, conn_id.value(), main_addr.value()));
if (res)
return 0;
res = FindSymbol(conn_id.value(), sym.addr(), sym_addr.addr(), sym_class.addr());
D(bug(" FindSymbol: ret %d, sym_addr %p, sym_class %ld\n", res, sym_addr.value(), sym_class.value()));
//!!?? CloseConnection(&conn_id);
if (res)
return 0;
else
return sym_addr.value();
}
}
/*
* Find CallUniversalProc() TVector
*/
void InitCallUniversalProc()
{
cu_tvect = FindLibSymbol("\014InterfaceLib", "\021CallUniversalProc");
D(bug("CallUniversalProc TVECT at %08lx\n", cu_tvect));
if (cu_tvect == 0) {
printf("FATAL: Can't find CallUniversalProc()\n");
QuitEmulator();
}
gsl_tvect = FindLibSymbol("\014InterfaceLib", "\020GetSharedLibrary");
D(bug("GetSharedLibrary TVECT at %08lx\n", gsl_tvect));
if (gsl_tvect == 0) {
printf("FATAL: Can't find GetSharedLibrary()\n");
QuitEmulator();
}
fs_tvect = FindLibSymbol("\014InterfaceLib", "\012FindSymbol");
D(bug("FindSymbol TVECT at %08lx\n", fs_tvect));
if (fs_tvect == 0) {
printf("FATAL: Can't find FindSymbol()\n");
QuitEmulator();
}
#if 0
cc_tvect = FindLibSymbol("\014InterfaceLib", "\017CloseConnection");
D(bug("CloseConnection TVECT at %08lx\n", cc_tvect));
if (cc_tvect == 0) {
printf("FATAL: Can't find CloseConnection()\n");
QuitEmulator();
}
#endif
nps_tvect = FindLibSymbol("\014InterfaceLib", "\011NewPtrSys");
D(bug("NewPtrSys TVECT at %08lx\n", nps_tvect));
if (nps_tvect == 0) {
printf("FATAL: Can't find NewPtrSys()\n");
QuitEmulator();
}
d_tvect = FindLibSymbol("\014InterfaceLib", "\012DisposePtr");
D(bug("DisposePtr TVECT at %08lx\n", d_tvect));
if (d_tvect == 0) {
printf("FATAL: Can't find DisposePtr()\n");
QuitEmulator();
}
}
/*
* CallUniversalProc
*/
long CallUniversalProc(void *upp, uint32 info)
{
if (cu_tvect == 0) {
printf("FATAL: CallUniversalProc() called too early\n");
return 0;
}
return CallUniversal(upp, info);
}
/*
* Convert time_t value to MacOS time (seconds since 1.1.1904)
*/
uint32 TimeToMacTime(time_t t)
{
// This code is taken from glibc 2.2
// Convert to number of seconds elapsed since 1-Jan-1904
#ifdef WIN32
if (t == -1) {
// failsafe as this will segfault
return 0;
}
struct tm *local = localtime(&t);
#else
struct tm result;
localtime_r(&t, &result);
struct tm *local = &result;
#endif
const int TM_EPOCH_YEAR = 1900;
const int MAC_EPOCH_YEAR = 1904;
// Clip year and day offsets to prevent dates earlier than 1-Jan-1904
local->tm_year = std::max(MAC_EPOCH_YEAR - TM_EPOCH_YEAR, local->tm_year + PrefsFindInt32("yearofs"));
int a4 = ((local->tm_year + TM_EPOCH_YEAR) >> 2) - !(local->tm_year & 3);
int b4 = (MAC_EPOCH_YEAR >> 2) - !(MAC_EPOCH_YEAR & 3);
int a100 = a4 / 25 - (a4 % 25 < 0);
int b100 = b4 / 25 - (b4 % 25 < 0);
int a400 = a100 >> 2;
int b400 = b100 >> 2;
int intervening_leap_days = (a4 - b4) - (a100 - b100) + (a400 - b400);
uint32 days = local->tm_yday + 365 * (local->tm_year - 4) + intervening_leap_days;
int32 dayofs = -PrefsFindInt32("dayofs");
if(dayofs > 0 && dayofs > days)
dayofs = days;
return local->tm_sec + 60 * (local->tm_min + 60 * (local->tm_hour + 24 * (days - dayofs)));
}
/*
* Convert MacOS time to time_t (seconds since 1.1.1970)
*/
time_t MacTimeToTime(uint32 t)
{
// simply subtract number of seconds between 1.1.1904 and 1.1.1970
return t - 2082826800;
}
/*
* Memory allocators in MacOS system heap zone
*/
uint32 Mac_sysalloc(uint32 size)
{
return NewPtrSys(size);
}
void Mac_sysfree(uint32 addr)
{
DisposePtr(addr);
}
Reference in New Issue View Git Blame Copy Permalink