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