void SetDefaultName( CTEXTSTR path, CTEXTSTR name, CTEXTSTR extra )
{
TEXTCHAR *newpath;
size_t len;
static CTEXTSTR filepath;// = GetProgramPath();
static CTEXTSTR filename;// = GetProgramName();
if( path )
{
if( filepath )
Release( (POINTER)filepath );
filepath = StrDup( path );
}
if( name )
{
if( filename )
Release( (POINTER)filename );
filename = StrDup( name );
}
if( !filepath )
filepath = ExpandPath( WIDE("*/") );
if( !filename )
filename = StrDup( GetProgramName() );
if( !filename )
filename = "org.d3x0r.sack";
// this has to come from C heap.. my init isn't done yet probably and
// sharemem will just fai(*syslog_local). (it's probably trying to log... )
newpath = (TEXTCHAR*)malloc( len = sizeof(TEXTCHAR)*(9 + StrLen( filepath ) + StrLen( filename ) + (extra?StrLen(extra):0) + 5) );
#ifdef __cplusplus_cli
tnprintf( newpath, len, WIDE("%s/%s%s.cli.log"), filepath, filename, extra?extra:WIDE("") );
#else
tnprintf( newpath, len, WIDE("%s/%s%s.log"), filepath, filename, extra?extra:WIDE("") );
#endif
gFilename = newpath;//( newpath ); // use the C heap.
//free( newpath ); // get rid of this ...
}
static uintptr_t OnCreateControl(CONTROL_NAME)( PSI_CONTROL frame, int32_t x, int32_t y, uint32_t w, uint32_t h )
{
PSLIDER_INFO info = New( SLIDER_INFO );
MemSet( info, 0, sizeof( *info ) );
info->ID = l.slider_seek_id++;
//Default values
info->color = BASE_COLOR_WHITE;
info->min = 0;
info->max = 1000000;
info->current = 1;
if( w > h )
info->flags.bHorizontal = 1;
else
info->flags.bHorizontal = 0;
info->control = MakeControl( frame
, SLIDER_CONTROL
, x
, y
, w
, h
, -1
);
{
INDEX idx;
struct my_button *button;
LIST_FORALL( l.buttons, idx, struct my_button *, button )
{
if( button->ID == info->ID )
{
button->slider = info;
}
}
}
SetSliderUpdateHandler( info->control, OnSliderUpdateProc, (uintptr_t)info ); //info (pointer) will be returned in OnSliderUpdateProc()
// none of these are accurate values, they are just default WHITE and nothing.
InterShell_SetButtonColors( NULL, info->color, info->backcolor, 0, 0 );
//It seems that this magic line helps in showing slider
MoveSizeCommon( info->control, x, y, w, h );
{
TEXTCHAR tmpname[32];
tnprintf( tmpname, 32, "Player %d position", info->ID );
info->label = CreateLabelVariableEx( tmpname, LABEL_TYPE_PROC_EX, GetCurrentValueString, (uintptr_t)info );
}
// the result of this will be hidden...
return (uintptr_t)info;
}
void RegisterResource( CTEXTSTR appname, CTEXTSTR resource_name, int resource_name_id, int resource_name_range, CTEXTSTR type_name )
{
static int nextID = 10000;
if( !resource_name_id )
{
resource_name_id = nextID;
if( !resource_name_range )
resource_name_range = 1;
nextID += resource_name_range;
}
{
TEXTCHAR root[256];
TEXTCHAR old_root[256];
//lprintf( "resource name = %s", resource_names[n].type_name );
//lprintf( "resource name = %s", resource_names[n].resource_name );
tnprintf( root, sizeof( root ), PSI_ROOT_REGISTRY WIDE( "/resources/") WIDE("%s/%s/%s" )
, type_name
, appname
, resource_name
);
RegisterIntValue( root
, WIDE("value")
, resource_name_id );
RegisterIntValue( root
, WIDE("range")
, resource_name_range );
tnprintf( root, sizeof( root ), PSI_ROOT_REGISTRY WIDE("/resources/") WIDE("%s") WIDE("/%s")
, type_name
, appname
);
tnprintf( old_root, sizeof( old_root ), PSI_ROOT_REGISTRY WIDE("/resources/") WIDE("%s") WIDE("/%s")
, appname
, type_name
);
RegisterIntValue( root
, resource_name
, resource_name_id );
RegisterClassAlias( root, old_root );
}
}
FILEMON_NAMESPACE
//-------------------------------------------------------------------------
void ScanDirectory( PMONITOR monitor )
{
HANDLE hFile;
TEXTCHAR match[256];
WIN32_FIND_DATA FindFileData;
tnprintf( match, sizeof(match), WIDE("%s/*.*"), monitor->directory );
hFile = FindFirstFile( match, &FindFileData );
if( l.flags.bLog )
lprintf( WIDE( "Scan directory: %s" ), match );
if( hFile != INVALID_HANDLE_VALUE )
{
do
{
if(!( FindFileData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY ))
{
PCHANGECALLBACK Change;
if( monitor->flags.bLogFilesFound )
if( l.flags.bLog )
Log1( WIDE("Found file %s"), FindFileData.cFileName );
// invoke change on this and it's parent (if there was a parent)
for( Change = monitor->ChangeHandlers; Change; Change = Change->next )
{
if( !Change->mask ||
CompareMask( Change->mask
, FindFileData.cFileName
, FALSE ) )
{
if( monitor->flags.bLogFilesFound )
if( l.flags.bLog ) Log( WIDE("And the mask matched.") );
AddMonitoredFile( Change, FindFileData.cFileName );
}
}
}
} while( FindNextFile( hFile, &FindFileData ) );
FindClose( hFile );
}
else
if( l.flags.bLog ) Log( WIDE("FindFirstFile returned an invalid find handle") );
if( l.flags.bLog ) lprintf( WIDE( "Scanned directory: %s" ), match );
}
static void UpdateProgress( struct media_control_panel *panel, int val )
{
TEXTCHAR progress[12];
tnprintf( progress, 12, "%d.%02d%%", val / 100, val % 100 );
SetControlText( panel->progress, progress );
}
int ScanFilesEx ( CTEXTSTR base
, CTEXTSTR mask
, void **pInfo
, void CPROC Process( uintptr_t psvUser, CTEXTSTR name, int flags )
, int flags
, uintptr_t psvUser
, LOGICAL begin_sub_path
, struct file_system_mounted_interface *mount
)
{
PMFD pDataCurrent = (PMFD)(pInfo);
PMFD pData = (PMFD)(*pInfo);
TEXTSTR tmp_base = NULL;
int sendflags;
int processed = 0;
#ifndef WIN32
struct dirent *de;
#endif
if( begin_sub_path )
{
pInfo = (void**)&(pDataCurrent->current);
}
else
pDataCurrent = NULL;
//lprintf( "Search in %s for %s %d %d", base?base:"(NULL)", mask?mask:"(*)", (*pInfo)?((PMFD)*pInfo)->scanning_mount:0, (*pInfo)?((PMFD)*pInfo)->single_mount:0 );
if( !*pInfo || begin_sub_path || ((PMFD)*pInfo)->new_mount )
{
TEXTCHAR findmask[256];
pData = (PMFD)(*pInfo);
if( !pData )
{
*pInfo = Allocate( sizeof( MFD ) );
pData = (PMFD)(*pInfo);
if( !( pData->scanning_mount = mount ) )
{
if( !winfile_local )
SimpleRegisterAndCreateGlobal( winfile_local );
//lprintf( "... %p", winfile_local );
pData->single_mount = FALSE;
pData->scanning_mount = (*winfile_local).mounted_file_systems;
}
else
pData->single_mount = TRUE;
if( !pData->scanning_mount )
{
Deallocate( PMFD, pData );
if( tmp_base )
Release( tmp_base );
return 0;
}
if( pData->scanning_mount->fsi )
{
//lprintf( "create cursor" );
tmp_base = ExpandPathEx( base, pData->scanning_mount->fsi );
pData->cursor = pData->scanning_mount->fsi->find_create_cursor( pData->scanning_mount->psvInstance, CStrDup( tmp_base ), CStrDup( mask ) );
}
else
{
//lprintf( "no cursor" );
pData->cursor = NULL;
}
}
else
{
if( pData->new_mount )
{
if( pData->scanning_mount->fsi )
{
//lprintf( "create cursor (new mount)" );
tmp_base = ExpandPathEx( base, pData->scanning_mount->fsi );
pData->cursor = pData->scanning_mount->fsi->find_create_cursor( pData->scanning_mount->psvInstance, CStrDup( tmp_base ), CStrDup( mask ) );
}
else
pData->cursor = NULL;
}
}
pData->new_mount = FALSE;
pData->current = NULL;
pData->prior = pDataCurrent;
if( pDataCurrent )
{
pData->root_info = pDataCurrent->root_info;
pInfo = (void**)pData->root_info;
}
else
{
pData->root_info = (struct myfinddata**)pInfo;
}
(*pData->root_info) = pData;
if( base )
{
TEXTSTR tmp;
StrCpyEx( findbasename(pInfo), tmp = ExpandPathEx( base, pData->scanning_mount?pData->scanning_mount->fsi:NULL ), MAX_PATH_NAME );
Release( tmp );
StrCpyEx( findmask(pInfo), mask, MAX_PATH_NAME );
}
else
{
CTEXTSTR p = pathrchr( mask );
if( p )
{
StrCpyEx( findbasename(pInfo), mask, p - mask + 1 );
StrCpyEx( findmask(pInfo), p + 1, MAX_PATH_NAME );
//mask = p + 1;
}
else
{
StrCpyEx( findbasename(pInfo), WIDE(""), 2 );
StrCpyEx( findmask(pInfo), mask, MAX_PATH_NAME );
}
}
if( findbasename(pInfo)[0] )
tnprintf( findmask, sizeof(findmask), WIDE("%s/*"), findbasename(pInfo) );
else
tnprintf( findmask, sizeof( findmask ), WIDE( "*" ) );
if( pData->scanning_mount?pData->scanning_mount->fsi:NULL )
if( pData->scanning_mount->fsi->find_first( findcursor(pInfo) ) )
findhandle(pInfo) = 0;
else
findhandle(pInfo) = (HANDLECAST)-1;
else
{
#if WIN32
findhandle(pInfo) = findfirst( findmask, finddata(pInfo) );
#else
//lprintf( "opendir %s", findbasename(pInfo) );
findhandle( pInfo ) = opendir( findbasename(pInfo) );
if( !findhandle(pInfo ) )
findhandle(pInfo) = (HANDLECAST)-1;
else
de = readdir( (DIR*)findhandle( pInfo ) );
#endif
}
if( findhandle(pInfo) == (HANDLECAST)-1 )
{
PMFD prior = pData->prior;
//lprintf( "first use of cursor or first open of directoy failed..." );
if( pData->scanning_mount && pData->scanning_mount->fsi )
pData->scanning_mount->fsi->find_close( (struct find_cursor*)findcursor(pInfo) );
else
{
#ifdef WIN32
findclose( findhandle(pInfo) );
#else
// but it failed... so ... don't close
//closedir( findhandle( pInfo ) );
#endif
}
pData->scanning_mount = NextThing( pData->scanning_mount );
if( !pData->scanning_mount || pData->single_mount )
{
(*pData->root_info) = pData->prior;
if( !begin_sub_path ) {
Release( pData ); pInfo[0] = NULL;
}
//lprintf( WIDE( "%p %d" ), prior, processed );
if( tmp_base )
Release( tmp_base );
return prior?processed:0;
}
pData->new_mount = TRUE;
if( tmp_base )
Release( tmp_base );
return 1;
}
}
else
{
int r;
getnext:
//lprintf( "returning customer..." );
if( pData->scanning_mount?pData->scanning_mount->fsi:NULL )
r = !pData->scanning_mount->fsi->find_next( findcursor( pInfo ) );
else
{
#ifdef _WIN32
r = findnext( findhandle(pInfo), finddata( pInfo ) );
#else
de = readdir( (DIR*)findhandle( pInfo ) );
//lprintf( "using %p got %p", findhandle( pInfo ), de );
r = (de == NULL);
#endif
}
if( r )
{
PMFD prior = pData->prior;
//lprintf( "nothing left to find..." );
if( pData->scanning_mount->fsi )
pData->scanning_mount->fsi->find_close( findcursor(pInfo) );
else
{
#ifdef WIN32
findclose( findhandle(pInfo) );
#else
closedir( (DIR*)findhandle(pInfo));
#endif
}
pData->scanning_mount = NextThing( pData->scanning_mount );
//lprintf( "Step mount... %p %d", pData->scanning_mount, pData->single_mount );
if( !pData->scanning_mount || pData->single_mount )
{
//lprintf( "done with mounts?" );
(*pData->root_info) = pData->prior;
Release( pData );
if( prior )
prior->current = NULL;
if( !processed && !begin_sub_path )
{
//pInfo = (void**)&(prior->prior->current);
pData = prior;
if( pData )
goto getnext;
}
if( tmp_base )
Release( tmp_base );
return (*pInfo)?processed:0;
}
pData->new_mount = TRUE;
if( tmp_base )
Release( tmp_base );
return 1;
}
}
if( pData->scanning_mount?pData->scanning_mount->fsi:NULL )
{
char * path = pData->scanning_mount->fsi->find_get_name( findcursor(pInfo) );
//lprintf( "... %s", path );
if( !strcmp( ".", path ) ||
!strcmp( "..", path ) )
goto getnext;
}
else
{
#if WIN32
//lprintf( "... %s", finddata(pInfo)->name );
# ifdef UNDER_CE
if( !StrCmp( WIDE("."), finddata(pInfo)->cFileName ) ||
!StrCmp( WIDE(".."), finddata(pInfo)->cFileName ) )
# else
if( !StrCmp( WIDE("."), finddata(pInfo)->name ) ||
!StrCmp( WIDE(".."), finddata(pInfo)->name ) )
# endif
#else
if( !StrCmp( WIDE("."), de->d_name ) ||
!StrCmp( WIDE(".."), de->d_name ) )
#endif
goto getnext;
}
if( !(flags & SFF_NAMEONLY) ) // if nameonly - have to rebuild the correct name.
{
if( pData->scanning_mount?pData->scanning_mount->fsi:NULL )
{
tnprintf( pData->file_buffer, MAX_PATH_NAME, WIDE("%s"), pData->scanning_mount->fsi->find_get_name( findcursor(pInfo) ) );
if( findbasename( pInfo )[0] )
tnprintf( pData->buffer, MAX_PATH_NAME, WIDE("%s/%s"), findbasename(pInfo), pData->file_buffer );
else
tnprintf( pData->buffer, MAX_PATH_NAME, WIDE( "%s" ), pData->file_buffer );
}
else
{
#ifdef WIN32
# ifdef UNDER_CE
tnprintf( pData->file_buffer, MAX_PATH_NAME, WIDE( "%s" ), finddata( pInfo )->cFileName );
tnprintf( pData->buffer, MAX_PATH_NAME, WIDE("%s/%s"), findbasename(pInfo), finddata(pInfo)->cFileName );
# else
tnprintf( pData->file_buffer, MAX_PATH_NAME, WIDE("%s"), finddata(pInfo)->name );
tnprintf( pData->buffer, MAX_PATH_NAME, WIDE("%s%s%s"), findbasename(pInfo), findbasename( pInfo )[0]?"/":"", pData->file_buffer );
# endif
#else
tnprintf( pData->file_buffer, MAX_PATH_NAME, WIDE("%s"), de->d_name );
tnprintf( pData->buffer, MAX_PATH_NAME, WIDE("%s/%s"), findbasename(pInfo), de->d_name );
#endif
}
}
else
{
if( flags & SFF_SUBCURSE )
{
if( pData->scanning_mount?pData->scanning_mount->fsi:NULL )
{
tnprintf( pData->buffer, MAX_PATH_NAME, WIDE("%s%s%s")
, pData->prior?pData->prior->buffer:WIDE( "" )
, pData->prior?WIDE( "/" ):WIDE( "" )
, pData->scanning_mount->fsi->find_get_name( findcursor(pInfo) )
);
}
else
{
#if WIN32
# ifdef UNDER_CE
tnprintf( pData->buffer, MAX_PATH_NAME, WIDE("%s%s%s")
, pData->prior?pData->prior->buffer:WIDE( "" )
, pData->prior?WIDE( "/" ):WIDE( "" )
, finddata(pInfo)->cFileName );
# else
tnprintf( pData->buffer, MAX_PATH_NAME, WIDE("%s%s%s")
, pData->prior?pData->prior->buffer:WIDE( "" )
, pData->prior?WIDE( "/" ):WIDE( "" )
, finddata(pInfo)->name );
# endif
#else
tnprintf( pData->buffer, MAX_PATH_NAME, WIDE("%s%s%s")
, pData->prior?pData->prior->buffer:WIDE( "" )
, pData->prior?WIDE( "/" ):WIDE( "" )
, de->d_name );
lprintf( "resulting is %s", pData->buffer );
#endif
}
}
else
{
if( pData->scanning_mount?pData->scanning_mount->fsi:NULL )
{
tnprintf( pData->buffer, MAX_PATH_NAME, WIDE("%s"), pData->scanning_mount->fsi->find_get_name( findcursor(pInfo) ) );
}
else
{
#if WIN32
# ifdef UNDER_CE
tnprintf( pData->buffer, MAX_PATH_NAME, WIDE("%s"), finddata(pInfo)->cFileName );
# else
# ifdef UNICODE
snwprintf( pData->buffer, MAX_PATH_NAME, WIDE("%s"), finddata(pInfo)->name );
# else
tnprintf( pData->buffer, MAX_PATH_NAME, WIDE("%s"), finddata(pInfo)->name );
# endif
# endif
#else
tnprintf( pData->buffer, MAX_PATH_NAME, WIDE("%s"), de->d_name );
#endif
}
}
}
pData->buffer[MAX_PATH_NAME-1] = 0; // force nul termination...
#ifdef UNICODE
{
char *pDataBuffer = CStrDup( pData->buffer );
#else
# define pDataBuffer pData->buffer
#endif
//lprintf( "Check if %s is a directory...", pData->buffer );
if( (flags & (SFF_DIRECTORIES | SFF_SUBCURSE))
&& (pData->scanning_mount && pData->scanning_mount->fsi
&& (pData->scanning_mount->fsi->is_directory
&& pData->scanning_mount->fsi->is_directory( pDataBuffer )))
|| (!(pData->scanning_mount ? pData->scanning_mount->fsi : NULL)
#ifdef WIN32
# ifdef UNDER_CE
&& (finddata( pInfo )->dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
# else
&& (finddata( pInfo )->attrib & _A_SUBDIR)
# endif
#else
&& IsPath( pData->buffer )
#endif
) )
{
#ifdef UNICODE
Deallocate( char *, pDataBuffer );
#else
# undef pDataBuffer
#endif
//lprintf( "... it is?" );
if( flags & SFF_DIRECTORIES )
{
if( Process != NULL )
{
//lprintf( "Send %s", pData->buffer );
Process( psvUser, pData->buffer, SFF_DIRECTORY );
processed = 1;
}
//return 1;
}
if( flags & SFF_SUBCURSE )
{
void *data = NULL;
int ofs = 0;
TEXTCHAR tmpbuf[MAX_PATH_NAME];
if( flags & SFF_NAMEONLY )
{
// even in name only - need to have this full buffer for subcurse.
if( pData->scanning_mount && pData->scanning_mount->fsi )
{
ofs = tnprintf( tmpbuf, sizeof( tmpbuf ), WIDE( "%s/%s" ), findbasename( pInfo ), pData->scanning_mount->fsi->find_get_name( findcursor( pInfo ) ) );
}
else
{
#ifdef WIN32
# ifdef UNDER_CE
ofs = tnprintf( tmpbuf, sizeof( tmpbuf ), WIDE( "%s/%s" ), findbasename( pInfo ), finddata( pInfo )->cFileName );
# else
# ifdef UNICODE
ofs = snwprintf( tmpbuf, sizeof( tmpbuf ), WIDE( "%s/%s" ), findbasename( pInfo ), finddata( pInfo )->name );
# else
ofs = tnprintf( tmpbuf, sizeof( tmpbuf ), WIDE( "%s/%s" ), findbasename( pInfo ), finddata( pInfo )->name );
# endif
# endif
#else
ofs = tnprintf( tmpbuf, sizeof( tmpbuf ), WIDE( "%s/%s" ), findbasename( pInfo ), de->d_name );
#endif
}
//lprintf( "process sub... %s %s", tmpbuf, findmask(pInfo) );
processed |= ScanFilesEx( tmpbuf, findmask( pInfo ), (POINTER*)pData, Process, flags, psvUser, TRUE, pData->scanning_mount );
}
else
{
//lprintf( "process sub..." );
processed |= ScanFilesEx( pData->buffer, findmask( pInfo ), (POINTER*)pData, Process, flags, psvUser, TRUE, pData->scanning_mount );
}
}
if( !processed )
goto getnext;
if( tmp_base )
Release( tmp_base );
return (*pInfo) ? 1 : 0;
}
#ifdef UNICODE
Deallocate( char *, pDataBuffer );
}
#else
# undef pDataBuffer
#endif
if( ( sendflags = SFF_DIRECTORY, ( ( flags & SFF_DIRECTORIES )
#ifdef WIN32
# ifdef UNDER_CE
&& ( finddata(pInfo)->dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY )
# else
&& ( finddata(pInfo)->attrib & _A_SUBDIR )
# endif
#else
&& ( IsPath( pData->buffer ) )
#endif
) ) || ( sendflags = 0, CompareMask( findmask( pInfo )
#ifdef WIN32
# ifdef UNDER_CE
, finddata(pInfo)->cFileName
# else
, pData->file_buffer
# endif
#else
, de->d_name
#endif
// yes this is silly - but it's correct...
, (flags & SFF_IGNORECASE)?0:0 ) ) )
{
//lprintf( "Send %s", pData->buffer );
if( Process != NULL )
Process( psvUser, pData->buffer, sendflags );
if( tmp_base )
Release( tmp_base );
return (*pInfo)?1:0;
}
if( tmp_base )
Release( tmp_base );
return (*pInfo)?1:0;
}
static void CPROC MatchFile( uintptr_t psvUser, CTEXTSTR name, int flags )
{
PRESULT_BUFFER buffer = (PRESULT_BUFFER)psvUser;
buffer->result_len = tnprintf( buffer->buffer, buffer->len*sizeof(TEXTCHAR), WIDE("%s"), name );
}