---

action.c

Go to the documentation of this file.

 /*
  * plint/prog/action.c : actions are an implicit way of calling run-time methods
  * 
  * Time-stamp: <2002-12-21 14:42:38 gseba>
  * 
  * Copyright (C) Sebastian Glita, email: gseba@users.sourceforge.net
  * 
  * This file is part of plint.
  * 
  * plint 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, or (at your option) any later version.
  *
  * plint  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  plint; see  the file  COPYING.  If  not, write  to the  Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA USA.
  *
  */

#include "share/common.h"

#include "type.h"
#include "action.h"

void plint_com_free(plint_com_t * com)
{
  switch (com->type)
    {
    case PLINT_ACT_NONE:
    case PLINT_ACT_INIT:
    case PLINT_ACT_ABRT:
      break;

    case PLINT_ACT_SEEK:
    case PLINT_ACT_CALL:
    case PLINT_ACT_DONE:
      plint_var_fre(com->data);
      break;
    }
  com->type = PLINT_ACT_NONE;
}

void plint_act_free(plint_act_t * act)
{
  plint_com_free(&act->in);
  plint_com_free(&act->out);

  switch (act->_type)
    {
    case PLINT_ACT_NONE:
      break;

    default:
      plint_mem_fre(act->oper.mems);

      switch (act->oper.type)
        {
        case PLINT_OPER_neu:

        case PLINT_OPER_assgn:
        case PLINT_OPER_meth:
        case PLINT_OPER_call:
        case PLINT_OPER_read:

        case PLINT_OPER_cast:

        case PLINT_OPER_num: case PLINT_OPER_pnt: case PLINT_OPER_str: case PLINT_OPER_bol: case PLINT_OPER_tab: case PLINT_OPER_hsh:

        case PLINT_OPER_aadd OR PLINT_OPER_asub OR PLINT_OPER_adiv OR PLINT_OPER_amul OR PLINT_OPER_arem OR PLINT_OPER_apow OR PLINT_OPER_aand OR PLINT_OPER_aor OR PLINT_OPER_anot:

        case PLINT_OPER_badd OR PLINT_OPER_bsub OR PLINT_OPER_bdiv OR PLINT_OPER_bmul OR PLINT_OPER_brem OR PLINT_OPER_bpow OR PLINT_OPER_band OR PLINT_OPER_bor OR PLINT_OPER_bnot:

        case PLINT_OPER_cequ OR PLINT_OPER_cneq OR PLINT_OPER_clt OR PLINT_OPER_cgt OR PLINT_OPER_clte OR PLINT_OPER_cgte:

        case PLINT_OPER_range:
        case PLINT_OPER_merge:
          plint_var_fre(act->oper.parm);
          break;

        case PLINT_OPER_len:
        case PLINT_OPER_ucni OR PLINT_OPER_uced:

        case PLINT_OPER_uadd OR PLINT_OPER_usub OR PLINT_OPER_umul OR PLINT_OPER_udiv OR PLINT_OPER_urem OR PLINT_OPER_upow OR PLINT_OPER_uand OR PLINT_OPER_uor OR PLINT_OPER_unot:
        case PLINT_OPER_uinc OR PLINT_OPER_udec:

        case PLINT_OPER_echo OR PLINT_OPER_sync:
          break;

        default:
          assert(0);
          break;

        }

    }
}

---