polar-runtime-error.c

/* Internal API: runtime error handling for polar-objc.
   Copyright (C) 2022-2025 Michael Malicoat <[email protected]>
 
   This file is part of polar-objc.
 
   polar-objc is free software; you can redistribute it and/or modify it under the terms of the GNU General Public
   License as published by the Free Software Foundation; either version 3, or (at your option) any later version.
 
   polar-objc is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied
   warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
   details.
 
   You should have received a copy of the GNU General Public License along with this program; see the file LICENSE.  If
   not, see <http://www.gnu.org/licenses/>.
*/
 
// Private =============================================================================================================
 
#define POLAR_STRING_BANNER_RUNTIME_ERROR "** FATAL ** runtime error ***\n"
 
// Default routines ----------------------------------------------------------------------------------------------------
 
POLAR_FUNCTION_INTERNAL OBJC_NORETURN void
_polar_runtime_error_assertion_failed_default( const char *expr_text, const char *expr_source, intptr_t idx_expr )
{
  polar_error_printf( POLAR_STRING_BANNER_DEBUG, "%s: %D: assertion failed: %s",
                      expr_source, idx_expr, expr_text );
 
  thrd_process_abort();
}
 
POLAR_FUNCTION_INTERNAL OBJC_NORETURN void
_polar_runtime_error_class_missing_default( const char *name_class_missing )
{
  polar_error_printf( POLAR_STRING_BANNER_RUNTIME_ERROR, "%s: unknown class name",
                      name_class_missing );
 
  thrd_process_abort();
}
 
POLAR_FUNCTION_INTERNAL OBJC_NORETURN void
_polar_runtime_error_exception_invalid_throw_default( const char *name_exception_source, intptr_t idx_exception_source )
{
  polar_error_printf( POLAR_STRING_BANNER_RUNTIME_ERROR, "%s: %D: invalid @throw() statement",
                      name_exception_source, idx_exception_source );
 
  thrd_process_abort();
}
 
POLAR_FUNCTION_INTERNAL OBJC_NORETURN void
_polar_runtime_error_exception_unhandled_default( id inst_exception_unhandled )
{
  polar_error_printf( POLAR_STRING_BANNER_RUNTIME_ERROR, "%o: unhandled exception",
                      inst_exception_unhandled );
 
  thrd_process_abort();
}
 
POLAR_FUNCTION_INTERNAL OBJC_NORETURN void
_polar_runtime_error_foreach_enum_mutated_default( id inst_collection_mutated )
{
  polar_error_printf( POLAR_STRING_BANNER_RUNTIME_ERROR,
                      "%o: collection instance mutated during fast enumeration",
                      inst_collection_mutated );
 
  thrd_process_abort();
}
 
POLAR_FUNCTION_INTERNAL OBJC_NORETURN void
_polar_runtime_error_memory_exhausted_default( size_t count_bytes_needed )
{
  polar_error_printf( POLAR_STRING_BANNER_RUNTIME_ERROR,
                      "virtual memory exhausted; failed to allocate %z bytes",
                      count_bytes_needed );
 
  thrd_process_abort();
}
 
POLAR_FUNCTION_INTERNAL OBJC_NORETURN void
_polar_runtime_error_message_unrecognized_default( SEL sel_message, id id_recipient )
{
  polar_error_printf( POLAR_STRING_BANNER_RUNTIME_ERROR,
                      "%m: failed to locate method implementation",
                      id_recipient, sel_message );
 
  thrd_process_abort();
}
 
POLAR_FUNCTION_INTERNAL OBJC_NORETURN void
_polar_runtime_error_module_init_failed_default( struct objc_module *module_failed )
{
  polar_error_printf( POLAR_STRING_BANNER_RUNTIME_ERROR, "%M: module initialization failed",
                      module_failed );
 
  thrd_process_abort();
}
 
POLAR_FUNCTION_INTERNAL OBJC_NORETURN void
_polar_runtime_error_module_version_mismatch_default( struct objc_module *module_failed, ulong version_expected )
{
  polar_error_printf( POLAR_STRING_BANNER_RUNTIME_ERROR,
                      "%M: module version mismatch; expected %u, got %u",
                      version_expected, module_failed->version_module );
 
  thrd_process_abort();
}
 
POLAR_FUNCTION_INTERNAL OBJC_NORETURN void
_polar_runtime_error_protocol_version_mismatch_default( struct objc_protocol_static *protocol_failed,
                                                        uintptr_t version_expected )
{
  polar_error_printf( POLAR_STRING_BANNER_RUNTIME_ERROR,
                      "%P: protocol version mismatch; expected %U, got %U",
                      version_expected, protocol_failed->version_protocol );
 
  thrd_process_abort();
}
 
POLAR_FUNCTION_INTERNAL OBJC_NORETURN void
_polar_runtime_error_subsystem_init_failed_default( const char *name_subsystem_failed )
{
  polar_error_printf( POLAR_STRING_BANNER_RUNTIME_ERROR, "%s: initialization failed",
                      name_subsystem_failed );
 
  thrd_process_abort();
}
 
POLAR_FUNCTION_INTERNAL OBJC_NORETURN void
_polar_runtime_error_thread_operation_failed_default( const char *str_description )
{
  polar_error_printf( POLAR_STRING_BANNER_RUNTIME_ERROR, "thread operation failed: %s",
                      str_description );
 
  thrd_process_abort();
}
 
POLAR_FUNCTION_INTERNAL OBJC_NORETURN void
_polar_runtime_error_type_init_failed_default( const char *name_type_failed )
{
  polar_error_printf( POLAR_STRING_BANNER_RUNTIME_ERROR, "%s: type initialization failed",
                      name_type_failed );
 
  thrd_process_abort();
}
 
static struct polar_vmt_runtime_error_handlers polar_runtime_error_handlers_default =
{
  _polar_runtime_error_assertion_failed_default,
  _polar_runtime_error_class_missing_default,
  _polar_runtime_error_exception_invalid_throw_default,
  _polar_runtime_error_exception_unhandled_default,
  _polar_runtime_error_foreach_enum_mutated_default,
  _polar_runtime_error_memory_exhausted_default,
  _polar_runtime_error_message_unrecognized_default,
  _polar_runtime_error_module_init_failed_default,
  _polar_runtime_error_module_version_mismatch_default,
  _polar_runtime_error_protocol_version_mismatch_default,
  _polar_runtime_error_subsystem_init_failed_default,
  _polar_runtime_error_thread_operation_failed_default,
  _polar_runtime_error_type_init_failed_default
};
 
struct polar_vmt_runtime_error_handlers *POLAR_RUNTIME_ERROR = &polar_runtime_error_handlers_default;
 
// Public ==============================================================================================================
 
POLAR_FUNCTION_INTERNAL struct polar_vmt_runtime_error_handlers *
polar_runtime_error_set_handlers( struct polar_vmt_runtime_error_handlers *vmt_handlers_new )
{
  void *result;
 
  if( vmt_handlers_new != NULL )
    result = objc_atomic_exchange_pointer( (void **)(&POLAR_RUNTIME_ERROR), vmt_handlers_new );
 
  else
    result = objc_atomic_exchange_pointer( (void **)(&POLAR_RUNTIME_ERROR),&polar_runtime_error_handlers_default );
 
  return (struct polar_vmt_runtime_error_handlers *)result;
}