/* http://www.dotnet247.com/247reference/msgs/39/195403.aspx
// internal static string[] WindowsIdentity._GetRoles (IntPtr token)
*/
MonoArray*
ves_icall_System_Security_Principal_WindowsIdentity_GetRoles (gpointer token)
{
MonoError error;
MonoArray *array = NULL;
MonoDomain *domain = mono_domain_get ();
#ifdef HOST_WIN32
gint32 size = 0;
GetTokenInformation (token, TokenGroups, NULL, size, (PDWORD)&size);
if (size > 0) {
TOKEN_GROUPS *tg = g_malloc0 (size);
if (GetTokenInformation (token, TokenGroups, tg, size, (PDWORD)&size)) {
int i=0;
int num = tg->GroupCount;
array = mono_array_new_checked (domain, mono_get_string_class (), num, &error);
if (mono_error_set_pending_exception (&error)) {
g_free (tg);
return NULL;
}
for (i=0; i < num; i++) {
gint32 size = 0;
gunichar2 *uniname = GetSidName (NULL, tg->Groups [i].Sid, &size);
if (uniname) {
MonoString *str = mono_string_new_utf16_checked (domain, uniname, size, &error);
if (!is_ok (&error)) {
g_free (uniname);
g_free (tg);
mono_error_set_pending_exception (&error);
return NULL;
}
mono_array_setref (array, i, str);
g_free (uniname);
}
}
}
g_free (tg);
}
#else
/* POSIX-compliant systems should use IsMemberOfGroupId or IsMemberOfGroupName */
g_warning ("WindowsIdentity._GetRoles should never be called on POSIX");
#endif
if (!array) {
/* return empty array of string, i.e. string [0] */
array = mono_array_new_checked (domain, mono_get_string_class (), 0, &error);
mono_error_set_pending_exception (&error);
}
return array;
}
MonoArray*
ves_icall_System_Security_Principal_WindowsIdentity_GetRoles (gpointer token)
{
ERROR_DECL (error);
MonoArray *array = NULL;
MonoDomain *domain = mono_domain_get ();
/* POSIX-compliant systems should use IsMemberOfGroupId or IsMemberOfGroupName */
g_warning ("WindowsIdentity._GetRoles should never be called on POSIX");
if (!array) {
/* return empty array of string, i.e. string [0] */
array = mono_array_new_checked (domain, mono_get_string_class (), 0, error);
mono_error_set_pending_exception (error);
}
return array;
}
void ves_icall_System_Globalization_CompareInfo_assign_sortkey (MonoCompareInfo *this_obj, MonoSortKey *key, MonoString *source, gint32 options)
{
MonoError error;
MonoArray *arr;
gint32 keylen, i;
keylen=mono_string_length (source);
arr=mono_array_new_checked (mono_domain_get (), mono_get_byte_class (),
keylen, &error);
if (mono_error_set_pending_exception (&error))
return;
for(i=0; i<keylen; i++) {
mono_array_set (arr, guint8, i, mono_string_chars (source)[i]);
}
MONO_OBJECT_SETREF (key, key, arr);
}
MonoArray *
ves_icall_System_Diagnostics_Process_GetProcesses_internal (void)
{
MonoError error;
MonoArray *procs;
gboolean ret;
DWORD needed;
int count;
DWORD *pids;
count = 512;
do {
pids = g_new0 (DWORD, count);
ret = mono_process_win_enum_processes (pids, count * sizeof (guint32), &needed);
if (ret == FALSE) {
MonoException *exc;
g_free (pids);
pids = NULL;
exc = mono_get_exception_not_supported ("This system does not support EnumProcesses");
mono_set_pending_exception (exc);
return NULL;
}
if (needed < (count * sizeof (guint32)))
break;
g_free (pids);
pids = NULL;
count = (count * 3) / 2;
} while (TRUE);
count = needed / sizeof (guint32);
procs = mono_array_new_checked (mono_domain_get (), mono_get_int32_class (), count, &error);
if (mono_error_set_pending_exception (&error)) {
g_free (pids);
return NULL;
}
memcpy (mono_array_addr (procs, guint32, 0), pids, needed);
g_free (pids);
pids = NULL;
return procs;
}
MonoArrayHandle
mono_array_new_handle (MonoDomain *domain, MonoClass *eclass, uintptr_t n, MonoError *error)
{
return MONO_HANDLE_NEW (MonoArray, mono_array_new_checked (domain, eclass, n, error));
}
MonoArray*
ves_icall_System_Globalization_CultureInfo_internal_get_cultures (MonoBoolean neutral,
MonoBoolean specific, MonoBoolean installed)
{
MonoError error;
MonoArray *ret;
MonoClass *klass;
MonoCultureInfo *culture;
MonoDomain *domain;
const CultureInfoEntry *ci;
gint i, len;
gboolean is_neutral;
domain = mono_domain_get ();
len = 0;
for (i = 0; i < NUM_CULTURE_ENTRIES; i++) {
ci = &culture_entries [i];
is_neutral = ci->territory == 0;
if ((neutral && is_neutral) || (specific && !is_neutral))
len++;
}
klass = mono_class_get_culture_info_class ();
/* The InvariantCulture is not in culture_entries */
/* We reserve the first slot in the array for it */
if (neutral)
len++;
ret = mono_array_new_checked (domain, klass, len, &error);
if (!is_ok (&error))
goto fail;
if (len == 0)
return ret;
len = 0;
if (neutral)
mono_array_setref (ret, len++, NULL);
for (i = 0; i < NUM_CULTURE_ENTRIES; i++) {
ci = &culture_entries [i];
is_neutral = ci->territory == 0;
if ((neutral && is_neutral) || (specific && !is_neutral)) {
culture = (MonoCultureInfo *) mono_object_new_checked (domain, klass, &error);
if (!is_ok (&error)) goto fail;
mono_runtime_object_init_checked ((MonoObject *) culture, &error);
if (!is_ok (&error)) goto fail;
if (!construct_culture (culture, ci, &error))
goto fail;
culture->use_user_override = TRUE;
mono_array_setref (ret, len++, culture);
}
}
return ret;
fail:
mono_error_set_pending_exception (&error);
return ret;
}
MonoBoolean
ves_icall_System_ConsoleDriver_TtySetup (MonoString *keypad, MonoString *teardown, MonoArray **control_chars, int **size)
{
MonoError error;
int dims;
dims = terminal_get_dimensions ();
if (dims == -1){
int cols = 0, rows = 0;
const char *str = g_getenv ("COLUMNS");
if (str != NULL)
cols = atoi (str);
str = g_getenv ("LINES");
if (str != NULL)
rows = atoi (str);
if (cols != 0 && rows != 0)
cols_and_lines = (cols << 16) | rows;
else
cols_and_lines = -1;
} else {
cols_and_lines = dims;
}
*size = &cols_and_lines;
/* 17 is the number of entries set in set_control_chars() above.
* NCCS is the total size, but, by now, we only care about those 17 values*/
MonoArray *control_chars_arr = mono_array_new_checked (mono_domain_get (), mono_defaults.byte_class, 17, &error);
if (mono_error_set_pending_exception (&error))
return FALSE;
mono_gc_wbarrier_generic_store (control_chars, (MonoObject*) control_chars_arr);
if (tcgetattr (STDIN_FILENO, &initial_attr) == -1)
return FALSE;
mono_attr = initial_attr;
mono_attr.c_lflag &= ~(ICANON);
mono_attr.c_iflag &= ~(IXON|IXOFF);
mono_attr.c_cc [VMIN] = 1;
mono_attr.c_cc [VTIME] = 0;
#ifdef VDSUSP
/* Disable C-y being used as a suspend character on OSX */
mono_attr.c_cc [VDSUSP] = 255;
#endif
if (tcsetattr (STDIN_FILENO, TCSANOW, &mono_attr) == -1)
return FALSE;
set_control_chars (*control_chars, mono_attr.c_cc);
/* If initialized from another appdomain... */
if (setup_finished)
return TRUE;
keypad_xmit_str = NULL;
if (keypad != NULL) {
keypad_xmit_str = mono_string_to_utf8_checked (keypad, &error);
if (mono_error_set_pending_exception (&error))
return FALSE;
}
console_set_signal_handlers ();
setup_finished = TRUE;
if (!atexit_called) {
if (teardown != NULL) {
teardown_str = mono_string_to_utf8_checked (teardown, &error);
if (mono_error_set_pending_exception (&error))
return FALSE;
}
mono_atexit (tty_teardown);
}
return TRUE;
}