xref: /dragonfly/contrib/gdb-7/gdb/mi/mi-getopt.c (revision 52f9f0d9)
1 /* MI Command Set - MI Option Parser.
2    Copyright (C) 2000-2001, 2007-2012 Free Software Foundation, Inc.
3    Contributed by Cygnus Solutions (a Red Hat company).
4 
5    This file is part of GDB.
6 
7    This program is free software; you can redistribute it and/or modify
8    it under the terms of the GNU General Public License as published by
9    the Free Software Foundation; either version 3 of the License, or
10    (at your option) any later version.
11 
12    This program is distributed in the hope that it will be useful,
13    but WITHOUT ANY WARRANTY; without even the implied warranty of
14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15    GNU General Public License for more details.
16 
17    You should have received a copy of the GNU General Public License
18    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
19 
20 #include "defs.h"
21 #include "mi-getopt.h"
22 #include "gdb_string.h"
23 
24 int
25 mi_getopt (const char *prefix,
26 	   int argc, char **argv,
27 	   const struct mi_opt *opts,
28 	   int *optind, char **optarg)
29 {
30   char *arg;
31   const struct mi_opt *opt;
32 
33   /* We assume that argv/argc are ok. */
34   if (*optind > argc || *optind < 0)
35     internal_error (__FILE__, __LINE__,
36 		    _("mi_getopt_long: optind out of bounds"));
37   if (*optind == argc)
38     return -1;
39   arg = argv[*optind];
40   /* ``--''? */
41   if (strcmp (arg, "--") == 0)
42     {
43       *optind += 1;
44       *optarg = NULL;
45       return -1;
46     }
47   /* End of option list. */
48   if (arg[0] != '-')
49     {
50       *optarg = NULL;
51       return -1;
52     }
53   /* Look the option up. */
54   for (opt = opts; opt->name != NULL; opt++)
55     {
56       if (strcmp (opt->name, arg + 1) != 0)
57 	continue;
58       if (opt->arg_p)
59 	{
60 	  /* A non-simple optarg option. */
61 	  if (argc < *optind + 2)
62 	    error (_("%s: Option %s requires an argument"), prefix, arg);
63 	  *optarg = argv[(*optind) + 1];
64 	  *optind = (*optind) + 2;
65 	  return opt->index;
66 	}
67       else
68 	{
69 	  *optarg = NULL;
70 	  *optind = (*optind) + 1;
71 	  return opt->index;
72 	}
73     }
74   error (_("%s: Unknown option ``%s''"), prefix, arg + 1);
75 }
76 
77 int
78 mi_valid_noargs (const char *prefix, int argc, char **argv)
79 {
80   int optind = 0;
81   char *optarg;
82   static const struct mi_opt opts[] =
83   {
84     { 0, 0, 0 }
85   };
86 
87   if (mi_getopt (prefix, argc, argv, opts, &optind, &optarg) == -1)
88     return 1;
89   else
90     return 0;
91 }
92