parse.c

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

/* This file has been generated with opag 0.6.4.  */
#include <stdio.h>
#include <string.h>
#include <assert.h>
#include <limits.h>
#include <stdlib.h>


#include "InOut.h"
#include "utilities.h"
#include "ants.h"
#include "ls.h"


#ifndef STR_ERR_UNKNOWN_LONG_OPT
# define STR_ERR_UNKNOWN_LONG_OPT   "%s: unrecognized option `--%s'\n"
#endif

#ifndef STR_ERR_LONG_OPT_AMBIGUOUS
# define STR_ERR_LONG_OPT_AMBIGUOUS "%s: option `--%s' is ambiguous\n"
#endif

#ifndef STR_ERR_MISSING_ARG_LONG
# define STR_ERR_MISSING_ARG_LONG   "%s: option `--%s' requires an argument\n"
#endif

#ifndef STR_ERR_UNEXPEC_ARG_LONG
# define STR_ERR_UNEXPEC_ARG_LONG   "%s: option `--%s' doesn't allow an argument\n"
#endif

#ifndef STR_ERR_UNKNOWN_SHORT_OPT
# define STR_ERR_UNKNOWN_SHORT_OPT  "%s: unrecognized option `-%c'\n"
#endif

#ifndef STR_ERR_MISSING_ARG_SHORT
# define STR_ERR_MISSING_ARG_SHORT  "%s: option `-%c' requires an argument\n"
#endif

#define STR_HELP_TRIES \
  "  -r, --tries          # number of independent trials\n"

#define STR_HELP_TOURS \
  "  -s, --tours          # number of steps in each trial\n"

#define STR_HELP_TIME \
  "  -t, --time           # maximum time for each trial\n"

#define STR_HELP_TSPLIBFILE \
  "  -i, --tsplibfile     f inputfile (TSPLIB format necessary)\n"

#define STR_HELP_OPTIMUM \
  "  -o, --optimum        # stop if tour better or equal optimum is found\n"

#define STR_HELP_ANTS \
  "  -m, --ants           # number of ants\n"

#define STR_HELP_NNANTS \
  "  -g, --nnants         # nearest neighbours in tour construction\n"

#define STR_HELP_ALPHA \
  "  -a, --alpha          # alpha (influence of pheromone trails)\n"

#define STR_HELP_BETA \
  "  -b, --beta           # beta (influence of heuristic information)\n"

#define STR_HELP_RHO \
  "  -e, --rho            # rho: pheromone trail evaporation\n"

#define STR_HELP_Q0 \
  "  -q, --q0             # q_0: prob. of best choice in tour construction\n"

#define STR_HELP_ELITISTANTS \
  "  -c, --elitistants    # number of elitist ants\n"

#define STR_HELP_RASRANKS \
  "  -f, --rasranks       # number of ranks in rank-based Ant System\n"

#define STR_HELP_NNLS \
  "  -k, --nnls           # No. of nearest neighbors for local search\n"

#define STR_HELP_LOCALSEARCH \
  "  -l, --localsearch    0: no local search   1: 2-opt   2: 2.5-opt   3: 3-opt\n"

#define STR_HELP_DLB \
  "  -d, --dlb            1 use don't look bits in local search\n"

#define STR_HELP_AS \
  "  -u, --as              apply basic Ant System\n"

#define STR_HELP_EAS \
  "  -v, --eas             apply elitist Ant System\n"

#define STR_HELP_RAS \
  "  -w, --ras             apply rank-based version of Ant System\n"

#define STR_HELP_MMAS \
  "  -x, --mmas            apply MAX-MIN ant system\n"

#define STR_HELP_BWAS \
  "  -y, --bwas            apply best-worst ant system\n"

#define STR_HELP_ACS \
  "  -z, --acs             apply ant colony system\n"

#define STR_HELP_HELP \
  "  -h, --help            display this help text and exit\n"

#define STR_HELP \
  STR_HELP_TRIES \
  STR_HELP_TOURS \
  STR_HELP_TIME \
  STR_HELP_TSPLIBFILE \
  STR_HELP_OPTIMUM \
  STR_HELP_ANTS \
  STR_HELP_NNANTS \
  STR_HELP_ALPHA \
  STR_HELP_BETA \
  STR_HELP_RHO \
  STR_HELP_Q0 \
  STR_HELP_ELITISTANTS \
  STR_HELP_RASRANKS \
  STR_HELP_NNLS \
  STR_HELP_LOCALSEARCH \
  STR_HELP_DLB \
  STR_HELP_AS \
  STR_HELP_EAS \
  STR_HELP_RAS \
  STR_HELP_MMAS \
  STR_HELP_BWAS \
  STR_HELP_ACS \
  STR_HELP_HELP

struct options {

/* Set to 1 if option --tries (-r) has been specified.  */
unsigned int opt_tries : 1;

/* Set to 1 if option --tours (-s) has been specified.  */
unsigned int opt_tours : 1;

/* Set to 1 if option --time (-t) has been specified.  */
unsigned int opt_time : 1;

/* Set to 1 if option --tsplibfile (-i) has been specified.  */
unsigned int opt_tsplibfile : 1;

/* Set to 1 if option --optimum (-o) has been specified.  */
unsigned int opt_optimum : 1;

/* Set to 1 if option --ants (-m) has been specified.  */
unsigned int opt_ants : 1;

/* Set to 1 if option --nnants (-g) has been specified.  */
unsigned int opt_nnants : 1;

/* Set to 1 if option --alpha (-a) has been specified.  */
unsigned int opt_alpha : 1;

/* Set to 1 if option --beta (-b) has been specified.  */
unsigned int opt_beta : 1;

/* Set to 1 if option --rho (-e) has been specified.  */
unsigned int opt_rho : 1;

/* Set to 1 if option --q0 (-q) has been specified.  */
unsigned int opt_q0 : 1;

/* Set to 1 if option --elitistants (-c) has been specified.  */
unsigned int opt_elitistants : 1;

/* Set to 1 if option --rasranks (-f) has been specified.  */
unsigned int opt_rasranks : 1;

/* Set to 1 if option --nnls (-k) has been specified.  */
unsigned int opt_nnls : 1;

/* Set to 1 if option --localsearch (-l) has been specified.  */
unsigned int opt_localsearch : 1;

/* Set to 1 if option --dlb (-d) has been specified.  */
unsigned int opt_dlb : 1;

/* Set to 1 if option --as (-u) has been specified.  */
unsigned int opt_as : 1;

/* Set to 1 if option --eas (-v) has been specified.  */
unsigned int opt_eas : 1;

/* Set to 1 if option --ras (-w) has been specified.  */
unsigned int opt_ras : 1;

/* Set to 1 if option --mmas (-x) has been specified.  */
unsigned int opt_mmas : 1;

/* Set to 1 if option --bwas (-y) has been specified.  */
unsigned int opt_bwas : 1;

/* Set to 1 if option --acs (-z) has been specified.  */
unsigned int opt_acs : 1;

/* Set to 1 if option --help (-h) has been specified.  */
unsigned int opt_help : 1;

/* Argument to option --tries (-r).  */
const char *arg_tries;

/* Argument to option --tours (-s).  */
const char *arg_tours;

/* Argument to option --time (-t).  */
const char *arg_time;

/* Argument to option --tsplibfile (-i).  */
const char *arg_tsplibfile;

/* Argument to option --optimum (-o).  */
const char *arg_optimum;

/* Argument to option --ants (-m).  */
const char *arg_ants;

/* Argument to option --nnants (-g).  */
const char *arg_nnants;

/* Argument to option --alpha (-a).  */
const char *arg_alpha;

/* Argument to option --beta (-b).  */
const char *arg_beta;

/* Argument to option --rho (-e).  */
const char *arg_rho;

/* Argument to option --q0 (-q).  */
const char *arg_q0;

/* Argument to option --elitistants (-c).  */
const char *arg_elitistants;

/* Argument to option --rasranks (-f).  */
const char *arg_rasranks;

/* Argument to option --nnls (-k).  */
const char *arg_nnls;

/* Argument to option --localsearch (-l).  */
const char *arg_localsearch;

/* Argument to option --dlb (-d).  */
const char *arg_dlb;

};

/* Parse command line options.  Return index of first non-option argument,
   or -1 if an error is encountered.  */
int parse_options (struct options *const options, const char *const program_name, const int argc, char **const argv)
{
  static const char *const optstr__tries = "tries";
  static const char *const optstr__tours = "tours";
  static const char *const optstr__time = "time";
  static const char *const optstr__tsplibfile = "tsplibfile";
  static const char *const optstr__optimum = "optimum";
  static const char *const optstr__ants = "ants";
  static const char *const optstr__nnants = "nnants";
  static const char *const optstr__alpha = "alpha";
  static const char *const optstr__beta = "beta";
  static const char *const optstr__rho = "rho";
  static const char *const optstr__q0 = "q0";
  static const char *const optstr__elitistants = "elitistants";
  static const char *const optstr__rasranks = "rasranks";
  static const char *const optstr__nnls = "nnls";
  static const char *const optstr__localsearch = "localsearch";
  static const char *const optstr__dlb = "dlb";
  static const char *const optstr__as = "as";
  static const char *const optstr__eas = "eas";
  static const char *const optstr__ras = "ras";
  static const char *const optstr__mmas = "mmas";
  static const char *const optstr__bwas = "bwas";
  static const char *const optstr__acs = "acs";
  static const char *const optstr__help = "help";
  int i = 0;
  options->opt_tries = 0;
  options->opt_tours = 0;
  options->opt_time = 0;
  options->opt_tsplibfile = 0;
  options->opt_optimum = 0;
  options->opt_ants = 0;
  options->opt_nnants = 0;
  options->opt_alpha = 0;
  options->opt_beta = 0;
  options->opt_rho = 0;
  options->opt_q0 = 0;
  options->opt_elitistants = 0;
  options->opt_rasranks = 0;
  options->opt_nnls = 0;
  options->opt_localsearch = 0;
  options->opt_dlb = 0;
  options->opt_as = 0;
  options->opt_eas = 0;
  options->opt_ras = 0;
  options->opt_mmas = 0;
  options->opt_bwas = 0;
  options->opt_acs = 0;
  options->opt_help = 0;
  options->arg_tries = 0;
  options->arg_tours = 0;
  options->arg_time = 0;
  options->arg_tsplibfile = 0;
  options->arg_optimum = 0;
  options->arg_ants = 0;
  options->arg_nnants = 0;
  options->arg_alpha = 0;
  options->arg_beta = 0;
  options->arg_rho = 0;
  options->arg_q0 = 0;
  options->arg_elitistants = 0;
  options->arg_rasranks = 0;
  options->arg_nnls = 0;
  options->arg_localsearch = 0;
  options->arg_dlb = 0;
  while (++i < argc)
  {
    const char *option = argv [i];
    if (*option != '-')
      return i;
    else if (*++option == '\0')
      return i;
    else if (*option == '-')
    {
      const char *argument;
      size_t option_len;
      ++option;
      if ((argument = strchr (option, '=')) == option)
        goto error_unknown_long_opt;
      else if (argument == 0)
        option_len = strlen (option);
      else
        option_len = argument++ - option;
      switch (*option)
      {
       case '\0':
        return i + 1;
       case 'a':
        if (strncmp (option + 1, optstr__acs + 1, option_len - 1) == 0)
        {
          if (option_len <= 1)
            goto error_long_opt_ambiguous;
          if (argument != 0)
          {
            option = optstr__acs;
            goto error_unexpec_arg_long;
          }
          options->opt_acs = 1;
          break;
        }
        else if (strncmp (option + 1, optstr__alpha + 1, option_len - 1) == 0)
        {
          if (option_len <= 1)
            goto error_long_opt_ambiguous;
          if (argument != 0)
            options->arg_alpha = argument;
          else if (++i < argc)
            options->arg_alpha = argv [i];
          else
          {
            option = optstr__alpha;
            goto error_missing_arg_long;
          }
          options->opt_alpha = 1;
          break;
        }
        else if (strncmp (option + 1, optstr__ants + 1, option_len - 1) == 0)
        {
          if (option_len <= 1)
            goto error_long_opt_ambiguous;
          if (argument != 0)
            options->arg_ants = argument;
          else if (++i < argc)
            options->arg_ants = argv [i];
          else
          {
            option = optstr__ants;
            goto error_missing_arg_long;
          }
          options->opt_ants = 1;
          break;
        }
        else if (strncmp (option + 1, optstr__as + 1, option_len - 1) == 0)
        {
          if (option_len <= 1)
            goto error_long_opt_ambiguous;
          if (argument != 0)
          {
            option = optstr__as;
            goto error_unexpec_arg_long;
          }
          options->opt_as = 1;
          break;
        }
        goto error_unknown_long_opt;
       case 'b':
        if (strncmp (option + 1, optstr__beta + 1, option_len - 1) == 0)
        {
          if (option_len <= 1)
            goto error_long_opt_ambiguous;
          if (argument != 0)
            options->arg_beta = argument;
          else if (++i < argc)
            options->arg_beta = argv [i];
          else
          {
            option = optstr__beta;