Initial revision

2 files changed, 40 insertions, 0 deletions

diff --git a/Mac/Python/macgetmtime.c b/Mac/Python/macgetmtime.c
new file mode 100644
index 0000000..c581009
--- /dev/null
+++ b/Mac/Python/macgetmtime.c
@@ -0,0 +1,13 @@
+#include "::unixemu:stat.h"
+
+/* Interfaced used by import.c */
+
+long
+getmtime(path)
+	char *path;
+{
+	struct stat st;
+	if (stat(path, &st) != 0)
+		return -1L;
+	return st.st_mtime;
+}
diff --git a/Mac/Python/macguesstabsize.c b/Mac/Python/macguesstabsize.c
new file mode 100644
index 0000000..7d1abb7
--- /dev/null
+++ b/Mac/Python/macguesstabsize.c
@@ -0,0 +1,27 @@
+#include <MacHeaders>
+#include <string.h>
+
+/* Interface used by tokenizer.c */
+
+guesstabsize(path)
+	char *path;
+{
+	char s[256];
+	int refnum;
+	Handle h;
+	int tabsize = 0;
+	s[0] = strlen(path);
+	strncpy(s+1, path, s[0]);
+	refnum = OpenResFile(s);
+/* printf("%s --> refnum=%d\n", path, refnum); */
+	if (refnum == -1)
+		return 0;
+	UseResFile(refnum);
+	h = GetIndResource('ETAB', 1);
+	if (h != 0) {
+		tabsize = (*(short**)h)[1];
+/* printf("tabsize=%d\n", tabsize); */
+	}
+	CloseResFile(refnum);
+	return tabsize;
+}