BBString *readdir_( int dir ){
if( _bbusew ){
struct _wdirent *t=_wreaddir( (_WDIR*)dir );
return t ? bbStringFromWString( t->d_name ) : &bbEmptyString;
}
struct dirent *t=readdir( (DIR*)dir );
return t ? bbStringFromCString( t->d_name ) : &bbEmptyString;
}
BBString *bbSystemRequestDir( BBString *text,BBString *dir ){
BBString *str=&bbEmptyString;
if( _usew ){
LPMALLOC shm;
ITEMIDLIST *idlist;
BROWSEINFOW bi={0};
wchar_t buf[MAX_PATH],*p;
GetFullPathNameW( bbTmpWString(dir),MAX_PATH,buf,&p );
bi.hwndOwner=GetActiveWindow();
bi.lpszTitle=bbTmpWString( text );
bi.ulFlags=BIF_RETURNONLYFSDIRS|BIF_NEWDIALOGSTYLE;
bi.lpfn=BrowseForFolderCallbackW;
bi.lParam=(LPARAM)buf;
beginPanel();
idlist=SHBrowseForFolderW(&bi);
endPanel();
if( idlist ){
SHGetPathFromIDListW( idlist,buf );
str=bbStringFromWString( buf );
//SHFree( idlist ); //?!?
}
} else {
LPMALLOC shm;
ITEMIDLIST *idlist;
BROWSEINFOA bi={0};
char buf[MAX_PATH],*p;
GetFullPathNameA( bbTmpCString(dir),MAX_PATH,buf,&p );
bi.hwndOwner=GetActiveWindow();
bi.lpszTitle=bbTmpCString( text );
bi.ulFlags=BIF_RETURNONLYFSDIRS|BIF_NEWDIALOGSTYLE;
bi.lpfn=BrowseForFolderCallbackA;
bi.lParam=(LPARAM)buf;
beginPanel();
idlist=SHBrowseForFolderA(&bi);
endPanel();
if( idlist ){
SHGetPathFromIDListA( idlist,buf );
str=bbStringFromCString( buf );
//SHFree( idlist ); //?!?
}
}
return str;
}
BBString *getcwd_(){
if( _bbusew ){
wchar_t buf[MAX_PATH];
_wgetcwd( buf,MAX_PATH );
return bbStringFromWString( buf );
}else{
char buf[MAX_PATH];
_getcwd( buf,MAX_PATH );
return bbStringFromCString( buf );
}
return &bbEmptyString;
}
void bbStartup( int argc,char *argv[],void *dummy1,void *dummy2 ){
int i,k;
BBString **p;
//Start up GC and create bbAppFile, bbAppDir and bbLaunchDir
#if _WIN32
char *ebp;
OSVERSIONINFO os={ sizeof(os) };
//asm( "movl %%ebp,%0;":"=r"(ebp) );//::"%ebp" );
//bbGCStackTop=ebp+28;
// BaH bbThreadStartup();
bbGCStartup();
if( GetVersionEx( &os ) ){
if( os.dwPlatformId==VER_PLATFORM_WIN32_NT ){
_bbusew=1;
}
}
if( _bbusew ){
int e=0;
wchar_t buf[MAX_PATH];
_wgetcwd( buf,MAX_PATH );
for( i=0;buf[i];++i ){
if( buf[i]=='\\' ) buf[i]='/';
}
bbLaunchDir=bbStringFromWString( buf );
GetModuleFileNameW( GetModuleHandleW(0),buf,MAX_PATH );
for( i=0;buf[i];++i ){
if( buf[i]=='\\' ) buf[i]='/';
if( buf[i]=='/' ) e=i;
}
bbAppFile=bbStringFromWString( buf );
if( e ){
if( buf[e-1]==':' ) ++e;
bbAppDir=bbStringFromShorts( buf,e );
}else{
bbAppDir=&bbEmptyString;
}
_wchdir( bbTmpWString( bbAppDir ) );
}else{
int e=0;
char buf[MAX_PATH];
_getcwd( buf,MAX_PATH );
for( i=0;buf[i];++i ){
if( buf[i]=='\\' ) buf[i]='/';
}
bbLaunchDir=bbStringFromCString( buf );
GetModuleFileNameA( GetModuleHandleA(0),buf,MAX_PATH );
for( i=0;buf[i];++i ){
if( buf[i]=='\\' ) buf[i]='/';
if( buf[i]=='/' ) e=i;
}
bbAppFile=bbStringFromCString( buf );
if( e ){
if( buf[e-1]==':' ) ++e;
bbAppDir=bbStringFromBytes( buf,e );
}else{
bbAppDir=&bbEmptyString;
}
_chdir( bbTmpCString( bbAppDir ) );
}
#elif __linux
char *ebp;
char buf[PATH_MAX];
char lnk[PATH_MAX];
pid_t pid;
// asm( "movl %%ebp,%0;":"=r"(ebp) );//::"%ebp" );
bbGCStackTop=ebp+28;
// BaH bbThreadStartup();
bbGCStartup();
getcwd( buf,PATH_MAX );
bbLaunchDir=bbStringFromUTF8String( buf );
pid=getpid();
sprintf( lnk,"/proc/%i/exe",pid );
i=readlink( lnk,buf,PATH_MAX );
if( i>0 ){
char *p;
buf[i]=0;
bbAppFile=bbStringFromUTF8String( buf );
p=strrchr( buf,'/' );
if( p ){
*p=0;
bbAppDir=bbStringFromUTF8String( buf );
}else{
bbAppDir=&bbEmptyString;
}
}else{
bbAppFile=&bbEmptyString;
bbAppDir=&bbEmptyString;
}
chdir( bbTmpUTF8String( bbAppDir ) );
#elif __APPLE__
CFURLRef url;
char buf[PATH_MAX],*e;
//#if BB_ARGP
// bbGCStackTop=bbArgp(0);
//#else
bbGCStackTop=&argc;
//#endif
// BaH bbThreadStartup();
bbGCStartup();
getcwd( buf,PATH_MAX );
bbLaunchDir=bbStringFromUTF8String( buf );
url=CFBundleCopyExecutableURL( CFBundleGetMainBundle() );
CFURLGetFileSystemRepresentation( url,true,(UInt8*)buf,PATH_MAX );
CFRelease( url );
bbAppFile=bbStringFromUTF8String( buf );
if( e=strstr( buf,".app/Contents/MacOS/" ) ){
*e=0;
}
if( e=strrchr( buf,'/' ) ){
*e=0;
bbAppDir=bbStringFromUTF8String( buf );
}else{
bbAppDir=&bbEmptyString;
}
chdir( bbTmpUTF8String( bbAppDir ) );
#endif
BBINCREFS( bbLaunchDir );
BBINCREFS( bbAppDir );
BBINCREFS( bbAppFile );
bbAppTitle=bbStringFromCString( "BlitzMax Application" );
BBINCREFS( bbAppTitle );
bbAppArgs=bbArrayNew1D( "$",argc );
BBINCREFS( bbAppArgs );
p=(BBString**)BBARRAYDATA( bbAppArgs,1 );
for( k=0;k<argc;++k ){
BBString *arg=bbStringFromCString( argv[k] );
BBINCREFS( arg );
*p++=arg;
}
startup();
}
BBString *bbSystemRequestFile( BBString *text,BBString *exts,int defext,int save,BBString *file,BBString *dir ){
BBString *str=&bbEmptyString;
if( _usew ){
wchar_t buf[MAX_PATH];
OPENFILENAMEW of={sizeof(of)};
wcscpy( buf,bbTmpWString( file ) );
of.hwndOwner=GetActiveWindow();
of.lpstrTitle=bbTmpWString( text );
of.lpstrFilter=bbTmpWString( exts );
of.nFilterIndex=defext;
of.lpstrFile=buf;
of.lpstrInitialDir=dir->length ? bbTmpWString( dir ) : 0;
of.nMaxFile=MAX_PATH;
of.Flags=OFN_HIDEREADONLY|OFN_NOCHANGEDIR;
beginPanel();
if( save ){
of.lpstrDefExt=L"";
of.Flags|=OFN_OVERWRITEPROMPT;
if( GetSaveFileNameW( &of ) ){
str=bbStringFromWString( buf );
}
}else{
of.Flags|=OFN_FILEMUSTEXIST;
if( GetOpenFileNameW( &of ) ){
str=bbStringFromWString( buf );
}
}
endPanel();
}else{
char buf[MAX_PATH];
OPENFILENAMEA of={sizeof(of)};
strcpy( buf,bbTmpCString( file ) );
of.hwndOwner=GetActiveWindow();
of.lpstrTitle=bbTmpCString( text );
of.lpstrFilter=bbTmpCString( exts );
of.nFilterIndex=defext;
of.lpstrFile=buf;
of.lpstrInitialDir=dir->length ? bbTmpCString( dir ) : 0;
of.nMaxFile=MAX_PATH;
of.Flags=OFN_HIDEREADONLY|OFN_NOCHANGEDIR;
beginPanel();
if( save ){
of.lpstrDefExt="";
of.Flags|=OFN_OVERWRITEPROMPT;
if( GetSaveFileNameA( &of ) ){
str=bbStringFromCString( buf );
}
}else{
of.Flags|=OFN_FILEMUSTEXIST;
if( GetOpenFileNameA( &of ) ){
str=bbStringFromCString( buf );
}
}
endPanel();
}
return str;
}
BBString *getenv_( BBString *str ){
if( _bbusew ) return bbStringFromWString( _wgetenv( bbTmpWString(str) ) );
return bbStringFromCString( getenv( bbTmpCString(str) ) );
}