---

list.c

 /*
  * plint/list.c : variables' list handling
  * 
  * Time-stamp: <2002-12-21 22:56:14 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 "plint.h"
#include "error.h"
#include "share.h"

#include "data.h"
#include "list.h"

static void var_free(hashindex_t name
#ifdef PLINT_VERB_WARN
                      , int touch, plint_tree_t proc, int level
#endif
                      )
{
#ifdef PLINT_VERB_WARN
  if (plint_verbose && !p->touch)
    {
      char * var = hash_getstr(plint_hash, p->name, 0);

      eprintf("\n%s%s%s\"%s\" %s#%d %s ", PLINT_PLINT, PLINT_WARN, PLINT_TOUCH, var, PLINT_LEVEL, level, PLINT_PRME(proc));
      plint_proc_log(stderr, proc);
      free(var);
    }
#endif

  hash_remstr(plint_hash.id, name);
}

void plint_list_free(plint_stack_t s, plint_list_t * p, size_t c)
{
  plint_list_t l;

  while (l = *p, c--)
    {
      plint_mem_t mem = l->var;
      *p = l->next;

      plint_trace(var, 1, l);

      var_free(l->name
#ifdef PLINT_VERB_WARN
                l->touch, l->home->proc->block.src, l->home->block.src->level - l->home->proc->block.src->level
#endif
                );
      free(l);
      plint_mem_fre(mem);
    }
}

plint_list_t plint_list_1st(plint_stack_t s)
{
  switch (s->block.src->frm)
    {
    case PLINT_FRM_METH:
      return s->head->next->next;
    default:
      return s->head->next;
    }
}

plint_list_t plint_list_nth(plint_stack_t s, size_t n)
{
  plint_list_t l = plint_list_1st(s);
  while (--n && l)
    l = l->next;
  return l;
}

void plint_list_ite(plint_stack_t s, void (* f)(plint_list_t, void *), void * p)
{
  plint_list_t l;
  for (l = plint_list_1st(s); l; l = l->next)
    f(l, p);
}

---