projects / lttng-tools.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Expose monitor timer interval to lttngctl and client
[lttng-tools.git] / src / bin / lttng / commands / list.c
1 /*
2 * Copyright (C) 2011 - David Goulet <david.goulet@polymtl.ca>
3 *
4 * This program is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License, version 2 only,
6 * as published by the Free Software Foundation.
7 *
8 * This program is distributed in the hope that it will be useful,
9 * but WITHOUT ANY WARRANTY; without even the implied warranty of
10 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 * GNU General Public License for more details.
12 *
13 * You should have received a copy of the GNU General Public License along
14 * with this program; if not, write to the Free Software Foundation, Inc.,
15 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
16 */
17
18 #define _LGPL_SOURCE
19 #include <inttypes.h>
20 #include <popt.h>
21 #include <stdio.h>
22 #include <stdlib.h>
23 #include <string.h>
24 #include <assert.h>
25
26 #include <common/mi-lttng.h>
27 #include <lttng/constant.h>
28
29 #include "../command.h"
30
31 static int opt_userspace;
32 static int opt_kernel;
33 static int opt_jul;
34 static int opt_log4j;
35 static int opt_python;
36 static char *opt_channel;
37 static int opt_domain;
38 static int opt_fields;
39 static int opt_syscall;
40
41 const char *indent4 = " ";
42 const char *indent6 = " ";
43 const char *indent8 = " ";
44
45 enum {
46 OPT_HELP = 1,
47 OPT_USERSPACE,
48 OPT_LIST_OPTIONS,
49 };
50
51 static struct lttng_handle *handle;
52 static struct mi_writer *writer;
53
54 static struct poptOption long_options[] = {
55 /* longName, shortName, argInfo, argPtr, value, descrip, argDesc */
56 {"help", 'h', POPT_ARG_NONE, 0, OPT_HELP, 0, 0},
57 {"kernel", 'k', POPT_ARG_VAL, &opt_kernel, 1, 0, 0},
58 {"jul", 'j', POPT_ARG_VAL, &opt_jul, 1, 0, 0},
59 {"log4j", 'l', POPT_ARG_VAL, &opt_log4j, 1, 0, 0},
60 {"python", 'p', POPT_ARG_VAL, &opt_python, 1, 0, 0},
61 {"userspace", 'u', POPT_ARG_NONE, 0, OPT_USERSPACE, 0, 0},
62 {"channel", 'c', POPT_ARG_STRING, &opt_channel, 0, 0, 0},
63 {"domain", 'd', POPT_ARG_VAL, &opt_domain, 1, 0, 0},
64 {"fields", 'f', POPT_ARG_VAL, &opt_fields, 1, 0, 0},
65 {"syscall", 'S', POPT_ARG_VAL, &opt_syscall, 1, 0, 0},
66 {"list-options", 0, POPT_ARG_NONE, NULL, OPT_LIST_OPTIONS, NULL, NULL},
67 {0, 0, 0, 0, 0, 0, 0}
68 };
69
70 /*
71 * Get command line from /proc for a specific pid.
72 *
73 * On success, return an allocated string pointer to the proc cmdline.
74 * On error, return NULL.
75 */
76 static char *get_cmdline_by_pid(pid_t pid)
77 {
78 int ret;
79 FILE *fp = NULL;
80 char *cmdline = NULL;
81 /* Can't go bigger than /proc/LTTNG_MAX_PID/cmdline */
82 char path[sizeof("/proc//cmdline") + sizeof(LTTNG_MAX_PID_STR) - 1];
83
84 snprintf(path, sizeof(path), "/proc/%d/cmdline", pid);
85 fp = fopen(path, "r");
86 if (fp == NULL) {
87 goto end;
88 }
89
90 /* Caller must free() *cmdline */
91 cmdline = zmalloc(PATH_MAX);
92 if (!cmdline) {
93 PERROR("malloc cmdline");
94 goto end;
95 }
96 ret = fread(cmdline, 1, PATH_MAX, fp);
97 if (ret < 0) {
98 PERROR("fread proc list");
99 }
100
101 end:
102 if (fp) {
103 fclose(fp);
104 }
105 return cmdline;
106 }
107
108 static
109 const char *active_string(int value)
110 {
111 switch (value) {
112 case 0: return "inactive";
113 case 1: return "active";
114 case -1: return "";
115 default: return NULL;
116 }
117 }
118
119 static const char *snapshot_string(int value)
120 {
121 switch (value) {
122 case 1:
123 return " snapshot";
124 default:
125 return "";
126 }
127 }
128
129 static
130 const char *enabled_string(int value)
131 {
132 switch (value) {
133 case 0: return " [disabled]";
134 case 1: return " [enabled]";
135 case -1: return "";
136 default: return NULL;
137 }
138 }
139
140 static
141 const char *safe_string(const char *str)
142 {
143 return str ? str : "";
144 }
145
146 static const char *logleveltype_string(enum lttng_loglevel_type value)
147 {
148 switch (value) {
149 case LTTNG_EVENT_LOGLEVEL_ALL:
150 return ":";
151 case LTTNG_EVENT_LOGLEVEL_RANGE:
152 return " <=";
153 case LTTNG_EVENT_LOGLEVEL_SINGLE:
154 return " ==";
155 default:
156 return " <<TYPE UNKN>>";
157 }
158 }
159
160 static const char *bitness_event(enum lttng_event_flag flags)
161 {
162 if (flags & LTTNG_EVENT_FLAG_SYSCALL_32) {
163 if (flags & LTTNG_EVENT_FLAG_SYSCALL_64) {
164 return " [32/64-bit]";
165 } else {
166 return " [32-bit]";
167 }
168 } else if (flags & LTTNG_EVENT_FLAG_SYSCALL_64) {
169 return " [64-bit]";
170 } else {
171 return "";
172 }
173 }
174
175 /*
176 * Get exclusion names message for a single event.
177 *
178 * Returned pointer must be freed by caller. Returns NULL on error.
179 */
180 static char *get_exclusion_names_msg(struct lttng_event *event)
181 {
182 int ret;
183 int exclusion_count;
184 char *exclusion_msg = NULL;
185 char *at;
186 size_t i;
187 const char * const exclusion_fmt = " [exclusions: ";
188 const size_t exclusion_fmt_len = strlen(exclusion_fmt);
189
190 exclusion_count = lttng_event_get_exclusion_name_count(event);
191 if (exclusion_count < 0) {
192 goto end;
193 } else if (exclusion_count == 0) {
194 /*
195 * No exclusions: return copy of empty string so that
196 * it can be freed by caller.
197 */
198 exclusion_msg = strdup("");
199 goto end;
200 }
201
202 /*
203 * exclusion_msg's size is bounded by the exclusion_fmt string,
204 * a comma per entry, the entry count (fixed-size), a closing
205 * bracket, and a trailing \0.
206 */
207 exclusion_msg = malloc(exclusion_count +
208 exclusion_count * LTTNG_SYMBOL_NAME_LEN +
209 exclusion_fmt_len + 1);
210 if (!exclusion_msg) {
211 goto end;
212 }
213
214 at = strcpy(exclusion_msg, exclusion_fmt) + exclusion_fmt_len;
215 for (i = 0; i < exclusion_count; ++i) {
216 const char *name;
217
218 /* Append comma between exclusion names */
219 if (i > 0) {
220 *at = ',';
221 at++;
222 }
223
224 ret = lttng_event_get_exclusion_name(event, i, &name);
225 if (ret) {
226 /* Prints '?' on local error; should never happen */
227 *at = '?';
228 at++;
229 continue;
230 }
231
232 /* Append exclusion name */
233 at += sprintf(at, "%s", name);
234 }
235
236 /* This also puts a final '\0' at the end of exclusion_msg */
237 strcpy(at, "]");
238
239 end:
240 return exclusion_msg;
241 }
242
243 /*
244 * Pretty print single event.
245 */
246 static void print_events(struct lttng_event *event)
247 {
248 int ret;
249 const char *filter_str;
250 char *filter_msg = NULL;
251 char *exclusion_msg = NULL;
252
253 ret = lttng_event_get_filter_expression(event, &filter_str);
254
255 if (ret) {
256 filter_msg = strdup(" [failed to retrieve filter]");
257 } else if (filter_str) {
258 const char * const filter_fmt = " [filter: '%s']";
259
260 filter_msg = malloc(strlen(filter_str) +
261 strlen(filter_fmt) + 1);
262 if (filter_msg) {
263 sprintf(filter_msg, filter_fmt,
264 filter_str);
265 }
266 }
267
268 exclusion_msg = get_exclusion_names_msg(event);
269 if (!exclusion_msg) {
270 exclusion_msg = strdup(" [failed to retrieve exclusions]");
271 }
272
273 switch (event->type) {
274 case LTTNG_EVENT_TRACEPOINT:
275 {
276 if (event->loglevel != -1) {
277 MSG("%s%s (loglevel%s %s (%d)) (type: tracepoint)%s%s%s",
278 indent6,
279 event->name,
280 logleveltype_string(event->loglevel_type),
281 mi_lttng_loglevel_string(event->loglevel, handle->domain.type),
282 event->loglevel,
283 enabled_string(event->enabled),
284 safe_string(exclusion_msg),
285 safe_string(filter_msg));
286 } else {
287 MSG("%s%s (type: tracepoint)%s%s%s",
288 indent6,
289 event->name,
290 enabled_string(event->enabled),
291 safe_string(exclusion_msg),
292 safe_string(filter_msg));
293 }
294 break;
295 }
296 case LTTNG_EVENT_FUNCTION:
297 MSG("%s%s (type: function)%s%s", indent6,
298 event->name, enabled_string(event->enabled),
299 safe_string(filter_msg));
300 if (event->attr.probe.addr != 0) {
301 MSG("%saddr: 0x%" PRIx64, indent8, event->attr.probe.addr);
302 } else {
303 MSG("%soffset: 0x%" PRIx64, indent8, event->attr.probe.offset);
304 MSG("%ssymbol: %s", indent8, event->attr.probe.symbol_name);
305 }
306 break;
307 case LTTNG_EVENT_PROBE:
308 MSG("%s%s (type: probe)%s%s", indent6,
309 event->name, enabled_string(event->enabled),
310 safe_string(filter_msg));
311 if (event->attr.probe.addr != 0) {
312 MSG("%saddr: 0x%" PRIx64, indent8, event->attr.probe.addr);
313 } else {
314 MSG("%soffset: 0x%" PRIx64, indent8, event->attr.probe.offset);
315 MSG("%ssymbol: %s", indent8, event->attr.probe.symbol_name);
316 }
317 break;
318 case LTTNG_EVENT_FUNCTION_ENTRY:
319 MSG("%s%s (type: function)%s%s", indent6,
320 event->name, enabled_string(event->enabled),
321 safe_string(filter_msg));
322 MSG("%ssymbol: \"%s\"", indent8, event->attr.ftrace.symbol_name);
323 break;
324 case LTTNG_EVENT_SYSCALL:
325 MSG("%s%s%s%s%s%s", indent6, event->name,
326 (opt_syscall ? "" : " (type:syscall)"),
327 enabled_string(event->enabled),
328 bitness_event(event->flags),
329 safe_string(filter_msg));
330 break;
331 case LTTNG_EVENT_NOOP:
332 MSG("%s (type: noop)%s%s", indent6,
333 enabled_string(event->enabled),
334 safe_string(filter_msg));
335 break;
336 case LTTNG_EVENT_ALL:
337 /* We should never have "all" events in list. */
338 assert(0);
339 break;
340 }
341
342 free(filter_msg);
343 free(exclusion_msg);
344 }
345
346 static const char *field_type(struct lttng_event_field *field)
347 {
348 switch(field->type) {
349 case LTTNG_EVENT_FIELD_INTEGER:
350 return "integer";
351 case LTTNG_EVENT_FIELD_ENUM:
352 return "enum";
353 case LTTNG_EVENT_FIELD_FLOAT:
354 return "float";
355 case LTTNG_EVENT_FIELD_STRING:
356 return "string";
357 case LTTNG_EVENT_FIELD_OTHER:
358 default: /* fall-through */
359 return "unknown";
360 }
361 }
362
363 /*
364 * Pretty print single event fields.
365 */
366 static void print_event_field(struct lttng_event_field *field)
367 {
368 if (!field->field_name[0]) {
369 return;
370 }
371 MSG("%sfield: %s (%s)%s", indent8, field->field_name,
372 field_type(field), field->nowrite ? " [no write]" : "");
373 }
374
375 /*
376 * Machine interface
377 * Jul and ust event listing
378 */
379 static int mi_list_agent_ust_events(struct lttng_event *events, int count,
380 struct lttng_domain *domain)
381 {
382 int ret, i;
383 pid_t cur_pid = 0;
384 char *cmdline = NULL;
385 int pid_element_open = 0;
386
387 /* Open domains element */
388 ret = mi_lttng_domains_open(writer);
389 if (ret) {
390 goto end;
391 }
392
393 /* Write domain */
394 ret = mi_lttng_domain(writer, domain, 1);
395 if (ret) {
396 goto end;
397 }
398
399 /* Open pids element element */
400 ret = mi_lttng_pids_open(writer);
401 if (ret) {
402 goto end;
403 }
404
405 for (i = 0; i < count; i++) {
406 if (cur_pid != events[i].pid) {
407 if (pid_element_open) {
408 /* Close the previous events and pid element */
409 ret = mi_lttng_close_multi_element(writer, 2);
410 if (ret) {
411 goto end;
412 }
413 pid_element_open = 0;
414 }
415
416 cur_pid = events[i].pid;
417 cmdline = get_cmdline_by_pid(cur_pid);
418 if (!cmdline) {
419 ret = CMD_ERROR;
420 goto end;
421 }
422
423 if (!pid_element_open) {
424 /* Open and write a pid element */
425 ret = mi_lttng_pid(writer, cur_pid, cmdline, 1);
426 if (ret) {
427 goto error;
428 }
429
430 /* Open events element */
431 ret = mi_lttng_events_open(writer);
432 if (ret) {
433 goto error;
434 }
435
436 pid_element_open = 1;
437 }
438 free(cmdline);
439 }
440
441 /* Write an event */
442 ret = mi_lttng_event(writer, &events[i], 0, handle->domain.type);
443 if (ret) {
444 goto end;
445 }
446 }
447
448 /* Close pids */
449 ret = mi_lttng_writer_close_element(writer);
450 if (ret) {
451 goto end;
452 }
453
454 /* Close domain, domains */
455 ret = mi_lttng_close_multi_element(writer, 2);
456 end:
457 return ret;
458 error:
459 free(cmdline);
460 return ret;
461 }
462
463 static int list_agent_events(void)
464 {
465 int i, size, ret = CMD_SUCCESS;
466 struct lttng_domain domain;
467 struct lttng_handle *handle = NULL;
468 struct lttng_event *event_list = NULL;
469 pid_t cur_pid = 0;
470 char *cmdline = NULL;
471 const char *agent_domain_str;
472
473 memset(&domain, 0, sizeof(domain));
474 if (opt_jul) {
475 domain.type = LTTNG_DOMAIN_JUL;
476 } else if (opt_log4j) {
477 domain.type = LTTNG_DOMAIN_LOG4J;
478 } else if (opt_python) {
479 domain.type = LTTNG_DOMAIN_PYTHON;
480 } else {
481 ERR("Invalid agent domain selected.");
482 ret = CMD_ERROR;
483 goto error;
484 }
485
486 agent_domain_str = get_domain_str(domain.type);
487
488 DBG("Getting %s tracing events", agent_domain_str);
489
490 handle = lttng_create_handle(NULL, &domain);
491 if (handle == NULL) {
492 ret = CMD_ERROR;
493 goto end;
494 }
495
496 size = lttng_list_tracepoints(handle, &event_list);
497 if (size < 0) {
498 ERR("Unable to list %s events: %s", agent_domain_str,
499 lttng_strerror(size));
500 ret = CMD_ERROR;
501 goto end;
502 }
503
504 if (lttng_opt_mi) {
505 /* Mi print */
506 ret = mi_list_agent_ust_events(event_list, size, &domain);
507 if (ret) {
508 ret = CMD_ERROR;
509 goto error;
510 }
511 } else {
512 /* Pretty print */
513 MSG("%s events (Logger name):\n-------------------------",
514 agent_domain_str);
515
516 if (size == 0) {
517 MSG("None");
518 }
519
520 for (i = 0; i < size; i++) {
521 if (cur_pid != event_list[i].pid) {
522 cur_pid = event_list[i].pid;
523 cmdline = get_cmdline_by_pid(cur_pid);
524 if (cmdline == NULL) {
525 ret = CMD_ERROR;
526 goto error;
527 }
528 MSG("\nPID: %d - Name: %s", cur_pid, cmdline);
529 free(cmdline);
530 }
531 MSG("%s- %s", indent6, event_list[i].name);
532 }
533
534 MSG("");
535 }
536
537 error:
538 free(event_list);
539 end:
540 lttng_destroy_handle(handle);
541 return ret;
542 }
543
544 /*
545 * Ask session daemon for all user space tracepoints available.
546 */
547 static int list_ust_events(void)
548 {
549 int i, size, ret = CMD_SUCCESS;
550 struct lttng_domain domain;
551 struct lttng_handle *handle;
552 struct lttng_event *event_list = NULL;
553 pid_t cur_pid = 0;
554 char *cmdline = NULL;
555
556 memset(&domain, 0, sizeof(domain));
557
558 DBG("Getting UST tracing events");
559
560 domain.type = LTTNG_DOMAIN_UST;
561
562 handle = lttng_create_handle(NULL, &domain);
563 if (handle == NULL) {
564 ret = CMD_ERROR;
565 goto end;
566 }
567
568 size = lttng_list_tracepoints(handle, &event_list);
569 if (size < 0) {
570 ERR("Unable to list UST events: %s", lttng_strerror(size));
571 ret = CMD_ERROR;
572 goto error;
573 }
574
575 if (lttng_opt_mi) {
576 /* Mi print */
577 ret = mi_list_agent_ust_events(event_list, size, &domain);
578 } else {
579 /* Pretty print */
580 MSG("UST events:\n-------------");
581
582 if (size == 0) {
583 MSG("None");
584 }
585
586 for (i = 0; i < size; i++) {
587 if (cur_pid != event_list[i].pid) {
588 cur_pid = event_list[i].pid;
589 cmdline = get_cmdline_by_pid(cur_pid);
590 if (cmdline == NULL) {
591 ret = CMD_ERROR;
592 goto error;
593 }
594 MSG("\nPID: %d - Name: %s", cur_pid, cmdline);
595 free(cmdline);
596 }
597 print_events(&event_list[i]);
598 }
599
600 MSG("");
601 }
602
603 error:
604 free(event_list);
605 end:
606 lttng_destroy_handle(handle);
607 return ret;
608 }
609
610 /*
611 * Machine interface
612 * List all ust event with their fields
613 */
614 static int mi_list_ust_event_fields(struct lttng_event_field *fields, int count,
615 struct lttng_domain *domain)
616 {
617 int ret, i;
618 pid_t cur_pid = 0;
619 char *cmdline = NULL;
620 int pid_element_open = 0;
621 int event_element_open = 0;
622 struct lttng_event cur_event;
623
624 memset(&cur_event, 0, sizeof(cur_event));
625
626 /* Open domains element */
627 ret = mi_lttng_domains_open(writer);
628 if (ret) {
629 goto end;
630 }
631
632 /* Write domain */
633 ret = mi_lttng_domain(writer, domain, 1);
634 if (ret) {
635 goto end;
636 }
637
638 /* Open pids element */
639 ret = mi_lttng_pids_open(writer);
640 if (ret) {
641 goto end;
642 }
643
644 for (i = 0; i < count; i++) {
645 if (cur_pid != fields[i].event.pid) {
646 if (pid_element_open) {
647 if (event_element_open) {
648 /* Close the previous field element and event. */
649 ret = mi_lttng_close_multi_element(writer, 2);
650 if (ret) {
651 goto end;
652 }
653 event_element_open = 0;
654 }
655 /* Close the previous events, pid element */
656 ret = mi_lttng_close_multi_element(writer, 2);
657 if (ret) {
658 goto end;
659 }
660 pid_element_open = 0;
661 }
662
663 cur_pid = fields[i].event.pid;
664 cmdline = get_cmdline_by_pid(cur_pid);
665 if (!pid_element_open) {
666 /* Open and write a pid element */
667 ret = mi_lttng_pid(writer, cur_pid, cmdline, 1);
668 if (ret) {
669 goto error;
670 }
671
672 /* Open events element */
673 ret = mi_lttng_events_open(writer);
674 if (ret) {
675 goto error;
676 }
677 pid_element_open = 1;
678 }
679 free(cmdline);
680 /* Wipe current event since we are about to print a new PID. */
681 memset(&cur_event, 0, sizeof(cur_event));
682 }
683
684 if (strcmp(cur_event.name, fields[i].event.name) != 0) {
685 if (event_element_open) {
686 /* Close the previous fields element and the previous event */
687 ret = mi_lttng_close_multi_element(writer, 2);
688 if (ret) {
689 goto end;
690 }
691 event_element_open = 0;
692 }
693
694 memcpy(&cur_event, &fields[i].event,
695 sizeof(cur_event));
696
697 if (!event_element_open) {
698 /* Open and write the event */
699 ret = mi_lttng_event(writer, &cur_event, 1,
700 handle->domain.type);
701 if (ret) {
702 goto end;
703 }
704
705 /* Open a fields element */
706 ret = mi_lttng_event_fields_open(writer);
707 if (ret) {
708 goto end;
709 }
710 event_element_open = 1;
711 }
712 }
713
714 /* Print the event_field */
715 ret = mi_lttng_event_field(writer, &fields[i]);
716 if (ret) {
717 goto end;
718 }
719 }
720
721 /* Close pid, domain, domains */
722 ret = mi_lttng_close_multi_element(writer, 3);
723 end:
724 return ret;
725 error:
726 free(cmdline);
727 return ret;
728 }
729
730 /*
731 * Ask session daemon for all user space tracepoint fields available.
732 */
733 static int list_ust_event_fields(void)
734 {
735 int i, size, ret = CMD_SUCCESS;
736 struct lttng_domain domain;
737 struct lttng_handle *handle;
738 struct lttng_event_field *event_field_list;
739 pid_t cur_pid = 0;
740 char *cmdline = NULL;
741
742 struct lttng_event cur_event;
743
744 memset(&domain, 0, sizeof(domain));
745 memset(&cur_event, 0, sizeof(cur_event));
746
747 DBG("Getting UST tracing event fields");
748
749 domain.type = LTTNG_DOMAIN_UST;
750
751 handle = lttng_create_handle(NULL, &domain);
752 if (handle == NULL) {
753 ret = CMD_ERROR;
754 goto end;
755 }
756
757 size = lttng_list_tracepoint_fields(handle, &event_field_list);
758 if (size < 0) {
759 ERR("Unable to list UST event fields: %s", lttng_strerror(size));
760 ret = CMD_ERROR;
761 goto end;
762 }
763
764 if (lttng_opt_mi) {
765 /* Mi print */
766 ret = mi_list_ust_event_fields(event_field_list, size, &domain);
767 if (ret) {
768 ret = CMD_ERROR;
769 goto error;
770 }
771 } else {
772 /* Pretty print */
773 MSG("UST events:\n-------------");
774
775 if (size == 0) {
776 MSG("None");
777 }
778
779 for (i = 0; i < size; i++) {
780 if (cur_pid != event_field_list[i].event.pid) {
781 cur_pid = event_field_list[i].event.pid;
782 cmdline = get_cmdline_by_pid(cur_pid);
783 if (cmdline == NULL) {
784 ret = CMD_ERROR;
785 goto error;
786 }
787 MSG("\nPID: %d - Name: %s", cur_pid, cmdline);
788 free(cmdline);
789 /* Wipe current event since we are about to print a new PID. */
790 memset(&cur_event, 0, sizeof(cur_event));
791 }
792 if (strcmp(cur_event.name, event_field_list[i].event.name) != 0) {
793 print_events(&event_field_list[i].event);
794 memcpy(&cur_event, &event_field_list[i].event,
795 sizeof(cur_event));
796 }
797 print_event_field(&event_field_list[i]);
798 }
799
800 MSG("");
801 }
802
803 error:
804 free(event_field_list);
805 end:
806 lttng_destroy_handle(handle);
807 return ret;
808 }
809
810 /*
811 * Machine interface
812 * Print a list of kernel events
813 */
814 static int mi_list_kernel_events(struct lttng_event *events, int count,
815 struct lttng_domain *domain)
816 {
817 int ret, i;
818
819 /* Open domains element */
820 ret = mi_lttng_domains_open(writer);
821 if (ret) {
822 goto end;
823 }
824
825 /* Write domain */
826 ret = mi_lttng_domain(writer, domain, 1);
827 if (ret) {
828 goto end;
829 }
830
831 /* Open events */
832 ret = mi_lttng_events_open(writer);
833 if (ret) {
834 goto end;
835 }
836
837 for (i = 0; i < count; i++) {
838 ret = mi_lttng_event(writer, &events[i], 0, handle->domain.type);
839 if (ret) {
840 goto end;
841 }
842 }
843
844 /* close events, domain and domains */
845 ret = mi_lttng_close_multi_element(writer, 3);
846 if (ret) {
847 goto end;
848 }
849
850 end:
851 return ret;
852 }
853
854 /*
855 * Ask for all trace events in the kernel
856 */
857 static int list_kernel_events(void)
858 {
859 int i, size, ret = CMD_SUCCESS;
860 struct lttng_domain domain;
861 struct lttng_handle *handle;
862 struct lttng_event *event_list;
863
864 memset(&domain, 0, sizeof(domain));
865
866 DBG("Getting kernel tracing events");
867
868 domain.type = LTTNG_DOMAIN_KERNEL;
869
870 handle = lttng_create_handle(NULL, &domain);
871 if (handle == NULL) {
872 ret = CMD_ERROR;
873 goto error;
874 }
875
876 size = lttng_list_tracepoints(handle, &event_list);
877 if (size < 0) {
878 ERR("Unable to list kernel events: %s", lttng_strerror(size));
879 lttng_destroy_handle(handle);
880 return CMD_ERROR;
881 }
882
883 if (lttng_opt_mi) {
884 /* Mi print */
885 ret = mi_list_kernel_events(event_list, size, &domain);
886 if (ret) {
887 ret = CMD_ERROR;
888 goto end;
889 }
890 } else {
891 MSG("Kernel events:\n-------------");
892
893 for (i = 0; i < size; i++) {
894 print_events(&event_list[i]);
895 }
896
897 MSG("");
898 }
899
900 end:
901 free(event_list);
902
903 lttng_destroy_handle(handle);
904 return ret;
905
906 error:
907 lttng_destroy_handle(handle);
908 return ret;
909 }
910
911 /*
912 * Machine interface
913 * Print a list of system calls.
914 */
915 static int mi_list_syscalls(struct lttng_event *events, int count)
916 {
917 int ret, i;
918
919 /* Open events */
920 ret = mi_lttng_events_open(writer);
921 if (ret) {
922 goto end;
923 }
924
925 for (i = 0; i < count; i++) {
926 ret = mi_lttng_event(writer, &events[i], 0, handle->domain.type);
927 if (ret) {
928 goto end;
929 }
930 }
931
932 /* Close events. */
933 ret = mi_lttng_writer_close_element(writer);
934 if (ret) {
935 goto end;
936 }
937
938 end:
939 return ret;
940 }
941
942 /*
943 * Ask for kernel system calls.
944 */
945 static int list_syscalls(void)
946 {
947 int i, size, ret = CMD_SUCCESS;
948 struct lttng_event *event_list;
949
950 DBG("Getting kernel system call events");
951
952 size = lttng_list_syscalls(&event_list);
953 if (size < 0) {
954 ERR("Unable to list system calls: %s", lttng_strerror(size));
955 ret = CMD_ERROR;
956 goto error;
957 }
958
959 if (lttng_opt_mi) {
960 /* Mi print */
961 ret = mi_list_syscalls(event_list, size);
962 if (ret) {
963 ret = CMD_ERROR;
964 goto end;
965 }
966 } else {
967 MSG("System calls:\n-------------");
968
969 for (i = 0; i < size; i++) {
970 print_events(&event_list[i]);
971 }
972
973 MSG("");
974 }
975
976 end:
977 free(event_list);
978 return ret;
979
980 error:
981 return ret;
982 }
983
984 /*
985 * Machine Interface
986 * Print a list of agent events
987 */
988 static int mi_list_session_agent_events(struct lttng_event *events, int count)
989 {
990 int ret, i;
991
992 /* Open events element */
993 ret = mi_lttng_events_open(writer);
994 if (ret) {
995 goto end;
996 }
997
998 for (i = 0; i < count; i++) {
999 ret = mi_lttng_event(writer, &events[i], 0, handle->domain.type);
1000 if (ret) {
1001 goto end;
1002 }
1003 }
1004
1005 /* Close events element */
1006 ret = mi_lttng_writer_close_element(writer);
1007
1008 end:
1009 return ret;
1010 }
1011
1012 /*
1013 * List agent events for a specific session using the handle.
1014 *
1015 * Return CMD_SUCCESS on success else a negative value.
1016 */
1017 static int list_session_agent_events(void)
1018 {
1019 int ret = CMD_SUCCESS, count, i;
1020 struct lttng_event *events = NULL;
1021
1022 count = lttng_list_events(handle, "", &events);
1023 if (count < 0) {
1024 ret = CMD_ERROR;
1025 ERR("%s", lttng_strerror(count));
1026 goto error;
1027 }
1028
1029 if (lttng_opt_mi) {
1030 /* Mi print */
1031 ret = mi_list_session_agent_events(events, count);
1032 if (ret) {
1033 ret = CMD_ERROR;
1034 goto end;
1035 }
1036 } else {
1037 /* Pretty print */
1038 MSG("Events (Logger name):\n---------------------");
1039 if (count == 0) {
1040 MSG("%sNone\n", indent6);
1041 goto end;
1042 }
1043
1044 for (i = 0; i < count; i++) {
1045 const char *filter_str;
1046 char *filter_msg = NULL;
1047 struct lttng_event *event = &events[i];
1048
1049 ret = lttng_event_get_filter_expression(event,
1050 &filter_str);
1051 if (ret) {
1052 filter_msg = strdup(" [failed to retrieve filter]");
1053 } else if (filter_str) {
1054 const char * const filter_fmt =
1055 " [filter: '%s']";
1056
1057 filter_msg = malloc(strlen(filter_str) +
1058 strlen(filter_fmt) + 1);
1059 if (filter_msg) {
1060 sprintf(filter_msg, filter_fmt,
1061 filter_str);
1062 }
1063 }
1064
1065 if (event->loglevel_type !=
1066 LTTNG_EVENT_LOGLEVEL_ALL) {
1067 MSG("%s- %s%s (loglevel%s %s)%s", indent4,
1068 event->name,
1069 enabled_string(event->enabled),
1070 logleveltype_string(
1071 event->loglevel_type),
1072 mi_lttng_loglevel_string(
1073 event->loglevel,
1074 handle->domain.type),
1075 safe_string(filter_msg));
1076 } else {
1077 MSG("%s- %s%s%s", indent4, event->name,
1078 enabled_string(event->enabled),
1079 safe_string(filter_msg));
1080 }
1081 free(filter_msg);
1082 }
1083
1084 MSG("");
1085 }
1086
1087 end:
1088 free(events);
1089 error:
1090 return ret;
1091 }
1092
1093 /*
1094 * Machine interface
1095 * print a list of event
1096 */
1097 static int mi_list_events(struct lttng_event *events, int count)
1098 {
1099 int ret, i;
1100
1101 /* Open events element */
1102 ret = mi_lttng_events_open(writer);
1103 if (ret) {
1104 goto end;
1105 }
1106
1107 for (i = 0; i < count; i++) {
1108 ret = mi_lttng_event(writer, &events[i], 0, handle->domain.type);
1109 if (ret) {
1110 goto end;
1111 }
1112 }
1113
1114 /* Close events element */
1115 ret = mi_lttng_writer_close_element(writer);
1116
1117 end:
1118 return ret;
1119 }
1120
1121 /*
1122 * List events of channel of session and domain.
1123 */
1124 static int list_events(const char *channel_name)
1125 {
1126 int ret = CMD_SUCCESS, count, i;
1127 struct lttng_event *events = NULL;
1128
1129 count = lttng_list_events(handle, channel_name, &events);
1130 if (count < 0) {
1131 ret = CMD_ERROR;
1132 ERR("%s", lttng_strerror(count));
1133 goto error;
1134 }
1135
1136 if (lttng_opt_mi) {
1137 /* Mi print */
1138 ret = mi_list_events(events, count);
1139 if (ret) {
1140 ret = CMD_ERROR;
1141 goto end;
1142 }
1143 } else {
1144 /* Pretty print */
1145 MSG("\n%sEvents:", indent4);
1146 if (count == 0) {
1147 MSG("%sNone\n", indent6);
1148 goto end;
1149 }
1150
1151 for (i = 0; i < count; i++) {
1152 print_events(&events[i]);
1153 }
1154
1155 MSG("");
1156 }
1157 end:
1158 free(events);
1159 error:
1160 return ret;
1161 }
1162
1163 /*
1164 * Pretty print channel
1165 */
1166 static void print_channel(struct lttng_channel *channel)
1167 {
1168 int ret;
1169 uint64_t discarded_events, lost_packets, monitor_timer_interval;
1170
1171 ret = lttng_channel_get_discarded_event_count(channel,
1172 &discarded_events);
1173 if (ret) {
1174 ERR("Failed to retrieve discarded event count of channel");
1175 return;
1176 }
1177
1178 ret = lttng_channel_get_lost_packet_count(channel,
1179 &lost_packets);
1180 if (ret) {
1181 ERR("Failed to retrieve lost packet count of channel");
1182 return;
1183 }
1184
1185 ret = lttng_channel_get_monitor_timer_interval(channel,
1186 &monitor_timer_interval);
1187 if (ret) {
1188 ERR("Failed to retrieve monitor interval of channel");
1189 return;
1190 }
1191
1192 MSG("- %s:%s\n", channel->name, enabled_string(channel->enabled));
1193
1194 MSG("%sAttributes:", indent4);
1195 MSG("%soverwrite mode: %d", indent6, channel->attr.overwrite);
1196 MSG("%ssubbuffers size: %" PRIu64, indent6, channel->attr.subbuf_size);
1197 MSG("%snumber of subbuffers: %" PRIu64, indent6, channel->attr.num_subbuf);
1198 MSG("%sswitch timer interval: %u", indent6, channel->attr.switch_timer_interval);
1199 MSG("%sread timer interval: %u", indent6, channel->attr.read_timer_interval);
1200 MSG("%smonitor timer interval: %" PRIu64, indent6, monitor_timer_interval);
1201 MSG("%strace file count: %" PRIu64, indent6, channel->attr.tracefile_count);
1202 MSG("%strace file size (bytes): %" PRIu64, indent6, channel->attr.tracefile_size);
1203 MSG("%sdiscarded events: %" PRIu64, indent6, discarded_events);
1204 MSG("%slost packets: %" PRIu64, indent6, lost_packets);
1205 switch (channel->attr.output) {
1206 case LTTNG_EVENT_SPLICE:
1207 MSG("%soutput: splice()", indent6);
1208 break;
1209 case LTTNG_EVENT_MMAP:
1210 MSG("%soutput: mmap()", indent6);
1211 break;
1212 }
1213 }
1214
1215 /*
1216 * Machine interface
1217 * Print a list of channel
1218 *
1219 */
1220 static int mi_list_channels(struct lttng_channel *channels, int count,
1221 const char *channel_name)
1222 {
1223 int i, ret;
1224 unsigned int chan_found = 0;
1225
1226 /* Open channels element */
1227 ret = mi_lttng_channels_open(writer);
1228 if (ret) {
1229 goto error;
1230 }
1231
1232 for (i = 0; i < count; i++) {
1233 if (channel_name != NULL) {
1234 if (strncmp(channels[i].name, channel_name, NAME_MAX) == 0) {
1235 chan_found = 1;
1236 } else {
1237 continue;
1238 }
1239 }
1240
1241 /* Write channel element and leave it open */
1242 ret = mi_lttng_channel(writer, &channels[i], 1);
1243 if (ret) {
1244 goto error;
1245 }
1246
1247 /* Listing events per channel */
1248 ret = list_events(channels[i].name);
1249 if (ret) {
1250 goto error;
1251 }
1252
1253 /* Closing the channel element we opened earlier */
1254 ret = mi_lttng_writer_close_element(writer);
1255 if (ret) {
1256 goto error;
1257 }
1258
1259 if (chan_found) {
1260 break;
1261 }
1262 }
1263
1264 /* Close channels element */
1265 ret = mi_lttng_writer_close_element(writer);
1266 if (ret) {
1267 goto error;
1268 }
1269
1270 error:
1271 return ret;
1272 }
1273
1274 /*
1275 * List channel(s) of session and domain.
1276 *
1277 * If channel_name is NULL, all channels are listed.
1278 */
1279 static int list_channels(const char *channel_name)
1280 {
1281 int count, i, ret = CMD_SUCCESS;
1282 unsigned int chan_found = 0;
1283 struct lttng_channel *channels = NULL;
1284
1285 DBG("Listing channel(s) (%s)", channel_name ? : "<all>");
1286
1287 count = lttng_list_channels(handle, &channels);
1288 if (count < 0) {
1289 switch (-count) {
1290 case LTTNG_ERR_KERN_CHAN_NOT_FOUND:
1291 if (lttng_opt_mi) {
1292 /* When printing mi this is not an error
1293 * but an empty channels element */
1294 count = 0;
1295 } else {
1296 ret = CMD_SUCCESS;
1297 WARN("No kernel channel");
1298 goto error_channels;
1299 }
1300 break;
1301 default:
1302 /* We had a real error */
1303 ret = CMD_ERROR;
1304 ERR("%s", lttng_strerror(count));
1305 goto error_channels;
1306 break;
1307 }
1308 }
1309
1310 if (lttng_opt_mi) {
1311 /* Mi print */
1312 ret = mi_list_channels(channels, count, channel_name);
1313 if (ret) {
1314 ret = CMD_ERROR;
1315 goto error;
1316 }
1317 } else {
1318 /* Pretty print */
1319 if (count) {
1320 MSG("Channels:\n-------------");
1321 }
1322
1323 for (i = 0; i < count; i++) {
1324 if (channel_name != NULL) {
1325 if (strncmp(channels[i].name, channel_name, NAME_MAX) == 0) {
1326 chan_found = 1;
1327 } else {
1328 continue;
1329 }
1330 }
1331 print_channel(&channels[i]);
1332
1333 /* Listing events per channel */
1334 ret = list_events(channels[i].name);
1335 if (ret) {
1336 goto error;
1337 }
1338
1339 if (chan_found) {
1340 break;
1341 }
1342 }
1343
1344 if (!chan_found && channel_name != NULL) {
1345 ret = CMD_ERROR;
1346 ERR("Channel %s not found", channel_name);
1347 goto error;
1348 }
1349 }
1350 error:
1351 free(channels);
1352
1353 error_channels:
1354 return ret;
1355 }
1356
1357 /*
1358 * List tracker PID(s) of session and domain.
1359 */
1360 static int list_tracker_pids(void)
1361 {
1362 int ret = 0;
1363 int enabled;
1364 int *pids = NULL;
1365 size_t nr_pids;
1366
1367 ret = lttng_list_tracker_pids(handle,
1368 &enabled, &pids, &nr_pids);
1369 if (ret) {
1370 return ret;
1371 }
1372 if (enabled) {
1373 int i;
1374 _MSG("PID tracker: [");
1375
1376 /* Mi tracker_pid element*/
1377 if (writer) {
1378 /* Open tracker_pid and targets elements */
1379 ret = mi_lttng_pid_tracker_open(writer);
1380 if (ret) {
1381 goto end;
1382 }
1383 }
1384
1385 for (i = 0; i < nr_pids; i++) {
1386 if (i) {
1387 _MSG(",");
1388 }
1389 _MSG(" %d", pids[i]);
1390
1391 /* Mi */
1392 if (writer) {
1393 ret = mi_lttng_pid_target(writer, pids[i], 0);
1394 if (ret) {
1395 goto end;
1396 }
1397 }
1398 }
1399 _MSG(" ]\n\n");
1400
1401 /* Mi close tracker_pid and targets */
1402 if (writer) {
1403 ret = mi_lttng_close_multi_element(writer,2);
1404 if (ret) {
1405 goto end;
1406 }
1407 }
1408 }
1409 end:
1410 free(pids);
1411 return ret;
1412
1413 }
1414
1415 /*
1416 * List all tracker of a domain
1417 */
1418 static int list_trackers(void)
1419 {
1420 int ret;
1421
1422 /* Trackers listing */
1423 if (lttng_opt_mi) {
1424 ret = mi_lttng_trackers_open(writer);
1425 if (ret) {
1426 goto end;
1427 }
1428 }
1429
1430 /* pid tracker */
1431 ret = list_tracker_pids();
1432 if (ret) {
1433 goto end;
1434 }
1435
1436 if (lttng_opt_mi) {
1437 /* Close trackers element */
1438 ret = mi_lttng_writer_close_element(writer);
1439 if (ret) {
1440 goto end;
1441 }
1442 }
1443
1444 end:
1445 return ret;
1446 }
1447
1448 /*
1449 * Machine interface
1450 * Find the session with session_name as name
1451 * and print his informations.
1452 */
1453 static int mi_list_session(const char *session_name,
1454 struct lttng_session *sessions, int count)
1455 {
1456 int ret, i;
1457 unsigned int session_found = 0;
1458
1459 if (session_name == NULL) {
1460 ret = -LTTNG_ERR_SESS_NOT_FOUND;
1461 goto end;
1462 }
1463
1464 for (i = 0; i < count; i++) {
1465 if (strncmp(sessions[i].name, session_name, NAME_MAX) == 0) {
1466 /* We need to leave it open to append other informations
1467 * like domain, channel, events etc.*/
1468 session_found = 1;
1469 ret = mi_lttng_session(writer, &sessions[i], 1);
1470 if (ret) {
1471 goto end;
1472 }
1473 break;
1474 }
1475 }
1476
1477 if (!session_found) {
1478 ERR("Session '%s' not found", session_name);
1479 ret = -LTTNG_ERR_SESS_NOT_FOUND;
1480 goto end;
1481 }
1482
1483 end:
1484 return ret;
1485 }
1486
1487 /*
1488 * Machine interface
1489 * List all availables session
1490 */
1491 static int mi_list_sessions(struct lttng_session *sessions, int count)
1492 {
1493 int ret, i;
1494
1495 /* Opening sessions element */
1496 ret = mi_lttng_sessions_open(writer);
1497 if (ret) {
1498 goto end;
1499 }
1500
1501 /* Listing sessions */
1502 for (i = 0; i < count; i++) {
1503 ret = mi_lttng_session(writer, &sessions[i], 0);
1504 if (ret) {
1505 goto end;
1506 }
1507 }
1508
1509 /* Closing sessions element */
1510 ret = mi_lttng_writer_close_element(writer);
1511 if (ret) {
1512 goto end;
1513 }
1514
1515 end:
1516 return ret;
1517 }
1518
1519 /*
1520 * List available tracing session. List only basic information.
1521 *
1522 * If session_name is NULL, all sessions are listed.
1523 */
1524 static int list_sessions(const char *session_name)
1525 {
1526 int ret = CMD_SUCCESS;
1527 int count, i;
1528 unsigned int session_found = 0;
1529 struct lttng_session *sessions;
1530
1531 count = lttng_list_sessions(&sessions);
1532 DBG("Session count %d", count);
1533 if (count < 0) {
1534 ret = CMD_ERROR;
1535 ERR("%s", lttng_strerror(count));
1536 goto end;
1537 }
1538
1539 if (lttng_opt_mi) {
1540 /* Mi */
1541 if (session_name == NULL) {
1542 /* List all session */
1543 ret = mi_list_sessions(sessions, count);
1544 } else {
1545 /* Note : this return an open session element */
1546 ret = mi_list_session(session_name, sessions, count);
1547 }
1548 if (ret) {
1549 ret = CMD_ERROR;
1550 goto error;
1551 }
1552 } else {
1553 /* Pretty print */
1554 if (count == 0) {
1555 MSG("Currently no available tracing session");
1556 goto end;
1557 }
1558
1559 if (session_name == NULL) {
1560 MSG("Available tracing sessions:");
1561 }
1562
1563
1564 for (i = 0; i < count; i++) {
1565 if (session_name != NULL) {
1566 if (strncmp(sessions[i].name, session_name, NAME_MAX) == 0) {
1567 session_found = 1;
1568 MSG("Tracing session %s: [%s%s]", session_name,
1569 active_string(sessions[i].enabled),
1570 snapshot_string(sessions[i].snapshot_mode));
1571 MSG("%sTrace path: %s\n", indent4, sessions[i].path);
1572 break;
1573 }
1574 } else {
1575 MSG(" %d) %s (%s) [%s%s]", i + 1,
1576 sessions[i].name, sessions[i].path,
1577 active_string(sessions[i].enabled),
1578 snapshot_string(sessions[i].snapshot_mode));
1579 MSG("%sTrace path: %s", indent4, sessions[i].path);
1580 if (sessions[i].live_timer_interval != 0) {
1581 MSG("%sLive timer interval (usec): %u", indent4,
1582 sessions[i].live_timer_interval);
1583 }
1584 MSG("");
1585 }
1586 }
1587
1588 if (!session_found && session_name != NULL) {
1589 ERR("Session '%s' not found", session_name);
1590 ret = CMD_ERROR;
1591 goto error;
1592 }
1593
1594 if (session_name == NULL) {
1595 MSG("\nUse lttng list <session_name> for more details");
1596 }
1597 }
1598
1599 error:
1600 free(sessions);
1601 end:
1602 return ret;
1603 }
1604
1605
1606 /*
1607 * Machine Interface
1608 * list available domain(s) for a session.
1609 */
1610 static int mi_list_domains(struct lttng_domain *domains, int count)
1611 {
1612 int i, ret;
1613 /* Open domains element */
1614 ret = mi_lttng_domains_open(writer);
1615 if (ret) {
1616 goto end;
1617 }
1618
1619 for (i = 0; i < count; i++) {
1620 ret = mi_lttng_domain(writer, &domains[i] , 0);
1621 if (ret) {
1622 goto end;
1623 }
1624 }
1625
1626 /* Closing domains element */
1627 ret = mi_lttng_writer_close_element(writer);
1628 if (ret) {
1629 goto end;
1630 }
1631 end:
1632 return ret;
1633 }
1634
1635 /*
1636 * List available domain(s) for a session.
1637 */
1638 static int list_domains(const char *session_name)
1639 {
1640 int i, count, ret = CMD_SUCCESS;
1641 struct lttng_domain *domains = NULL;
1642
1643
1644 count = lttng_list_domains(session_name, &domains);
1645 if (count < 0) {
1646 ret = CMD_ERROR;
1647 ERR("%s", lttng_strerror(count));
1648 goto end;
1649 }
1650
1651 if (lttng_opt_mi) {
1652 /* Mi output */
1653 ret = mi_list_domains(domains, count);
1654 if (ret) {
1655 ret = CMD_ERROR;
1656 goto error;
1657 }
1658 } else {
1659 /* Pretty print */
1660 MSG("Domains:\n-------------");
1661 if (count == 0) {
1662 MSG(" None");
1663 goto end;
1664 }
1665
1666 for (i = 0; i < count; i++) {
1667 switch (domains[i].type) {
1668 case LTTNG_DOMAIN_KERNEL:
1669 MSG(" - Kernel");
1670 break;
1671 case LTTNG_DOMAIN_UST:
1672 MSG(" - UST global");
1673 break;
1674 case LTTNG_DOMAIN_JUL:
1675 MSG(" - JUL (Java Util Logging)");
1676 break;
1677 case LTTNG_DOMAIN_LOG4J:
1678 MSG(" - LOG4j (Logging for Java)");
1679 break;
1680 case LTTNG_DOMAIN_PYTHON:
1681 MSG(" - Python (logging)");
1682 break;
1683 default:
1684 break;
1685 }
1686 }
1687 }
1688
1689 error:
1690 free(domains);
1691
1692 end:
1693 return ret;
1694 }
1695
1696 /*
1697 * The 'list <options>' first level command
1698 */
1699 int cmd_list(int argc, const char **argv)
1700 {
1701 int opt, ret = CMD_SUCCESS;
1702 const char *session_name;
1703 static poptContext pc;
1704 struct lttng_domain domain;
1705 struct lttng_domain *domains = NULL;
1706
1707 memset(&domain, 0, sizeof(domain));
1708
1709 if (argc < 1) {
1710 ret = CMD_ERROR;
1711 goto end;
1712 }
1713
1714 pc = poptGetContext(NULL, argc, argv, long_options, 0);
1715 poptReadDefaultConfig(pc, 0);
1716
1717 while ((opt = poptGetNextOpt(pc)) != -1) {
1718 switch (opt) {
1719 case OPT_HELP:
1720 SHOW_HELP();
1721 goto end;
1722 case OPT_USERSPACE:
1723 opt_userspace = 1;
1724 break;
1725 case OPT_LIST_OPTIONS:
1726 list_cmd_options(stdout, long_options);
1727 goto end;
1728 default:
1729 ret = CMD_UNDEFINED;
1730 goto end;
1731 }
1732 }
1733
1734 /* Mi check */
1735 if (lttng_opt_mi) {
1736 writer = mi_lttng_writer_create(fileno(stdout), lttng_opt_mi);
1737 if (!writer) {
1738 ret = CMD_ERROR;
1739 goto end;
1740 }
1741
1742 /* Open command element */
1743 ret = mi_lttng_writer_command_open(writer,
1744 mi_lttng_element_command_list);
1745 if (ret) {
1746 ret = CMD_ERROR;
1747 goto end;
1748 }
1749
1750 /* Open output element */
1751 ret = mi_lttng_writer_open_element(writer,
1752 mi_lttng_element_command_output);
1753 if (ret) {
1754 ret = CMD_ERROR;
1755 goto end;
1756 }
1757 }
1758
1759 /* Get session name (trailing argument) */
1760 session_name = poptGetArg(pc);
1761 DBG2("Session name: %s", session_name);
1762
1763 if (opt_kernel) {
1764 domain.type = LTTNG_DOMAIN_KERNEL;
1765 } else if (opt_userspace) {
1766 DBG2("Listing userspace global domain");
1767 domain.type = LTTNG_DOMAIN_UST;
1768 } else if (opt_jul) {
1769 DBG2("Listing JUL domain");
1770 domain.type = LTTNG_DOMAIN_JUL;
1771 } else if (opt_log4j) {
1772 domain.type = LTTNG_DOMAIN_LOG4J;
1773 } else if (opt_python) {
1774 domain.type = LTTNG_DOMAIN_PYTHON;
1775 }
1776
1777 if (!opt_kernel && opt_syscall) {
1778 WARN("--syscall will only work with the Kernel domain (-k)");
1779 ret = CMD_ERROR;
1780 goto end;
1781 }
1782
1783 if (opt_kernel || opt_userspace || opt_jul || opt_log4j || opt_python) {
1784 handle = lttng_create_handle(session_name, &domain);
1785 if (handle == NULL) {
1786 ret = CMD_FATAL;
1787 goto end;
1788 }
1789 }
1790
1791 if (session_name == NULL) {
1792 if (!opt_kernel && !opt_userspace && !opt_jul && !opt_log4j
1793 && !opt_python) {
1794 ret = list_sessions(NULL);
1795 if (ret) {
1796 goto end;
1797 }
1798 }
1799 if (opt_kernel) {
1800 if (opt_syscall) {
1801 ret = list_syscalls();
1802 if (ret) {
1803 goto end;
1804 }
1805 } else {
1806 ret = list_kernel_events();
1807 if (ret) {
1808 goto end;
1809 }
1810 }
1811 }
1812 if (opt_userspace) {
1813 if (opt_fields) {
1814 ret = list_ust_event_fields();
1815 } else {
1816 ret = list_ust_events();
1817 }
1818 if (ret) {
1819 goto end;
1820 }
1821 }
1822 if (opt_jul || opt_log4j || opt_python) {
1823 ret = list_agent_events();
1824 if (ret) {
1825 goto end;
1826 }
1827 }
1828 } else {
1829 /* List session attributes */
1830 if (lttng_opt_mi) {
1831 /* Open element sessions
1832 * Present for xml consistency */
1833 ret = mi_lttng_sessions_open(writer);
1834 if (ret) {
1835 goto end;
1836 }
1837 }
1838 /* MI: the ouptut of list_sessions is an unclosed session element */
1839 ret = list_sessions(session_name);
1840 if (ret) {
1841 goto end;
1842 }
1843
1844 /* Domain listing */
1845 if (opt_domain) {
1846 ret = list_domains(session_name);
1847 goto end;
1848 }
1849
1850 /* Channel listing */
1851 if (opt_kernel || opt_userspace) {
1852 if (lttng_opt_mi) {
1853 /* Add of domains and domain element for xml
1854 * consistency and validation
1855 */
1856 ret = mi_lttng_domains_open(writer);
1857 if (ret) {
1858 goto end;
1859 }
1860
1861 /* Open domain and leave it open for
1862 * nested channels printing */
1863 ret = mi_lttng_domain(writer, &domain, 1);
1864 if (ret) {
1865 goto end;
1866 }
1867
1868 }
1869
1870
1871 /* Trackers */
1872 ret = list_trackers();
1873 if (ret) {
1874 goto end;
1875 }
1876
1877 /* Channels */
1878 ret = list_channels(opt_channel);
1879 if (ret) {
1880 goto end;
1881 }
1882
1883 if (lttng_opt_mi) {
1884 /* Close domain and domain element */
1885 ret = mi_lttng_close_multi_element(writer, 2);
1886 }
1887 if (ret) {
1888 goto end;
1889 }
1890
1891
1892 } else {
1893 int i, nb_domain;
1894
1895 /* We want all domain(s) */
1896 nb_domain = lttng_list_domains(session_name, &domains);
1897 if (nb_domain < 0) {
1898 ret = CMD_ERROR;
1899 ERR("%s", lttng_strerror(nb_domain));
1900 goto end;
1901 }
1902
1903 if (lttng_opt_mi) {
1904 ret = mi_lttng_domains_open(writer);
1905 if (ret) {
1906 ret = CMD_ERROR;
1907 goto end;
1908 }
1909 }
1910
1911 for (i = 0; i < nb_domain; i++) {
1912 switch (domains[i].type) {
1913 case LTTNG_DOMAIN_KERNEL:
1914 MSG("=== Domain: Kernel ===\n");
1915 break;
1916 case LTTNG_DOMAIN_UST:
1917 MSG("=== Domain: UST global ===\n");
1918 MSG("Buffer type: %s\n",
1919 domains[i].buf_type ==
1920 LTTNG_BUFFER_PER_PID ? "per PID" : "per UID");
1921 break;
1922 case LTTNG_DOMAIN_JUL:
1923 MSG("=== Domain: JUL (Java Util Logging) ===\n");
1924 break;
1925 case LTTNG_DOMAIN_LOG4J:
1926 MSG("=== Domain: LOG4j (Logging for Java) ===\n");
1927 break;
1928 case LTTNG_DOMAIN_PYTHON:
1929 MSG("=== Domain: Python (logging) ===\n");
1930 break;
1931 default:
1932 MSG("=== Domain: Unimplemented ===\n");
1933 break;
1934 }
1935
1936 if (lttng_opt_mi) {
1937 ret = mi_lttng_domain(writer, &domains[i], 1);
1938 if (ret) {
1939 ret = CMD_ERROR;
1940 goto end;
1941 }
1942 }
1943
1944 /* Clean handle before creating a new one */
1945 if (handle) {
1946 lttng_destroy_handle(handle);
1947 }
1948
1949 handle = lttng_create_handle(session_name, &domains[i]);
1950 if (handle == NULL) {
1951 ret = CMD_FATAL;
1952 goto end;
1953 }
1954
1955 if (domains[i].type == LTTNG_DOMAIN_JUL ||
1956 domains[i].type == LTTNG_DOMAIN_LOG4J ||
1957 domains[i].type == LTTNG_DOMAIN_PYTHON) {
1958 ret = list_session_agent_events();
1959 if (ret) {
1960 goto end;
1961 }
1962
1963 goto next_domain;
1964 }
1965
1966 switch (domains[i].type) {
1967 case LTTNG_DOMAIN_KERNEL:
1968 case LTTNG_DOMAIN_UST:
1969 ret = list_trackers();
1970 if (ret) {
1971 goto end;
1972 }
1973 break;
1974 default:
1975 break;
1976 }
1977
1978 ret = list_channels(opt_channel);
1979 if (ret) {
1980 goto end;
1981 }
1982
1983 next_domain:
1984 if (lttng_opt_mi) {
1985 /* Close domain element */
1986 ret = mi_lttng_writer_close_element(writer);
1987 if (ret) {
1988 ret = CMD_ERROR;
1989 goto end;
1990 }
1991 }
1992
1993 }
1994 if (lttng_opt_mi) {
1995 /* Close the domains, session and sessions element */
1996 ret = mi_lttng_close_multi_element(writer, 3);
1997 if (ret) {
1998 ret = CMD_ERROR;
1999 goto end;
2000 }
2001 }
2002 }
2003 }
2004
2005 /* Mi closing */
2006 if (lttng_opt_mi) {
2007 /* Close output element */
2008 ret = mi_lttng_writer_close_element(writer);
2009 if (ret) {
2010 ret = CMD_ERROR;
2011 goto end;
2012 }
2013
2014 /* Command element close */
2015 ret = mi_lttng_writer_command_close(writer);
2016 if (ret) {
2017 ret = CMD_ERROR;
2018 goto end;
2019 }
2020 }
2021 end:
2022 /* Mi clean-up */
2023 if (writer && mi_lttng_writer_destroy(writer)) {
2024 /* Preserve original error code */
2025 ret = ret ? ret : -LTTNG_ERR_MI_IO_FAIL;
2026 }
2027
2028 free(domains);
2029 if (handle) {
2030 lttng_destroy_handle(handle);
2031 }
2032
2033 poptFreeContext(pc);
2034 return ret;
2035 }
LTTng 2.0 tools and control repository
This page took 0.106038 seconds and 5 git commands to generate.