summaryrefslogtreecommitdiffstats
path: root/Mac
diff options
context:
space:
mode:
Diffstat (limited to 'Mac')
-rw-r--r--Mac/Modules/macmodule.c371
1 files changed, 292 insertions, 79 deletions
diff --git a/Mac/Modules/macmodule.c b/Mac/Modules/macmodule.c
index f471a0f..207bfd3 100644
--- a/Mac/Modules/macmodule.c
+++ b/Mac/Modules/macmodule.c
@@ -22,67 +22,233 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
******************************************************************/
-/* Macintosh OS module implementation */
+/* Mac module implementation */
+/* Richard J. Walker April 7, 1994 Island Graphics Corp. */
+/* Thanks to Guido's unix emulation routines */
#include "allobjects.h"
-
-#include "import.h"
#include "modsupport.h"
+#include "ceval.h"
+
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+
+#include <fcntl.h>
+
+#include "macdefs.h"
+#include "dir.h"
+#include "stat.h"
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN 1024
+#endif
+
+/* Prototypes for Unix simulation on Mac */
+
+int access PROTO((char *path, int mode));
+int chdir PROTO((char *path));
+char *getbootvol PROTO((void));
+char *getwd PROTO((char *));
+int mkdir PROTO((char *path, int mode));
+DIR * opendir PROTO((char *));
+void closedir PROTO((DIR *));
+struct direct * readdir PROTO((DIR *));
+int rmdir PROTO((char *path));
+int stat PROTO((char *path, struct stat *buf));
+int sync PROTO((void));
+
-#include "::unixemu:dir.h"
-#include "::unixemu:stat.h"
-static object *MacError; /* Exception */
+static object *MacError; /* Exception mac.error */
+/* Set a MAC-specific error from errno, and return NULL */
+
+static object *
+mac_error()
+{
+ return err_errno(MacError);
+}
+
+/* MAC generic methods */
+
+static object *
+mac_1str(args, func)
+ object *args;
+ int (*func) FPROTO((const char *));
+{
+ char *path1;
+ int res;
+ if (!getargs(args, "s", &path1))
+ return NULL;
+ BGN_SAVE
+ res = (*func)(path1);
+ END_SAVE
+ if (res < 0)
+ return mac_error();
+ INCREF(None);
+ return None;
+}
+
+static object *
+mac_2str(args, func)
+ object *args;
+ int (*func) FPROTO((const char *, const char *));
+{
+ char *path1, *path2;
+ int res;
+ if (!getargs(args, "(ss)", &path1, &path2))
+ return NULL;
+ BGN_SAVE
+ res = (*func)(path1, path2);
+ END_SAVE
+ if (res < 0)
+ return mac_error();
+ INCREF(None);
+ return None;
+}
+
+static object *
+mac_strint(args, func)
+ object *args;
+ int (*func) FPROTO((const char *, int));
+{
+ char *path;
+ int i;
+ int res;
+ if (!getargs(args, "(si)", &path, &i))
+ return NULL;
+ BGN_SAVE
+ res = (*func)(path, i);
+ END_SAVE
+ if (res < 0)
+ return mac_error();
+ INCREF(None);
+ return None;
+}
+
+static object *
+mac_access(self, args)
+ object *self;
+ object *args;
+{
+ return mac_strint(args, access);
+}
static object *
mac_chdir(self, args)
object *self;
object *args;
{
- char *path;
- if (!getstrarg(args, &path))
+ return mac_1str(args, chdir);
+}
+
+static object *
+mac_close(self, args)
+ object *self;
+ object *args;
+{
+ int fd, res;
+ if (!getargs(args, "i", &fd))
return NULL;
- if (chdir(path) != 0)
- return err_errno(MacError);
+ BGN_SAVE
+ res = close(fd);
+ END_SAVE
+ if (res < 0)
+ return mac_error();
INCREF(None);
return None;
}
+static object *
+mac_dup(self, args)
+ object *self;
+ object *args;
+{
+ int fd;
+ if (!getargs(args, "i", &fd))
+ return NULL;
+ BGN_SAVE
+ fd = dup(fd);
+ END_SAVE
+ if (fd < 0)
+ return mac_error();
+ return newintobject((long)fd);
+}
+
+static object *
+mac_fdopen(self, args)
+ object *self;
+ object *args;
+{
+ extern int fclose PROTO((FILE *));
+ int fd;
+ char *mode;
+ FILE *fp;
+ if (!getargs(args, "(is)", &fd, &mode))
+ return NULL;
+ BGN_SAVE
+ fp = fdopen(fd, mode);
+ END_SAVE
+ if (fp == NULL)
+ return mac_error();
+ return newopenfileobject(fp, "(fdopen)", mode, fclose);
+}
+
+static object *
+mac_getbootvol(self, args)
+ object *self;
+ object *args;
+{
+ char *res;
+ if (!getnoarg(args))
+ return NULL;
+ BGN_SAVE
+ res = getbootvol();
+ END_SAVE
+ if (res == NULL)
+ return mac_error();
+ return newstringobject(res);
+}
static object *
mac_getcwd(self, args)
object *self;
object *args;
{
- extern char *getwd();
- char buf[1025];
+ char path[MAXPATHLEN];
+ char *res;
if (!getnoarg(args))
return NULL;
- strcpy(buf, "mac.getcwd() failed"); /* In case getwd() doesn't set a msg */
- if (getwd(buf) == NULL) {
- err_setstr(MacError, buf);
+ BGN_SAVE
+ res = getwd(path);
+ END_SAVE
+ if (res == NULL) {
+ err_setstr(MacError, path);
return NULL;
}
- return newstringobject(buf);
+ return newstringobject(res);
}
-
static object *
mac_listdir(self, args)
object *self;
object *args;
{
- object *d, *v;
char *name;
+ object *d, *v;
DIR *dirp;
struct direct *ep;
- if (!getstrarg(args, &name))
+ if (!getargs(args, "s", &name))
return NULL;
- if ((dirp = opendir(name)) == NULL)
- return err_errno(MacError);
+ BGN_SAVE
+ if ((dirp = opendir(name)) == NULL) {
+ RET_SAVE
+ return mac_error();
+ }
if ((d = newlistobject(0)) == NULL) {
closedir(dirp);
+ RET_SAVE
return NULL;
}
while ((ep = readdir(dirp)) != NULL) {
@@ -101,56 +267,95 @@ mac_listdir(self, args)
DECREF(v);
}
closedir(dirp);
+ END_SAVE
+
return d;
}
+static object *
+mac_lseek(self, args)
+ object *self;
+ object *args;
+{
+ int fd;
+ int where;
+ int how;
+ long res;
+ if (!getargs(args, "(iii)", &fd, &where, &how))
+ return NULL;
+ BGN_SAVE
+ res = lseek(fd, (long)where, how);
+ END_SAVE
+ if (res < 0)
+ return mac_error();
+ return newintobject(res);
+}
static object *
mac_mkdir(self, args)
object *self;
object *args;
{
+ return mac_strint(args, mkdir);
+}
+
+static object *
+mac_open(self, args)
+ object *self;
+ object *args;
+{
char *path;
int mode;
+ int fd;
if (!getargs(args, "(si)", &path, &mode))
return NULL;
- if (mkdir(path, mode) != 0)
- return err_errno(MacError);
- INCREF(None);
- return None;
+ BGN_SAVE
+ fd = open(path, mode);
+ END_SAVE
+ if (fd < 0)
+ return mac_error();
+ return newintobject((long)fd);
}
-
static object *
-mac_rename(self, args)
+mac_read(self, args)
object *self;
object *args;
{
- char *src, *dst;
- if (!getargs(args, "(ss)", &src, &dst))
+ int fd, size;
+ object *buffer;
+ if (!getargs(args, "(ii)", &fd, &size))
return NULL;
- if (rename(src, dst) != 0)
- return err_errno(MacError);
- INCREF(None);
- return None;
+ buffer = newsizedstringobject((char *)NULL, size);
+ if (buffer == NULL)
+ return NULL;
+ BGN_SAVE
+ size = read(fd, getstringvalue(buffer), size);
+ END_SAVE
+ if (size < 0) {
+ DECREF(buffer);
+ return mac_error();
+ }
+ resizestring(&buffer, size);
+ return buffer;
}
+static object *
+mac_rename(self, args)
+ object *self;
+ object *args;
+{
+ return mac_2str(args, rename);
+}
static object *
mac_rmdir(self, args)
object *self;
object *args;
{
- char *path;
- if (!getstrarg(args, &path))
- return NULL;
- if (rmdir(path) != 0)
- return err_errno(MacError);
- INCREF(None);
- return None;
+ return mac_1str(args, rmdir);
}
-
static object *
mac_stat(self, args)
object *self;
@@ -158,75 +363,83 @@ mac_stat(self, args)
{
struct stat st;
char *path;
- object *v;
- if (!getstrarg(args, &path))
- return NULL;
- if (stat(path, &st) != 0)
- return err_errno(MacError);
- v = newtupleobject(11);
- if (v == NULL)
- return NULL;
-#define SET(i, val) settupleitem(v, i, newintobject((long)(val)))
-#define UNSET(i, val) SET(i, 0) /* For values my Mac stat doesn't support */
- SET(0, st.st_mode);
- UNSET(1, st.st_ino);
- UNSET(2, st.st_dev);
- UNSET(3, st.st_nlink);
- UNSET(4, st.st_uid);
- UNSET(5, st.st_gid);
- SET(6, st.st_size);
- UNSET(7, st.st_atime);
- SET(8, st.st_mtime);
- UNSET(9, st.st_ctime);
- SET(10, st.st_rsize); /* Mac-specific: resource size */
- /* XXX Check that unixemu:stat.c defines this! */
-#undef SET
- if (err_occurred()) {
- DECREF(v);
+ int res;
+ if (!getargs(args, "s", &path))
return NULL;
- }
- return v;
+ BGN_SAVE
+ res = stat(path, &st);
+ END_SAVE
+ if (res != 0)
+ return mac_error();
+ return mkvalue("(llll)",
+ (long)st.st_mode,
+ (long)st.st_size,
+ (long)st.st_rsize,
+ (long)st.st_mtime);
}
-
static object *
mac_sync(self, args)
object *self;
object *args;
{
+ int res;
if (!getnoarg(args))
return NULL;
- sync();
+ BGN_SAVE
+ res = sync();
+ END_SAVE
+ if (res != 0)
+ return mac_error();
INCREF(None);
return None;
}
-
static object *
mac_unlink(self, args)
object *self;
object *args;
{
- char *path;
- if (!getstrarg(args, &path))
- return NULL;
- if (unlink(path) != 0)
- return err_errno(MacError);
- INCREF(None);
- return None;
+ return mac_1str(args, unlink);
}
+static object *
+mac_write(self, args)
+ object *self;
+ object *args;
+{
+ int fd, size;
+ char *buffer;
+ if (!getargs(args, "(is#)", &fd, &buffer, &size))
+ return NULL;
+ BGN_SAVE
+ size = write(fd, buffer, size);
+ END_SAVE
+ if (size < 0)
+ return mac_error();
+ return newintobject((long)size);
+}
static struct methodlist mac_methods[] = {
+ {"access", mac_access},
{"chdir", mac_chdir},
+ {"close", mac_close},
+ {"dup", mac_dup},
+ {"fdopen", mac_fdopen},
+ {"getbootvol", mac_getbootvol}, /* non-standard */
{"getcwd", mac_getcwd},
{"listdir", mac_listdir},
+ {"lseek", mac_lseek},
{"mkdir", mac_mkdir},
+ {"open", mac_open},
+ {"read", mac_read},
{"rename", mac_rename},
{"rmdir", mac_rmdir},
{"stat", mac_stat},
{"sync", mac_sync},
{"unlink", mac_unlink},
+ {"write", mac_write},
+
{NULL, NULL} /* Sentinel */
};
@@ -234,7 +447,7 @@ static struct methodlist mac_methods[] = {
void
initmac()
{
- object *m, *d;
+ object *m, *d, *v;
m = initmodule("mac", mac_methods);
d = getmoduledict(m);
generated by cgit v0.12 at 2024-11-25 13:37:02 (GMT)