/*! \brief Print full TOPLEVEL structure.
* \par Function Description
* This function prints the internal structure of <B>toplevel</B>'s
* list of pages.
*
* \param [in] toplevel The TOPLEVEL object to print.
*/
void s_page_print_all (TOPLEVEL *toplevel)
{
const GList *iter;
PAGE *page;
for ( iter = geda_list_get_glist( toplevel->pages );
iter != NULL;
iter = g_list_next( iter ) ) {
page = (PAGE *)iter->data;
printf ("FILENAME: %s\n", page->page_filename);
print_struct_forw (page->_object_list);
}
}
/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
void print_struct_forw (GList *list)
{
OBJECT *o_current=NULL;
GList *iter;
iter = list;
printf("TRYING to PRINT\n");
while (iter != NULL) {
o_current = (OBJECT *)iter->data;
printf("Name: %s\n", o_current->name);
printf("Type: %d\n", o_current->type);
printf("Sid: %d\n", o_current->sid);
if (o_current->type == OBJ_COMPLEX || o_current->type == OBJ_PLACEHOLDER) {
print_struct_forw(o_current->complex->prim_objs);
}
o_attrib_print (o_current->attribs);
printf("----\n");
iter = g_list_next (iter);
}
}
