probe-event.c 53.3 KB
Newer Older
1
/*
2
 * probe-event.c : perf-probe definition to probe_events format converter
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
 *
 * Written by Masami Hiramatsu <mhiramat@redhat.com>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 *
 */

#include <sys/utsname.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <errno.h>
#include <stdio.h>
#include <unistd.h>
#include <stdlib.h>
#include <string.h>
31 32
#include <stdarg.h>
#include <limits.h>
33
#include <elf.h>
34

35
#include "util.h"
36
#include "event.h"
37
#include "strlist.h"
38
#include "debug.h"
39
#include "cache.h"
40
#include "color.h"
41 42
#include "symbol.h"
#include "thread.h"
43
#include <api/fs/debugfs.h>
44
#include "trace-event.h"	/* For __maybe_unused */
45
#include "probe-event.h"
46
#include "probe-finder.h"
47
#include "session.h"
48 49 50 51

#define MAX_CMDLEN 256
#define PERFPROBE_GROUP "probe"

52 53
bool probe_event_dry_run;	/* Dry run flag */

54
#define semantic_error(msg ...) pr_err("Semantic error :" msg)
55

56
/* If there is no space to write, returns -E2BIG. */
57 58 59
static int e_snprintf(char *str, size_t size, const char *format, ...)
	__attribute__((format(printf, 3, 4)));

60 61 62 63 64 65 66 67 68 69 70 71
static int e_snprintf(char *str, size_t size, const char *format, ...)
{
	int ret;
	va_list ap;
	va_start(ap, format);
	ret = vsnprintf(str, size, format, ap);
	va_end(ap);
	if (ret >= (int)size)
		ret = -E2BIG;
	return ret;
}

72
static char *synthesize_perf_probe_point(struct perf_probe_point *pp);
73 74
static int convert_name_to_addr(struct perf_probe_event *pev,
				const char *exec);
75
static void clear_probe_trace_event(struct probe_trace_event *tev);
76
static struct machine machine;
77

78
/* Initialize symbol maps and path of vmlinux/modules */
79
static int init_vmlinux(void)
80
{
81 82
	int ret;

83 84 85 86 87
	symbol_conf.sort_by_name = true;
	if (symbol_conf.vmlinux_name == NULL)
		symbol_conf.try_vmlinux_path = true;
	else
		pr_debug("Use vmlinux: %s\n", symbol_conf.vmlinux_name);
88 89 90 91 92
	ret = symbol__init();
	if (ret < 0) {
		pr_debug("Failed to init symbol map.\n");
		goto out;
	}
93

94
	ret = machine__init(&machine, "", HOST_KERNEL_ID);
95 96 97
	if (ret < 0)
		goto out;

98
	if (machine__create_kernel_maps(&machine) < 0) {
M
Masami Hiramatsu 已提交
99
		pr_debug("machine__create_kernel_maps() failed.\n");
100 101
		goto out;
	}
102 103 104 105
out:
	if (ret < 0)
		pr_warning("Failed to init vmlinux path.\n");
	return ret;
106 107
}

108 109 110 111 112 113 114
static struct symbol *__find_kernel_function_by_name(const char *name,
						     struct map **mapp)
{
	return machine__find_kernel_function_by_name(&machine, name, mapp,
						     NULL);
}

115 116 117 118 119
static struct map *kernel_get_module_map(const char *module)
{
	struct rb_node *nd;
	struct map_groups *grp = &machine.kmaps;

120 121 122 123
	/* A file path -- this is an offline module */
	if (module && strchr(module, '/'))
		return machine__new_module(&machine, 0, module);

124 125 126 127 128 129 130 131 132 133 134 135 136 137
	if (!module)
		module = "kernel";

	for (nd = rb_first(&grp->maps[MAP__FUNCTION]); nd; nd = rb_next(nd)) {
		struct map *pos = rb_entry(nd, struct map, rb_node);
		if (strncmp(pos->dso->short_name + 1, module,
			    pos->dso->short_name_len - 2) == 0) {
			return pos;
		}
	}
	return NULL;
}

static struct dso *kernel_get_module_dso(const char *module)
138 139
{
	struct dso *dso;
140 141
	struct map *map;
	const char *vmlinux_name;
142 143 144 145 146 147 148 149 150

	if (module) {
		list_for_each_entry(dso, &machine.kernel_dsos, node) {
			if (strncmp(dso->short_name + 1, module,
				    dso->short_name_len - 2) == 0)
				goto found;
		}
		pr_debug("Failed to find module %s.\n", module);
		return NULL;
151 152 153 154 155 156 157
	}

	map = machine.vmlinux_maps[MAP__FUNCTION];
	dso = map->dso;

	vmlinux_name = symbol_conf.vmlinux_name;
	if (vmlinux_name) {
158
		if (dso__load_vmlinux(dso, map, vmlinux_name, false, NULL) <= 0)
159
			return NULL;
160
	} else {
161
		if (dso__load_vmlinux_path(dso, map, NULL) <= 0) {
162 163 164 165 166
			pr_debug("Failed to load kernel map.\n");
			return NULL;
		}
	}
found:
167 168 169 170 171 172 173
	return dso;
}

const char *kernel_get_module_path(const char *module)
{
	struct dso *dso = kernel_get_module_dso(module);
	return (dso) ? dso->long_name : NULL;
174 175
}

176
#ifdef HAVE_DWARF_SUPPORT
177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221
/* Copied from unwind.c */
static Elf_Scn *elf_section_by_name(Elf *elf, GElf_Ehdr *ep,
				    GElf_Shdr *shp, const char *name)
{
	Elf_Scn *sec = NULL;

	while ((sec = elf_nextscn(elf, sec)) != NULL) {
		char *str;

		gelf_getshdr(sec, shp);
		str = elf_strptr(elf, ep->e_shstrndx, shp->sh_name);
		if (!strcmp(name, str))
			break;
	}

	return sec;
}

static int get_text_start_address(const char *exec, unsigned long *address)
{
	Elf *elf;
	GElf_Ehdr ehdr;
	GElf_Shdr shdr;
	int fd, ret = -ENOENT;

	fd = open(exec, O_RDONLY);
	if (fd < 0)
		return -errno;

	elf = elf_begin(fd, PERF_ELF_C_READ_MMAP, NULL);
	if (elf == NULL)
		return -EINVAL;

	if (gelf_getehdr(elf, &ehdr) == NULL)
		goto out;

	if (!elf_section_by_name(elf, &ehdr, &shdr, ".text"))
		goto out;

	*address = shdr.sh_addr - shdr.sh_offset;
	ret = 0;
out:
	elf_end(elf);
	return ret;
}
222
#endif
223

224 225 226 227 228 229 230 231 232 233 234 235 236 237
static int init_user_exec(void)
{
	int ret = 0;

	symbol_conf.try_vmlinux_path = false;
	symbol_conf.sort_by_name = true;
	ret = symbol__init();

	if (ret < 0)
		pr_debug("Failed to init symbol map.\n");

	return ret;
}

238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268
static int convert_exec_to_group(const char *exec, char **result)
{
	char *ptr1, *ptr2, *exec_copy;
	char buf[64];
	int ret;

	exec_copy = strdup(exec);
	if (!exec_copy)
		return -ENOMEM;

	ptr1 = basename(exec_copy);
	if (!ptr1) {
		ret = -EINVAL;
		goto out;
	}

	ptr2 = strpbrk(ptr1, "-._");
	if (ptr2)
		*ptr2 = '\0';
	ret = e_snprintf(buf, 64, "%s_%s", PERFPROBE_GROUP, ptr1);
	if (ret < 0)
		goto out;

	*result = strdup(buf);
	ret = *result ? 0 : -ENOMEM;

out:
	free(exec_copy);
	return ret;
}

269 270 271 272 273 274 275 276 277 278 279 280 281 282
static int convert_to_perf_probe_point(struct probe_trace_point *tp,
					struct perf_probe_point *pp)
{
	pp->function = strdup(tp->symbol);

	if (pp->function == NULL)
		return -ENOMEM;

	pp->offset = tp->offset;
	pp->retprobe = tp->retprobe;

	return 0;
}

283
#ifdef HAVE_DWARF_SUPPORT
284 285
/* Open new debuginfo of given module */
static struct debuginfo *open_debuginfo(const char *module)
286
{
287
	const char *path;
288

289 290 291 292 293 294 295 296 297 298 299
	/* A file path -- this is an offline module */
	if (module && strchr(module, '/'))
		path = module;
	else {
		path = kernel_get_module_path(module);

		if (!path) {
			pr_err("Failed to find path of %s module.\n",
			       module ?: "kernel");
			return NULL;
		}
300
	}
301
	return debuginfo__new(path);
302
}
303

304 305 306 307 308
/*
 * Convert trace point to probe point with debuginfo
 * Currently only handles kprobes.
 */
static int kprobe_convert_to_perf_probe(struct probe_trace_point *tp,
309
					struct perf_probe_point *pp)
310 311
{
	struct symbol *sym;
312 313 314
	struct map *map;
	u64 addr;
	int ret = -ENOENT;
315
	struct debuginfo *dinfo;
316

317
	sym = __find_kernel_function_by_name(tp->symbol, &map);
318
	if (sym) {
319
		addr = map->unmap_ip(map, sym->start + tp->offset);
320
		pr_debug("try to find %s+%ld@%" PRIx64 "\n", tp->symbol,
321
			 tp->offset, addr);
322 323 324 325 326 327 328 329 330 331 332

		dinfo = debuginfo__new_online_kernel(addr);
		if (dinfo) {
			ret = debuginfo__find_probe_point(dinfo,
						 (unsigned long)addr, pp);
			debuginfo__delete(dinfo);
		} else {
			pr_debug("Failed to open debuginfo at 0x%" PRIx64 "\n",
				 addr);
			ret = -ENOENT;
		}
333 334
	}
	if (ret <= 0) {
335 336
		pr_debug("Failed to find corresponding probes from "
			 "debuginfo. Use kprobe event information.\n");
337
		return convert_to_perf_probe_point(tp, pp);
338 339
	}
	pp->retprobe = tp->retprobe;
340 341

	return 0;
342 343
}

344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361
static int add_exec_to_probe_trace_events(struct probe_trace_event *tevs,
					  int ntevs, const char *exec)
{
	int i, ret = 0;
	unsigned long offset, stext = 0;
	char buf[32];

	if (!exec)
		return 0;

	ret = get_text_start_address(exec, &stext);
	if (ret < 0)
		return ret;

	for (i = 0; i < ntevs && ret >= 0; i++) {
		offset = tevs[i].point.address - stext;
		offset += tevs[i].point.offset;
		tevs[i].point.offset = 0;
362
		zfree(&tevs[i].point.symbol);
363 364 365 366 367 368 369 370 371 372 373 374 375 376 377
		ret = e_snprintf(buf, 32, "0x%lx", offset);
		if (ret < 0)
			break;
		tevs[i].point.module = strdup(exec);
		tevs[i].point.symbol = strdup(buf);
		if (!tevs[i].point.symbol || !tevs[i].point.module) {
			ret = -ENOMEM;
			break;
		}
		tevs[i].uprobes = true;
	}

	return ret;
}

378 379 380
static int add_module_to_probe_trace_events(struct probe_trace_event *tevs,
					    int ntevs, const char *module)
{
381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398
	int i, ret = 0;
	char *tmp;

	if (!module)
		return 0;

	tmp = strrchr(module, '/');
	if (tmp) {
		/* This is a module path -- get the module name */
		module = strdup(tmp + 1);
		if (!module)
			return -ENOMEM;
		tmp = strchr(module, '.');
		if (tmp)
			*tmp = '\0';
		tmp = (char *)module;	/* For free() */
	}

399 400
	for (i = 0; i < ntevs; i++) {
		tevs[i].point.module = strdup(module);
401 402 403 404
		if (!tevs[i].point.module) {
			ret = -ENOMEM;
			break;
		}
405
	}
406

407
	free(tmp);
408
	return ret;
409 410
}

411 412 413 414 415 416 417 418
static void clear_probe_trace_events(struct probe_trace_event *tevs, int ntevs)
{
	int i;

	for (i = 0; i < ntevs; i++)
		clear_probe_trace_event(tevs + i);
}

419
/* Try to find perf_probe_event with debuginfo */
420
static int try_to_find_probe_trace_events(struct perf_probe_event *pev,
421
					  struct probe_trace_event **tevs,
422
					  int max_tevs, const char *target)
423 424
{
	bool need_dwarf = perf_probe_event_need_dwarf(pev);
425
	struct debuginfo *dinfo;
426
	int ntevs, ret = 0;
427

428 429
	dinfo = open_debuginfo(target);

430
	if (!dinfo) {
431 432
		if (need_dwarf) {
			pr_warning("Failed to open debuginfo file.\n");
433
			return -ENOENT;
434
		}
435
		pr_debug("Could not open debuginfo. Try to use symbols.\n");
436 437 438
		return 0;
	}

439 440 441 442
	/* Searching trace events corresponding to a probe event */
	ntevs = debuginfo__find_trace_events(dinfo, pev, tevs, max_tevs);

	debuginfo__delete(dinfo);
443

444
	if (ntevs > 0) {	/* Succeeded to find trace events */
445
		pr_debug("find %d probe_trace_events.\n", ntevs);
446 447 448 449 450 451 452 453
		if (target) {
			if (pev->uprobes)
				ret = add_exec_to_probe_trace_events(*tevs,
						 ntevs, target);
			else
				ret = add_module_to_probe_trace_events(*tevs,
						 ntevs, target);
		}
454 455 456 457
		if (ret < 0) {
			clear_probe_trace_events(*tevs, ntevs);
			zfree(tevs);
		}
458
		return ret < 0 ? ret : ntevs;
459
	}
460

461 462 463 464 465 466
	if (ntevs == 0)	{	/* No error but failed to find probe point. */
		pr_warning("Probe point '%s' not found.\n",
			   synthesize_perf_probe_point(&pev->point));
		return -ENOENT;
	}
	/* Error path : ntevs < 0 */
467 468 469 470 471
	pr_debug("An error occurred in debuginfo analysis (%d).\n", ntevs);
	if (ntevs == -EBADF) {
		pr_warning("Warning: No dwarf info found in the vmlinux - "
			"please rebuild kernel with CONFIG_DEBUG_INFO=y.\n");
		if (!need_dwarf) {
M
Masami Hiramatsu 已提交
472
			pr_debug("Trying to use symbols.\n");
473 474
			return 0;
		}
475
	}
476
	return ntevs;
477 478
}

479 480 481 482 483 484
/*
 * Find a src file from a DWARF tag path. Prepend optional source path prefix
 * and chop off leading directories that do not exist. Result is passed back as
 * a newly allocated path on success.
 * Return 0 if file was found and readable, -errno otherwise.
 */
485 486
static int get_real_path(const char *raw_path, const char *comp_dir,
			 char **new_path)
487
{
488 489 490 491 492 493 494 495 496 497 498 499 500
	const char *prefix = symbol_conf.source_prefix;

	if (!prefix) {
		if (raw_path[0] != '/' && comp_dir)
			/* If not an absolute path, try to use comp_dir */
			prefix = comp_dir;
		else {
			if (access(raw_path, R_OK) == 0) {
				*new_path = strdup(raw_path);
				return 0;
			} else
				return -errno;
		}
501 502
	}

503
	*new_path = malloc((strlen(prefix) + strlen(raw_path) + 2));
504 505 506 507
	if (!*new_path)
		return -ENOMEM;

	for (;;) {
508
		sprintf(*new_path, "%s/%s", prefix, raw_path);
509 510 511 512

		if (access(*new_path, R_OK) == 0)
			return 0;

513 514 515 516
		if (!symbol_conf.source_prefix)
			/* In case of searching comp_dir, don't retry */
			return -errno;

517 518 519 520 521 522 523
		switch (errno) {
		case ENAMETOOLONG:
		case ENOENT:
		case EROFS:
		case EFAULT:
			raw_path = strchr(++raw_path, '/');
			if (!raw_path) {
524
				zfree(new_path);
525 526 527 528 529
				return -ENOENT;
			}
			continue;

		default:
530
			zfree(new_path);
531 532 533 534 535
			return -errno;
		}
	}
}

536 537 538
#define LINEBUF_SIZE 256
#define NR_ADDITIONAL_LINES 2

539
static int __show_one_line(FILE *fp, int l, bool skip, bool show_num)
540 541
{
	char buf[LINEBUF_SIZE];
542 543
	const char *color = show_num ? "" : PERF_COLOR_BLUE;
	const char *prefix = NULL;
544

545
	do {
546 547
		if (fgets(buf, LINEBUF_SIZE, fp) == NULL)
			goto error;
548 549 550 551 552
		if (skip)
			continue;
		if (!prefix) {
			prefix = show_num ? "%7d  " : "         ";
			color_fprintf(stdout, color, prefix, l);
553
		}
554 555 556
		color_fprintf(stdout, color, "%s", buf);

	} while (strchr(buf, '\n') == NULL);
557

558
	return 1;
559
error:
560
	if (ferror(fp)) {
561
		pr_warning("File read error: %s\n", strerror(errno));
562 563 564 565
		return -1;
	}
	return 0;
}
566

567 568 569 570 571 572 573 574
static int _show_one_line(FILE *fp, int l, bool skip, bool show_num)
{
	int rv = __show_one_line(fp, l, skip, show_num);
	if (rv == 0) {
		pr_warning("Source file is shorter than expected.\n");
		rv = -1;
	}
	return rv;
575 576
}

577 578 579 580 581
#define show_one_line_with_num(f,l)	_show_one_line(f,l,false,true)
#define show_one_line(f,l)		_show_one_line(f,l,false,false)
#define skip_one_line(f,l)		_show_one_line(f,l,true,false)
#define show_one_line_or_eof(f,l)	__show_one_line(f,l,false,false)

582 583 584 585
/*
 * Show line-range always requires debuginfo to find source file and
 * line number.
 */
586
int show_line_range(struct line_range *lr, const char *module)
587
{
588
	int l = 1;
589
	struct line_node *ln;
590
	struct debuginfo *dinfo;
591
	FILE *fp;
592
	int ret;
593
	char *tmp;
594 595

	/* Search a line range */
596 597 598 599
	ret = init_vmlinux();
	if (ret < 0)
		return ret;

600 601
	dinfo = open_debuginfo(module);
	if (!dinfo) {
602
		pr_warning("Failed to open debuginfo file.\n");
603
		return -ENOENT;
604 605
	}

606 607
	ret = debuginfo__find_line_range(dinfo, lr);
	debuginfo__delete(dinfo);
608 609 610 611 612 613 614
	if (ret == 0) {
		pr_warning("Specified source line is not found.\n");
		return -ENOENT;
	} else if (ret < 0) {
		pr_warning("Debuginfo analysis failed. (%d)\n", ret);
		return ret;
	}
615

616 617
	/* Convert source file path */
	tmp = lr->path;
618
	ret = get_real_path(tmp, lr->comp_dir, &lr->path);
619 620 621 622 623 624
	free(tmp);	/* Free old path */
	if (ret < 0) {
		pr_warning("Failed to find source file. (%d)\n", ret);
		return ret;
	}

625 626 627
	setup_pager();

	if (lr->function)
628
		fprintf(stdout, "<%s@%s:%d>\n", lr->function, lr->path,
629 630
			lr->start - lr->offset);
	else
631
		fprintf(stdout, "<%s:%d>\n", lr->path, lr->start);
632 633

	fp = fopen(lr->path, "r");
634 635 636 637 638
	if (fp == NULL) {
		pr_warning("Failed to open %s: %s\n", lr->path,
			   strerror(errno));
		return -errno;
	}
639
	/* Skip to starting line number */
640
	while (l < lr->start) {
641
		ret = skip_one_line(fp, l++);
642 643 644
		if (ret < 0)
			goto end;
	}
645 646

	list_for_each_entry(ln, &lr->line_list, list) {
647
		for (; ln->line > l; l++) {
648
			ret = show_one_line(fp, l - lr->offset);
649 650 651
			if (ret < 0)
				goto end;
		}
652
		ret = show_one_line_with_num(fp, l++ - lr->offset);
653 654
		if (ret < 0)
			goto end;
655 656 657 658
	}

	if (lr->end == INT_MAX)
		lr->end = l + NR_ADDITIONAL_LINES;
659 660 661
	while (l <= lr->end) {
		ret = show_one_line_or_eof(fp, l++ - lr->offset);
		if (ret <= 0)
662 663
			break;
	}
664
end:
665
	fclose(fp);
666
	return ret;
667 668
}

669 670
static int show_available_vars_at(struct debuginfo *dinfo,
				  struct perf_probe_event *pev,
671 672
				  int max_vls, struct strfilter *_filter,
				  bool externs)
673 674
{
	char *buf;
675
	int ret, i, nvars;
676 677
	struct str_node *node;
	struct variable_list *vls = NULL, *vl;
678
	const char *var;
679 680 681 682 683 684

	buf = synthesize_perf_probe_point(&pev->point);
	if (!buf)
		return -EINVAL;
	pr_debug("Searching variables at %s\n", buf);

685 686
	ret = debuginfo__find_available_vars_at(dinfo, pev, &vls,
						max_vls, externs);
687 688 689 690 691 692 693 694 695 696 697 698 699 700
	if (ret <= 0) {
		pr_err("Failed to find variables at %s (%d)\n", buf, ret);
		goto end;
	}
	/* Some variables are found */
	fprintf(stdout, "Available variables at %s\n", buf);
	for (i = 0; i < ret; i++) {
		vl = &vls[i];
		/*
		 * A probe point might be converted to
		 * several trace points.
		 */
		fprintf(stdout, "\t@<%s+%lu>\n", vl->point.symbol,
			vl->point.offset);
701
		zfree(&vl->point.symbol);
702 703 704 705 706
		nvars = 0;
		if (vl->vars) {
			strlist__for_each(node, vl->vars) {
				var = strchr(node->s, '\t') + 1;
				if (strfilter__compare(_filter, var)) {
707
					fprintf(stdout, "\t\t%s\n", node->s);
708 709 710 711
					nvars++;
				}
			}
			strlist__delete(vl->vars);
712
		}
713 714 715 716 717
		if (nvars == 0)
			fprintf(stdout, "\t\t(No matched variables)\n");
	}
	free(vls);
end:
718 719 720 721 722 723
	free(buf);
	return ret;
}

/* Show available variables on given probe point */
int show_available_vars(struct perf_probe_event *pevs, int npevs,
724 725
			int max_vls, const char *module,
			struct strfilter *_filter, bool externs)
726
{
727 728
	int i, ret = 0;
	struct debuginfo *dinfo;
729 730 731 732 733

	ret = init_vmlinux();
	if (ret < 0)
		return ret;

734 735 736 737 738 739
	dinfo = open_debuginfo(module);
	if (!dinfo) {
		pr_warning("Failed to open debuginfo file.\n");
		return -ENOENT;
	}

740 741
	setup_pager();

742 743
	for (i = 0; i < npevs && ret >= 0; i++)
		ret = show_available_vars_at(dinfo, &pevs[i], max_vls, _filter,
744
					     externs);
745 746

	debuginfo__delete(dinfo);
747 748 749
	return ret;
}

750
#else	/* !HAVE_DWARF_SUPPORT */
751

752
static int kprobe_convert_to_perf_probe(struct probe_trace_point *tp,
753
					struct perf_probe_point *pp)
754
{
755 756 757 758 759 760 761
	struct symbol *sym;

	sym = __find_kernel_function_by_name(tp->symbol, NULL);
	if (!sym) {
		pr_err("Failed to find symbol %s in kernel.\n", tp->symbol);
		return -ENOENT;
	}
762

763
	return convert_to_perf_probe_point(tp, pp);
764 765
}

766
static int try_to_find_probe_trace_events(struct perf_probe_event *pev,
767
				struct probe_trace_event **tevs __maybe_unused,
768 769
				int max_tevs __maybe_unused,
				const char *target __maybe_unused)
770
{
771 772 773 774
	if (perf_probe_event_need_dwarf(pev)) {
		pr_warning("Debuginfo-analysis is not supported.\n");
		return -ENOSYS;
	}
775

776 777 778
	return 0;
}

779 780
int show_line_range(struct line_range *lr __maybe_unused,
		    const char *module __maybe_unused)
781
{
782 783
	pr_warning("Debuginfo-analysis is not supported.\n");
	return -ENOSYS;
784 785
}

786 787 788 789 790
int show_available_vars(struct perf_probe_event *pevs __maybe_unused,
			int npevs __maybe_unused, int max_vls __maybe_unused,
			const char *module __maybe_unused,
			struct strfilter *filter __maybe_unused,
			bool externs __maybe_unused)
791 792 793 794
{
	pr_warning("Debuginfo-analysis is not supported.\n");
	return -ENOSYS;
}
795 796
#endif

797 798 799 800 801 802 803 804 805 806 807 808 809
static int parse_line_num(char **ptr, int *val, const char *what)
{
	const char *start = *ptr;

	errno = 0;
	*val = strtol(*ptr, ptr, 0);
	if (errno || *ptr == start) {
		semantic_error("'%s' is not a valid number.\n", what);
		return -EINVAL;
	}
	return 0;
}

810 811 812 813 814
/*
 * Stuff 'lr' according to the line range described by 'arg'.
 * The line range syntax is described by:
 *
 *         SRC[:SLN[+NUM|-ELN]]
815
 *         FNC[@SRC][:SLN[+NUM|-ELN]]
816
 */
817
int parse_line_range_desc(const char *arg, struct line_range *lr)
818
{
819
	char *range, *file, *name = strdup(arg);
820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853
	int err;

	if (!name)
		return -ENOMEM;

	lr->start = 0;
	lr->end = INT_MAX;

	range = strchr(name, ':');
	if (range) {
		*range++ = '\0';

		err = parse_line_num(&range, &lr->start, "start line");
		if (err)
			goto err;

		if (*range == '+' || *range == '-') {
			const char c = *range++;

			err = parse_line_num(&range, &lr->end, "end line");
			if (err)
				goto err;

			if (c == '+') {
				lr->end += lr->start;
				/*
				 * Adjust the number of lines here.
				 * If the number of lines == 1, the
				 * the end of line should be equal to
				 * the start of line.
				 */
				lr->end--;
			}
		}
854

855
		pr_debug("Line range is %d to %d\n", lr->start, lr->end);
856 857

		err = -EINVAL;
858
		if (lr->start > lr->end) {
859
			semantic_error("Start line must be smaller"
860
				       " than end line.\n");
861
			goto err;
862
		}
863 864 865
		if (*range != '\0') {
			semantic_error("Tailing with invalid str '%s'.\n", range);
			goto err;
866
		}
867
	}
868

869 870 871 872 873 874 875 876 877 878
	file = strchr(name, '@');
	if (file) {
		*file = '\0';
		lr->file = strdup(++file);
		if (lr->file == NULL) {
			err = -ENOMEM;
			goto err;
		}
		lr->function = name;
	} else if (strchr(name, '.'))
879
		lr->file = name;
880
	else
881
		lr->function = name;
882 883

	return 0;
884 885 886
err:
	free(name);
	return err;
887 888
}

889 890 891 892 893 894 895 896 897 898 899 900
/* Check the name is good for event/group */
static bool check_event_name(const char *name)
{
	if (!isalpha(*name) && *name != '_')
		return false;
	while (*++name != '\0') {
		if (!isalpha(*name) && !isdigit(*name) && *name != '_')
			return false;
	}
	return true;
}

901
/* Parse probepoint definition. */
902
static int parse_perf_probe_point(char *arg, struct perf_probe_event *pev)
903
{
904
	struct perf_probe_point *pp = &pev->point;
905 906 907 908
	char *ptr, *tmp;
	char c, nc = 0;
	/*
	 * <Syntax>
909 910
	 * perf probe [EVENT=]SRC[:LN|;PTN]
	 * perf probe [EVENT=]FUNC[@SRC][+OFFS|%return|:LN|;PAT]
911 912
	 *
	 * TODO:Group name support
913 914
	 */

915 916
	ptr = strpbrk(arg, ";=@+%");
	if (ptr && *ptr == '=') {	/* Event name */
917 918
		*ptr = '\0';
		tmp = ptr + 1;
919 920 921 922 923
		if (strchr(arg, ':')) {
			semantic_error("Group name is not supported yet.\n");
			return -ENOTSUP;
		}
		if (!check_event_name(arg)) {
924
			semantic_error("%s is bad for event name -it must "
925 926 927
				       "follow C symbol-naming rule.\n", arg);
			return -EINVAL;
		}
928 929 930
		pev->event = strdup(arg);
		if (pev->event == NULL)
			return -ENOMEM;
931
		pev->group = NULL;
932 933 934
		arg = tmp;
	}

935
	ptr = strpbrk(arg, ";:+@%");
936 937 938 939 940
	if (ptr) {
		nc = *ptr;
		*ptr++ = '\0';
	}

941 942 943 944
	tmp = strdup(arg);
	if (tmp == NULL)
		return -ENOMEM;

945
	/* Check arg is function or file and copy it */
946 947
	if (strchr(tmp, '.'))	/* File */
		pp->file = tmp;
948
	else			/* Function */
949
		pp->function = tmp;
950 951 952 953 954

	/* Parse other options */
	while (ptr) {
		arg = ptr;
		c = nc;
955
		if (c == ';') {	/* Lazy pattern must be the last part */
956 957 958
			pp->lazy_line = strdup(arg);
			if (pp->lazy_line == NULL)
				return -ENOMEM;
959 960 961
			break;
		}
		ptr = strpbrk(arg, ";:+@%");
962 963 964 965 966 967 968
		if (ptr) {
			nc = *ptr;
			*ptr++ = '\0';
		}
		switch (c) {
		case ':':	/* Line number */
			pp->line = strtoul(arg, &tmp, 0);
969
			if (*tmp != '\0') {
970
				semantic_error("There is non-digit char"
971 972 973
					       " in line number.\n");
				return -EINVAL;
			}
974 975 976
			break;
		case '+':	/* Byte offset from a symbol */
			pp->offset = strtoul(arg, &tmp, 0);
977
			if (*tmp != '\0') {
978
				semantic_error("There is non-digit character"
979 980 981
						" in offset.\n");
				return -EINVAL;
			}
982 983
			break;
		case '@':	/* File name */
984 985 986 987
			if (pp->file) {
				semantic_error("SRC@SRC is not allowed.\n");
				return -EINVAL;
			}
988 989 990
			pp->file = strdup(arg);
			if (pp->file == NULL)
				return -ENOMEM;
991 992 993 994
			break;
		case '%':	/* Probe places */
			if (strcmp(arg, "return") == 0) {
				pp->retprobe = 1;
995 996 997 998
			} else {	/* Others not supported yet */
				semantic_error("%%%s is not supported.\n", arg);
				return -ENOTSUP;
			}
999
			break;
1000 1001 1002 1003
		default:	/* Buggy case */
			pr_err("This program has a bug at %s:%d.\n",
				__FILE__, __LINE__);
			return -ENOTSUP;
1004 1005 1006 1007 1008
			break;
		}
	}

	/* Exclusion check */
1009
	if (pp->lazy_line && pp->line) {
M
Masami Hiramatsu 已提交
1010 1011
		semantic_error("Lazy pattern can't be used with"
			       " line number.\n");
1012 1013
		return -EINVAL;
	}
1014

1015
	if (pp->lazy_line && pp->offset) {
M
Masami Hiramatsu 已提交
1016
		semantic_error("Lazy pattern can't be used with offset.\n");
1017 1018
		return -EINVAL;
	}
1019

1020
	if (pp->line && pp->offset) {
M
Masami Hiramatsu 已提交
1021
		semantic_error("Offset can't be used with line number.\n");
1022 1023
		return -EINVAL;
	}
1024

1025
	if (!pp->line && !pp->lazy_line && pp->file && !pp->function) {
1026
		semantic_error("File always requires line number or "
M
Masami Hiramatsu 已提交
1027
			       "lazy pattern.\n");
1028 1029
		return -EINVAL;
	}
1030

1031
	if (pp->offset && !pp->function) {
M
Masami Hiramatsu 已提交
1032
		semantic_error("Offset requires an entry function.\n");
1033 1034
		return -EINVAL;
	}
1035

1036
	if (pp->retprobe && !pp->function) {
M
Masami Hiramatsu 已提交
1037
		semantic_error("Return probe requires an entry function.\n");
1038 1039
		return -EINVAL;
	}
1040

1041
	if ((pp->offset || pp->line || pp->lazy_line) && pp->retprobe) {
1042
		semantic_error("Offset/Line/Lazy pattern can't be used with "
M
Masami Hiramatsu 已提交
1043
			       "return probe.\n");
1044 1045
		return -EINVAL;
	}
1046

1047
	pr_debug("symbol:%s file:%s line:%d offset:%lu return:%d lazy:%s\n",
1048 1049
		 pp->function, pp->file, pp->line, pp->offset, pp->retprobe,
		 pp->lazy_line);
1050
	return 0;
1051 1052
}

1053
/* Parse perf-probe event argument */
1054
static int parse_perf_probe_arg(char *str, struct perf_probe_arg *arg)
1055
{
1056
	char *tmp, *goodname;
1057 1058 1059 1060
	struct perf_probe_arg_field **fieldp;

	pr_debug("parsing arg: %s into ", str);

1061 1062
	tmp = strchr(str, '=');
	if (tmp) {
1063 1064 1065
		arg->name = strndup(str, tmp - str);
		if (arg->name == NULL)
			return -ENOMEM;
1066
		pr_debug("name:%s ", arg->name);
1067 1068 1069
		str = tmp + 1;
	}

1070 1071 1072
	tmp = strchr(str, ':');
	if (tmp) {	/* Type setting */
		*tmp = '\0';
1073 1074 1075
		arg->type = strdup(tmp + 1);
		if (arg->type == NULL)
			return -ENOMEM;
1076 1077 1078
		pr_debug("type:%s ", arg->type);
	}

1079
	tmp = strpbrk(str, "-.[");
1080 1081
	if (!is_c_varname(str) || !tmp) {
		/* A variable, register, symbol or special value */
1082 1083 1084
		arg->var = strdup(str);
		if (arg->var == NULL)
			return -ENOMEM;
1085
		pr_debug("%s\n", arg->var);
1086
		return 0;
1087 1088
	}

1089
	/* Structure fields or array element */
1090 1091 1092
	arg->var = strndup(str, tmp - str);
	if (arg->var == NULL)
		return -ENOMEM;
1093
	goodname = arg->var;
1094
	pr_debug("%s, ", arg->var);
1095 1096 1097
	fieldp = &arg->field;

	do {
1098 1099 1100
		*fieldp = zalloc(sizeof(struct perf_probe_arg_field));
		if (*fieldp == NULL)
			return -ENOMEM;
1101 1102 1103
		if (*tmp == '[') {	/* Array */
			str = tmp;
			(*fieldp)->index = strtol(str + 1, &tmp, 0);
1104
			(*fieldp)->ref = true;
1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125
			if (*tmp != ']' || tmp == str + 1) {
				semantic_error("Array index must be a"
						" number.\n");
				return -EINVAL;
			}
			tmp++;
			if (*tmp == '\0')
				tmp = NULL;
		} else {		/* Structure */
			if (*tmp == '.') {
				str = tmp + 1;
				(*fieldp)->ref = false;
			} else if (tmp[1] == '>') {
				str = tmp + 2;
				(*fieldp)->ref = true;
			} else {
				semantic_error("Argument parse error: %s\n",
					       str);
				return -EINVAL;
			}
			tmp = strpbrk(str, "-.[");
1126
		}
1127
		if (tmp) {
1128 1129 1130
			(*fieldp)->name = strndup(str, tmp - str);
			if ((*fieldp)->name == NULL)
				return -ENOMEM;
1131 1132
			if (*str != '[')
				goodname = (*fieldp)->name;
1133 1134 1135 1136
			pr_debug("%s(%d), ", (*fieldp)->name, (*fieldp)->ref);
			fieldp = &(*fieldp)->next;
		}
	} while (tmp);
1137 1138 1139
	(*fieldp)->name = strdup(str);
	if ((*fieldp)->name == NULL)
		return -ENOMEM;
1140 1141
	if (*str != '[')
		goodname = (*fieldp)->name;
1142
	pr_debug("%s(%d)\n", (*fieldp)->name, (*fieldp)->ref);
1143

1144
	/* If no name is specified, set the last field name (not array index)*/
1145
	if (!arg->name) {
1146
		arg->name = strdup(goodname);
1147 1148 1149
		if (arg->name == NULL)
			return -ENOMEM;
	}
1150
	return 0;
1151 1152
}

1153
/* Parse perf-probe event command */
1154
int parse_perf_probe_command(const char *cmd, struct perf_probe_event *pev)
1155
{
1156
	char **argv;
1157
	int argc, i, ret = 0;
1158

1159
	argv = argv_split(cmd, &argc);
1160 1161 1162 1163 1164 1165 1166 1167 1168
	if (!argv) {
		pr_debug("Failed to split arguments.\n");
		return -ENOMEM;
	}
	if (argc - 1 > MAX_PROBE_ARGS) {
		semantic_error("Too many probe arguments (%d).\n", argc - 1);
		ret = -ERANGE;
		goto out;
	}
1169
	/* Parse probe point */
1170 1171 1172
	ret = parse_perf_probe_point(argv[0], pev);
	if (ret < 0)
		goto out;
1173

1174
	/* Copy arguments and ensure return probe has no C argument */
1175
	pev->nargs = argc - 1;
1176 1177 1178 1179 1180
	pev->args = zalloc(sizeof(struct perf_probe_arg) * pev->nargs);
	if (pev->args == NULL) {
		ret = -ENOMEM;
		goto out;
	}
1181 1182 1183 1184
	for (i = 0; i < pev->nargs && ret >= 0; i++) {
		ret = parse_perf_probe_arg(argv[i + 1], &pev->args[i]);
		if (ret >= 0 &&
		    is_c_varname(pev->args[i].var) && pev->point.retprobe) {
1185
			semantic_error("You can't specify local variable for"
1186 1187 1188
				       " kretprobe.\n");
			ret = -EINVAL;
		}
1189
	}
1190
out:
1191
	argv_free(argv);
1192 1193

	return ret;
1194 1195
}

1196 1197 1198 1199 1200 1201 1202 1203 1204
/* Return true if this perf_probe_event requires debuginfo */
bool perf_probe_event_need_dwarf(struct perf_probe_event *pev)
{
	int i;

	if (pev->point.file || pev->point.line || pev->point.lazy_line)
		return true;

	for (i = 0; i < pev->nargs; i++)
1205
		if (is_c_varname(pev->args[i].var))
1206 1207 1208 1209 1210
			return true;

	return false;
}

1211 1212
/* Parse probe_events event into struct probe_point */
static int parse_probe_trace_command(const char *cmd,
1213
				     struct probe_trace_event *tev)
1214
{
1215
	struct probe_trace_point *tp = &tev->point;
1216 1217
	char pr;
	char *p;
1218
	char *argv0_str = NULL, *fmt, *fmt1_str, *fmt2_str, *fmt3_str;
1219 1220 1221
	int ret, i, argc;
	char **argv;

1222
	pr_debug("Parsing probe_events: %s\n", cmd);
1223
	argv = argv_split(cmd, &argc);
1224 1225 1226 1227 1228 1229 1230 1231 1232
	if (!argv) {
		pr_debug("Failed to split arguments.\n");
		return -ENOMEM;
	}
	if (argc < 2) {
		semantic_error("Too few probe arguments.\n");
		ret = -ERANGE;
		goto out;
	}
1233 1234

	/* Scan event and group name. */
1235 1236 1237 1238 1239 1240 1241 1242 1243 1244
	argv0_str = strdup(argv[0]);
	if (argv0_str == NULL) {
		ret = -ENOMEM;
		goto out;
	}
	fmt1_str = strtok_r(argv0_str, ":", &fmt);
	fmt2_str = strtok_r(NULL, "/", &fmt);
	fmt3_str = strtok_r(NULL, " \t", &fmt);
	if (fmt1_str == NULL || strlen(fmt1_str) != 1 || fmt2_str == NULL
	    || fmt3_str == NULL) {
1245 1246 1247 1248
		semantic_error("Failed to parse event name: %s\n", argv[0]);
		ret = -EINVAL;
		goto out;
	}
1249 1250 1251 1252 1253 1254 1255
	pr = fmt1_str[0];
	tev->group = strdup(fmt2_str);
	tev->event = strdup(fmt3_str);
	if (tev->group == NULL || tev->event == NULL) {
		ret = -ENOMEM;
		goto out;
	}
1256
	pr_debug("Group:%s Event:%s probe:%c\n", tev->group, tev->event, pr);
1257

1258
	tp->retprobe = (pr == 'r');
1259

1260 1261 1262 1263 1264 1265 1266
	/* Scan module name(if there), function name and offset */
	p = strchr(argv[1], ':');
	if (p) {
		tp->module = strndup(argv[1], p - argv[1]);
		p++;
	} else
		p = argv[1];
1267 1268 1269 1270 1271 1272 1273 1274
	fmt1_str = strtok_r(p, "+", &fmt);
	tp->symbol = strdup(fmt1_str);
	if (tp->symbol == NULL) {
		ret = -ENOMEM;
		goto out;
	}
	fmt2_str = strtok_r(NULL, "", &fmt);
	if (fmt2_str == NULL)
1275
		tp->offset = 0;
1276 1277
	else
		tp->offset = strtoul(fmt2_str, NULL, 10);
1278

1279
	tev->nargs = argc - 2;
1280
	tev->args = zalloc(sizeof(struct probe_trace_arg) * tev->nargs);
1281 1282 1283 1284
	if (tev->args == NULL) {
		ret = -ENOMEM;
		goto out;
	}
1285
	for (i = 0; i < tev->nargs; i++) {
1286 1287
		p = strchr(argv[i + 2], '=');
		if (p)	/* We don't need which register is assigned. */
1288 1289 1290
			*p++ = '\0';
		else
			p = argv[i + 2];
1291
		tev->args[i].name = strdup(argv[i + 2]);
1292
		/* TODO: parse regs and offset */
1293 1294 1295 1296 1297
		tev->args[i].value = strdup(p);
		if (tev->args[i].name == NULL || tev->args[i].value == NULL) {
			ret = -ENOMEM;
			goto out;
		}
1298
	}
1299 1300
	ret = 0;
out:
1301
	free(argv0_str);
1302
	argv_free(argv);
1303
	return ret;
1304 1305
}

1306 1307 1308 1309 1310 1311 1312
/* Compose only probe arg */
int synthesize_perf_probe_arg(struct perf_probe_arg *pa, char *buf, size_t len)
{
	struct perf_probe_arg_field *field = pa->field;
	int ret;
	char *tmp = buf;

1313 1314 1315 1316
	if (pa->name && pa->var)
		ret = e_snprintf(tmp, len, "%s=%s", pa->name, pa->var);
	else
		ret = e_snprintf(tmp, len, "%s", pa->name ? pa->name : pa->var);
1317 1318 1319 1320 1321 1322
	if (ret <= 0)
		goto error;
	tmp += ret;
	len -= ret;

	while (field) {
1323 1324 1325 1326 1327
		if (field->name[0] == '[')
			ret = e_snprintf(tmp, len, "%s", field->name);
		else
			ret = e_snprintf(tmp, len, "%s%s",
					 field->ref ? "->" : ".", field->name);
1328 1329 1330 1331 1332 1333
		if (ret <= 0)
			goto error;
		tmp += ret;
		len -= ret;
		field = field->next;
	}
1334 1335 1336 1337 1338 1339 1340 1341 1342

	if (pa->type) {
		ret = e_snprintf(tmp, len, ":%s", pa->type);
		if (ret <= 0)
			goto error;
		tmp += ret;
		len -= ret;
	}

1343 1344
	return tmp - buf;
error:
M
Masami Hiramatsu 已提交
1345
	pr_debug("Failed to synthesize perf probe argument: %s\n",
1346 1347
		 strerror(-ret));
	return ret;
1348 1349
}

1350 1351
/* Compose only probe point (not argument) */
static char *synthesize_perf_probe_point(struct perf_probe_point *pp)
1352
{
1353 1354 1355
	char *buf, *tmp;
	char offs[32] = "", line[32] = "", file[32] = "";
	int ret, len;
1356

1357 1358 1359 1360 1361
	buf = zalloc(MAX_CMDLEN);
	if (buf == NULL) {
		ret = -ENOMEM;
		goto error;
	}
1362
	if (pp->offset) {
1363
		ret = e_snprintf(offs, 32, "+%lu", pp->offset);
1364 1365 1366 1367
		if (ret <= 0)
			goto error;
	}
	if (pp->line) {
1368 1369 1370 1371 1372
		ret = e_snprintf(line, 32, ":%d", pp->line);
		if (ret <= 0)
			goto error;
	}
	if (pp->file) {
1373 1374 1375 1376 1377 1378 1379
		tmp = pp->file;
		len = strlen(tmp);
		if (len > 30) {
			tmp = strchr(pp->file + len - 30, '/');
			tmp = tmp ? tmp + 1 : pp->file + len - 30;
		}
		ret = e_snprintf(file, 32, "@%s", tmp);
1380 1381 1382 1383 1384
		if (ret <= 0)
			goto error;
	}

	if (pp->function)
1385 1386 1387
		ret = e_snprintf(buf, MAX_CMDLEN, "%s%s%s%s%s", pp->function,
				 offs, pp->retprobe ? "%return" : "", line,
				 file);
1388
	else
1389
		ret = e_snprintf(buf, MAX_CMDLEN, "%s%s", file, line);
1390 1391 1392 1393
	if (ret <= 0)
		goto error;

	return buf;
1394
error:
M
Masami Hiramatsu 已提交
1395
	pr_debug("Failed to synthesize perf probe point: %s\n",
1396
		 strerror(-ret));
1397
	free(buf);
1398
	return NULL;
1399 1400
}

1401 1402
#if 0
char *synthesize_perf_probe_command(struct perf_probe_event *pev)
1403 1404 1405 1406
{
	char *buf;
	int i, len, ret;

1407 1408 1409
	buf = synthesize_perf_probe_point(&pev->point);
	if (!buf)
		return NULL;
1410

1411 1412
	len = strlen(buf);
	for (i = 0; i < pev->nargs; i++) {
1413
		ret = e_snprintf(&buf[len], MAX_CMDLEN - len, " %s",
1414 1415 1416 1417 1418
				 pev->args[i].name);
		if (ret <= 0) {
			free(buf);
			return NULL;
		}
1419 1420 1421
		len += ret;
	}

1422 1423 1424 1425
	return buf;
}
#endif

1426
static int __synthesize_probe_trace_arg_ref(struct probe_trace_arg_ref *ref,
1427 1428 1429 1430 1431
					     char **buf, size_t *buflen,
					     int depth)
{
	int ret;
	if (ref->next) {
1432
		depth = __synthesize_probe_trace_arg_ref(ref->next, buf,
1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446
							 buflen, depth + 1);
		if (depth < 0)
			goto out;
	}

	ret = e_snprintf(*buf, *buflen, "%+ld(", ref->offset);
	if (ret < 0)
		depth = ret;
	else {
		*buf += ret;
		*buflen -= ret;
	}
out:
	return depth;
1447 1448 1449

}

1450
static int synthesize_probe_trace_arg(struct probe_trace_arg *arg,
1451
				       char *buf, size_t buflen)
1452
{
1453
	struct probe_trace_arg_ref *ref = arg->ref;
1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466
	int ret, depth = 0;
	char *tmp = buf;

	/* Argument name or separator */
	if (arg->name)
		ret = e_snprintf(buf, buflen, " %s=", arg->name);
	else
		ret = e_snprintf(buf, buflen, " ");
	if (ret < 0)
		return ret;
	buf += ret;
	buflen -= ret;

1467 1468 1469 1470
	/* Special case: @XXX */
	if (arg->value[0] == '@' && arg->ref)
			ref = ref->next;

1471
	/* Dereferencing arguments */
1472
	if (ref) {
1473
		depth = __synthesize_probe_trace_arg_ref(ref, &buf,
1474 1475 1476 1477 1478 1479
							  &buflen, 1);
		if (depth < 0)
			return depth;
	}

	/* Print argument value */
1480 1481 1482 1483 1484
	if (arg->value[0] == '@' && arg->ref)
		ret = e_snprintf(buf, buflen, "%s%+ld", arg->value,
				 arg->ref->offset);
	else
		ret = e_snprintf(buf, buflen, "%s", arg->value);
1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497
	if (ret < 0)
		return ret;
	buf += ret;
	buflen -= ret;

	/* Closing */
	while (depth--) {
		ret = e_snprintf(buf, buflen, ")");
		if (ret < 0)
			return ret;
		buf += ret;
		buflen -= ret;
	}
1498 1499 1500 1501 1502 1503 1504
	/* Print argument type */
	if (arg->type) {
		ret = e_snprintf(buf, buflen, ":%s", arg->type);
		if (ret <= 0)
			return ret;
		buf += ret;
	}
1505 1506 1507 1508

	return buf - tmp;
}

1509
char *synthesize_probe_trace_command(struct probe_trace_event *tev)
1510
{
1511
	struct probe_trace_point *tp = &tev->point;
1512 1513 1514
	char *buf;
	int i, len, ret;

1515 1516 1517 1518
	buf = zalloc(MAX_CMDLEN);
	if (buf == NULL)
		return NULL;

1519 1520 1521 1522 1523 1524 1525 1526 1527 1528 1529 1530
	if (tev->uprobes)
		len = e_snprintf(buf, MAX_CMDLEN, "%c:%s/%s %s:%s",
				 tp->retprobe ? 'r' : 'p',
				 tev->group, tev->event,
				 tp->module, tp->symbol);
	else
		len = e_snprintf(buf, MAX_CMDLEN, "%c:%s/%s %s%s%s+%lu",
				 tp->retprobe ? 'r' : 'p',
				 tev->group, tev->event,
				 tp->module ?: "", tp->module ? ":" : "",
				 tp->symbol, tp->offset);

1531
	if (len <= 0)
1532 1533
		goto error;

1534
	for (i = 0; i < tev->nargs; i++) {
1535
		ret = synthesize_probe_trace_arg(&tev->args[i], buf + len,
1536
						  MAX_CMDLEN - len);
1537
		if (ret <= 0)
1538 1539 1540 1541
			goto error;
		len += ret;
	}

1542
	return buf;
1543
error:
1544 1545 1546
	free(buf);
	return NULL;
}
1547

1548
static int convert_to_perf_probe_event(struct probe_trace_event *tev,
1549
			       struct perf_probe_event *pev, bool is_kprobe)
1550
{
1551
	char buf[64] = "";
1552
	int i, ret;
1553

1554
	/* Convert event/group name */
1555 1556 1557 1558
	pev->event = strdup(tev->event);
	pev->group = strdup(tev->group);
	if (pev->event == NULL || pev->group == NULL)
		return -ENOMEM;
1559

1560
	/* Convert trace_point to probe_point */
1561 1562 1563 1564 1565
	if (is_kprobe)
		ret = kprobe_convert_to_perf_probe(&tev->point, &pev->point);
	else
		ret = convert_to_perf_probe_point(&tev->point, &pev->point);

1566 1567
	if (ret < 0)
		return ret;
1568

1569 1570
	/* Convert trace_arg to probe_arg */
	pev->nargs = tev->nargs;
1571 1572 1573
	pev->args = zalloc(sizeof(struct perf_probe_arg) * pev->nargs);
	if (pev->args == NULL)
		return -ENOMEM;
1574
	for (i = 0; i < tev->nargs && ret >= 0; i++) {
1575
		if (tev->args[i].name)
1576
			pev->args[i].name = strdup(tev->args[i].name);
1577
		else {
1578
			ret = synthesize_probe_trace_arg(&tev->args[i],
1579
							  buf, 64);
1580
			pev->args[i].name = strdup(buf);
1581
		}
1582 1583 1584
		if (pev->args[i].name == NULL && ret >= 0)
			ret = -ENOMEM;
	}
1585 1586 1587 1588 1589

	if (ret < 0)
		clear_perf_probe_event(pev);

	return ret;
1590 1591 1592 1593 1594
}

void clear_perf_probe_event(struct perf_probe_event *pev)
{
	struct perf_probe_point *pp = &pev->point;
1595
	struct perf_probe_arg_field *field, *next;
1596 1597
	int i;

1598 1599 1600 1601 1602 1603
	free(pev->event);
	free(pev->group);
	free(pp->file);
	free(pp->function);
	free(pp->lazy_line);

1604
	for (i = 0; i < pev->nargs; i++) {
1605 1606 1607
		free(pev->args[i].name);
		free(pev->args[i].var);
		free(pev->args[i].type);
1608 1609 1610
		field = pev->args[i].field;
		while (field) {
			next = field->next;
1611
			zfree(&field->name);
1612 1613 1614 1615
			free(field);
			field = next;
		}
	}
1616
	free(pev->args);
1617 1618 1619
	memset(pev, 0, sizeof(*pev));
}

1620
static void clear_probe_trace_event(struct probe_trace_event *tev)
1621
{
1622
	struct probe_trace_arg_ref *ref, *next;
1623 1624
	int i;

1625 1626 1627 1628
	free(tev->event);
	free(tev->group);
	free(tev->point.symbol);
	free(tev->point.module);
1629
	for (i = 0; i < tev->nargs; i++) {
1630 1631 1632
		free(tev->args[i].name);
		free(tev->args[i].value);
		free(tev->args[i].type);
1633 1634 1635 1636 1637 1638 1639
		ref = tev->args[i].ref;
		while (ref) {
			next = ref->next;
			free(ref);
			ref = next;
		}
	}
1640
	free(tev->args);
1641
	memset(tev, 0, sizeof(*tev));
1642 1643
}

1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663
static void print_warn_msg(const char *file, bool is_kprobe)
{

	if (errno == ENOENT) {
		const char *config;

		if (!is_kprobe)
			config = "CONFIG_UPROBE_EVENTS";
		else
			config = "CONFIG_KPROBE_EVENTS";

		pr_warning("%s file does not exist - please rebuild kernel"
				" with %s.\n", file, config);
	} else
		pr_warning("Failed to open %s file: %s\n", file,
				strerror(errno));
}

static int open_probe_events(const char *trace_file, bool readwrite,
				bool is_kprobe)
1664 1665
{
	char buf[PATH_MAX];
1666
	const char *__debugfs;
1667 1668
	int ret;

1669 1670 1671 1672 1673 1674
	__debugfs = debugfs_find_mountpoint();
	if (__debugfs == NULL) {
		pr_warning("Debugfs is not mounted.\n");
		return -ENOENT;
	}

1675
	ret = e_snprintf(buf, PATH_MAX, "%s/%s", __debugfs, trace_file);
1676
	if (ret >= 0) {
1677
		pr_debug("Opening %s write=%d\n", buf, readwrite);
1678 1679 1680 1681
		if (readwrite && !probe_event_dry_run)
			ret = open(buf, O_RDWR, O_APPEND);
		else
			ret = open(buf, O_RDONLY, 0);
1682

1683 1684
		if (ret < 0)
			print_warn_msg(buf, is_kprobe);
1685 1686 1687 1688
	}
	return ret;
}

1689 1690 1691 1692 1693 1694 1695 1696 1697 1698 1699
static int open_kprobe_events(bool readwrite)
{
	return open_probe_events("tracing/kprobe_events", readwrite, true);
}

static int open_uprobe_events(bool readwrite)
{
	return open_probe_events("tracing/uprobe_events", readwrite, false);
}

/* Get raw string list of current kprobe_events  or uprobe_events */
1700
static struct strlist *get_probe_trace_command_rawlist(int fd)
1701 1702 1703 1704 1705 1706 1707 1708 1709 1710 1711 1712 1713 1714 1715 1716 1717 1718 1719
{
	int ret, idx;
	FILE *fp;
	char buf[MAX_CMDLEN];
	char *p;
	struct strlist *sl;

	sl = strlist__new(true, NULL);

	fp = fdopen(dup(fd), "r");
	while (!feof(fp)) {
		p = fgets(buf, MAX_CMDLEN, fp);
		if (!p)
			break;

		idx = strlen(p) - 1;
		if (p[idx] == '\n')
			p[idx] = '\0';
		ret = strlist__add(sl, buf);
1720 1721 1722 1723 1724
		if (ret < 0) {
			pr_debug("strlist__add failed: %s\n", strerror(-ret));
			strlist__delete(sl);
			return NULL;
		}
1725 1726 1727 1728 1729 1730
	}
	fclose(fp);

	return sl;
}

1731
/* Show an event */
1732
static int show_perf_probe_event(struct perf_probe_event *pev)
1733
{
1734
	int i, ret;
1735
	char buf[128];
1736
	char *place;
1737

1738 1739
	/* Synthesize only event probe point */
	place = synthesize_perf_probe_point(&pev->point);
1740 1741
	if (!place)
		return -EINVAL;
1742 1743

	ret = e_snprintf(buf, 128, "%s:%s", pev->group, pev->event);
1744
	if (ret < 0)
1745 1746
		return ret;

1747
	printf("  %-20s (on %s", buf, place);
1748

1749
	if (pev->nargs > 0) {
1750
		printf(" with");
1751
		for (i = 0; i < pev->nargs; i++) {
1752 1753 1754 1755
			ret = synthesize_perf_probe_arg(&pev->args[i],
							buf, 128);
			if (ret < 0)
				break;
1756 1757
			printf(" %s", buf);
		}
1758 1759
	}
	printf(")\n");
1760
	free(place);
1761
	return ret;
1762 1763
}

1764
static int __show_perf_probe_events(int fd, bool is_kprobe)
1765
{
1766
	int ret = 0;
1767
	struct probe_trace_event tev;
1768
	struct perf_probe_event pev;
1769 1770 1771
	struct strlist *rawlist;
	struct str_node *ent;

1772 1773
	memset(&tev, 0, sizeof(tev));
	memset(&pev, 0, sizeof(pev));
1774

1775
	rawlist = get_probe_trace_command_rawlist(fd);
1776 1777
	if (!rawlist)
		return -ENOENT;
1778

1779
	strlist__for_each(ent, rawlist) {
1780
		ret = parse_probe_trace_command(ent->s, &tev);
1781
		if (ret >= 0) {
1782 1783
			ret = convert_to_perf_probe_event(&tev, &pev,
								is_kprobe);
1784 1785 1786
			if (ret >= 0)
				ret = show_perf_probe_event(&pev);
		}
1787
		clear_perf_probe_event(&pev);
1788
		clear_probe_trace_event(&tev);
1789 1790
		if (ret < 0)
			break;
1791 1792
	}
	strlist__delete(rawlist);
1793 1794

	return ret;
1795 1796
}

1797 1798 1799 1800 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 1823
/* List up current perf-probe events */
int show_perf_probe_events(void)
{
	int fd, ret;

	setup_pager();
	fd = open_kprobe_events(false);

	if (fd < 0)
		return fd;

	ret = init_vmlinux();
	if (ret < 0)
		return ret;

	ret = __show_perf_probe_events(fd, true);
	close(fd);

	fd = open_uprobe_events(false);
	if (fd >= 0) {
		ret = __show_perf_probe_events(fd, false);
		close(fd);
	}

	return ret;
}

1824
/* Get current perf-probe event names */
1825
static struct strlist *get_probe_trace_event_names(int fd, bool include_group)
1826
{
1827
	char buf[128];
1828 1829
	struct strlist *sl, *rawlist;
	struct str_node *ent;
1830
	struct probe_trace_event tev;
1831
	int ret = 0;
1832

1833
	memset(&tev, 0, sizeof(tev));
1834
	rawlist = get_probe_trace_command_rawlist(fd);
1835
	sl = strlist__new(true, NULL);
1836
	strlist__for_each(ent, rawlist) {
1837
		ret = parse_probe_trace_command(ent->s, &tev);
1838 1839
		if (ret < 0)
			break;
1840
		if (include_group) {
1841 1842 1843 1844
			ret = e_snprintf(buf, 128, "%s:%s", tev.group,
					tev.event);
			if (ret >= 0)
				ret = strlist__add(sl, buf);
1845
		} else
1846
			ret = strlist__add(sl, tev.event);
1847
		clear_probe_trace_event(&tev);
1848 1849
		if (ret < 0)
			break;
1850 1851 1852
	}
	strlist__delete(rawlist);

1853 1854 1855 1856
	if (ret < 0) {
		strlist__delete(sl);
		return NULL;
	}
1857 1858 1859
	return sl;
}

1860
static int write_probe_trace_event(int fd, struct probe_trace_event *tev)
1861
{
1862
	int ret = 0;
1863
	char *buf = synthesize_probe_trace_command(tev);
1864

1865
	if (!buf) {
1866
		pr_debug("Failed to synthesize probe trace event.\n");
1867 1868 1869
		return -EINVAL;
	}

1870
	pr_debug("Writing event: %s\n", buf);
1871 1872 1873
	if (!probe_event_dry_run) {
		ret = write(fd, buf, strlen(buf));
		if (ret <= 0)
1874 1875
			pr_warning("Failed to write event: %s\n",
				   strerror(errno));
1876
	}
1877
	free(buf);
1878
	return ret;
1879 1880
}

1881 1882
static int get_new_event_name(char *buf, size_t len, const char *base,
			      struct strlist *namelist, bool allow_suffix)
1883 1884
{
	int i, ret;
1885 1886 1887

	/* Try no suffix */
	ret = e_snprintf(buf, len, "%s", base);
1888 1889 1890 1891
	if (ret < 0) {
		pr_debug("snprintf() failed: %s\n", strerror(-ret));
		return ret;
	}
1892
	if (!strlist__has_entry(namelist, buf))
1893
		return 0;
1894

1895 1896 1897
	if (!allow_suffix) {
		pr_warning("Error: event \"%s\" already exists. "
			   "(Use -f to force duplicates.)\n", base);
1898
		return -EEXIST;
1899 1900
	}

1901 1902
	/* Try to add suffix */
	for (i = 1; i < MAX_EVENT_INDEX; i++) {
1903
		ret = e_snprintf(buf, len, "%s_%d", base, i);
1904 1905 1906 1907
		if (ret < 0) {
			pr_debug("snprintf() failed: %s\n", strerror(-ret));
			return ret;
		}
1908 1909 1910
		if (!strlist__has_entry(namelist, buf))
			break;
	}
1911 1912 1913 1914 1915 1916
	if (i == MAX_EVENT_INDEX) {
		pr_warning("Too many events are on the same function.\n");
		ret = -ERANGE;
	}

	return ret;
1917 1918
}

1919 1920
static int __add_probe_trace_events(struct perf_probe_event *pev,
				     struct probe_trace_event *tevs,
1921
				     int ntevs, bool allow_suffix)
1922
{
1923
	int i, fd, ret;
1924
	struct probe_trace_event *tev = NULL;
1925 1926
	char buf[64];
	const char *event, *group;
1927
	struct strlist *namelist;
1928

1929 1930 1931 1932 1933
	if (pev->uprobes)
		fd = open_uprobe_events(true);
	else
		fd = open_kprobe_events(true);

1934 1935
	if (fd < 0)
		return fd;
1936
	/* Get current event names */
1937
	namelist = get_probe_trace_event_names(fd, false);
1938 1939 1940 1941
	if (!namelist) {
		pr_debug("Failed to get current event list.\n");
		return -EIO;
	}
1942

1943
	ret = 0;
S
Srikar Dronamraju 已提交
1944
	printf("Added new event%s\n", (ntevs > 1) ? "s:" : ":");
1945
	for (i = 0; i < ntevs; i++) {
1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957 1958 1959
		tev = &tevs[i];
		if (pev->event)
			event = pev->event;
		else
			if (pev->point.function)
				event = pev->point.function;
			else
				event = tev->point.symbol;
		if (pev->group)
			group = pev->group;
		else
			group = PERFPROBE_GROUP;

		/* Get an unused new event name */
1960 1961 1962 1963
		ret = get_new_event_name(buf, 64, event,
					 namelist, allow_suffix);
		if (ret < 0)
			break;
1964 1965
		event = buf;

1966 1967 1968 1969 1970 1971
		tev->event = strdup(event);
		tev->group = strdup(group);
		if (tev->event == NULL || tev->group == NULL) {
			ret = -ENOMEM;
			break;
		}
1972
		ret = write_probe_trace_event(fd, tev);
1973 1974
		if (ret < 0)
			break;
1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994
		/* Add added event name to namelist */
		strlist__add(namelist, event);

		/* Trick here - save current event/group */
		event = pev->event;
		group = pev->group;
		pev->event = tev->event;
		pev->group = tev->group;
		show_perf_probe_event(pev);
		/* Trick here - restore current event/group */
		pev->event = (char *)event;
		pev->group = (char *)group;

		/*
		 * Probes after the first probe which comes from same
		 * user input are always allowed to add suffix, because
		 * there might be several addresses corresponding to
		 * one code line.
		 */
		allow_suffix = true;
1995
	}
1996 1997 1998

	if (ret >= 0) {
		/* Show how to use the event. */
S
Srikar Dronamraju 已提交
1999
		printf("\nYou can now use it in all perf tools, such as:\n\n");
2000 2001 2002
		printf("\tperf record -e %s:%s -aR sleep 1\n\n", tev->group,
			 tev->event);
	}
2003

2004
	strlist__delete(namelist);
2005
	close(fd);
2006
	return ret;
2007
}
2008

2009 2010
static int convert_to_probe_trace_events(struct perf_probe_event *pev,
					  struct probe_trace_event **tevs,
2011
					  int max_tevs, const char *target)
2012 2013
{
	struct symbol *sym;
2014
	int ret, i;
2015
	struct probe_trace_event *tev;
2016

2017 2018 2019 2020 2021 2022 2023 2024 2025
	if (pev->uprobes && !pev->group) {
		/* Replace group name if not given */
		ret = convert_exec_to_group(target, &pev->group);
		if (ret != 0) {
			pr_warning("Failed to make a group name.\n");
			return ret;
		}
	}

2026
	/* Convert perf_probe_event with debuginfo */
2027
	ret = try_to_find_probe_trace_events(pev, tevs, max_tevs, target);
2028
	if (ret != 0)
2029
		return ret;	/* Found in debuginfo or got an error */
2030

2031 2032 2033 2034 2035 2036
	if (pev->uprobes) {
		ret = convert_name_to_addr(pev, target);
		if (ret < 0)
			return ret;
	}

2037
	/* Allocate trace event buffer */
2038
	tev = *tevs = zalloc(sizeof(struct probe_trace_event));
2039 2040
	if (tev == NULL)
		return -ENOMEM;
2041 2042

	/* Copy parameters */
2043 2044 2045 2046 2047
	tev->point.symbol = strdup(pev->point.function);
	if (tev->point.symbol == NULL) {
		ret = -ENOMEM;
		goto error;
	}
2048

2049 2050
	if (target) {
		tev->point.module = strdup(target);
2051 2052 2053 2054
		if (tev->point.module == NULL) {
			ret = -ENOMEM;
			goto error;
		}
2055
	}
2056

2057
	tev->point.offset = pev->point.offset;
2058
	tev->point.retprobe = pev->point.retprobe;
2059
	tev->nargs = pev->nargs;
2060 2061
	tev->uprobes = pev->uprobes;

2062
	if (tev->nargs) {
2063
		tev->args = zalloc(sizeof(struct probe_trace_arg)
2064 2065
				   * tev->nargs);
		if (tev->args == NULL) {
2066 2067
			ret = -ENOMEM;
			goto error;
2068
		}
2069
		for (i = 0; i < tev->nargs; i++) {
2070 2071 2072 2073 2074 2075 2076 2077 2078 2079 2080 2081 2082 2083 2084 2085 2086 2087 2088
			if (pev->args[i].name) {
				tev->args[i].name = strdup(pev->args[i].name);
				if (tev->args[i].name == NULL) {
					ret = -ENOMEM;
					goto error;
				}
			}
			tev->args[i].value = strdup(pev->args[i].var);
			if (tev->args[i].value == NULL) {
				ret = -ENOMEM;
				goto error;
			}
			if (pev->args[i].type) {
				tev->args[i].type = strdup(pev->args[i].type);
				if (tev->args[i].type == NULL) {
					ret = -ENOMEM;
					goto error;
				}
			}
2089
		}
2090 2091
	}

2092 2093 2094
	if (pev->uprobes)
		return 1;

2095
	/* Currently just checking function name from symbol map */
2096
	sym = __find_kernel_function_by_name(tev->point.symbol, NULL);
2097 2098 2099
	if (!sym) {
		pr_warning("Kernel symbol \'%s\' not found.\n",
			   tev->point.symbol);
2100 2101
		ret = -ENOENT;
		goto error;
2102 2103 2104 2105 2106 2107
	} else if (tev->point.offset > sym->end - sym->start) {
		pr_warning("Offset specified is greater than size of %s\n",
			   tev->point.symbol);
		ret = -ENOENT;
		goto error;

2108
	}
2109

2110 2111
	return 1;
error:
2112
	clear_probe_trace_event(tev);
2113 2114
	free(tev);
	*tevs = NULL;
2115
	return ret;
2116 2117 2118 2119
}

struct __event_package {
	struct perf_probe_event		*pev;
2120
	struct probe_trace_event	*tevs;
2121 2122 2123
	int				ntevs;
};

2124
int add_perf_probe_events(struct perf_probe_event *pevs, int npevs,
2125
			  int max_tevs, const char *target, bool force_add)
2126
{
2127
	int i, j, ret;
2128 2129
	struct __event_package *pkgs;

2130
	ret = 0;
2131
	pkgs = zalloc(sizeof(struct __event_package) * npevs);
2132

2133 2134
	if (pkgs == NULL)
		return -ENOMEM;
2135

2136 2137 2138 2139 2140 2141
	if (!pevs->uprobes)
		/* Init vmlinux path */
		ret = init_vmlinux();
	else
		ret = init_user_exec();

2142 2143
	if (ret < 0) {
		free(pkgs);
2144
		return ret;
2145
	}
2146 2147 2148 2149 2150

	/* Loop 1: convert all events */
	for (i = 0; i < npevs; i++) {
		pkgs[i].pev = &pevs[i];
		/* Convert with or without debuginfo */
2151
		ret  = convert_to_probe_trace_events(pkgs[i].pev,
2152 2153
						     &pkgs[i].tevs,
						     max_tevs,
2154
						     target);
2155 2156 2157
		if (ret < 0)
			goto end;
		pkgs[i].ntevs = ret;
2158 2159
	}

2160
	/* Loop 2: add all events */
2161
	for (i = 0; i < npevs; i++) {
2162
		ret = __add_probe_trace_events(pkgs[i].pev, pkgs[i].tevs,
2163
						pkgs[i].ntevs, force_add);
2164 2165 2166
		if (ret < 0)
			break;
	}
2167
end:
2168 2169
	/* Loop 3: cleanup and free trace events  */
	for (i = 0; i < npevs; i++) {
2170
		for (j = 0; j < pkgs[i].ntevs; j++)
2171
			clear_probe_trace_event(&pkgs[i].tevs[j]);
2172
		zfree(&pkgs[i].tevs);
2173 2174
	}
	free(pkgs);
2175 2176

	return ret;
2177 2178
}

2179
static int __del_trace_probe_event(int fd, struct str_node *ent)
2180 2181 2182
{
	char *p;
	char buf[128];
2183
	int ret;
2184

2185
	/* Convert from perf-probe event to trace-probe event */
2186 2187 2188 2189
	ret = e_snprintf(buf, 128, "-:%s", ent->s);
	if (ret < 0)
		goto error;

2190
	p = strchr(buf + 2, ':');
2191 2192 2193 2194 2195 2196
	if (!p) {
		pr_debug("Internal error: %s should have ':' but not.\n",
			 ent->s);
		ret = -ENOTSUP;
		goto error;
	}
2197 2198
	*p = '/';

2199 2200
	pr_debug("Writing event: %s\n", buf);
	ret = write(fd, buf, strlen(buf));
2201 2202
	if (ret < 0) {
		ret = -errno;
2203
		goto error;
2204
	}
2205

S
Srikar Dronamraju 已提交
2206
	printf("Removed event: %s\n", ent->s);
2207 2208 2209 2210
	return 0;
error:
	pr_warning("Failed to delete event: %s\n", strerror(-ret));
	return ret;
2211 2212
}

2213 2214
static int del_trace_probe_event(int fd, const char *buf,
						  struct strlist *namelist)
2215
{
2216
	struct str_node *ent, *n;
2217
	int ret = -1;
2218

2219 2220 2221
	if (strpbrk(buf, "*?")) { /* Glob-exp */
		strlist__for_each_safe(ent, n, namelist)
			if (strglobmatch(ent->s, buf)) {
2222
				ret = __del_trace_probe_event(fd, ent);
2223 2224
				if (ret < 0)
					break;
2225 2226 2227 2228 2229
				strlist__remove(namelist, ent);
			}
	} else {
		ent = strlist__find(namelist, buf);
		if (ent) {
2230
			ret = __del_trace_probe_event(fd, ent);
2231 2232
			if (ret >= 0)
				strlist__remove(namelist, ent);
2233 2234
		}
	}
2235 2236

	return ret;
2237 2238
}

2239
int del_perf_probe_events(struct strlist *dellist)
2240
{
2241 2242
	int ret = -1, ufd = -1, kfd = -1;
	char buf[128];
2243 2244 2245
	const char *group, *event;
	char *p, *str;
	struct str_node *ent;
2246
	struct strlist *namelist = NULL, *unamelist = NULL;
2247

2248
	/* Get current event names */
2249 2250 2251 2252 2253 2254 2255 2256 2257 2258 2259 2260
	kfd = open_kprobe_events(true);
	if (kfd < 0)
		return kfd;

	namelist = get_probe_trace_event_names(kfd, true);
	ufd = open_uprobe_events(true);

	if (ufd >= 0)
		unamelist = get_probe_trace_event_names(ufd, true);

	if (namelist == NULL && unamelist == NULL)
		goto error;
2261

2262
	strlist__for_each(ent, dellist) {
2263 2264 2265
		str = strdup(ent->s);
		if (str == NULL) {
			ret = -ENOMEM;
2266
			goto error;
2267
		}
2268
		pr_debug("Parsing: %s\n", str);
2269 2270 2271 2272 2273 2274
		p = strchr(str, ':');
		if (p) {
			group = str;
			*p = '\0';
			event = p + 1;
		} else {
2275
			group = "*";
2276 2277
			event = str;
		}
2278 2279 2280 2281 2282 2283 2284 2285

		ret = e_snprintf(buf, 128, "%s:%s", group, event);
		if (ret < 0) {
			pr_err("Failed to copy event.");
			free(str);
			goto error;
		}

2286
		pr_debug("Group: %s, Event: %s\n", group, event);
2287 2288 2289 2290 2291 2292 2293 2294 2295 2296

		if (namelist)
			ret = del_trace_probe_event(kfd, buf, namelist);

		if (unamelist && ret != 0)
			ret = del_trace_probe_event(ufd, buf, unamelist);

		if (ret != 0)
			pr_info("Info: Event \"%s\" does not exist.\n", buf);

2297 2298
		free(str);
	}
2299 2300 2301

error:
	if (kfd >= 0) {
2302
		strlist__delete(namelist);
2303 2304 2305 2306
		close(kfd);
	}

	if (ufd >= 0) {
2307
		strlist__delete(unamelist);
2308 2309
		close(ufd);
	}
2310 2311

	return ret;
2312
}
2313

2314 2315
/* TODO: don't use a global variable for filter ... */
static struct strfilter *available_func_filter;
2316

2317
/*
2318 2319
 * If a symbol corresponds to a function with global binding and
 * matches filter return 0. For all others return 1.
2320
 */
2321
static int filter_available_functions(struct map *map __maybe_unused,
2322
				      struct symbol *sym)
2323
{
2324 2325 2326 2327
	if (sym->binding == STB_GLOBAL &&
	    strfilter__compare(available_func_filter, sym->name))
		return 0;
	return 1;
2328 2329
}

2330 2331 2332 2333 2334 2335 2336 2337 2338 2339 2340 2341 2342 2343
static int __show_available_funcs(struct map *map)
{
	if (map__load(map, filter_available_functions)) {
		pr_err("Failed to load map.\n");
		return -EINVAL;
	}
	if (!dso__sorted_by_name(map->dso, map->type))
		dso__sort_by_name(map->dso, map->type);

	dso__fprintf_symbols_by_name(map->dso, map->type, stdout);
	return 0;
}

static int available_kernel_funcs(const char *module)
2344 2345 2346 2347 2348 2349 2350 2351
{
	struct map *map;
	int ret;

	ret = init_vmlinux();
	if (ret < 0)
		return ret;

2352
	map = kernel_get_module_map(module);
2353
	if (!map) {
2354
		pr_err("Failed to find %s map.\n", (module) ? : "kernel");
2355 2356
		return -EINVAL;
	}
2357 2358 2359 2360 2361 2362 2363 2364 2365 2366 2367 2368 2369 2370 2371 2372 2373 2374 2375 2376 2377 2378 2379
	return __show_available_funcs(map);
}

static int available_user_funcs(const char *target)
{
	struct map *map;
	int ret;

	ret = init_user_exec();
	if (ret < 0)
		return ret;

	map = dso__new_map(target);
	ret = __show_available_funcs(map);
	dso__delete(map->dso);
	map__delete(map);
	return ret;
}

int show_available_funcs(const char *target, struct strfilter *_filter,
					bool user)
{
	setup_pager();
2380
	available_func_filter = _filter;
2381 2382 2383 2384 2385 2386 2387 2388 2389 2390 2391 2392 2393 2394 2395 2396

	if (!user)
		return available_kernel_funcs(target);

	return available_user_funcs(target);
}

/*
 * uprobe_events only accepts address:
 * Convert function and any offset to address
 */
static int convert_name_to_addr(struct perf_probe_event *pev, const char *exec)
{
	struct perf_probe_point *pp = &pev->point;
	struct symbol *sym;
	struct map *map = NULL;
2397
	char *function = NULL;
2398 2399 2400 2401 2402 2403 2404 2405 2406 2407 2408 2409 2410 2411 2412
	int ret = -EINVAL;
	unsigned long long vaddr = 0;

	if (!pp->function) {
		pr_warning("No function specified for uprobes");
		goto out;
	}

	function = strdup(pp->function);
	if (!function) {
		pr_warning("Failed to allocate memory by strdup.\n");
		ret = -ENOMEM;
		goto out;
	}

2413
	map = dso__new_map(exec);
2414 2415 2416 2417 2418
	if (!map) {
		pr_warning("Cannot find appropriate DSO for %s.\n", exec);
		goto out;
	}
	available_func_filter = strfilter__new(function, NULL);
2419
	if (map__load(map, filter_available_functions)) {
2420
		pr_err("Failed to load map.\n");
2421
		goto out;
2422 2423
	}

2424 2425 2426 2427 2428 2429 2430 2431 2432 2433 2434 2435 2436 2437 2438 2439
	sym = map__find_symbol_by_name(map, function, NULL);
	if (!sym) {
		pr_warning("Cannot find %s in DSO %s\n", function, exec);
		goto out;
	}

	if (map->start > sym->start)
		vaddr = map->start;
	vaddr += sym->start + pp->offset + map->pgoff;
	pp->offset = 0;

	if (!pev->event) {
		pev->event = function;
		function = NULL;
	}
	if (!pev->group) {
2440
		char *ptr1, *ptr2, *exec_copy;
2441 2442

		pev->group = zalloc(sizeof(char *) * 64);
2443 2444 2445 2446 2447 2448 2449 2450
		exec_copy = strdup(exec);
		if (!exec_copy) {
			ret = -ENOMEM;
			pr_warning("Failed to copy exec string.\n");
			goto out;
		}

		ptr1 = strdup(basename(exec_copy));
2451 2452 2453 2454 2455 2456 2457 2458
		if (ptr1) {
			ptr2 = strpbrk(ptr1, "-._");
			if (ptr2)
				*ptr2 = '\0';
			e_snprintf(pev->group, 64, "%s_%s", PERFPROBE_GROUP,
					ptr1);
			free(ptr1);
		}
2459
		free(exec_copy);
2460 2461 2462 2463 2464 2465 2466 2467 2468 2469 2470 2471 2472 2473 2474 2475 2476 2477 2478
	}
	free(pp->function);
	pp->function = zalloc(sizeof(char *) * MAX_PROBE_ARGS);
	if (!pp->function) {
		ret = -ENOMEM;
		pr_warning("Failed to allocate memory by zalloc.\n");
		goto out;
	}
	e_snprintf(pp->function, MAX_PROBE_ARGS, "0x%llx", vaddr);
	ret = 0;

out:
	if (map) {
		dso__delete(map->dso);
		map__delete(map);
	}
	if (function)
		free(function);
	return ret;
2479
}