parse.c

是从一个国外的蚁群算法网站上下载的源程序,是用蚁群算法解TSP问题的源程序!感谢开放源程序

            goto error_missing_arg_long;
          }
          options->opt_beta = 1;
          break;
        }
        else if (strncmp (option + 1, optstr__bwas + 1, option_len - 1) == 0)
        {
          if (option_len <= 1)
            goto error_long_opt_ambiguous;
          if (argument != 0)
          {
            option = optstr__bwas;
            goto error_unexpec_arg_long;
          }
          options->opt_bwas = 1;
          break;
        }
        goto error_unknown_long_opt;
       case 'd':
        if (strncmp (option + 1, optstr__dlb + 1, option_len - 1) == 0)
        {
          if (argument != 0)
            options->arg_dlb = argument;
          else if (++i < argc)
            options->arg_dlb = argv [i];
          else
          {
            option = optstr__dlb;
            goto error_missing_arg_long;
          }
          options->opt_dlb = 1;
          break;
        }
        goto error_unknown_long_opt;
       case 'e':
        if (strncmp (option + 1, optstr__eas + 1, option_len - 1) == 0)
        {
          if (option_len <= 1)
            goto error_long_opt_ambiguous;
          if (argument != 0)
          {
            option = optstr__eas;
            goto error_unexpec_arg_long;
          }
          options->opt_eas = 1;
          break;
        }
        else if (strncmp (option + 1, optstr__elitistants + 1, option_len - 1) == 0)
        {
          if (option_len <= 1)
            goto error_long_opt_ambiguous;
          if (argument != 0)
            options->arg_elitistants = argument;
          else if (++i < argc)
            options->arg_elitistants = argv [i];
          else
          {
            option = optstr__elitistants;
            goto error_missing_arg_long;
          }
          options->opt_elitistants = 1;
          break;
        }
        goto error_unknown_long_opt;
       case 'h':
        if (strncmp (option + 1, optstr__help + 1, option_len - 1) == 0)
        {
          if (argument != 0)
          {
            option = optstr__help;
            goto error_unexpec_arg_long;
          }
          options->opt_help = 1;
          return i + 1;
        }
        goto error_unknown_long_opt;
       case 'l':
        if (strncmp (option + 1, optstr__localsearch + 1, option_len - 1) == 0)
        {
          if (argument != 0)
            options->arg_localsearch = argument;
          else if (++i < argc)
            options->arg_localsearch = argv [i];
          else
          {
            option = optstr__localsearch;
            goto error_missing_arg_long;
          }
          options->opt_localsearch = 1;
          break;
        }
        goto error_unknown_long_opt;
       case 'm':
        if (strncmp (option + 1, optstr__mmas + 1, option_len - 1) == 0)
        {
          if (argument != 0)
          {
            option = optstr__mmas;
            goto error_unexpec_arg_long;
          }
          options->opt_mmas = 1;
          break;
        }
        goto error_unknown_long_opt;
       case 'n':
        if (strncmp (option + 1, optstr__nnants + 1, option_len - 1) == 0)
        {
          if (option_len <= 2)
            goto error_long_opt_ambiguous;
          if (argument != 0)
            options->arg_nnants = argument;
          else if (++i < argc)
            options->arg_nnants = argv [i];
          else
          {
            option = optstr__nnants;
            goto error_missing_arg_long;
          }
          options->opt_nnants = 1;
          break;
        }
        else if (strncmp (option + 1, optstr__nnls + 1, option_len - 1) == 0)
        {
          if (option_len <= 2)
            goto error_long_opt_ambiguous;
          if (argument != 0)
            options->arg_nnls = argument;
          else if (++i < argc)
            options->arg_nnls = argv [i];
          else
          {
            option = optstr__nnls;
            goto error_missing_arg_long;
          }
          options->opt_nnls = 1;
          break;
        }
        goto error_unknown_long_opt;
       case 'o':
        if (strncmp (option + 1, optstr__optimum + 1, option_len - 1) == 0)
        {
          if (argument != 0)
            options->arg_optimum = argument;
          else if (++i < argc)
            options->arg_optimum = argv [i];
          else
          {
            option = optstr__optimum;
            goto error_missing_arg_long;
          }
          options->opt_optimum = 1;
          break;
        }
        goto error_unknown_long_opt;
       case 'q':
        if (strncmp (option + 1, optstr__q0 + 1, option_len - 1) == 0)
        {
          if (argument != 0)
            options->arg_q0 = argument;
          else if (++i < argc)
            options->arg_q0 = argv [i];
          else
          {
            option = optstr__q0;
            goto error_missing_arg_long;
          }
          options->opt_q0 = 1;
          break;
        }
        goto error_unknown_long_opt;
       case 'r':
        if (strncmp (option + 1, optstr__ras + 1, option_len - 1) == 0)
        {
          if (option_len < 3)
            goto error_long_opt_ambiguous;
          if (argument != 0)
          {
            option = optstr__ras;
            goto error_unexpec_arg_long;
          }
          options->opt_ras = 1;
          break;
        }
        else if (strncmp (option + 1, optstr__rasranks + 1, option_len - 1) == 0)
        {
          if (option_len <= 3)
            goto error_long_opt_ambiguous;
          if (argument != 0)
            options->arg_rasranks = argument;
          else if (++i < argc)
            options->arg_rasranks = argv [i];
          else
          {
            option = optstr__rasranks;
            goto error_missing_arg_long;
          }
          options->opt_rasranks = 1;
          break;
        }
        else if (strncmp (option + 1, optstr__rho + 1, option_len - 1) == 0)
        {
          if (option_len <= 1)
            goto error_long_opt_ambiguous;
          if (argument != 0)
            options->arg_rho = argument;
          else if (++i < argc)
            options->arg_rho = argv [i];
          else
          {
            option = optstr__rho;
            goto error_missing_arg_long;
          }
          options->opt_rho = 1;
          break;
        }
        goto error_unknown_long_opt;
       case 't':
        if (strncmp (option + 1, optstr__time + 1, option_len - 1) == 0)
        {
          if (option_len <= 1)
            goto error_long_opt_ambiguous;
          if (argument != 0)
            options->arg_time = argument;
          else if (++i < argc)
            options->arg_time = argv [i];
          else
          {
            option = optstr__time;
            goto error_missing_arg_long;
          }
          options->opt_time = 1;
          break;
        }
        else if (strncmp (option + 1, optstr__tours + 1, option_len - 1) == 0)
        {
          if (option_len <= 1)
            goto error_long_opt_ambiguous;
          if (argument != 0)
            options->arg_tours = argument;
          else if (++i < argc)
            options->arg_tours = argv [i];
          else
          {
            option = optstr__tours;
            goto error_missing_arg_long;
          }
          options->opt_tours = 1;
          break;
        }
        else if (strncmp (option + 1, optstr__tries + 1, option_len - 1) == 0)
        {
          if (option_len <= 1)
            goto error_long_opt_ambiguous;
          if (argument != 0)
            options->arg_tries = argument;
          else if (++i < argc)
            options->arg_tries = argv [i];
          else
          {
            option = optstr__tries;
            goto error_missing_arg_long;
          }
          options->opt_tries = 1;
          break;
        }
        else if (strncmp (option + 1, optstr__tsplibfile + 1, option_len - 1) == 0)
        {
          if (option_len <= 1)
            goto error_long_opt_ambiguous;
          if (argument != 0)
            options->arg_tsplibfile = argument;
          else if (++i < argc)
            options->arg_tsplibfile = argv [i];
          else
          {
            option = optstr__tsplibfile;
            goto error_missing_arg_long;
          }
          options->opt_tsplibfile = 1;
          break;
        }
       default:
       error_unknown_long_opt:
        fprintf (stderr, STR_ERR_UNKNOWN_LONG_OPT, program_name, option);
        return -1;
       error_long_opt_ambiguous:
        fprintf (stderr, STR_ERR_LONG_OPT_AMBIGUOUS, program_name, option);
        return -1;
       error_missing_arg_long:
        fprintf (stderr, STR_ERR_MISSING_ARG_LONG, program_name, option);
        return -1;
       error_unexpec_arg_long:
        fprintf (stderr, STR_ERR_UNEXPEC_ARG_LONG, program_name, option);
        return -1;
      }
    }
    else
      do
      {
        switch (*option)
        {
         case 'a':
          if (option [1] != '\0')
            options->arg_alpha = option + 1;
          else if (++i < argc)
            options->arg_alpha = argv [i];
          else
            goto error_missing_arg_short;
          option = "\0";
          options->opt_alpha = 1;
          break;
         case 'b':
          if (option [1] != '\0')
            options->arg_beta = option + 1;
          else if (++i < argc)
            options->arg_beta = argv [i];
          else
            goto error_missing_arg_short;
          option = "\0";
          options->opt_beta = 1;
          break;
         case 'c':
          if (option [1] != '\0')
            options->arg_elitistants = option + 1;
          else if (++i < argc)
            options->arg_elitistants = argv [i];
          else
            goto error_missing_arg_short;
          option = "\0";
          options->opt_elitistants = 1;
          break;
         case 'd':
          if (option [1] != '\0')
            options->arg_dlb = option + 1;
          else if (++i < argc)
            options->arg_dlb = argv [i];
          else
            goto error_missing_arg_short;
          option = "\0";
          options->opt_dlb = 1;
          break;
         case 'e':
          if (option [1] != '\0')
            options->arg_rho = option + 1;
          else if (++i < argc)
            options->arg_rho = argv [i];
          else
            goto error_missing_arg_short;
          option = "\0";
          options->opt_rho = 1;
          break;
         case 'f':
          if (option [1] != '\0')
            options->arg_rasranks = option + 1;
          else if (++i < argc)
            options->arg_rasranks = argv [i];
          else
            goto error_missing_arg_short;
          option = "\0";
          options->opt_rasranks = 1;
          break;
         case 'g':
          if (option [1] != '\0')
            options->arg_nnants = option + 1;
          else if (++i < argc)
            options->arg_nnants = argv [i];
          else
            goto error_missing_arg_short;
          option = "\0";
          options->opt_nnants = 1;
          break;
         case 'h':
          options->opt_help = 1;
          return i + 1;
         case 'i':
          if (option [1] != '\0')
            options->arg_tsplibfile = option + 1;
          else if (++i < argc)
            options->arg_tsplibfile = argv [i];
          else
            goto error_missing_arg_short;
          option = "\0";
          options->opt_tsplibfile = 1;
          break;
         case 'k':
          if (option [1] != '\0')
            options->arg_nnls = option + 1;
          else if (++i < argc)
            options->arg_nnls = argv [i];
          else
            goto error_missing_arg_short;
          option = "\0";
          options->opt_nnls = 1;
          break;
         case 'l':
          if (option [1] != '\0')
            options->arg_localsearch = option + 1;
          else if (++i < argc)
            options->arg_localsearch = argv [i];
          else
            goto error_missing_arg_short;
          option = "\0";
          options->opt_localsearch = 1;
          break;
         case 'm':
          if (option [1] != '\0')
            options->arg_ants = option + 1;
          else if (++i < argc)
            options->arg_ants = argv [i];
          else
            goto error_missing_arg_short;
          option = "\0";