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; }
void remove_( BBString *path ){ chmod_( path,0x1b6 ); if( _bbusew ){ _wremove( bbTmpWString(path) ); }else{ remove( bbTmpCString(path) ); } }
BBString* bmx_dtime_format(time_t time, BBString* fmt, BBString* tz) { #define BUFSIZE 512 char buf[BUFSIZE]; char* tzo; //printf("tzset tz=\"%s\" tz#%p, empty#%p, null#%p\n", bbTmpCString(tz), tz, &bbEmptyString, &bbNullObject); if (tz && tz->length > 0) { tzo = getenv("TZ"); c_dtime_settz(bbTmpCString(tz)); } struct tm* tm = localtime(&time); int count = strftime(buf, BUFSIZE, bbTmpCString(fmt), tm); if (tz && tz->length > 0) { c_dtime_settz(tzo); } if (count == 0) return &bbEmptyString; return bbStringFromBytes(buf, count); }
int bbOpenURL( BBString *url ){ int n; if( _usew ){ n=(int)ShellExecuteW( 0,0,(wchar_t*)bbTmpWString(url),0,0,10 )>32; //SW_SHOWDEFAULT }else{ n=(int)ShellExecuteA( 0,0,bbTmpCString(url),0,0,10 )>32; //SW_SHOWDEFAULT } return n; }
time_t bmx_dtime_totimezone(time_t time, const BBString* tz) { if (tz && tz->length > 0) { struct tm* tm = localtime(&time); char* tzo = getenv("TZ"); c_dtime_settz(bbTmpCString(tz)); time = mktime(tm); c_dtime_settz(tzo); } return time; }
static int systemPanel( BBString *text,int flags ){ int n; beginPanel(); if( _usew ){ n=MessageBoxW( GetActiveWindow(),bbTmpWString(text),appTitleW(),flags ); }else{ n=MessageBoxA( GetActiveWindow(),bbTmpCString(text),appTitleA(),flags ); } endPanel(); return n; }
int stat_( BBString *path,int *t_mode,int *t_size,int *t_mtime,int *t_ctime ){ int i; struct _stat st; for( i=0;i<path->length;++i ){ if( path->buf[i]=='<' || path->buf[i]=='>' ) return -1; } if( _bbusew ){ if( _wstat( bbTmpWString(path),&st ) ) return -1; }else{ if( _stat( bbTmpCString(path),&st ) ) return -1; } *t_mode=st.st_mode; *t_size=st.st_size; *t_mtime=st.st_mtime; *t_ctime=st.st_ctime; return 0; }
int system_( BBString *cmd ){ int res; PROCESS_INFORMATION pi={0}; if( _bbusew ){ STARTUPINFOW si={sizeof(si)}; wchar_t *tmp=bbTmpWString(cmd); if( CreateProcessW( 0,tmp,0,0,1,CREATE_DEFAULT_ERROR_MODE,0,0,&si,&pi ) ){ WaitForSingleObject( pi.hProcess,INFINITE ); res=GetExitCodeProcess( pi.hProcess,(DWORD*)&res ) ? res : -1; CloseHandle( pi.hProcess ); CloseHandle( pi.hThread ); }else{ res=GetLastError(); } } else { STARTUPINFO si={sizeof(si)}; char *tmp=bbTmpCString(cmd); if( CreateProcessA( 0,tmp,0,0,1,CREATE_DEFAULT_ERROR_MODE,0,0,&si,&pi ) ){ WaitForSingleObject( pi.hProcess,INFINITE ); res=GetExitCodeProcess( pi.hProcess,(DWORD*)&res ) ? res : -1; CloseHandle( pi.hProcess ); CloseHandle( pi.hThread ); }else{ res=GetLastError(); } } return res; }
int fputs_( BBString *str,int file ){ if( _bbusew ) return fputws( bbTmpWString(str),(FILE*)file ); return fputs( bbTmpCString(str),(FILE*)file ); }
int opendir_( BBString *path ){ if( _bbusew ) return (int)_wopendir( bbTmpWString(path) ); return (int)opendir( bbTmpCString(path) ); }
int rmdir_( BBString *path ){ if( _bbusew ) return _wrmdir( bbTmpWString(path) ); return _rmdir( bbTmpCString(path) ); }
int mkdir_( BBString *path,int mode ){ if( _bbusew ) return _wmkdir( bbTmpWString(path) ); return _mkdir( bbTmpCString(path) ); }
int chmod_( BBString *path,int mode ){ if( _bbusew ) return _wchmod( bbTmpWString(path),mode ); return _chmod( bbTmpCString(path),mode ); }
int puts_( BBString *str ){ if( _bbusew ) return _putws( bbTmpWString(str) ); return puts( bbTmpCString(str) ); }
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) ) ); }
int putenv_( BBString *str ){ if( _bbusew ) return _wputenv( bbTmpWString(str) ); return putenv( bbTmpCString(str) ); }
int strftime_( char *buf,int size,BBString *fmt,void *ttime ){ return strftime( buf,size,bbTmpCString(fmt),ttime ); }
int chdir_( BBString *path ){ if( _bbusew ) return _wchdir( bbTmpWString(path) ); return _chdir( bbTmpCString(path) ); }
int fopen_( BBString *file,BBString *mode ){ if( _bbusew ) return (int)_wfopen( bbTmpWString(file),bbTmpWString(mode) ); return (int)fopen( bbTmpCString(file),bbTmpCString(mode) ); }
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(); }
int rename_( BBString *src,BBString *dst ){ if( _bbusew ) return _wrename( bbTmpWString(src),bbTmpWString(dst) ); return rename( bbTmpCString(src),bbTmpCString(dst) ); }