xref: /dragonfly/contrib/gdb-7/gdb/mi/mi-getopt.c (revision cf89a63b)
1 /* MI Command Set - MI Option Parser.
2    Copyright (C) 2000-2013 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 *oind, char **oarg)
29 {
30   char *arg;
31   const struct mi_opt *opt;
32 
33   /* We assume that argv/argc are ok.  */
34   if (*oind > argc || *oind < 0)
35     internal_error (__FILE__, __LINE__,
36 		    _("mi_getopt_long: oind out of bounds"));
37   if (*oind == argc)
38     return -1;
39   arg = argv[*oind];
40   /* ``--''? */
41   if (strcmp (arg, "--") == 0)
42     {
43       *oind += 1;
44       *oarg = NULL;
45       return -1;
46     }
47   /* End of option list.  */
48   if (arg[0] != '-')
49     {
50       *oarg = 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 oarg option.  */
61 	  if (argc < *oind + 2)
62 	    error (_("%s: Option %s requires an argument"), prefix, arg);
63 	  *oarg = argv[(*oind) + 1];
64 	  *oind = (*oind) + 2;
65 	  return opt->index;
66 	}
67       else
68 	{
69 	  *oarg = NULL;
70 	  *oind = (*oind) + 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 oind = 0;
81   char *oarg;
82   static const struct mi_opt opts[] =
83     {
84       { 0, 0, 0 }
85     };
86 
87   if (mi_getopt (prefix, argc, argv, opts, &oind, &oarg) == -1)
88     return 1;
89   else
90     return 0;
91 }
92