From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

/*------------------------------------------------------------*/
/* filename - tfilecol.cpp */
/* */
/* function(s) */
/* TFileCollection member functions */
/*------------------------------------------------------------*/
/*
* Turbo Vision - Version 2.0
*
* Copyright (c) 1994 by Borland International
* All Rights Reserved.
*
*/
#define Uses_TFileCollection
#define Uses_TSearchRec
#define Uses_ipstream
#define Uses_opstream
#include <tvision/tv.h>
#if !defined( __STRING_H )
#include <string.h>
#endif // __STRING_H
#if !defined( __DOS_H )
#include <dos.h>
#endif // __DOS_H
inline const char *getName( void *k )
{
return ((TSearchRec *)k)->name;
}
inline int attr( void *k )
{
return ((TSearchRec *)k)->attr;
}
int TFileCollection::compare(void *key1, void *key2)
{
if( strcmp( getName( key1 ), getName( key2 ) ) == 0 )
return 0;
if( strcmp( getName( key1 ), ".." ) == 0 )
return 1;
if( strcmp( getName( key2 ), ".." ) == 0 )
return -1;
if( (attr( key1 ) & FA_DIREC) != 0 && (attr( key2 ) & FA_DIREC) == 0 )
return 1;
if( (attr( key2 ) & FA_DIREC) != 0 && (attr( key1 ) & FA_DIREC) == 0 )
return -1;
return strcmp( getName( key1 ), getName( key2 ) );
}
TStreamable *TFileCollection::build()
{
return new TFileCollection( streamableInit );
}
void TFileCollection::writeItem( void *obj, opstream& os )
{
TSearchRec *item = (TSearchRec *)obj;
os << item->attr << item->time << item->size;
os.writeString( item->name );
}
void *TFileCollection::readItem( ipstream& is )
{
TSearchRec *item = new TSearchRec;
is >> item->attr >> item->time >> item->size;
is.readString( item->name, sizeof(item->name) );
return item;
}