libs-base/Source/o_x_bas.m.in

/* Basic functions for @XX@ structures.
 * Copyright (C) 1995, 1996  Free Software Foundation, Inc.
 * 
 * Author: Albin L. Jones <Albin.L.Jones@Dartmouth.EDU>
 * Created: Tue Dec 12 12:33:01 EST 1995
 * Updated: Mon Mar 11 00:56:35 EST 1996
 * Serial: 96.03.11.02
 * 
 * This file is part of the GNUstep Base Library.
 * 
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Library General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) any later version.
 * 
 * This library 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
 * Library General Public License for more details.
 * 
 * You should have received a copy of the GNU Library General Public
 * License along with this library; if not, write to the Free
 * Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA. */ 

/**** Included Headers *******************************************************/

#include <config.h>
#include <Foundation/NSZone.h>
#include <Foundation/NSString.h>
#include <base/numbers.h>
#include <base/o_@XX@.h>

/**** Type, Constant, and Macro Definitions **********************************/

#define __@XX@__ 1

/**** Function Implementations ***********************************************/

/** Magic numbers... **/

/* Returns XX's magic number. */
inline int
o_@XX@_magic_number(o_@XX@_t *xx)
{
  return xx->magic_number;
}

/** Zones... **/

/* Returns the zone used to create and maintain XX. */
inline NSZone *
o_@XX@_zone(o_@XX@_t *xx)
{
  return NSZoneFromPointer(xx);
}

/** Names... **/

/* Returns the name that was given to XX. */
inline NSString *
o_@XX@_name(o_@XX@_t *xx)
{
  return xx->name;
}

/* Gives XX a name. */
inline void
o_@XX@_set_name(o_@XX@_t *xx, NSString *name)
{
  [name retain];
  [xx->name release];
  xx->name = name;
  return;
}

/* Takes away XX's name. */
inline void
o_@XX@_unset_name(o_@XX@_t *xx)
{
  [xx->name release];
  xx->name = nil;
  return;
}

/** Number **/

/* Returns the (process-wide) unique serial number given to the
 * structure XX.  See <gnustep/base/numbers.h> for more info. */
inline size_t
o_@XX@_serial_number(o_@XX@_t *xx)
{
  return xx->serial_number;
}

/* Gives XX a new (process-wide) unique number.  Numbers are not
 * reused.  See <gnustep/base/numbers.h> for more info. */
inline size_t
_o_@XX@_set_serial_number(o_@XX@_t *xx)
{
  size_t old_number;

  old_number = xx->serial_number;
  xx->serial_number = (___o_number_serialized)++;

  return old_number;
}

/** Extras **/

/* Sets the callbacks associated with XX's ``extra''.  NOTE: This must
 * be done before calling `o_@XX@_set_extra()', as these callbacks
 * are used in that routine. */
inline o_callbacks_t
o_@XX@_set_extra_callbacks(o_@XX@_t *xx,
                                 o_callbacks_t callbacks)
{
  o_callbacks_t old_callbacks;

  /* Remember the old callbacks for later. */
  old_callbacks = xx->extra_callbacks;

  /* Set the new callbacks. */
  xx->extra_callbacks = callbacks;

  /* Release the old contents. */
  o_release(old_callbacks, (void *)(xx->extra), xx);

  /* Set the contents to something noticible. */
  xx->extra = (xx->extra_callbacks).not_an_item_marker;

  return old_callbacks;
}

/* Returns the callbacks associated with XX's ``extra''. */
inline o_callbacks_t
o_@XX@_extra_callbacks(o_@XX@_t *xx)
{
  return xx->extra_callbacks;
}

/* Returns XX's ``extra'', a little extra space that each
 * structure carries around with it.  Its use is
 * implementation-dependent. */
inline const void *
o_@XX@_extra(o_@XX@_t *xx)
{
  return xx->extra;
}

/* Sets XX's ``extra'', a little extra space that each structure
 * carries around with it.  Its use is implementation-dependent. */
inline const void *
o_@XX@_set_extra(o_@XX@_t *xx, const void *extra)
{
  const void *old_extra;

  /* Out with the old, and in with the new. */
  old_extra = xx->extra;
  xx->extra = o_retain(xx->extra_callbacks, extra, xx);
  o_release(xx->extra_callbacks, (void *)old_extra, xx);

  return old_extra;
}

/* Resets XX's ``extra''. */
inline void
o_@XX@_unset_extra (o_@XX@_t *xx)
{
  /* Release XX's extra. */
  o_release(xx->extra_callbacks, (void *)(xx->extra), xx);

  /* Reset XX's extra. */
  xx->extra = (xx->extra_callbacks).not_an_item_marker;

  return;
}

/** Low-level Creation and Destruction **/

/* Handles the universal, low-level allocation of structures. */
inline o_@XX@_t *
_o_@XX@_alloc_with_zone(NSZone *zone)
{
  o_@XX@_t *xx;

  /* Try to allocate some space for XX. */
  xx = (o_@XX@_t *) NSZoneMalloc(zone, sizeof(o_@XX@_t));

  /* The `o_malloc()' was successful. */
  if (xx != 0)
    {
      _o_@XX@_set_serial_number(xx);
      xx->magic_number = _OBJECTS_MAGIC_@XX@;
      xx->name = 0;
      xx->extra_callbacks = o_callbacks_for_non_owned_void_p;
      xx->extra = 0;

      /* Increment the counter of allocated structures. */
      ++(___o_number_allocated);
    }

  return xx;
}

/* Handles the universal, low-level deallocation of @XX@ structures. */
inline void
_o_@XX@_dealloc(o_@XX@_t *xx)
{
  /* Make sure XX is valid. */
  if (xx != 0)
  {
    /* Free up any space we needed to keep track of XX's name. */
    if (xx->name != 0)
      NSZoneFree(o_@XX@_zone(xx), (char *)(xx->name));

    /* Release XX's extra. */
    o_@XX@_unset_extra(xx);

    /* Free up XX itself. */
    NSZoneFree(o_@XX@_zone(xx), xx);

    /* Increment the counter of deallocated structures. */
    ++(___o_number_deallocated);
  }

  return;
}

/* Handles the low-level copying of structures. */
inline o_@XX@_t *
_o_@XX@_copy_with_zone(o_@XX@_t *xx, NSZone *zone)
{
  o_@XX@_t *new;

  /* Create a new structure. */
  new = _o_@XX@_alloc_with_zone(zone);

  if (new != 0)
  {
    /* Copy over XX's name. */
    o_@XX@_set_name(new, o_@XX@_name(xx));

    /* Copy over XX's extras. */
    o_@XX@_set_extra_callbacks(new, o_@XX@_extra_callbacks(xx));
    o_@XX@_set_extra(new, o_@XX@_extra(xx));
  }

  return new;
}

inline NSString *
_o_@XX@_description(o_@XX@_t *xx)
{
  return [NSString
	   stringWithFormat: @"magic_number = %#x;\nserial_number = %d;\n"
	   @"name = %s;\nextra = %s;\nzone = %s;\n",
	   o_@XX@_magic_number(xx),
	   o_@XX@_serial_number(xx),
	   [o_@XX@_name(xx) cString],
	   [o_describe(o_@XX@_extra_callbacks(xx), o_@XX@_extra(xx), xx)
		      cString],
	   [NSZoneName(o_@XX@_zone(xx)) cString]];
}