mpw/toolbox/os_highlevel.cpp

491 lines
11 KiB
C++
Raw Normal View History

2013-07-30 05:06:19 +00:00
/*
* Copyright (c) 2013, Kelvin W Sherlock
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions are met:
2013-07-30 05:06:19 +00:00
*
* 1. Redistributions of source code must retain the above copyright notice, this
* list of conditions and the following disclaimer.
2013-07-30 05:06:19 +00:00
* 2. Redistributions in binary form must reproduce the above copyright notice,
* this list of conditions and the following disclaimer in the documentation
* and/or other materials provided with the distribution.
2013-07-30 05:06:19 +00:00
*
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
* DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
* ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
* ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*
*/
2013-02-28 23:05:39 +00:00
#include <cerrno>
#include <cctype>
#include <ctime>
#include <algorithm>
#include <chrono>
#include <deque>
#include <string>
2015-02-17 00:23:12 +00:00
#include <cstring>
2013-02-28 23:05:39 +00:00
#include <sys/xattr.h>
#include <sys/stat.h>
#include <sys/paths.h>
2014-12-21 13:36:15 +00:00
2013-02-28 23:05:39 +00:00
#include <stdlib.h>
#include <unistd.h>
#include <fcntl.h>
2015-02-17 00:23:12 +00:00
#include <limits.h>
2013-02-28 23:05:39 +00:00
#include <strings.h>
#include <cpu/defs.h>
#include <cpu/CpuModule.h>
#include <cpu/fmem.h>
2013-05-18 23:36:41 +00:00
#include <macos/errors.h>
2013-02-28 23:05:39 +00:00
#include "os.h"
2014-12-20 17:20:34 +00:00
#include "rm.h"
2013-02-28 23:05:39 +00:00
#include "os_internal.h"
#include "toolbox.h"
#include "stackframe.h"
#include "fs_spec.h"
2013-05-18 23:36:41 +00:00
2013-02-28 23:05:39 +00:00
using ToolBox::Log;
2014-12-21 00:32:54 +00:00
using MacOS::macos_error_from_errno;
2013-02-28 23:05:39 +00:00
2014-12-22 14:53:38 +00:00
extern "C" {
char * fs_spec_realpath(const char * __restrict path, char * __restrict resolved);
}
2013-02-28 23:05:39 +00:00
namespace OS {
/*
struct FSSpec {
short vRefNum;
long parID;
StrFileName name; // a Str63 on MacOS
};
*/
2013-02-28 23:05:39 +00:00
2013-05-18 23:36:41 +00:00
// MacOS: -> { -1, 1, "MacOS" }
// MacOS:dumper -> {-1, 2 "dumper"}
2014-12-21 13:36:15 +00:00
std::string realpath(const std::string &path)
{
char buffer[PATH_MAX + 1];
// FSSpecs are valid for non-existant files
2014-12-21 13:36:15 +00:00
// but not non-existant directories.
// realpath does not behave in such a manner.
// expand the path. Also handles relative paths.
2014-12-22 14:53:38 +00:00
char *cp = ::fs_spec_realpath(path.c_str(), buffer);
if (!cp) return "";
2014-12-21 13:36:15 +00:00
return std::string(cp);
}
std::string ReadFSSpec(uint32_t spec) {
if (!spec) return "";
int parentID = memoryReadLong(spec + 2);
std::string sname = ToolBox::ReadPString(spec + 6, false);
return OS::FSSpecManager::ExpandPath(sname, parentID);
}
2013-02-28 23:05:39 +00:00
uint16_t FSMakeFSSpec(void)
{
// FSMakeFSSpec(vRefNum: Integer; dirID: LongInt; fileName: Str255; VAR spec: FSSpec): OSErr;
// todo -- if the file does not exist (but the path is otherwise valid), create the spec but return fnfErr.
2013-02-28 23:58:37 +00:00
/*
* See Chapter 2, File Manager / Using the File Manager, 2-35
*
*
*/
2013-02-28 23:05:39 +00:00
uint16_t vRefNum;
uint32_t dirID;
uint32_t fileName;
uint32_t spec;
StackFrame<14>(vRefNum, dirID, fileName, spec);
std::string sname = ToolBox::ReadPString(fileName, true);
Log(" FSMakeFSSpec(%04x, %08x, %s, %08x)\n",
2013-02-28 23:05:39 +00:00
vRefNum, dirID, sname.c_str(), spec);
2013-05-18 23:36:41 +00:00
if (vRefNum == 0 && dirID > 0 && sname.length())
{
// SC uses dirID + relative path.
std::string root = FSSpecManager::PathForID(dirID);
2013-05-18 23:36:41 +00:00
if (root.empty())
{
std::memset(memoryPointer(spec), 0, 8);
return MacOS::dirNFErr;
}
sname = root + sname;
dirID = 0;
}
2013-02-28 23:05:39 +00:00
bool absolute = sname.length() ? sname[0] == '/' : false;
if (absolute || (vRefNum == 0 && dirID == 0))
{
2014-12-21 13:36:15 +00:00
std::string leaf;
std::string path;
int parentID;
2013-05-18 23:36:41 +00:00
2014-12-21 13:36:15 +00:00
path = realpath(sname);
if (path.empty())
2013-02-28 23:05:39 +00:00
{
2013-05-18 23:36:41 +00:00
std::memset(memoryPointer(spec), 0, 8);
return MacOS::mFulErr;
2013-02-28 23:05:39 +00:00
}
int pos = path.find_last_of('/');
if (pos == path.npos)
{
2014-12-21 13:36:15 +00:00
// file is relative to cwd.
leaf = std::move(path);
parentID = 0;
2013-02-28 23:05:39 +00:00
}
else
{
leaf = path.substr(pos + 1);
path = path.substr(0, pos + 1); // include the /
2014-12-21 13:36:15 +00:00
parentID = FSSpecManager::IDForPath(path, true);
2013-02-28 23:05:39 +00:00
}
memoryWriteWord(vRefNum, spec + 0);
memoryWriteLong(parentID, spec + 2);
// write the filename...
ToolBox::WritePString(spec + 6, leaf);
return 0;
}
2013-05-18 23:36:41 +00:00
2013-02-28 23:05:39 +00:00
else
{
fprintf(stderr, "FSMakeFSSpec(%04x, %08x) not yet supported\n", vRefNum, dirID);
exit(1);
}
return 0;
}
2015-01-05 18:12:06 +00:00
uint16_t FSpOpenDF()
{
// FUNCTION FSpOpenDF (spec: FSSpec; permission: SignedByte; VAR refNum: Integer): OSErr;
uint32_t spec;
uint8_t permission;
uint32_t refNum;
StackFrame<10>(spec, permission, refNum);
int parentID = memoryReadLong(spec + 2);
std::string sname = ToolBox::ReadPString(spec + 6, false);
Log(" FSpOpenDF(%s, %02x, %04x)\n", sname.c_str(), permission, refNum);
sname = OS::FSSpecManager::ExpandPath(sname, parentID);
if (sname.empty())
{
return MacOS::dirNFErr;
}
int fd = Internal::FDEntry::open(sname, permission, 0);
if (fd < 0) return fd;
memoryWriteWord(fd, refNum);
2015-01-05 18:12:06 +00:00
return 0;
}
2013-02-28 23:58:37 +00:00
uint16_t FSpGetFInfo()
{
// FSpGetFInfo (spec: FSSpec; VAR fndrInfo: FInfo): OSErr;
uint32_t spec;
uint32_t finderInfo;
uint16_t d0;
2013-02-28 23:58:37 +00:00
StackFrame<8>(spec, finderInfo);
int parentID = memoryReadLong(spec + 2);
std::string leaf = ToolBox::ReadPString(spec + 6, false);
std::string path = FSSpecManager::PathForID(parentID);
2013-02-28 23:58:37 +00:00
path += leaf;
Log(" FSpGetFInfo(%s, %08x)\n", path.c_str(), finderInfo);
d0 = Internal::GetFinderInfo(path, memoryPointer(finderInfo), false);
return d0;
2013-02-28 23:58:37 +00:00
}
uint16_t FSpSetFInfo()
{
// FSpSetFInfo (spec: FSSpec; VAR fndrInfo: FInfo): OSErr;
uint32_t spec;
uint32_t finderInfo;
uint16_t d0 = 0;
2013-02-28 23:58:37 +00:00
StackFrame<8>(spec, finderInfo);
int parentID = memoryReadLong(spec + 2);
std::string leaf = ToolBox::ReadPString(spec + 6, false);
std::string path = FSSpecManager::PathForID(parentID);
2013-02-28 23:58:37 +00:00
path += leaf;
Log(" FSpSetFInfo(%s, %08x)\n", path.c_str(), finderInfo);
2013-04-11 02:27:49 +00:00
d0 = Internal::SetFinderInfo(path, memoryPointer(finderInfo), false);
2013-02-28 23:58:37 +00:00
2013-04-11 02:27:49 +00:00
return d0;
2013-02-28 23:58:37 +00:00
}
2014-12-23 16:29:32 +00:00
uint16_t FSpCreate(void)
{
// FUNCTION FSpCreate (spec: FSSpec; creator: OSType;
// fileType: OSType; scriptTag: ScriptCode):
2014-12-23 16:29:32 +00:00
// OSErr;
uint16_t d0 = 0;
uint32_t sp;
uint32_t spec;
uint32_t creator;
uint32_t fileType;
uint16_t scriptTag;
int fd;
sp = StackFrame<14>(spec, creator, fileType, scriptTag);
int parentID = memoryReadLong(spec + 2);
std::string sname = ToolBox::ReadPString(spec + 6, false);
Log(" FSpCreate(%s, %08x ('%s'), %08x ('%s'), %02x)\n",
sname.c_str(),
2014-12-23 16:29:32 +00:00
creator, ToolBox::TypeToString(creator).c_str(),
fileType, ToolBox::TypeToString(fileType).c_str(),
scriptTag);
sname = OS::FSSpecManager::ExpandPath(sname, parentID);
if (sname.empty())
{
return MacOS::dirNFErr;
}
fd = ::open(sname.c_str(), O_WRONLY | O_CREAT | O_EXCL, 0666);
if (fd < 0)
{
return macos_error_from_errno();
}
else
{
::close(fd);
}
2014-12-26 21:31:03 +00:00
d0 = OS::Internal::SetFinderInfo(sname, fileType, creator);
2014-12-23 16:29:32 +00:00
return d0;
}
2013-05-18 00:14:30 +00:00
2014-12-20 17:20:34 +00:00
uint16_t FSpDelete(void)
{
// FUNCTION FSpDelete (spec: FSSpec): OSErr;
/*
* The FSpDelete function removes a file or directory. If the
* specified target is a file, both forks of the file are
* deleted. The file ID reference, if any, is removed.
*
* A file must be closed before you can delete it. Similarly, a
* directory must be empty before you can delete it. If you
* attempt to delete an open file or a nonempty directory,
* FSpDelete returns the result code fBsyErr. FSpDelete also
* returns the result code fBsyErr if the directory has an open
* working directory associated with it.
*/
uint32_t spec;
struct stat st;
StackFrame<4>(spec);
std::string sname = ReadFSSpec(spec);
Log(" FSpDelete(%s)\n", sname.c_str());
if (::lstat(sname.c_str(), &st) < 0)
return macos_error_from_errno();
int ok = 0;
if (S_ISDIR(st.st_mode))
ok = ::rmdir(sname.c_str());
else
ok = ::unlink(sname.c_str());
if (ok < 0)
return macos_error_from_errno();
return 0;
}
2013-05-18 00:14:30 +00:00
uint16_t ResolveAliasFile()
{
// FUNCTION ResolveAliasFile (VAR theSpec: FSSpec;
// resolveAliasChains: Boolean;
// VAR targetIsFolder: Boolean;
// VAR wasAliased: Boolean): OSErr;
2013-05-18 00:14:30 +00:00
uint32_t spec;
uint16_t resolveAliasChains;
uint32_t targetIsFolder;
uint32_t wasAliased;
StackFrame<14>(spec, resolveAliasChains, targetIsFolder, wasAliased);
int parentID = memoryReadLong(spec + 2);
std::string leaf = ToolBox::ReadPString(spec + 6, false);
std::string path = FSSpecManager::PathForID(parentID);
2013-05-18 00:14:30 +00:00
path += leaf;
2014-12-20 18:03:29 +00:00
Log(" ResolveAliasFile(%s)\n", path.c_str());
2013-05-18 00:14:30 +00:00
struct stat st;
int rv;
rv = ::stat(path.c_str(), &st);
if (rv < 0)
{
if (wasAliased) memoryWriteWord(0, wasAliased);
if (targetIsFolder) memoryWriteWord(0, targetIsFolder);
return macos_error_from_errno();
}
2013-05-18 00:14:30 +00:00
if (targetIsFolder)
memoryWriteWord(S_ISDIR(st.st_mode) ? 1 : 0, targetIsFolder);
2013-05-18 00:14:30 +00:00
// don't bother pretending a soft link is an alias.
if (wasAliased) memoryWriteWord(0, wasAliased);
return 0;
2013-05-18 00:14:30 +00:00
}
2013-02-28 23:05:39 +00:00
uint16_t HighLevelHFSDispatch(uint16_t trap)
{
2014-12-20 17:20:34 +00:00
/*
* $0001 FSMakeFSSpec
* $0002 FSpOpenDF
* $0003 FSpOpenRF
* $0004 FSpCreate
* $0005 FSpDirCreate
* $0006 FSpDelete
* $0007 FSpGetFInfo
* $0008 FSpSetFInfo
* $0009 FSpSetFLock
* $000A FSpRstFLock
* $000B FSpRename
* $000C FSpCatMove
* $000D FSpOpenResFile
* $000E FSpCreateResFile
* $000F FSpExchangeFiles
*/
2014-12-20 17:20:34 +00:00
2013-02-28 23:05:39 +00:00
uint16_t selector;
uint16_t d0;
2013-02-28 23:05:39 +00:00
selector = cpuGetDReg(0) & 0xffff;
Log("%04x HighLevelHFSDispatch(%04x)\n", trap, selector);
switch (selector)
{
case 0x0001:
d0 = FSMakeFSSpec();
2013-02-28 23:05:39 +00:00
break;
2015-01-05 18:12:06 +00:00
case 0x0002:
d0 = FSpOpenDF();
break;
2013-02-28 23:05:39 +00:00
2014-12-23 16:29:32 +00:00
case 0x0004:
d0 = FSpCreate();
break;
case 0x0006:
d0 = FSpDelete();
break;
2013-02-28 23:58:37 +00:00
case 0x0007:
d0 = FSpGetFInfo();
2013-02-28 23:58:37 +00:00
break;
case 0x0008:
d0 = FSpSetFInfo();
2013-02-28 23:58:37 +00:00
break;
// RM calls handle their return value.
2014-12-20 17:20:34 +00:00
case 0x000d:
d0 = RM::FSpOpenResFile();
return d0;
break;
2014-12-20 17:20:34 +00:00
2014-12-22 03:30:04 +00:00
case 0x000e:
d0 = RM::FSpCreateResFile();
return d0;
break;
2014-12-22 03:30:04 +00:00
2013-02-28 23:05:39 +00:00
default:
2014-12-21 13:36:15 +00:00
fprintf(stderr, "HighLevelHFSDispatch selector %04x not yet supported\n", selector);
2013-02-28 23:05:39 +00:00
exit(1);
}
ToolReturn<2>(-1, d0);
return d0;
2013-02-28 23:05:39 +00:00
}
2013-05-18 00:14:30 +00:00
}