gbx_exec_enum.c

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

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

  exec_enum.c

  Enumeration management

  (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.

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

#include "gb_common.h"
#include "gb_limit.h"
#include "gbx_exec.h"


/* EXEC_object() ne doit pas faire d'auto-create, car sinon
   il renvoie un objet r��enc�*/

PUBLIC void EXEC_enum_first(PCODE code)
{
  OBJECT *object;
  CLASS *class;
  boolean defined;
  VALUE *local;

  local = &BP[code & 0xFF];

  EXEC_object(local, &class, &object, &defined);
  local++;
  RELEASE(local);
  memset(local, 0, sizeof(VALUE));
  EXEC_enum_data = (void *)(&local->_void.ptype);

  EXEC_special(SPEC_FIRST, class, object, 0, TRUE);
}


PUBLIC boolean EXEC_enum_next(PCODE code)
{
  OBJECT *object;
  CLASS *class;
  boolean defined;
  VALUE *local;

  local = &BP[PC[-1] & 0xFF];

  EXEC_object(local, &class, &object, &defined);
  EXEC_enum_data = (void *)(&local[1]._void.ptype);

  EXEC_enum_stop = FALSE;

  if (EXEC_special(SPEC_NEXT, class, object, 0, FALSE))
    THROW(E_ENUM);

	if (!defined)
		VALUE_conv(&SP[-1], T_VARIANT);

  if ((code & 0xFF) || EXEC_enum_stop)
    POP();

  return EXEC_enum_stop;
}