Hack to open resource fork on the Mac: open(filename, '*rb').
diff --git a/Objects/fileobject.c b/Objects/fileobject.c
index f87e22e..7da32a9 100644
--- a/Objects/fileobject.c
+++ b/Objects/fileobject.c
@@ -61,9 +61,17 @@
f = (fileobject *) newopenfileobject((FILE *)NULL, name, mode);
if (f == NULL)
return NULL;
- if ((f->f_fp = fopen(name, mode)) == NULL) {
+#ifdef THINK_C
+ if (*mode == '*') {
+ FILE *fopenRF();
+ f->f_fp = fopenRF(name, mode+1);
+ }
+ else
+#endif
+ f->f_fp = fopen(name, mode);
+ if (f->f_fp == NULL) {
+ err_errno(RuntimeError);
DECREF(f);
- err_errno(RuntimeError); /* XXX Should use another error */
return NULL;
}
return (object *)f;