Fix memory leak in lttng cli
[lttng-tools.git] / src / bin / lttng / commands / list.c
CommitLineData
f3ed775e
DG
1/*
2 * Copyright (C) 2011 - David Goulet <david.goulet@polymtl.ca>
3 *
4 * This program is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU General Public License
82a3637f
DG
6 * as published by the Free Software Foundation; only version 2
7 * of the License.
f3ed775e
DG
8 *
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
13 *
14 * You should have received a copy of the GNU General Public License
15 * along with this program; if not, write to the Free Software
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
17 */
18
19#define _GNU_SOURCE
9f19cc17 20#include <inttypes.h>
f3ed775e
DG
21#include <popt.h>
22#include <stdio.h>
23#include <stdlib.h>
24#include <string.h>
7a3d1328 25#include <assert.h>
f3ed775e 26
c399183f 27#include "../command.h"
f3ed775e 28
9f19cc17
DG
29static int opt_userspace;
30static int opt_kernel;
31static char *opt_channel;
32static int opt_domain;
d78d6610
DG
33#if 0
34/* Not implemented yet */
35static char *opt_cmd_name;
36static pid_t opt_pid;
37#endif
9f19cc17
DG
38
39const char *indent4 = " ";
40const char *indent6 = " ";
41const char *indent8 = " ";
f3ed775e
DG
42
43enum {
44 OPT_HELP = 1,
eeac7d46 45 OPT_USERSPACE,
679b4943 46 OPT_LIST_OPTIONS,
f3ed775e
DG
47};
48
cd80958d
DG
49static struct lttng_handle *handle;
50
f3ed775e
DG
51static struct poptOption long_options[] = {
52 /* longName, shortName, argInfo, argPtr, value, descrip, argDesc */
53 {"help", 'h', POPT_ARG_NONE, 0, OPT_HELP, 0, 0},
9f19cc17 54 {"kernel", 'k', POPT_ARG_VAL, &opt_kernel, 1, 0, 0},
d78d6610
DG
55#if 0
56 /* Not implemented yet */
57 {"userspace", 'u', POPT_ARG_STRING | POPT_ARGFLAG_OPTIONAL, &opt_cmd_name, OPT_USERSPACE, 0, 0},
58 {"pid", 'p', POPT_ARG_INT, &opt_pid, 0, 0, 0},
59#else
60 {"userspace", 'u', POPT_ARG_NONE, 0, OPT_USERSPACE, 0, 0},
61#endif
9f19cc17
DG
62 {"channel", 'c', POPT_ARG_STRING, &opt_channel, 0, 0, 0},
63 {"domain", 'd', POPT_ARG_VAL, &opt_domain, 1, 0, 0},
679b4943 64 {"list-options", 0, POPT_ARG_NONE, NULL, OPT_LIST_OPTIONS, NULL, NULL},
f3ed775e
DG
65 {0, 0, 0, 0, 0, 0, 0}
66};
67
68/*
69 * usage
70 */
71static void usage(FILE *ofp)
72{
27221701 73 fprintf(ofp, "usage: lttng list [OPTIONS] [SESSION [<OPTIONS>]]\n");
9f19cc17
DG
74 fprintf(ofp, "\n");
75 fprintf(ofp, "With no arguments, list available tracing session(s)\n");
76 fprintf(ofp, "\n");
27221701
DG
77 fprintf(ofp, "Without a session, -k lists available kernel events\n");
78 fprintf(ofp, "Without a session, -u lists available userspace events\n");
9f19cc17
DG
79 fprintf(ofp, "\n");
80 fprintf(ofp, " -h, --help Show this help\n");
27221701 81 fprintf(ofp, " --list-options Simple listing of options\n");
9f19cc17
DG
82 fprintf(ofp, " -k, --kernel Select kernel domain\n");
83 fprintf(ofp, " -u, --userspace Select user-space domain.\n");
d78d6610 84#if 0
9f19cc17 85 fprintf(ofp, " -p, --pid PID List user-space events by PID\n");
d78d6610 86#endif
f3ed775e 87 fprintf(ofp, "\n");
27221701 88 fprintf(ofp, "Session Options:\n");
9f19cc17
DG
89 fprintf(ofp, " -c, --channel NAME List details of a channel\n");
90 fprintf(ofp, " -d, --domain List available domain(s)\n");
f3ed775e
DG
91 fprintf(ofp, "\n");
92}
93
94/*
9f19cc17 95 * Get command line from /proc for a specific pid.
f3ed775e 96 *
9f19cc17
DG
97 * On success, return an allocated string pointer to the proc cmdline.
98 * On error, return NULL.
f3ed775e
DG
99 */
100static char *get_cmdline_by_pid(pid_t pid)
101{
102 int ret;
103 FILE *fp;
104 char *cmdline = NULL;
105 char path[24]; /* Can't go bigger than /proc/65535/cmdline */
106
107 snprintf(path, sizeof(path), "/proc/%d/cmdline", pid);
108 fp = fopen(path, "r");
109 if (fp == NULL) {
110 goto end;
111 }
112
113 /* Caller must free() *cmdline */
114 cmdline = malloc(PATH_MAX);
115 ret = fread(cmdline, 1, PATH_MAX, fp);
f40799e8
DG
116 if (ret < 0) {
117 perror("fread proc list");
118 }
f3ed775e
DG
119 fclose(fp);
120
121end:
122 return cmdline;
123}
b551a063 124
464dd62d
MD
125static
126const char *active_string(int value)
127{
128 switch (value) {
b09f0429
MD
129 case 0: return " [inactive]";
130 case 1: return " [active]";
464dd62d
MD
131 case -1: return "";
132 default: return NULL;
133 }
134}
135
136static
137const char *enabled_string(int value)
138{
139 switch (value) {
b09f0429
MD
140 case 0: return " [disabled]";
141 case 1: return " [enabled]";
464dd62d
MD
142 case -1: return "";
143 default: return NULL;
144 }
145}
146
81afa345
MD
147static
148const char *loglevel_string_pre(const char *loglevel)
149{
e4baff1e 150 if (loglevel[0] == '\0') {
81afa345 151 return "";
e4baff1e 152 } else {
81afa345 153 return " (loglevel: ";
e4baff1e 154 }
81afa345
MD
155}
156
157static
158const char *loglevel_string_post(const char *loglevel)
159{
e4baff1e 160 if (loglevel[0] == '\0') {
81afa345 161 return "";
e4baff1e 162 } else {
81afa345 163 return ")";
e4baff1e 164 }
81afa345
MD
165}
166
b551a063
DG
167/*
168 * Pretty print single event.
169 */
170static void print_events(struct lttng_event *event)
171{
172 switch (event->type) {
173 case LTTNG_EVENT_TRACEPOINT:
e4baff1e
MD
174 {
175 char ll_value[LTTNG_SYMBOL_NAME_LEN] = "";
176
177 if (event->loglevel[0] != '\0') {
178 int ret;
179
180 ret = snprintf(ll_value, LTTNG_SYMBOL_NAME_LEN,
4dbd54a1 181 " (%lld)", (long long) event->loglevel_value);
0cda4f28 182 if (ret < 0) {
e4baff1e 183 ERR("snprintf error");
0cda4f28 184 }
e4baff1e
MD
185 }
186 MSG("%s%s%s%s%s%s (type: tracepoint)%s", indent6,
81afa345
MD
187 event->name,
188 loglevel_string_pre(event->loglevel),
189 event->loglevel,
e4baff1e 190 ll_value,
81afa345
MD
191 loglevel_string_post(event->loglevel),
192 enabled_string(event->enabled));
b551a063 193 break;
e4baff1e 194 }
b551a063 195 case LTTNG_EVENT_PROBE:
464dd62d
MD
196 MSG("%s%s (type: probe)%s", indent6,
197 event->name, enabled_string(event->enabled));
b551a063
DG
198 if (event->attr.probe.addr != 0) {
199 MSG("%saddr: 0x%" PRIx64, indent8, event->attr.probe.addr);
200 } else {
201 MSG("%soffset: 0x%" PRIx64, indent8, event->attr.probe.offset);
202 MSG("%ssymbol: %s", indent8, event->attr.probe.symbol_name);
203 }
204 break;
205 case LTTNG_EVENT_FUNCTION:
206 case LTTNG_EVENT_FUNCTION_ENTRY:
464dd62d
MD
207 MSG("%s%s (type: function)%s", indent6,
208 event->name, enabled_string(event->enabled));
b551a063
DG
209 MSG("%ssymbol: \"%s\"", indent8, event->attr.ftrace.symbol_name);
210 break;
211 case LTTNG_EVENT_SYSCALL:
464dd62d
MD
212 MSG("%s (type: syscall)%s", indent6,
213 enabled_string(event->enabled));
b551a063
DG
214 break;
215 case LTTNG_EVENT_NOOP:
464dd62d
MD
216 MSG("%s (type: noop)%s", indent6,
217 enabled_string(event->enabled));
b551a063
DG
218 break;
219 case LTTNG_EVENT_ALL:
220 /* We should never have "all" events in list. */
221 assert(0);
222 break;
223 }
224}
225
226/*
227 * Ask session daemon for all user space tracepoints available.
228 */
229static int list_ust_events(void)
230{
231 int i, size;
232 struct lttng_domain domain;
233 struct lttng_handle *handle;
234 struct lttng_event *event_list;
235 pid_t cur_pid = 0;
236
237 DBG("Getting UST tracing events");
238
239 domain.type = LTTNG_DOMAIN_UST;
240
241 handle = lttng_create_handle(NULL, &domain);
242 if (handle == NULL) {
243 goto error;
244 }
245
246 size = lttng_list_tracepoints(handle, &event_list);
247 if (size < 0) {
248 ERR("Unable to list UST events");
249 return size;
250 }
251
252 MSG("UST events:\n-------------");
253
254 if (size == 0) {
255 MSG("None");
256 }
257
258 for (i = 0; i < size; i++) {
259 if (cur_pid != event_list[i].pid) {
260 cur_pid = event_list[i].pid;
261 MSG("\nPID: %d - Name: %s", cur_pid, get_cmdline_by_pid(cur_pid));
262 }
263 print_events(&event_list[i]);
264 }
265
266 MSG("");
267
268 free(event_list);
269
270 return CMD_SUCCESS;
271
272error:
273 return -1;
274}
f3ed775e
DG
275
276/*
9f19cc17 277 * Ask for all trace events in the kernel and pretty print them.
f3ed775e 278 */
9f19cc17 279static int list_kernel_events(void)
f3ed775e 280{
9f19cc17 281 int i, size;
b551a063
DG
282 struct lttng_domain domain;
283 struct lttng_handle *handle;
9f19cc17 284 struct lttng_event *event_list;
f3ed775e 285
b551a063
DG
286 DBG("Getting kernel tracing events");
287
288 domain.type = LTTNG_DOMAIN_KERNEL;
289
290 handle = lttng_create_handle(NULL, &domain);
291 if (handle == NULL) {
292 goto error;
293 }
f3ed775e 294
cd80958d 295 size = lttng_list_tracepoints(handle, &event_list);
9f19cc17
DG
296 if (size < 0) {
297 ERR("Unable to list kernel events");
298 return size;
f3ed775e
DG
299 }
300
9f19cc17 301 MSG("Kernel events:\n-------------");
f3ed775e 302
9f19cc17 303 for (i = 0; i < size; i++) {
b551a063 304 print_events(&event_list[i]);
f3ed775e
DG
305 }
306
b551a063
DG
307 MSG("");
308
f3ed775e
DG
309 free(event_list);
310
311 return CMD_SUCCESS;
b551a063
DG
312
313error:
314 return -1;
f3ed775e
DG
315}
316
317/*
9f19cc17 318 * List events of channel of session and domain.
f3ed775e 319 */
cd80958d 320static int list_events(const char *channel_name)
f3ed775e
DG
321{
322 int ret, count, i;
9f19cc17 323 struct lttng_event *events = NULL;
f3ed775e 324
cd80958d 325 count = lttng_list_events(handle, channel_name, &events);
f3ed775e
DG
326 if (count < 0) {
327 ret = count;
328 goto error;
329 }
330
9f19cc17
DG
331 MSG("\n%sEvents:", indent4);
332 if (count == 0) {
5edd7e09 333 MSG("%sNone\n", indent6);
9f19cc17
DG
334 goto end;
335 }
336
f3ed775e 337 for (i = 0; i < count; i++) {
b551a063 338 print_events(&events[i]);
f3ed775e
DG
339 }
340
9f19cc17 341 MSG("");
f3ed775e 342
9f19cc17
DG
343end:
344 if (events) {
345 free(events);
346 }
347 ret = CMD_SUCCESS;
f3ed775e
DG
348
349error:
350 return ret;
351}
352
353/*
9f19cc17
DG
354 * Pretty print channel
355 */
356static void print_channel(struct lttng_channel *channel)
357{
464dd62d 358 MSG("- %s:%s\n", channel->name, enabled_string(channel->enabled));
9f19cc17
DG
359
360 MSG("%sAttributes:", indent4);
361 MSG("%soverwrite mode: %d", indent6, channel->attr.overwrite);
362 MSG("%ssubbufers size: %" PRIu64, indent6, channel->attr.subbuf_size);
363 MSG("%snumber of subbufers: %" PRIu64, indent6, channel->attr.num_subbuf);
364 MSG("%sswitch timer interval: %u", indent6, channel->attr.switch_timer_interval);
365 MSG("%sread timer interval: %u", indent6, channel->attr.read_timer_interval);
366 switch (channel->attr.output) {
367 case LTTNG_EVENT_SPLICE:
368 MSG("%soutput: splice()", indent6);
369 break;
370 case LTTNG_EVENT_MMAP:
371 MSG("%soutput: mmap()", indent6);
372 break;
373 }
374}
375
376/*
377 * List channel(s) of session and domain.
f3ed775e 378 *
9f19cc17 379 * If channel_name is NULL, all channels are listed.
f3ed775e 380 */
cd80958d 381static int list_channels(const char *channel_name)
f3ed775e 382{
9f19cc17
DG
383 int count, i, ret = CMD_SUCCESS;
384 unsigned int chan_found = 0;
385 struct lttng_channel *channels = NULL;
f3ed775e 386
3e25cb20 387 DBG("Listing channel(s) (%s)", channel_name ? : "<all>");
9f19cc17 388
cd80958d 389 count = lttng_list_channels(handle, &channels);
f3ed775e
DG
390 if (count < 0) {
391 ret = count;
ae856491 392 goto error_channels;
9f19cc17 393 } else if (count == 0) {
ae856491
DG
394 ERR("Channel %s not found", channel_name);
395 goto error;
f3ed775e
DG
396 }
397
9f19cc17
DG
398 if (channel_name == NULL) {
399 MSG("Channels:\n-------------");
400 }
401
402 for (i = 0; i < count; i++) {
403 if (channel_name != NULL) {
404 if (strncmp(channels[i].name, channel_name, NAME_MAX) == 0) {
405 chan_found = 1;
406 } else {
407 continue;
408 }
409 }
410 print_channel(&channels[i]);
411
412 /* Listing events per channel */
cd80958d 413 ret = list_events(channels[i].name);
9f19cc17 414 if (ret < 0) {
9a745bc7 415 MSG("%s", lttng_strerror(ret));
9f19cc17
DG
416 }
417
418 if (chan_found) {
419 break;
f3ed775e 420 }
f3ed775e
DG
421 }
422
9f19cc17 423 if (!chan_found && channel_name != NULL) {
ae856491
DG
424 ERR("Channel %s not found", channel_name);
425 goto error;
9f19cc17 426 }
f3ed775e 427
9f19cc17 428 ret = CMD_SUCCESS;
f3ed775e
DG
429
430error:
ae856491
DG
431 free(channels);
432
433error_channels:
f3ed775e
DG
434 return ret;
435}
436
437/*
9f19cc17 438 * List available tracing session. List only basic information.
f3ed775e 439 *
9f19cc17 440 * If session_name is NULL, all sessions are listed.
f3ed775e 441 */
9f19cc17 442static int list_sessions(const char *session_name)
f3ed775e 443{
9f19cc17
DG
444 int ret, count, i;
445 unsigned int session_found = 0;
446 struct lttng_session *sessions;
447
448 count = lttng_list_sessions(&sessions);
449 DBG("Session count %d", count);
450 if (count < 0) {
451 ret = count;
452 goto error;
453 }
454
455 if (session_name == NULL) {
456 MSG("Available tracing sessions:");
457 }
458
459 for (i = 0; i < count; i++) {
460 if (session_name != NULL) {
461 if (strncmp(sessions[i].name, session_name, NAME_MAX) == 0) {
462 session_found = 1;
464dd62d 463 MSG("Tracing session %s:%s", session_name, active_string(sessions[i].enabled));
9f19cc17
DG
464 MSG("%sTrace path: %s\n", indent4, sessions[i].path);
465 break;
466 }
cd80958d 467 continue;
9f19cc17
DG
468 }
469
464dd62d 470 MSG(" %d) %s (%s)%s", i + 1, sessions[i].name, sessions[i].path, active_string(sessions[i].enabled));
9f19cc17
DG
471
472 if (session_found) {
473 break;
474 }
475 }
476
477 free(sessions);
478
479 if (!session_found && session_name != NULL) {
ae856491 480 ERR("Session %s not found", session_name);
9f19cc17
DG
481 }
482
483 if (session_name == NULL) {
6e0de39b 484 MSG("\nUse lttng list <session_name> for more details");
9f19cc17 485 }
f3ed775e
DG
486
487 return CMD_SUCCESS;
488
489error:
490 return ret;
491}
f3ed775e
DG
492
493/*
9f19cc17 494 * List available domain(s) for a session.
f3ed775e 495 */
330be774 496static int list_domains(const char *session_name)
f3ed775e 497{
9f19cc17
DG
498 int i, count, ret = CMD_SUCCESS;
499 struct lttng_domain *domains = NULL;
500
501 MSG("Domains:\n-------------");
502
330be774 503 count = lttng_list_domains(session_name, &domains);
9f19cc17
DG
504 if (count < 0) {
505 ret = count;
506 goto error;
507 } else if (count == 0) {
508 MSG(" None");
509 goto end;
510 }
511
512 for (i = 0; i < count; i++) {
513 switch (domains[i].type) {
514 case LTTNG_DOMAIN_KERNEL:
515 MSG(" - Kernel");
b551a063
DG
516 break;
517 case LTTNG_DOMAIN_UST:
518 MSG(" - UST global");
519 break;
9f19cc17
DG
520 default:
521 break;
522 }
523 }
524
525end:
526 free(domains);
527
528error:
529 return ret;
f3ed775e 530}
f3ed775e
DG
531
532/*
9f19cc17 533 * The 'list <options>' first level command
f3ed775e
DG
534 */
535int cmd_list(int argc, const char **argv)
536{
9f19cc17 537 int opt, i, ret = CMD_SUCCESS;
c3919711 538 int nb_domain;
9f19cc17 539 const char *session_name;
f3ed775e 540 static poptContext pc;
9f19cc17
DG
541 struct lttng_domain domain;
542 struct lttng_domain *domains = NULL;
f3ed775e 543
9f19cc17 544 if (argc < 1) {
f3ed775e 545 usage(stderr);
ca1c3607 546 ret = CMD_ERROR;
f3ed775e
DG
547 goto end;
548 }
549
550 pc = poptGetContext(NULL, argc, argv, long_options, 0);
551 poptReadDefaultConfig(pc, 0);
552
553 while ((opt = poptGetNextOpt(pc)) != -1) {
554 switch (opt) {
555 case OPT_HELP:
ca1c3607 556 usage(stdout);
f3ed775e 557 goto end;
eeac7d46
MD
558 case OPT_USERSPACE:
559 opt_userspace = 1;
eeac7d46 560 break;
679b4943
SM
561 case OPT_LIST_OPTIONS:
562 list_cmd_options(stdout, long_options);
679b4943 563 goto end;
f3ed775e
DG
564 default:
565 usage(stderr);
566 ret = CMD_UNDEFINED;
567 goto end;
568 }
569 }
570
9f19cc17
DG
571 /* Get session name (trailing argument) */
572 session_name = poptGetArg(pc);
b551a063 573 DBG2("Session name: %s", session_name);
9f19cc17 574
cd80958d
DG
575 if (opt_kernel) {
576 domain.type = LTTNG_DOMAIN_KERNEL;
b551a063
DG
577 } else if (opt_userspace) {
578 DBG2("Listing userspace global domain");
579 domain.type = LTTNG_DOMAIN_UST;
cd80958d
DG
580 }
581
582 handle = lttng_create_handle(session_name, &domain);
583 if (handle == NULL) {
ca1c3607 584 ret = CMD_FATAL;
cd80958d
DG
585 goto end;
586 }
587
9f19cc17 588 if (session_name == NULL) {
b551a063
DG
589 if (!opt_kernel && !opt_userspace) {
590 ret = list_sessions(NULL);
591 if (ret < 0) {
ca1c3607 592 ret = CMD_ERROR;
b551a063
DG
593 goto end;
594 }
595 }
9f19cc17
DG
596 if (opt_kernel) {
597 ret = list_kernel_events();
598 if (ret < 0) {
ca1c3607 599 ret = CMD_ERROR;
9f19cc17
DG
600 goto end;
601 }
b551a063
DG
602 }
603 if (opt_userspace) {
604 ret = list_ust_events();
9f19cc17 605 if (ret < 0) {
ca1c3607 606 ret = CMD_ERROR;
9f19cc17
DG
607 goto end;
608 }
609 }
610 } else {
611 /* List session attributes */
612 ret = list_sessions(session_name);
613 if (ret < 0) {
ca1c3607 614 ret = CMD_ERROR;
9f19cc17
DG
615 goto end;
616 }
617
618 /* Domain listing */
619 if (opt_domain) {
330be774 620 ret = list_domains(session_name);
ca1c3607
TD
621 if (ret < 0) {
622 ret = CMD_ERROR;
623 }
9f19cc17
DG
624 goto end;
625 }
626
627 if (opt_kernel) {
9f19cc17 628 /* Channel listing */
cd80958d 629 ret = list_channels(opt_channel);
9f19cc17 630 if (ret < 0) {
ca1c3607 631 ret = CMD_ERROR;
9f19cc17
DG
632 goto end;
633 }
9f19cc17
DG
634 } else {
635 /* We want all domain(s) */
330be774 636 nb_domain = lttng_list_domains(session_name, &domains);
b551a063 637 if (nb_domain < 0) {
ca1c3607 638 ret = CMD_ERROR;
9f19cc17
DG
639 goto end;
640 }
641
b551a063 642 for (i = 0; i < nb_domain; i++) {
9f19cc17
DG
643 switch (domains[i].type) {
644 case LTTNG_DOMAIN_KERNEL:
645 MSG("=== Domain: Kernel ===\n");
646 break;
b551a063
DG
647 case LTTNG_DOMAIN_UST:
648 MSG("=== Domain: UST global ===\n");
649 break;
9f19cc17
DG
650 default:
651 MSG("=== Domain: Unimplemented ===\n");
652 break;
653 }
654
cd80958d
DG
655 /* Clean handle before creating a new one */
656 lttng_destroy_handle(handle);
657
658 handle = lttng_create_handle(session_name, &domains[i]);
659 if (handle == NULL) {
ca1c3607 660 ret = CMD_FATAL;
cd80958d
DG
661 goto end;
662 }
663
664 ret = list_channels(opt_channel);
9f19cc17 665 if (ret < 0) {
ca1c3607 666 ret = CMD_ERROR;
9f19cc17
DG
667 goto end;
668 }
669 }
670 }
f3ed775e
DG
671 }
672
673end:
9f19cc17
DG
674 if (domains) {
675 free(domains);
676 }
cd80958d
DG
677 lttng_destroy_handle(handle);
678
ca1c3607 679 poptFreeContext(pc);
f3ed775e
DG
680 return ret;
681}
This page took 0.058312 seconds and 4 git commands to generate.