/*! \brief Update a component.
*
* \par Function Description
* Updates \a o_current to the latest version of the symbol available
* in the symbol library, while preserving any attributes set in the
* current schematic. On success, returns the new OBJECT which
* replaces \a o_current on the page; \a o_current is deleted. On
* failure, returns NULL, and \a o_current is left unchanged.
*
* \param [in] w_current The GSCHEM_TOPLEVEL object.
* \param [in,out] o_current The OBJECT to be updated.
*
* \return the new OBJECT that replaces \a o_current.
*/
OBJECT *
o_update_component (GSCHEM_TOPLEVEL *w_current, OBJECT *o_current)
{
TOPLEVEL *toplevel = w_current->toplevel;
OBJECT *o_new;
PAGE *page;
GList *new_attribs;
GList *old_attribs;
GList *iter;
const CLibSymbol *clib;
g_return_val_if_fail (o_current != NULL, NULL);
g_return_val_if_fail (o_current->type == OBJ_COMPLEX, NULL);
g_return_val_if_fail (o_current->complex_basename != NULL, NULL);
page = o_get_page (toplevel, o_current);
/* This should be replaced with API to invalidate only the specific
* symbol name we want to update */
s_clib_flush_symbol_cache ();
clib = s_clib_get_symbol_by_name (o_current->complex_basename);
if (clib == NULL) {
s_log_message (_("Could not find symbol [%s] in library. Update failed.\n"),
o_current->complex_basename);
return NULL;
}
/* Unselect the old object. */
o_selection_remove (toplevel, page->selection_list, o_current);
/* Create new object and set embedded */
o_new = o_complex_new (toplevel, OBJ_COMPLEX, DEFAULT_COLOR,
o_current->complex->x,
o_current->complex->y,
o_current->complex->angle,
o_current->complex->mirror,
clib, o_current->complex_basename,
1);
if (o_complex_is_embedded (o_current)) {
o_embed (toplevel, o_new);
}
new_attribs = o_complex_promote_attribs (toplevel, o_new);
/* Cull any attributes from new COMPLEX that are already attached to
* old COMPLEX. Note that the new_attribs list is kept consistent by
* setting GList data pointers to NULL if their OBJECTs are
* culled. At the end, the new_attribs list is updated by removing
* all list items with NULL data. This is slightly magic, but
* works. */
for (iter = new_attribs; iter != NULL; iter = g_list_next (iter)) {
OBJECT *attr_new = iter->data;
gchar *name;
gchar *value;
g_assert (attr_new->type == OBJ_TEXT);
o_attrib_get_name_value (attr_new, &name, NULL);
value = o_attrib_search_attached_attribs_by_name (o_current, name, 0);
if (value != NULL) {
o_attrib_remove (toplevel, &o_new->attribs, attr_new);
s_delete_object (toplevel, attr_new);
iter->data = NULL;
}
g_free (name);
g_free (value);
}
new_attribs = g_list_remove_all (new_attribs, NULL);
/* Detach attributes from old OBJECT and attach to new OBJECT */
old_attribs = g_list_copy (o_current->attribs);
o_attrib_detach_all (toplevel, o_current);
o_attrib_attach_list (toplevel, old_attribs, o_new, 1);
g_list_free (old_attribs);
/* Add new attributes to page */
s_page_append_list (toplevel, page, new_attribs);
/* Update pinnumbers for current slot */
s_slot_update_object (toplevel, o_new);
/* Replace old OBJECT with new OBJECT */
s_page_replace (toplevel, page, o_current, o_new);
s_delete_object (toplevel, o_current);
/* Select new OBJECT */
o_selection_add (toplevel, page->selection_list, o_new);
/* mark the page as modified */
toplevel->page_current->CHANGED = 1;
o_undo_savestate (w_current, UNDO_ALL);
return o_new;
}
/*! \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 Add a component to the page.
* \par Function Description
* Adds a component <B>scm_comp_name</B> to the schematic, at
* position (<B>scm_x</B>, <B>scm_y</B>), with some properties set by
* the parameters:
* \param [in] scm_x Coordinate X of the symbol.
* \param [in] scm_y Coordinate Y of the symbol.
* \param [in] angle Angle of rotation of the symbol.
* \param [in] selectable True if the symbol is selectable, false otherwise.
* \param [in] mirror True if the symbol is mirrored, false otherwise.
* If scm_comp_name is a scheme empty list, SCM_BOOL_F, or an empty
* string (""), then g_add_component returns SCM_BOOL_F without writing
* to the log.
* \return TRUE if the component was added, FALSE otherwise.
*
*/
SCM g_add_component(SCM page_smob, SCM scm_comp_name, SCM scm_x, SCM scm_y,
SCM scm_angle, SCM scm_selectable, SCM scm_mirror)
{
TOPLEVEL *toplevel;
PAGE *page;
gboolean selectable, mirror;
gchar *comp_name;
int x, y, angle;
OBJECT *new_obj;
const CLibSymbol *clib;
/* Return if scm_comp_name is NULL (an empty list) or scheme's FALSE */
if (SCM_NULLP(scm_comp_name) ||
(SCM_BOOLP(scm_comp_name) && !(SCM_NFALSEP(scm_comp_name))) ) {
return SCM_BOOL_F;
}
/* Get toplevel and the page */
SCM_ASSERT (g_get_data_from_page_smob (page_smob, &toplevel, &page),
page_smob, SCM_ARG1, "add-component-at-xy");
/* Check the arguments */
SCM_ASSERT (scm_is_string(scm_comp_name), scm_comp_name,
SCM_ARG2, "add-component-at-xy");
SCM_ASSERT ( scm_is_integer(scm_x), scm_x,
SCM_ARG3, "add-component-at-xy");
SCM_ASSERT ( scm_is_integer(scm_y), scm_y,
SCM_ARG4, "add-component-at-xy");
SCM_ASSERT ( scm_is_integer(scm_angle), scm_angle,
SCM_ARG5, "add-component-at-xy");
SCM_ASSERT ( scm_boolean_p(scm_selectable), scm_selectable,
SCM_ARG6, "add-component-at-xy");
SCM_ASSERT ( scm_boolean_p(scm_mirror), scm_mirror,
SCM_ARG7, "add-component-at-xy");
/* Get the parameters */
comp_name = SCM_STRING_CHARS(scm_comp_name);
x = scm_to_int(scm_y);
y = scm_to_int(scm_y);
angle = scm_to_int(scm_angle);
selectable = SCM_NFALSEP(scm_selectable);
mirror = SCM_NFALSEP(scm_mirror);
SCM_ASSERT (comp_name, scm_comp_name,
SCM_ARG2, "add-component-at-xy");
if (strcmp(comp_name, "") == 0) {
return SCM_BOOL_F;
}
clib = s_clib_get_symbol_by_name (comp_name);
new_obj = o_complex_new (toplevel, 'C', DEFAULT_COLOR, x, y, angle, mirror,
clib, comp_name, selectable);
s_page_append_list (page, o_complex_promote_attribs (toplevel, new_obj));
s_page_append (page, new_obj);
/*
* For now, do not redraw the newly added complex, since this might cause
* flicker if you are zoom/panning right after this function executes
*/
#if 0
/* Now the new component should be added to the object's list and
drawn in the screen */
o_invalidate (toplevel, new_object);
#endif
return SCM_BOOL_T;
}
