mirror of
https://github.com/ksherlock/mpw.git
synced 2025-02-16 12:30:53 +00:00
split up mpw traps into multiple files
This commit is contained in:
Kelvin Sherlock
parent
e88f379eb1
commit
ce5f23a1a2
@ -4,7 +4,7 @@ set(CMAKE_CXX_FLAGS "-std=c++11 -stdlib=libc++ -Wall -g")
|
|||||||
|
|
||||||
add_definitions(-I ${CMAKE_SOURCE_DIR}/)
|
add_definitions(-I ${CMAKE_SOURCE_DIR}/)
|
||||||
|
|
||||||
set(MPW_SRC mpw.cpp)
|
set(MPW_SRC mpw.cpp mpw_io.cpp mpw_close.cpp mpw_access.cpp mpw_ioctl.cpp)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
551
mpw/mpw.cpp
551
mpw/mpw.cpp
@ -1,37 +1,34 @@
|
|||||||
|
#include "mpw.h"
|
||||||
|
#include "mpw_errno.h"
|
||||||
|
#include "mpw_internal.h"
|
||||||
|
|
||||||
|
#include <vector>
|
||||||
|
|
||||||
#include <cstdint>
|
#include <cstdint>
|
||||||
#include <cstdio>
|
#include <cstdio>
|
||||||
#include <cerrno>
|
#include <cerrno>
|
||||||
|
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <unistd.h>
|
||||||
|
|
||||||
|
|
||||||
#include <cpu/defs.h>
|
#include <cpu/defs.h>
|
||||||
#include <cpu/fmem.h>
|
#include <cpu/fmem.h>
|
||||||
#include <cpu/cpuModule.h>
|
#include <cpu/cpuModule.h>
|
||||||
|
|
||||||
#include <toolbox/os.h>
|
|
||||||
|
|
||||||
#include <memory>
|
|
||||||
#include <string>
|
|
||||||
#include <algorithm>
|
|
||||||
#include <vector>
|
|
||||||
|
|
||||||
#include <unistd.h>
|
|
||||||
#include <fcntl.h>
|
|
||||||
|
|
||||||
#include <stdlib.h>
|
|
||||||
#include <sys/paths.h>
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include "mpw.h"
|
|
||||||
#include "mpw_errno.h"
|
|
||||||
|
|
||||||
namespace {
|
|
||||||
|
|
||||||
using namespace MPW;
|
|
||||||
|
|
||||||
|
namespace MPW { namespace Internal {
|
||||||
|
|
||||||
// for dup counts, etc.
|
// for dup counts, etc.
|
||||||
std::vector<int> FDTable;
|
std::vector<int> FDTable;
|
||||||
|
|
||||||
|
} }
|
||||||
|
|
||||||
|
|
||||||
|
namespace MPW
|
||||||
|
{
|
||||||
|
using namespace Internal;
|
||||||
|
|
||||||
int errno_to_errno(int xerrno)
|
int errno_to_errno(int xerrno)
|
||||||
{
|
{
|
||||||
switch (xerrno)
|
switch (xerrno)
|
||||||
@ -79,510 +76,6 @@ namespace {
|
|||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
uint32_t ftrap_open(uint32_t name, uint32_t parm)
|
|
||||||
{
|
|
||||||
uint32_t d0;
|
|
||||||
int fd;
|
|
||||||
std::string sname;
|
|
||||||
|
|
||||||
MPWFile f;
|
|
||||||
int nativeFlags;
|
|
||||||
std::memset(&f, 0, sizeof(f));
|
|
||||||
|
|
||||||
f.flags = memoryReadWord(parm);
|
|
||||||
|
|
||||||
|
|
||||||
nativeFlags = 0;
|
|
||||||
switch (f.flags & 0x03)
|
|
||||||
{
|
|
||||||
case 0x01:
|
|
||||||
nativeFlags = O_RDONLY;
|
|
||||||
break;
|
|
||||||
case 0x02:
|
|
||||||
nativeFlags = O_WRONLY;
|
|
||||||
break;
|
|
||||||
case 0x00: // ????
|
|
||||||
case 0x03:
|
|
||||||
nativeFlags = O_RDWR;
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (f.flags & kO_APPEND) nativeFlags |= O_APPEND;
|
|
||||||
if (f.flags & kO_CREAT) nativeFlags |= O_CREAT;
|
|
||||||
if (f.flags & kO_TRUNC) nativeFlags |= O_TRUNC;
|
|
||||||
if (f.flags & kO_EXCL) nativeFlags |= O_EXCL;
|
|
||||||
|
|
||||||
|
|
||||||
const char *cp = (const char *)memoryPointer(name);
|
|
||||||
sname.assign(cp);
|
|
||||||
|
|
||||||
fprintf(stderr, " open(%s, %04x)\n", sname.c_str(), f.flags);
|
|
||||||
|
|
||||||
// TODO -- can you create a resource file like this?
|
|
||||||
|
|
||||||
if (f.flags & kO_RSRC)
|
|
||||||
sname.append(_PATH_RSRCFORKSPEC);
|
|
||||||
|
|
||||||
if (f.flags & kO_CREAT)
|
|
||||||
fd = ::open(sname.c_str(), nativeFlags, 0666);
|
|
||||||
else
|
|
||||||
fd = ::open(sname.c_str(), nativeFlags);
|
|
||||||
|
|
||||||
if (fd < 0)
|
|
||||||
{
|
|
||||||
// why the 0x40... ??
|
|
||||||
d0 = 0x40000000 | errno_to_errno(errno);
|
|
||||||
f.error = -36; // ioErr ... whatever.
|
|
||||||
f.cookie = 0;
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
d0 = 0;
|
|
||||||
f.error = 0;
|
|
||||||
f.cookie = fd;
|
|
||||||
|
|
||||||
if (FDTable.size() <= fd)
|
|
||||||
FDTable.resize(fd + 1);
|
|
||||||
|
|
||||||
FDTable[fd] = 1;
|
|
||||||
|
|
||||||
|
|
||||||
// adjust the binary flags...
|
|
||||||
// most apps are good about this but dumpobj doesn't set O_BINARY (but should)
|
|
||||||
// and MPW Assembler sets O_BINARY (but shouldn't)
|
|
||||||
|
|
||||||
if (OS::IsTextFile(sname)) f.flags &= ~kO_BINARY;
|
|
||||||
if (OS::IsBinaryFile(sname)) f.flags |= kO_BINARY;
|
|
||||||
|
|
||||||
if (f.flags & kO_RSRC) f.flags |= kO_BINARY;
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
memoryWriteWord(f.flags, parm + 0);
|
|
||||||
memoryWriteWord(f.error, parm + 2);
|
|
||||||
memoryWriteLong(f.cookie, parm + 8);
|
|
||||||
|
|
||||||
return d0;
|
|
||||||
}
|
|
||||||
|
|
||||||
void ftrap_access(uint16_t trap)
|
|
||||||
{
|
|
||||||
// open a file, rename a file, or delete a file.
|
|
||||||
std::string sname;
|
|
||||||
uint32_t d0;
|
|
||||||
|
|
||||||
uint32_t sp = cpuGetAReg(7);
|
|
||||||
|
|
||||||
// hmmm not sure if 3 or 4 parameters.
|
|
||||||
|
|
||||||
uint32_t name = memoryReadLong(sp + 4);
|
|
||||||
uint32_t op = memoryReadLong(sp + 8);
|
|
||||||
uint32_t parm = memoryReadLong(sp + 12);
|
|
||||||
|
|
||||||
fprintf(stderr, "%04x Access(%08x, %04x, %08x)\n", trap, name, op, parm);
|
|
||||||
|
|
||||||
switch (op)
|
|
||||||
{
|
|
||||||
case kF_OPEN:
|
|
||||||
d0 = ftrap_open(name, parm);
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
d0 = 0x40000000 | kEINVAL;
|
|
||||||
fprintf(stderr, "faccess - unsupported op %04x\n", op);
|
|
||||||
}
|
|
||||||
|
|
||||||
cpuSetDReg(0, d0);
|
|
||||||
}
|
|
||||||
|
|
||||||
void ftrap_close(uint16_t trap)
|
|
||||||
{
|
|
||||||
// returns an mpw_errno
|
|
||||||
// close actually checks the error in the File Entry and converts that to unix.
|
|
||||||
// (sigh)
|
|
||||||
|
|
||||||
uint32_t d0;
|
|
||||||
|
|
||||||
uint32_t sp = cpuGetAReg(7);
|
|
||||||
uint32_t parm = memoryReadLong(sp + 4);
|
|
||||||
|
|
||||||
MPWFile f;
|
|
||||||
|
|
||||||
f.flags = memoryReadWord(parm);
|
|
||||||
f.error = memoryReadWord(parm + 2);
|
|
||||||
f.device = memoryReadLong(parm + 4);
|
|
||||||
f.cookie = memoryReadLong(parm + 8);
|
|
||||||
f.count = memoryReadLong(parm + 12);
|
|
||||||
f.buffer = memoryReadLong(parm + 16);
|
|
||||||
|
|
||||||
|
|
||||||
fprintf(stderr, "%04x Close(%08x)\n", trap, parm);
|
|
||||||
|
|
||||||
if (!parm)
|
|
||||||
{
|
|
||||||
cpuSetDReg(0, kEINVAL);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
int fd = f.cookie;
|
|
||||||
|
|
||||||
if (fd < 0 || fd >= FDTable.size() || !FDTable[fd])
|
|
||||||
{
|
|
||||||
f.error = OS::notOpenErr;
|
|
||||||
d0 = kEINVAL;
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
if (--FDTable[fd] == 0)
|
|
||||||
{
|
|
||||||
::close(fd);
|
|
||||||
f.error = 0;
|
|
||||||
d0 = 0;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
memoryWriteWord(f.error, parm + 2);
|
|
||||||
cpuSetDReg(0, 0);
|
|
||||||
}
|
|
||||||
|
|
||||||
void ftrap_read(uint16_t trap)
|
|
||||||
{
|
|
||||||
|
|
||||||
uint32_t d0;
|
|
||||||
|
|
||||||
uint32_t sp = cpuGetAReg(7);
|
|
||||||
uint32_t parm = memoryReadLong(sp + 4);
|
|
||||||
|
|
||||||
MPWFile f;
|
|
||||||
|
|
||||||
f.flags = memoryReadWord(parm);
|
|
||||||
f.error = memoryReadWord(parm + 2);
|
|
||||||
f.device = memoryReadLong(parm + 4);
|
|
||||||
f.cookie = memoryReadLong(parm + 8);
|
|
||||||
f.count = memoryReadLong(parm + 12);
|
|
||||||
f.buffer = memoryReadLong(parm + 16);
|
|
||||||
|
|
||||||
|
|
||||||
fprintf(stderr, "%04x Read(%02x, %08x, %08x)\n", trap, f.cookie, f.buffer, f.count);
|
|
||||||
|
|
||||||
d0 = 0;
|
|
||||||
|
|
||||||
if (f.count)
|
|
||||||
{
|
|
||||||
ssize_t size;
|
|
||||||
|
|
||||||
int fd = f.cookie;
|
|
||||||
|
|
||||||
if (f.flags & kO_BINARY)
|
|
||||||
{
|
|
||||||
size = ::read(fd, memoryPointer(f.buffer), f.count);
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
std::unique_ptr<uint8_t[]> buffer(new uint8_t[f.count]);
|
|
||||||
uint8_t *ptr = memoryPointer(f.buffer);
|
|
||||||
|
|
||||||
size = ::read(fd, buffer.get(), f.count);
|
|
||||||
|
|
||||||
if (size > 0)
|
|
||||||
{
|
|
||||||
std::transform(buffer.get(), buffer.get() + size, ptr,
|
|
||||||
[](uint8_t c) { return c == '\n' ? '\r' : c; }
|
|
||||||
);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if (size < 0)
|
|
||||||
{
|
|
||||||
//f.count = 0;
|
|
||||||
f.error = OS::ioErr; // ioErr
|
|
||||||
d0 = 0x40000000 | errno_to_errno(errno);
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
f.count -= size;
|
|
||||||
f.error = 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
// write back...
|
|
||||||
memoryWriteWord(f.error, parm + 2);
|
|
||||||
memoryWriteLong(f.count, parm + 12);
|
|
||||||
}
|
|
||||||
|
|
||||||
cpuSetDReg(0, d0);
|
|
||||||
}
|
|
||||||
|
|
||||||
void ftrap_write(uint16_t trap)
|
|
||||||
{
|
|
||||||
uint32_t d0;
|
|
||||||
|
|
||||||
uint32_t sp = cpuGetAReg(7);
|
|
||||||
uint32_t parm = memoryReadLong(sp + 4);
|
|
||||||
|
|
||||||
MPWFile f;
|
|
||||||
|
|
||||||
f.flags = memoryReadWord(parm);
|
|
||||||
f.error = memoryReadWord(parm + 2);
|
|
||||||
f.device = memoryReadLong(parm + 4);
|
|
||||||
f.cookie = memoryReadLong(parm + 8);
|
|
||||||
f.count = memoryReadLong(parm + 12);
|
|
||||||
f.buffer = memoryReadLong(parm + 16);
|
|
||||||
|
|
||||||
fprintf(stderr, "%04x Write(%02x, %08x, %08x)\n", trap, f.cookie, f.buffer, f.count);
|
|
||||||
|
|
||||||
|
|
||||||
d0 = 0;
|
|
||||||
if (f.count)
|
|
||||||
{
|
|
||||||
ssize_t size;
|
|
||||||
|
|
||||||
int fd = f.cookie;
|
|
||||||
|
|
||||||
if (f.flags & kO_BINARY)
|
|
||||||
{
|
|
||||||
size = ::write(fd, memoryPointer(f.buffer), f.count);
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
std::unique_ptr<uint8_t[]> buffer(new uint8_t[f.count]);
|
|
||||||
uint8_t *ptr = memoryPointer(f.buffer);
|
|
||||||
|
|
||||||
std::transform(ptr, ptr + f.count, buffer.get(),
|
|
||||||
[](uint8_t c) { return c == '\r' ? '\n' : c; }
|
|
||||||
);
|
|
||||||
|
|
||||||
size = ::write(fd, buffer.get(), f.count);
|
|
||||||
}
|
|
||||||
|
|
||||||
if (size < 0)
|
|
||||||
{
|
|
||||||
//f.count = 0;
|
|
||||||
f.error = -36; // ioErr
|
|
||||||
d0 = 0x40000000 | errno_to_errno(errno);
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
// this is, apparently, correct.
|
|
||||||
f.count -= size;
|
|
||||||
f.error = 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
// write back...
|
|
||||||
memoryWriteWord(f.error, parm + 2);
|
|
||||||
memoryWriteLong(f.count, parm + 12);
|
|
||||||
}
|
|
||||||
cpuSetDReg(0, d0);
|
|
||||||
}
|
|
||||||
|
|
||||||
uint32_t ftrap_dup(uint32_t parm, uint32_t arg)
|
|
||||||
{
|
|
||||||
uint32_t d0;
|
|
||||||
MPWFile f;
|
|
||||||
|
|
||||||
f.flags = memoryReadWord(parm);
|
|
||||||
f.error = memoryReadWord(parm + 2);
|
|
||||||
f.device = memoryReadLong(parm + 4);
|
|
||||||
f.cookie = memoryReadLong(parm + 8);
|
|
||||||
f.count = memoryReadLong(parm + 12);
|
|
||||||
f.buffer = memoryReadLong(parm + 16);
|
|
||||||
|
|
||||||
int fd = f.cookie;
|
|
||||||
if (fd < 0 || fd >= FDTable.size() || !FDTable[fd])
|
|
||||||
{
|
|
||||||
d0 = kEINVAL; // & 0x40000000 ?
|
|
||||||
f.error = 0;
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
FDTable[fd]++;
|
|
||||||
d0 = 0;
|
|
||||||
f.error = 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
memoryWriteWord(f.error, parm + 2);
|
|
||||||
return d0;
|
|
||||||
}
|
|
||||||
|
|
||||||
uint32_t ftrap_bufsize(uint32_t parm, uint32_t arg)
|
|
||||||
{
|
|
||||||
// should return the preferred buffsize in *arg
|
|
||||||
// an error will use the default size (0x400 bytes).
|
|
||||||
|
|
||||||
MPWFile f;
|
|
||||||
|
|
||||||
f.flags = memoryReadWord(parm);
|
|
||||||
f.error = memoryReadWord(parm + 2);
|
|
||||||
f.device = memoryReadLong(parm + 4);
|
|
||||||
f.cookie = memoryReadLong(parm + 8);
|
|
||||||
f.count = memoryReadLong(parm + 12);
|
|
||||||
f.buffer = memoryReadLong(parm + 16);
|
|
||||||
|
|
||||||
f.error = 0;
|
|
||||||
|
|
||||||
memoryWriteWord(f.error, parm + 2);
|
|
||||||
return kEINVAL;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
uint32_t ftrap_interactive(uint32_t parm, uint32_t arg)
|
|
||||||
{
|
|
||||||
// return 0 if interactive, an error if
|
|
||||||
// non-interactive.
|
|
||||||
|
|
||||||
uint32_t d0;
|
|
||||||
|
|
||||||
MPWFile f;
|
|
||||||
|
|
||||||
f.flags = memoryReadWord(parm);
|
|
||||||
f.error = memoryReadWord(parm + 2);
|
|
||||||
f.device = memoryReadLong(parm + 4);
|
|
||||||
f.cookie = memoryReadLong(parm + 8);
|
|
||||||
f.count = memoryReadLong(parm + 12);
|
|
||||||
f.buffer = memoryReadLong(parm + 16);
|
|
||||||
|
|
||||||
f.error = 0;
|
|
||||||
|
|
||||||
int fd = f.cookie;
|
|
||||||
|
|
||||||
if (fd < 0 || fd >= FDTable.size() || !FDTable[fd])
|
|
||||||
{
|
|
||||||
d0 = kEINVAL;
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
int tty = ::isatty(fd);
|
|
||||||
d0 = tty ? 0 : kEINVAL;
|
|
||||||
}
|
|
||||||
|
|
||||||
memoryWriteWord(f.error, parm + 2);
|
|
||||||
return kEINVAL;
|
|
||||||
}
|
|
||||||
|
|
||||||
uint32_t ftrap_iofname(uint32_t parm, uint32_t arg)
|
|
||||||
{
|
|
||||||
// return file name.
|
|
||||||
// AsmIIgs uses this...
|
|
||||||
memoryWriteWord(0, parm + 2);
|
|
||||||
return kEINVAL;
|
|
||||||
}
|
|
||||||
|
|
||||||
uint32_t ftrap_lseek(uint32_t parm, uint32_t arg)
|
|
||||||
{
|
|
||||||
MPWFile f;
|
|
||||||
uint32_t d0;
|
|
||||||
|
|
||||||
uint32_t whence = memoryReadLong(arg);
|
|
||||||
int32_t offset =memoryReadLong(arg + 4);
|
|
||||||
int nativeWhence = 0;
|
|
||||||
|
|
||||||
f.flags = memoryReadWord(parm);
|
|
||||||
f.error = memoryReadWord(parm + 2);
|
|
||||||
f.device = memoryReadLong(parm + 4);
|
|
||||||
f.cookie = memoryReadLong(parm + 8);
|
|
||||||
f.count = memoryReadLong(parm + 12);
|
|
||||||
f.buffer = memoryReadLong(parm + 16);
|
|
||||||
|
|
||||||
|
|
||||||
int fd = f.cookie;
|
|
||||||
|
|
||||||
|
|
||||||
// TODO - MacOS returns eofERR and sets mark to eof
|
|
||||||
// if seeking past the eof.
|
|
||||||
// TODO - MacOS treats offset as a signed value, unix is unsigned [?]
|
|
||||||
switch (whence)
|
|
||||||
{
|
|
||||||
case kSEEK_CUR:
|
|
||||||
nativeWhence = SEEK_CUR;
|
|
||||||
break;
|
|
||||||
case kSEEK_END:
|
|
||||||
nativeWhence = SEEK_END;
|
|
||||||
break;
|
|
||||||
case kSEEK_SET:
|
|
||||||
nativeWhence = SEEK_SET;
|
|
||||||
break;
|
|
||||||
|
|
||||||
default:
|
|
||||||
memoryWriteWord(0, parm + 2);
|
|
||||||
return kEINVAL;
|
|
||||||
}
|
|
||||||
|
|
||||||
fprintf(stderr, " seek(%02x, %08x, %02x)\n", fd, offset, nativeWhence);
|
|
||||||
|
|
||||||
off_t rv = ::lseek(fd, offset, nativeWhence);
|
|
||||||
if (rv < 0)
|
|
||||||
{
|
|
||||||
d0 = errno_to_errno(errno);
|
|
||||||
f.error = 0;
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
d0 = 0;
|
|
||||||
f.error = 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
memoryWriteLong(rv, arg + 4);
|
|
||||||
memoryWriteWord(f.error, parm + 2);
|
|
||||||
return d0;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
void ftrap_ioctl(uint16_t trap)
|
|
||||||
{
|
|
||||||
// returns an mpw_errno in d0 [???]
|
|
||||||
|
|
||||||
// int ioctl(int fildes, unsigned int cmd, long *arg);
|
|
||||||
uint32_t d0;
|
|
||||||
uint32_t sp = cpuGetAReg(7);
|
|
||||||
|
|
||||||
uint32_t fd = memoryReadLong(sp + 4);
|
|
||||||
uint32_t cmd = memoryReadLong(sp + 8);
|
|
||||||
uint32_t arg = memoryReadLong(sp + 12);
|
|
||||||
|
|
||||||
fprintf(stderr, "%04x IOCtl(%08x, %08x, %08x)\n", trap, fd, cmd, arg);
|
|
||||||
|
|
||||||
switch (cmd)
|
|
||||||
{
|
|
||||||
case kFIOLSEEK:
|
|
||||||
d0 = ftrap_lseek(fd, arg);
|
|
||||||
break;
|
|
||||||
|
|
||||||
case kFIODUPFD:
|
|
||||||
d0 = ftrap_dup(fd, arg);
|
|
||||||
break;
|
|
||||||
|
|
||||||
case kFIOBUFSIZE:
|
|
||||||
d0 = ftrap_bufsize(fd, arg);
|
|
||||||
break;
|
|
||||||
|
|
||||||
case kFIOINTERACTIVE:
|
|
||||||
d0 = ftrap_interactive(fd, arg);
|
|
||||||
break;
|
|
||||||
|
|
||||||
case kFIOFNAME:
|
|
||||||
d0 = ftrap_iofname(fd, arg);
|
|
||||||
break;
|
|
||||||
|
|
||||||
case kFIOREFNUM:
|
|
||||||
case kFIOSETEOF:
|
|
||||||
fprintf(stderr, "ioctl - unsupported op %04x\n", cmd);
|
|
||||||
exit(1);
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
|
|
||||||
cpuSetDReg(0, d0);
|
|
||||||
}
|
|
||||||
|
|
||||||
void ftrap_quit(uint16_t trap)
|
|
||||||
{
|
|
||||||
fprintf(stderr, "%04x Quit()\n", trap);
|
|
||||||
cpuSetStop(true);
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
namespace MPW
|
|
||||||
{
|
|
||||||
|
|
||||||
void Init()
|
void Init()
|
||||||
{
|
{
|
||||||
FDTable.resize(16);
|
FDTable.resize(16);
|
||||||
@ -594,6 +87,13 @@ namespace MPW
|
|||||||
// todo -- should eventually set up the mpw environment.
|
// todo -- should eventually set up the mpw environment.
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
void ftrap_quit(uint16_t trap)
|
||||||
|
{
|
||||||
|
fprintf(stderr, "%04x Quit()\n", trap);
|
||||||
|
cpuSetStop(true);
|
||||||
|
}
|
||||||
|
|
||||||
void dispatch(uint16_t trap)
|
void dispatch(uint16_t trap)
|
||||||
{
|
{
|
||||||
switch (trap)
|
switch (trap)
|
||||||
@ -631,4 +131,5 @@ namespace MPW
|
|||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
18
mpw/mpw.h
18
mpw/mpw.h
@ -66,8 +66,26 @@ namespace MPW {
|
|||||||
fIOCtl,
|
fIOCtl,
|
||||||
};
|
};
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
// should add argc/argv/envp...
|
||||||
|
void Init();
|
||||||
|
|
||||||
|
|
||||||
void dispatch(uint16_t trap);
|
void dispatch(uint16_t trap);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
void ftrap_quit(uint16_t trap);
|
||||||
|
|
||||||
|
void ftrap_access(uint16_t trap);
|
||||||
|
void ftrap_close(uint16_t trap);
|
||||||
|
void ftrap_read(uint16_t trap);
|
||||||
|
void ftrap_write(uint16_t trap);
|
||||||
|
void ftrap_ioctl(uint16_t trap);
|
||||||
|
|
||||||
|
// native errno to an MPW errno.
|
||||||
|
int errno_to_errno(int xerrno);
|
||||||
}
|
}
|
||||||
|
|
||||||
#endif
|
#endif
|
||||||
148
mpw/mpw_access.cpp
Normal file
148
mpw/mpw_access.cpp
Normal file
@ -0,0 +1,148 @@
|
|||||||
|
#include "mpw.h"
|
||||||
|
#include "mpw_internal.h"
|
||||||
|
#include "mpw_errno.h"
|
||||||
|
|
||||||
|
#include <algorithm>
|
||||||
|
#include <memory>
|
||||||
|
#include <string>
|
||||||
|
|
||||||
|
|
||||||
|
#include <cstdio>
|
||||||
|
#include <cstring>
|
||||||
|
#include <cerrno>
|
||||||
|
|
||||||
|
#include <unistd.h>
|
||||||
|
#include <fcntl.h>
|
||||||
|
#include <sys/paths.h>
|
||||||
|
|
||||||
|
#include <cpu/defs.h>
|
||||||
|
#include <cpu/fmem.h>
|
||||||
|
#include <cpu/cpuModule.h>
|
||||||
|
|
||||||
|
#include <toolbox/toolbox.h>
|
||||||
|
#include <toolbox/os.h>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
namespace MPW
|
||||||
|
{
|
||||||
|
using namespace Internal;
|
||||||
|
|
||||||
|
|
||||||
|
uint32_t ftrap_open(uint32_t name, uint32_t parm)
|
||||||
|
{
|
||||||
|
uint32_t d0;
|
||||||
|
int fd;
|
||||||
|
std::string sname;
|
||||||
|
|
||||||
|
MPWFile f;
|
||||||
|
int nativeFlags;
|
||||||
|
std::memset(&f, 0, sizeof(f));
|
||||||
|
|
||||||
|
f.flags = memoryReadWord(parm);
|
||||||
|
|
||||||
|
|
||||||
|
nativeFlags = 0;
|
||||||
|
switch (f.flags & 0x03)
|
||||||
|
{
|
||||||
|
case 0x01:
|
||||||
|
nativeFlags = O_RDONLY;
|
||||||
|
break;
|
||||||
|
case 0x02:
|
||||||
|
nativeFlags = O_WRONLY;
|
||||||
|
break;
|
||||||
|
case 0x00: // ????
|
||||||
|
case 0x03:
|
||||||
|
nativeFlags = O_RDWR;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (f.flags & kO_APPEND) nativeFlags |= O_APPEND;
|
||||||
|
if (f.flags & kO_CREAT) nativeFlags |= O_CREAT;
|
||||||
|
if (f.flags & kO_TRUNC) nativeFlags |= O_TRUNC;
|
||||||
|
if (f.flags & kO_EXCL) nativeFlags |= O_EXCL;
|
||||||
|
|
||||||
|
|
||||||
|
sname = ToolBox::ReadCString(name);
|
||||||
|
|
||||||
|
fprintf(stderr, " open(%s, %04x)\n", sname.c_str(), f.flags);
|
||||||
|
|
||||||
|
// TODO -- can you create a resource file like this?
|
||||||
|
|
||||||
|
if (f.flags & kO_RSRC)
|
||||||
|
sname.append(_PATH_RSRCFORKSPEC);
|
||||||
|
|
||||||
|
if (f.flags & kO_CREAT)
|
||||||
|
fd = ::open(sname.c_str(), nativeFlags, 0666);
|
||||||
|
else
|
||||||
|
fd = ::open(sname.c_str(), nativeFlags);
|
||||||
|
|
||||||
|
if (fd < 0)
|
||||||
|
{
|
||||||
|
// why the 0x40... ??
|
||||||
|
d0 = 0x40000000 | errno_to_errno(errno);
|
||||||
|
f.error = -36; // ioErr ... whatever.
|
||||||
|
f.cookie = 0;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
d0 = 0;
|
||||||
|
f.error = 0;
|
||||||
|
f.cookie = fd;
|
||||||
|
|
||||||
|
if (FDTable.size() <= fd)
|
||||||
|
FDTable.resize(fd + 1);
|
||||||
|
|
||||||
|
FDTable[fd] = 1;
|
||||||
|
|
||||||
|
|
||||||
|
// adjust the binary flags...
|
||||||
|
// most apps are good about this but dumpobj doesn't set O_BINARY (but should)
|
||||||
|
// and MPW Assembler sets O_BINARY (but shouldn't)
|
||||||
|
|
||||||
|
if (OS::IsTextFile(sname)) f.flags &= ~kO_BINARY;
|
||||||
|
if (OS::IsBinaryFile(sname)) f.flags |= kO_BINARY;
|
||||||
|
|
||||||
|
if (f.flags & kO_RSRC) f.flags |= kO_BINARY;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
memoryWriteWord(f.flags, parm + 0);
|
||||||
|
memoryWriteWord(f.error, parm + 2);
|
||||||
|
memoryWriteLong(f.cookie, parm + 8);
|
||||||
|
|
||||||
|
return d0;
|
||||||
|
}
|
||||||
|
|
||||||
|
void ftrap_access(uint16_t trap)
|
||||||
|
{
|
||||||
|
// open a file, rename a file, or delete a file.
|
||||||
|
std::string sname;
|
||||||
|
uint32_t d0;
|
||||||
|
|
||||||
|
uint32_t sp = cpuGetAReg(7);
|
||||||
|
|
||||||
|
// hmmm not sure if 3 or 4 parameters.
|
||||||
|
|
||||||
|
uint32_t name = memoryReadLong(sp + 4);
|
||||||
|
uint32_t op = memoryReadLong(sp + 8);
|
||||||
|
uint32_t parm = memoryReadLong(sp + 12);
|
||||||
|
|
||||||
|
fprintf(stderr, "%04x Access(%08x, %04x, %08x)\n", trap, name, op, parm);
|
||||||
|
|
||||||
|
switch (op)
|
||||||
|
{
|
||||||
|
case kF_OPEN:
|
||||||
|
d0 = ftrap_open(name, parm);
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
d0 = 0x40000000 | kEINVAL;
|
||||||
|
fprintf(stderr, "faccess - unsupported op %04x\n", op);
|
||||||
|
}
|
||||||
|
|
||||||
|
cpuSetDReg(0, d0);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
74
mpw/mpw_close.cpp
Normal file
74
mpw/mpw_close.cpp
Normal file
@ -0,0 +1,74 @@
|
|||||||
|
#include "mpw.h"
|
||||||
|
#include "mpw_internal.h"
|
||||||
|
#include "mpw_errno.h"
|
||||||
|
|
||||||
|
#include <cstdio>
|
||||||
|
#include <algorithm>
|
||||||
|
#include <memory>
|
||||||
|
|
||||||
|
#include <unistd.h>
|
||||||
|
|
||||||
|
#include <cpu/defs.h>
|
||||||
|
#include <cpu/fmem.h>
|
||||||
|
#include <cpu/cpuModule.h>
|
||||||
|
|
||||||
|
#include <toolbox/os.h>
|
||||||
|
|
||||||
|
namespace MPW
|
||||||
|
{
|
||||||
|
|
||||||
|
using namespace Internal;
|
||||||
|
|
||||||
|
void ftrap_close(uint16_t trap)
|
||||||
|
{
|
||||||
|
// returns an mpw_errno
|
||||||
|
// close actually checks the error in the File Entry and converts that to unix.
|
||||||
|
// (sigh)
|
||||||
|
|
||||||
|
uint32_t d0;
|
||||||
|
|
||||||
|
uint32_t sp = cpuGetAReg(7);
|
||||||
|
uint32_t parm = memoryReadLong(sp + 4);
|
||||||
|
|
||||||
|
MPWFile f;
|
||||||
|
|
||||||
|
f.flags = memoryReadWord(parm);
|
||||||
|
f.error = memoryReadWord(parm + 2);
|
||||||
|
f.device = memoryReadLong(parm + 4);
|
||||||
|
f.cookie = memoryReadLong(parm + 8);
|
||||||
|
f.count = memoryReadLong(parm + 12);
|
||||||
|
f.buffer = memoryReadLong(parm + 16);
|
||||||
|
|
||||||
|
|
||||||
|
fprintf(stderr, "%04x Close(%08x)\n", trap, parm);
|
||||||
|
|
||||||
|
if (!parm)
|
||||||
|
{
|
||||||
|
cpuSetDReg(0, kEINVAL);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
int fd = f.cookie;
|
||||||
|
|
||||||
|
if (fd < 0 || fd >= FDTable.size() || !FDTable[fd])
|
||||||
|
{
|
||||||
|
f.error = OS::notOpenErr;
|
||||||
|
d0 = kEINVAL;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if (--FDTable[fd] == 0)
|
||||||
|
{
|
||||||
|
::close(fd);
|
||||||
|
f.error = 0;
|
||||||
|
d0 = 0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
memoryWriteWord(f.error, parm + 2);
|
||||||
|
cpuSetDReg(0, 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
16
mpw/mpw_internal.h
Normal file
16
mpw/mpw_internal.h
Normal file
@ -0,0 +1,16 @@
|
|||||||
|
#ifndef __MPW_INTERNAL_H__
|
||||||
|
#define __MPW_INTERNAL_H__
|
||||||
|
|
||||||
|
#include <vector>
|
||||||
|
|
||||||
|
namespace MPW
|
||||||
|
{
|
||||||
|
namespace Internal
|
||||||
|
{
|
||||||
|
// for dup counts, etc.
|
||||||
|
extern std::vector<int> FDTable;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
#endif
|
||||||
153
mpw/mpw_io.cpp
Normal file
153
mpw/mpw_io.cpp
Normal file
@ -0,0 +1,153 @@
|
|||||||
|
#include "mpw.h"
|
||||||
|
#include "mpw_internal.h"
|
||||||
|
|
||||||
|
#include <algorithm>
|
||||||
|
#include <memory>
|
||||||
|
|
||||||
|
#include <cerrno>
|
||||||
|
#include <cstdio>
|
||||||
|
|
||||||
|
#include <unistd.h>
|
||||||
|
|
||||||
|
#include <cpu/defs.h>
|
||||||
|
#include <cpu/fmem.h>
|
||||||
|
#include <cpu/cpuModule.h>
|
||||||
|
|
||||||
|
#include <toolbox/os.h>
|
||||||
|
|
||||||
|
|
||||||
|
namespace MPW
|
||||||
|
{
|
||||||
|
|
||||||
|
using namespace Internal;
|
||||||
|
|
||||||
|
void ftrap_read(uint16_t trap)
|
||||||
|
{
|
||||||
|
|
||||||
|
uint32_t d0;
|
||||||
|
|
||||||
|
uint32_t sp = cpuGetAReg(7);
|
||||||
|
uint32_t parm = memoryReadLong(sp + 4);
|
||||||
|
|
||||||
|
MPWFile f;
|
||||||
|
|
||||||
|
f.flags = memoryReadWord(parm);
|
||||||
|
f.error = memoryReadWord(parm + 2);
|
||||||
|
f.device = memoryReadLong(parm + 4);
|
||||||
|
f.cookie = memoryReadLong(parm + 8);
|
||||||
|
f.count = memoryReadLong(parm + 12);
|
||||||
|
f.buffer = memoryReadLong(parm + 16);
|
||||||
|
|
||||||
|
|
||||||
|
fprintf(stderr, "%04x Read(%02x, %08x, %08x)\n", trap, f.cookie, f.buffer, f.count);
|
||||||
|
|
||||||
|
d0 = 0;
|
||||||
|
|
||||||
|
if (f.count)
|
||||||
|
{
|
||||||
|
ssize_t size;
|
||||||
|
|
||||||
|
int fd = f.cookie;
|
||||||
|
|
||||||
|
if (f.flags & kO_BINARY)
|
||||||
|
{
|
||||||
|
size = ::read(fd, memoryPointer(f.buffer), f.count);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
std::unique_ptr<uint8_t[]> buffer(new uint8_t[f.count]);
|
||||||
|
uint8_t *ptr = memoryPointer(f.buffer);
|
||||||
|
|
||||||
|
size = ::read(fd, buffer.get(), f.count);
|
||||||
|
|
||||||
|
if (size > 0)
|
||||||
|
{
|
||||||
|
std::transform(buffer.get(), buffer.get() + size, ptr,
|
||||||
|
[](uint8_t c) { return c == '\n' ? '\r' : c; }
|
||||||
|
);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (size < 0)
|
||||||
|
{
|
||||||
|
//f.count = 0;
|
||||||
|
f.error = OS::ioErr; // ioErr
|
||||||
|
d0 = 0x40000000 | errno_to_errno(errno);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
f.count -= size;
|
||||||
|
f.error = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
// write back...
|
||||||
|
memoryWriteWord(f.error, parm + 2);
|
||||||
|
memoryWriteLong(f.count, parm + 12);
|
||||||
|
}
|
||||||
|
|
||||||
|
cpuSetDReg(0, d0);
|
||||||
|
}
|
||||||
|
|
||||||
|
void ftrap_write(uint16_t trap)
|
||||||
|
{
|
||||||
|
uint32_t d0;
|
||||||
|
|
||||||
|
uint32_t sp = cpuGetAReg(7);
|
||||||
|
uint32_t parm = memoryReadLong(sp + 4);
|
||||||
|
|
||||||
|
MPWFile f;
|
||||||
|
|
||||||
|
f.flags = memoryReadWord(parm);
|
||||||
|
f.error = memoryReadWord(parm + 2);
|
||||||
|
f.device = memoryReadLong(parm + 4);
|
||||||
|
f.cookie = memoryReadLong(parm + 8);
|
||||||
|
f.count = memoryReadLong(parm + 12);
|
||||||
|
f.buffer = memoryReadLong(parm + 16);
|
||||||
|
|
||||||
|
fprintf(stderr, "%04x Write(%02x, %08x, %08x)\n", trap, f.cookie, f.buffer, f.count);
|
||||||
|
|
||||||
|
|
||||||
|
d0 = 0;
|
||||||
|
if (f.count)
|
||||||
|
{
|
||||||
|
ssize_t size;
|
||||||
|
|
||||||
|
int fd = f.cookie;
|
||||||
|
|
||||||
|
if (f.flags & kO_BINARY)
|
||||||
|
{
|
||||||
|
size = ::write(fd, memoryPointer(f.buffer), f.count);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
std::unique_ptr<uint8_t[]> buffer(new uint8_t[f.count]);
|
||||||
|
uint8_t *ptr = memoryPointer(f.buffer);
|
||||||
|
|
||||||
|
std::transform(ptr, ptr + f.count, buffer.get(),
|
||||||
|
[](uint8_t c) { return c == '\r' ? '\n' : c; }
|
||||||
|
);
|
||||||
|
|
||||||
|
size = ::write(fd, buffer.get(), f.count);
|
||||||
|
}
|
||||||
|
|
||||||
|
if (size < 0)
|
||||||
|
{
|
||||||
|
//f.count = 0;
|
||||||
|
f.error = -36; // ioErr
|
||||||
|
d0 = 0x40000000 | errno_to_errno(errno);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
// this is, apparently, correct.
|
||||||
|
f.count -= size;
|
||||||
|
f.error = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
// write back...
|
||||||
|
memoryWriteWord(f.error, parm + 2);
|
||||||
|
memoryWriteLong(f.count, parm + 12);
|
||||||
|
}
|
||||||
|
cpuSetDReg(0, d0);
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
230
mpw/mpw_ioctl.cpp
Normal file
230
mpw/mpw_ioctl.cpp
Normal file
@ -0,0 +1,230 @@
|
|||||||
|
#include "mpw.h"
|
||||||
|
#include "mpw_internal.h"
|
||||||
|
#include "mpw_errno.h"
|
||||||
|
|
||||||
|
#include <algorithm>
|
||||||
|
#include <memory>
|
||||||
|
#include <string>
|
||||||
|
|
||||||
|
#include <cstdio>
|
||||||
|
#include <cstring>
|
||||||
|
#include <cerrno>
|
||||||
|
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <unistd.h>
|
||||||
|
#include <fcntl.h>
|
||||||
|
#include <sys/paths.h>
|
||||||
|
|
||||||
|
#include <cpu/defs.h>
|
||||||
|
#include <cpu/fmem.h>
|
||||||
|
#include <cpu/cpuModule.h>
|
||||||
|
|
||||||
|
#include <toolbox/os.h>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
namespace MPW
|
||||||
|
{
|
||||||
|
using namespace Internal;
|
||||||
|
|
||||||
|
uint32_t ftrap_dup(uint32_t parm, uint32_t arg)
|
||||||
|
{
|
||||||
|
uint32_t d0;
|
||||||
|
MPWFile f;
|
||||||
|
|
||||||
|
f.flags = memoryReadWord(parm);
|
||||||
|
f.error = memoryReadWord(parm + 2);
|
||||||
|
f.device = memoryReadLong(parm + 4);
|
||||||
|
f.cookie = memoryReadLong(parm + 8);
|
||||||
|
f.count = memoryReadLong(parm + 12);
|
||||||
|
f.buffer = memoryReadLong(parm + 16);
|
||||||
|
|
||||||
|
int fd = f.cookie;
|
||||||
|
if (fd < 0 || fd >= FDTable.size() || !FDTable[fd])
|
||||||
|
{
|
||||||
|
d0 = kEINVAL; // & 0x40000000 ?
|
||||||
|
f.error = 0;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
FDTable[fd]++;
|
||||||
|
d0 = 0;
|
||||||
|
f.error = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
memoryWriteWord(f.error, parm + 2);
|
||||||
|
return d0;
|
||||||
|
}
|
||||||
|
|
||||||
|
uint32_t ftrap_bufsize(uint32_t parm, uint32_t arg)
|
||||||
|
{
|
||||||
|
// should return the preferred buffsize in *arg
|
||||||
|
// an error will use the default size (0x400 bytes).
|
||||||
|
|
||||||
|
MPWFile f;
|
||||||
|
|
||||||
|
f.flags = memoryReadWord(parm);
|
||||||
|
f.error = memoryReadWord(parm + 2);
|
||||||
|
f.device = memoryReadLong(parm + 4);
|
||||||
|
f.cookie = memoryReadLong(parm + 8);
|
||||||
|
f.count = memoryReadLong(parm + 12);
|
||||||
|
f.buffer = memoryReadLong(parm + 16);
|
||||||
|
|
||||||
|
f.error = 0;
|
||||||
|
|
||||||
|
memoryWriteWord(f.error, parm + 2);
|
||||||
|
return kEINVAL;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
uint32_t ftrap_interactive(uint32_t parm, uint32_t arg)
|
||||||
|
{
|
||||||
|
// return 0 if interactive, an error if
|
||||||
|
// non-interactive.
|
||||||
|
|
||||||
|
uint32_t d0;
|
||||||
|
|
||||||
|
MPWFile f;
|
||||||
|
|
||||||
|
f.flags = memoryReadWord(parm);
|
||||||
|
f.error = memoryReadWord(parm + 2);
|
||||||
|
f.device = memoryReadLong(parm + 4);
|
||||||
|
f.cookie = memoryReadLong(parm + 8);
|
||||||
|
f.count = memoryReadLong(parm + 12);
|
||||||
|
f.buffer = memoryReadLong(parm + 16);
|
||||||
|
|
||||||
|
f.error = 0;
|
||||||
|
|
||||||
|
int fd = f.cookie;
|
||||||
|
|
||||||
|
if (fd < 0 || fd >= FDTable.size() || !FDTable[fd])
|
||||||
|
{
|
||||||
|
d0 = kEINVAL;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
int tty = ::isatty(fd);
|
||||||
|
d0 = tty ? 0 : kEINVAL;
|
||||||
|
}
|
||||||
|
|
||||||
|
memoryWriteWord(f.error, parm + 2);
|
||||||
|
return kEINVAL;
|
||||||
|
}
|
||||||
|
|
||||||
|
uint32_t ftrap_iofname(uint32_t parm, uint32_t arg)
|
||||||
|
{
|
||||||
|
// return file name.
|
||||||
|
// AsmIIgs uses this...
|
||||||
|
memoryWriteWord(0, parm + 2);
|
||||||
|
return kEINVAL;
|
||||||
|
}
|
||||||
|
|
||||||
|
uint32_t ftrap_lseek(uint32_t parm, uint32_t arg)
|
||||||
|
{
|
||||||
|
MPWFile f;
|
||||||
|
uint32_t d0;
|
||||||
|
|
||||||
|
uint32_t whence = memoryReadLong(arg);
|
||||||
|
int32_t offset =memoryReadLong(arg + 4);
|
||||||
|
int nativeWhence = 0;
|
||||||
|
|
||||||
|
f.flags = memoryReadWord(parm);
|
||||||
|
f.error = memoryReadWord(parm + 2);
|
||||||
|
f.device = memoryReadLong(parm + 4);
|
||||||
|
f.cookie = memoryReadLong(parm + 8);
|
||||||
|
f.count = memoryReadLong(parm + 12);
|
||||||
|
f.buffer = memoryReadLong(parm + 16);
|
||||||
|
|
||||||
|
|
||||||
|
int fd = f.cookie;
|
||||||
|
|
||||||
|
|
||||||
|
// TODO - MacOS returns eofERR and sets mark to eof
|
||||||
|
// if seeking past the eof.
|
||||||
|
// TODO - MacOS treats offset as a signed value, unix is unsigned [?]
|
||||||
|
switch (whence)
|
||||||
|
{
|
||||||
|
case kSEEK_CUR:
|
||||||
|
nativeWhence = SEEK_CUR;
|
||||||
|
break;
|
||||||
|
case kSEEK_END:
|
||||||
|
nativeWhence = SEEK_END;
|
||||||
|
break;
|
||||||
|
case kSEEK_SET:
|
||||||
|
nativeWhence = SEEK_SET;
|
||||||
|
break;
|
||||||
|
|
||||||
|
default:
|
||||||
|
memoryWriteWord(0, parm + 2);
|
||||||
|
return kEINVAL;
|
||||||
|
}
|
||||||
|
|
||||||
|
fprintf(stderr, " seek(%02x, %08x, %02x)\n", fd, offset, nativeWhence);
|
||||||
|
|
||||||
|
off_t rv = ::lseek(fd, offset, nativeWhence);
|
||||||
|
if (rv < 0)
|
||||||
|
{
|
||||||
|
d0 = errno_to_errno(errno);
|
||||||
|
f.error = 0;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
d0 = 0;
|
||||||
|
f.error = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
memoryWriteLong(rv, arg + 4);
|
||||||
|
memoryWriteWord(f.error, parm + 2);
|
||||||
|
return d0;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
void ftrap_ioctl(uint16_t trap)
|
||||||
|
{
|
||||||
|
// returns an mpw_errno in d0 [???]
|
||||||
|
|
||||||
|
// int ioctl(int fildes, unsigned int cmd, long *arg);
|
||||||
|
uint32_t d0;
|
||||||
|
uint32_t sp = cpuGetAReg(7);
|
||||||
|
|
||||||
|
uint32_t fd = memoryReadLong(sp + 4);
|
||||||
|
uint32_t cmd = memoryReadLong(sp + 8);
|
||||||
|
uint32_t arg = memoryReadLong(sp + 12);
|
||||||
|
|
||||||
|
fprintf(stderr, "%04x IOCtl(%08x, %08x, %08x)\n", trap, fd, cmd, arg);
|
||||||
|
|
||||||
|
switch (cmd)
|
||||||
|
{
|
||||||
|
case kFIOLSEEK:
|
||||||
|
d0 = ftrap_lseek(fd, arg);
|
||||||
|
break;
|
||||||
|
|
||||||
|
case kFIODUPFD:
|
||||||
|
d0 = ftrap_dup(fd, arg);
|
||||||
|
break;
|
||||||
|
|
||||||
|
case kFIOBUFSIZE:
|
||||||
|
d0 = ftrap_bufsize(fd, arg);
|
||||||
|
break;
|
||||||
|
|
||||||
|
case kFIOINTERACTIVE:
|
||||||
|
d0 = ftrap_interactive(fd, arg);
|
||||||
|
break;
|
||||||
|
|
||||||
|
case kFIOFNAME:
|
||||||
|
d0 = ftrap_iofname(fd, arg);
|
||||||
|
break;
|
||||||
|
|
||||||
|
case kFIOREFNUM:
|
||||||
|
case kFIOSETEOF:
|
||||||
|
fprintf(stderr, "ioctl - unsupported op %04x\n", cmd);
|
||||||
|
exit(1);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
cpuSetDReg(0, d0);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
Loading…
x
Reference in New Issue
Block a user