static void getfilter(MCStringRef p_filter, MCStringRef &r_filter)
{
if (p_filter != nil && !MCStringIsEmpty(p_filter))
{
static MCAutoStringRef t_filterstring;
if (*t_filterstring != nil)
MCValueRelease(*t_filterstring);
/* UNCHECKED */ MCStringMutableCopy(p_filter, &t_filterstring);
uindex_t t_offset;
if (!MCStringFirstIndexOfChar(*t_filterstring, '\n', 0, kMCStringOptionCompareExact, t_offset) &&
!MCStringFirstIndexOfChar(*t_filterstring, ',', 0, kMCStringOptionCompareExact, t_offset))
{
MCStringAppendChar(*t_filterstring, '\0');
MCStringAppend(*t_filterstring, p_filter);
}
/* UNCHECKED */ MCStringAppendChar(*t_filterstring, '\0');
/* UNCHECKED */ MCStringFindAndReplaceChar(*t_filterstring, '\n', '\0', kMCStringOptionCompareExact);
/* UNCHECKED */ MCStringFindAndReplaceChar(*t_filterstring, ',', '\0', kMCStringOptionCompareExact);
MCStringCopy(*t_filterstring, r_filter);
}
else
/* UNCHECKED */ MCStringCreateWithNativeChars((const char_t *)"All Files (*.*)\0*.*\0", 20, r_filter);
}
MCFontnode::MCFontnode(MCNameRef fname, uint2 &size, uint2 style)
{
reqname = fname;
reqsize = size;
reqstyle = style;
#if defined(TARGET_SUBPLATFORM_IPHONE)
font = new MCFontStruct;
font -> size = size;
uindex_t t_comma;
MCAutoStringRef reqname_str;
reqname_str = MCNameGetString(*reqname);
Boolean t_success;
t_success = MCStringFirstIndexOfChar(*reqname_str, ',', 0, kMCCompareExact, t_comma);
MCAutoStringRef t_before_comma;
/* UNCHECKED */ MCStringCopySubstring(*reqname_str, MCRangeMake(0, t_comma - 1), &t_before_comma);
font -> fid = (MCSysFontHandle)iphone_font_create(*t_before_comma, reqsize, (reqstyle & FA_WEIGHT) > 0x05, (reqstyle & FA_ITALIC) != 0);
font -> ascent = size - 1;
font -> descent = size * 2 / 14 + 1;
float ascent, descent;
iphone_font_get_metrics(font -> fid, ascent, descent);
if (ceilf(ascent) + ceilf(descent) > size)
font -> ascent++;
#elif defined(TARGET_SUBPLATFORM_ANDROID)
font = new MCFontStruct;
font -> size = size;
uindex_t t_comma;
MCAutoStringRef reqname_str;
reqname_str = MCNameGetString(*reqname);
Boolean t_success;
t_success = MCStringFirstIndexOfChar(*reqname_str, ',', 0, kMCCompareExact, t_comma);
MCAutoStringRef t_before_comma;
/* UNCHECKED */ MCStringCopySubstring(*reqname_str, MCRangeMake(0, t_comma - 1), &t_before_comma);
font -> fid = (MCSysFontHandle)android_font_create(*t_before_comma, reqsize, (reqstyle & FA_WEIGHT) > 0x05, (reqstyle & FA_ITALIC) != 0);
font -> ascent = size - 1;
font -> descent = size * 2 / 14 + 1;
float ascent, descent;
android_font_get_metrics(font -> fid, ascent, descent);
if (ceilf(ascent) + ceilf(descent) > size)
font -> ascent++;
#endif
}
bool MCArraysSplitIndexes(MCNameRef p_key, integer_t*& r_indexes, uindex_t& r_count, bool& r_all_integers)
{
r_indexes = nil;
r_count = 0;
MCStringRef t_string = MCNameGetString(p_key);
uindex_t t_string_len = MCStringGetLength(t_string);
if (t_string_len == 0)
return true;
r_all_integers = true;
uindex_t t_start, t_finish;
t_start = 0;
t_finish = 0;
for(;;)
{
if (!MCStringFirstIndexOfChar(t_string, ',', t_start, kMCCompareExact, t_finish))
t_finish = t_string_len;
if (!MCMemoryResizeArray(r_count + 1, r_indexes, r_count))
return false;
MCAutoStringRef t_substring;
MCAutoNumberRef t_number;
MCStringCopySubstring(t_string, MCRangeMake(t_start, t_finish - t_start), &t_substring);
if (!MCNumberParse(*t_substring, &t_number))
{
r_indexes[r_count - 1] = 0;
r_all_integers = false;
break;
}
else
r_indexes[r_count - 1] = MCNumberFetchAsInteger(*t_number);
if (t_finish >= t_string_len)
break;
t_start = t_finish + 1;
}
return true;
}
Exec_stat MCF_parsetextatts(Properties which, MCStringRef data,
uint4 &flags, MCStringRef &fname, uint2 &height,
uint2 &size, uint2 &style)
{
int2 i1;
switch (which)
{
case P_TEXT_ALIGN:
flags &= ~F_ALIGNMENT;
if (MCStringIsEqualToCString(data, MCleftstring, kMCCompareCaseless) || MCStringIsEmpty(data))
flags |= F_ALIGN_LEFT;
else
if (MCStringIsEqualToCString(data, MCcenterstring, kMCCompareCaseless))
flags |= F_ALIGN_CENTER;
else
if (MCStringIsEqualToCString(data, MCrightstring, kMCCompareCaseless))
flags |= F_ALIGN_RIGHT;
else
if (MCStringIsEqualToCString(data, MCjustifystring, kMCCompareCaseless))
flags |= F_ALIGN_JUSTIFY;
else
{
MCeerror->add(EE_OBJECT_BADALIGN, 0, 0, data);
return ES_ERROR;
}
break;
case P_TEXT_FONT:
{// MW-2012-02-17: [[ IntrinsicUnicode ]] Strip any lang tag from the
// fontname.
uindex_t t_offset;
if (MCStringFirstIndexOfChar(data, ',', 0, kMCCompareExact, t_offset))
/* UNCHECKED */ MCStringCopySubstring(data, MCRangeMake(t_offset + 1, MCStringGetLength(data) - (t_offset + 1)), fname);
else
fname = MCValueRetain(data);
}
break;
case P_TEXT_HEIGHT:
if (!MCU_stoi2(data, i1))
{
MCeerror->add
(EE_OBJECT_TEXTHEIGHTNAN, 0, 0, data);
return ES_ERROR;
}
height = i1;
break;
case P_TEXT_SIZE:
if (MCStringIsEmpty(data))
i1 = 0;
else
if (!MCU_stoi2(data, i1))
{
MCeerror->add
(EE_OBJECT_TEXTSIZENAN, 0, 0, data);
return ES_ERROR;
}
size = i1;
break;
case P_TEXT_STYLE:
{
// MW-2012-02-17: [[ SplitTextAttrs ]] If the string is empty, then
// return 0 for the style - indicating to unset the property.
if (MCStringIsEmpty(data))
style = 0;
else
{
style = FA_DEFAULT_STYLE;
uindex_t t_start_pos, t_end_pos;
t_end_pos = 0;
while (t_end_pos < MCStringGetLength(data))
{
t_start_pos = t_end_pos;
// skip spaces at the beginning or after a comma (if any)
MCU_skip_spaces(data, t_start_pos);
uindex_t t_comma;
if (!MCStringFirstIndexOfChar(data, ',', t_start_pos, kMCCompareExact, t_comma))
t_end_pos = MCStringGetLength(data);
else
t_end_pos = t_comma;
MCAutoStringRef tdata;
/* UNCHECKED */ MCStringCopySubstring(data, MCRangeMake(t_start_pos, t_end_pos - t_start_pos), &tdata);
t_end_pos++;
if (MCF_setweightstring(style, *tdata))
continue;
if (MCF_setexpandstring(style, *tdata))
continue;
if (MCF_setslantlongstring(style, *tdata))
continue;
if (MCStringIsEqualToCString(*tdata, MCplainstring, kMCCompareCaseless))
{
style = FA_DEFAULT_STYLE;
continue;
}
if (MCStringIsEqualToCString(*tdata, MCmixedstring, kMCCompareCaseless))
{
style = FA_DEFAULT_STYLE;
continue;
}
if (MCStringIsEqualToCString(*tdata, MCboxstring, kMCCompareCaseless))
{
style &= ~FA_3D_BOX;
style |= FA_BOX;
continue;
}
if (MCStringIsEqualToCString(*tdata, MCthreedboxstring, kMCCompareCaseless))
{
style &= ~FA_BOX;
style |= FA_3D_BOX;
continue;
}
if (MCStringIsEqualToCString(*tdata, MCunderlinestring, kMCCompareCaseless))
{
style |= FA_UNDERLINE;
continue;
}
if (MCStringIsEqualToCString(*tdata, MCstrikeoutstring, kMCCompareCaseless))
{
style |= FA_STRIKEOUT;
continue;
}
if (MCStringIsEqualToCString(*tdata, MCgroupstring, kMCCompareCaseless) || MCStringIsEqualToCString(*tdata, MClinkstring, kMCCompareCaseless))
{
style |= FA_LINK;
continue;
}
MCeerror->add(EE_OBJECT_BADSTYLE, 0, 0, data);
return ES_ERROR;
}
}
}
break;
default:
break;
}
return ES_NORMAL;
}
void MCPickExecPickOptionByIndex(MCExecContext &ctxt, int p_chunk_type, MCStringRef *p_option_lists, uindex_t p_option_list_count, uindex_t *p_initial_indices, uindex_t p_indices_count, bool p_use_hilite_type, bool p_use_picker, bool p_use_cancel, bool p_use_done, MCRectangle p_button_rect)
{
MCAutoArray<MCPickList> t_pick_lists;
char_t t_delimiter;
switch ((MCChunkType)p_chunk_type)
{
// No access to the line/item delimiter set in the handler from the mobile-specific functions/commands
// so following the old engine default values for them
case kMCChunkTypeItem:
t_delimiter = ',';
break;
case kMCChunkTypeWord:
case kMCChunkTypeLine:
t_delimiter = '\n';
break;
default:
MCUnreachable();
}
uindex_t t_old_offset = 0;
uindex_t t_new_offset = 0;
bool t_success;
t_success = true;
for (uindex_t i = 0; i < p_option_list_count; i++)
{
MCStringRef t_option;
MCPickList t_pick_list;
MCAutoArray<MCStringRef> t_options;
t_old_offset = 0;
while (t_success && MCStringFirstIndexOfChar(p_option_lists[i], t_delimiter, t_old_offset, kMCCompareCaseless, t_new_offset))
{
t_success = MCStringCopySubstring(p_option_lists[i], MCRangeMakeMinMax(t_old_offset, t_new_offset), t_option);
if (t_success)
t_options . Push(t_option);
t_old_offset = t_new_offset + 1;
}
// Append the remaining part of the options
t_success = MCStringCopySubstring(p_option_lists[i], MCRangeMakeMinMax(t_old_offset, MCStringGetLength(p_option_lists[i])), t_option);
if (t_success)
t_options . Push(t_option);
t_options . Take(t_pick_list . options, t_pick_list . option_count);
t_pick_list . initial = p_initial_indices[i];
t_pick_lists . Push(t_pick_list);
}
bool t_cancelled;
uindex_t *t_result;
uindex_t t_result_count = 0;
// Open the picker and allow the user to select the options
if (t_success)
t_success = MCSystemPickOption(t_pick_lists . Ptr(), t_pick_lists . Size(), t_result, t_result_count, p_use_hilite_type, p_use_picker, p_use_cancel, p_use_done, t_cancelled, p_button_rect);
ctxt.SetTheResultToEmpty();
if (t_success)
{
if (t_cancelled)
{
// HC-2012-02-15 [[ BUG 9999 ]] Picker should return 0 if cancel was selected.
ctxt . SetTheResultToNumber(0);
}
else
{
MCAutoListRef t_indices;
t_success = MCListCreateMutable(',', &t_indices);
for (uindex_t i = 0; i < t_result_count && t_success; i++)
{
MCAutoStringRef t_index;
t_success = MCStringFormat(&t_index, "%u", t_result[i]);
if (t_success)
t_success = MCListAppend(*t_indices, *t_index);
}
MCAutoStringRef t_string;
/* UNCHECKED */ MCListCopyAsString(*t_indices, &t_string);
ctxt . SetTheResultToValue(*t_string);
}
}
// Free memory
for (uindex_t i = 0; i < t_pick_lists . Size(); i++)
for (uindex_t j = 0; j < t_pick_lists[i] . option_count; j++)
MCValueRelease(t_pick_lists[i] . options[j]);
}
static int MCA_do_file_dialog(MCStringRef p_title, MCStringRef p_prompt, MCStringRef p_filter, MCStringRef p_initial, unsigned int p_options, MCStringRef &r_value, MCStringRef &r_result)
{
int t_result = 0;
MCAutoStringRef t_initial_file;
MCAutoStringRef t_initial_folder;
MCAutoStringRef t_initial_native_folder;
if (p_initial != nil && !MCStringIsEmpty(p_initial))
{
MCAutoStringRef t_fixed_path;
/* UNCHECKED */ MCU_fix_path(p_initial, &t_fixed_path);
if (MCS_exists(*t_fixed_path, False))
t_initial_folder = *t_fixed_path;
else if ((p_options & MCA_OPTION_SAVE_DIALOG) != 0)
{
uindex_t t_last_slash;
if (!MCStringLastIndexOfChar(*t_fixed_path, '/', UINDEX_MAX, kMCStringOptionCompareExact, t_last_slash))
{
if (MCStringGetLength(*t_fixed_path) != 0)
t_initial_file = *t_fixed_path;
}
else
{
if (t_last_slash < MCStringGetLength(*t_fixed_path) - 1)
/* UNCHECKED */ MCStringCopySubstring(*t_fixed_path, MCRangeMake(t_last_slash + 1, MCStringGetLength(*t_fixed_path) - (t_last_slash + 1)), &t_initial_file);
MCAutoStringRef t_folder_split;
/* UNCHECKED */ MCStringCopySubstring(*t_fixed_path, MCRangeMake(0, t_last_slash - 1), &t_folder_split);
if (MCS_exists(*t_folder_split, False))
t_initial_folder = *t_folder_split;
}
}
else
{
uindex_t t_last_slash;
if (MCStringLastIndexOfChar(*t_fixed_path, '/', UINDEX_MAX, kMCStringOptionCompareExact, t_last_slash))
{
MCAutoStringRef t_folder_split;
/* UNCHECKED */ MCStringCopySubstring(*t_fixed_path, MCRangeMake(0, t_last_slash - 1), &t_folder_split);
if (MCS_exists(*t_folder_split, False))
t_initial_folder = *t_folder_split;
}
}
MCAutoStringRef t_resolved_folder;
/* UNCHECKED */ MCS_resolvepath(*t_initial_folder != nil ? *t_initial_folder : kMCEmptyString, &t_resolved_folder);
/* UNCHECKED */ MCS_pathtonative(*t_resolved_folder, &t_initial_native_folder);
}
if (!MCModeMakeLocalWindows())
{
MCAutoStringRefArray t_filters;
if (p_filter != NULL)
{
/* UNCHECKED */ MCStringsSplit(p_filter, '\0', t_filters.PtrRef(), t_filters.CountRef());
}
MCRemoteFileDialog(p_title, p_prompt, *t_filters, t_filters.Count(), *t_initial_native_folder, *t_initial_file, (p_options & MCA_OPTION_SAVE_DIALOG) != 0, (p_options & MCA_OPTION_PLURAL) != 0, r_value);
return 0;
}
Window t_window;
t_window = MCModeGetParentWindow();
MCAutoStringRef t_value;
bool t_succeeded;
int t_filter_index;
if (MCmajorosversion >= 0x0600)
{
static SHCreateItemFromParsingNamePtr s_shcreateitemfromparsingname = NULL;
if (s_shcreateitemfromparsingname == NULL)
{
static HMODULE s_shell32_module = NULL;
s_shell32_module = LoadLibraryW(L"shell32.dll");
s_shcreateitemfromparsingname = (SHCreateItemFromParsingNamePtr)GetProcAddress(s_shell32_module, "SHCreateItemFromParsingName");
}
IFileSaveDialog *t_file_save_dialog;
IFileOpenDialog *t_file_open_dialog;
IFileDialog *t_file_dialog;
t_file_dialog = NULL;
HRESULT t_hresult;
if ((p_options & MCA_OPTION_SAVE_DIALOG) == 0)
{
t_hresult = CoCreateInstance(CLSID_FileOpenDialog, NULL, CLSCTX_INPROC_SERVER, __uuidof(IFileOpenDialog), (LPVOID *)&t_file_open_dialog);
t_succeeded = SUCCEEDED(t_hresult);
t_file_dialog = t_file_open_dialog;
}
else
{
t_hresult = CoCreateInstance(CLSID_FileSaveDialog, NULL, CLSCTX_INPROC_SERVER, __uuidof(IFileSaveDialog), (LPVOID *)&t_file_save_dialog);
t_succeeded = SUCCEEDED(t_hresult);
t_file_dialog = t_file_save_dialog;
}
if (t_succeeded)
{
DWORD t_options;
t_options = FOS_FORCEFILESYSTEM | FOS_NOCHANGEDIR | FOS_PATHMUSTEXIST;
if (p_options & MCA_OPTION_PLURAL)
t_options |= FOS_ALLOWMULTISELECT;
if (p_options & MCA_OPTION_SAVE_DIALOG)
t_options |= FOS_OVERWRITEPROMPT;
if (p_options & MCA_OPTION_FOLDER_DIALOG)
t_options |= FOS_PICKFOLDERS;
else
t_options |= FOS_FILEMUSTEXIST;
t_hresult = t_file_dialog -> SetOptions(t_options);
t_succeeded = SUCCEEDED(t_hresult);
}
if (t_succeeded && *t_initial_native_folder != NULL)
{
IShellItem *t_initial_folder_shellitem;
t_initial_folder_shellitem = NULL;
MCAutoStringRefAsWString t_initial_folder_wstr;
/* UNCHECKED */ t_initial_folder_wstr.Lock(*t_initial_native_folder);
t_hresult = s_shcreateitemfromparsingname(*t_initial_folder_wstr, NULL, __uuidof(IShellItem), (LPVOID *)&t_initial_folder_shellitem);
if (SUCCEEDED(t_hresult))
t_file_dialog -> SetFolder(t_initial_folder_shellitem);
if (t_initial_folder_shellitem != NULL)
t_initial_folder_shellitem -> Release();
t_succeeded = SUCCEEDED(t_hresult);
}
if (t_succeeded && *t_initial_file != NULL)
{
MCAutoStringRefAsWString t_initial_file_wstr;
/* UNCHECKED */ t_initial_file_wstr.Lock(*t_initial_file);
t_hresult = t_file_dialog -> SetFileName(*t_initial_file_wstr);
t_succeeded = SUCCEEDED(t_hresult);
}
if (t_succeeded && p_filter != NULL && (p_options & MCA_OPTION_FOLDER_DIALOG) == 0)
{
uint4 t_filter_length, t_filter_count;
measure_filter(p_filter, t_filter_length, t_filter_count);
MCAutoStringRefAsWString t_filter_wstr;
/* UNCHECKED */ t_filter_wstr.Lock(p_filter);
COMDLG_FILTERSPEC *t_filter_spec;
filter_to_spec(*t_filter_wstr, t_filter_count, t_filter_spec);
t_hresult = t_file_dialog -> SetFileTypes(t_filter_count, t_filter_spec);
t_succeeded = SUCCEEDED(t_hresult);
delete t_filter_spec;
}
if (t_succeeded && p_filter != NULL && (p_options & MCA_OPTION_FOLDER_DIALOG) == 0)
{
t_hresult = t_file_dialog -> SetFileTypeIndex(1);
t_succeeded = SUCCEEDED(t_hresult);
}
if (t_succeeded)
{
MCAutoStringRefAsWString t_prompt_wstr;
/* UNCHECKED */ t_prompt_wstr.Lock(p_prompt);
t_hresult = t_file_dialog -> SetTitle(*t_prompt_wstr);
}
if (t_succeeded)
{
t_hresult = t_file_dialog -> Show(t_window != NULL ? (HWND)t_window -> handle . window : NULL);
t_succeeded = SUCCEEDED(t_hresult);
}
if ((p_options & MCA_OPTION_SAVE_DIALOG) == 0)
{
IShellItemArray *t_file_items;
t_file_items = NULL;
if (t_succeeded)
{
t_hresult = t_file_open_dialog -> GetResults(&t_file_items);
t_succeeded = SUCCEEDED(t_hresult);
}
DWORD t_file_item_count;
if (t_succeeded)
{
t_hresult = t_file_items -> GetCount(&t_file_item_count);
t_succeeded = SUCCEEDED(t_hresult);
}
if (t_succeeded)
{
for(uint4 t_index = 0; t_index < t_file_item_count && t_succeeded; ++t_index)
{
IShellItem *t_file_item;
t_file_item = NULL;
if (t_succeeded)
{
t_hresult = t_file_items -> GetItemAt(t_index, &t_file_item);
t_succeeded = SUCCEEDED(t_hresult);
}
if (t_succeeded)
{
t_hresult = append_shellitem_path_and_release(t_file_item, t_index == 0, &t_value);
t_succeeded = SUCCEEDED(t_hresult);
}
}
}
if (t_file_items != NULL)
t_file_items -> Release();
}
else
{
IShellItem *t_file_item;
t_file_item = NULL;
if (t_succeeded)
{
t_hresult = t_file_dialog -> GetResult(&t_file_item);
t_succeeded = SUCCEEDED(t_hresult);
}
if (t_succeeded)
{
t_hresult = append_shellitem_path_and_release(t_file_item, true, &t_value);
t_succeeded = SUCCEEDED(t_hresult);
}
}
t_filter_index = 0;
if (t_succeeded && (p_options & MCA_OPTION_FOLDER_DIALOG) == 0)
{
UINT t_index;
t_hresult = t_file_dialog -> GetFileTypeIndex(&t_index);
t_succeeded = SUCCEEDED(t_hresult);
if (t_succeeded)
t_filter_index = (int)t_index;
}
if (t_file_dialog != NULL)
t_file_dialog -> Release();
if (!t_succeeded)
t_result = t_hresult;
else
t_result = 0;
}
else
{
OPENFILENAMEW t_open_dialog;
memset(&t_open_dialog, 0, sizeof(OPENFILENAMEW));
t_open_dialog . lStructSize = sizeof(OPENFILENAMEW);
MCAutoStringRefAsWString t_initial_folder_wstr;
MCAutoStringRefAsWString t_prompt_wstr;
MCAutoStringRefAsWString t_filter_wstr;
/* UNCHECKED */ t_filter_wstr.Lock(p_filter);
/* UNCHECKED */ t_initial_folder_wstr.Lock(*t_initial_native_folder);
/* UNCHECKED */ t_prompt_wstr.Lock(p_prompt);
MCAutoArray<unichar_t> t_buffer;
/* UNCHECKED */ t_buffer.New(MAX_PATH);
if (!MCStringIsEmpty(*t_initial_file))
/* UNCHECKED */ MCStringGetChars(*t_initial_file, MCRangeMake(0, t_buffer.Size()), t_buffer.Ptr());
else
t_buffer[0] = '\0';
t_open_dialog . lpstrFilter = *t_filter_wstr;
t_open_dialog . nFilterIndex = 1;
t_open_dialog . lpstrFile = t_buffer.Ptr();
t_open_dialog . nMaxFile = t_buffer.Size();
t_open_dialog . lpstrInitialDir = *t_initial_folder_wstr;
t_open_dialog . lpstrTitle = *t_prompt_wstr;
t_open_dialog . Flags = OFN_FILEMUSTEXIST | OFN_HIDEREADONLY | OFN_NOCHANGEDIR |
OFN_LONGNAMES | OFN_PATHMUSTEXIST | OFN_EXPLORER |
OFN_ENABLEHOOK | OFN_ENABLESIZING;
if (p_options & MCA_OPTION_PLURAL)
t_open_dialog . Flags |= OFN_ALLOWMULTISELECT;
if (p_options & MCA_OPTION_SAVE_DIALOG)
t_open_dialog . Flags |= OFN_OVERWRITEPROMPT;
t_open_dialog . lpstrFilter = *t_filter_wstr;
t_open_dialog . lpfnHook = open_dialog_hook;
t_open_dialog . hwndOwner = t_window != NULL ? (HWND)t_window -> handle . window : NULL;
if (p_options & MCA_OPTION_SAVE_DIALOG)
t_succeeded = GetSaveFileNameW(&t_open_dialog) == TRUE;
else
{
*t_open_dialog . lpstrFile = '\0';
t_succeeded = GetOpenFileNameW(&t_open_dialog) == TRUE;
}
if (!t_succeeded)
t_result = CommDlgExtendedError();
// MW-2005-07-26: Try again without the specified filename if it was invalid
if (t_result == FNERR_INVALIDFILENAME)
{
*t_open_dialog . lpstrFile = '\0';
if (p_options & MCA_OPTION_SAVE_DIALOG)
t_succeeded = GetSaveFileNameW(&t_open_dialog) == TRUE;
else
t_succeeded = GetOpenFileNameW(&t_open_dialog) == TRUE;
if (!t_succeeded)
t_result = CommDlgExtendedError();
}
if (t_result == FNERR_BUFFERTOOSMALL)
t_succeeded = true;
if (t_succeeded)
{
build_paths(&t_value);
t_filter_index = t_open_dialog . nFilterIndex;
}
}
if (t_succeeded)
{
if (p_options & MCA_OPTION_RETURN_FILTER)
{
// The filter string has the following format:
// "<description0>\0<extensions0>\0<description1>\0...\0<extensionsN>\0"
// so the n'th filter comes after the 2(n - 1)'th null character
uindex_t t_index = 2 * (t_filter_index - 1);
uindex_t t_offset = 0;
while (t_index--)
{
/* UNCHECKED */ MCStringFirstIndexOfChar(p_filter, '\0', t_offset, kMCStringOptionCompareExact, t_offset);
t_offset++;
}
uindex_t t_end;
t_end = UINDEX_MAX;
/* UNCHECKED */ MCStringFirstIndexOfChar(p_filter, '\0', t_offset, kMCStringOptionCompareExact, t_end);
/* UNCHECKED */ MCStringCopySubstring(p_filter, MCRangeMake(t_offset, t_end-t_offset), r_result);
}
t_result = 0;
r_value = MCValueRetain(*t_value);
}
else
r_result = MCValueRetain(MCNameGetString(MCN_cancel));
waitonbutton();
return t_result;
}
