Exec_errors MCAnswer::exec_file(MCExecPoint& ep, const char *p_title)
{
Exec_errors t_error = EE_UNDEFINED;
Meta::cstring_value t_prompt, t_initial, t_filter;
Meta::cstring_value *t_types = NULL;
char **t_type_strings = NULL;
uint4 t_type_count = 0;
t_error = Meta::evaluate(ep,
file . prompt, t_prompt, EE_ANSWER_BADQUESTION,
file . initial, t_initial, EE_ANSWER_BADRESPONSE,
file . filter, t_filter, EE_ANSWER_BADRESPONSE);
MCresult -> clear(False);
if (!t_error && file . type_count > 0)
{
t_types = new Meta::cstring_value[file . type_count];
for(uint4 t_type_index = 0; t_type_index < file . type_count && !t_error; ++t_type_index)
{
t_error = Meta::evaluate(ep, file . types[t_type_index], t_types[t_type_index], EE_ANSWER_BADRESPONSE);
if (!t_error)
for(char *t_type_string = strtok(*t_types[t_type_index], "\n"); t_type_string != NULL; t_type_string = strtok(NULL, "\n"))
{
MCU_realloc((char **)&t_type_strings, t_type_count, t_type_count + 1, sizeof(char *));
t_type_strings[t_type_count++] = t_type_string;
}
}
}
// Now we have checked all parameters, we check for access.
if (!t_error && !MCSecureModeCanAccessDisk())
t_error = EE_DISK_NOPERM;
if (!t_error)
{
if (MCsystemFS && MCscreen -> hasfeature ( PLATFORM_FEATURE_OS_FILE_DIALOGS ) )
{
unsigned int t_options = 0;
if (sheet)
t_options |= MCA_OPTION_SHEET;
if (mode == AT_FILES)
t_options |= MCA_OPTION_PLURAL;
if (t_types != NULL)
MCA_file_with_types(ep, p_title, t_prompt, t_type_strings, t_type_count, t_initial, t_options);
else
MCA_file(ep, p_title, t_prompt, t_filter, t_initial, t_options);
}
else
{
MCExecPoint ep2(ep);
ep2 . clear();
for(uint4 t_type = 0; t_type < t_type_count; ++t_type)
ep2 . concatcstring(t_type_strings[t_type], EC_RETURN, t_type == 0);
t_error = exec_custom(ep, MCfsnamestring, mode == AT_FILE ? "file" : "files", 5, p_title, *t_prompt, *t_filter, *t_initial, ep2 . getsvalue() . getstring());
}
if (ep . getsvalue() == MCnullmcstring && t_types == NULL)
MCresult -> sets(MCcancelstring);
}
delete[] t_types;
delete t_type_strings;
return t_error;
}
// MW-2005-05-15: Updated for new answer command restructuring
int MCA_folder(MCExecPoint &ep, const char *p_title, const char *p_prompt, const char *p_initial, unsigned int p_options)
{
if (MCmajorosversion >= 0x0600 && MCModeMakeLocalWindows())
return MCA_file(ep, p_title, p_prompt, nil, p_initial, p_options | MCA_OPTION_FOLDER_DIALOG);
// MW-2005-05-27: We'll use a static (I know bad me) to store the version
// of the shell dll.
static int s_shell_version = -1;
static char *s_last_folder = NULL;
char *t_native_filename;
unsigned int t_native_filename_length;
if (p_initial != NULL)
{
t_native_filename_length = strlen(p_initial);
t_native_filename = (char *)_alloca(t_native_filename_length + 2);
strcpy(t_native_filename, p_initial);
MCU_path2native(t_native_filename);
}
else
{
t_native_filename = s_last_folder;
t_native_filename_length = 0;
}
if (!MCModeMakeLocalWindows())
{
MCRemoteFolderDialog(ep, p_title, p_prompt, t_native_filename);
if (!ep.isempty())
{
if (s_last_folder != NULL)
delete s_last_folder;
s_last_folder = ep.getsvalue().clone();
MCU_path2native(s_last_folder);
}
return 0;
}
if (s_shell_version == -1)
s_shell_version = get_dll_version("shell32.dll");
bool sheet = (p_options & MCA_OPTION_SHEET) != 0;
char *prompt = (char *)p_prompt;
ep . clear();
BROWSEINFOA bi;
memset(&bi, 0, sizeof(BROWSEINFO));
Window pw;
pw = MCModeGetParentWindow();
if (pw != DNULL)
bi.hwndOwner = (HWND)pw->handle.window;
bi.pidlRoot = NULL;
bi.lpszTitle = prompt;
bi.ulFlags = BIF_RETURNONLYFSDIRS;
if (s_shell_version >= 500)
bi.ulFlags |= BIF_NEWDIALOGSTYLE;
if (t_native_filename != NULL)
{
bi . lpfn = BrowseCallbackProc;
bi . lParam = (LPARAM)t_native_filename;
}
else
{
bi.lpfn = NULL;
bi.lParam = NULL;
}
LPITEMIDLIST lpiil;
LPMALLOC lpm;
char *tdir = NULL;
SHGetMalloc(&lpm);
DWORD t_error;
lpiil = SHBrowseForFolderA(&bi);
if (lpiil == NULL)
{
t_error = GetLastError();
}
if (lpiil != NULL && SHGetPathFromIDListA(lpiil, ep.getbuffer(PATH_MAX)))
{
if (s_last_folder != NULL)
delete s_last_folder;
s_last_folder = strclone(ep . getbuffer(0));
MCU_path2std(ep.getbuffer(0));
ep.setstrlen();
}
else
{
ep.clear();
MCresult->sets(MCcancelstring);
}
// SMR 1880 clear shift and button state
waitonbutton();
lpm->Free(lpiil);
lpm->Release();
return 0;
}
// MW-2005-05-15: Updated for new answer command restructuring
int MCA_folder(MCStringRef p_title, MCStringRef p_prompt, MCStringRef p_initial, unsigned int p_options, MCStringRef &r_value, MCStringRef &r_result)
{
if (MCmajorosversion >= 0x0600 && MCModeMakeLocalWindows())
return MCA_file(p_title, p_prompt, nil, p_initial, p_options | MCA_OPTION_FOLDER_DIALOG, r_value, r_result);
// MW-2005-05-27: We'll use a static (I know bad me) to store the version
// of the shell dll.
static int s_shell_version = -1;
static MCStringRef s_last_folder = MCValueRetain(kMCEmptyString);
MCAutoStringRef t_native_filename;
if (p_initial != NULL)
{
MCAutoStringRef t_std_path;
/* UNCHECKED */ MCS_pathfromnative(p_initial, &t_std_path);
t_native_filename = *t_std_path;
}
else
t_native_filename = MCValueRetain(s_last_folder);
if (!MCModeMakeLocalWindows())
{
MCAutoStringRef t_answer_path;
MCRemoteFolderDialog(p_title, p_prompt, *t_native_filename, &t_answer_path);
if (*t_answer_path != nil)
{
MCAutoStringRef t_std_path;
/* UNCHECKED */ MCS_pathfromnative(*t_answer_path, &t_std_path);
MCValueAssign(s_last_folder, *t_std_path);
}
r_value = MCValueRetain(*t_answer_path);
return 0;
}
if (s_shell_version == -1)
s_shell_version = get_dll_version(L"shell32.dll");
bool sheet = (p_options & MCA_OPTION_SHEET) != 0;
BROWSEINFOW bi;
memset(&bi, 0, sizeof(BROWSEINFOW));
Window pw;
pw = MCModeGetParentWindow();
if (pw != DNULL)
bi.hwndOwner = (HWND)pw->handle.window;
MCAutoStringRefAsWString t_prompt_wstr;
MCAutoStringRefAsWString t_native_filename_wstr;
/* UNCHECKED */ t_prompt_wstr.Lock(p_prompt);
bi.pidlRoot = NULL;
bi.lpszTitle = *t_prompt_wstr;
bi.ulFlags = BIF_RETURNONLYFSDIRS;
if (s_shell_version >= 500)
bi.ulFlags |= BIF_NEWDIALOGSTYLE;
if (*t_native_filename != nil && !MCStringIsEmpty(*t_native_filename))
{
t_native_filename_wstr.Lock(*t_native_filename);
bi . lpfn = BrowseCallbackProc;
bi . lParam = (LPARAM)*t_native_filename_wstr;
}
else
{
bi.lpfn = NULL;
bi.lParam = NULL;
}
LPITEMIDLIST lpiil;
LPMALLOC lpm;
SHGetMalloc(&lpm);
DWORD t_error;
lpiil = SHBrowseForFolderW(&bi);
if (lpiil == NULL)
{
t_error = GetLastError();
}
MCAutoArray<unichar_t> t_buffer;
/* UNCHECKED */ t_buffer.New(MAX_PATH);
if (lpiil != NULL && SHGetPathFromIDListW(lpiil, t_buffer.Ptr()))
{
if (s_last_folder != NULL)
MCValueRelease(s_last_folder);
size_t t_length;
/* UNCHECKED */ StringCchLength(t_buffer.Ptr(), t_buffer.Size(), &t_length);
/* UNCHECKED */ MCStringCreateWithChars(t_buffer.Ptr(), t_length, s_last_folder);
MCAutoStringRef t_std_path;
/* UNCHECKED */ MCS_pathfromnative(s_last_folder, &t_std_path);
r_value = MCValueRetain(*t_std_path);
}
else
r_result = MCSTR(MCcancelstring);
// SMR 1880 clear shift and button state
waitonbutton();
lpm->Free(lpiil);
lpm->Release();
return 0;
}
