libgeda/src/o_embed.c

   1 /* gEDA - GPL Electronic Design Automation
   2  * libgeda - gEDA's library
   3  * Copyright (C) 1998-2007 Ales Hvezda
   4  * Copyright (C) 1998-2007 gEDA Contributors (see ChangeLog for details)
   5  *
   6  * This program is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation; either version 2 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with this program; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA
  19  */
  20 #include <config.h>
  21
  22 #include <stdio.h>
  23
  24 #include <gtk/gtk.h>
  25 #include <libguile.h>
  26
  27 #include <libgen.h>
  28
  29 #include "defines.h"
  30 #include "struct.h"
  31 #include "globals.h"
  32 #include "o_types.h"
  33 #include "funcs.h"
  34 #include "colors.h"
  35
  36 #include "../include/prototype.h"
  37
  38 #ifdef HAVE_LIBDMALLOC
  39 #include <dmalloc.h>
  40 #endif
  41
  42
  43 /*! \todo Finish function documentation!!!
  44  *  \brief
  45  *  \par Function Description
  46  *
  47  */
  48 void o_embed(TOPLEVEL *w_current, OBJECT *o_current)
  49 {
  50
  51   /* check o_current is a complex and is not already embedded */
  52   if (o_current->type == OBJ_COMPLEX &&
  53       !o_complex_is_embedded (o_current))
  54   {
  55
  56     /* set the embedded flag */
  57     o_current->complex_embedded = TRUE;
  58
  59     s_log_message ("Component [%s] has been embedded\n",
  60                    o_current->complex_basename);
  61
  62     /* page content has been modified */
  63     w_current->page_current->CHANGED = 1;
  64   }
  65
  66   /* If it's a picture and it's not embedded */
  67   if ( (o_current->type == OBJ_PICTURE) &&
  68        (o_current->picture->embedded == 0) ) {
  69
  70     o_current->picture->embedded = 1;
  71
  72     s_log_message ("Picture [%s] has been embedded\n",
  73                    basename(o_current->picture->filename));
  74
  75
  76     /* page content has been modified */
  77     w_current->page_current->CHANGED = 1;
  78   }
  79
  80 }
  81
  82 /*! \todo Finish function documentation!!!
  83  *  \brief
  84  *  \par Function Description
  85  *
  86  */
  87 void o_unembed(TOPLEVEL *w_current, OBJECT *o_current)
  88 {
  89   const CLibSymbol *sym;
  90
  91   /* check o_current is an embedded complex */
  92   if (o_current->type == OBJ_COMPLEX &&
  93       o_complex_is_embedded (o_current))
  94   {
  95
  96     /* search for the symbol in the library */
  97     sym = s_clib_get_symbol_by_name (o_current->complex_basename);
  98
  99     if (sym == NULL) {
 100       /* symbol not found in the symbol library: signal an error */
 101       s_log_message ("Could not find component [%s], while trying to unembed. Component is still embedded\n",
 102                      o_current->complex_basename);
 103
 104     } else {
 105       /* clear the embedded flag */
 106       o_current->complex_embedded = FALSE;
 107
 108       s_log_message ("Component [%s] has been successfully unembedded\n",
 109                      o_current->complex_basename);
 110
 111       /* page content has been modified */
 112       w_current->page_current->CHANGED = 1;
 113
 114     }
 115   }
 116
 117   /* If it's a picture and it's embedded */
 118   if ( (o_current->type == OBJ_PICTURE) &&
 119        (o_current->picture->embedded == 1) ) {
 120
 121     o_current->picture->embedded = 0;
 122
 123     s_log_message ("Picture [%s] has been unembedded\n",
 124                    basename(o_current->picture->filename));
 125
 126
 127     /* page content has been modified */
 128     w_current->page_current->CHANGED = 1;
 129   }
 130
 131 }