Added FindFolder interface
diff --git a/Mac/Modules/macfsmodule.c b/Mac/Modules/macfsmodule.c
index 0d75d44..d85eb71 100644
--- a/Mac/Modules/macfsmodule.c
+++ b/Mac/Modules/macfsmodule.c
@@ -28,6 +28,7 @@
#include <Memory.h>
#include <Files.h>
+#include <Folders.h>
#include <StandardFile.h>
#include <Aliases.h>
@@ -567,6 +568,28 @@
return mkvalue("(Oi)", newmfssobject(&fsdir), ok);
}
+static object *
+mfs_FindFolder(self, args)
+ object *self; /* Not used */
+ object *args;
+{
+ OSErr err;
+ short where;
+ OSType which;
+ int create;
+ short refnum;
+ long dirid;
+
+ if (!newgetargs(args, "hO&i", &where, PyMac_GetOSType, &which, &create) )
+ return NULL;
+ err = FindFolder(where, which, (Boolean)create, &refnum, &dirid);
+ if ( err ) {
+ PyErr_Mac(ErrorObject, err);
+ return NULL;
+ }
+ return mkvalue("(ii)", refnum, dirid);
+}
+
/* List of methods defined in the module */
static struct methodlist mfs_methods[] = {
@@ -577,6 +600,7 @@
{"FSSpec", mfs_FSSpec, 1},
{"RawFSSpec", mfs_RawFSSpec, 1},
{"RawAlias", mfs_RawAlias, 1},
+ {"FindFolder", mfs_FindFolder, 1},
{NULL, NULL} /* sentinel */
};