/simpletypesystem/trunk

#include "Box.h"

#include <stdlib.h>

struct SBoxPrivate {

  sboolean                      free_data;

  SType                         object_type;

  SObject *                     m_sobject;

  spointer                      m_ptr;

  sboolean                      m_sboolean;

  int                           m_int;

  long                          m_long;

  short                         m_short;

  char                          m_char;

  wchar_t                       m_wchar;

  unsigned int                  m_uint;

  unsigned long                 m_ulong;

  unsigned short                m_ushort;

  char *                        m_string;

  wchar_t *                     m_wstring;

};

void s_method_box_free (SBox * self);

/* Private function to allocate and set methods to the SBox.

 */

SBox * s_box_new () {

  SBox * self = malloc (sizeof (SBox));

  SBoxClass * klass = malloc (sizeof (SBoxClass));

  s_object_initialize (S_OBJECT (self), "SBox");

  s_object_set_class (S_OBJECT (self), S_OBJECT_CLASS (klass));

  s_object_set_free_method (S_OBJECT (self), FREE_METHOD (s_method_box_free));

  return self;

}

SBox * s_box_new_pointer (spointer object);

SBox * s_box_new_sobject (SObject * object);

SBox * s_box_new_int (int i);

SBox * s_box_new_long (long l);

SBox * s_box_new_short (short s);

SBox * s_box_new_char (char c);

SBox * s_box_new_wchar (wchar_t wc);

SBox * s_box_new_uint (unsigned int ui);

SBox * s_box_new_ulong (long l);

SBox * s_box_new_ushort (short s);

SBox * s_box_new_string (char * s);

SBox * s_box_new_wstring (wchar_t * ws);

void s_box_free (SBox * self) {

  s_object_free (S_OBJECT (self));

}

void s_box_set_free_data_on_free (SBox * self, sboolean free_data) {

}

void s_box_set_free_func (SBox * self, FreeFunc free_func) {

  SBoxClass * klass = S_BOX_CLASS (s_object_get_class(S_OBJECT (self)));

  klass->free_func = free_func;

}

void s_method_box_free (SBox * self) {

  SBoxClass * klass = S_BOX_CLASS (s_object_get_class(S_OBJECT(self)));

  SBoxPrivate * priv = self->priv;

  FreeFunc free_func = klass->free_func;

  if (priv->free_data) {

    switch (priv->object_type) {

      case S_TYPE_OBJECT:

        s_object_free (priv->m_sobject);

        break;

      case S_TYPE_POINTER:

        if (free_func) {

          free_func (priv->m_ptr);

        } else {

          free (priv->m_ptr);

        }

        break;

      case S_TYPE_STRING:

        free (priv->m_string);

        break;

      case S_TYPE_WSTRING:

        free (priv->m_wstring);

        break;

      default:

        s_warn_print ("[SBox] free_data was set despite not being an object"

                      "that can be freed.");

    }

  }

  free (self->priv);

  free (klass);

}