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 GRAS_LOG_NEW_DEFAULT_SUBCATEGORY(datadesc,gras,"Data description");
  14 /* FIXME: make this host-dependent using a trick such as UserData*/
  15 gras_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_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_set_new(&gras_datadesc_set_local);
  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   gras_set_free(&gras_datadesc_set_local);
 126   gras_datadesc_set_local = NULL;
 127   DEBUG0("Exited DataDesc");
 128 }
 129
 130 /**
 131  * gras_datadesc_get_name:
 132  *
 133  * Returns the name of a datadescription (to ease the debug)
 134  */
 135 char *
 136 gras_datadesc_get_name(gras_datadesc_type_t *ddt) {
 137   return ddt->name;
 138 }
 139 /**
 140  * gras_datadesc_get_id:
 141  *
 142  * Returns the name of a datadescription (to ease the debug)
 143  */
 144 int
 145 gras_datadesc_get_id(gras_datadesc_type_t *ddt) {
 146   return ddt->code;
 147 }
 148
 149 /**
 150  * gras_datadesc_size:
 151  *
 152  * Returns the size occuped by data of this type (on the current arch).
 153  *
 154  */
 155 int gras_datadesc_size(gras_datadesc_type_t *type) {
 156   return type->size[GRAS_THISARCH];
 157 }
 158
 159 /**
 160  * gras_datadesc_type_dump:
 161  *
 162  * For debugging purpose
 163  */
 164 void gras_datadesc_type_dump(const gras_datadesc_type_t *ddt){
 165   int cpt;
 166
 167   printf("DataDesc dump:");
 168   if(!ddt) {
 169     printf("(null)\n");
 170     return;
 171   }
 172   printf ("%s (ID:%d)\n",ddt->name,ddt->code);
 173   printf ("  category: %s\n",gras_datadesc_cat_names[ddt->category_code]);
 174
 175   printf ("  size[");
 176   for (cpt=0; cpt<gras_arch_count; cpt++) {
 177     printf("%s%s%ld%s",
 178            cpt>0?", ":"",
 179            cpt == GRAS_THISARCH ? ">":"",
 180            ddt->size[cpt],
 181            cpt == GRAS_THISARCH ? "<":"");
 182   }
 183   printf ("]\n");
 184
 185   printf ("  alignment[");
 186   for (cpt=0; cpt<gras_arch_count; cpt++) {
 187     printf("%s%s%ld%s",
 188            cpt>0?", ":"",
 189            cpt == GRAS_THISARCH ? ">":"",
 190            ddt->alignment[cpt],
 191            cpt == GRAS_THISARCH ? "<":"");
 192   }
 193   printf ("]\n");
 194
 195   printf ("  aligned_size[");
 196   for (cpt=0; cpt<gras_arch_count; cpt++) {
 197     printf("%s%s%ld%s",
 198            cpt>0?", ":"",
 199            cpt == GRAS_THISARCH ? ">":"",
 200            ddt->aligned_size[cpt],
 201            cpt == GRAS_THISARCH ? "<":"");
 202   }
 203   printf ("]\n");
 204   if (ddt->category_code == e_gras_datadesc_type_cat_struct) {
 205     gras_dd_cat_struct_t  struct_data;
 206     gras_dd_cat_field_t  *field;
 207
 208     struct_data = ddt->category.struct_data;
 209     gras_dynar_foreach(struct_data.fields, cpt, field) {
 210     printf(">>> Dump field #%d (%s) (offset=%ld)\n",
 211            cpt,field->name,field->offset[GRAS_THISARCH]);
 212     gras_datadesc_type_dump(field->type);
 213     printf("<<< end dump field #%d (%s)\n",cpt,field->name);
 214     }
 215  }
 216   fflush(stdout);
 217 }