mirror of
https://github.com/ksherlock/mpw.git
synced 2024-11-28 23:49:26 +00:00
460 lines
8.4 KiB
C++
460 lines
8.4 KiB
C++
#include "os.h"
|
|
#include "toolbox.h"
|
|
#include "mpw_time.h"
|
|
|
|
#include <cpu/defs.h>
|
|
#include <cpu/CpuModule.h>
|
|
#include <cpu/fmem.h>
|
|
|
|
#include <string>
|
|
#include <cerrno>
|
|
#include <cctype>
|
|
|
|
#include <sys/xattr.h>
|
|
#include <sys/stat.h>
|
|
#include <sys/paths.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
#include <fcntl.h>
|
|
|
|
#include <strings.h>
|
|
|
|
namespace {
|
|
|
|
using namespace OS;
|
|
|
|
// should make this public since it's needed by mpw/*
|
|
uint16_t errno_to_oserr(int xerrno)
|
|
{
|
|
switch (xerrno)
|
|
{
|
|
case 0: return 0;
|
|
case EBADF: return rfNumErr;
|
|
case EIO: return ioErr;
|
|
case EACCES: return permErr;
|
|
case ENOENT: return fnfErr;
|
|
case ENOTDIR: return dirNFErr;
|
|
case EISDIR: return notAFileErr;
|
|
case ENOTSUP: return extFSErr;
|
|
case EROFS: return wPrErr;
|
|
|
|
case EEXIST: return dupFNErr;
|
|
|
|
case EBUSY: return fBsyErr;
|
|
|
|
case EDQUOT: return dskFulErr;
|
|
case ENOSPC: return dskFulErr;
|
|
|
|
|
|
default:
|
|
return ioErr;
|
|
}
|
|
|
|
}
|
|
|
|
|
|
std::string extension(const std::string &s)
|
|
{
|
|
std::string tmp;
|
|
int pos;
|
|
|
|
pos = s.find_last_of("./:");
|
|
|
|
if (pos == s.npos) return tmp;
|
|
if (s[pos++] != '.') return tmp;
|
|
if (pos >= s.length()) return tmp;
|
|
|
|
tmp = s.substr(pos);
|
|
|
|
std::transform(tmp.begin(), tmp.end(), tmp.begin(),
|
|
[](char c) { return tolower(c); }
|
|
);
|
|
|
|
return tmp;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
namespace OS
|
|
{
|
|
|
|
|
|
// known text file extensions
|
|
bool IsTextFile(const std::string &s)
|
|
{
|
|
std::string ext = extension(s);
|
|
if (ext.empty()) return false;
|
|
|
|
char c = ext[0];
|
|
switch(c)
|
|
{
|
|
case 'a':
|
|
if (ext == "aii")
|
|
return true;
|
|
break;
|
|
|
|
case 'c':
|
|
if (ext == "c")
|
|
return true;
|
|
break;
|
|
|
|
case 'p':
|
|
if (ext == "pii")
|
|
return true;
|
|
break;
|
|
|
|
case 'r':
|
|
if (ext == "rii")
|
|
return true;
|
|
break;
|
|
|
|
}
|
|
|
|
return false;
|
|
}
|
|
|
|
// known binary file extensions
|
|
bool IsBinaryFile(const std::string &s)
|
|
{
|
|
std::string ext = extension(s);
|
|
if (ext.empty()) return false;
|
|
|
|
char c = ext[0];
|
|
switch(c)
|
|
{
|
|
case 'o':
|
|
if (ext == "obj")
|
|
return true;
|
|
break;
|
|
}
|
|
|
|
return false;
|
|
}
|
|
|
|
|
|
|
|
uint16_t Create(uint16_t trap)
|
|
{
|
|
uint32_t d0;
|
|
|
|
uint32_t parm = cpuGetAReg(0);
|
|
|
|
fprintf(stderr, "%04x Create(%08x)\n", trap, parm);
|
|
|
|
uint32_t ioCompletion = memoryReadLong(parm + 12);
|
|
uint32_t namePtr = memoryReadLong(parm + 18);
|
|
|
|
uint16_t ioVRefNum = memoryReadWord(parm + 22);
|
|
uint8_t ioFVersNum = memoryReadByte(parm + 26);
|
|
|
|
std::string sname = ToolBox::ReadPString(namePtr);
|
|
|
|
if (!sname.length())
|
|
{
|
|
memoryWriteWord(bdNamErr, parm + 16);
|
|
return bdNamErr;
|
|
}
|
|
fprintf(stderr, " Create(%s)\n", sname.c_str());
|
|
|
|
int fd;
|
|
fd = ::open(sname.c_str(), O_WRONLY | O_CREAT | O_EXCL, 0666);
|
|
|
|
if (fd < 0)
|
|
{
|
|
d0 = errno_to_oserr(errno);
|
|
}
|
|
else
|
|
{
|
|
::close(fd);
|
|
d0 = 0;
|
|
}
|
|
|
|
memoryWriteWord(d0, parm + 16);
|
|
return d0;
|
|
}
|
|
|
|
uint16_t Delete(uint16_t trap)
|
|
{
|
|
uint32_t d0;
|
|
|
|
uint32_t parm = cpuGetAReg(0);
|
|
|
|
fprintf(stderr, "%04x Delete(%08x)\n", trap, parm);
|
|
|
|
uint32_t ioCompletion = memoryReadLong(parm + 12);
|
|
uint32_t namePtr = memoryReadLong(parm + 18);
|
|
|
|
uint16_t ioVRefNum = memoryReadWord(parm + 22);
|
|
uint8_t ioFVersNum = memoryReadByte(parm + 26);
|
|
|
|
std::string sname = ToolBox::ReadPString(namePtr);
|
|
|
|
if (!sname.length())
|
|
{
|
|
memoryWriteWord(bdNamErr, parm + 16);
|
|
return bdNamErr;
|
|
}
|
|
fprintf(stderr, " Delete(%s)\n", sname.c_str());
|
|
|
|
int ok = ::unlink(sname.c_str());
|
|
if (ok < 0)
|
|
d0 = errno_to_oserr(errno);
|
|
else
|
|
d0 = 0;
|
|
|
|
memoryWriteWord(d0, parm + 16);
|
|
return d0;
|
|
}
|
|
|
|
uint16_t GetEOF(uint16_t trap)
|
|
{
|
|
uint32_t d0;
|
|
size_t size;
|
|
|
|
uint32_t parm = cpuGetAReg(0);
|
|
|
|
fprintf(stderr, "%04x GetEOF(%08x)\n", trap, parm);
|
|
|
|
uint32_t ioCompletion = memoryReadLong(parm + 12);
|
|
uint16_t ioRefNum = memoryReadWord(parm + 24);
|
|
|
|
struct stat st;
|
|
|
|
if (::fstat(ioRefNum, &st) < 0)
|
|
{
|
|
d0 = errno_to_oserr(errno);
|
|
size = 0;
|
|
}
|
|
else
|
|
{
|
|
d0 = 0;
|
|
size = st.st_size;
|
|
}
|
|
|
|
memoryWriteWord(d0, parm + 16);
|
|
memoryWriteLong(size, parm + 28);
|
|
|
|
return d0;
|
|
}
|
|
|
|
|
|
|
|
// return the name of the default volume.
|
|
// this does not translate well.
|
|
uint16_t GetVol(uint16_t trap)
|
|
{
|
|
uint32_t parm = cpuGetAReg(0);
|
|
|
|
fprintf(stderr, "%04x GetVol(%08x)\n", trap, parm);
|
|
|
|
|
|
uint32_t ioCompletion = memoryReadLong(parm + 12);
|
|
uint32_t namePtr = memoryReadLong(parm + 18);
|
|
|
|
// ioResult
|
|
memoryWriteWord(0, parm + 16);
|
|
// ioVRefNum
|
|
memoryWriteWord(0, parm + 22);
|
|
|
|
std::string tmp = "MacOS";
|
|
ToolBox::WritePString(namePtr, tmp);
|
|
|
|
return 0;
|
|
}
|
|
|
|
uint16_t GetFileInfo(uint16_t trap)
|
|
{
|
|
|
|
uint16_t d0;
|
|
|
|
uint32_t parm = cpuGetAReg(0);
|
|
|
|
fprintf(stderr, "%04x GetFileInfo(%08x)\n", trap, parm);
|
|
|
|
uint32_t ioCompletion = memoryReadLong(parm + 12);
|
|
uint32_t ioNamePtr = memoryReadLong(parm + 18);
|
|
uint16_t ioVRefNum = memoryReadWord(parm + 22);
|
|
uint8_t ioFVersNum = memoryReadByte(parm + 26);
|
|
int16_t ioFDirIndex = memoryReadWord(parm + 28);
|
|
|
|
if (ioFDirIndex <= 0)
|
|
{
|
|
// based name
|
|
std::string sname;
|
|
|
|
if (!ioNamePtr)
|
|
{
|
|
memoryWriteWord(bdNamErr, parm + 16);
|
|
return bdNamErr;
|
|
}
|
|
|
|
sname = ToolBox::ReadPString(ioNamePtr);
|
|
|
|
fprintf(stderr, " GetFileInfo(%s)\n", sname.c_str());
|
|
|
|
// todo -- how are absolute, relative, etc paths handled...
|
|
|
|
|
|
struct stat st;
|
|
|
|
if (::stat(sname.c_str(), &st) < 0)
|
|
{
|
|
d0 = errno_to_oserr(errno);
|
|
|
|
memoryWriteWord(d0, parm + 16);
|
|
return d0;
|
|
}
|
|
|
|
// finder info
|
|
{
|
|
uint8_t buffer[32];
|
|
std::memset(buffer, 0, sizeof(buffer));
|
|
int rv;
|
|
int xerrno;
|
|
|
|
rv = ::getxattr(sname.c_str(), XATTR_FINDERINFO_NAME, buffer, 32, 0, 0);
|
|
xerrno = errno;
|
|
|
|
// override for source files.
|
|
if (IsTextFile(sname))
|
|
{
|
|
std::memcpy(buffer, "TEXTMPS ", 8);
|
|
}
|
|
|
|
// only 16 bytes copied.
|
|
std::memcpy(memoryPointer(parm + 32), buffer, 16);
|
|
|
|
}
|
|
|
|
|
|
// file reference number
|
|
memoryWriteWord(0, parm + 24);
|
|
// file attributes
|
|
memoryWriteByte(0, parm + 30);
|
|
// version (unused)
|
|
memoryWriteByte(0, parm + 31);
|
|
|
|
// file id
|
|
memoryWriteLong(0, parm + 48);
|
|
|
|
|
|
// file size
|
|
memoryWriteWord(0, parm + 52);
|
|
memoryWriteLong(st.st_size, parm + 54);
|
|
memoryWriteLong(st.st_size, parm + 58);
|
|
|
|
// create date.
|
|
memoryWriteLong(Time::UnixToMac(st.st_birthtime), parm + 72);
|
|
memoryWriteLong(Time::UnixToMac(st.st_mtime), parm + 76);
|
|
|
|
// res fork...
|
|
// do this last since it adjusts the name and the stat.
|
|
|
|
sname.append(_PATH_RSRCFORKSPEC);
|
|
if (::stat(sname.c_str(), &st) >= 0)
|
|
{
|
|
memoryWriteWord(0, parm + 62);
|
|
memoryWriteLong(st.st_size, parm + 64);
|
|
memoryWriteLong(st.st_size, parm + 68);
|
|
}
|
|
else
|
|
{
|
|
memoryWriteWord(0, parm + 62);
|
|
memoryWriteLong(0, parm + 64);
|
|
memoryWriteLong(0, parm + 68);
|
|
}
|
|
|
|
// no error.
|
|
memoryWriteWord(0, parm + 16);
|
|
|
|
|
|
}
|
|
else
|
|
{
|
|
fprintf(stderr, "GetFileInfo -- ioFDirIndex not yet supported\n");
|
|
exit(1);
|
|
}
|
|
|
|
// if iocompletion handler && asyn call....
|
|
|
|
return 0;
|
|
}
|
|
|
|
uint16_t SetFileInfo(uint16_t trap)
|
|
{
|
|
std::string sname;
|
|
uint16_t d0;
|
|
|
|
|
|
uint32_t parm = cpuGetAReg(0);
|
|
|
|
fprintf(stderr, "%04x SetFileInfo(%08x)\n", trap, parm);
|
|
|
|
uint32_t ioCompletion = memoryReadLong(parm + 12);
|
|
uint32_t ioNamePtr = memoryReadLong(parm + 18);
|
|
uint16_t ioVRefNum = memoryReadWord(parm + 22);
|
|
uint8_t ioFVersNum = memoryReadByte(parm + 26);
|
|
//int16_t ioFDirIndex = memoryReadWord(parm + 28);
|
|
|
|
// + 32 = finder data - 16 bytes.
|
|
|
|
uint32_t ioFlCrDat = memoryReadLong(parm + 72);
|
|
uint32_t ioFlMdDat = memoryReadLong(parm + 76);
|
|
|
|
// currently, only sets finder info.
|
|
|
|
if (!ioNamePtr)
|
|
{
|
|
memoryWriteWord(bdNamErr, parm + 16);
|
|
return bdNamErr;
|
|
}
|
|
|
|
sname = ToolBox::ReadPString(ioNamePtr);
|
|
fprintf(stderr, " SetFileInfo(%s)\n", sname.c_str());
|
|
|
|
// check if the file actually exists
|
|
{
|
|
struct stat st;
|
|
int ok;
|
|
|
|
ok = ::stat(sname.c_str(), &st);
|
|
if (ok < 0)
|
|
{
|
|
d0 = errno_to_oserr(errno);
|
|
memoryWriteWord(d0, parm + 16);
|
|
return d0;
|
|
}
|
|
|
|
|
|
}
|
|
|
|
// finder info is actually 32 bytes, so read and update the first 16.
|
|
{
|
|
uint8_t buffer[32];
|
|
int ok;
|
|
|
|
std::memset(buffer, 0, sizeof(buffer));
|
|
|
|
ok = ::getxattr(sname.c_str(), XATTR_FINDERINFO_NAME, buffer, 32, 0, 0);
|
|
|
|
// only 16 bytes copied.
|
|
std::memcpy(buffer, memoryPointer(parm + 32), 16);
|
|
|
|
ok = ::setxattr(sname.c_str(), XATTR_FINDERINFO_NAME, buffer, 32, 0, 0);
|
|
|
|
if (ok < 0)
|
|
{
|
|
d0 = errno_to_oserr(errno);
|
|
memoryWriteWord(d0, parm + 16);
|
|
return d0;
|
|
}
|
|
}
|
|
|
|
d0 = 0;
|
|
memoryWriteWord(d0, parm + 16);
|
|
return d0;
|
|
}
|
|
|
|
|
|
} |