/* gEDA - GPL Electronic Design Automation
 * libgeda - gEDA's library
 * Copyright (C) 1998-2000 Ales V. Hvezda
 *
 * 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.
 *
 * 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., 59 Temple Place, Suite 330, Boston, MA 02111 USA
 */
#include <config.h>

#include <stdio.h>
#ifdef HAVE_STRING_H
#include <string.h>
#endif

#include <gtk/gtk.h>
#include <libguile.h>

#include "defines.h"
#include "struct.h"
#include "globals.h"
#include "o_types.h"
#include "colors.h"

#include "../include/prototype.h"

#ifdef HAVE_LIBDMALLOC
#include <dmalloc.h>
#endif

/*! global which is used in o_list_copy_all */
extern int global_sid;

/*! \todo Finish documentation!!!!
 *  \brief
 *  \par Function Description
 *  returns head !!!!!!!!!!!!!!!!!!!
 *  look at above.. this returns what was passed in!!!!
 *  copies selected to list_head (!! returns new list)
 *  flag is either NORMAL_FLAG or SELECTION_FLAG
 *
 *  \param [in]  w_current   The TOPLEVEL object.
 *  \param [in]  list_head
 *  \param [in]  selected
 *  \param [in]  flag
 *  \param [out] return_end  
 *  \return OBJECT pointer.
 */
OBJECT *o_list_copy_to(TOPLEVEL *w_current, OBJECT *list_head,
		       OBJECT *selected, int flag, OBJECT **return_end)
{
  OBJECT *end=NULL;

  /* are we adding a selection or the real object list */
  w_current->ADDING_SEL = flag;

  end = (OBJECT *) return_tail(list_head);

  switch(selected->type) {

    case(OBJ_LINE):
      /* do we do anything with the return value) ? */
      end = (OBJECT *) o_line_copy(w_current, end, selected);	
      break;

    case(OBJ_NET):
      end = (OBJECT *) o_net_copy(w_current, end, selected);	
      break;

    case(OBJ_BUS):
      end = (OBJECT *) o_bus_copy(w_current, end, selected);	
      break;

    case(OBJ_BOX):
      end = (OBJECT *) o_box_copy(w_current, end, selected);	
      break;

    case(OBJ_PICTURE):
      end = (OBJECT *) o_picture_copy(w_current, end, selected);	
      break;

    case(OBJ_CIRCLE):
      end = (OBJECT *) o_circle_copy(w_current, end, selected);	
      break;

    case(OBJ_COMPLEX):
    case(OBJ_PLACEHOLDER):
      if (selected->complex_clib && 
          strncmp(selected->complex_clib, "EMBEDDED", 8) == 0) {
        end = (OBJECT *) o_complex_copy_embedded(w_current, end, selected);	
      } else {
        end = (OBJECT *) o_complex_copy(w_current, end, selected);	
      }
      break;

    case(OBJ_TEXT):
      end = (OBJECT *) o_text_copy(w_current, end, selected);	
      if (selected->attribute && 
          selected->visibility == INVISIBLE) {
        end->visibility = INVISIBLE;
      }
      break;

    case(OBJ_PIN):
      end = (OBJECT *) o_pin_copy(w_current, end, selected);	
      break;

    case(OBJ_ARC):
      end = (OBJECT *) o_arc_copy(w_current, end, selected);	
      break;
  }

  if (list_head == NULL)
  list_head = end;

  /* make sure sid is the same! */
  if (selected) {
    end->sid = selected->sid;
  }

  /* I don't think this is a good idea at all */
  /* w_current->ADDING_SEL = 0; */
        
  if (return_end) {
    *return_end = end;	
  }

  return(list_head);
}

/*! \todo Finish function description!!!
 *  \brief
 *  \par Function Description
 *  you need to pass in a head_node for dest_list_head
 *  flag is either NORMAL_FLAG or SELECTION_FLAG
 *
 *  \param [in] w_current       The TOPLEVEL object.
 *  \param [in] src_list_head   
 *  \param [in] dest_list_head  
 *  \param [in] flag
 *  \return OBJECT pointer.
 */
OBJECT *o_list_copy_all(TOPLEVEL *w_current, OBJECT *src_list_head,
			OBJECT *dest_list_head, int flag)
{
  OBJECT *src;
  OBJECT *dest;
  OBJECT *temp_parent=NULL;
  int adding_sel_save;

  src = src_list_head;
  dest = dest_list_head;
  temp_parent = w_current->page_current->object_parent;
  w_current->page_current->object_parent = dest_list_head;

  if (dest == NULL) {
    w_current->page_current->object_parent = temp_parent;
    return(NULL);
  }

  if (src == NULL) {
    w_current->page_current->object_parent = temp_parent;
    return(NULL);
  }

  adding_sel_save = w_current->ADDING_SEL;

  /* first do all NON text items */
  while(src != NULL) {

    if (src->type != OBJ_TEXT) {
      dest->next = o_list_copy_to(w_current, NULL, src, flag,
                                  NULL);
		
      dest->next->prev = dest;
      dest = dest->next;
      dest->sid = global_sid++;
    }

    src = src->next;
  }

  src = src_list_head;
  /*dest = dest_list_head; out since we want to add to the end */

  if (dest == NULL) {
    w_current->page_current->object_parent = temp_parent;
    return(NULL);
  }

  if (src == NULL) {
    w_current->page_current->object_parent = temp_parent;
    return(NULL);
  }

  /* then do all text items */
  while(src != NULL) {

    if (src->type == OBJ_TEXT) {
      dest->next = o_list_copy_to(w_current, NULL, src, flag,
                                  NULL);
		
      dest->next->prev = dest;
      dest = dest->next;
      dest->sid = global_sid++;
	
      if (src->attached_to /*&& !w_current->ADDING_SEL*/) {
        if (src->attached_to->copied_to) {
          o_attrib_attach(w_current,
                          w_current->page_current->object_parent,
                          dest, src->attached_to->copied_to);     

                                /* satisfied copy request */
          src->attached_to->copied_to = NULL;
        } 
      }
    }

    src = src->next;
  }

  w_current->ADDING_SEL = adding_sel_save;
  w_current->page_current->object_parent = temp_parent;

  return(dest);
}

/*! \todo Finish function description!!!
 *  \brief
 *  \par Function Description
 *  you need to pass in a head_node for dest_list_head
 *  flag is either NORMAL_FLAG or SELECTION_FLAG
 *  this function copies the objects in the src SELECTION list
 *  to the OBJECT list in dest_list_head
 *  this routine assumes that objects in src_list_head are selected
 *  objects are unselected before they are copied and then reselected
 *  this is necessary to preserve the color info
 *
 *  \param [in] w_current       The TOPLEVEL object.
 *  \param [in] src_list_head   
 *  \param [in] dest_list_head  
 *  \param [in] flag
 *  \return OBJECT pointer.
 */
OBJECT *o_list_copy_all_selection2(TOPLEVEL *w_current,
				   GList *src_list_head, 
				   OBJECT *dest_list_head, int flag)
{
  GList *src;
  OBJECT *object;
  OBJECT *dest;
  OBJECT *temp_parent=NULL;
  int adding_sel_save;

  src = src_list_head;
  dest = dest_list_head;

  temp_parent = w_current->page_current->object_parent;
  w_current->page_current->object_parent = dest_list_head;

  if (dest == NULL) {
    w_current->page_current->object_parent = temp_parent;
    return(NULL);
  }

  if (src == NULL) {
    w_current->page_current->object_parent = temp_parent;
    return(NULL);
  }

  adding_sel_save = w_current->ADDING_SEL;

  /* first do all NON text items */
  while(src != NULL) {

    object = (OBJECT *) src->data;

    /* unselect the object before the copy */
    o_selection_unselect(object);	

    if (object->type != OBJ_TEXT && object->type != OBJ_HEAD) {
      dest->next = o_list_copy_to(w_current, NULL, object, 
                                  flag, NULL);
      dest->next->prev = dest;
      dest = dest->next;
      dest->sid = global_sid++;
    }

    /* reselect it */
    o_selection_select(object, SELECT_COLOR);

    src = src->next;
  }

  src = src_list_head;
  /*dest = dest_list_head; out since we want to add to the end */

  if (dest == NULL) {
    w_current->page_current->object_parent = temp_parent;
    return(NULL);
  }

  if (src == NULL) {
    w_current->page_current->object_parent = temp_parent;
    return(NULL);
  }

  /* then do all text items */
  while(src != NULL) {

    object = (OBJECT *) src->data;

    /* unselect the object before the copy */
    o_selection_unselect(object);	

    if (object->type == OBJ_TEXT) {
      dest->next = o_list_copy_to(w_current, NULL, object, 
                                  flag, NULL);
	
      dest->next->prev = dest;
      dest = dest->next;
      dest->sid = global_sid++;

      if (object->attached_to /*&& !w_current->ADDING_SEL*/) {
        if (object->attached_to->copied_to) {
          o_attrib_attach(w_current,
                          w_current->page_current->object_parent,
                          dest, object->attached_to->copied_to);     
                                /* satisfied copy request */
          object->attached_to->copied_to = NULL;
        } 
      }
    }

    /* reselect it */
    o_selection_select(object, SELECT_COLOR);

    src = src->next;
  }

  w_current->ADDING_SEL = adding_sel_save;
  w_current->page_current->object_parent = temp_parent;

  return(dest);
}

/*! \todo Finish function description!!!
 *  \brief
 *  \par Function Description
 *  returns entry in the list
 *
 *  \param [in] list
 *  \param [in] current
 *  \return OBJECT pointer.
 */
OBJECT *o_list_search(OBJECT *list, OBJECT *current)
{
  OBJECT *o_current;

  o_current = list ;

  if (current == NULL) {
    return(NULL);
  }

  if (list == NULL) {
    return(NULL);
  }

  while(o_current != NULL) {
    /* look for uniq sid */
    if (current->sid == o_current->sid) {
      return(o_current);
    }
    o_current = o_current->next;
  }
  return(NULL);
}

/*! \todo Finish function description!!!
 *  \brief
 *  \par Function Description
 *
 *  \param [in] w_current  The TOPLEVEL object.
 *  \param [in] list
 *  \param [in] delete
 */
void o_list_delete(TOPLEVEL *w_current, OBJECT *list, OBJECT *delete)
{
  OBJECT *find;

  find = o_list_search(list, delete);

  if (find != NULL)
  s_delete(w_current, find);

}

/*! \todo Finish function description!!!
 *  \brief
 *  \par Function Description
 *  assuming list is head
 *  head will NOT be deleted
 *
 *  \param [in] w_current  The TOPLEVEL object.
 *  \param [in] list
 */
void o_list_delete_rest(TOPLEVEL *w_current, OBJECT *list)
{
  OBJECT *o_current=NULL;
  OBJECT *o_prev=NULL;
	
  o_current = (OBJECT *) return_tail(list);

  w_current->REMOVING_SEL = 1;
  /* remove list backwards */
  while(o_current != NULL) {
    if (o_current->type != OBJ_HEAD) {
      o_prev = o_current->prev;
      s_delete(w_current, o_current);	
      o_current = o_prev;
    } else {
      o_current->next = NULL; /* set sel_head->next to be empty */
      o_current = NULL;
    }
  }
  w_current->REMOVING_SEL = 0;
}