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   gras_datadesc_type_t ddt; /* What to add */
  36
  37   /* only initialize once */
  38   if (gras_datadesc_set_local != NULL)
  39     return;
  40
  41   VERB0("Initializing DataDesc");
  42
  43   gras_datadesc_set_local = xbt_set_new();
  44
  45   ddt = gras_datadesc_scalar("signed char",
  46                              gras_ddt_scalar_char,
  47                              e_gras_dd_scalar_encoding_sint);
  48   ddt = gras_datadesc_scalar("char",
  49                              gras_ddt_scalar_char,
  50                              e_gras_dd_scalar_encoding_sint);
  51   ddt = gras_datadesc_scalar("unsigned char",
  52                              gras_ddt_scalar_char,
  53                              e_gras_dd_scalar_encoding_uint);
  54
  55   ddt = gras_datadesc_scalar("signed short int",
  56                              gras_ddt_scalar_short,
  57                              e_gras_dd_scalar_encoding_sint);
  58   ddt = gras_datadesc_scalar("short int",
  59                              gras_ddt_scalar_short,
  60                              e_gras_dd_scalar_encoding_sint);
  61   ddt = gras_datadesc_scalar("unsigned short int",
  62                              gras_ddt_scalar_short,
  63                              e_gras_dd_scalar_encoding_uint);
  64
  65   ddt = gras_datadesc_scalar("signed int",
  66                              gras_ddt_scalar_int,
  67                              e_gras_dd_scalar_encoding_sint);
  68   ddt = gras_datadesc_scalar("int",
  69                              gras_ddt_scalar_int,
  70                              e_gras_dd_scalar_encoding_sint);
  71   ddt = gras_datadesc_scalar("unsigned int",
  72                              gras_ddt_scalar_int,
  73                              e_gras_dd_scalar_encoding_uint);
  74
  75   ddt = gras_datadesc_scalar("signed long int",
  76                              gras_ddt_scalar_long,
  77                              e_gras_dd_scalar_encoding_sint);
  78   ddt = gras_datadesc_scalar("long int",
  79                              gras_ddt_scalar_long,
  80                              e_gras_dd_scalar_encoding_sint);
  81   ddt = gras_datadesc_scalar("unsigned long int",
  82                              gras_ddt_scalar_long,
  83                              e_gras_dd_scalar_encoding_uint);
  84
  85   ddt = gras_datadesc_scalar("signed long long int",
  86                              gras_ddt_scalar_long_long,
  87                              e_gras_dd_scalar_encoding_sint);
  88   ddt = gras_datadesc_scalar("long long int",
  89                              gras_ddt_scalar_long_long,
  90                              e_gras_dd_scalar_encoding_sint);
  91   ddt = gras_datadesc_scalar("unsigned long long int",
  92                              gras_ddt_scalar_long_long,
  93                              e_gras_dd_scalar_encoding_uint);
  94
  95   ddt = gras_datadesc_scalar("data pointer",
  96                              gras_ddt_scalar_pdata,
  97                              e_gras_dd_scalar_encoding_uint);
  98   ddt = gras_datadesc_scalar("function pointer",
  99                              gras_ddt_scalar_pfunc,
 100                              e_gras_dd_scalar_encoding_uint);
 101
 102   ddt = gras_datadesc_scalar("float",
 103                              gras_ddt_scalar_float,
 104                              e_gras_dd_scalar_encoding_float);
 105   ddt = gras_datadesc_scalar("double",
 106                              gras_ddt_scalar_double,
 107                              e_gras_dd_scalar_encoding_float);
 108
 109   ddt = gras_datadesc_array_dyn("char[]",
 110                                 gras_datadesc_by_name("char"),
 111                                 _strlen_cb);
 112   ddt = gras_datadesc_ref("string",ddt);
 113
 114 }
 115
 116 /**
 117  * gras_datadesc_exit:
 118  *
 119  * Finalize the datadesc module
 120  **/
 121 void
 122 gras_datadesc_exit(void) {
 123   VERB0("Exiting DataDesc");
 124   xbt_set_free(&gras_datadesc_set_local);
 125   DEBUG0("Exited DataDesc");
 126 }
 127
 128 /**
 129  * gras_datadesc_get_name:
 130  *
 131  * Returns the name of a datadescription (to ease the debug)
 132  */
 133 char *
 134 gras_datadesc_get_name(gras_datadesc_type_t ddt) {
 135   return ddt->name;
 136 }
 137 /**
 138  * gras_datadesc_get_id:
 139  *
 140  * Returns the name of a datadescription (to ease the debug)
 141  */
 142 int
 143 gras_datadesc_get_id(gras_datadesc_type_t ddt) {
 144   return ddt->code;
 145 }
 146
 147 /**
 148  * gras_datadesc_size:
 149  *
 150  * Returns the size occuped by data of this type (on the current arch).
 151  *
 152  */
 153 int gras_datadesc_size(gras_datadesc_type_t type) {
 154   return type->size[GRAS_THISARCH];
 155 }
 156
 157 /**
 158  * gras_datadesc_type_dump:
 159  *
 160  * For debugging purpose
 161  */
 162 void gras_datadesc_type_dump(const gras_datadesc_type_t ddt){
 163   int cpt;
 164
 165   printf("DataDesc dump:");
 166   if(!ddt) {
 167     printf("(null)\n");
 168     return;
 169   }
 170   printf ("%s (ID:%d)\n",ddt->name,ddt->code);
 171   printf ("  category: %s\n",gras_datadesc_cat_names[ddt->category_code]);
 172
 173   printf ("  size[");
 174   for (cpt=0; cpt<gras_arch_count; cpt++) {
 175     printf("%s%s%ld%s",
 176            cpt>0?", ":"",
 177            cpt == GRAS_THISARCH ? ">":"",
 178            ddt->size[cpt],
 179            cpt == GRAS_THISARCH ? "<":"");
 180   }
 181   printf ("]\n");
 182
 183   printf ("  alignment[");
 184   for (cpt=0; cpt<gras_arch_count; cpt++) {
 185     printf("%s%s%ld%s",
 186            cpt>0?", ":"",
 187            cpt == GRAS_THISARCH ? ">":"",
 188            ddt->alignment[cpt],
 189            cpt == GRAS_THISARCH ? "<":"");
 190   }
 191   printf ("]\n");
 192
 193   printf ("  aligned_size[");
 194   for (cpt=0; cpt<gras_arch_count; cpt++) {
 195     printf("%s%s%ld%s",
 196            cpt>0?", ":"",
 197            cpt == GRAS_THISARCH ? ">":"",
 198            ddt->aligned_size[cpt],
 199            cpt == GRAS_THISARCH ? "<":"");
 200   }
 201   printf ("]\n");
 202   if (ddt->category_code == e_gras_datadesc_type_cat_struct) {
 203     gras_dd_cat_struct_t struct_data;
 204     gras_dd_cat_field_t  field;
 205
 206     struct_data = ddt->category.struct_data;
 207     xbt_dynar_foreach(struct_data.fields, cpt, field) {
 208     printf(">>> Dump field #%d (%s) (offset=%ld)\n",
 209            cpt,field->name,field->offset[GRAS_THISARCH]);
 210     gras_datadesc_type_dump(field->type);
 211     printf("<<< end dump field #%d (%s)\n",cpt,field->name);
 212     }
 213  }
 214   fflush(stdout);
 215 }