gboolean
mono_rand_try_get_bytes (gpointer *handle, guchar *buffer, gint buffer_size, MonoError *error)
{
g_assert (handle);
mono_error_init (error);
if (use_egd) {
const char *socket_path = g_getenv ("MONO_EGD_SOCKET");
/* exception will be thrown in managed code */
if (socket_path == NULL) {
*handle = NULL;
return FALSE;
}
get_entropy_from_egd (socket_path, buffer, buffer_size, error);
} else {
/* Read until the buffer is filled. This may block if using NAME_DEV_RANDOM. */
gint count = 0;
gint err;
do {
err = read (file, buffer + count, buffer_size - count);
if (err < 0) {
if (errno == EINTR)
continue;
g_warning("Entropy error! Error in read (%s).", strerror (errno));
/* exception will be thrown in managed code */
mono_error_set_execution_engine (error, "Entropy error! Error in read (%s).", strerror (errno));
return FALSE;
}
count += err;
} while (count < buffer_size);
}
return TRUE;
}
/**
* mono_reflection_lookup_dynamic_token:
*
* Finish the Builder object pointed to by TOKEN and return the corresponding
* runtime structure. If HANDLE_CLASS is not NULL, it is set to the class required by
* mono_ldtoken. If valid_token is TRUE, assert if it is not found in the token->object
* mapping table.
*
* LOCKING: Take the loader lock
*/
gpointer
mono_reflection_lookup_dynamic_token (MonoImage *image, guint32 token, gboolean valid_token, MonoClass **handle_class, MonoGenericContext *context, MonoError *error)
{
MonoDynamicImage *assembly = (MonoDynamicImage*)image;
MonoObject *obj;
MonoClass *klass;
error_init (error);
obj = lookup_dyn_token (assembly, token);
if (!obj) {
if (valid_token)
g_error ("Could not find required dynamic token 0x%08x", token);
else {
mono_error_set_execution_engine (error, "Could not find dynamic token 0x%08x", token);
return NULL;
}
}
if (!handle_class)
handle_class = &klass;
gpointer result = mono_reflection_resolve_object (image, obj, handle_class, context, error);
return result;
}
/**
* mono_rand_try_get_bytes:
* @handle: A pointer to an RNG handle. Handle is set to NULL on failure.
* @buffer: A buffer into which to write random data.
* @buffer_size: Number of bytes to write into buffer.
* @error: Set on error.
*
* Returns: FALSE on failure and sets @error, TRUE on success.
*
* Extracts bytes from an RNG handle.
*/
gboolean
mono_rand_try_get_bytes (gpointer *handle, guchar *buffer, gint buffer_size, MonoError *error)
{
HCRYPTPROV provider;
mono_error_init (error);
g_assert (handle);
provider = (HCRYPTPROV) *handle;
if (!CryptGenRandom (provider, buffer_size, buffer)) {
CryptReleaseContext (provider, 0);
/* we may have lost our context with CryptoAPI, but all hope isn't lost yet! */
provider = (HCRYPTPROV) mono_rand_init (NULL, 0);
if (!CryptGenRandom (provider, buffer_size, buffer)) {
/* exception will be thrown in managed code */
CryptReleaseContext (provider, 0);
*handle = 0;
mono_error_set_execution_engine (error, "Failed to gen random bytes (%d)", GetLastError ());
return FALSE;
}
}
return TRUE;
}
/*Can fail with out-of-memory*/
MonoException*
mono_error_prepare_exception (MonoError *oerror, MonoError *error_out)
{
MonoErrorInternal *error = (MonoErrorInternal*)oerror;
MonoException* exception = NULL;
MonoString *assembly_name = NULL, *type_name = NULL, *method_name = NULL, *field_name = NULL, *msg = NULL;
MonoDomain *domain = mono_domain_get ();
mono_error_init (error_out);
switch (error->error_code) {
case MONO_ERROR_NONE:
return NULL;
case MONO_ERROR_MISSING_METHOD:
if ((error->type_name || error->exn.klass) && error->member_name) {
type_name = get_type_name_as_mono_string (error, domain, error_out);
if (!mono_error_ok (error_out))
break;
method_name = mono_string_new (domain, error->member_name);
if (!method_name) {
mono_error_set_out_of_memory (error_out, "Could not allocate method name");
break;
}
exception = mono_exception_from_name_two_strings_checked (mono_defaults.corlib, "System", "MissingMethodException", type_name, method_name, error_out);
if (exception)
set_message_on_exception (exception, error, error_out);
} else {
exception = mono_exception_from_name_msg (mono_defaults.corlib, "System", "MissingMethodException", error->full_message);
}
break;
case MONO_ERROR_MISSING_FIELD:
if ((error->type_name || error->exn.klass) && error->member_name) {
type_name = get_type_name_as_mono_string (error, domain, error_out);
if (!mono_error_ok (error_out))
break;
field_name = mono_string_new (domain, error->member_name);
if (!field_name) {
mono_error_set_out_of_memory (error_out, "Could not allocate field name");
break;
}
exception = mono_exception_from_name_two_strings_checked (mono_defaults.corlib, "System", "MissingFieldException", type_name, field_name, error_out);
if (exception)
set_message_on_exception (exception, error, error_out);
} else {
exception = mono_exception_from_name_msg (mono_defaults.corlib, "System", "MissingFieldException", error->full_message);
}
break;
case MONO_ERROR_TYPE_LOAD:
if ((error->type_name && error->assembly_name) || error->exn.klass) {
type_name = get_type_name_as_mono_string (error, domain, error_out);
if (!mono_error_ok (error_out))
break;
if (error->assembly_name) {
assembly_name = mono_string_new (domain, error->assembly_name);
if (!assembly_name) {
mono_error_set_out_of_memory (error_out, "Could not allocate assembly name");
break;
}
}
exception = mono_exception_from_name_two_strings_checked (mono_get_corlib (), "System", "TypeLoadException", type_name, assembly_name, error_out);
if (exception)
set_message_on_exception (exception, error, error_out);
} else {
exception = mono_exception_from_name_msg (mono_defaults.corlib, "System", "TypeLoadException", error->full_message);
}
break;
case MONO_ERROR_FILE_NOT_FOUND:
case MONO_ERROR_BAD_IMAGE:
if (error->assembly_name) {
msg = mono_string_new (domain, error->full_message);
if (!msg) {
mono_error_set_out_of_memory (error_out, "Could not allocate message");
break;
}
if (error->assembly_name) {
assembly_name = mono_string_new (domain, error->assembly_name);
if (!assembly_name) {
mono_error_set_out_of_memory (error_out, "Could not allocate assembly name");
break;
}
}
if (error->error_code == MONO_ERROR_FILE_NOT_FOUND)
exception = mono_exception_from_name_two_strings_checked (mono_get_corlib (), "System.IO", "FileNotFoundException", msg, assembly_name, error_out);
else
exception = mono_exception_from_name_two_strings_checked (mono_defaults.corlib, "System", "BadImageFormatException", msg, assembly_name, error_out);
} else {
if (error->error_code == MONO_ERROR_FILE_NOT_FOUND)
exception = mono_exception_from_name_msg (mono_get_corlib (), "System.IO", "FileNotFoundException", error->full_message);
else
exception = mono_exception_from_name_msg (mono_defaults.corlib, "System", "BadImageFormatException", error->full_message);
}
break;
case MONO_ERROR_OUT_OF_MEMORY:
exception = mono_get_exception_out_of_memory ();
break;
case MONO_ERROR_ARGUMENT:
exception = mono_get_exception_argument (error->first_argument, error->full_message);
break;
case MONO_ERROR_ARGUMENT_NULL:
exception = mono_get_exception_argument_null (error->first_argument);
break;
case MONO_ERROR_NOT_VERIFIABLE: {
char *type_name = NULL, *message;
if (error->exn.klass) {
type_name = mono_type_get_full_name (error->exn.klass);
if (!type_name) {
mono_error_set_out_of_memory (error_out, "Could not allocate message");
break;
}
}
message = g_strdup_printf ("Error in %s:%s %s", type_name, error->member_name, error->full_message);
if (!message) {
g_free (type_name);
mono_error_set_out_of_memory (error_out, "Could not allocate message");
break;
}
exception = mono_exception_from_name_msg (mono_defaults.corlib, "System.Security", "VerificationException", message);
g_free (message);
g_free (type_name);
break;
}
case MONO_ERROR_GENERIC:
if (!error->exception_name_space || !error->exception_name)
mono_error_set_execution_engine (error_out, "MonoError with generic error but no exception name was supplied");
else
exception = mono_exception_from_name_msg (mono_defaults.corlib, error->exception_name_space, error->exception_name, error->full_message);
break;
case MONO_ERROR_EXCEPTION_INSTANCE:
exception = (MonoException*) mono_gchandle_get_target (error->exn.instance_handle);
break;
case MONO_ERROR_CLEANUP_CALLED_SENTINEL:
mono_error_set_execution_engine (error_out, "MonoError reused after mono_error_cleanup");
break;
case MONO_ERROR_INVALID_PROGRAM: {
gboolean lacks_message = error->flags & MONO_ERROR_INCOMPLETE;
if (lacks_message)
return mono_exception_from_name_msg (mono_defaults.corlib, "System", "InvalidProgramException", "");
else
return mono_exception_from_name_msg (mono_defaults.corlib, "System", "InvalidProgramException", error->full_message);
}
default:
mono_error_set_execution_engine (error_out, "Invalid error-code %d", error->error_code);
}
if (!mono_error_ok (error_out))
return NULL;
if (!exception)
mono_error_set_out_of_memory (error_out, "Could not allocate exception object");
return exception;
}
/*Can fail with out-of-memory*/
MonoException*
mono_error_prepare_exception (MonoError *oerror, MonoError *error_out)
{
HANDLE_FUNCTION_ENTER ();
MonoErrorInternal *error = (MonoErrorInternal*)oerror;
MonoExceptionHandle exception = MONO_HANDLE_CAST (MonoException, mono_new_null ());
MonoDomain *domain = mono_domain_get ();
char *type_name = NULL;
char *message = NULL;
error_init (error_out);
const guint16 error_code = error->error_code;
g_assert (error_code != MONO_ERROR_CLEANUP_CALLED_SENTINEL);
switch (error_code) {
case MONO_ERROR_NONE:
goto exit;
case MONO_ERROR_MISSING_METHOD:
exception = mono_corlib_exception_new_with_args ("System", "MissingMethodException", error->full_message, error->first_argument, error_out);
break;
case MONO_ERROR_BAD_IMAGE:
exception = mono_corlib_exception_new_with_args ("System", "BadImageFormatException", error->full_message, error->first_argument, error_out);
break;
case MONO_ERROR_FILE_NOT_FOUND:
exception = mono_corlib_exception_new_with_args ("System.IO", "FileNotFoundException", error->full_message, error->first_argument, error_out);
break;
case MONO_ERROR_MISSING_FIELD:
exception = mono_corlib_exception_new_with_args ("System", "MissingFieldException", error->full_message, error->first_argument, error_out);
break;
case MONO_ERROR_MEMBER_ACCESS:
exception = mono_exception_new_by_name_msg (mono_defaults.corlib, "System", "MemberAccessException", error->full_message, error_out);
break;
case MONO_ERROR_TYPE_LOAD: {
MonoStringHandle assembly_name;
MonoStringHandle type_name;
if ((error->type_name && error->assembly_name) || error->exn.klass) {
type_name = get_type_name_as_mono_string (error, domain, error_out);
if (!mono_error_ok (error_out))
break;
if (error->assembly_name) {
assembly_name = string_new_cleanup (domain, error->assembly_name);
if (MONO_HANDLE_IS_NULL (assembly_name)) {
mono_error_set_out_of_memory (error_out, "Could not allocate assembly name");
break;
}
} else {
assembly_name = mono_string_empty_handle (domain);
}
exception = mono_exception_from_name_two_strings_checked (mono_get_corlib (), "System", "TypeLoadException", type_name, assembly_name, error_out);
if (!MONO_HANDLE_IS_NULL (exception)) {
const char *full_message = error->full_message;
if (full_message && full_message [0]) {
MonoStringHandle msg = string_new_cleanup (mono_domain_get (), full_message);
if (!MONO_HANDLE_IS_NULL (msg))
MONO_HANDLE_SET (exception, message, msg);
else
mono_error_set_out_of_memory (error_out, "Could not allocate exception object");
}
}
} else {
exception = mono_exception_new_by_name_msg (mono_defaults.corlib, "System", "TypeLoadException", error->full_message, error_out);
}
}
break;
case MONO_ERROR_OUT_OF_MEMORY:
if (domain)
exception = MONO_HANDLE_NEW (MonoException, domain->out_of_memory_ex);
if (MONO_HANDLE_IS_NULL (exception))
exception = mono_get_exception_out_of_memory_handle ();
break;
case MONO_ERROR_ARGUMENT:
exception = mono_exception_new_argument (error->first_argument, error->full_message, error_out);
break;
case MONO_ERROR_ARGUMENT_NULL:
exception = mono_exception_new_argument_null (error->first_argument, error_out);
break;
case MONO_ERROR_ARGUMENT_OUT_OF_RANGE:
exception = mono_exception_new_argument_out_of_range(error->first_argument, error->full_message, error_out);
break;
case MONO_ERROR_NOT_VERIFIABLE:
if (error->exn.klass) {
type_name = mono_type_get_full_name (error->exn.klass);
if (!type_name)
goto out_of_memory;
}
message = g_strdup_printf ("Error in %s:%s %s", type_name, error->member_name, error->full_message);
if (!message)
goto out_of_memory;
exception = mono_exception_new_by_name_msg (mono_defaults.corlib, "System.Security", "VerificationException", message, error_out);
break;
case MONO_ERROR_GENERIC:
if (!error->exception_name_space || !error->exception_name)
mono_error_set_execution_engine (error_out, "MonoError with generic error but no exception name was supplied");
else
exception = mono_exception_new_by_name_msg (mono_defaults.corlib, error->exception_name_space, error->exception_name, error->full_message, error_out);
break;
case MONO_ERROR_EXCEPTION_INSTANCE:
exception = MONO_HANDLE_CAST (MonoException, mono_gchandle_get_target_handle (error->exn.instance_handle));
break;
case MONO_ERROR_CLEANUP_CALLED_SENTINEL:
mono_error_set_execution_engine (error_out, "MonoError reused after mono_error_cleanup");
break;
case MONO_ERROR_INVALID_PROGRAM:
exception = mono_exception_new_by_name_msg (mono_defaults.corlib, "System", "InvalidProgramException",
(error->flags & MONO_ERROR_INCOMPLETE) ? "" : error->full_message, error_out);
break;
default:
mono_error_set_execution_engine (error_out, "Invalid error-code %d", error->error_code);
}
if (!mono_error_ok (error_out))
goto return_null;
if (MONO_HANDLE_IS_NULL (exception))
mono_error_set_out_of_memory (error_out, "Could not allocate exception object");
goto exit;
out_of_memory:
mono_error_set_out_of_memory (error_out, "Could not allocate message");
goto exit;
return_null:
exception = MONO_HANDLE_CAST (MonoException, mono_new_null ());
exit:
g_free (message);
g_free (type_name);
HANDLE_FUNCTION_RETURN_OBJ (exception);
}
static void
get_entropy_from_egd (const char *path, guchar *buffer, int buffer_size, MonoError *error)
{
struct sockaddr_un egd_addr;
gint file;
gint ret;
guint offset = 0;
int err = 0;
mono_error_init (error);
file = socket (PF_UNIX, SOCK_STREAM, 0);
if (file < 0) {
ret = -1;
err = errno;
} else {
egd_addr.sun_family = AF_UNIX;
strncpy (egd_addr.sun_path, path, sizeof (egd_addr.sun_path) - 1);
egd_addr.sun_path [sizeof (egd_addr.sun_path) - 1] = '\0';
ret = connect (file, (struct sockaddr*) &egd_addr, sizeof (egd_addr));
err = errno;
}
if (ret == -1) {
if (file >= 0)
close (file);
g_warning ("Entropy problem! Can't create or connect to egd socket %s", path);
mono_error_set_execution_engine (error, "Failed to open egd socket %s: %s", path, strerror (err));
return;
}
while (buffer_size > 0) {
guchar request [2];
gint count = 0;
/* block until daemon can return enough entropy */
request [0] = 2;
request [1] = buffer_size < 255 ? buffer_size : 255;
while (count < 2) {
int sent = write (file, request + count, 2 - count);
err = errno;
if (sent >= 0) {
count += sent;
} else if (err == EINTR) {
continue;
} else {
close (file);
g_warning ("Send egd request failed %d", err);
mono_error_set_execution_engine (error, "Failed to send request to egd socket: %s", strerror (err));
return;
}
}
count = 0;
while (count != request [1]) {
int received;
received = read (file, buffer + offset, request [1] - count);
err = errno;
if (received > 0) {
count += received;
offset += received;
} else if (received < 0 && err == EINTR) {
continue;
} else {
close (file);
g_warning ("Receive egd request failed %d", err);
mono_error_set_execution_engine (error, "Failed to get response from egd socket: %s", strerror(err));
return;
}
}
buffer_size -= request [1];
}
close (file);
}
