/* dispose_command.c -- dispose of a COMMAND structure. */

/* Copyright (C) 1989 Free Software Foundation, Inc.

   This file is part of GNU Bash, the Bourne Again SHell.

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

   Bash 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 Bash; see the file COPYING.  If not, write to the Free Software
   Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */

#include "shell.h"

/* Dispose of the command structure passed. */
dispose_command (command)
     register COMMAND *command;
{
  if (!command) return;

  if (command->redirects)
    dispose_redirects (command->redirects);

  switch (command->type)
    {
    case cm_for:
      {
	register FOR_COM *c = command->value.For;
	dispose_word (c->name);
	dispose_words (c->map_list);
	dispose_command (c->action);
	free (c);
	break;
      }
    
    case cm_group:
      {
	dispose_command (command->value.Group->command);
	break;
      }

    case cm_case:
      {
	register CASE_COM *c = command->value.Case;
	PATTERN_LIST *t, *p = c->clauses;
	dispose_word (c->word);
	while (p) {
	  dispose_words (p->patterns);
	  dispose_command (p->action);
	  t = p;
	  p = p->next;
	  free (t);
	}
	break;
      }

    case cm_until:
    case cm_while:
      {
	register WHILE_COM *c = command->value.While;
	dispose_command (c->test);
	dispose_command (c->action);
	free (c);
	break;
      }

    case cm_if:
      {
	register IF_COM *c = command->value.If;
	dispose_command (c->test);
	dispose_command (c->true_case);
	dispose_command (c->false_case);
	free (c);
	break;
      }

    case cm_simple:
      {
	register SIMPLE_COM *c = command->value.Simple;
	dispose_words (c->words);
	dispose_redirects (c->redirects);
	free (c);
	break;
      }

    case cm_connection:
      {
	register CONNECTION *c = command->value.Connection;
	dispose_command (c->first);
	dispose_command (c->second);
	free (c);
	break;
      }

    case cm_function_def:
      {
	register FUNCTION_DEF *c = command->value.Function_def;
	dispose_word (c->name);
	dispose_command (c->command);
	free (c);
	break;
      }

    default:
      report_error ("Attempt to free unknown command type `%d'.\n", command->type);
      break;
    }
  free (command);
}

/* How to free a WORD_DESC. */
dispose_word (word)
     WORD_DESC *word;
{
  free (word->word);
  free (word);
}

/* How to get rid of a linked list of words.  A WORD_LIST. */
dispose_words (list)
     WORD_LIST *list;
{
  WORD_LIST *t;
  while (list) {
    t = list;
    list = list->next;
    dispose_word (t->word);
    free (t);
  }
}

/* How to dispose of an array of pointers to char. */
dispose_word_array (array)
     char **array;
{
  int count = 0;
  for (count = 0; array[count]; count++)
    free (array[count]);
  free (array);
}

/* How to dispose of an list of redirections.  A REDIRECT. */
dispose_redirects (list)
     REDIRECT *list;
{
  register REDIRECT *t;

  while (list) {
    t = list;
    list = list->next;
    switch (t->instruction) {

    case r_reading_until:
    case r_deblank_reading_until:
      free (t->here_doc_eof);
      /* ... */
    case r_output_direction:
    case r_input_direction:
    case r_inputa_direction:
    case r_appending_to:
    case r_err_and_out:
      dispose_word (t->redirectee.filename);
      break;
    }
    free (t);
  }
}