+++ /dev/null
-/*
- File: IterateDirectory.c
-
- Contains: File Manager directory iterator routines.
-
- Version: MoreFiles
-
- Copyright: © 1995-2001 by Jim Luther and Apple Computer, Inc., all rights reserved.
-
- You may incorporate this sample code into your applications without
- restriction, though the sample code has been provided "AS IS" and the
- responsibility for its operation is 100% yours. However, what you are
- not permitted to do is to redistribute the source as "DSC Sample Code"
- after having made changes. If you're going to re-distribute the source,
- we require that you make it clear in the source that the code was
- descended from Apple Sample Code, but that you've made changes.
-
- File Ownership:
-
- DRI: Apple Macintosh Developer Technical Support
-
- Other Contact: Apple Macintosh Developer Technical Support
- <http://developer.apple.com/bugreporter/>
-
- Technology: DTS Sample Code
-
- Writers:
-
- (JL) Jim Luther
-
- Change History (most recent first):
-
- <2> 2/7/01 JL Added standard header. Updated names of includes.
- <1> 12/06/99 JL MoreFiles 1.5.
-*/
-
-#include <MacTypes.h>
-#include <MacErrors.h>
-#include <Files.h>
-
-#define __COMPILINGMOREFILES
-
-#include "MoreFilesExtras.h"
-#include "IterateDirectory.h"
-
-/*
-** Type definitions
-*/
-
-/* The IterateGlobals structure is used to minimize the amount of
-** stack space used when recursively calling IterateDirectoryLevel
-** and to hold global information that might be needed at any time.
-*/
-#if PRAGMA_STRUCT_ALIGN
-#pragma options align=mac68k
-#endif
-struct IterateGlobals
-{
- IterateFilterProcPtr iterateFilter; /* pointer to IterateFilterProc */
- CInfoPBRec cPB; /* the parameter block used for PBGetCatInfo calls */
- Str63 itemName; /* the name of the current item */
- OSErr result; /* temporary holder of results - saves 2 bytes of stack each level */
- Boolean quitFlag; /* set to true if filter wants to kill interation */
- unsigned short maxLevels; /* Maximum levels to iterate through */
- unsigned short currentLevel; /* The current level IterateLevel is on */
- void *yourDataPtr; /* A pointer to caller data the filter may need to access */
-};
-#if PRAGMA_STRUCT_ALIGN
-#pragma options align=reset
-#endif
-
-typedef struct IterateGlobals IterateGlobals;
-typedef IterateGlobals *IterateGlobalsPtr;
-
-/*****************************************************************************/
-
-/* Static Prototype */
-
-static void IterateDirectoryLevel(long dirID,
- IterateGlobals *theGlobals);
-
-/*****************************************************************************/
-
-/*
-** Functions
-*/
-
-static void IterateDirectoryLevel(long dirID,
- IterateGlobals *theGlobals)
-{
- if ( (theGlobals->maxLevels == 0) || /* if maxLevels is zero, we aren't checking levels */
- (theGlobals->currentLevel < theGlobals->maxLevels) ) /* if currentLevel < maxLevels, look at this level */
- {
- short index = 1;
-
- ++theGlobals->currentLevel; /* go to next level */
-
- do
- { /* Isn't C great... What I'd give for a "WITH theGlobals DO" about now... */
-
- /* Get next source item at the current directory level */
-
- theGlobals->cPB.dirInfo.ioFDirIndex = index;
- theGlobals->cPB.dirInfo.ioDrDirID = dirID;
- theGlobals->result = PBGetCatInfoSync((CInfoPBPtr)&theGlobals->cPB);
-
- if ( theGlobals->result == noErr )
- {
- /* Call the IterateFilterProc */
- CallIterateFilterProc(theGlobals->iterateFilter, &theGlobals->cPB, &theGlobals->quitFlag, theGlobals->yourDataPtr);
-
- /* Is it a directory? */
- if ( (theGlobals->cPB.hFileInfo.ioFlAttrib & kioFlAttribDirMask) != 0 )
- {
- /* We have a directory */
- if ( !theGlobals->quitFlag )
- {
- /* Dive again if the IterateFilterProc didn't say "quit" */
- IterateDirectoryLevel(theGlobals->cPB.dirInfo.ioDrDirID, theGlobals);
- }
- }
- }
-
- ++index; /* prepare to get next item */
- } while ( (theGlobals->result == noErr) && (!theGlobals->quitFlag) ); /* time to fall back a level? */
-
- if ( (theGlobals->result == fnfErr) || /* fnfErr is OK - it only means we hit the end of this level */
- (theGlobals->result == afpAccessDenied) ) /* afpAccessDenied is OK, too - it only means we cannot see inside a directory */
- {
- theGlobals->result = noErr;
- }
-
- --theGlobals->currentLevel; /* return to previous level as we leave */
- }
-}
-
-/*****************************************************************************/
-
-pascal OSErr IterateDirectory(short vRefNum,
- long dirID,
- ConstStr255Param name,
- unsigned short maxLevels,
- IterateFilterProcPtr iterateFilter,
- void *yourDataPtr)
-{
- IterateGlobals theGlobals;
- OSErr result;
- long theDirID;
- short theVRefNum;
- Boolean isDirectory;
-
- /* Make sure there is a IterateFilter */
- if ( iterateFilter != NULL )
- {
- /* Get the real directory ID and make sure it is a directory */
- result = GetDirectoryID(vRefNum, dirID, name, &theDirID, &isDirectory);
- if ( result == noErr )
- {
- if ( isDirectory == true )
- {
- /* Get the real vRefNum */
- result = DetermineVRefNum(name, vRefNum, &theVRefNum);
- if ( result == noErr )
- {
- /* Set up the globals we need to access from the recursive routine. */
- theGlobals.iterateFilter = iterateFilter;
- theGlobals.cPB.hFileInfo.ioNamePtr = (StringPtr)&theGlobals.itemName;
- theGlobals.cPB.hFileInfo.ioVRefNum = theVRefNum;
- theGlobals.itemName[0] = 0;
- theGlobals.result = noErr;
- theGlobals.quitFlag = false;
- theGlobals.maxLevels = maxLevels;
- theGlobals.currentLevel = 0; /* start at level 0 */
- theGlobals.yourDataPtr = yourDataPtr;
-
- /* Here we go into recursion land... */
- IterateDirectoryLevel(theDirID, &theGlobals);
-
- result = theGlobals.result; /* set the result */
- }
- }
- else
- {
- result = dirNFErr; /* a file was passed instead of a directory */
- }
- }
- }
- else
- {
- result = paramErr; /* iterateFilter was NULL */
- }
-
- return ( result );
-}
-
-/*****************************************************************************/
-
-pascal OSErr FSpIterateDirectory(const FSSpec *spec,
- unsigned short maxLevels,
- IterateFilterProcPtr iterateFilter,
- void *yourDataPtr)
-{
- return ( IterateDirectory(spec->vRefNum, spec->parID, spec->name,
- maxLevels, iterateFilter, yourDataPtr) );
-}
-
-/*****************************************************************************/
projects / wxWidgets.git / blobdiff