src/gras/DataDesc/datadesc.c

   1 /* $Id$ */
   2
   3 /* datadesc - data description in order to send/recv it in GRAS             */
   4
   5 /* Authors: Olivier Aumage, Martin Quinson                                  */
   6 /* Copyright (C) 2003, 2004 the GRAS posse.                                 */
   7
   8 /* This program is free software; you can redistribute it and/or modify it
   9    under the terms of the license (GNU LGPL) which comes with this package. */
  10
  11 #include "gras/DataDesc/datadesc_private.h"
  12
  13 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(datadesc,gras,"Data description");
  14 /* FIXME: make this host-dependent using a trick such as UserData*/
  15 xbt_set_t gras_datadesc_set_local=NULL;
  16
  17
  18 /* callback for array size when sending strings */
  19 static int
  20 _strlen_cb(gras_cbps_t vars, void *data) {
  21
  22   return 1+(long int)strlen(data);
  23 }
  24
  25
  26 /**
  27  * gras_datadesc_init:
  28  *
  29  * Initialize the datadesc module.
  30  * FIXME: We assume that when neither signed nor unsigned is given,
  31  *    that means signed. To be checked by configure.
  32  **/
  33 void
  34 gras_datadesc_init(void) {
  35   xbt_error_t errcode;
  36   gras_datadesc_type_t ddt; /* What to add */
  37
  38   /* only initialize once */
  39   if (gras_datadesc_set_local != NULL)
  40     return;
  41
  42   VERB0("Initializing DataDesc");
  43
  44   gras_datadesc_set_local = xbt_set_new();
  45
  46   ddt = gras_datadesc_scalar("signed char",
  47                              gras_ddt_scalar_char,
  48                              e_gras_dd_scalar_encoding_sint);
  49   ddt = gras_datadesc_scalar("char",
  50                              gras_ddt_scalar_char,
  51                              e_gras_dd_scalar_encoding_sint);
  52   ddt = gras_datadesc_scalar("unsigned char",
  53                              gras_ddt_scalar_char,
  54                              e_gras_dd_scalar_encoding_uint);
  55
  56   ddt = gras_datadesc_scalar("signed short int",
  57                              gras_ddt_scalar_short,
  58                              e_gras_dd_scalar_encoding_sint);
  59   ddt = gras_datadesc_scalar("short int",
  60                              gras_ddt_scalar_short,
  61                              e_gras_dd_scalar_encoding_sint);
  62   ddt = gras_datadesc_scalar("unsigned short int",
  63                              gras_ddt_scalar_short,
  64                              e_gras_dd_scalar_encoding_uint);
  65
  66   ddt = gras_datadesc_scalar("signed int",
  67                              gras_ddt_scalar_int,
  68                              e_gras_dd_scalar_encoding_sint);
  69   ddt = gras_datadesc_scalar("int",
  70                              gras_ddt_scalar_int,
  71                              e_gras_dd_scalar_encoding_sint);
  72   ddt = gras_datadesc_scalar("unsigned int",
  73                              gras_ddt_scalar_int,
  74                              e_gras_dd_scalar_encoding_uint);
  75
  76   ddt = gras_datadesc_scalar("signed long int",
  77                              gras_ddt_scalar_long,
  78                              e_gras_dd_scalar_encoding_sint);
  79   ddt = gras_datadesc_scalar("long int",
  80                              gras_ddt_scalar_long,
  81                              e_gras_dd_scalar_encoding_sint);
  82   ddt = gras_datadesc_scalar("unsigned long int",
  83                              gras_ddt_scalar_long,
  84                              e_gras_dd_scalar_encoding_uint);
  85
  86   ddt = gras_datadesc_scalar("signed long long int",
  87                              gras_ddt_scalar_long_long,
  88                              e_gras_dd_scalar_encoding_sint);
  89   ddt = gras_datadesc_scalar("long long int",
  90                              gras_ddt_scalar_long_long,
  91                              e_gras_dd_scalar_encoding_sint);
  92   ddt = gras_datadesc_scalar("unsigned long long int",
  93                              gras_ddt_scalar_long_long,
  94                              e_gras_dd_scalar_encoding_uint);
  95
  96   ddt = gras_datadesc_scalar("data pointer",
  97                              gras_ddt_scalar_pdata,
  98                              e_gras_dd_scalar_encoding_uint);
  99   ddt = gras_datadesc_scalar("function pointer",
 100                              gras_ddt_scalar_pfunc,
 101                              e_gras_dd_scalar_encoding_uint);
 102
 103   ddt = gras_datadesc_scalar("float",
 104                              gras_ddt_scalar_float,
 105                              e_gras_dd_scalar_encoding_float);
 106   ddt = gras_datadesc_scalar("double",
 107                              gras_ddt_scalar_double,
 108                              e_gras_dd_scalar_encoding_float);
 109
 110   ddt = gras_datadesc_array_dyn("char[]",
 111                                 gras_datadesc_by_name("char"),
 112                                 _strlen_cb);
 113   ddt = gras_datadesc_ref("string",ddt);
 114
 115 }
 116
 117 /**
 118  * gras_datadesc_exit:
 119  *
 120  * Finalize the datadesc module
 121  **/
 122 void
 123 gras_datadesc_exit(void) {
 124   VERB0("Exiting DataDesc");
 125   xbt_set_free(&gras_datadesc_set_local);
 126   DEBUG0("Exited DataDesc");
 127 }
 128
 129 /**
 130  * gras_datadesc_get_name:
 131  *
 132  * Returns the name of a datadescription (to ease the debug)
 133  */
 134 char *
 135 gras_datadesc_get_name(gras_datadesc_type_t ddt) {
 136   return ddt->name;
 137 }
 138 /**
 139  * gras_datadesc_get_id:
 140  *
 141  * Returns the name of a datadescription (to ease the debug)
 142  */
 143 int
 144 gras_datadesc_get_id(gras_datadesc_type_t ddt) {
 145   return ddt->code;
 146 }
 147
 148 /**
 149  * gras_datadesc_size:
 150  *
 151  * Returns the size occuped by data of this type (on the current arch).
 152  *
 153  */
 154 int gras_datadesc_size(gras_datadesc_type_t type) {
 155   return type->size[GRAS_THISARCH];
 156 }
 157
 158 /**
 159  * gras_datadesc_type_dump:
 160  *
 161  * For debugging purpose
 162  */
 163 void gras_datadesc_type_dump(const gras_datadesc_type_t ddt){
 164   int cpt;
 165
 166   printf("DataDesc dump:");
 167   if(!ddt) {
 168     printf("(null)\n");
 169     return;
 170   }
 171   printf ("%s (ID:%d)\n",ddt->name,ddt->code);
 172   printf ("  category: %s\n",gras_datadesc_cat_names[ddt->category_code]);
 173
 174   printf ("  size[");
 175   for (cpt=0; cpt<gras_arch_count; cpt++) {
 176     printf("%s%s%ld%s",
 177            cpt>0?", ":"",
 178            cpt == GRAS_THISARCH ? ">":"",
 179            ddt->size[cpt],
 180            cpt == GRAS_THISARCH ? "<":"");
 181   }
 182   printf ("]\n");
 183
 184   printf ("  alignment[");
 185   for (cpt=0; cpt<gras_arch_count; cpt++) {
 186     printf("%s%s%ld%s",
 187            cpt>0?", ":"",
 188            cpt == GRAS_THISARCH ? ">":"",
 189            ddt->alignment[cpt],
 190            cpt == GRAS_THISARCH ? "<":"");
 191   }
 192   printf ("]\n");
 193
 194   printf ("  aligned_size[");
 195   for (cpt=0; cpt<gras_arch_count; cpt++) {
 196     printf("%s%s%ld%s",
 197            cpt>0?", ":"",
 198            cpt == GRAS_THISARCH ? ">":"",
 199            ddt->aligned_size[cpt],
 200            cpt == GRAS_THISARCH ? "<":"");
 201   }
 202   printf ("]\n");
 203   if (ddt->category_code == e_gras_datadesc_type_cat_struct) {
 204     gras_dd_cat_struct_t struct_data;
 205     gras_dd_cat_field_t  field;
 206
 207     struct_data = ddt->category.struct_data;
 208     xbt_dynar_foreach(struct_data.fields, cpt, field) {
 209     printf(">>> Dump field #%d (%s) (offset=%ld)\n",
 210            cpt,field->name,field->offset[GRAS_THISARCH]);
 211     gras_datadesc_type_dump(field->type);
 212     printf("<<< end dump field #%d (%s)\n",cpt,field->name);
 213     }
 214  }
 215   fflush(stdout);
 216 }