parse.c

蚁群算法的程序

						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";