win32_testsuite/borland/builder6/realistic/gras/datadesc_usage/datadesc_structs.c

   1 /* This file is perl-generated, of course */
   2
   3 #include "gras.h"
   4
   5 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(structs, test,
   6                                 "Logs about the gigantic struct test");
   7
   8
   9 #define READ  0
  10 #define WRITE 1
  11 #define COPY  2
  12 #define RW    3
  13
  14 /* FIXE ME to analyze
  15
  16 #define READ  0
  17 #define WRITE 1
  18 #define RW    2
  19
  20 */
  21
  22 void write_read(gras_datadesc_type_t type, void *src, void *dst,
  23                 gras_socket_t * sock, int direction);
  24
  25 GRAS_DEFINE_TYPE(cccc, struct cccc {
  26                  char a;
  27                  char b;
  28                  char c;
  29                  char d;
  30                  };
  31
  32     )
  33     GRAS_DEFINE_TYPE(ccsc, struct ccsc {
  34                      char a;
  35                      char b;
  36                      short int c;
  37                      char d;
  38                      };
  39
  40     )
  41     GRAS_DEFINE_TYPE(ccic, struct ccic {
  42                      char a;
  43                      char b;
  44                      int c;
  45                      char d;
  46                      };
  47
  48     )
  49     GRAS_DEFINE_TYPE(cclc, struct cclc {
  50                      char a;
  51                      char b;
  52                      long int c;
  53                      char d;
  54                      };
  55
  56     )
  57     GRAS_DEFINE_TYPE(ccLc, struct ccLc {
  58                      char a;
  59                      char b;
  60                      long long int c;
  61                      char d;
  62                      };
  63
  64     )
  65     GRAS_DEFINE_TYPE(ccfc, struct ccfc {
  66                      char a;
  67                      char b;
  68                      float c;
  69                      char d;
  70                      };
  71
  72     )
  73     GRAS_DEFINE_TYPE(ccdc, struct ccdc {
  74                      char a;
  75                      char b;
  76                      double c;
  77                      char d;
  78                      };
  79
  80     )
  81     GRAS_DEFINE_TYPE(sccc, struct sccc {
  82                      short int a;
  83                      char b;
  84                      char c;
  85                      char d;
  86                      };
  87
  88     )
  89     GRAS_DEFINE_TYPE(scsc, struct scsc {
  90                      short int a;
  91                      char b;
  92                      short int c;
  93                      char d;
  94                      };
  95
  96     )
  97     GRAS_DEFINE_TYPE(scic, struct scic {
  98                      short int a;
  99                      char b;
 100                      int c;
 101                      char d;
 102                      };
 103
 104     )
 105     GRAS_DEFINE_TYPE(sclc, struct sclc {
 106                      short int a;
 107                      char b;
 108                      long int c;
 109                      char d;
 110                      };
 111
 112     )
 113     GRAS_DEFINE_TYPE(scLc, struct scLc {
 114                      short int a;
 115                      char b;
 116                      long long int c;
 117                      char d;
 118                      };
 119
 120     )
 121     GRAS_DEFINE_TYPE(scfc, struct scfc {
 122                      short int a;
 123                      char b;
 124                      float c;
 125                      char d;
 126                      };
 127
 128     )
 129     GRAS_DEFINE_TYPE(scdc, struct scdc {
 130                      short int a;
 131                      char b;
 132                      double c;
 133                      char d;
 134                      };
 135
 136     )
 137     GRAS_DEFINE_TYPE(iccc, struct iccc {
 138                      int a;
 139                      char b;
 140                      char c;
 141                      char d;
 142                      };
 143
 144     )
 145     GRAS_DEFINE_TYPE(icsc, struct icsc {
 146                      int a;
 147                      char b;
 148                      short int c;
 149                      char d;
 150                      };
 151
 152     )
 153     GRAS_DEFINE_TYPE(icic, struct icic {
 154                      int a;
 155                      char b;
 156                      int c;
 157                      char d;
 158                      };
 159
 160     )
 161     GRAS_DEFINE_TYPE(iclc, struct iclc {
 162                      int a;
 163                      char b;
 164                      long int c;
 165                      char d;
 166                      };
 167
 168     )
 169     GRAS_DEFINE_TYPE(icLc, struct icLc {
 170                      int a;
 171                      char b;
 172                      long long int c;
 173                      char d;
 174                      };
 175
 176     )
 177     GRAS_DEFINE_TYPE(icfc, struct icfc {
 178                      int a;
 179                      char b;
 180                      float c;
 181                      char d;
 182                      };
 183
 184     )
 185     GRAS_DEFINE_TYPE(icdc, struct icdc {
 186                      int a;
 187                      char b;
 188                      double c;
 189                      char d;
 190                      };
 191
 192     )
 193     GRAS_DEFINE_TYPE(lccc, struct lccc {
 194                      long int a;
 195                      char b;
 196                      char c;
 197                      char d;
 198                      };
 199
 200     )
 201     GRAS_DEFINE_TYPE(lcsc, struct lcsc {
 202                      long int a;
 203                      char b;
 204                      short int c;
 205                      char d;
 206                      };
 207
 208     )
 209     GRAS_DEFINE_TYPE(lcic, struct lcic {
 210                      long int a;
 211                      char b;
 212                      int c;
 213                      char d;
 214                      };
 215
 216     )
 217     GRAS_DEFINE_TYPE(lclc, struct lclc {
 218                      long int a;
 219                      char b;
 220                      long int c;
 221                      char d;
 222                      };
 223
 224     )
 225     GRAS_DEFINE_TYPE(lcLc, struct lcLc {
 226                      long int a;
 227                      char b;
 228                      long long int c;
 229                      char d;
 230                      };
 231
 232     )
 233     GRAS_DEFINE_TYPE(lcfc, struct lcfc {
 234                      long int a;
 235                      char b;
 236                      float c;
 237                      char d;
 238                      };
 239
 240     )
 241     GRAS_DEFINE_TYPE(lcdc, struct lcdc {
 242                      long int a;
 243                      char b;
 244                      double c;
 245                      char d;
 246                      };
 247
 248     )
 249     GRAS_DEFINE_TYPE(Lccc, struct Lccc {
 250                      long long int a;
 251                      char b;
 252                      char c;
 253                      char d;
 254                      };
 255
 256     )
 257     GRAS_DEFINE_TYPE(Lcsc, struct Lcsc {
 258                      long long int a;
 259                      char b;
 260                      short int c;
 261                      char d;
 262                      };
 263
 264     )
 265     GRAS_DEFINE_TYPE(Lcic, struct Lcic {
 266                      long long int a;
 267                      char b;
 268                      int c;
 269                      char d;
 270                      };
 271
 272     )
 273     GRAS_DEFINE_TYPE(Lclc, struct Lclc {
 274                      long long int a;
 275                      char b;
 276                      long int c;
 277                      char d;
 278                      };
 279
 280     )
 281     GRAS_DEFINE_TYPE(LcLc, struct LcLc {
 282                      long long int a;
 283                      char b;
 284                      long long int c;
 285                      char d;
 286                      };
 287
 288     )
 289     GRAS_DEFINE_TYPE(Lcfc, struct Lcfc {
 290                      long long int a;
 291                      char b;
 292                      float c;
 293                      char d;
 294                      };
 295
 296     )
 297     GRAS_DEFINE_TYPE(Lcdc, struct Lcdc {
 298                      long long int a;
 299                      char b;
 300                      double c;
 301                      char d;
 302                      };
 303
 304     )
 305     GRAS_DEFINE_TYPE(fccc, struct fccc {
 306                      float a;
 307                      char b;
 308                      char c;
 309                      char d;
 310                      };
 311
 312     )
 313     GRAS_DEFINE_TYPE(fcsc, struct fcsc {
 314                      float a;
 315                      char b;
 316                      short int c;
 317                      char d;
 318                      };
 319
 320     )
 321     GRAS_DEFINE_TYPE(fcic, struct fcic {
 322                      float a;
 323                      char b;
 324                      int c;
 325                      char d;
 326                      };
 327
 328     )
 329     GRAS_DEFINE_TYPE(fclc, struct fclc {
 330                      float a;
 331                      char b;
 332                      long int c;
 333                      char d;
 334                      };
 335
 336     )
 337     GRAS_DEFINE_TYPE(fcLc, struct fcLc {
 338                      float a;
 339                      char b;
 340                      long long int c;
 341                      char d;
 342                      };
 343
 344     )
 345     GRAS_DEFINE_TYPE(fcfc, struct fcfc {
 346                      float a;
 347                      char b;
 348                      float c;
 349                      char d;
 350                      };
 351
 352     )
 353     GRAS_DEFINE_TYPE(fcdc, struct fcdc {
 354                      float a;
 355                      char b;
 356                      double c;
 357                      char d;
 358                      };
 359
 360     )
 361     GRAS_DEFINE_TYPE(dccc, struct dccc {
 362                      double a;
 363                      char b;
 364                      char c;
 365                      char d;
 366                      };
 367
 368     )
 369     GRAS_DEFINE_TYPE(dcsc, struct dcsc {
 370                      double a;
 371                      char b;
 372                      short int c;
 373                      char d;
 374                      };
 375
 376     )
 377     GRAS_DEFINE_TYPE(dcic, struct dcic {
 378                      double a;
 379                      char b;
 380                      int c;
 381                      char d;
 382                      };
 383
 384     )
 385     GRAS_DEFINE_TYPE(dclc, struct dclc {
 386                      double a;
 387                      char b;
 388                      long int c;
 389                      char d;
 390                      };
 391
 392     )
 393     GRAS_DEFINE_TYPE(dcLc, struct dcLc {
 394                      double a;
 395                      char b;
 396                      long long int c;
 397                      char d;
 398                      };
 399
 400     )
 401     GRAS_DEFINE_TYPE(dcfc, struct dcfc {
 402                      double a;
 403                      char b;
 404                      float c;
 405                      char d;
 406                      };
 407
 408     )
 409     GRAS_DEFINE_TYPE(dcdc, struct dcdc {
 410                      double a;
 411                      char b;
 412                      double c;
 413                      char d;
 414                      };
 415
 416     )
 417 #define test(a) xbt_assert(a)
 418 void test_structures(gras_socket_t * sock, int direction);
 419 void test_structures(gras_socket_t * sock, int direction)
 420 {
 421   struct cccc my_cccc =
 422       { 'w' + (char) 1, 'w' + (char) 2, 'w' + (char) 3, 'w' + (char) 4 },
 423       my_cccc2;
 424   struct ccsc my_ccsc =
 425       { 'w' + (char) 1, 'w' + (char) 2, 134 + (short int) 3,
 426 'w' + (char) 4 }, my_ccsc2;
 427   struct ccic my_ccic =
 428       { 'w' + (char) 1, 'w' + (char) 2, -11249 + (int) 3, 'w' + (char) 4 },
 429       my_ccic2;
 430   struct cclc my_cclc =
 431       { 'w' + (char) 1, 'w' + (char) 2, 31319919 + (long int) 3,
 432 'w' + (char) 4 }, my_cclc2;
 433   struct ccLc my_ccLc =
 434       { 'w' + (char) 1, 'w' + (char) 2, -232130010 + (long long int) 3,
 435 'w' + (char) 4 }, my_ccLc2;
 436   struct ccfc my_ccfc =
 437       { 'w' + (char) 1, 'w' + (char) 2, -11313.1135 + (float) 3,
 438 'w' + (char) 4 }, my_ccfc2;
 439   struct ccdc my_ccdc =
 440       { 'w' + (char) 1, 'w' + (char) 2, 1424420.11331 + (double) 3,
 441 'w' + (char) 4 }, my_ccdc2;
 442   struct sccc my_sccc =
 443       { 134 + (short int) 1, 'w' + (char) 2, 'w' + (char) 3,
 444 'w' + (char) 4 }, my_sccc2;
 445   struct scsc my_scsc =
 446       { 134 + (short int) 1, 'w' + (char) 2, 134 + (short int) 3,
 447 'w' + (char) 4 }, my_scsc2;
 448   struct scic my_scic =
 449       { 134 + (short int) 1, 'w' + (char) 2, -11249 + (int) 3,
 450 'w' + (char) 4 }, my_scic2;
 451   struct sclc my_sclc =
 452       { 134 + (short int) 1, 'w' + (char) 2, 31319919 + (long int) 3,
 453 'w' + (char) 4 }, my_sclc2;
 454   struct scLc my_scLc =
 455       { 134 + (short int) 1, 'w' + (char) 2,
 456 -232130010 + (long long int) 3, 'w' + (char) 4 }, my_scLc2;
 457   struct scfc my_scfc =
 458       { 134 + (short int) 1, 'w' + (char) 2, -11313.1135 + (float) 3,
 459 'w' + (char) 4 }, my_scfc2;
 460   struct scdc my_scdc =
 461       { 134 + (short int) 1, 'w' + (char) 2, 1424420.11331 + (double) 3,
 462 'w' + (char) 4 }, my_scdc2;
 463   struct iccc my_iccc =
 464       { -11249 + (int) 1, 'w' + (char) 2, 'w' + (char) 3, 'w' + (char) 4 },
 465       my_iccc2;
 466   struct icsc my_icsc =
 467       { -11249 + (int) 1, 'w' + (char) 2, 134 + (short int) 3,
 468 'w' + (char) 4 }, my_icsc2;
 469   struct icic my_icic =
 470       { -11249 + (int) 1, 'w' + (char) 2, -11249 + (int) 3,
 471 'w' + (char) 4 }, my_icic2;
 472   struct iclc my_iclc =
 473       { -11249 + (int) 1, 'w' + (char) 2, 31319919 + (long int) 3,
 474 'w' + (char) 4 }, my_iclc2;
 475   struct icLc my_icLc =
 476       { -11249 + (int) 1, 'w' + (char) 2, -232130010 + (long long int) 3,
 477 'w' + (char) 4 }, my_icLc2;
 478   struct icfc my_icfc =
 479       { -11249 + (int) 1, 'w' + (char) 2, -11313.1135 + (float) 3,
 480 'w' + (char) 4 }, my_icfc2;
 481   struct icdc my_icdc =
 482       { -11249 + (int) 1, 'w' + (char) 2, 1424420.11331 + (double) 3,
 483 'w' + (char) 4 }, my_icdc2;
 484   struct lccc my_lccc =
 485       { 31319919 + (long int) 1, 'w' + (char) 2, 'w' + (char) 3,
 486 'w' + (char) 4 }, my_lccc2;
 487   struct lcsc my_lcsc =
 488       { 31319919 + (long int) 1, 'w' + (char) 2, 134 + (short int) 3,
 489 'w' + (char) 4 }, my_lcsc2;
 490   struct lcic my_lcic =
 491       { 31319919 + (long int) 1, 'w' + (char) 2, -11249 + (int) 3,
 492 'w' + (char) 4 }, my_lcic2;
 493   struct lclc my_lclc =
 494       { 31319919 + (long int) 1, 'w' + (char) 2, 31319919 + (long int) 3,
 495 'w' + (char) 4 }, my_lclc2;
 496   struct lcLc my_lcLc =
 497       { 31319919 + (long int) 1, 'w' + (char) 2,
 498 -232130010 + (long long int) 3, 'w' + (char) 4 }, my_lcLc2;
 499   struct lcfc my_lcfc =
 500       { 31319919 + (long int) 1, 'w' + (char) 2, -11313.1135 + (float) 3,
 501 'w' + (char) 4 }, my_lcfc2;
 502   struct lcdc my_lcdc =
 503       { 31319919 + (long int) 1, 'w' + (char) 2,
 504 1424420.11331 + (double) 3, 'w' + (char) 4 }, my_lcdc2;
 505   struct Lccc my_Lccc =
 506       { -232130010 + (long long int) 1, 'w' + (char) 2, 'w' + (char) 3,
 507 'w' + (char) 4 }, my_Lccc2;
 508   struct Lcsc my_Lcsc =
 509       { -232130010 + (long long int) 1, 'w' + (char) 2,
 510 134 + (short int) 3, 'w' + (char) 4 }, my_Lcsc2;
 511   struct Lcic my_Lcic =
 512       { -232130010 + (long long int) 1, 'w' + (char) 2, -11249 + (int) 3,
 513 'w' + (char) 4 }, my_Lcic2;
 514   struct Lclc my_Lclc =
 515       { -232130010 + (long long int) 1, 'w' + (char) 2,
 516 31319919 + (long int) 3, 'w' + (char) 4 }, my_Lclc2;
 517   struct LcLc my_LcLc =
 518       { -232130010 + (long long int) 1, 'w' + (char) 2,
 519 -232130010 + (long long int) 3, 'w' + (char) 4 }, my_LcLc2;
 520   struct Lcfc my_Lcfc =
 521       { -232130010 + (long long int) 1, 'w' + (char) 2,
 522 -11313.1135 + (float) 3, 'w' + (char) 4 }, my_Lcfc2;
 523   struct Lcdc my_Lcdc =
 524       { -232130010 + (long long int) 1, 'w' + (char) 2,
 525 1424420.11331 + (double) 3, 'w' + (char) 4 }, my_Lcdc2;
 526   struct fccc my_fccc =
 527       { -11313.1135 + (float) 1, 'w' + (char) 2, 'w' + (char) 3,
 528 'w' + (char) 4 }, my_fccc2;
 529   struct fcsc my_fcsc =
 530       { -11313.1135 + (float) 1, 'w' + (char) 2, 134 + (short int) 3,
 531 'w' + (char) 4 }, my_fcsc2;
 532   struct fcic my_fcic =
 533       { -11313.1135 + (float) 1, 'w' + (char) 2, -11249 + (int) 3,
 534 'w' + (char) 4 }, my_fcic2;
 535   struct fclc my_fclc =
 536       { -11313.1135 + (float) 1, 'w' + (char) 2, 31319919 + (long int) 3,
 537 'w' + (char) 4 }, my_fclc2;
 538   struct fcLc my_fcLc =
 539       { -11313.1135 + (float) 1, 'w' + (char) 2,
 540 -232130010 + (long long int) 3, 'w' + (char) 4 }, my_fcLc2;
 541   struct fcfc my_fcfc =
 542       { -11313.1135 + (float) 1, 'w' + (char) 2, -11313.1135 + (float) 3,
 543 'w' + (char) 4 }, my_fcfc2;
 544   struct fcdc my_fcdc =
 545       { -11313.1135 + (float) 1, 'w' + (char) 2,
 546 1424420.11331 + (double) 3, 'w' + (char) 4 }, my_fcdc2;
 547   struct dccc my_dccc =
 548       { 1424420.11331 + (double) 1, 'w' + (char) 2, 'w' + (char) 3,
 549 'w' + (char) 4 }, my_dccc2;
 550   struct dcsc my_dcsc =
 551       { 1424420.11331 + (double) 1, 'w' + (char) 2, 134 + (short int) 3,
 552 'w' + (char) 4 }, my_dcsc2;
 553   struct dcic my_dcic =
 554       { 1424420.11331 + (double) 1, 'w' + (char) 2, -11249 + (int) 3,
 555 'w' + (char) 4 }, my_dcic2;
 556   struct dclc my_dclc =
 557       { 1424420.11331 + (double) 1, 'w' + (char) 2,
 558 31319919 + (long int) 3, 'w' + (char) 4 }, my_dclc2;
 559   struct dcLc my_dcLc =
 560       { 1424420.11331 + (double) 1, 'w' + (char) 2,
 561 -232130010 + (long long int) 3, 'w' + (char) 4 }, my_dcLc2;
 562   struct dcfc my_dcfc =
 563       { 1424420.11331 + (double) 1, 'w' + (char) 2,
 564 -11313.1135 + (float) 3, 'w' + (char) 4 }, my_dcfc2;
 565   struct dcdc my_dcdc =
 566       { 1424420.11331 + (double) 1, 'w' + (char) 2,
 567 1424420.11331 + (double) 3, 'w' + (char) 4 }, my_dcdc2;
 568   INFO0
 569       ("---- Test on all possible struct having 3 fields (49 structs) ----");
 570   write_read(gras_datadesc_by_symbol(cccc), &my_cccc, &my_cccc2, sock,
 571              direction);
 572   if (direction == READ || direction == RW) {
 573     int failed = 0;
 574     test(my_cccc.a == my_cccc2.a);
 575     test(my_cccc.b == my_cccc2.b);
 576     test(my_cccc.c == my_cccc2.c);
 577     test(my_cccc.d == my_cccc2.d);
 578     if (!failed)
 579       VERB0("Passed cccc");
 580   }
 581   write_read(gras_datadesc_by_symbol(ccsc), &my_ccsc, &my_ccsc2, sock,
 582              direction);
 583   if (direction == READ || direction == RW) {
 584     int failed = 0;
 585     test(my_ccsc.a == my_ccsc2.a);
 586     test(my_ccsc.b == my_ccsc2.b);
 587     test(my_ccsc.c == my_ccsc2.c);
 588     test(my_ccsc.d == my_ccsc2.d);
 589     if (!failed)
 590       VERB0("Passed ccsc");
 591   }
 592   write_read(gras_datadesc_by_symbol(ccic), &my_ccic, &my_ccic2, sock,
 593              direction);
 594   if (direction == READ || direction == RW) {
 595     int failed = 0;
 596     test(my_ccic.a == my_ccic2.a);
 597     test(my_ccic.b == my_ccic2.b);
 598     test(my_ccic.c == my_ccic2.c);
 599     test(my_ccic.d == my_ccic2.d);
 600     if (!failed)
 601       VERB0("Passed ccic");
 602   }
 603   write_read(gras_datadesc_by_symbol(cclc), &my_cclc, &my_cclc2, sock,
 604              direction);
 605   if (direction == READ || direction == RW) {
 606     int failed = 0;
 607     test(my_cclc.a == my_cclc2.a);
 608     test(my_cclc.b == my_cclc2.b);
 609     test(my_cclc.c == my_cclc2.c);
 610     test(my_cclc.d == my_cclc2.d);
 611     if (!failed)
 612       VERB0("Passed cclc");
 613   }
 614   write_read(gras_datadesc_by_symbol(ccLc), &my_ccLc, &my_ccLc2, sock,
 615              direction);
 616   if (direction == READ || direction == RW) {
 617     int failed = 0;
 618     test(my_ccLc.a == my_ccLc2.a);
 619     test(my_ccLc.b == my_ccLc2.b);
 620     test(my_ccLc.c == my_ccLc2.c);
 621     test(my_ccLc.d == my_ccLc2.d);
 622     if (!failed)
 623       VERB0("Passed ccLc");
 624   }
 625   write_read(gras_datadesc_by_symbol(ccfc), &my_ccfc, &my_ccfc2, sock,
 626              direction);
 627   if (direction == READ || direction == RW) {
 628     int failed = 0;
 629     test(my_ccfc.a == my_ccfc2.a);
 630     test(my_ccfc.b == my_ccfc2.b);
 631     test(my_ccfc.c == my_ccfc2.c);
 632     test(my_ccfc.d == my_ccfc2.d);
 633     if (!failed)
 634       VERB0("Passed ccfc");
 635   }
 636   write_read(gras_datadesc_by_symbol(ccdc), &my_ccdc, &my_ccdc2, sock,
 637              direction);
 638   if (direction == READ || direction == RW) {
 639     int failed = 0;
 640     test(my_ccdc.a == my_ccdc2.a);
 641     test(my_ccdc.b == my_ccdc2.b);
 642     test(my_ccdc.c == my_ccdc2.c);
 643     test(my_ccdc.d == my_ccdc2.d);
 644     if (!failed)
 645       VERB0("Passed ccdc");
 646   }
 647   write_read(gras_datadesc_by_symbol(sccc), &my_sccc, &my_sccc2, sock,
 648              direction);
 649   if (direction == READ || direction == RW) {
 650     int failed = 0;
 651     test(my_sccc.a == my_sccc2.a);
 652     test(my_sccc.b == my_sccc2.b);
 653     test(my_sccc.c == my_sccc2.c);
 654     test(my_sccc.d == my_sccc2.d);
 655     if (!failed)
 656       VERB0("Passed sccc");
 657   }
 658   write_read(gras_datadesc_by_symbol(scsc), &my_scsc, &my_scsc2, sock,
 659              direction);
 660   if (direction == READ || direction == RW) {
 661     int failed = 0;
 662     test(my_scsc.a == my_scsc2.a);
 663     test(my_scsc.b == my_scsc2.b);
 664     test(my_scsc.c == my_scsc2.c);
 665     test(my_scsc.d == my_scsc2.d);
 666     if (!failed)
 667       VERB0("Passed scsc");
 668   }
 669   write_read(gras_datadesc_by_symbol(scic), &my_scic, &my_scic2, sock,
 670              direction);
 671   if (direction == READ || direction == RW) {
 672     int failed = 0;
 673     test(my_scic.a == my_scic2.a);
 674     test(my_scic.b == my_scic2.b);
 675     test(my_scic.c == my_scic2.c);
 676     test(my_scic.d == my_scic2.d);
 677     if (!failed)
 678       VERB0("Passed scic");
 679   }
 680   write_read(gras_datadesc_by_symbol(sclc), &my_sclc, &my_sclc2, sock,
 681              direction);
 682   if (direction == READ || direction == RW) {
 683     int failed = 0;
 684     test(my_sclc.a == my_sclc2.a);
 685     test(my_sclc.b == my_sclc2.b);
 686     test(my_sclc.c == my_sclc2.c);
 687     test(my_sclc.d == my_sclc2.d);
 688     if (!failed)
 689       VERB0("Passed sclc");
 690   }
 691   write_read(gras_datadesc_by_symbol(scLc), &my_scLc, &my_scLc2, sock,
 692              direction);
 693   if (direction == READ || direction == RW) {
 694     int failed = 0;
 695     test(my_scLc.a == my_scLc2.a);
 696     test(my_scLc.b == my_scLc2.b);
 697     test(my_scLc.c == my_scLc2.c);
 698     test(my_scLc.d == my_scLc2.d);
 699     if (!failed)
 700       VERB0("Passed scLc");
 701   }
 702   write_read(gras_datadesc_by_symbol(scfc), &my_scfc, &my_scfc2, sock,
 703              direction);
 704   if (direction == READ || direction == RW) {
 705     int failed = 0;
 706     test(my_scfc.a == my_scfc2.a);
 707     test(my_scfc.b == my_scfc2.b);
 708     test(my_scfc.c == my_scfc2.c);
 709     test(my_scfc.d == my_scfc2.d);
 710     if (!failed)
 711       VERB0("Passed scfc");
 712   }
 713   write_read(gras_datadesc_by_symbol(scdc), &my_scdc, &my_scdc2, sock,
 714              direction);
 715   if (direction == READ || direction == RW) {
 716     int failed = 0;
 717     test(my_scdc.a == my_scdc2.a);
 718     test(my_scdc.b == my_scdc2.b);
 719     test(my_scdc.c == my_scdc2.c);
 720     test(my_scdc.d == my_scdc2.d);
 721     if (!failed)
 722       VERB0("Passed scdc");
 723   }
 724   write_read(gras_datadesc_by_symbol(iccc), &my_iccc, &my_iccc2, sock,
 725              direction);
 726   if (direction == READ || direction == RW) {
 727     int failed = 0;
 728     test(my_iccc.a == my_iccc2.a);
 729     test(my_iccc.b == my_iccc2.b);
 730     test(my_iccc.c == my_iccc2.c);
 731     test(my_iccc.d == my_iccc2.d);
 732     if (!failed)
 733       VERB0("Passed iccc");
 734   }
 735   write_read(gras_datadesc_by_symbol(icsc), &my_icsc, &my_icsc2, sock,
 736              direction);
 737   if (direction == READ || direction == RW) {
 738     int failed = 0;
 739     test(my_icsc.a == my_icsc2.a);
 740     test(my_icsc.b == my_icsc2.b);
 741     test(my_icsc.c == my_icsc2.c);
 742     test(my_icsc.d == my_icsc2.d);
 743     if (!failed)
 744       VERB0("Passed icsc");
 745   }
 746   write_read(gras_datadesc_by_symbol(icic), &my_icic, &my_icic2, sock,
 747              direction);
 748   if (direction == READ || direction == RW) {
 749     int failed = 0;
 750     test(my_icic.a == my_icic2.a);
 751     test(my_icic.b == my_icic2.b);
 752     test(my_icic.c == my_icic2.c);
 753     test(my_icic.d == my_icic2.d);
 754     if (!failed)
 755       VERB0("Passed icic");
 756   }
 757   write_read(gras_datadesc_by_symbol(iclc), &my_iclc, &my_iclc2, sock,
 758              direction);
 759   if (direction == READ || direction == RW) {
 760     int failed = 0;
 761     test(my_iclc.a == my_iclc2.a);
 762     test(my_iclc.b == my_iclc2.b);
 763     test(my_iclc.c == my_iclc2.c);
 764     test(my_iclc.d == my_iclc2.d);
 765     if (!failed)
 766       VERB0("Passed iclc");
 767   }
 768   write_read(gras_datadesc_by_symbol(icLc), &my_icLc, &my_icLc2, sock,
 769              direction);
 770   if (direction == READ || direction == RW) {
 771     int failed = 0;
 772     test(my_icLc.a == my_icLc2.a);
 773     test(my_icLc.b == my_icLc2.b);
 774     test(my_icLc.c == my_icLc2.c);
 775     test(my_icLc.d == my_icLc2.d);
 776     if (!failed)
 777       VERB0("Passed icLc");
 778   }
 779   write_read(gras_datadesc_by_symbol(icfc), &my_icfc, &my_icfc2, sock,
 780              direction);
 781   if (direction == READ || direction == RW) {
 782     int failed = 0;
 783     test(my_icfc.a == my_icfc2.a);
 784     test(my_icfc.b == my_icfc2.b);
 785     test(my_icfc.c == my_icfc2.c);
 786     test(my_icfc.d == my_icfc2.d);
 787     if (!failed)
 788       VERB0("Passed icfc");
 789   }
 790   write_read(gras_datadesc_by_symbol(icdc), &my_icdc, &my_icdc2, sock,
 791              direction);
 792   if (direction == READ || direction == RW) {
 793     int failed = 0;
 794     test(my_icdc.a == my_icdc2.a);
 795     test(my_icdc.b == my_icdc2.b);
 796     test(my_icdc.c == my_icdc2.c);
 797     test(my_icdc.d == my_icdc2.d);
 798     if (!failed)
 799       VERB0("Passed icdc");
 800   }
 801   write_read(gras_datadesc_by_symbol(lccc), &my_lccc, &my_lccc2, sock,
 802              direction);
 803   if (direction == READ || direction == RW) {
 804     int failed = 0;
 805     test(my_lccc.a == my_lccc2.a);
 806     test(my_lccc.b == my_lccc2.b);
 807     test(my_lccc.c == my_lccc2.c);
 808     test(my_lccc.d == my_lccc2.d);
 809     if (!failed)
 810       VERB0("Passed lccc");
 811   }
 812   write_read(gras_datadesc_by_symbol(lcsc), &my_lcsc, &my_lcsc2, sock,
 813              direction);
 814   if (direction == READ || direction == RW) {
 815     int failed = 0;
 816     test(my_lcsc.a == my_lcsc2.a);
 817     test(my_lcsc.b == my_lcsc2.b);
 818     test(my_lcsc.c == my_lcsc2.c);
 819     test(my_lcsc.d == my_lcsc2.d);
 820     if (!failed)
 821       VERB0("Passed lcsc");
 822   }
 823   write_read(gras_datadesc_by_symbol(lcic), &my_lcic, &my_lcic2, sock,
 824              direction);
 825   if (direction == READ || direction == RW) {
 826     int failed = 0;
 827     test(my_lcic.a == my_lcic2.a);
 828     test(my_lcic.b == my_lcic2.b);
 829     test(my_lcic.c == my_lcic2.c);
 830     test(my_lcic.d == my_lcic2.d);
 831     if (!failed)
 832       VERB0("Passed lcic");
 833   }
 834   write_read(gras_datadesc_by_symbol(lclc), &my_lclc, &my_lclc2, sock,
 835              direction);
 836   if (direction == READ || direction == RW) {
 837     int failed = 0;
 838     test(my_lclc.a == my_lclc2.a);
 839     test(my_lclc.b == my_lclc2.b);
 840     test(my_lclc.c == my_lclc2.c);
 841     test(my_lclc.d == my_lclc2.d);
 842     if (!failed)
 843       VERB0("Passed lclc");
 844   }
 845   write_read(gras_datadesc_by_symbol(lcLc), &my_lcLc, &my_lcLc2, sock,
 846              direction);
 847   if (direction == READ || direction == RW) {
 848     int failed = 0;
 849     test(my_lcLc.a == my_lcLc2.a);
 850     test(my_lcLc.b == my_lcLc2.b);
 851     test(my_lcLc.c == my_lcLc2.c);
 852     test(my_lcLc.d == my_lcLc2.d);
 853     if (!failed)
 854       VERB0("Passed lcLc");
 855   }
 856   write_read(gras_datadesc_by_symbol(lcfc), &my_lcfc, &my_lcfc2, sock,
 857              direction);
 858   if (direction == READ || direction == RW) {
 859     int failed = 0;
 860     test(my_lcfc.a == my_lcfc2.a);
 861     test(my_lcfc.b == my_lcfc2.b);
 862     test(my_lcfc.c == my_lcfc2.c);
 863     test(my_lcfc.d == my_lcfc2.d);
 864     if (!failed)
 865       VERB0("Passed lcfc");
 866   }
 867   write_read(gras_datadesc_by_symbol(lcdc), &my_lcdc, &my_lcdc2, sock,
 868              direction);
 869   if (direction == READ || direction == RW) {
 870     int failed = 0;
 871     test(my_lcdc.a == my_lcdc2.a);
 872     test(my_lcdc.b == my_lcdc2.b);
 873     test(my_lcdc.c == my_lcdc2.c);
 874     test(my_lcdc.d == my_lcdc2.d);
 875     if (!failed)
 876       VERB0("Passed lcdc");
 877   }
 878   write_read(gras_datadesc_by_symbol(Lccc), &my_Lccc, &my_Lccc2, sock,
 879              direction);
 880   if (direction == READ || direction == RW) {
 881     int failed = 0;
 882     test(my_Lccc.a == my_Lccc2.a);
 883     test(my_Lccc.b == my_Lccc2.b);
 884     test(my_Lccc.c == my_Lccc2.c);
 885     test(my_Lccc.d == my_Lccc2.d);
 886     if (!failed)
 887       VERB0("Passed Lccc");
 888   }
 889   write_read(gras_datadesc_by_symbol(Lcsc), &my_Lcsc, &my_Lcsc2, sock,
 890              direction);
 891   if (direction == READ || direction == RW) {
 892     int failed = 0;
 893     test(my_Lcsc.a == my_Lcsc2.a);
 894     test(my_Lcsc.b == my_Lcsc2.b);
 895     test(my_Lcsc.c == my_Lcsc2.c);
 896     test(my_Lcsc.d == my_Lcsc2.d);
 897     if (!failed)
 898       VERB0("Passed Lcsc");
 899   }
 900   write_read(gras_datadesc_by_symbol(Lcic), &my_Lcic, &my_Lcic2, sock,
 901              direction);
 902   if (direction == READ || direction == RW) {
 903     int failed = 0;
 904     test(my_Lcic.a == my_Lcic2.a);
 905     test(my_Lcic.b == my_Lcic2.b);
 906     test(my_Lcic.c == my_Lcic2.c);
 907     test(my_Lcic.d == my_Lcic2.d);
 908     if (!failed)
 909       VERB0("Passed Lcic");
 910   }
 911   write_read(gras_datadesc_by_symbol(Lclc), &my_Lclc, &my_Lclc2, sock,
 912              direction);
 913   if (direction == READ || direction == RW) {
 914     int failed = 0;
 915     test(my_Lclc.a == my_Lclc2.a);
 916     test(my_Lclc.b == my_Lclc2.b);
 917     test(my_Lclc.c == my_Lclc2.c);
 918     test(my_Lclc.d == my_Lclc2.d);
 919     if (!failed)
 920       VERB0("Passed Lclc");
 921   }
 922   write_read(gras_datadesc_by_symbol(LcLc), &my_LcLc, &my_LcLc2, sock,
 923              direction);
 924   if (direction == READ || direction == RW) {
 925     int failed = 0;
 926     test(my_LcLc.a == my_LcLc2.a);
 927     test(my_LcLc.b == my_LcLc2.b);
 928     test(my_LcLc.c == my_LcLc2.c);
 929     test(my_LcLc.d == my_LcLc2.d);
 930     if (!failed)
 931       VERB0("Passed LcLc");
 932   }
 933   write_read(gras_datadesc_by_symbol(Lcfc), &my_Lcfc, &my_Lcfc2, sock,
 934              direction);
 935   if (direction == READ || direction == RW) {
 936     int failed = 0;
 937     test(my_Lcfc.a == my_Lcfc2.a);
 938     test(my_Lcfc.b == my_Lcfc2.b);
 939     test(my_Lcfc.c == my_Lcfc2.c);
 940     test(my_Lcfc.d == my_Lcfc2.d);
 941     if (!failed)
 942       VERB0("Passed Lcfc");
 943   }
 944   write_read(gras_datadesc_by_symbol(Lcdc), &my_Lcdc, &my_Lcdc2, sock,
 945              direction);
 946   if (direction == READ || direction == RW) {
 947     int failed = 0;
 948     test(my_Lcdc.a == my_Lcdc2.a);
 949     test(my_Lcdc.b == my_Lcdc2.b);
 950     test(my_Lcdc.c == my_Lcdc2.c);
 951     test(my_Lcdc.d == my_Lcdc2.d);
 952     if (!failed)
 953       VERB0("Passed Lcdc");
 954   }
 955   write_read(gras_datadesc_by_symbol(fccc), &my_fccc, &my_fccc2, sock,
 956              direction);
 957   if (direction == READ || direction == RW) {
 958     int failed = 0;
 959     test(my_fccc.a == my_fccc2.a);
 960     test(my_fccc.b == my_fccc2.b);
 961     test(my_fccc.c == my_fccc2.c);
 962     test(my_fccc.d == my_fccc2.d);
 963     if (!failed)
 964       VERB0("Passed fccc");
 965   }
 966   write_read(gras_datadesc_by_symbol(fcsc), &my_fcsc, &my_fcsc2, sock,
 967              direction);
 968   if (direction == READ || direction == RW) {
 969     int failed = 0;
 970     test(my_fcsc.a == my_fcsc2.a);
 971     test(my_fcsc.b == my_fcsc2.b);
 972     test(my_fcsc.c == my_fcsc2.c);
 973     test(my_fcsc.d == my_fcsc2.d);
 974     if (!failed)
 975       VERB0("Passed fcsc");
 976   }
 977   write_read(gras_datadesc_by_symbol(fcic), &my_fcic, &my_fcic2, sock,
 978              direction);
 979   if (direction == READ || direction == RW) {
 980     int failed = 0;
 981     test(my_fcic.a == my_fcic2.a);
 982     test(my_fcic.b == my_fcic2.b);
 983     test(my_fcic.c == my_fcic2.c);
 984     test(my_fcic.d == my_fcic2.d);
 985     if (!failed)
 986       VERB0("Passed fcic");
 987   }
 988   write_read(gras_datadesc_by_symbol(fclc), &my_fclc, &my_fclc2, sock,
 989              direction);
 990   if (direction == READ || direction == RW) {
 991     int failed = 0;
 992     test(my_fclc.a == my_fclc2.a);
 993     test(my_fclc.b == my_fclc2.b);
 994     test(my_fclc.c == my_fclc2.c);
 995     test(my_fclc.d == my_fclc2.d);
 996     if (!failed)
 997       VERB0("Passed fclc");
 998   }
 999   write_read(gras_datadesc_by_symbol(fcLc), &my_fcLc, &my_fcLc2, sock,
1000              direction);
1001   if (direction == READ || direction == RW) {
1002     int failed = 0;
1003     test(my_fcLc.a == my_fcLc2.a);
1004     test(my_fcLc.b == my_fcLc2.b);
1005     test(my_fcLc.c == my_fcLc2.c);
1006     test(my_fcLc.d == my_fcLc2.d);
1007     if (!failed)
1008       VERB0("Passed fcLc");
1009   }
1010   write_read(gras_datadesc_by_symbol(fcfc), &my_fcfc, &my_fcfc2, sock,
1011              direction);
1012   if (direction == READ || direction == RW) {
1013     int failed = 0;
1014     test(my_fcfc.a == my_fcfc2.a);
1015     test(my_fcfc.b == my_fcfc2.b);
1016     test(my_fcfc.c == my_fcfc2.c);
1017     test(my_fcfc.d == my_fcfc2.d);
1018     if (!failed)
1019       VERB0("Passed fcfc");
1020   }
1021   write_read(gras_datadesc_by_symbol(fcdc), &my_fcdc, &my_fcdc2, sock,
1022              direction);
1023   if (direction == READ || direction == RW) {
1024     int failed = 0;
1025     test(my_fcdc.a == my_fcdc2.a);
1026     test(my_fcdc.b == my_fcdc2.b);
1027     test(my_fcdc.c == my_fcdc2.c);
1028     test(my_fcdc.d == my_fcdc2.d);
1029     if (!failed)
1030       VERB0("Passed fcdc");
1031   }
1032   write_read(gras_datadesc_by_symbol(dccc), &my_dccc, &my_dccc2, sock,
1033              direction);
1034   if (direction == READ || direction == RW) {
1035     int failed = 0;
1036     test(my_dccc.a == my_dccc2.a);
1037     test(my_dccc.b == my_dccc2.b);
1038     test(my_dccc.c == my_dccc2.c);
1039     test(my_dccc.d == my_dccc2.d);
1040     if (!failed)
1041       VERB0("Passed dccc");
1042   }
1043   write_read(gras_datadesc_by_symbol(dcsc), &my_dcsc, &my_dcsc2, sock,
1044              direction);
1045   if (direction == READ || direction == RW) {
1046     int failed = 0;
1047     test(my_dcsc.a == my_dcsc2.a);
1048     test(my_dcsc.b == my_dcsc2.b);
1049     test(my_dcsc.c == my_dcsc2.c);
1050     test(my_dcsc.d == my_dcsc2.d);
1051     if (!failed)
1052       VERB0("Passed dcsc");
1053   }
1054   write_read(gras_datadesc_by_symbol(dcic), &my_dcic, &my_dcic2, sock,
1055              direction);
1056   if (direction == READ || direction == RW) {
1057     int failed = 0;
1058     test(my_dcic.a == my_dcic2.a);
1059     test(my_dcic.b == my_dcic2.b);
1060     test(my_dcic.c == my_dcic2.c);
1061     test(my_dcic.d == my_dcic2.d);
1062     if (!failed)
1063       VERB0("Passed dcic");
1064   }
1065   write_read(gras_datadesc_by_symbol(dclc), &my_dclc, &my_dclc2, sock,
1066              direction);
1067   if (direction == READ || direction == RW) {
1068     int failed = 0;
1069     test(my_dclc.a == my_dclc2.a);
1070     test(my_dclc.b == my_dclc2.b);
1071     test(my_dclc.c == my_dclc2.c);
1072     test(my_dclc.d == my_dclc2.d);
1073     if (!failed)
1074       VERB0("Passed dclc");
1075   }
1076   write_read(gras_datadesc_by_symbol(dcLc), &my_dcLc, &my_dcLc2, sock,
1077              direction);
1078   if (direction == READ || direction == RW) {
1079     int failed = 0;
1080     test(my_dcLc.a == my_dcLc2.a);
1081     test(my_dcLc.b == my_dcLc2.b);
1082     test(my_dcLc.c == my_dcLc2.c);
1083     test(my_dcLc.d == my_dcLc2.d);
1084     if (!failed)
1085       VERB0("Passed dcLc");
1086   }
1087   write_read(gras_datadesc_by_symbol(dcfc), &my_dcfc, &my_dcfc2, sock,
1088              direction);
1089   if (direction == READ || direction == RW) {
1090     int failed = 0;
1091     test(my_dcfc.a == my_dcfc2.a);
1092     test(my_dcfc.b == my_dcfc2.b);
1093     test(my_dcfc.c == my_dcfc2.c);
1094     test(my_dcfc.d == my_dcfc2.d);
1095     if (!failed)
1096       VERB0("Passed dcfc");
1097   }
1098   write_read(gras_datadesc_by_symbol(dcdc), &my_dcdc, &my_dcdc2, sock,
1099              direction);
1100   if (direction == READ || direction == RW) {
1101     int failed = 0;
1102     test(my_dcdc.a == my_dcdc2.a);
1103     test(my_dcdc.b == my_dcdc2.b);
1104     test(my_dcdc.c == my_dcdc2.c);
1105     test(my_dcdc.d == my_dcdc2.d);
1106     if (!failed)
1107       VERB0("Passed dcdc");
1108   }
1109 }