Mwerks version of fopenRF.
diff --git a/Mac/mwerks/mwfopenrf.c b/Mac/mwerks/mwfopenrf.c
new file mode 100644
index 0000000..fa2a39b
--- /dev/null
+++ b/Mac/mwerks/mwfopenrf.c
@@ -0,0 +1,47 @@
+/*
+** mwfopenrf - Open resource fork as stdio file for CodeWarrior.
+**
+** Jack Jansen, CWI, August 1995.
+*/
+
+#ifdef __MWERKS__
+#include <stdio.h>
+#include <unix.h>
+#include <errno.h>
+#include "errno_unix.h"
+
+FILE *
+fopenRF(name, mode)
+ char *name;
+ char *mode;
+{
+ int fd;
+ FILE *fp;
+ int modebits = -1;
+ int extramodebits;
+ char *modep;
+
+ for(modep=mode; *modep; modep++) {
+ switch(*modep) {
+ case 'r': modebits = O_RDONLY; break;
+ case 'w': modebits = O_WRONLY; extramodebits |= O_CREAT|O_TRUNC; break;
+ case 'a': modebits = O_RDONLY;
+ extramodebits |= O_CREAT|O_APPEND;
+ extramodebits &= ~O_TRUNC;
+ break;
+ case '+': modebits = O_RDWR;
+ extramodebits &= ~O_TRUNC;
+ break;
+ case 'b': extramodebits |= O_BINARY;
+ break;
+ default:
+ errno = EINVAL;
+ return NULL;
+ }
+ }
+ fd = open(name, modebits|extramodebits|O_RSRC);
+ if ( fd < 0 )
+ return NULL;
+ return fdopen(fd, mode);
+}
+#endif /* __MWERKS__ */