/***************************************************************************
                          statement.cpp  -  description
                             -------------------
    begin                : Thu Mar 20 20:44:48 2003
    copyright            : (C) 2002 by Cavalli Andrea
    email                : cavalli@bioc.unizh.ch
**************************************************************************/
/***************************************************************************
 *                                                                         *
 *   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 2 of the License, or     *
 *   (at your option) any later version.                                   *
 *                                                                         *
 ***************************************************************************/

#include <zeta/statement.h>

ZObj * Statement::eval(){ //exec_line done
  exec_line = line;
  if(code!=NULL){
    ZObj * res = code->eval();
    if(is_zcont(res)) return res;
    ZObj::remove(res);
  }
  ZObj::collect(SymbolTable::instance());
  return new ZStatus(true);
}



ZObj * StatementList::eval(){ //exec_line done
  exec_line = line;
  for(int i=0;i<statement_list.size();i++){
    if(statement_list[i]!=NULL){
      ZObj * res = statement_list[i]->eval();
      if(is_zstatus(res)){
	if(!is_ok(res)) {
	  //	  Almost::aout<<res<< " "<<res->class_name()<<endl;
	  throw ZError(line,"execution error");
	}
      }
      else if(is_zcont(res)){
	return res;
      }
      else if(is_zret(res)){
	return res;
	ZReturn * ret = (ZReturn *) res;
	res = ret->ret;
	ZObj::remove(ret);
	return res;
      }
      else if(is_zbreak(res)){
	return res;
      }
      ZObj::remove(res);
    }
  }
  return new ZStatus(true);
}