Hyperion Entertainment Message Boards

Code: Select all

	int32 success= FALSE;
	APTR context = IDOS->ObtainDirContextTags( EX_StringNameInput, dirname,
                                        EX_DoCurrentDir,TRUE, /* for recursive lock */
                                        EX_DataFields,(EXF_NAME|EXF_LINK|EXF_TYPE|EXF_SIZE|EXF_DATE),
                                        TAG_END);
	if (context)
	{
		struct ExamineData *dat;

		while ((dat = IDOS->ExamineDir(context)))
		{
			if ( EXD_IS_DIRECTORY(dat))
			{
				IDOS->PrintF("%s is a directory\n", dat->Name);
			}
			else
			{		
				int64 fileSize = dat->FileSize;
				if ( EXD_IS_LINK(dat) )
				{ // it's a link try to resolve it
					struct ExamineData * linkedobj=
									IDOS->ExamineObjectTags(EX_StringNameInput,dat->Link,TAG_END);
					if (linkedobj)
					{
						fileSize = linkedobj->FileSize;
						IDOS->PrintF("%s is a link to %s whose size is %lld\n", dat->Name, linkedobj->Name, fileSize);

						IDOS->FreeDosObject(DOS_EXAMINEDATA, linkedobj);
						linkedobj = NULL;
					}
				}
				else
				{
					IDOS->PrintF("%s is a file whose size is %lld\n", dat->Name, fileSize);					
				}
			}
		}

		if ( ERROR_NO_MORE_ENTRIES == IoErr())
		{
			success = TRUE; /* normal exit */
		}
		else
		{
			UI->error( _T(MSG_ERR_EXAMINING_DIR) ); /* failure - why ? */
		}

	}
	else
	{
		UI->error( _T(MSG_ERR_OBTAINING_DIR_CONTEXT) ); /* failure - why ? */
	}

	IDOS->ReleaseDirContext(context); /* NULL safe */