event_location_up
string_to_explicit_location (const char **argp,
const struct language_defn *language,
int dont_throw)
{
event_location_up location;
/* It is assumed that input beginning with '-' and a non-digit
character is an explicit location. "-p" is reserved, though,
for probe locations. */
if (argp == NULL
|| *argp == NULL
|| *argp[0] != '-'
|| !isalpha ((*argp)[1])
|| ((*argp)[0] == '-' && (*argp)[1] == 'p'))
return NULL;
location = new_explicit_location (NULL);
/* Process option/argument pairs. dprintf_command
requires that processing stop on ','. */
while ((*argp)[0] != '\0' && (*argp)[0] != ',')
{
int len;
const char *start;
/* If *ARGP starts with a keyword, stop processing
options. */
if (linespec_lexer_lex_keyword (*argp) != NULL)
break;
/* Mark the start of the string in case we need to rewind. */
start = *argp;
/* Get the option string. */
gdb::unique_xmalloc_ptr<char> opt
= explicit_location_lex_one (argp, language);
*argp = skip_spaces_const (*argp);
/* Get the argument string. */
gdb::unique_xmalloc_ptr<char> oarg
= explicit_location_lex_one (argp, language);
bool have_oarg = oarg != NULL;
*argp = skip_spaces_const (*argp);
/* Use the length of the option to allow abbreviations. */
len = strlen (opt.get ());
/* All options have a required argument. Checking for this required
argument is deferred until later. */
if (strncmp (opt.get (), "-source", len) == 0)
EL_EXPLICIT (location)->source_filename = oarg.release ();
else if (strncmp (opt.get (), "-function", len) == 0)
EL_EXPLICIT (location)->function_name = oarg.release ();
else if (strncmp (opt.get (), "-line", len) == 0)
{
if (have_oarg)
EL_EXPLICIT (location)->line_offset
= linespec_parse_line_offset (oarg.get ());
}
else if (strncmp (opt.get (), "-label", len) == 0)
EL_EXPLICIT (location)->label_name = oarg.release ();
/* Only emit an "invalid argument" error for options
that look like option strings. */
else if (opt.get ()[0] == '-' && !isdigit (opt.get ()[1]))
{
if (!dont_throw)
error (_("invalid explicit location argument, \"%s\""), opt.get ());
}
else
{
/* End of the explicit location specification.
Stop parsing and return whatever explicit location was
parsed. */
*argp = start;
return location;
}
/* It's a little lame to error after the fact, but in this
case, it provides a much better user experience to issue
the "invalid argument" error before any missing
argument error. */
if (!have_oarg && !dont_throw)
error (_("missing argument for \"%s\""), opt.get ());
}
/* One special error check: If a source filename was given
without offset, function, or label, issue an error. */
if (EL_EXPLICIT (location)->source_filename != NULL
&& EL_EXPLICIT (location)->function_name == NULL
&& EL_EXPLICIT (location)->label_name == NULL
&& (EL_EXPLICIT (location)->line_offset.sign == LINE_OFFSET_UNKNOWN)
&& !dont_throw)
{
error (_("Source filename requires function, label, or "
"line offset."));
}
return location;
}
static gdb::unique_xmalloc_ptr<char>
explicit_location_lex_one (const char **inp,
const struct language_defn *language)
{
const char *start = *inp;
if (*start == '\0')
return NULL;
/* If quoted, skip to the ending quote. */
if (strchr (get_gdb_linespec_parser_quote_characters (), *start))
{
char quote_char = *start;
/* If the input is not an Ada operator, skip to the matching
closing quote and return the string. */
if (!(language->la_language == language_ada
&& quote_char == '\"' && is_ada_operator (start)))
{
const char *end = find_toplevel_char (start + 1, quote_char);
if (end == NULL)
error (_("Unmatched quote, %s."), start);
*inp = end + 1;
return gdb::unique_xmalloc_ptr<char> (savestring (start + 1,
*inp - start - 2));
}
}
/* If the input starts with '-' or '+', the string ends with the next
whitespace or comma. */
if (*start == '-' || *start == '+')
{
while (*inp[0] != '\0' && *inp[0] != ',' && !isspace (*inp[0]))
++(*inp);
}
else
{
/* Handle numbers first, stopping at the next whitespace or ','. */
while (isdigit (*inp[0]))
++(*inp);
if (*inp[0] == '\0' || isspace (*inp[0]) || *inp[0] == ',')
return gdb::unique_xmalloc_ptr<char> (savestring (start,
*inp - start));
/* Otherwise stop at the next occurrence of whitespace, '\0',
keyword, or ','. */
*inp = start;
while ((*inp)[0]
&& (*inp)[0] != ','
&& !(isspace ((*inp)[0])
|| linespec_lexer_lex_keyword (&(*inp)[1])))
{
/* Special case: C++ operator,. */
if (language->la_language == language_cplus
&& strncmp (*inp, "operator", 8) == 0)
(*inp) += 8;
++(*inp);
}
}
if (*inp - start > 0)
return gdb::unique_xmalloc_ptr<char> (savestring (start, *inp - start));
return NULL;
}
static gdb::unique_xmalloc_ptr<char>
explicit_location_lex_one_function (const char **inp,
const struct language_defn *language,
explicit_completion_info *completion_info)
{
const char *start = *inp;
if (*start == '\0')
return NULL;
/* If quoted, skip to the ending quote. */
if (strchr (get_gdb_linespec_parser_quote_characters (), *start))
{
char quote_char = *start;
/* If the input is not an Ada operator, skip to the matching
closing quote and return the string. */
if (!(language->la_language == language_ada
&& quote_char == '\"' && is_ada_operator (start)))
{
if (completion_info != NULL)
completion_info->quoted_arg_start = start;
const char *end = find_toplevel_char (start + 1, quote_char);
if (end == NULL)
{
if (completion_info == NULL)
error (_("Unmatched quote, %s."), start);
end = start + strlen (start);
*inp = end;
char *saved = savestring (start + 1, *inp - start - 1);
return gdb::unique_xmalloc_ptr<char> (saved);
}
if (completion_info != NULL)
completion_info->quoted_arg_end = end;
*inp = end + 1;
char *saved = savestring (start + 1, *inp - start - 2);
return gdb::unique_xmalloc_ptr<char> (saved);
}
}
const char *comma = find_toplevel_char (start, ',');
/* If we have "-function -myfunction", or perhaps better example,
"-function -[BasicClass doIt]" (objc selector), treat
"-myfunction" as the function name. I.e., skip the first char if
it is an hyphen. Don't skip the first char always, because we
may have C++ "operator<", and find_toplevel_char needs to see the
'o' in that case. */
const char *hyphen
= (*start == '-'
? find_toplevel_char (start + 1, '-')
: find_toplevel_char (start, '-'));
/* Check for C++ "operator," and "operator-". */
comma = skip_op_false_positives (start, comma);
hyphen = skip_op_false_positives (start, hyphen);
/* Pick the one that appears first. */
const char *end = first_of (hyphen, comma);
/* See if a linespec keyword appears first. */
const char *s = start;
const char *ws = find_toplevel_char (start, ' ');
while (ws != NULL && linespec_lexer_lex_keyword (ws + 1) == NULL)
{
s = ws + 1;
ws = find_toplevel_char (s, ' ');
}
if (ws != NULL)
end = first_of (end, ws + 1);
/* If we don't have any terminator, then take the whole string. */
if (end == NULL)
end = start + strlen (start);
/* Trim whitespace at the end. */
while (end > start && end[-1] == ' ')
end--;
*inp = end;
if (*inp - start > 0)
return gdb::unique_xmalloc_ptr<char> (savestring (start, *inp - start));
return NULL;
}
event_location_up
string_to_explicit_location (const char **argp,
const struct language_defn *language,
explicit_completion_info *completion_info)
{
event_location_up location;
/* It is assumed that input beginning with '-' and a non-digit
character is an explicit location. "-p" is reserved, though,
for probe locations. */
if (argp == NULL
|| *argp == NULL
|| *argp[0] != '-'
|| !isalpha ((*argp)[1])
|| ((*argp)[0] == '-' && (*argp)[1] == 'p'))
return NULL;
location = new_explicit_location (NULL);
/* Process option/argument pairs. dprintf_command
requires that processing stop on ','. */
while ((*argp)[0] != '\0' && (*argp)[0] != ',')
{
int len;
const char *start;
/* Clear these on each iteration, since they should be filled
with info about the last option. */
if (completion_info != NULL)
{
completion_info->quoted_arg_start = NULL;
completion_info->quoted_arg_end = NULL;
}
/* If *ARGP starts with a keyword, stop processing
options. */
if (linespec_lexer_lex_keyword (*argp) != NULL)
break;
/* Mark the start of the string in case we need to rewind. */
start = *argp;
if (completion_info != NULL)
completion_info->last_option = start;
/* Get the option string. */
gdb::unique_xmalloc_ptr<char> opt
= explicit_location_lex_one (argp, language, NULL);
/* Use the length of the option to allow abbreviations. */
len = strlen (opt.get ());
/* Get the argument string. */
*argp = skip_spaces (*argp);
/* All options have a required argument. Checking for this
required argument is deferred until later. */
gdb::unique_xmalloc_ptr<char> oarg;
/* True if we have an argument. This is required because we'll
move from OARG before checking whether we have an
argument. */
bool have_oarg = false;
/* True if the option needs an argument. */
bool need_oarg = false;
/* Convenience to consistently set both OARG/HAVE_OARG from
ARG. */
auto set_oarg = [&] (gdb::unique_xmalloc_ptr<char> arg)
{
if (completion_info != NULL)
{
/* We do this here because the set of options that take
arguments matches the set of explicit location
options. */
completion_info->saw_explicit_location_option = true;
}
oarg = std::move (arg);
have_oarg = oarg != NULL;
need_oarg = true;
};
if (strncmp (opt.get (), "-source", len) == 0)
{
set_oarg (explicit_location_lex_one (argp, language,
completion_info));
EL_EXPLICIT (location)->source_filename = oarg.release ();
}
else if (strncmp (opt.get (), "-function", len) == 0)
{
set_oarg (explicit_location_lex_one_function (argp, language,
completion_info));
EL_EXPLICIT (location)->function_name = oarg.release ();
}
else if (strncmp (opt.get (), "-qualified", len) == 0)
{
EL_EXPLICIT (location)->func_name_match_type
= symbol_name_match_type::FULL;
}
else if (strncmp (opt.get (), "-line", len) == 0)
{
set_oarg (explicit_location_lex_one (argp, language, NULL));
*argp = skip_spaces (*argp);
if (have_oarg)
{
EL_EXPLICIT (location)->line_offset
= linespec_parse_line_offset (oarg.get ());
continue;
}
}
else if (strncmp (opt.get (), "-label", len) == 0)
{
set_oarg (explicit_location_lex_one (argp, language, completion_info));
EL_EXPLICIT (location)->label_name = oarg.release ();
}
/* Only emit an "invalid argument" error for options
that look like option strings. */
else if (opt.get ()[0] == '-' && !isdigit (opt.get ()[1]))
{
if (completion_info == NULL)
error (_("invalid explicit location argument, \"%s\""), opt.get ());
}
else
{
/* End of the explicit location specification.
Stop parsing and return whatever explicit location was
parsed. */
*argp = start;
break;
}
*argp = skip_spaces (*argp);
/* It's a little lame to error after the fact, but in this
case, it provides a much better user experience to issue
the "invalid argument" error before any missing
argument error. */
if (need_oarg && !have_oarg && completion_info == NULL)
error (_("missing argument for \"%s\""), opt.get ());
}
/* One special error check: If a source filename was given
without offset, function, or label, issue an error. */
if (EL_EXPLICIT (location)->source_filename != NULL
&& EL_EXPLICIT (location)->function_name == NULL
&& EL_EXPLICIT (location)->label_name == NULL
&& (EL_EXPLICIT (location)->line_offset.sign == LINE_OFFSET_UNKNOWN)
&& completion_info == NULL)
{
error (_("Source filename requires function, label, or "
"line offset."));
}
return location;
}
static gdb::unique_xmalloc_ptr<char>
explicit_location_lex_one (const char **inp,
const struct language_defn *language,
explicit_completion_info *completion_info)
{
const char *start = *inp;
if (*start == '\0')
return NULL;
/* If quoted, skip to the ending quote. */
if (strchr (get_gdb_linespec_parser_quote_characters (), *start))
{
if (completion_info != NULL)
completion_info->quoted_arg_start = start;
const char *end = find_end_quote (start + 1, *start);
if (end == NULL)
{
if (completion_info == NULL)
error (_("Unmatched quote, %s."), start);
end = start + strlen (start);
*inp = end;
return gdb::unique_xmalloc_ptr<char> (savestring (start + 1,
*inp - start - 1));
}
if (completion_info != NULL)
completion_info->quoted_arg_end = end;
*inp = end + 1;
return gdb::unique_xmalloc_ptr<char> (savestring (start + 1,
*inp - start - 2));
}
/* If the input starts with '-' or '+', the string ends with the next
whitespace or comma. */
if (*start == '-' || *start == '+')
{
while (*inp[0] != '\0' && *inp[0] != ',' && !isspace (*inp[0]))
++(*inp);
}
else
{
/* Handle numbers first, stopping at the next whitespace or ','. */
while (isdigit (*inp[0]))
++(*inp);
if (*inp[0] == '\0' || isspace (*inp[0]) || *inp[0] == ',')
return gdb::unique_xmalloc_ptr<char> (savestring (start,
*inp - start));
/* Otherwise stop at the next occurrence of whitespace, '\0',
keyword, or ','. */
*inp = start;
while ((*inp)[0]
&& (*inp)[0] != ','
&& !(isspace ((*inp)[0])
|| linespec_lexer_lex_keyword (&(*inp)[1])))
{
/* Special case: C++ operator,. */
if (language->la_language == language_cplus
&& startswith (*inp, CP_OPERATOR_STR))
(*inp) += CP_OPERATOR_LEN;
++(*inp);
}
}
if (*inp - start > 0)
return gdb::unique_xmalloc_ptr<char> (savestring (start, *inp - start));
return NULL;
}