src/prime-gaa.c

   1 #include <stdio.h>
   2 #include <string.h>
   3
   4 #ifndef GAA_NO_WIN32
   5 #if defined(_WIN32) || defined(__WIN32__) || defined(WIN32) || defined(WINDOWS)
   6 #define GAA_WIN32
   7 #endif
   8 #endif
   9
  10 void __gaa_helpsingle(char short_name, char *name,
  11         char *arg_desc, char *opt_help)
  12 {
  13      int col1, col3, col4, tabsize = 3, curr;
  14      int i;
  15
  16      col1 = 5; /* Default values */
  17      col3 = 30;
  18      col4 = 70;
  19
  20      curr = 0;
  21      for(i = 0; i < col1; i++)
  22         {
  23         printf(" ");
  24         curr++;
  25         }
  26      if(short_name)
  27         {
  28         if(name && *name)
  29           {
  30             printf("-%c, ", short_name);
  31             curr += 4;
  32           }
  33         else
  34           {
  35             printf("-%c ", short_name);
  36             curr += 3;
  37           }
  38         }
  39      if(name && *name)
  40         {
  41           printf("--%s ", name);
  42           curr += 3 + strlen(name);
  43         }
  44      if(arg_desc && *arg_desc)
  45         {
  46           printf("%s ", arg_desc);
  47           curr += 1 + strlen(arg_desc);
  48         }
  49      if(curr >= col3)
  50         {
  51           printf("\n");
  52           curr = 0;
  53         }
  54      if(opt_help) /* let's print the option's help body */
  55         {
  56         const char *str = opt_help;
  57         while(*str)
  58           {
  59              while(curr < col3)
  60                {
  61                  printf(" ");
  62                  curr++;
  63                }
  64              switch(*str)
  65                {
  66                  case '\n':
  67                      printf("\n");
  68                      curr = 0;
  69                      break;
  70                  case '\t':
  71                      do
  72                         {
  73                         printf(" ");
  74                         curr++;
  75                         }
  76                      while((curr - col3) % tabsize != 0 && curr < col4);
  77                  case ' ':
  78                      if(*str == ' ')
  79                         {
  80                         curr++;
  81                         printf(" ");
  82                         }
  83                      for(i = 1; str[i] && str[i] != ' ' && str[i] != '\n'
  84                         && str[i] != '\t'; i++);
  85                      if(curr + i - 1 >= col4)
  86                         curr = col4;
  87                      break;
  88                 default:
  89                      printf("%c", *str);
  90                      curr++;
  91                }
  92              if(curr >= col4)
  93                {
  94                  printf("\n");
  95                  curr = 0;
  96                }
  97              str++;
  98           }
  99         }
 100      printf("\n");
 101 }
 102
 103 void gaa_help()
 104 {
 105         printf("Crypt help\nUsage : prime [options]""\n");
 106         __gaa_helpsingle(0, "bits", """BITS"" ", "specify the number of bits for prime numbers (used only when create_conf option is specified).");
 107         __gaa_helpsingle('h', "help", "", "shows this help text");
 108
 109 #line 100 "gaa.skel"
 110 }
 111 /* Copy of C area */
 112
 113 #line 104 "gaa.skel"
 114 /* GAA HEADER */
 115 #ifndef GAA_HEADER_POKY
 116 #define GAA_HEADER_POKY
 117
 118 typedef struct _gaainfo gaainfo;
 119
 120 struct _gaainfo
 121 {
 122 #line 3 "prime.gaa"
 123         int bits;
 124
 125 #line 114 "gaa.skel"
 126 };
 127
 128 #ifdef __cplusplus
 129 extern "C"
 130 {
 131 #endif
 132
 133     int gaa(int argc, char *argv[], gaainfo *gaaval);
 134
 135     void gaa_help();
 136
 137     int gaa_file(char *name, gaainfo *gaaval);
 138
 139 #ifdef __cplusplus
 140 }
 141 #endif
 142
 143
 144 #endif
 145
 146 #line 135 "gaa.skel"
 147
 148 /* C declarations */
 149
 150 #define GAAERROR    \
 151 {                   \
 152 gaa_error = 1;      \
 153 return;        \
 154 }
 155
 156 char *gaa_current_option;
 157 int gaa_error = 0;
 158
 159 /* Generated by gaa */
 160
 161 #include <string.h>
 162 #include <stdlib.h>
 163
 164
 165 #define GAA_OK                       -1
 166
 167 #define GAA_ERROR_NOMATCH            0
 168 #define GAA_ERROR_NOTENOUGH_ARGS     1
 169 #define GAA_ERROR_INVALID_ARG        2
 170 #define GAA_ERROR_UNKNOWN            3
 171
 172 #define GAA_NOT_AN_OPTION       0
 173 #define GAA_WORD_OPTION         1
 174 #define GAA_LETTER_OPTION       2
 175 #define GAA_MULTIPLE_OPTION     3
 176
 177 #define GAA_REST                0
 178 #define GAA_NB_OPTION           2
 179 #define GAAOPTID_help   1
 180 #define GAAOPTID_bits   2
 181
 182 #line 168 "gaa.skel"
 183
 184 #define GAA_CHECK1STR(a,b)      \
 185 if(a[0] == str[0])              \
 186 {                               \
 187     gaa_current_option = a;     \
 188     return b;                   \
 189 }
 190
 191 #define GAA_CHECKSTR(a,b)                \
 192 if(strcmp(a,str) == 0)                   \
 193 {                                        \
 194     gaa_current_option = a;              \
 195     return b;                            \
 196 }
 197
 198 #define GAA_TESTMOREARGS                                                  \
 199 if(!OK)                                                                     \
 200 {                                  \
 201 while((gaa_last_non_option != gaa_index) && (gaa_arg_used[gaa_index] == 1)) \
 202     gaa_index++;                                                            \
 203 if(gaa_last_non_option == gaa_index)                                        \
 204     return GAA_ERROR_NOTENOUGH_ARGS; \
 205 }
 206
 207 #define GAA_TESTMOREOPTIONALARGS                                                  \
 208 if(!OK) \
 209 { \
 210 while((gaa_last_non_option != gaa_index) && (gaa_arg_used[gaa_index] == 1)) \
 211     gaa_index++;                                                            \
 212 if(gaa_last_non_option == gaa_index)                                        \
 213     OK = 1; \
 214 }
 215
 216 #define GAA_FILL_2ARGS(target, func)           \
 217 target = func(GAAargv[gaa_index]);       \
 218 gaa_arg_used[gaa_index] = 1;             \
 219 if(gaa_error == 1)                       \
 220 {                                        \
 221     gaa_error = 0;                       \
 222     return GAA_ERROR_INVALID_ARG;        \
 223 }
 224
 225
 226
 227 #define GAA_FILL(target, func, num)           \
 228 if(!OK) \
 229 { \
 230 target = func(GAAargv[gaa_index]);       \
 231 gaa_arg_used[gaa_index] = 1;             \
 232 if(gaa_error == 1)                       \
 233 {                                        \
 234     gaa_error = 0;                       \
 235     return GAA_ERROR_INVALID_ARG;        \
 236 } \
 237 num = 1;  \
 238 } \
 239 else \
 240 { \
 241 num = 0; \
 242 }
 243
 244 #define GAA_LIST_FILL(target, func, type ,num)                      \
 245 if(!OK) \
 246 { \
 247 num = 0;                                                            \
 248 target = malloc((gaa_last_non_option - gaa_index) * sizeof(type));  \
 249 for(; gaa_index < gaa_last_non_option; gaa_index++)                 \
 250 {                                                                   \
 251     if(gaa_arg_used[gaa_index] == 0)                                \
 252     {                                                               \
 253         GAA_FILL_2ARGS(target[num], func);                                \
 254         num++;                                                      \
 255     }                                                               \
 256 }                                                                   \
 257 if(num == 0)                                                        \
 258     return GAA_ERROR_NOTENOUGH_ARGS; \
 259 }
 260
 261 #define GAA_OPTIONALLIST_FILL(target, func, type ,num)                      \
 262 if(!OK) \
 263 { \
 264 num = 0;                                                            \
 265 target = malloc((gaa_last_non_option - gaa_index) * sizeof(type));  \
 266 for(; gaa_index < gaa_last_non_option; gaa_index++)                 \
 267 {                                                                   \
 268     if(gaa_arg_used[gaa_index] == 0)                                \
 269     {                                                               \
 270         GAA_FILL_2ARGS(target[num], func);                                \
 271         num++;                                                      \
 272     }                                                               \
 273 } \
 274 }
 275
 276 #define GAA_OBLIGAT(str)                                            \
 277 k = 0;                                                              \
 278 for(i = 0; i < strlen(str); i++)                                    \
 279 {                                                                   \
 280     j = gaa_get_option_num(str + i, GAA_LETTER_OPTION);           \
 281     if(j == GAA_ERROR_NOMATCH)                                       \
 282     {                                                               \
 283         printf("Error : invalid 'obligat' set\n");                  \
 284         exit(-1);                                                   \
 285     }                                                               \
 286     if(opt_list[j] == 1)                                            \
 287         k = 1;                                                      \
 288 }                                                                    \
 289 if(k == 0)                                                            \
 290 {                                                                      \
 291     if(strlen(str) == 1)                                                \
 292         printf("You must give the -%s option\n", str);                     \
 293     else                                                                  \
 294         printf("You must give at least one option of '%s'\n", str);          \
 295     return 0;         \
 296 }
 297
 298 #define GAA_INCOMP(str)                                                \
 299 k = 0;                                                              \
 300 for(i = 0; i < strlen(str); i++)                                    \
 301 {                                                                   \
 302     j = gaa_get_option_num(str + i, GAA_LETTER_OPTION);           \
 303     if(j == GAA_ERROR_NOMATCH)                                      \
 304     {                                                               \
 305         printf("Error : invalid 'obligat' set\n");                  \
 306         exit(-1);                                                   \
 307     }                                                               \
 308     if(opt_list[j] == 1)                                            \
 309         k++;                                                      \
 310 }                   \
 311 if(k > 1)                                                            \
 312 {                                                                      \
 313     printf("The options '%s' are incompatible\n", str);              \
 314     return 0;                                                          \
 315 }
 316
 317
 318 char **GAAargv;
 319 int GAAargc;
 320 char *gaa_arg_used;
 321 int gaa_processing_file = 0;
 322 int inited = 0;
 323
 324 int gaa_getint(char *arg)
 325 {
 326     int tmp;
 327     char a;
 328     if(sscanf(arg, "%d%c", &tmp, &a) != 1)
 329     {
 330         printf("Option %s : '%s' isn't an integer\n", gaa_current_option, arg);
 331         GAAERROR;
 332     }
 333     return tmp;
 334 }
 335
 336 char gaa_getchar(char *arg)
 337 {
 338     if(strlen(arg) != 1)
 339     {
 340         printf("Option %s : '%s' isn't an character\n", gaa_current_option, arg);
 341         GAAERROR;
 342     }
 343     return arg[0];
 344 }
 345
 346 char* gaa_getstr(char *arg)
 347 {
 348     return arg;
 349 }
 350 float gaa_getfloat(char *arg)
 351 {
 352     float tmp;
 353     char a;
 354     if(sscanf(arg, "%f%c", &tmp, &a) != 1)
 355     {
 356         printf("Option %s : '%s' isn't a float number\n", gaa_current_option, arg);
 357         GAAERROR;
 358     }
 359     return tmp;
 360 }
 361 /* option structures */
 362
 363 struct GAAOPTION_bits
 364 {
 365         int arg1;
 366         int size1;
 367 };
 368
 369 #line 349 "gaa.skel"
 370 int gaa_is_an_argument(char *str)
 371 {
 372 #ifdef GAA_WIN32
 373     if(str[0] == '/' && str[1] != 0)
 374         return GAA_MULTIPLE_OPTION;
 375 #endif
 376     if(str[0] != '-')
 377         return GAA_NOT_AN_OPTION;
 378     if(str[1] == 0)
 379         return GAA_NOT_AN_OPTION;
 380     if(str[1] == '-')
 381     {
 382         if(str[2] != 0)
 383             return GAA_WORD_OPTION;
 384         else
 385             return GAA_NOT_AN_OPTION;
 386     }
 387     if(str[2] == 0)
 388         return GAA_LETTER_OPTION;
 389     else
 390         return GAA_MULTIPLE_OPTION;
 391 }
 392
 393 int gaa_get_option_num(char *str, int status)
 394 {
 395     switch(status)
 396         {
 397         case GAA_LETTER_OPTION:
 398                         GAA_CHECK1STR("", GAAOPTID_bits);
 399         case GAA_MULTIPLE_OPTION:
 400 #line 375 "gaa.skel"
 401                         GAA_CHECK1STR("h", GAAOPTID_help);
 402
 403 #line 277 "gaa.skel"
 404         break;
 405         case GAA_WORD_OPTION:
 406                         GAA_CHECKSTR("help", GAAOPTID_help);
 407                         GAA_CHECKSTR("bits", GAAOPTID_bits);
 408
 409 #line 281 "gaa.skel"
 410         break;
 411         default: break;
 412         }
 413     return GAA_ERROR_NOMATCH;
 414 }
 415
 416 int gaa_try(int gaa_num, int gaa_index, gaainfo *gaaval, char *opt_list)
 417 {
 418     int OK = 0;
 419     int gaa_last_non_option;
 420         struct GAAOPTION_bits GAATMP_bits;
 421
 422 #line 393 "gaa.skel"
 423 #ifdef GAA_REST_EXISTS
 424     struct GAAREST GAAREST_tmp;
 425 #endif
 426
 427     opt_list[gaa_num] = 1;
 428
 429     for(gaa_last_non_option = gaa_index;
 430         (gaa_last_non_option != GAAargc) && (gaa_is_an_argument(GAAargv[gaa_last_non_option]) == GAA_NOT_AN_OPTION);
 431         gaa_last_non_option++);
 432
 433     if(gaa_num == GAA_REST)
 434     {
 435         gaa_index = 1;
 436         gaa_last_non_option = GAAargc;
 437     }
 438
 439     switch(gaa_num)
 440     {
 441         case GAAOPTID_help:
 442         OK = 0;
 443 #line 6 "prime.gaa"
 444 { gaa_help(); exit(0); ;};
 445
 446                 return GAA_OK;
 447                 break;
 448         case GAAOPTID_bits:
 449         OK = 0;
 450                 GAA_TESTMOREARGS;
 451                 GAA_FILL(GAATMP_bits.arg1, gaa_getint, GAATMP_bits.size1);
 452                 gaa_index++;
 453 #line 4 "prime.gaa"
 454 { gaaval->bits = GAATMP_bits.arg1 ;};
 455
 456                 return GAA_OK;
 457                 break;
 458
 459 #line 413 "gaa.skel"
 460     default: break;
 461     }
 462     return GAA_ERROR_UNKNOWN;
 463 }
 464
 465 int gaa(int argc, char **argv, gaainfo *gaaval)
 466 {
 467     int tmp1, tmp2;
 468     int i, j;
 469     char *opt_list;
 470
 471     GAAargv = argv;
 472     GAAargc = argc;
 473
 474     opt_list = (char*) malloc(GAA_NB_OPTION + 1);
 475     for(i = 0; i < GAA_NB_OPTION + 1; i++)
 476         opt_list[i] = 0;
 477     /* initialization */
 478     if(inited == 0)
 479     {
 480
 481 #line 8 "prime.gaa"
 482 { gaaval->bits=1040; ;};
 483
 484     }
 485     inited = 1;
 486 #line 438 "gaa.skel"
 487     gaa_arg_used = malloc(argc * sizeof(char));
 488     for(i = 1; i < argc; i++)
 489         gaa_arg_used[i] = 0;
 490     for(i = 1; i < argc; i++)
 491     {
 492         if(gaa_arg_used[i] == 0)
 493         {
 494             j = 0;
 495             tmp1 = gaa_is_an_argument(GAAargv[i]);
 496             switch(tmp1)
 497             {
 498             case GAA_WORD_OPTION:
 499                 j++;
 500             case GAA_LETTER_OPTION:
 501                 j++;
 502                 tmp2 = gaa_get_option_num(argv[i]+j, tmp1);
 503                 if(tmp2 == GAA_ERROR_NOMATCH)
 504                 {
 505                     printf("Invalid option '%s'\n", argv[i]+j);
 506                     return 0;
 507                 }
 508                 switch(gaa_try(tmp2, i+1, gaaval, opt_list))
 509                 {
 510                 case GAA_ERROR_NOTENOUGH_ARGS:
 511                     printf("'%s' : not enough arguments\n",gaa_current_option);
 512                     return 0;
 513                 case GAA_ERROR_INVALID_ARG:
 514                     printf("Invalid arguments\n");
 515                     return 0;
 516                 case GAA_OK:
 517                     break;
 518                 default:
 519                     printf("Unknown error\n");
 520                 }
 521                 gaa_arg_used[i] = 1;
 522                 break;
 523             case GAA_MULTIPLE_OPTION:
 524                 for(j = 1; j < strlen(argv[i]); j++)
 525                 {
 526                     tmp2 = gaa_get_option_num(argv[i]+j, tmp1);
 527                     if(tmp2 == GAA_ERROR_NOMATCH)
 528                     {
 529                         printf("Invalid option '%c'\n", *(argv[i]+j));
 530                         return 0;
 531                     }
 532                     switch(gaa_try(tmp2, i+1, gaaval, opt_list))
 533                     {
 534                     case GAA_ERROR_NOTENOUGH_ARGS:
 535                         printf("'%s' : not enough arguments\n",gaa_current_option);
 536                         return 0;
 537                     case GAA_ERROR_INVALID_ARG:
 538                         printf("Invalid arguments\n");
 539                         return 0;
 540                     case GAA_OK:
 541                         break;
 542                     default:
 543                         printf("Unknown error\n");
 544                     }
 545                 }
 546                 gaa_arg_used[i] = 1;
 547                 break;
 548             default: break;
 549             }
 550         }
 551     }
 552 if(gaa_processing_file == 0)
 553 {
 554
 555 #line 507 "gaa.skel"
 556 #ifdef GAA_REST_EXISTS
 557     switch(gaa_try(GAA_REST, 1, gaaval, opt_list))
 558     {
 559     case GAA_ERROR_NOTENOUGH_ARGS:
 560         printf("Rest : not enough arguments\n");
 561         return 0;
 562     case GAA_ERROR_INVALID_ARG:
 563         printf("Invalid arguments\n");
 564         return 0;
 565     case GAA_OK:
 566         break;
 567     default:
 568         printf("Unknown error\n");
 569     }
 570 #endif
 571 }
 572     for(i = 1; i < argc; i++)
 573     {
 574         if(gaa_arg_used[i] == 0)
 575         {
 576             printf("Too many arguments\n");
 577             return 0;
 578         }
 579     }
 580     free(gaa_arg_used);
 581     free(opt_list);
 582     return -1;
 583 }
 584
 585 struct gaastrnode
 586 {
 587     char *str;
 588     struct gaastrnode *next;
 589 };
 590
 591 typedef struct gaastrnode gaa_str_node;
 592
 593 int gaa_internal_get_next_str(FILE *file, gaa_str_node *tmp_str, int argc)
 594 {
 595     int pos_ini;
 596     char a;
 597     int i = 0, len = 0, newline = 0;
 598
 599     if(argc == 1)
 600         newline = 1;
 601
 602     if(fscanf(file,"%c", &a) != 1) return 0;
 603
 604     while(a == ' ' || a == 9 || a == '\n')
 605     {
 606         if(a == '\n')
 607         {
 608             newline=1;
 609             len = 2;
 610         }
 611         if(fscanf(file,"%c", &a) != 1) return 0;
 612     }
 613
 614     pos_ini = ftell(file) - 1;
 615
 616     while(a != ' ' && a != 9 && a != '\n')
 617     {
 618
 619         len++;
 620         if(fscanf(file,"%c", &a) != 1) a = ' ';
 621     }
 622
 623     tmp_str->str = malloc((len + 1) * sizeof(char));
 624     if(newline == 1)
 625     {
 626         tmp_str->str[0] = '-';
 627         tmp_str->str[1] = '-';
 628         i = 2;
 629     }
 630     else
 631     {
 632         i = 0;
 633     }
 634
 635     fseek(file,pos_ini, SEEK_SET);
 636     do
 637     {
 638         if(fscanf(file, "%c", &a) != 1)
 639         {
 640             i+=2;
 641             break;
 642         }
 643         tmp_str->str[i] = a;
 644         i++;
 645     }
 646     while(a != ' ' && a != 9 && a != '\n');
 647
 648     tmp_str->str[i - 1] = 0;
 649
 650     fseek(file,- 1, SEEK_CUR);
 651
 652     return -1;
 653 }
 654
 655 int gaa_file(char *name, gaainfo *gaaval)
 656 {
 657     gaa_str_node *first_str, **tmp_str, *tmp_str2;
 658     int rval, i;
 659     char **argv;
 660     int argc = 0;
 661     FILE *file;
 662
 663     gaa_processing_file = 1;
 664
 665     if((file = fopen(name, "r")) == NULL)
 666     {
 667         printf("Couldn't open '%s' configuration file for reading\n", name);
 668         return 0;
 669     }
 670
 671     tmp_str = &first_str;
 672     do
 673     {
 674         argc++;
 675         *tmp_str = malloc(sizeof(gaa_str_node));
 676         (*tmp_str)->str = NULL;
 677         (*tmp_str)->next = NULL;
 678
 679         rval = gaa_internal_get_next_str(file, *tmp_str, argc);
 680         tmp_str = &((*tmp_str)->next);
 681     }
 682     while(rval == -1);
 683
 684     if(rval == 1)
 685         return 0;
 686
 687     argv = malloc((1 + argc) * sizeof(char*));
 688     tmp_str2 = first_str;
 689     argv[0] = "cfg";
 690     for(i = 1; i < argc; i++)
 691     {
 692         argv[i] = tmp_str2->str;
 693         tmp_str2 = tmp_str2->next;
 694     }
 695
 696     rval = gaa(argc, argv, gaaval);
 697     gaa_processing_file = 0;
 698     return rval;
 699 }