diff options
Diffstat (limited to 'Mac/Modules/macfsmodule.c')
-rw-r--r-- | Mac/Modules/macfsmodule.c | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/Mac/Modules/macfsmodule.c b/Mac/Modules/macfsmodule.c index bfdb15b..ae3c3b6 100644 --- a/Mac/Modules/macfsmodule.c +++ b/Mac/Modules/macfsmodule.c @@ -37,7 +37,6 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #define FileFilterUPP FileFilterProcPtr #endif - static object *ErrorObject; /* ----------------------------------------------------- */ @@ -550,12 +549,28 @@ mfs_RawAlias(self, args) return (object *)newmfsaobject((AliasHandle)h); } +static object * +mfs_GetDirectory(self, args) + object *self; /* Not used */ + object *args; +{ + FSSpec fsdir; + int ok; + + if (!newgetargs(args, "") ) + return NULL; + + ok = PyMac_GetDirectory(&fsdir); + return mkvalue("(Oi)", newmfssobject(&fsdir), ok); +} + /* List of methods defined in the module */ static struct methodlist mfs_methods[] = { {"ResolveAliasFile", mfs_ResolveAliasFile, 1}, {"StandardGetFile", mfs_StandardGetFile, 1}, {"StandardPutFile", mfs_StandardPutFile, 1}, + {"GetDirectory", mfs_GetDirectory, 1}, {"FSSpec", mfs_FSSpec, 1}, {"RawFSSpec", mfs_RawFSSpec, 1}, {"RawAlias", mfs_RawAlias, 1}, |