polar-class-table-node.c

/* Internal API: Class table node type 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/>.
*/
 
// polar_class_table_node **********************************************************************************************
// Private =============================================================================================================
 
// This variable is initialized in polar_class_table_node_get_type()
static polar_class_table_node_class class_polar_class_table_node;
 
// This variable is initialized in _polar_class_table_node_class_init()
static polar_runtime_object_class *superclass_polar_class_table_node = NULL;
 
// ---------------------------------------------------------------------------------------------------------------------
 
POLAR_FUNCTION_INTERNAL polar_class_table_node *
_polar_class_table_node_init( polar_class_table_node *self )
{
  // Chain up first
  self = (polar_class_table_node *)
    POLAR_RUNTIME_OBJECT_CLASS(superclass_polar_class_table_node)->init( (polar_runtime_object *)self );
 
  if( self != NULL )
  {
    self->count_references = 1;
    self->class_target = Nil;
  }
 
  return self;
}
 
POLAR_FUNCTION_INTERNAL polar_runtime_object *
_polar_class_table_node_finalize( polar_class_table_node *self )
{
  objc_atomic_exchange_pointer( (void **)(&self->class_target), Nil );
 
  polar_list_node_list_free( (polar_list_node **)(&self->list_class_duplicates) );
 
  polar_memory_free(self->array_inheritance, self->count_superclasses << OBJC_SIZE_SHIFT_POINTER);
  self->array_inheritance = NULL;
 
  self->count_references = 0;
 
  // Chain up
  return POLAR_RUNTIME_OBJECT_CLASS(superclass_polar_class_table_node)->finalize( (polar_runtime_object *)self );
}
 
POLAR_FUNCTION_INTERNAL void
_polar_class_table_node_class_init( polar_class_table_node_class *self )
{
  // Acquire our superclass
  superclass_polar_class_table_node = POLAR_RUNTIME_OBJECT_CLASS(self)->class_superclass;
 
  // Establish our virtual methods
  ( (polar_runtime_object_class *)self )->init = (polar_func_runtime_object_lifecycle)_polar_class_table_node_init;
 
  ( (polar_runtime_object_class *)self )->finalize =
    (polar_func_runtime_object_lifecycle)_polar_class_table_node_finalize;
}
 
static struct polar_internal_type_info pti_polar_class_table_node =
{
  .name_type          = "polar_class_table_node",
  .size_type_instance = sizeof(polar_class_table_node),
  .size_type_class    = sizeof(polar_class_table_node_class),
  .type_class_init    = (polar_func_runtime_object_class_lifecycle)_polar_class_table_node_class_init
};
 
// Public ==============================================================================================================
 
POLAR_FUNCTION_INTERNAL OBJC_FUNCTION_CONSTANT polar_internal_type
polar_class_table_node_get_type( void )
{
  static polar_internal_type pt_polar_class_table_node = POLAR_INTERNAL_TYPE_INVALID;
 
  if( pt_polar_class_table_node != POLAR_INTERNAL_TYPE_INVALID )
    return pt_polar_class_table_node;
 
  pt_polar_class_table_node = polar_internal_type_init( POLAR_TYPE_HASH_TABLE_NODE_STRING_KEY,
                                                        &class_polar_class_table_node, &pti_polar_class_table_node );
 
  return pt_polar_class_table_node;
}
 
POLAR_FUNCTION_INTERNAL void
polar_class_table_node_copy_inheritance( polar_class_table_node *self, polar_class_table_node *node_superclass )
{
  assert( POLAR_IS_CLASS_TABLE_NODE(self) );
  assert( self->array_inheritance == NULL );
 
  if( POLAR_IS_CLASS_TABLE_NODE(node_superclass) )
  {
    self->ofs_class_private_data = node_superclass->ofs_class_private_data;
 
    self->count_superclasses = ( node_superclass->count_superclasses + 1 );
    self->array_inheritance = (struct objc_class **)
      polar_memory_allocate( self->count_superclasses << OBJC_SIZE_SHIFT_POINTER );
 
    if( node_superclass->array_inheritance != NULL )
    {
      assert( self->count_superclasses >= 1 );
 
      objc_memcpy( &self->array_inheritance[1], &node_superclass->array_inheritance[0],
                   node_superclass->count_superclasses << OBJC_SIZE_SHIFT_POINTER );
    }
 
    self->array_inheritance[0] = node_superclass->class_target;
  }
}