libgeda/src/s_toplevel.c

   1 /* gEDA - GPL Electronic Design Automation
   2  * libgeda - gEDA's library
   3  * Copyright (C) 1998, 1999, 2000 Kazu Hirata / Ales Hvezda
   4  * Copyright (C) 1998-2010 Ales Hvezda
   5  * Copyright (C) 1998-2010 gEDA Contributors (see ChangeLog for details)
   6  *
   7  * This program is free software; you can redistribute it and/or modify
   8  * it under the terms of the GNU General Public License as published by
   9  * the Free Software Foundation; either version 2 of the License, or
  10  * (at your option) any later version.
  11  *
  12  * This program is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with this program; if not, write to the Free Software
  19  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA
  20  */
  21 #include <config.h>
  22
  23 #include <stdio.h>
  24 #ifdef HAVE_STRING_H
  25 #include <string.h>
  26 #endif
  27 #ifdef HAVE_STDLIB_H
  28 #include <stdlib.h>
  29 #endif
  30
  31 #include "libgeda_priv.h"
  32
  33 #ifdef HAVE_LIBDMALLOC
  34 #include <dmalloc.h>
  35 #endif
  36
  37 /*! \todo Finish function documentation!!!
  38  *  \brief
  39  *  \par Function Description
  40  *
  41  */
  42 TOPLEVEL *s_toplevel_new (void)
  43 {
  44   TOPLEVEL *toplevel;
  45
  46   toplevel = (TOPLEVEL*)g_new (TOPLEVEL, 1);
  47
  48   toplevel->RC_list = NULL;
  49
  50   toplevel->untitled_name      = NULL;
  51   toplevel->scheme_directory   = NULL;
  52   toplevel->bitmap_directory   = NULL;
  53
  54   toplevel->init_left = 0;
  55   toplevel->init_top  = 0;
  56   /* init_right and _bottom are set before this function is called */
  57
  58   toplevel->width  = 1;
  59   toplevel->height = 1;
  60
  61   toplevel->override_color = -1;
  62
  63   toplevel->DONT_REDRAW       = 0;
  64   toplevel->ADDING_SEL        = 0;
  65
  66   toplevel->pages = geda_list_new();
  67   toplevel->page_current = NULL;
  68
  69   toplevel->show_hidden_text = 0;
  70
  71   toplevel->major_changed_refdes = NULL;
  72
  73   /* BLOCK SET IN GSCHEM, BUT USED IN LIBGEDA - NEEDS A RETHINK */
  74   toplevel->background_color   = 0;
  75   toplevel->override_net_color = -1;
  76   toplevel->override_bus_color = -1;
  77   toplevel->override_pin_color = -1;
  78   toplevel->pin_style = 0;
  79   toplevel->net_style = 0;
  80   toplevel->bus_style = 0;
  81   toplevel->line_style = 0;
  82   /* END BLOCK - ALTHOUGH THERE ARE MORE CASES! */
  83
  84   toplevel->object_clipping = 0;
  85
  86   toplevel->print_orientation = 0;
  87
  88   toplevel->image_color = FALSE;
  89
  90   toplevel->print_color = FALSE;
  91
  92   toplevel->print_color_background = 0;
  93
  94   toplevel->setpagedevice_orientation = FALSE;
  95
  96   toplevel->setpagedevice_pagesize = FALSE;
  97
  98   toplevel->postscript_prolog = NULL;
  99
 100   toplevel->net_consolidate = FALSE;
 101
 102   /* The following is an attempt at getting (deterministic) defaults */
 103   /* for the following variables */
 104   toplevel->attribute_promotion = FALSE;
 105   toplevel->promote_invisible   = FALSE;
 106   toplevel->keep_invisible      = FALSE;
 107
 108   toplevel->print_output_type = 0;
 109
 110   toplevel->print_output_capstyle = BUTT_CAP;
 111
 112   toplevel->paper_width  = 0;
 113   toplevel->paper_height = 0;
 114
 115   toplevel->bus_ripper_symname = NULL;
 116
 117   toplevel->force_boundingbox = FALSE;
 118
 119   toplevel->always_promote_attributes = NULL;
 120
 121   toplevel->net_naming_priority = 0;
 122   toplevel->hierarchy_traversal = 0;
 123   toplevel->hierarchy_uref_mangle = 0;
 124   toplevel->hierarchy_netname_mangle = 0;
 125   toplevel->hierarchy_netattrib_mangle = 0;
 126   toplevel->hierarchy_uref_separator      = NULL;
 127   toplevel->hierarchy_netname_separator   = NULL;
 128   toplevel->hierarchy_netattrib_separator = NULL;
 129   toplevel->hierarchy_netattrib_order = 0;
 130   toplevel->hierarchy_netname_order = 0;
 131   toplevel->hierarchy_uref_order = 0;
 132   toplevel->unnamed_netname = NULL;
 133   toplevel->unnamed_busname = NULL;
 134
 135   toplevel->rendered_text_bounds_func = NULL;
 136   toplevel->rendered_text_bounds_data = NULL;
 137
 138   toplevel->load_newer_backup_func = NULL;
 139   toplevel->load_newer_backup_data = NULL;
 140
 141   /* Auto-save interval */
 142   toplevel->auto_save_interval = 0;
 143   toplevel->auto_save_timeout = 0;
 144
 145   /* disable the events */
 146   toplevel->DONT_REDRAW = 1;
 147
 148   return toplevel;
 149 }
 150
 151 /*! \todo Finish function documentation!!!
 152  *  \brief
 153  *  \par Function Description
 154  *
 155  */
 156 void s_toplevel_delete (TOPLEVEL *toplevel)
 157 {
 158   if (toplevel->auto_save_timeout != 0) {
 159     /* Assume this works */
 160     g_source_remove (toplevel->auto_save_timeout);
 161   }
 162
 163   g_free (toplevel->untitled_name);
 164   g_free (toplevel->scheme_directory);
 165   g_free (toplevel->bitmap_directory);
 166   g_free (toplevel->bus_ripper_symname);
 167
 168   /* free all fonts */
 169   /* if you close a window, then you free the font set... */
 170   /* this is probably a bad idea... */
 171   /* The font set can ONLY be freed when exiting!!! */
 172   /*  o_text_freeallfonts (toplevel); */
 173
 174   /* delete all pages */
 175   s_page_delete_list (toplevel);
 176
 177   /* Delete the page list */
 178   g_object_unref(toplevel->pages);
 179
 180   g_free (toplevel);
 181
 182 }