/* FindInRepo
* find accession in a repository
*/
static
rc_t SRAPathFindInRepo ( const NCBISRAPath *self, NCBIRepository *repo, const char *accession,
char *path, size_t path_max, size_t *rep_len, int vol_type )
{
SRAPathString *srv;
PATH_DEBUG (("SRAPathFindInRepo(%s)\n", AlgToStr(repo->type)));
/* look for accession on a rep-server */
for ( srv = ( SRAPathString* ) DLListHead ( & repo -> repsrv ); srv != NULL; srv = ( SRAPathString* ) DLNodeNext ( & srv -> n ) )
{
/* try with this server */
rc_t rc = SRAPathFindOnServer ( self, repo, srv, accession, path, path_max, vol_type );
if ( rc == 0 )
{
/* make sure server is at head of list */
if ( DLNodePrev ( & srv -> n ) != NULL )
{
DLListUnlink ( & repo -> repsrv, & srv -> n );
DLListPushHead ( & repo -> repsrv, & srv -> n );
}
if ( rep_len != NULL )
* rep_len = strlen ( srv -> path );
return 0;
}
if ( GetRCState ( rc ) != rcNotFound )
return rc;
}
return RC ( rcSRA, rcMgr, rcSelecting, rcPath, rcNotFound );
}
static
rc_t CC list_action (const KDirectory * dir, const char * path, void * _adata)
{
rc_t rc;
list_adata * data;
list_item * item;
KPathType type;
uint32_t access;
uint64_t size;
uint64_t loc;
KTime_t mtime;
size_t pathlen;
size_t linklen;
char link [2 * 4096]; /* we'll truncate? */
rc = 0;
data = _adata;
loc = size = 0;
pathlen = strlen (path);
type = KDirectoryPathType (dir, path);
if (type & kptAlias)
{
rc = KDirectoryVResolveAlias (dir, false, link, sizeof (link),
path, NULL);
if (rc == 0)
linklen = strlen (link);
}
else
{
linklen = 0;
switch (type & ~kptAlias)
{
case kptNotFound:
rc = RC (rcExe, rcDirectory, rcAccessing, rcPath, rcNotFound);
break;
case kptBadPath:
rc = RC (rcExe, rcDirectory, rcAccessing, rcPath, rcInvalid);
break;
case kptZombieFile:
if ( ! long_list )
return 0;
data->has_zombies = true;
case kptFile:
rc = KDirectoryFileSize (dir, &size, path);
if (rc == 0)
{
if (size > data->max_size)
data->max_size = size;
rc = KDirectoryFileLocator (dir, &loc, path);
if ((rc == 0) && (loc > data->max_loc))
data->max_loc = loc;
}
break;
case kptDir:
break;
case kptCharDev:
case kptBlockDev:
case kptFIFO:
/* shouldn't get here */
return 0;
}
}
if (rc == 0)
{
rc = KDirectoryAccess (dir, &access, "%s", path);
if (rc == 0)
{
rc = KDirectoryDate (dir, &mtime, "%s", path);
if (rc == 0)
{
item = malloc (sizeof (*item) + pathlen + linklen + 2); /* usually one too many */
if (item == NULL)
{
rc = RC (rcExe, rcNoTarg, rcAllocating, rcMemory, rcExhausted);
}
else
{
item->type = type;
item->access = access;
item->size = size;
item->loc = loc;
item->mtime = mtime;
item->path = (char *)(item+1);
strcpy (item->path, path);
if (type & kptAlias)
{
item->link = item->path + pathlen + 1;
strcpy (item->link, link);
}
else
item->link = NULL;
DLListPushHead (&data->list, &item->dad);
if (type == kptDir)
rc = step_through_dir (dir, path, data->filter, data->fdata,
list_action, data);
}
}
}
}
return rc;
}
