gbx_object.h

Gambas is a graphical development environment based on a Basic interpreter, like Visual Basic. It us

/***************************************************************************

  Object.h

  Object management routines

  (c) 2000-2004 Beno顃 Minisini <[e-mail]>

  This program 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 1, or (at your option)
  any later version.

  This program 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; if not, write to the Free Software
  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

***************************************************************************/

#ifndef __OBJECT_H
#define __OBJECT_H

#include "gbx_debug.h"
#include "gbx_value.h"
#include "gbx_class.h"

typedef
  struct {
    CLASS *class;
    long ref;
    }
  OBJECT;

typedef
  struct {
    OBJECT *parent;
    OBJECT *next;
    OBJECT *prev;
    ushort event[0];
    }
  OBJECT_EVENT;

#define OBJECT_event(_object) ((OBJECT_EVENT *)((char *)_object + ((OBJECT *)(_object))->class->off_event))
#define OBJECT_is_locked(_object) (((long)OBJECT_event(_object)->parent & 1) != 0)

#define OBJECT_is_class(_object) (OBJECT_class(_object) == CLASS_Class)
#define OBJECT_class(_object) ((_object) ? ((OBJECT *)_object)->class : NULL)

/*
#define OBJECT_data(object) (((OBJECT *)object)->data)
*/

PUBLIC void OBJECT_new(void **ptr, CLASS *class, const char *name, OBJECT *parent);
PUBLIC void OBJECT_attach(OBJECT *ob, OBJECT *parent, const char *name);
PUBLIC void OBJECT_detach(OBJECT *ob);
PUBLIC void OBJECT_release(CLASS *class, OBJECT *ob);
PUBLIC void OBJECT_free(CLASS *class, OBJECT *ob);
PUBLIC void OBJECT_lock(OBJECT *ob, bool block);

PUBLIC void OBJECT_alloc(void **ptr, CLASS *class, size_t size);
PUBLIC bool OBJECT_comp_value(VALUE *ob1, VALUE *ob2);

PUBLIC void OBJECT_exit(void);
PUBLIC void OBJECT_create(void **object, CLASS *class, const char *name, void *parent, int nparam);
PUBLIC void OBJECT_create_native(void **object, CLASS *class, VALUE *param);

/*
PRIVATE INLINE CLASS *OBJECT_class(void *object)
{
  if (object)
    return ((OBJECT *)object)->class;
  else
    return object;
}
*/

/*#define DEBUG_REF 1*/

#if DEBUG_REF

#define OBJECT_ref(_object) \
{ \
  if (_object) \
  { \
    if (OBJECT_class(_object) == (CLASS *)0x23232323) \
    { \
      fprintf(stderr, "Objet d閖