objects/AADL/aadl.c

   1 /* AADL plugin for DIA
   2 *
   3 * Copyright (C) 2005 Laboratoire d'Informatique de Paris 6
   4 * Author: Pierre Duquesne
   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-1307, USA.
  19 */
  20
  21
  22 #ifdef HAVE_CONFIG_H
  23 #include <config.h>
  24 #endif
  25
  26 #include "object.h"
  27
  28 #include "intl.h"
  29 #include "plug-ins.h"
  30
  31 #include "aadl.h"
  32
  33 extern DiaObjectType  aadldata_type;
  34 extern DiaObjectType  aadlprocessor_type;
  35 extern DiaObjectType  aadldevice_type;
  36 extern DiaObjectType  aadlsystem_type;
  37 extern DiaObjectType  aadlsubprogram_type;
  38 extern DiaObjectType  aadlthreadgroup_type;
  39 extern DiaObjectType  aadlprocess_type;
  40 extern DiaObjectType  aadlthread_type;
  41 extern DiaObjectType  aadlbus_type;
  42 extern DiaObjectType  aadlmemory_type;
  43 extern DiaObjectType  aadlpackage_type;
  44
  45
  46 DIA_PLUGIN_CHECK_INIT
  47
  48 PluginInitResult
  49 dia_plugin_init(PluginInfo *info)
  50 {
  51   if (!dia_plugin_info_init(info, "AADL",
  52                _("Architecture Analysis & Design Language diagram objects"),
  53                             NULL, NULL))
  54     return DIA_PLUGIN_INIT_ERROR;
  55
  56   object_register_type(&aadldata_type);
  57   object_register_type(&aadlprocessor_type);
  58   object_register_type(&aadldevice_type);
  59   object_register_type(&aadlsystem_type);
  60   object_register_type(&aadlsubprogram_type);
  61   object_register_type(&aadlthreadgroup_type);
  62   object_register_type(&aadlprocess_type);
  63   object_register_type(&aadlthread_type);
  64   object_register_type(&aadlbus_type);
  65   object_register_type(&aadlmemory_type);
  66   object_register_type(&aadlpackage_type);
  67
  68   return DIA_PLUGIN_INIT_OK;
  69 }
  70
  71
  72
  73
  74
  75 /***********************************************
  76  **              MISC FUNCTIONS               **
  77  ***********************************************/
  78
  79
  80 /* CENTER */
  81
  82 void aadlbox_center_text_position(Aadlbox *aadlbox,  Point *p)
  83 {
  84   /* Center */
  85   Element *elem = &aadlbox->element;
  86   Point center;
  87   real h, w;
  88
  89   text_calc_boundingbox(aadlbox->name, NULL);
  90   h = aadlbox->name->height * aadlbox->name->numlines;
  91   w = aadlbox->name->max_width;
  92
  93   center.x = elem->corner.x + 0.5*elem->width;
  94   center.y = elem->corner.y + 0.5*elem->height;
  95
  96   p->x = center.x - 0.5*w;
  97   p->y = center.y - 0.5*h + AADLBOX_TEXT_MARGIN; /* + aadlbox->name->ascent; */
  98 }
  99
 100
 101 /* MEMORY  */
 102
 103 void aadlbox_memory_update_text_position(Aadlbox *aadlbox)
 104 {
 105   Element *elem = &aadlbox->element;
 106   Point p1;
 107   real h = 0;
 108
 109   text_calc_boundingbox(aadlbox->name, NULL);
 110   h = elem->corner.y + AADLBOX_TEXT_MARGIN;
 111   p1.x = elem->corner.x + AADLBOX_TEXT_MARGIN;
 112   p1.y = h + aadlbox->name->ascent + 2*AADL_MEMORY_FACTOR*elem->height;
 113   text_set_position(aadlbox->name, &p1);
 114 }
 115
 116
 117 /* INCLINED */
 118
 119 void aadlbox_inclined_update_text_position(Aadlbox *aadlbox)
 120 {
 121   Element *elem = &aadlbox->element;
 122   Point p1;
 123   real h = 0;
 124
 125   text_calc_boundingbox(aadlbox->name, NULL);
 126   h = elem->corner.y + AADLBOX_TEXT_MARGIN;
 127   p1.x = elem->corner.x + AADLBOX_TEXT_MARGIN
 128                                    + AADLBOX_INCLINE_FACTOR*elem->width;
 129   p1.y = h + aadlbox->name->ascent;
 130   text_set_position(aadlbox->name, &p1);
 131
 132 }
 133 void aadlbox_subprogram_update_text_position(Aadlbox *aadlbox)
 134 {
 135   Element *elem = &aadlbox->element;
 136   DiaObject *obj = &elem->object;
 137   Point p;
 138
 139   p.x = 0.5*(obj->handles[3]->pos.x + obj->handles[1]->pos.x) ;
 140   p.y = 0.5*(obj->handles[3]->pos.y + obj->handles[1]->pos.y) + aadlbox->name->ascent;
 141   text_set_position(aadlbox->name, &p);
 142 }
 143