/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
void o_move_end_lowlevel (GschemToplevel *w_current,
OBJECT *object,
int diff_x, int diff_y)
{
GschemPageView *page_view = gschem_toplevel_get_current_page_view (w_current);
g_return_if_fail (page_view != NULL);
PAGE *page = gschem_page_view_get_page (page_view);
g_return_if_fail (page != NULL);
switch (object->type) {
case (OBJ_NET):
case (OBJ_BUS):
case (OBJ_PIN):
s_conn_remove_object_connections (page->toplevel, object);
o_translate_world (page->toplevel, diff_x, diff_y, object);
s_conn_update_object (page, object);
break;
default:
o_translate_world (page->toplevel, diff_x, diff_y, object);
break;
}
}
/*! \brief create a new net object
* \par Function Description
* This function creates and returns a new net object.
*
* \param [in] toplevel The TOPLEVEL object.
* \param [in] type The OBJECT type (usually OBJ_NET)
* \param [in] color The color of the net
* \param [in] x1 x-coord of the first point
* \param [in] y1 y-coord of the first point
* \param [in] x2 x-coord of the second point
* \param [in] y2 y-coord of the second point
* \return A new net OBJECT
*/
OBJECT *o_net_new(TOPLEVEL *toplevel, char type,
int color, int x1, int y1, int x2, int y2)
{
OBJECT *new_node;
new_node = s_basic_new_object(type, "net");
new_node->color = color;
new_node->line = (LINE *) g_malloc(sizeof(LINE));
/* check for null */
new_node->line->x[0] = x1;
new_node->line->y[0] = y1;
new_node->line->x[1] = x2;
new_node->line->y[1] = y2;
new_node->line_width = NET_WIDTH;
o_net_recalc (toplevel, new_node);
new_node->draw_func = net_draw_func;
new_node->sel_func = select_func;
if (!toplevel->ADDING_SEL) {
s_tile_add_object (toplevel, new_node);
s_conn_update_object (toplevel, new_node);
}
return new_node;
}
/*! \brief Rotate all objects in list.
* \par Function Description
* Given an object <B>list</B>, and the center of rotation
* (<B>centerx</B>,<B>centery</B>, this function traverses all the selection
* list, rotating each object through angle <B>angle</B>.
* The list contains a given object and all its attributes
* (refdes, pinname, pinlabel, ...).
* There is a second pass to run the rotate hooks of non-simple objects,
* like pin or complex objects, for example.
*
* \param [in] w_current The GschemToplevel object.
* \param [in] centerx Center x coordinate of rotation.
* \param [in] centery Center y coordinate of rotation.
* \param [in] angle Angle to rotate the objects through.
* \param [in] list The list of objects to rotate.
*/
void o_rotate_world_update(GschemToplevel *w_current,
int centerx, int centery, int angle, GList *list)
{
TOPLEVEL *toplevel = gschem_toplevel_get_toplevel (w_current);
OBJECT *o_current;
GList *o_iter;
/* this is okay if you just hit rotate and have nothing selected */
if (list == NULL) {
i_action_stop (w_current);
i_set_state(w_current, SELECT);
return;
}
o_invalidate_glist (w_current, list);
/* Find connected objects, removing each object in turn from the
* connection list. We only _really_ want those objects connected
* to the selection, not those within in it.
*/
for (o_iter = list; o_iter != NULL; o_iter = g_list_next (o_iter)) {
o_current = o_iter->data;
s_conn_remove_object_connections (toplevel, o_current);
}
o_glist_rotate_world( toplevel, centerx, centery, angle, list );
/* Find connected objects, adding each object in turn back to the
* connection list. We only _really_ want those objects connected
* to the selection, not those within in it.
*/
for (o_iter = list; o_iter != NULL; o_iter = g_list_next (o_iter)) {
o_current = o_iter->data;
s_conn_update_object (o_current->page, o_current);
}
o_invalidate_glist (w_current, list);
/* Run rotate-objects-hook */
g_run_hook_object_list (w_current, "%rotate-objects-hook", list);
/* Don't save the undo state if we are inside an action */
/* This is useful when rotating the selection while moving, for example */
gschem_toplevel_page_content_changed (w_current, toplevel->page_current);
if (!w_current->inside_action) {
o_undo_savestate_old(w_current, UNDO_ALL);
}
if (w_current->event_state == ROTATEMODE) {
i_set_state(w_current, SELECT);
}
}
/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
void o_mirror_world_update(GschemToplevel *w_current, int centerx, int centery, GList *list)
{
TOPLEVEL *toplevel = gschem_toplevel_get_toplevel (w_current);
OBJECT *o_current;
GList *o_iter;
if (list == NULL) {
i_action_stop (w_current);
i_set_state(w_current, SELECT);
return;
}
o_invalidate_glist (w_current, list);
/* Find connected objects, removing each object in turn from the
* connection list. We only _really_ want those objects connected
* to the selection, not those within in it.
*/
for (o_iter = list; o_iter != NULL; o_iter = g_list_next (o_iter)) {
o_current = o_iter->data;
s_conn_remove_object_connections (toplevel, o_current);
}
o_glist_mirror_world( toplevel, centerx, centery, list );
/* Find connected objects, adding each object in turn back to the
* connection list. We only _really_ want those objects connected
* to the selection, not those within in it.
*/
for (o_iter = list; o_iter != NULL; o_iter = g_list_next (o_iter)) {
o_current = o_iter->data;
s_conn_update_object (o_current->page, o_current);
}
o_invalidate_glist (w_current, list);
/* Run mirror-objects-hook */
g_run_hook_object_list (w_current, "%mirror-objects-hook", list);
gschem_toplevel_page_content_changed (w_current, toplevel->page_current);
o_undo_savestate_old(w_current, UNDO_ALL);
if (w_current->event_state == MIRRORMODE) {
i_set_state(w_current, SELECT);
}
}
/* Called just before removing an OBJECT from a PAGE
* or after appending an OBJECT to a PAGE. */
static void
object_added (TOPLEVEL *toplevel, PAGE *page, OBJECT *object)
{
/* Set up object parent pointer */
#ifndef NDEBUG
if (object->page != NULL) {
g_critical ("Object %p already has parent page %p!", object, object->page);
}
#endif
object->page = page;
/* Update object connection tracking */
s_conn_update_object (page, object);
o_emit_change_notify (toplevel, object);
}
/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
void o_mirror_world_update(GSCHEM_TOPLEVEL *w_current, int centerx, int centery, GList *list)
{
TOPLEVEL *toplevel = w_current->toplevel;
OBJECT *o_current;
GList *o_iter;
if (list == NULL) {
w_current->inside_action = 0;
i_set_state(w_current, SELECT);
return;
}
o_invalidate_glist (w_current, list);
/* Find connected objects, removing each object in turn from the
* connection list. We only _really_ want those objects connected
* to the selection, not those within in it.
*/
for (o_iter = list; o_iter != NULL; o_iter = g_list_next (o_iter)) {
o_current = o_iter->data;
s_conn_remove_object (toplevel, o_current);
}
o_glist_mirror_world( toplevel, centerx, centery, list );
/* Find connected objects, adding each object in turn back to the
* connection list. We only _really_ want those objects connected
* to the selection, not those within in it.
*/
for (o_iter = list; o_iter != NULL; o_iter = g_list_next (o_iter)) {
o_current = o_iter->data;
s_conn_update_object (toplevel, o_current);
}
o_invalidate_glist (w_current, list);
/* Run mirror-objects-hook */
g_run_hook_object_list ("%mirror-objects-hook", list);
toplevel->page_current->CHANGED=1;
o_undo_savestate(w_current, UNDO_ALL);
}
/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
void o_move_end_rubberband (GschemToplevel *w_current,
int w_dx, int w_dy,
GList** objects)
{
GList *s_iter, *s_iter_next;
GschemPageView *page_view = gschem_toplevel_get_current_page_view (w_current);
g_return_if_fail (page_view != NULL);
PAGE *page = gschem_page_view_get_page (page_view);
g_return_if_fail (page != NULL);
for (s_iter = w_current->stretch_list;
s_iter != NULL; s_iter = s_iter_next) {
STRETCH *s_current = s_iter->data;
OBJECT *object = s_current->object;
int whichone = s_current->whichone;
/* Store this now, since we may delete the current item */
s_iter_next = g_list_next (s_iter);
if (object->type == OBJ_NET ||
object->type == OBJ_BUS) {
/* remove the object's connections */
s_conn_remove_object_connections (page->toplevel, object);
object->line->x[whichone] += w_dx;
object->line->y[whichone] += w_dy;
if (o_move_zero_length (object)) {
w_current->stretch_list =
s_stretch_remove (w_current->stretch_list, object);
o_delete (w_current, object);
continue;
}
object->w_bounds_valid_for = NULL;
s_conn_update_object (page, object);
*objects = g_list_append (*objects, object);
}
}
}
/*! \brief End placement action
*
* \par Function Description
* This function finishes the current placement action by adding
* objects to the current page at the given new world coordinates
* and redrawing them on the canvas. It also saves the current
* state in the undo list and updates the menus.
*
* If \a continue_placing is TRUE, a copy of the placement list
* is saved to start a new place action.
*
* \param [in] w_current GschemToplevel which we're drawing for.
* \param [in] w_x The current world X coordinate.
* \param [in] w_y The current world Y coordinate.
* \param [in] hook_name The hook to run after adding the objects.
*/
void o_place_end (GschemToplevel *w_current,
int w_x, int w_y,
int continue_placing,
const char* hook_name)
{
int w_diff_x, w_diff_y;
OBJECT *o_current;
GList *temp_dest_list = NULL;
GList *connected_objects = NULL;
GList *iter;
g_return_if_fail (w_current != NULL);
g_assert (w_current->inside_action != 0);
GschemPageView *page_view = gschem_toplevel_get_current_page_view (w_current);
g_return_if_fail (page_view != NULL);
PAGE *page = gschem_page_view_get_page (page_view);
g_return_if_fail (page != NULL);
/* erase old image */
/* o_place_invalidate_rubber (w_current, FALSE); */
w_current->rubber_visible = 0;
/* Calc final object positions */
w_current->second_wx = w_x;
w_current->second_wy = w_y;
w_diff_x = w_current->second_wx - w_current->first_wx;
w_diff_y = w_current->second_wy - w_current->first_wy;
if (continue_placing) {
/* Make a copy of the place list if we want to keep it afterwards */
temp_dest_list = o_glist_copy_all (page->toplevel,
page->place_list,
temp_dest_list);
} else {
/* Otherwise just take it */
temp_dest_list = page->place_list;
page->place_list = NULL;
}
geda_object_list_translate (temp_dest_list, w_diff_x, w_diff_y);
/* Attach each item back onto the page's object list. Update object
* connectivity and add the new objects to the selection list.*/
for (iter = temp_dest_list; iter != NULL; iter = g_list_next (iter)) {
o_current = (OBJECT*) iter->data;
s_page_append (page->toplevel, page, o_current);
/* Update object connectivity */
s_conn_update_object (page, o_current);
connected_objects = s_conn_return_others (connected_objects, o_current);
}
if (hook_name != NULL) {
g_run_hook_object_list (w_current, hook_name, temp_dest_list);
}
o_invalidate_glist (w_current, connected_objects);
g_list_free (connected_objects);
connected_objects = NULL;
gschem_toplevel_page_content_changed (w_current, page);
o_invalidate_glist (w_current, temp_dest_list); /* only redraw new objects */
g_list_free (temp_dest_list);
o_undo_savestate_old (w_current, UNDO_ALL);
i_update_menus (w_current);
if (!continue_placing) {
i_set_state(w_current, SELECT);
i_action_stop (w_current);
}
}
/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
int o_net_add_busrippers(GschemToplevel *w_current, OBJECT *net_obj,
GList *prev_conn_objects)
{
OBJECT *new_obj;
GList *cl_current = NULL;
OBJECT *bus_object = NULL;
CONN *found_conn = NULL;
int done;
int otherone;
BUS_RIPPER rippers[2];
int ripper_count = 0;
int i;
double length;
int sign;
double distance1, distance2;
int first, second;
int made_changes = FALSE;
const int ripper_size = w_current->bus_ripper_size;
int complex_angle = 0;
const CLibSymbol *rippersym = NULL;
GschemPageView *page_view = gschem_toplevel_get_current_page_view (w_current);
g_return_val_if_fail (page_view != NULL, FALSE);
PAGE *page = gschem_page_view_get_page (page_view);
g_return_val_if_fail (page != NULL, FALSE);
length = o_line_length(net_obj);
if (!prev_conn_objects) {
return(FALSE);
}
if (length <= ripper_size) {
return(FALSE);
}
/* check for a bus connection and draw rippers if so */
cl_current = prev_conn_objects;
while (cl_current != NULL) {
bus_object = (OBJECT *) cl_current->data;
if (bus_object && bus_object->type == OBJ_BUS) {
/* yes, using the net routine is okay */
int bus_orientation = o_net_orientation(bus_object);
int net_orientation = o_net_orientation(net_obj);
/* find the CONN structure which is associated with this object */
GList *cl_current2 = net_obj->conn_list;
done = FALSE;
while (cl_current2 != NULL && !done) {
CONN *tmp_conn = (CONN *) cl_current2->data;
if (tmp_conn && tmp_conn->other_object &&
tmp_conn->other_object == bus_object) {
found_conn = tmp_conn;
done = TRUE;
}
cl_current2 = g_list_next(cl_current2);
}
if (!found_conn) {
return(FALSE);
}
otherone = !found_conn->whichone;
/* now deal with the found connection */
if (bus_orientation == HORIZONTAL && net_orientation == VERTICAL) {
/* printf("found horiz bus %s %d!\n", bus_object->name,
found_conn->whichone);*/
sign = bus_object->bus_ripper_direction;
if (!sign) {
if (bus_object->line->x[0] < bus_object->line->x[1]) {
first = 0;
second = 1;
} else {
first = 1;
second = 0;
}
distance1 = abs(bus_object->line->x[first] -
net_obj->line->x[found_conn->whichone]);
distance2 = abs(bus_object->line->x[second] -
net_obj->line->x[found_conn->whichone]);
if (distance1 <= distance2) {
sign = 1;
} else {
sign = -1;
}
bus_object->bus_ripper_direction = sign;
}
/* printf("hor sign: %d\n", sign); */
if (net_obj->line->y[otherone] < bus_object->line->y[0]) {
/* new net is below bus */
/*printf("below\n");*/
if (ripper_count >= 2) {
/* try to exit gracefully */
fprintf(stderr, _("Tried to add more than two bus rippers. Internal gschem error.\n"));
made_changes = FALSE;
break;
}
if (w_current->bus_ripper_rotation == NON_SYMMETRIC) {
/* non-symmetric */
if (sign == 1) {
complex_angle = 0;
} else {
complex_angle = 90;
}
} else {
/* symmetric */
complex_angle = 0;
}
net_obj->line->y[found_conn->whichone] -= ripper_size;
net_obj->w_bounds_valid_for = NULL;
rippers[ripper_count].x[0] =
net_obj->line->x[found_conn->whichone];
rippers[ripper_count].y[0] =
net_obj->line->y[found_conn->whichone];
rippers[ripper_count].x[1] =
net_obj->line->x[found_conn->whichone] + sign*ripper_size;
rippers[ripper_count].y[1] =
net_obj->line->y[found_conn->whichone] + ripper_size;
ripper_count++;
/* printf("done\n"); */
made_changes++;
} else {
/* new net is above bus */
/* printf("above\n"); */
if (ripper_count >= 2) {
/* try to exit gracefully */
fprintf(stderr, _("Tried to add more than two bus rippers. Internal gschem error.\n"));
made_changes = FALSE;
break;
}
if (w_current->bus_ripper_rotation == NON_SYMMETRIC) {
/* non-symmetric */
if (sign == 1) {
complex_angle = 270;
} else {
complex_angle = 180;
}
} else {
/* symmetric */
complex_angle = 180;
}
net_obj->line->y[found_conn->whichone] += ripper_size;
net_obj->w_bounds_valid_for = NULL;
rippers[ripper_count].x[0] =
net_obj->line->x[found_conn->whichone];
rippers[ripper_count].y[0] =
net_obj->line->y[found_conn->whichone];
rippers[ripper_count].x[1] =
net_obj->line->x[found_conn->whichone] + sign*ripper_size;
rippers[ripper_count].y[1] =
net_obj->line->y[found_conn->whichone] - ripper_size;
ripper_count++;
/* printf("done\n"); */
made_changes++;
}
} else if (bus_orientation == VERTICAL &&
net_orientation == HORIZONTAL) {
/* printf("found vert bus %s %d!\n", bus_object->name,
found_conn->whichone); */
sign = bus_object->bus_ripper_direction;
if (!sign) {
if (bus_object->line->y[0] < bus_object->line->y[1]) {
first = 0;
second = 1;
} else {
first = 1;
second = 0;
}
distance1 = abs(bus_object->line->y[first] -
net_obj->line->y[found_conn->whichone]);
distance2 = abs(bus_object->line->y[second] -
net_obj->line->y[found_conn->whichone]);
if (distance1 <= distance2) {
sign = 1;
} else {
sign = -1;
}
bus_object->bus_ripper_direction = sign;
}
/* printf("ver sign: %d\n", sign); */
if (net_obj->line->x[otherone] < bus_object->line->x[0]) {
/* new net is to the left of the bus */
/* printf("left\n"); */
if (ripper_count >= 2) {
/* try to exit gracefully */
fprintf(stderr, _("Tried to add more than two bus rippers. Internal gschem error.\n"));
made_changes = FALSE;
break;
}
if (w_current->bus_ripper_rotation == NON_SYMMETRIC) {
/* non-symmetric */
if (sign == 1) {
complex_angle = 0;
} else {
complex_angle = 270;
}
} else {
/* symmetric */
complex_angle = 270;
}
net_obj->line->x[found_conn->whichone] -= ripper_size;
net_obj->w_bounds_valid_for = NULL;
rippers[ripper_count].x[0] =
net_obj->line->x[found_conn->whichone];
rippers[ripper_count].y[0] =
net_obj->line->y[found_conn->whichone];
rippers[ripper_count].x[1] =
net_obj->line->x[found_conn->whichone] + ripper_size;
rippers[ripper_count].y[1] =
net_obj->line->y[found_conn->whichone] + sign*ripper_size;
ripper_count++;
made_changes++;
} else {
/* new net is to the right of the bus */
/* printf("right\n"); */
if (ripper_count >= 2) {
/* try to exit gracefully */
fprintf(stderr, _("Tried to add more than two bus rippers. Internal gschem error.\n"));
made_changes = FALSE;
break;
}
if (w_current->bus_ripper_rotation == NON_SYMMETRIC) {
/* non-symmetric */
if (sign == 1) {
complex_angle = 90;
} else {
complex_angle = 180;
}
} else {
/* symmetric */
complex_angle = 90;
}
net_obj->line->x[found_conn->whichone] += ripper_size;
net_obj->w_bounds_valid_for = NULL;
rippers[ripper_count].x[0] =
net_obj->line->x[found_conn->whichone];
rippers[ripper_count].y[0] =
net_obj->line->y[found_conn->whichone];
rippers[ripper_count].x[1] =
net_obj->line->x[found_conn->whichone] - ripper_size;
rippers[ripper_count].y[1] =
net_obj->line->y[found_conn->whichone] + sign*ripper_size;
ripper_count++;
made_changes++;
}
}
}
cl_current = g_list_next(cl_current);
}
if (made_changes) {
s_conn_remove_object_connections (page->toplevel, net_obj);
if (w_current->bus_ripper_type == COMP_BUS_RIPPER) {
GList *symlist =
s_clib_search (page->toplevel->bus_ripper_symname, CLIB_EXACT);
if (symlist != NULL) {
rippersym = (CLibSymbol *) symlist->data;
}
g_list_free (symlist);
}
for (i = 0; i < ripper_count; i++) {
if (w_current->bus_ripper_type == NET_BUS_RIPPER) {
new_obj = o_net_new(page->toplevel, OBJ_NET, NET_COLOR,
rippers[i].x[0], rippers[i].y[0],
rippers[i].x[1], rippers[i].y[1]);
s_page_append (page->toplevel, page, new_obj);
} else {
if (rippersym != NULL) {
new_obj = o_complex_new (page->toplevel, OBJ_COMPLEX, DEFAULT_COLOR,
rippers[i].x[0], rippers[i].y[0],
complex_angle, 0,
rippersym,
page->toplevel->bus_ripper_symname, 1);
s_page_append_list (page->toplevel, page,
o_complex_promote_attribs (page->toplevel, new_obj));
s_page_append (page->toplevel, page, new_obj);
} else {
s_log_message(_("Bus ripper symbol [%s] was not found in any component library\n"),
page->toplevel->bus_ripper_symname);
}
}
}
s_conn_update_object (page, net_obj);
return(TRUE);
}
return(FALSE);
}
/*! \brief try to consolidate a net object
* \par Function Description
* This function tries to consolidate a net with any other object
* that is connected to the current \a object.
*
* \param toplevel The TOPLEVEL object
* \param object The object to consolidate
* \return 0 if no consolidation was possible, -1 otherwise
*
*/
static int o_net_consolidate_segments (TOPLEVEL *toplevel, OBJECT *object)
{
int object_orient;
int other_orient;
GList *c_current;
CONN *conn;
OBJECT *other_object;
PAGE *page;
int changed = 0;
g_return_val_if_fail ((toplevel != NULL), 0);
g_return_val_if_fail ((object != NULL), 0);
g_return_val_if_fail ((object->type == OBJ_NET), 0);
/* It's meaningless to do anything here if the object isn't in a page. */
page = o_get_page (toplevel, object);
g_return_val_if_fail ((page != NULL), 0);
object_orient = o_net_orientation(object);
c_current = object->conn_list;
while(c_current != NULL) {
conn = (CONN *) c_current->data;
other_object = conn->other_object;
/* only look at end points which have a valid end on the other side */
if (other_object != NULL && conn->type == CONN_ENDPOINT &&
conn->other_whichone != -1 && conn->whichone != -1 &&
o_net_consolidate_nomidpoint(object, conn->x, conn->y) ) {
if (other_object->type == OBJ_NET) {
other_orient = o_net_orientation(other_object);
/* - both objects have the same orientation (either vert or horiz) */
/* - it's not the same object */
if (object_orient == other_orient &&
object->sid != other_object->sid &&
other_orient != NEITHER) {
#if DEBUG
printf("consolidating %s to %s\n", object->name, other_object->name);
#endif
o_net_consolidate_lowlevel(object, other_object, other_orient);
changed++;
if (other_object->selected == TRUE ) {
o_selection_remove (toplevel, page->selection_list, other_object);
/* If we're consolidating with a selected object,
* ensure we select the resulting object.
*/
if (object->selected == FALSE) {
o_selection_add (toplevel, page->selection_list, object);
}
}
s_delete_object (toplevel, other_object);
o_net_recalc(toplevel, object);
s_tile_update_object(toplevel, object);
s_conn_update_object (toplevel, object);
return(-1);
}
}
}
c_current = g_list_next (c_current);
}
return(0);
}
/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
void o_place_end (GSCHEM_TOPLEVEL *w_current,
int w_x, int w_y,
int continue_placing,
GList **ret_new_objects,
const char* hook_name)
{
TOPLEVEL *toplevel = w_current->toplevel;
int w_diff_x, w_diff_y;
OBJECT *o_current;
PAGE *p_current;
GList *temp_dest_list = NULL;
GList *connected_objects = NULL;
GList *iter;
/* erase old image */
/* o_place_invaidate_rubber (w_current, FALSE); */
w_current->rubber_visible = 0;
/* Calc final object positions */
w_current->second_wx = w_x;
w_current->second_wy = w_y;
w_diff_x = w_current->second_wx - w_current->first_wx;
w_diff_y = w_current->second_wy - w_current->first_wy;
if (continue_placing) {
/* Make a copy of the place list if we want to keep it afterwards */
temp_dest_list = o_glist_copy_all (toplevel,
toplevel->page_current->place_list,
temp_dest_list);
} else {
/* Otherwise just take it */
temp_dest_list = toplevel->page_current->place_list;
toplevel->page_current->place_list = NULL;
}
if (ret_new_objects != NULL) {
*ret_new_objects = g_list_copy (temp_dest_list);
}
o_glist_translate_world(toplevel, w_diff_x, w_diff_y, temp_dest_list);
/* Attach each item back onto the page's object list. Update object
* connectivity and add the new objects to the selection list.*/
p_current = toplevel->page_current;
for (iter = temp_dest_list; iter != NULL; iter = g_list_next (iter)) {
o_current = iter->data;
s_page_append (toplevel, p_current, o_current);
/* Update object connectivity */
s_conn_update_object (toplevel, o_current);
connected_objects = s_conn_return_others (connected_objects, o_current);
}
if (hook_name != NULL) {
g_run_hook_object_list (hook_name, temp_dest_list);
}
o_invalidate_glist (w_current, connected_objects);
g_list_free (connected_objects);
connected_objects = NULL;
toplevel->page_current->CHANGED = 1;
o_invalidate_glist (w_current, temp_dest_list); /* only redraw new objects */
g_list_free (temp_dest_list);
o_undo_savestate (w_current, UNDO_ALL);
i_update_menus (w_current);
}
/*! \brief try to consolidate a net object
* \par Function Description
* This function tries to consolidate a net with any other object
* that is connected to the current \a object.
*
* \param toplevel The TOPLEVEL object
* \param object The object to consolidate
* \return 0 if no consolidation was possible, -1 otherwise
*
*/
int o_net_consolidate_segments(TOPLEVEL *toplevel, OBJECT *object)
{
int object_orient;
int other_orient;
GList *c_current;
CONN *conn;
OBJECT *other_object;
int changed = 0;
int reselect_new=FALSE;
if (object == NULL) {
return(0);
}
if (object->type != OBJ_NET) {
return(0);
}
object_orient = o_net_orientation(object);
c_current = object->conn_list;
while(c_current != NULL) {
conn = (CONN *) c_current->data;
other_object = conn->other_object;
/* only look at end points which have a valid end on the other side */
if (other_object != NULL && conn->type == CONN_ENDPOINT &&
conn->other_whichone != -1 && conn->whichone != -1 &&
o_net_consolidate_nomidpoint(object, conn->x, conn->y) ) {
if (other_object->type == OBJ_NET) {
other_orient = o_net_orientation(other_object);
/* - both objects have the same orientation (either vert or horiz) */
/* - it's not the same object */
if (object_orient == other_orient &&
object->sid != other_object->sid &&
other_orient != NEITHER) {
#if DEBUG
printf("consolidating %s to %s\n", object->name, other_object->name);
#endif
o_net_consolidate_lowlevel(object, other_object, other_orient);
changed++;
if (other_object->selected == TRUE ) {
o_selection_remove( toplevel->page_current->selection_list, other_object );
reselect_new=TRUE;
}
if (reselect_new == TRUE) {
o_selection_remove( toplevel->page_current->selection_list, object );
o_selection_add( toplevel->page_current->selection_list, object );
}
s_conn_remove_object (toplevel, other_object);
s_page_remove (toplevel->page_current, other_object);
s_delete_object (toplevel, other_object);
o_net_recalc(toplevel, object);
s_tile_update_object(toplevel, object);
s_conn_update_object (toplevel, object);
return(-1);
}
}
}
c_current = g_list_next (c_current);
}
return(0);
}