bool MCArraysCopyTransposed(MCArrayRef self, MCArrayRef& r_transposed)
{
MCAutoArray<array_extent_t> t_extents;
if (!MCArraysCopyExtents(self, t_extents.PtrRef(), t_extents.SizeRef()) ||
t_extents.Size() != 2)
return false;
integer_t t_rows = extent_size(t_extents[0]);
integer_t t_cols = extent_size(t_extents[1]);
integer_t t_row_end = t_extents[0].min + t_rows;
integer_t t_col_end = t_extents[1].min + t_cols;
if (MCArrayGetCount(self) != t_rows * t_cols)
return false;
MCAutoArrayRef t_transposed;
if (!MCArrayCreateMutable(&t_transposed))
return false;
for (integer_t r = t_extents[0].min; r < t_row_end; r++)
{
for (integer_t c = t_extents[1].min; c < t_col_end; c++)
{
MCAutoStringRef t_src_string, t_dst_string;
MCNewAutoNameRef t_src_name, t_dst_name;
MCValueRef t_value;
if (!MCStringFormat(&t_src_string, "%d,%d", r, c) ||
!MCStringFormat(&t_dst_string, "%d,%d", c, r))
return false;
if (!MCNameCreate(*t_src_string, &t_src_name) ||
!MCNameCreate(*t_dst_string, &t_dst_name))
return false;
if (!MCArrayFetchValue(self, true, *t_src_name, t_value) ||
!MCArrayStoreValue(*t_transposed, true, *t_dst_name, t_value))
return false;
}
}
return MCArrayCopy(*t_transposed, r_transposed);
}
bool MCContactAddPropertyWithLabel(MCArrayRef p_contact, MCNameRef p_property, MCNameRef p_label, MCValueRef p_value)
{
MCValueRef t_element;
MCValueRef t_array;
if (!MCArrayFetchValue(p_contact, false, p_property, t_array) ||
!MCValueIsArray(t_array) ||
!MCArrayFetchValue((MCArrayRef)t_array, false, p_label, t_array))
return false;
uindex_t t_index = 1;
if (!MCValueIsArray(t_array))
t_index = 1;
else
t_index = MCArrayGetCount((MCArrayRef)t_array) + 1;
MCAutoArrayRef t_copied_array;
if (MCArrayCopy((MCArrayRef) t_array, &t_copied_array))
return MCArrayStoreValueAtIndex(*t_copied_array, t_index, p_value);
return false;
}
bool MCArraysCreateWithMatrix(matrix_t *p_matrix, MCArrayRef& r_array)
{
MCAutoArrayRef t_array;
if (!MCArrayCreateMutable(&t_array))
return false;
for (integer_t r = 0; r < p_matrix->rows; r++)
{
for (integer_t c = 0; c < p_matrix->columns; c++)
{
MCAutoStringRef t_string;
MCNewAutoNameRef t_key;
MCAutoNumberRef t_value;
if (!MCStringFormat(&t_string, "%d,%d", r + p_matrix->row_offset, c + p_matrix->column_offset) ||
!MCNameCreate(*t_string, &t_key) ||
!MCNumberCreateWithReal(MCMatrixEntry(p_matrix, r, c), &t_value) ||
!MCArrayStoreValue(*t_array, true, *t_key, *t_value))
return false;
}
}
return MCArrayCopy(*t_array, r_array);
}
void MCArraysExecSplitAsSet(MCExecContext& ctxt, MCStringRef p_string, MCStringRef p_element_delimiter, MCArrayRef& r_array)
{
// Split the incoming string into its components
MCAutoArrayRef t_keys;
if (!MCStringSplit(p_string, p_element_delimiter, nil, ctxt . GetStringComparisonType(), &t_keys))
{
ctxt . Throw();
return;
}
// The new array, with keys equal to the components of the string
MCAutoArrayRef t_array;
if (!MCArrayCreateMutable(&t_array))
{
ctxt . Throw();
return;
}
MCNameRef t_key_ignored;
MCValueRef t_value;
uintptr_t t_iterator = 0;
while (MCArrayIterate(*t_keys, t_iterator, t_key_ignored, t_value))
{
// The value stored at each key is a boolean "true"
MCNewAutoNameRef t_keyname;
if (!ctxt . ConvertToName(t_value, &t_keyname)
|| !MCArrayStoreValue(*t_array, ctxt . GetCaseSensitive(), *t_keyname, kMCTrue))
{
ctxt . Throw();
return;
}
}
MCArrayCopy(*t_array, r_array);
}
void MCLicenseSetRevLicenseLimits(MCExecContext& ctxt, MCArrayRef p_settings)
{
if(!MCenvironmentactive)
return;
bool t_case_sensitive = ctxt . GetCaseSensitive();
MCValueRef t_value;
MCStringRef t_string;
if (MCArrayFetchValue(p_settings, t_case_sensitive, MCNAME("token"), t_value)
&& ctxt . ConvertToString(t_value, t_string))
{
MCValueRelease(MClicenseparameters . license_token);
MClicenseparameters . license_token = t_string;
}
if (MCArrayFetchValue(p_settings, t_case_sensitive, MCNAME("name"), t_value)
&& ctxt . ConvertToString(t_value, t_string))
{
MCValueRelease(MClicenseparameters . license_name);
MClicenseparameters . license_name = t_string;
}
if (MCArrayFetchValue(p_settings, t_case_sensitive, MCNAME("organization"), t_value)
&& ctxt . ConvertToString(t_value, t_string))
{
MCValueRelease( MClicenseparameters . license_organization);
MClicenseparameters . license_organization = t_string;
}
if (MCArrayFetchValue(p_settings, t_case_sensitive, MCNAME("class"), t_value))
{
MCAutoStringRef t_class;
MCLicenseClass t_license_class;
if (ctxt . ConvertToString(t_value, &t_class) && MCStringToLicenseClass(*t_class, t_license_class))
{
MClicenseparameters . license_class = t_license_class;
}
else
MClicenseparameters . license_class = kMCLicenseClassNone;
}
if (MCArrayFetchValue(p_settings, t_case_sensitive, MCNAME("multiplicity"), t_value))
{
MCAutoNumberRef t_number;
if (ctxt.ConvertToNumber(t_value, &t_number))
{
MClicenseparameters . license_multiplicity = MCNumberFetchAsUnsignedInteger(*t_number);
}
}
if (MCArrayFetchValue(p_settings, t_case_sensitive, MCNAME("scriptlimit"), t_value))
{
MCAutoNumberRef t_number;
if (ctxt.ConvertToNumber(t_value, &t_number))
{
integer_t t_limit;
t_limit = MCNumberFetchAsInteger(*t_number);
MClicenseparameters . script_limit = t_limit <= 0 ? 0 : t_limit;
}
}
if (MCArrayFetchValue(p_settings, t_case_sensitive, MCNAME("dolimit"), t_value))
{
MCAutoNumberRef t_number;
if (ctxt.ConvertToNumber(t_value, &t_number))
{
integer_t t_limit;
t_limit = MCNumberFetchAsInteger(*t_number);
MClicenseparameters . do_limit = t_limit <= 0 ? 0 : t_limit;
}
}
if (MCArrayFetchValue(p_settings, t_case_sensitive, MCNAME("usinglimit"), t_value))
{
MCAutoNumberRef t_number;
if (ctxt.ConvertToNumber(t_value, &t_number))
{
integer_t t_limit;
t_limit = MCNumberFetchAsInteger(*t_number);
MClicenseparameters . using_limit = t_limit <= 0 ? 0 : t_limit;
}
}
if (MCArrayFetchValue(p_settings, t_case_sensitive, MCNAME("insertlimit"), t_value))
{
MCAutoNumberRef t_number;
if (ctxt.ConvertToNumber(t_value, &t_number))
{
integer_t t_limit;
t_limit = MCNumberFetchAsInteger(*t_number);
MClicenseparameters . insert_limit = t_limit <= 0 ? 0 : t_limit;
}
}
if (MCArrayFetchValue(p_settings, t_case_sensitive, MCNAME("deploy"), t_value))
{
static struct { const char *tag; uint32_t value; } s_deploy_map[] =
{
{ "windows", kMCLicenseDeployToWindows },
{ "macosx", kMCLicenseDeployToMacOSX },
{ "linux", kMCLicenseDeployToLinux },
{ "ios", kMCLicenseDeployToIOS },
{ "android", kMCLicenseDeployToAndroid },
{ "winmobile", kMCLicenseDeployToWinMobile },
{ "meego", kMCLicenseDeployToLinuxMobile },
{ "server", kMCLicenseDeployToServer },
{ "ios-embedded", kMCLicenseDeployToIOSEmbedded },
{ "android-embedded", kMCLicenseDeployToIOSEmbedded },
{ "html5", kMCLicenseDeployToHTML5 },
{ "filemaker", kMCLicenseDeployToFileMaker },
};
MClicenseparameters . deploy_targets = 0;
MCAutoStringRef t_params;
if (ctxt . ConvertToString(t_value, &t_params))
{
MCAutoArrayRef t_split_strings;
MCValueRef t_fetched_string;
if (MCStringSplit(*t_params, MCSTR(","), nil, kMCCompareExact, &t_split_strings))
{
for(uint32_t i = 0; i < MCArrayGetCount(*t_split_strings); i++)
{
// Fetch the string value created with MCStringSplit
MCArrayFetchValueAtIndex(*t_split_strings, i+1, t_fetched_string);
for(uint32_t j = 0; j < sizeof(s_deploy_map) / sizeof(s_deploy_map[0]); j++)
if (MCStringIsEqualToCString((MCStringRef)t_fetched_string, s_deploy_map[j] . tag, kMCStringOptionCompareCaseless))
{
MClicenseparameters . deploy_targets |= s_deploy_map[j] . value;
break;
}
}
}
}
}
if (MCArrayFetchValue(p_settings, t_case_sensitive, MCNAME("addons"), t_value) && MCValueIsArray(t_value))
{
MCValueRelease(MClicenseparameters . addons);
MCArrayCopy((MCArrayRef)t_value, MClicenseparameters . addons);
}
}
void MCArraysExecSplitByColumn(MCExecContext& ctxt, MCStringRef p_string, MCArrayRef& r_array)
{
MCStringRef t_row_delim, t_column_delim;
t_row_delim = ctxt . GetRowDelimiter();
t_column_delim = ctxt . GetColumnDelimiter();
// Output array
MCAutoArrayRef t_array;
if (!MCArrayCreateMutable(&t_array))
{
ctxt . Throw();
return;
}
// Temporary array for storing columns
MCAutoArray<MCStringRef> t_temp_array;
// Iterate over the rows of the input string
uindex_t t_offset, t_length;
t_offset = 0;
t_length = MCStringGetLength(p_string);
bool t_success;
t_success = true;
uindex_t t_row_index;
t_row_index = 0;
while (t_success && t_offset < t_length)
{
// Find the end of this row
MCRange t_row_found;
if (!MCStringFind(p_string, MCRangeMake(t_offset, UINDEX_MAX), t_row_delim, ctxt . GetStringComparisonType(), &t_row_found))
{
t_row_found . offset = t_length;
t_row_found . length = 0;
}
// Iterate over the cells of this row
uindex_t t_cell_offset, t_column_index;
t_cell_offset = t_offset;
t_column_index = 0;
while (t_success && t_cell_offset <= t_row_found . offset)
{
// Find the end of this cell
MCRange t_cell_found;
if (!MCStringFind(p_string, MCRangeMake(t_cell_offset, UINDEX_MAX), t_column_delim, ctxt . GetStringComparisonType(), &t_cell_found) || t_cell_found . offset > t_row_found . offset)
{
t_cell_found . offset = t_row_found . offset;
// AL-2014-08-04: [[ Bug 13090 ]] Make sure cell offset is incremented eventually when the delimiter is not found
t_cell_found . length = 1;
}
// Check that the output array has a slot for this column
if (t_temp_array.Size() <= t_column_index)
t_temp_array.Extend(t_column_index + 1);
// Check that a string has been created to store this column
MCRange t_range;
t_range = MCRangeMake(t_cell_offset, t_cell_found . offset - t_cell_offset);
if (t_temp_array[t_column_index] == nil)
{
t_success = MCStringCreateMutable(0, t_temp_array[t_column_index]);
// AL-2014-08-04: [[ Bug 13090 ]] If we are creating a new column, make sure we pad with empty cells 'above' this one
uindex_t t_rows = t_row_index;
while (t_success && t_rows--)
t_success = MCStringAppend(t_temp_array[t_column_index], t_row_delim);
if (t_success)
t_success = MCStringAppendFormat(t_temp_array[t_column_index], "%*@", &t_range, p_string);
}
else
{
// AL-2014-06-12: [[ Bug 12610 ]] Range parameter to MCStringFormat must be a pointer to an MCRange
t_success = MCStringAppendFormat(t_temp_array[t_column_index], "%@%*@", t_row_delim, &t_range, p_string);
}
// Next cell
t_column_index++;
t_cell_offset = t_cell_found . offset + t_cell_found . length;
}
// AL-2014-08-04: [[ Bug 13090 ]] Pad the rest of this row with empty cells
index_t t_pad_number;
t_pad_number = t_temp_array . Size() - t_column_index;
if (t_success && t_pad_number > 0)
{
while (t_success && t_pad_number--)
t_success = MCStringAppend(t_temp_array[t_column_index++], t_row_delim);
}
// Next row
t_row_index++;
t_offset = t_row_found . offset + t_row_found . length;
}
// Convert the temporary array into a "proper" array
for (uindex_t i = 0; i < t_temp_array.Size() && t_success; i++)
{
t_success = MCArrayStoreValueAtIndex(*t_array, i + 1, t_temp_array[i]);
MCValueRelease(t_temp_array[i]);
}
if (t_success)
t_success = MCArrayCopy(*t_array, r_array);
if (!t_success)
ctxt . Throw();
}
