/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
void o_text_prepare_place(GschemToplevel *w_current, char *text, int color, int align, int rotate, int size)
{
GschemPageView *page_view = gschem_toplevel_get_current_page_view (w_current);
TOPLEVEL *toplevel = gschem_page_view_get_toplevel (page_view);
PAGE *page = gschem_page_view_get_page (page_view);
g_return_if_fail (toplevel != NULL);
g_return_if_fail (page != NULL);
/* Insert the new object into the buffer at world coordinates (0,0).
* It will be translated to the mouse coordinates during placement. */
w_current->first_wx = 0;
w_current->first_wy = 0;
w_current->last_drawb_mode = LAST_DRAWB_MODE_NONE;
/* remove the old place list if it exists */
s_delete_object_glist(toplevel, page->place_list);
page->place_list = NULL;
/* here you need to add OBJ_TEXT when it's done */
page->place_list =
g_list_append(page->place_list,
o_text_new (toplevel, OBJ_TEXT, color,
0, 0, align, rotate, /* zero is angle */
text,
size,
/* has to be visible so you can place it */
/* visibility is set when you create the object */
VISIBLE, SHOW_NAME_VALUE));
w_current->inside_action = 1;
i_set_state (w_current, ENDTEXT);
}
/*! \brief Attach attribute to object.
*
* Attach the name=value pair to the OBJECT "object". This function
* was stolen from gschem/src/o_attrib.c:o_attrib_add_attrib and
* hacked for gattrib.
* \param toplevel TOPLEVEL to operate on
* \param text_string
* \param visibility
* \param show_name_value
* \param object
* \returns pointer to the object
* \todo Does it need to return OBJECT?
*/
OBJECT *
s_object_attrib_add_attrib_in_object (TOPLEVEL *toplevel,
char *text_string,
int visibility,
int show_name_value,
OBJECT * object)
{
int world_x = -1, world_y = -1;
int color;
int left, right, top, bottom;
OBJECT *o_current;
OBJECT *new_obj;
o_current = object;
/* creating a toplevel or unattached attribute */
if (o_current) {
/* get coordinates of where to place the text object */
switch (o_current->type) {
case (OBJ_COMPLEX):
world_x = o_current->complex->x;
world_y = o_current->complex->y;
color = ATTRIBUTE_COLOR;
break;
case (OBJ_NET):
world_x = o_current->complex->x;
world_y = o_current->complex->y;
color = ATTRIBUTE_COLOR;
break;
default:
fprintf(stderr, _("In s_object_attrib_add_attrib_in_object, trying to add attrib to non-complex or non-net!\n"));
exit(-1);
}
} else { /* This must be a floating attrib, but what is that !?!?!?!?! */
world_get_object_glist_bounds (toplevel,
s_page_objects (toplevel->page_current),
&left, &top, &right, &bottom);
/* this really is the lower left hand corner */
world_x = left;
world_y = top;
/* printf("%d %d\n", world_x, world_y); */
color = DETACHED_ATTRIBUTE_COLOR;
}
/* first create text item */
#if DEBUG
printf("=== In s_object_attrib_add_attrib_in_object, about to attach new text attrib with properties:\n");
printf(" color = %d\n", color);
printf(" text_string = %s \n", text_string);
printf(" text_size = %d \n", toplevel->text_size);
printf(" visibility = %d \n", visibility);
printf(" show_name_value = %d \n", show_name_value);
#endif
new_obj = o_text_new (toplevel, color, world_x, world_y,
LOWER_LEFT, 0, /* zero is angle */
text_string, DEFAULT_TEXT_SIZE,
visibility, show_name_value);
s_page_append (toplevel, toplevel->page_current, new_obj);
/* now toplevel->page_current->object_tail contains new text item */
/* now attach the attribute to the object (if o_current is not NULL) */
/* remember that o_current contains the object to get the attribute */
if (o_current) {
o_attrib_attach (toplevel, new_obj, o_current, FALSE);
}
o_selection_add (toplevel,
toplevel->page_current->selection_list, new_obj);
toplevel->page_current->CHANGED = 1;
return new_obj;
}
/*! \brief Updates the preview widget.
* \par Function Description
* This function updates the preview: if the preview is active and a
* filename has been given, it opens the file and displays
* it. Otherwise it displays a blank page.
*
* \param [in] preview The preview widget.
*/
static void
preview_update (Preview *preview)
{
int left, top, right, bottom;
int width, height;
GError * err = NULL;
GschemPageView *preview_view = GSCHEM_PAGE_VIEW (preview);
g_return_if_fail (preview_view != NULL);
PAGE *preview_page = gschem_page_view_get_page (preview_view);
if (preview_page == NULL) {
return;
}
TOPLEVEL *preview_toplevel = preview_page->toplevel;
/* delete old preview */
s_page_delete_objects (preview_toplevel, preview_page);
if (preview->active) {
g_assert ((preview->filename == NULL) || (preview->buffer == NULL));
if (preview->filename != NULL) {
/* open up file in current page */
f_open_flags (preview_toplevel, preview_page,
preview->filename,
F_OPEN_RC | F_OPEN_RESTORE_CWD, NULL);
/* test value returned by f_open... - Fix me */
/* we should display something if there an error occured - Fix me */
}
if (preview->buffer != NULL) {
/* Load the data buffer */
GList * objects = o_read_buffer (preview_toplevel,
NULL, preview->buffer, -1,
_("Preview Buffer"), &err);
if (err == NULL) {
s_page_append_list (preview_toplevel, preview_page,
objects);
}
else {
s_page_append (preview_toplevel, preview_page,
o_text_new(preview_toplevel, OBJ_TEXT, 2, 100, 100, LOWER_MIDDLE, 0,
err->message, 10, VISIBLE, SHOW_NAME_VALUE));
g_error_free(err);
}
}
}
if (world_get_object_glist_bounds (preview_toplevel,
s_page_objects (preview_page),
&left, &top,
&right, &bottom)) {
/* Clamp the canvas size to the extents of the page being previewed */
width = right - left;
height = bottom - top;
GschemPageGeometry *geometry = gschem_page_view_get_page_geometry (preview_view);
geometry->world_left = left - ((double)width * OVER_ZOOM_FACTOR);
geometry->world_right = right + ((double)width * OVER_ZOOM_FACTOR);
geometry->world_top = top - ((double)height * OVER_ZOOM_FACTOR);
geometry->world_bottom = bottom + ((double)height * OVER_ZOOM_FACTOR);
}
/* display current page (possibly empty) */
gschem_page_view_zoom_extents (preview_view, NULL);
}
/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
void o_slot_end(GSCHEM_TOPLEVEL *w_current, const char *string, int len)
{
TOPLEVEL *toplevel = w_current->toplevel;
OBJECT *new_obj;
OBJECT *object;
OBJECT *temp;
char *slot_value;
char *numslots_value;
OBJECT *slot_text_object;
char *value = NULL;
int numslots;
int new_slot_number;
int status;
status = o_attrib_get_name_value(string, NULL, &value);
if (!status) {
s_log_message(_("Slot attribute malformed\n"));
return;
}
object = o_select_return_first_object(w_current);
/* get the parent object if the selection is only a text object */
if (object != NULL && object->type == OBJ_TEXT) {
if (object->attached_to != NULL) {
object = object->attached_to;
}
}
/* now find the slot attribute on the outside first */
if (object != NULL) {
numslots_value = o_attrib_search_numslots(object, NULL);
if (!numslots_value) {
s_log_message(_("numslots attribute missing\n"));
s_log_message(
_("Slotting not allowed for this component\n"));
g_free(value);
return;
}
numslots = atoi(numslots_value);
g_free(numslots_value);
new_slot_number = atoi(value);
#if DEBUG
printf("numslots = %d\n", numslots);
#endif
if (new_slot_number > numslots || new_slot_number <=0 ) {
s_log_message(_("New slot number out of range\n"));
g_free(value);
return;
}
/* first see if slot attribute already exists outside
* complex */
slot_value = o_attrib_search_slot(object, &slot_text_object);
if (slot_value) {
o_text_set_string (toplevel, slot_text_object, string);
temp = slot_text_object;
if (temp->visibility == VISIBLE ||
(temp->visibility == INVISIBLE && toplevel->show_hidden_text)) {
o_invalidate (w_current,temp);
}
o_text_recreate(toplevel, temp);
/* this doesn't deal with the selection list
* item */
if (temp->visibility == VISIBLE ||
(temp->visibility == INVISIBLE && toplevel->show_hidden_text)) {
o_invalidate (w_current,temp);
}
g_free(slot_value);
} else {
/* here you need to do the add the slot
attribute since it doesn't exist */
new_obj = o_text_new (toplevel, OBJ_TEXT, ATTRIBUTE_COLOR,
object->complex->x, object->complex->y,
LOWER_LEFT, 0, /* zero is angle */
string, 10, INVISIBLE, SHOW_NAME_VALUE);
s_page_append (toplevel->page_current, new_obj);
/* manually attach attribute */
o_attrib_attach (toplevel, new_obj, object, FALSE);
slot_text_object = new_obj;
}
o_invalidate (w_current, object);
o_attrib_slot_update(toplevel, object);
o_invalidate (w_current,object);
toplevel->page_current->CHANGED = 1;
g_free(value);
} else {
fprintf(stderr,
_("uggg! you tried to slot edit something that doesn't exist!\n"));
g_free(value);
exit(-1);
}
}
/*! \brief
* \par Function Description
*
*/
OBJECT *o_complex_new(TOPLEVEL *toplevel,
char type,
int color, int x, int y, int angle,
int mirror, const CLibSymbol *clib,
const gchar *basename,
int selectable)
{
OBJECT *new_node=NULL;
OBJECT *new_prim_obj;
GList *prim_objs;
GList *iter;
int loaded_normally = FALSE;
gchar *buffer = NULL;
new_node = s_basic_new_object(type, "complex");
if (clib != NULL) {
new_node->complex_basename = g_strdup (s_clib_symbol_get_name (clib));
} else {
new_node->complex_basename = g_strdup (basename);
}
new_node->complex_embedded = FALSE;
new_node->color = color;
new_node->selectable = selectable;
new_node->complex = (COMPLEX *) g_malloc(sizeof(COMPLEX));
new_node->complex->angle = angle;
new_node->complex->mirror = mirror;
new_node->complex->x = x;
new_node->complex->y = y;
prim_objs = NULL;
/* get the symbol data */
if (clib != NULL) {
buffer = s_clib_symbol_get_data (clib);
}
if (clib == NULL || buffer == NULL) {
char *not_found_text = NULL;
int left, right, top, bottom;
int x_offset, y_offset;
/* filename was NOT found */
loaded_normally = FALSE;
/* Put placeholder into object list. Changed by SDB on
* 1.19.2005 to fix problem that symbols were silently
* deleted by gattrib when RC files were messed up. */
new_node->type = OBJ_PLACEHOLDER;
/* Mark the origin of the missing component */
new_prim_obj = o_line_new(toplevel, OBJ_LINE,
DETACHED_ATTRIBUTE_COLOR,
x - 50, y, x + 50, y);
prim_objs = g_list_append (prim_objs, new_prim_obj);
new_prim_obj = o_line_new(toplevel, OBJ_LINE,
DETACHED_ATTRIBUTE_COLOR,
x, y + 50, x, y - 50);
prim_objs = g_list_append (prim_objs, new_prim_obj);
/* Add some useful text */
not_found_text =
g_strdup_printf (_("Component not found:\n %s"),
new_node->complex_basename);
new_prim_obj = o_text_new(toplevel,
OBJ_TEXT, DETACHED_ATTRIBUTE_COLOR,
x + NOT_FOUND_TEXT_X,
y + NOT_FOUND_TEXT_Y, LOWER_LEFT, 0,
not_found_text, 8,
VISIBLE, SHOW_NAME_VALUE);
prim_objs = g_list_append (prim_objs, new_prim_obj);
g_free(not_found_text);
/* figure out where to put the hazard triangle */
world_get_text_bounds (toplevel, new_prim_obj, &left, &top, &right, &bottom);
x_offset = (right - left) / 4;
y_offset = bottom - top + 100; /* 100 is just an additional offset */
/* add hazard triangle */
new_prim_obj = o_line_new(toplevel, OBJ_LINE,
DETACHED_ATTRIBUTE_COLOR,
x + NOT_FOUND_TEXT_X + x_offset,
y + NOT_FOUND_TEXT_Y + y_offset,
x + NOT_FOUND_TEXT_X + x_offset + 600,
y + NOT_FOUND_TEXT_Y + y_offset);
o_set_line_options(toplevel, new_prim_obj, END_ROUND, TYPE_SOLID,
50, -1, -1);
prim_objs = g_list_append (prim_objs, new_prim_obj);
new_prim_obj = o_line_new(toplevel, OBJ_LINE,
DETACHED_ATTRIBUTE_COLOR,
x + NOT_FOUND_TEXT_X + x_offset,
y + NOT_FOUND_TEXT_Y + y_offset,
x + NOT_FOUND_TEXT_X + x_offset + 300,
y + NOT_FOUND_TEXT_Y + y_offset + 500);
o_set_line_options(toplevel, new_prim_obj, END_ROUND, TYPE_SOLID,
50, -1, -1);
prim_objs = g_list_append (prim_objs, new_prim_obj);
new_prim_obj = o_line_new(toplevel, OBJ_LINE,
DETACHED_ATTRIBUTE_COLOR,
x + NOT_FOUND_TEXT_X + x_offset + 300,
y + NOT_FOUND_TEXT_Y + y_offset + 500,
x + NOT_FOUND_TEXT_X + x_offset + 600,
y + NOT_FOUND_TEXT_Y + y_offset);
o_set_line_options(toplevel, new_prim_obj, END_ROUND, TYPE_SOLID,
50, -1, -1);
prim_objs = g_list_append (prim_objs, new_prim_obj);
new_prim_obj = o_text_new(toplevel,
OBJ_TEXT, DETACHED_ATTRIBUTE_COLOR,
x + NOT_FOUND_TEXT_X + x_offset + 270,
y + NOT_FOUND_TEXT_Y + y_offset + 90,
LOWER_LEFT, 0, "!", 18,
VISIBLE, SHOW_NAME_VALUE);
prim_objs = g_list_append (prim_objs, new_prim_obj);
} else {
/* filename was found */
loaded_normally = TRUE;
/* add connections till translated */
prim_objs = o_read_buffer (toplevel, prim_objs, buffer, -1, new_node->complex_basename);
g_free (buffer);
}
/* do not mirror/rotate/translate/connect the primitive objects if the
* component was not loaded via o_read
*/
if (loaded_normally == TRUE) {
if (mirror) {
o_glist_mirror_world (toplevel, 0, 0, prim_objs);
}
o_glist_rotate_world (toplevel, 0, 0, angle, prim_objs);
o_glist_translate_world (toplevel, x, y, prim_objs);
}
new_node->complex->prim_objs = prim_objs;
/* set the parent field now */
for (iter = prim_objs; iter != NULL; iter = g_list_next (iter)) {
OBJECT *tmp = iter->data;
tmp->parent = new_node;
}
o_complex_recalc(toplevel, new_node);
return new_node;
}
/* text item */
OBJECT *o_attrib_add_attrib(GschemToplevel *w_current,
const char *text_string, int visibility,
int show_name_value, OBJECT *object)
{
TOPLEVEL *toplevel = gschem_toplevel_get_toplevel (w_current);
OBJECT *new_obj;
int world_x = - 1, world_y = -1;
int align = LOWER_LEFT;
int angle = 0;
int color;
int left, right, top, bottom;
OBJECT *o_current;
color = DETACHED_ATTRIBUTE_COLOR;
o_current = object;
/* creating a toplevel or unattached attribute */
if (o_current) {
/* get coordinates of where to place the text object */
switch(o_current->type) {
case(OBJ_COMPLEX):
case(OBJ_PLACEHOLDER):
world_x = o_current->complex->x;
world_y = o_current->complex->y;
align = LOWER_LEFT;
angle = 0;
color = ATTRIBUTE_COLOR;
break;
case(OBJ_ARC):
world_x = o_current->arc->x;
world_y = o_current->arc->y;
align = LOWER_LEFT;
angle = 0;
color = ATTRIBUTE_COLOR;
break;
case(OBJ_CIRCLE):
world_x = o_current->circle->center_x;
world_y = o_current->circle->center_y;
align = LOWER_LEFT;
angle = 0;
color = ATTRIBUTE_COLOR;
break;
case(OBJ_BOX):
world_x = o_current->box->upper_x;
world_y = o_current->box->upper_y;
align = LOWER_LEFT;
angle = 0;
color = ATTRIBUTE_COLOR;
break;
case(OBJ_LINE):
case(OBJ_NET):
case(OBJ_PIN):
case(OBJ_BUS):
{
int dx = o_current->line->x[1] - o_current->line->x[0];
int dy = o_current->line->y[1] - o_current->line->y[0];
if (dy == 0) {
if (dx > 0) {
world_x = o_current->line->x[0] + SPACING_FROM_END;
world_y = o_current->line->y[0] + SPACING_PERPENDICULAR;
align = LOWER_LEFT;
angle = 0;
}
else {
world_x = o_current->line->x[0] - SPACING_FROM_END;
world_y = o_current->line->y[0] + SPACING_PERPENDICULAR;
align = LOWER_RIGHT;
angle = 0;
}
}
else if (dx == 0) {
if (dy > 0) {
world_x = o_current->line->x[0] - SPACING_PERPENDICULAR;
world_y = o_current->line->y[0] + SPACING_FROM_END;
align = LOWER_LEFT;
angle = 90;
}
else {
world_x = o_current->line->x[0] - SPACING_PERPENDICULAR;
world_y = o_current->line->y[0] - SPACING_FROM_END;
align = LOWER_RIGHT;
angle = 90;
}
}
else {
world_x = o_current->line->x[0];
world_y = o_current->line->y[0];
align = LOWER_LEFT;
angle = 0;
}
color = ATTRIBUTE_COLOR;
}
break;
case(OBJ_TEXT):
world_x = o_current->text->x;
world_y = o_current->text->y;
color = DETACHED_ATTRIBUTE_COLOR;
align = LOWER_LEFT;
angle = 0;
o_current = NULL;
break;
}
} else {
world_get_object_glist_bounds (toplevel,
s_page_objects (toplevel->page_current),
&left, &top, &right, &bottom);
/* this really is the lower left hand corner */
world_x = left;
world_y = top;
/* printf("%d %d\n", world_x, world_y); */
align = LOWER_LEFT;
angle = 0;
color = DETACHED_ATTRIBUTE_COLOR;
}
/* first create text item */
new_obj = o_text_new(toplevel, color, world_x, world_y,
align, angle, text_string,
w_current->text_size, /* current text size */
visibility, show_name_value);
s_page_append (toplevel, toplevel->page_current, new_obj);
/* now attach the attribute to the object (if o_current is not NULL) */
/* remember that o_current contains the object to get the attribute */
if (o_current) {
o_attrib_attach (toplevel, new_obj, o_current, FALSE);
}
o_selection_add (toplevel, toplevel->page_current->selection_list, new_obj);
/* handle slot= attribute, it's a special case */
if (o_current != NULL &&
g_ascii_strncasecmp (text_string, "slot=", 5) == 0) {
o_slot_end (w_current, o_current, text_string);
}
/* Call add-objects-hook. */
g_run_hook_object (w_current, "%add-objects-hook", new_obj);
g_run_hook_object (w_current, "%select-objects-hook", new_obj);
gschem_toplevel_page_content_changed (w_current, toplevel->page_current);
return new_obj;
}
/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
void o_slot_end(GSCHEM_TOPLEVEL *w_current, OBJECT *object, const char *string)
{
TOPLEVEL *toplevel = w_current->toplevel;
OBJECT *new_obj;
char *slot_value;
char *numslots_value;
OBJECT *o_slot;
char *value = NULL;
int numslots;
int new_slot_number;
int status;
g_return_if_fail (object != NULL);
status = o_attrib_string_get_name_value (string, NULL, &value);
if (!status) {
s_log_message (_("Slot attribute malformed\n"));
return;
}
numslots_value =
o_attrib_search_object_attribs_by_name (object, "numslots", 0);
if (!numslots_value) {
s_log_message (_("numslots attribute missing\n"));
s_log_message (_("Slotting not allowed for this component\n"));
g_free (value);
return;
}
numslots = atoi (numslots_value);
g_free (numslots_value);
new_slot_number = atoi (value);
#if DEBUG
printf ("numslots = %d\n", numslots);
#endif
if (new_slot_number > numslots || new_slot_number <=0 ) {
s_log_message (_("New slot number out of range\n"));
g_free (value);
return;
}
/* first see if slot attribute already exists outside
* complex */
slot_value = s_slot_search_slot (object, &o_slot);
g_free (slot_value);
if (o_slot != NULL && !o_attrib_is_inherited (o_slot)) {
o_text_set_string (toplevel, o_slot, string);
} else {
/* here you need to do the add the slot
attribute since it doesn't exist */
new_obj = o_text_new (toplevel, OBJ_TEXT, ATTRIBUTE_COLOR,
object->complex->x, object->complex->y,
LOWER_LEFT, 0, /* zero is angle */
string, 10, INVISIBLE, SHOW_NAME_VALUE);
s_page_append (toplevel, toplevel->page_current, new_obj);
/* manually attach attribute */
o_attrib_attach (toplevel, new_obj, object, FALSE);
}
s_slot_update_object (toplevel, object);
toplevel->page_current->CHANGED = 1;
g_free (value);
}
