+++ /dev/null
-/*
- * Copyright (C) 2011 David Goulet <david.goulet@polymtl.ca>
- * Copyright (C) 2020 Jérémie Galarneau <jeremie.galarneau@efficios.com>
- *
- * SPDX-License-Identifier: GPL-2.0-only
- *
- */
-
-#include <stdint.h>
-#define _LGPL_SOURCE
-#include <inttypes.h>
-#include <popt.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-
-#include <common/mi-lttng.h>
-#include <common/time.h>
-#include <common/tracker.h>
-#include <lttng/domain-internal.h>
-#include <lttng/lttng.h>
-
-#include "../command.h"
-
-static int opt_userspace;
-static int opt_kernel;
-static int opt_jul;
-static int opt_log4j;
-static int opt_python;
-static char *opt_channel;
-static int opt_domain;
-static int opt_fields;
-static int opt_syscall;
-
-const char *indent4 = " ";
-const char *indent6 = " ";
-const char *indent8 = " ";
-
-#ifdef LTTNG_EMBED_HELP
-static const char help_msg[] =
-#include <lttng-list.1.h>
-;
-#endif
-
-enum {
- OPT_HELP = 1,
- OPT_USERSPACE,
- OPT_LIST_OPTIONS,
-};
-
-static struct lttng_handle *the_handle;
-static struct mi_writer *the_writer;
-
-/* Only set when listing a single session. */
-static struct lttng_session the_listed_session;
-
-static struct poptOption long_options[] = {
- /* longName, shortName, argInfo, argPtr, value, descrip, argDesc */
- {"help", 'h', POPT_ARG_NONE, 0, OPT_HELP, 0, 0},
- {"kernel", 'k', POPT_ARG_VAL, &opt_kernel, 1, 0, 0},
- {"jul", 'j', POPT_ARG_VAL, &opt_jul, 1, 0, 0},
- {"log4j", 'l', POPT_ARG_VAL, &opt_log4j, 1, 0, 0},
- {"python", 'p', POPT_ARG_VAL, &opt_python, 1, 0, 0},
- {"userspace", 'u', POPT_ARG_NONE, 0, OPT_USERSPACE, 0, 0},
- {"channel", 'c', POPT_ARG_STRING, &opt_channel, 0, 0, 0},
- {"domain", 'd', POPT_ARG_VAL, &opt_domain, 1, 0, 0},
- {"fields", 'f', POPT_ARG_VAL, &opt_fields, 1, 0, 0},
- {"syscall", 'S', POPT_ARG_VAL, &opt_syscall, 1, 0, 0},
- {"list-options", 0, POPT_ARG_NONE, NULL, OPT_LIST_OPTIONS, NULL, NULL},
- {0, 0, 0, 0, 0, 0, 0}
-};
-
-/*
- * Get command line from /proc for a specific pid.
- *
- * On success, return an allocated string pointer to the proc cmdline.
- * On error, return NULL.
- */
-static char *get_cmdline_by_pid(pid_t pid)
-{
- int ret;
- FILE *fp = NULL;
- char *cmdline = NULL;
- /* Can't go bigger than /proc/LTTNG_MAX_PID/cmdline */
- char path[sizeof("/proc//cmdline") + sizeof(LTTNG_MAX_PID_STR) - 1];
-
- snprintf(path, sizeof(path), "/proc/%d/cmdline", pid);
- fp = fopen(path, "r");
- if (fp == NULL) {
- goto end;
- }
-
- /* Caller must free() *cmdline */
- cmdline = zmalloc(PATH_MAX);
- if (!cmdline) {
- PERROR("malloc cmdline");
- goto end;
- }
- ret = fread(cmdline, 1, PATH_MAX, fp);
- if (ret < 0) {
- PERROR("fread proc list");
- }
-
-end:
- if (fp) {
- fclose(fp);
- }
- return cmdline;
-}
-
-static
-const char *active_string(int value)
-{
- switch (value) {
- case 0: return "inactive";
- case 1: return "active";
- case -1: return "";
- default: return NULL;
- }
-}
-
-static const char *snapshot_string(int value)
-{
- switch (value) {
- case 1:
- return " snapshot";
- default:
- return "";
- }
-}
-
-static
-const char *enabled_string(int value)
-{
- switch (value) {
- case 0: return " [disabled]";
- case 1: return " [enabled]";
- case -1: return "";
- default: return NULL;
- }
-}
-
-static
-const char *safe_string(const char *str)
-{
- return str ? str : "";
-}
-
-static const char *logleveltype_string(enum lttng_loglevel_type value)
-{
- switch (value) {
- case LTTNG_EVENT_LOGLEVEL_ALL:
- return ":";
- case LTTNG_EVENT_LOGLEVEL_RANGE:
- return " <=";
- case LTTNG_EVENT_LOGLEVEL_SINGLE:
- return " ==";
- default:
- return " <<TYPE UNKN>>";
- }
-}
-
-static const char *bitness_event(enum lttng_event_flag flags)
-{
- if (flags & LTTNG_EVENT_FLAG_SYSCALL_32) {
- if (flags & LTTNG_EVENT_FLAG_SYSCALL_64) {
- return " [32/64-bit]";
- } else {
- return " [32-bit]";
- }
- } else if (flags & LTTNG_EVENT_FLAG_SYSCALL_64) {
- return " [64-bit]";
- } else {
- return "";
- }
-}
-
-/*
- * Get exclusion names message for a single event.
- *
- * Returned pointer must be freed by caller. Returns NULL on error.
- */
-static char *get_exclusion_names_msg(struct lttng_event *event)
-{
- int ret;
- int exclusion_count;
- char *exclusion_msg = NULL;
- char *at;
- size_t i;
- const char * const exclusion_fmt = " [exclusions: ";
- const size_t exclusion_fmt_len = strlen(exclusion_fmt);
-
- exclusion_count = lttng_event_get_exclusion_name_count(event);
- if (exclusion_count < 0) {
- goto end;
- } else if (exclusion_count == 0) {
- /*
- * No exclusions: return copy of empty string so that
- * it can be freed by caller.
- */
- exclusion_msg = strdup("");
- goto end;
- }
-
- /*
- * exclusion_msg's size is bounded by the exclusion_fmt string,
- * a comma per entry, the entry count (fixed-size), a closing
- * bracket, and a trailing \0.
- */
- exclusion_msg = malloc(exclusion_count +
- exclusion_count * LTTNG_SYMBOL_NAME_LEN +
- exclusion_fmt_len + 1);
- if (!exclusion_msg) {
- goto end;
- }
-
- at = strcpy(exclusion_msg, exclusion_fmt) + exclusion_fmt_len;
- for (i = 0; i < exclusion_count; ++i) {
- const char *name;
-
- /* Append comma between exclusion names */
- if (i > 0) {
- *at = ',';
- at++;
- }
-
- ret = lttng_event_get_exclusion_name(event, i, &name);
- if (ret) {
- /* Prints '?' on local error; should never happen */
- *at = '?';
- at++;
- continue;
- }
-
- /* Append exclusion name */
- at += sprintf(at, "%s", name);
- }
-
- /* This also puts a final '\0' at the end of exclusion_msg */
- strcpy(at, "]");
-
-end:
- return exclusion_msg;
-}
-
-static void print_userspace_probe_location(struct lttng_event *event)
-{
- const struct lttng_userspace_probe_location *location;
- const struct lttng_userspace_probe_location_lookup_method *lookup_method;
- enum lttng_userspace_probe_location_lookup_method_type lookup_type;
-
- location = lttng_event_get_userspace_probe_location(event);
- if (!location) {
- MSG("Event has no userspace probe location");
- return;
- }
-
- lookup_method = lttng_userspace_probe_location_get_lookup_method(location);
- if (!lookup_method) {
- MSG("Event has no userspace probe location lookup method");
- return;
- }
-
- MSG("%s%s (type: userspace-probe)%s", indent6, event->name, enabled_string(event->enabled));
-
- lookup_type = lttng_userspace_probe_location_lookup_method_get_type(lookup_method);
-
- switch (lttng_userspace_probe_location_get_type(location)) {
- case LTTNG_USERSPACE_PROBE_LOCATION_TYPE_UNKNOWN:
- MSG("%sType: Unknown", indent8);
- break;
- case LTTNG_USERSPACE_PROBE_LOCATION_TYPE_FUNCTION:
- {
- const char *function_name;
- char *binary_path;
-
- MSG("%sType: Function", indent8);
- function_name = lttng_userspace_probe_location_function_get_function_name(location);
- binary_path = realpath(lttng_userspace_probe_location_function_get_binary_path(location), NULL);
-
- MSG("%sBinary path: %s", indent8, binary_path ? binary_path : "NULL");
- MSG("%sFunction: %s()", indent8, function_name ? function_name : "NULL");
- switch (lookup_type) {
- case LTTNG_USERSPACE_PROBE_LOCATION_LOOKUP_METHOD_TYPE_FUNCTION_ELF:
- MSG("%sLookup method: ELF", indent8);
- break;
- case LTTNG_USERSPACE_PROBE_LOCATION_LOOKUP_METHOD_TYPE_FUNCTION_DEFAULT:
- MSG("%sLookup method: default", indent8);
- break;
- default:
- MSG("%sLookup method: INVALID LOOKUP TYPE ENCOUNTERED", indent8);
- break;
- }
-
- free(binary_path);
- break;
- }
- case LTTNG_USERSPACE_PROBE_LOCATION_TYPE_TRACEPOINT:
- {
- const char *probe_name, *provider_name;
- char *binary_path;
-
- MSG("%sType: Tracepoint", indent8);
- probe_name = lttng_userspace_probe_location_tracepoint_get_probe_name(location);
- provider_name = lttng_userspace_probe_location_tracepoint_get_provider_name(location);
- binary_path = realpath(lttng_userspace_probe_location_tracepoint_get_binary_path(location), NULL);
- MSG("%sBinary path: %s", indent8, binary_path ? binary_path : "NULL");
- MSG("%sTracepoint: %s:%s", indent8, provider_name ? provider_name : "NULL", probe_name ? probe_name : "NULL");
- switch (lookup_type) {
- case LTTNG_USERSPACE_PROBE_LOCATION_LOOKUP_METHOD_TYPE_TRACEPOINT_SDT:
- MSG("%sLookup method: SDT", indent8);
- break;
- default:
- MSG("%sLookup method: INVALID LOOKUP TYPE ENCOUNTERED", indent8);
- break;
- }
-
- free(binary_path);
- break;
- }
- default:
- ERR("Invalid probe type encountered");
- }
-}
-
-/*
- * Pretty print single event.
- */
-static void print_events(struct lttng_event *event)
-{
- int ret;
- const char *filter_str;
- char *filter_msg = NULL;
- char *exclusion_msg = NULL;
-
- ret = lttng_event_get_filter_expression(event, &filter_str);
-
- if (ret) {
- filter_msg = strdup(" [failed to retrieve filter]");
- } else if (filter_str) {
- const char * const filter_fmt = " [filter: '%s']";
-
- filter_msg = malloc(strlen(filter_str) +
- strlen(filter_fmt) + 1);
- if (filter_msg) {
- sprintf(filter_msg, filter_fmt,
- filter_str);
- }
- }
-
- exclusion_msg = get_exclusion_names_msg(event);
- if (!exclusion_msg) {
- exclusion_msg = strdup(" [failed to retrieve exclusions]");
- }
-
- switch (event->type) {
- case LTTNG_EVENT_TRACEPOINT:
- {
- if (event->loglevel != -1) {
- MSG("%s%s (loglevel%s %s (%d)) (type: tracepoint)%s%s%s",
- indent6, event->name,
- logleveltype_string(
- event->loglevel_type),
- mi_lttng_loglevel_string(
- event->loglevel,
- the_handle->domain.type),
- event->loglevel,
- enabled_string(event->enabled),
- safe_string(exclusion_msg),
- safe_string(filter_msg));
- } else {
- MSG("%s%s (type: tracepoint)%s%s%s",
- indent6,
- event->name,
- enabled_string(event->enabled),
- safe_string(exclusion_msg),
- safe_string(filter_msg));
- }
- break;
- }
- case LTTNG_EVENT_FUNCTION:
- MSG("%s%s (type: function)%s%s", indent6,
- event->name, enabled_string(event->enabled),
- safe_string(filter_msg));
- if (event->attr.probe.addr != 0) {
- MSG("%saddr: 0x%" PRIx64, indent8, event->attr.probe.addr);
- } else {
- MSG("%soffset: 0x%" PRIx64, indent8, event->attr.probe.offset);
- MSG("%ssymbol: %s", indent8, event->attr.probe.symbol_name);
- }
- break;
- case LTTNG_EVENT_PROBE:
- MSG("%s%s (type: probe)%s%s", indent6,
- event->name, enabled_string(event->enabled),
- safe_string(filter_msg));
- if (event->attr.probe.addr != 0) {
- MSG("%saddr: 0x%" PRIx64, indent8, event->attr.probe.addr);
- } else {
- MSG("%soffset: 0x%" PRIx64, indent8, event->attr.probe.offset);
- MSG("%ssymbol: %s", indent8, event->attr.probe.symbol_name);
- }
- break;
- case LTTNG_EVENT_USERSPACE_PROBE:
- print_userspace_probe_location(event);
- break;
- case LTTNG_EVENT_FUNCTION_ENTRY:
- MSG("%s%s (type: function)%s%s", indent6,
- event->name, enabled_string(event->enabled),
- safe_string(filter_msg));
- MSG("%ssymbol: \"%s\"", indent8, event->attr.ftrace.symbol_name);
- break;
- case LTTNG_EVENT_SYSCALL:
- MSG("%s%s%s%s%s%s", indent6, event->name,
- (opt_syscall ? "" : " (type:syscall)"),
- enabled_string(event->enabled),
- bitness_event(event->flags),
- safe_string(filter_msg));
- break;
- case LTTNG_EVENT_NOOP:
- MSG("%s (type: noop)%s%s", indent6,
- enabled_string(event->enabled),
- safe_string(filter_msg));
- break;
- case LTTNG_EVENT_ALL:
- /* Fall-through. */
- default:
- /* We should never have "all" events in list. */
- abort();
- break;
- }
-
- free(filter_msg);
- free(exclusion_msg);
-}
-
-static const char *field_type(struct lttng_event_field *field)
-{
- switch(field->type) {
- case LTTNG_EVENT_FIELD_INTEGER:
- return "integer";
- case LTTNG_EVENT_FIELD_ENUM:
- return "enum";
- case LTTNG_EVENT_FIELD_FLOAT:
- return "float";
- case LTTNG_EVENT_FIELD_STRING:
- return "string";
- case LTTNG_EVENT_FIELD_OTHER:
- default: /* fall-through */
- return "unknown";
- }
-}
-
-/*
- * Pretty print single event fields.
- */
-static void print_event_field(struct lttng_event_field *field)
-{
- if (!field->field_name[0]) {
- return;
- }
- MSG("%sfield: %s (%s)%s", indent8, field->field_name,
- field_type(field), field->nowrite ? " [no write]" : "");
-}
-
-/*
- * Machine interface
- * Jul and ust event listing
- */
-static int mi_list_agent_ust_events(struct lttng_event *events, int count,
- struct lttng_domain *domain)
-{
- int ret, i;
- pid_t cur_pid = 0;
- char *cmdline = NULL;
- int pid_element_open = 0;
-
- /* Open domains element */
- ret = mi_lttng_domains_open(the_writer);
- if (ret) {
- goto end;
- }
-
- /* Write domain */
- ret = mi_lttng_domain(the_writer, domain, 1);
- if (ret) {
- goto end;
- }
-
- /* Open pids element element */
- ret = mi_lttng_pids_open(the_writer);
- if (ret) {
- goto end;
- }
-
- for (i = 0; i < count; i++) {
- if (cur_pid != events[i].pid) {
- if (pid_element_open) {
- /* Close the previous events and pid element */
- ret = mi_lttng_close_multi_element(
- the_writer, 2);
- if (ret) {
- goto end;
- }
- pid_element_open = 0;
- }
-
- cur_pid = events[i].pid;
- cmdline = get_cmdline_by_pid(cur_pid);
- if (!cmdline) {
- ret = CMD_ERROR;
- goto end;
- }
-
- if (!pid_element_open) {
- /* Open and write a pid element */
- ret = mi_lttng_pid(the_writer, cur_pid, cmdline,
- 1);
- if (ret) {
- goto error;
- }
-
- /* Open events element */
- ret = mi_lttng_events_open(the_writer);
- if (ret) {
- goto error;
- }
-
- pid_element_open = 1;
- }
- free(cmdline);
- }
-
- /* Write an event */
- ret = mi_lttng_event(the_writer, &events[i], 0,
- the_handle->domain.type);
- if (ret) {
- goto end;
- }
- }
-
- /* Close pids */
- ret = mi_lttng_writer_close_element(the_writer);
- if (ret) {
- goto end;
- }
-
- /* Close domain, domains */
- ret = mi_lttng_close_multi_element(the_writer, 2);
-end:
- return ret;
-error:
- free(cmdline);
- return ret;
-}
-
-static int list_agent_events(void)
-{
- int i, size, ret = CMD_SUCCESS;
- struct lttng_domain domain;
- struct lttng_handle *handle = NULL;
- struct lttng_event *event_list = NULL;
- pid_t cur_pid = 0;
- char *cmdline = NULL;
- const char *agent_domain_str;
-
- memset(&domain, 0, sizeof(domain));
- if (opt_jul) {
- domain.type = LTTNG_DOMAIN_JUL;
- } else if (opt_log4j) {
- domain.type = LTTNG_DOMAIN_LOG4J;
- } else if (opt_python) {
- domain.type = LTTNG_DOMAIN_PYTHON;
- } else {
- ERR("Invalid agent domain selected.");
- ret = CMD_ERROR;
- goto error;
- }
-
- agent_domain_str = lttng_domain_type_str(domain.type);
-
- DBG("Getting %s tracing events", agent_domain_str);
-
- handle = lttng_create_handle(NULL, &domain);
- if (handle == NULL) {
- ret = CMD_ERROR;
- goto end;
- }
-
- size = lttng_list_tracepoints(handle, &event_list);
- if (size < 0) {
- ERR("Unable to list %s events: %s", agent_domain_str,
- lttng_strerror(size));
- ret = CMD_ERROR;
- goto end;
- }
-
- if (lttng_opt_mi) {
- /* Mi print */
- ret = mi_list_agent_ust_events(event_list, size, &domain);
- if (ret) {
- ret = CMD_ERROR;
- goto error;
- }
- } else {
- /* Pretty print */
- MSG("%s events (Logger name):\n-------------------------",
- agent_domain_str);
-
- if (size == 0) {
- MSG("None");
- }
-
- for (i = 0; i < size; i++) {
- if (cur_pid != event_list[i].pid) {
- cur_pid = event_list[i].pid;
- cmdline = get_cmdline_by_pid(cur_pid);
- if (cmdline == NULL) {
- ret = CMD_ERROR;
- goto error;
- }
- MSG("\nPID: %d - Name: %s", cur_pid, cmdline);
- free(cmdline);
- }
- MSG("%s- %s", indent6, event_list[i].name);
- }
-
- MSG("");
- }
-
-error:
- free(event_list);
-end:
- lttng_destroy_handle(handle);
- return ret;
-}
-
-/*
- * Ask session daemon for all user space tracepoints available.
- */
-static int list_ust_events(void)
-{
- int i, size, ret = CMD_SUCCESS;
- struct lttng_domain domain;
- struct lttng_handle *handle;
- struct lttng_event *event_list = NULL;
- pid_t cur_pid = 0;
- char *cmdline = NULL;
-
- memset(&domain, 0, sizeof(domain));
-
- DBG("Getting UST tracing events");
-
- domain.type = LTTNG_DOMAIN_UST;
-
- handle = lttng_create_handle(NULL, &domain);
- if (handle == NULL) {
- ret = CMD_ERROR;
- goto end;
- }
-
- size = lttng_list_tracepoints(handle, &event_list);
- if (size < 0) {
- ERR("Unable to list UST events: %s", lttng_strerror(size));
- ret = CMD_ERROR;
- goto error;
- }
-
- if (lttng_opt_mi) {
- /* Mi print */
- ret = mi_list_agent_ust_events(event_list, size, &domain);
- } else {
- /* Pretty print */
- MSG("UST events:\n-------------");
-
- if (size == 0) {
- MSG("None");
- }
-
- for (i = 0; i < size; i++) {
- if (cur_pid != event_list[i].pid) {
- cur_pid = event_list[i].pid;
- cmdline = get_cmdline_by_pid(cur_pid);
- if (cmdline == NULL) {
- ret = CMD_ERROR;
- goto error;
- }
- MSG("\nPID: %d - Name: %s", cur_pid, cmdline);
- free(cmdline);
- }
- print_events(&event_list[i]);
- }
-
- MSG("");
- }
-
-error:
- free(event_list);
-end:
- lttng_destroy_handle(handle);
- return ret;
-}
-
-/*
- * Machine interface
- * List all ust event with their fields
- */
-static int mi_list_ust_event_fields(struct lttng_event_field *fields, int count,
- struct lttng_domain *domain)
-{
- int ret, i;
- pid_t cur_pid = 0;
- char *cmdline = NULL;
- int pid_element_open = 0;
- int event_element_open = 0;
- struct lttng_event cur_event;
-
- memset(&cur_event, 0, sizeof(cur_event));
-
- /* Open domains element */
- ret = mi_lttng_domains_open(the_writer);
- if (ret) {
- goto end;
- }
-
- /* Write domain */
- ret = mi_lttng_domain(the_writer, domain, 1);
- if (ret) {
- goto end;
- }
-
- /* Open pids element */
- ret = mi_lttng_pids_open(the_writer);
- if (ret) {
- goto end;
- }
-
- for (i = 0; i < count; i++) {
- if (cur_pid != fields[i].event.pid) {
- if (pid_element_open) {
- if (event_element_open) {
- /* Close the previous field element and event. */
- ret = mi_lttng_close_multi_element(
- the_writer, 2);
- if (ret) {
- goto end;
- }
- event_element_open = 0;
- }
- /* Close the previous events, pid element */
- ret = mi_lttng_close_multi_element(
- the_writer, 2);
- if (ret) {
- goto end;
- }
- pid_element_open = 0;
- }
-
- cur_pid = fields[i].event.pid;
- cmdline = get_cmdline_by_pid(cur_pid);
- if (!pid_element_open) {
- /* Open and write a pid element */
- ret = mi_lttng_pid(the_writer, cur_pid, cmdline,
- 1);
- if (ret) {
- goto error;
- }
-
- /* Open events element */
- ret = mi_lttng_events_open(the_writer);
- if (ret) {
- goto error;
- }
- pid_element_open = 1;
- }
- free(cmdline);
- /* Wipe current event since we are about to print a new PID. */
- memset(&cur_event, 0, sizeof(cur_event));
- }
-
- if (strcmp(cur_event.name, fields[i].event.name) != 0) {
- if (event_element_open) {
- /* Close the previous fields element and the previous event */
- ret = mi_lttng_close_multi_element(
- the_writer, 2);
- if (ret) {
- goto end;
- }
- event_element_open = 0;
- }
-
- memcpy(&cur_event, &fields[i].event,
- sizeof(cur_event));
-
- if (!event_element_open) {
- /* Open and write the event */
- ret = mi_lttng_event(the_writer, &cur_event, 1,
- the_handle->domain.type);
- if (ret) {
- goto end;
- }
-
- /* Open a fields element */
- ret = mi_lttng_event_fields_open(the_writer);
- if (ret) {
- goto end;
- }
- event_element_open = 1;
- }
- }
-
- /* Print the event_field */
- ret = mi_lttng_event_field(the_writer, &fields[i]);
- if (ret) {
- goto end;
- }
- }
-
- /* Close pids, domain, domains */
- ret = mi_lttng_close_multi_element(the_writer, 3);
-end:
- return ret;
-error:
- free(cmdline);
- return ret;
-}
-
-/*
- * Ask session daemon for all user space tracepoint fields available.
- */
-static int list_ust_event_fields(void)
-{
- int i, size, ret = CMD_SUCCESS;
- struct lttng_domain domain;
- struct lttng_handle *handle;
- struct lttng_event_field *event_field_list;
- pid_t cur_pid = 0;
- char *cmdline = NULL;
-
- struct lttng_event cur_event;
-
- memset(&domain, 0, sizeof(domain));
- memset(&cur_event, 0, sizeof(cur_event));
-
- DBG("Getting UST tracing event fields");
-
- domain.type = LTTNG_DOMAIN_UST;
-
- handle = lttng_create_handle(NULL, &domain);
- if (handle == NULL) {
- ret = CMD_ERROR;
- goto end;
- }
-
- size = lttng_list_tracepoint_fields(handle, &event_field_list);
- if (size < 0) {
- ERR("Unable to list UST event fields: %s", lttng_strerror(size));
- ret = CMD_ERROR;
- goto end;
- }
-
- if (lttng_opt_mi) {
- /* Mi print */
- ret = mi_list_ust_event_fields(event_field_list, size, &domain);
- if (ret) {
- ret = CMD_ERROR;
- goto error;
- }
- } else {
- /* Pretty print */
- MSG("UST events:\n-------------");
-
- if (size == 0) {
- MSG("None");
- }
-
- for (i = 0; i < size; i++) {
- if (cur_pid != event_field_list[i].event.pid) {
- cur_pid = event_field_list[i].event.pid;
- cmdline = get_cmdline_by_pid(cur_pid);
- if (cmdline == NULL) {
- ret = CMD_ERROR;
- goto error;
- }
- MSG("\nPID: %d - Name: %s", cur_pid, cmdline);
- free(cmdline);
- /* Wipe current event since we are about to print a new PID. */
- memset(&cur_event, 0, sizeof(cur_event));
- }
- if (strcmp(cur_event.name, event_field_list[i].event.name) != 0) {
- print_events(&event_field_list[i].event);
- memcpy(&cur_event, &event_field_list[i].event,
- sizeof(cur_event));
- }
- print_event_field(&event_field_list[i]);
- }
-
- MSG("");
- }
-
-error:
- free(event_field_list);
-end:
- lttng_destroy_handle(handle);
- return ret;
-}
-
-/*
- * Machine interface
- * Print a list of kernel events
- */
-static int mi_list_kernel_events(struct lttng_event *events, int count,
- struct lttng_domain *domain)
-{
- int ret, i;
-
- /* Open domains element */
- ret = mi_lttng_domains_open(the_writer);
- if (ret) {
- goto end;
- }
-
- /* Write domain */
- ret = mi_lttng_domain(the_writer, domain, 1);
- if (ret) {
- goto end;
- }
-
- /* Open events */
- ret = mi_lttng_events_open(the_writer);
- if (ret) {
- goto end;
- }
-
- for (i = 0; i < count; i++) {
- ret = mi_lttng_event(the_writer, &events[i], 0,
- the_handle->domain.type);
- if (ret) {
- goto end;
- }
- }
-
- /* close events, domain and domains */
- ret = mi_lttng_close_multi_element(the_writer, 3);
- if (ret) {
- goto end;
- }
-
-end:
- return ret;
-}
-
-/*
- * Ask for all trace events in the kernel
- */
-static int list_kernel_events(void)
-{
- int i, size, ret = CMD_SUCCESS;
- struct lttng_domain domain;
- struct lttng_handle *handle;
- struct lttng_event *event_list;
-
- memset(&domain, 0, sizeof(domain));
-
- DBG("Getting kernel tracing events");
-
- domain.type = LTTNG_DOMAIN_KERNEL;
-
- handle = lttng_create_handle(NULL, &domain);
- if (handle == NULL) {
- ret = CMD_ERROR;
- goto error;
- }
-
- size = lttng_list_tracepoints(handle, &event_list);
- if (size < 0) {
- ERR("Unable to list kernel events: %s", lttng_strerror(size));
- lttng_destroy_handle(handle);
- return CMD_ERROR;
- }
-
- if (lttng_opt_mi) {
- /* Mi print */
- ret = mi_list_kernel_events(event_list, size, &domain);
- if (ret) {
- ret = CMD_ERROR;
- goto end;
- }
- } else {
- MSG("Kernel events:\n-------------");
-
- for (i = 0; i < size; i++) {
- print_events(&event_list[i]);
- }
-
- MSG("");
- }
-
-end:
- free(event_list);
-
- lttng_destroy_handle(handle);
- return ret;
-
-error:
- lttng_destroy_handle(handle);
- return ret;
-}
-
-/*
- * Machine interface
- * Print a list of system calls.
- */
-static int mi_list_syscalls(struct lttng_event *events, int count)
-{
- int ret, i;
-
- /* Open events */
- ret = mi_lttng_events_open(the_writer);
- if (ret) {
- goto end;
- }
-
- for (i = 0; i < count; i++) {
- ret = mi_lttng_event(the_writer, &events[i], 0,
- the_handle->domain.type);
- if (ret) {
- goto end;
- }
- }
-
- /* Close events. */
- ret = mi_lttng_writer_close_element(the_writer);
- if (ret) {
- goto end;
- }
-
-end:
- return ret;
-}
-
-/*
- * Ask for kernel system calls.
- */
-static int list_syscalls(void)
-{
- int i, size, ret = CMD_SUCCESS;
- struct lttng_event *event_list;
-
- DBG("Getting kernel system call events");
-
- size = lttng_list_syscalls(&event_list);
- if (size < 0) {
- ERR("Unable to list system calls: %s", lttng_strerror(size));
- ret = CMD_ERROR;
- goto error;
- }
-
- if (lttng_opt_mi) {
- /* Mi print */
- ret = mi_list_syscalls(event_list, size);
- if (ret) {
- ret = CMD_ERROR;
- goto end;
- }
- } else {
- MSG("System calls:\n-------------");
-
- for (i = 0; i < size; i++) {
- print_events(&event_list[i]);
- }
-
- MSG("");
- }
-
-end:
- free(event_list);
- return ret;
-
-error:
- return ret;
-}
-
-/*
- * Machine Interface
- * Print a list of agent events
- */
-static int mi_list_session_agent_events(struct lttng_event *events, int count)
-{
- int ret, i;
-
- /* Open events element */
- ret = mi_lttng_events_open(the_writer);
- if (ret) {
- goto end;
- }
-
- for (i = 0; i < count; i++) {
- ret = mi_lttng_event(the_writer, &events[i], 0,
- the_handle->domain.type);
- if (ret) {
- goto end;
- }
- }
-
- /* Close events element */
- ret = mi_lttng_writer_close_element(the_writer);
-
-end:
- return ret;
-}
-
-/*
- * List agent events for a specific session using the handle.
- *
- * Return CMD_SUCCESS on success else a negative value.
- */
-static int list_session_agent_events(void)
-{
- int ret = CMD_SUCCESS, count, i;
- struct lttng_event *events = NULL;
-
- count = lttng_list_events(the_handle, "", &events);
- if (count < 0) {
- ret = CMD_ERROR;
- ERR("%s", lttng_strerror(count));
- goto error;
- }
-
- if (lttng_opt_mi) {
- /* Mi print */
- ret = mi_list_session_agent_events(events, count);
- if (ret) {
- ret = CMD_ERROR;
- goto end;
- }
- } else {
- /* Pretty print */
- MSG("Events (Logger name):\n---------------------");
- if (count == 0) {
- MSG("%sNone\n", indent6);
- goto end;
- }
-
- for (i = 0; i < count; i++) {
- const char *filter_str;
- char *filter_msg = NULL;
- struct lttng_event *event = &events[i];
-
- ret = lttng_event_get_filter_expression(event,
- &filter_str);
- if (ret) {
- filter_msg = strdup(" [failed to retrieve filter]");
- } else if (filter_str) {
- const char * const filter_fmt =
- " [filter: '%s']";
-
- filter_msg = malloc(strlen(filter_str) +
- strlen(filter_fmt) + 1);
- if (filter_msg) {
- sprintf(filter_msg, filter_fmt,
- filter_str);
- }
- }
-
- if (event->loglevel_type !=
- LTTNG_EVENT_LOGLEVEL_ALL) {
- MSG("%s- %s%s (loglevel%s %s)%s", indent4,
- event->name,
- enabled_string(event->enabled),
- logleveltype_string(
- event->loglevel_type),
- mi_lttng_loglevel_string(
- event->loglevel,
- the_handle->domain
- .type),
- safe_string(filter_msg));
- } else {
- MSG("%s- %s%s%s", indent4, event->name,
- enabled_string(event->enabled),
- safe_string(filter_msg));
- }
- free(filter_msg);
- }
-
- MSG("");
- }
-
-end:
- free(events);
-error:
- return ret;
-}
-
-/*
- * Machine interface
- * print a list of event
- */
-static int mi_list_events(struct lttng_event *events, int count)
-{
- int ret, i;
-
- /* Open events element */
- ret = mi_lttng_events_open(the_writer);
- if (ret) {
- goto end;
- }
-
- for (i = 0; i < count; i++) {
- ret = mi_lttng_event(the_writer, &events[i], 0,
- the_handle->domain.type);
- if (ret) {
- goto end;
- }
- }
-
- /* Close events element */
- ret = mi_lttng_writer_close_element(the_writer);
-
-end:
- return ret;
-}
-
-/*
- * List events of channel of session and domain.
- */
-static int list_events(const char *channel_name)
-{
- int ret = CMD_SUCCESS, count, i;
- struct lttng_event *events = NULL;
-
- count = lttng_list_events(the_handle, channel_name, &events);
- if (count < 0) {
- ret = CMD_ERROR;
- ERR("%s", lttng_strerror(count));
- goto error;
- }
-
- if (lttng_opt_mi) {
- /* Mi print */
- ret = mi_list_events(events, count);
- if (ret) {
- ret = CMD_ERROR;
- goto end;
- }
- } else {
- /* Pretty print */
- MSG("\n%sRecording event rules:", indent4);
- if (count == 0) {
- MSG("%sNone\n", indent6);
- goto end;
- }
-
- for (i = 0; i < count; i++) {
- print_events(&events[i]);
- }
-
- MSG("");
- }
-end:
- free(events);
-error:
- return ret;
-}
-
-static
-void print_timer(const char *timer_name, uint32_t space_count, int64_t value)
-{
- uint32_t i;
-
- _MSG("%s%s:", indent6, timer_name);
- for (i = 0; i < space_count; i++) {
- _MSG(" ");
- }
-
- if (value) {
- MSG("%" PRId64 " %s", value, USEC_UNIT);
- } else {
- MSG("inactive");
- }
-}
-
-/*
- * Pretty print channel
- */
-static void print_channel(struct lttng_channel *channel)
-{
- int ret;
- uint64_t discarded_events, lost_packets, monitor_timer_interval;
- int64_t blocking_timeout;
-
- ret = lttng_channel_get_discarded_event_count(channel,
- &discarded_events);
- if (ret) {
- ERR("Failed to retrieve discarded event count of channel");
- return;
- }
-
- ret = lttng_channel_get_lost_packet_count(channel,
- &lost_packets);
- if (ret) {
- ERR("Failed to retrieve lost packet count of channel");
- return;
- }
-
- ret = lttng_channel_get_monitor_timer_interval(channel,
- &monitor_timer_interval);
- if (ret) {
- ERR("Failed to retrieve monitor interval of channel");
- return;
- }
-
- ret = lttng_channel_get_blocking_timeout(channel,
- &blocking_timeout);
- if (ret) {
- ERR("Failed to retrieve blocking timeout of channel");
- return;
- }
-
- MSG("- %s:%s\n", channel->name, enabled_string(channel->enabled));
- MSG("%sAttributes:", indent4);
- MSG("%sEvent-loss mode: %s", indent6, channel->attr.overwrite ? "overwrite" : "discard");
- MSG("%sSub-buffer size: %" PRIu64 " bytes", indent6, channel->attr.subbuf_size);
- MSG("%sSub-buffer count: %" PRIu64, indent6, channel->attr.num_subbuf);
-
- print_timer("Switch timer", 5, channel->attr.switch_timer_interval);
- print_timer("Read timer", 7, channel->attr.read_timer_interval);
- print_timer("Monitor timer", 4, monitor_timer_interval);
-
- if (!channel->attr.overwrite) {
- if (blocking_timeout == -1) {
- MSG("%sBlocking timeout: infinite", indent6);
- } else {
- MSG("%sBlocking timeout: %" PRId64 " %s", indent6,
- blocking_timeout, USEC_UNIT);
- }
- }
-
- MSG("%sTrace file count: %" PRIu64 " per stream", indent6,
- channel->attr.tracefile_count == 0 ?
- 1 : channel->attr.tracefile_count);
- if (channel->attr.tracefile_size != 0 ) {
- MSG("%sTrace file size: %" PRIu64 " bytes", indent6,
- channel->attr.tracefile_size);
- } else {
- MSG("%sTrace file size: %s", indent6, "unlimited");
- }
- switch (channel->attr.output) {
- case LTTNG_EVENT_SPLICE:
- MSG("%sOutput mode: splice", indent6);
- break;
- case LTTNG_EVENT_MMAP:
- MSG("%sOutput mode: mmap", indent6);
- break;
- }
-
- MSG("\n%sStatistics:", indent4);
- if (the_listed_session.snapshot_mode) {
- /*
- * The lost packet count is omitted for sessions in snapshot
- * mode as it is misleading: it would indicate the number of
- * packets that the consumer could not extract during the
- * course of recording the snapshot. It does not have the
- * same meaning as the "regular" lost packet count that
- * would result from the consumer not keeping up with
- * event production in an overwrite-mode channel.
- *
- * A more interesting statistic would be the number of
- * packets lost between the first and last extracted
- * packets of a given snapshot (which prevents most analyses).
- */
- MSG("%sNone", indent6);
- goto skip_stats_printing;
- }
-
- if (!channel->attr.overwrite) {
- MSG("%sDiscarded events: %" PRIu64, indent6, discarded_events);
- } else {
- MSG("%sLost packets: %" PRIu64, indent6, lost_packets);
- }
-skip_stats_printing:
- return;
-}
-
-/*
- * Machine interface
- * Print a list of channel
- *
- */
-static int mi_list_channels(struct lttng_channel *channels, int count,
- const char *channel_name)
-{
- int i, ret;
- unsigned int chan_found = 0;
-
- /* Open channels element */
- ret = mi_lttng_channels_open(the_writer);
- if (ret) {
- goto error;
- }
-
- for (i = 0; i < count; i++) {
- if (channel_name != NULL) {
- if (strncmp(channels[i].name, channel_name, NAME_MAX) == 0) {
- chan_found = 1;
- } else {
- continue;
- }
- }
-
- /* Write channel element and leave it open */
- ret = mi_lttng_channel(the_writer, &channels[i], 1);
- if (ret) {
- goto error;
- }
-
- /* Listing events per channel */
- ret = list_events(channels[i].name);
- if (ret) {
- goto error;
- }
-
- /* Closing the channel element we opened earlier */
- ret = mi_lttng_writer_close_element(the_writer);
- if (ret) {
- goto error;
- }
-
- if (chan_found) {
- break;
- }
- }
-
- /* Close channels element */
- ret = mi_lttng_writer_close_element(the_writer);
- if (ret) {
- goto error;
- }
-
-error:
- return ret;
-}
-
-/*
- * List channel(s) of session and domain.
- *
- * If channel_name is NULL, all channels are listed.
- */
-static int list_channels(const char *channel_name)
-{
- int count, i, ret = CMD_SUCCESS;
- unsigned int chan_found = 0;
- struct lttng_channel *channels = NULL;
-
- DBG("Listing channel(s) (%s)", channel_name ? : "<all>");
-
- count = lttng_list_channels(the_handle, &channels);
- if (count < 0) {
- switch (-count) {
- case LTTNG_ERR_KERN_CHAN_NOT_FOUND:
- if (lttng_opt_mi) {
- /* When printing mi this is not an error
- * but an empty channels element */
- count = 0;
- } else {
- ret = CMD_SUCCESS;
- goto error_channels;
- }
- break;
- default:
- /* We had a real error */
- ret = CMD_ERROR;
- ERR("%s", lttng_strerror(count));
- goto error_channels;
- break;
- }
- }
-
- if (lttng_opt_mi) {
- /* Mi print */
- ret = mi_list_channels(channels, count, channel_name);
- if (ret) {
- ret = CMD_ERROR;
- goto error;
- }
- } else {
- /* Pretty print */
- if (count) {
- MSG("Channels:\n-------------");
- }
-
- for (i = 0; i < count; i++) {
- if (channel_name != NULL) {
- if (strncmp(channels[i].name, channel_name, NAME_MAX) == 0) {
- chan_found = 1;
- } else {
- continue;
- }
- }
- print_channel(&channels[i]);
-
- /* Listing events per channel */
- ret = list_events(channels[i].name);
- if (ret) {
- goto error;
- }
-
- if (chan_found) {
- break;
- }
- }
-
- if (!chan_found && channel_name != NULL) {
- ret = CMD_ERROR;
- ERR("Channel %s not found", channel_name);
- goto error;
- }
- }
-error:
- free(channels);
-
-error_channels:
- return ret;
-}
-
-static const char *get_capitalized_process_attr_str(enum lttng_process_attr process_attr)
-{
- switch (process_attr) {
- case LTTNG_PROCESS_ATTR_PROCESS_ID:
- return "Process ID";
- case LTTNG_PROCESS_ATTR_VIRTUAL_PROCESS_ID:
- return "Virtual process ID";
- case LTTNG_PROCESS_ATTR_USER_ID:
- return "User ID";
- case LTTNG_PROCESS_ATTR_VIRTUAL_USER_ID:
- return "Virtual user ID";
- case LTTNG_PROCESS_ATTR_GROUP_ID:
- return "Group ID";
- case LTTNG_PROCESS_ATTR_VIRTUAL_GROUP_ID:
- return "Virtual group ID";
- default:
- return "Unknown";
- }
- return NULL;
-}
-
-static int handle_process_attr_status(enum lttng_process_attr process_attr,
- enum lttng_process_attr_tracker_handle_status status)
-{
- int ret = CMD_SUCCESS;
-
- switch (status) {
- case LTTNG_PROCESS_ATTR_TRACKER_HANDLE_STATUS_INVALID_TRACKING_POLICY:
- case LTTNG_PROCESS_ATTR_TRACKER_HANDLE_STATUS_OK:
- /* Carry on. */
- break;
- case LTTNG_PROCESS_ATTR_TRACKER_HANDLE_STATUS_COMMUNICATION_ERROR:
- ERR("Communication occurred while fetching %s tracker",
- lttng_process_attr_to_string(process_attr));
- ret = CMD_ERROR;
- break;
- case LTTNG_PROCESS_ATTR_TRACKER_HANDLE_STATUS_SESSION_DOES_NOT_EXIST:
- ERR("Failed to get the inclusion set of the %s tracker: session `%s` no longer exists",
- lttng_process_attr_to_string(process_attr),
- the_handle->session_name);
- ret = CMD_ERROR;
- break;
- default:
- ERR("Unknown error occurred while fetching the inclusion set of the %s tracker",
- lttng_process_attr_to_string(process_attr));
- ret = CMD_ERROR;
- break;
- }
-
- return ret;
-}
-
-static int mi_output_empty_tracker(enum lttng_process_attr process_attr)
-{
- int ret;
-
- ret = mi_lttng_process_attribute_tracker_open(the_writer, process_attr);
- if (ret) {
- goto end;
- }
-
- ret = mi_lttng_close_multi_element(the_writer, 2);
-end:
- return ret;
-}
-
-static inline bool is_value_type_name(
- enum lttng_process_attr_value_type value_type)
-{
- return value_type == LTTNG_PROCESS_ATTR_VALUE_TYPE_USER_NAME ||
- value_type == LTTNG_PROCESS_ATTR_VALUE_TYPE_GROUP_NAME;
-}
-
-/*
- * List a process attribute tracker for a session and domain tuple.
- */
-static int list_process_attr_tracker(enum lttng_process_attr process_attr)
-{
- int ret = 0;
- unsigned int count, i;
- enum lttng_tracking_policy policy;
- enum lttng_error_code ret_code;
- enum lttng_process_attr_tracker_handle_status handle_status;
- enum lttng_process_attr_values_status values_status;
- const struct lttng_process_attr_values *values;
- struct lttng_process_attr_tracker_handle *tracker_handle = NULL;
-
- ret_code = lttng_session_get_tracker_handle(the_handle->session_name,
- the_handle->domain.type, process_attr, &tracker_handle);
- if (ret_code != LTTNG_OK) {
- ERR("Failed to get process attribute tracker handle: %s",
- lttng_strerror(ret_code));
- ret = CMD_ERROR;
- goto end;
- }
-
- handle_status = lttng_process_attr_tracker_handle_get_inclusion_set(
- tracker_handle, &values);
- ret = handle_process_attr_status(process_attr, handle_status);
- if (ret != CMD_SUCCESS) {
- goto end;
- }
-
- handle_status = lttng_process_attr_tracker_handle_get_tracking_policy(
- tracker_handle, &policy);
- ret = handle_process_attr_status(process_attr, handle_status);
- if (ret != CMD_SUCCESS) {
- goto end;
- }
-
- {
- char *process_attr_name;
- const int print_ret = asprintf(&process_attr_name, "%ss:",
- get_capitalized_process_attr_str(process_attr));
-
- if (print_ret == -1) {
- ret = CMD_FATAL;
- goto end;
- }
- _MSG(" %-22s", process_attr_name);
- free(process_attr_name);
- }
- switch (policy) {
- case LTTNG_TRACKING_POLICY_INCLUDE_SET:
- break;
- case LTTNG_TRACKING_POLICY_EXCLUDE_ALL:
- if (the_writer) {
- mi_output_empty_tracker(process_attr);
- }
- MSG("none");
- ret = CMD_SUCCESS;
- goto end;
- case LTTNG_TRACKING_POLICY_INCLUDE_ALL:
- MSG("all");
- ret = CMD_SUCCESS;
- goto end;
- default:
- ERR("Unknown tracking policy encoutered while listing the %s process attribute tracker of session `%s`",
- lttng_process_attr_to_string(process_attr),
- the_handle->session_name);
- ret = CMD_FATAL;
- goto end;
- }
-
- values_status = lttng_process_attr_values_get_count(values, &count);
- if (values_status != LTTNG_PROCESS_ATTR_VALUES_STATUS_OK) {
- ERR("Failed to get the count of values in the inclusion set of the %s process attribute tracker of session `%s`",
- lttng_process_attr_to_string(process_attr),
- the_handle->session_name);
- ret = CMD_FATAL;
- goto end;
- }
-
- if (count == 0) {
- /* Functionally equivalent to the 'exclude all' policy. */
- if (the_writer) {
- mi_output_empty_tracker(process_attr);
- }
- MSG("none");
- ret = CMD_SUCCESS;
- goto end;
- }
-
- /* Mi tracker_id element */
- if (the_writer) {
- /* Open tracker_id and targets elements */
- ret = mi_lttng_process_attribute_tracker_open(
- the_writer, process_attr);
- if (ret) {
- goto end;
- }
- }
-
- for (i = 0; i < count; i++) {
- const enum lttng_process_attr_value_type value_type =
- lttng_process_attr_values_get_type_at_index(
- values, i);
- int64_t integral_value = INT64_MAX;
- const char *name = "error";
-
- if (i >= 1) {
- _MSG(", ");
- }
- switch (value_type) {
- case LTTNG_PROCESS_ATTR_VALUE_TYPE_PID:
- {
- pid_t pid;
-
- values_status = lttng_process_attr_values_get_pid_at_index(
- values, i, &pid);
- integral_value = (int64_t) pid;
- break;
- }
- case LTTNG_PROCESS_ATTR_VALUE_TYPE_UID:
- {
- uid_t uid;
-
- values_status = lttng_process_attr_values_get_uid_at_index(
- values, i, &uid);
- integral_value = (int64_t) uid;
- break;
- }
- case LTTNG_PROCESS_ATTR_VALUE_TYPE_GID:
- {
- gid_t gid;
-
- values_status = lttng_process_attr_values_get_gid_at_index(
- values, i, &gid);
- integral_value = (int64_t) gid;
- break;
- }
- case LTTNG_PROCESS_ATTR_VALUE_TYPE_USER_NAME:
- values_status = lttng_process_attr_values_get_user_name_at_index(
- values, i, &name);
- break;
- case LTTNG_PROCESS_ATTR_VALUE_TYPE_GROUP_NAME:
- values_status = lttng_process_attr_values_get_group_name_at_index(
- values, i, &name);
- break;
- default:
- ret = CMD_ERROR;
- goto end;
- }
-
- if (values_status != LTTNG_PROCESS_ATTR_VALUES_STATUS_OK) {
- /*
- * Not possible given the current liblttng-ctl
- * implementation.
- */
- ERR("Unknown error occurred while fetching process attribute value in inclusion list");
- ret = CMD_FATAL;
- goto end;
- }
-
- if (is_value_type_name(value_type)) {
- _MSG("`%s`", name);
- } else {
- _MSG("%" PRIi64, integral_value);
- }
-
- /* Mi */
- if (the_writer) {
- ret = is_value_type_name(value_type) ?
- mi_lttng_string_process_attribute_value(
- the_writer,
- process_attr, name,
- false) :
- mi_lttng_integral_process_attribute_value(
- the_writer,
- process_attr,
- integral_value, false);
- if (ret) {
- goto end;
- }
- }
- }
- MSG("");
-
- /* Mi close tracker_id and targets */
- if (the_writer) {
- ret = mi_lttng_close_multi_element(the_writer, 2);
- if (ret) {
- goto end;
- }
- }
-end:
- lttng_process_attr_tracker_handle_destroy(tracker_handle);
- return ret;
-}
-
-/*
- * List all trackers of a domain
- */
-static int list_trackers(const struct lttng_domain *domain)
-{
- int ret = 0;
-
- MSG("Tracked process attributes");
- /* Trackers listing */
- if (lttng_opt_mi) {
- ret = mi_lttng_trackers_open(the_writer);
- if (ret) {
- goto end;
- }
- }
-
- switch (domain->type) {
- case LTTNG_DOMAIN_KERNEL:
- /* pid tracker */
- ret = list_process_attr_tracker(LTTNG_PROCESS_ATTR_PROCESS_ID);
- if (ret) {
- goto end;
- }
- /* vpid tracker */
- ret = list_process_attr_tracker(
- LTTNG_PROCESS_ATTR_VIRTUAL_PROCESS_ID);
- if (ret) {
- goto end;
- }
- /* uid tracker */
- ret = list_process_attr_tracker(LTTNG_PROCESS_ATTR_USER_ID);
- if (ret) {
- goto end;
- }
- /* vuid tracker */
- ret = list_process_attr_tracker(
- LTTNG_PROCESS_ATTR_VIRTUAL_USER_ID);
- if (ret) {
- goto end;
- }
- /* gid tracker */
- ret = list_process_attr_tracker(LTTNG_PROCESS_ATTR_GROUP_ID);
- if (ret) {
- goto end;
- }
- /* vgid tracker */
- ret = list_process_attr_tracker(
- LTTNG_PROCESS_ATTR_VIRTUAL_GROUP_ID);
- if (ret) {
- goto end;
- }
- break;
- case LTTNG_DOMAIN_UST:
- /* vpid tracker */
- ret = list_process_attr_tracker(
- LTTNG_PROCESS_ATTR_VIRTUAL_PROCESS_ID);
- if (ret) {
- goto end;
- }
- /* vuid tracker */
- ret = list_process_attr_tracker(
- LTTNG_PROCESS_ATTR_VIRTUAL_USER_ID);
- if (ret) {
- goto end;
- }
- /* vgid tracker */
- ret = list_process_attr_tracker(
- LTTNG_PROCESS_ATTR_VIRTUAL_GROUP_ID);
- if (ret) {
- goto end;
- }
- break;
- default:
- break;
- }
- MSG();
- if (lttng_opt_mi) {
- /* Close trackers element */
- ret = mi_lttng_writer_close_element(the_writer);
- if (ret) {
- goto end;
- }
- }
-
-end:
- return ret;
-}
-
-static enum cmd_error_code print_periodic_rotation_schedule(
- const struct lttng_rotation_schedule *schedule)
-{
- enum cmd_error_code ret;
- enum lttng_rotation_status status;
- uint64_t value;
-
- status = lttng_rotation_schedule_periodic_get_period(schedule,
- &value);
- if (status != LTTNG_ROTATION_STATUS_OK) {
- ERR("Failed to retrieve period parameter from periodic rotation schedule.");
- ret = CMD_ERROR;
- goto end;
- }
-
- MSG(" timer period: %" PRIu64" %s", value, USEC_UNIT);
- ret = CMD_SUCCESS;
-end:
- return ret;
-}
-
-static enum cmd_error_code print_size_threshold_rotation_schedule(
- const struct lttng_rotation_schedule *schedule)
-{
- enum cmd_error_code ret;
- enum lttng_rotation_status status;
- uint64_t value;
-
- status = lttng_rotation_schedule_size_threshold_get_threshold(schedule,
- &value);
- if (status != LTTNG_ROTATION_STATUS_OK) {
- ERR("Failed to retrieve size parameter from size-based rotation schedule.");
- ret = CMD_ERROR;
- goto end;
- }
-
- MSG(" size threshold: %" PRIu64" bytes", value);
- ret = CMD_SUCCESS;
-end:
- return ret;
-}
-
-static enum cmd_error_code print_rotation_schedule(
- const struct lttng_rotation_schedule *schedule)
-{
- enum cmd_error_code ret;
-
- switch (lttng_rotation_schedule_get_type(schedule)) {
- case LTTNG_ROTATION_SCHEDULE_TYPE_SIZE_THRESHOLD:
- ret = print_size_threshold_rotation_schedule(schedule);
- break;
- case LTTNG_ROTATION_SCHEDULE_TYPE_PERIODIC:
- ret = print_periodic_rotation_schedule(schedule);
- break;
- default:
- ret = CMD_ERROR;
- }
- return ret;
-}
-
-/*
- * List the automatic rotation settings.
- */
-static enum cmd_error_code list_rotate_settings(const char *session_name)
-{
- int ret;
- enum cmd_error_code cmd_ret = CMD_SUCCESS;
- unsigned int count, i;
- struct lttng_rotation_schedules *schedules = NULL;
- enum lttng_rotation_status status;
-
- ret = lttng_session_list_rotation_schedules(session_name, &schedules);
- if (ret != LTTNG_OK) {
- ERR("Failed to list session rotation schedules: %s", lttng_strerror(ret));
- cmd_ret = CMD_ERROR;
- goto end;
- }
-
- status = lttng_rotation_schedules_get_count(schedules, &count);
- if (status != LTTNG_ROTATION_STATUS_OK) {
- ERR("Failed to retrieve the number of session rotation schedules.");
- cmd_ret = CMD_ERROR;
- goto end;
- }
-
- if (count == 0) {
- cmd_ret = CMD_SUCCESS;
- goto end;
- }
-
- MSG("Automatic rotation schedules:");
- if (lttng_opt_mi) {
- ret = mi_lttng_writer_open_element(the_writer,
- mi_lttng_element_rotation_schedules);
- if (ret) {
- cmd_ret = CMD_ERROR;
- goto end;
- }
- }
-
- for (i = 0; i < count; i++) {
- enum cmd_error_code tmp_ret = CMD_SUCCESS;
- const struct lttng_rotation_schedule *schedule;
-
- schedule = lttng_rotation_schedules_get_at_index(schedules, i);
- if (!schedule) {
- ERR("Failed to retrieve session rotation schedule.");
- cmd_ret = CMD_ERROR;
- goto end;
- }
-
- if (lttng_opt_mi) {
- ret = mi_lttng_rotation_schedule(the_writer, schedule);
- if (ret) {
- tmp_ret = CMD_ERROR;
- }
- } else {
- tmp_ret = print_rotation_schedule(schedule);
- }
-
- /*
- * Report an error if the serialization of any of the
- * descriptors failed.
- */
- cmd_ret = cmd_ret ? cmd_ret : tmp_ret;
- }
-
- _MSG("\n");
- if (lttng_opt_mi) {
- /* Close the rotation_schedules element. */
- ret = mi_lttng_writer_close_element(the_writer);
- if (ret) {
- cmd_ret = CMD_ERROR;
- goto end;
- }
- }
-end:
- lttng_rotation_schedules_destroy(schedules);
- return cmd_ret;
-}
-
-/*
- * Machine interface
- * Find the session with session_name as name
- * and print his informations.
- */
-static int mi_list_session(const char *session_name,
- struct lttng_session *sessions, int count)
-{
- int ret, i;
- unsigned int session_found = 0;
-
- if (session_name == NULL) {
- ret = -LTTNG_ERR_SESS_NOT_FOUND;
- goto end;
- }
-
- for (i = 0; i < count; i++) {
- if (strncmp(sessions[i].name, session_name, NAME_MAX) == 0) {
- /* We need to leave it open to append other informations
- * like domain, channel, events etc.*/
- session_found = 1;
- ret = mi_lttng_session(the_writer, &sessions[i], 1);
- if (ret) {
- goto end;
- }
- break;
- }
- }
-
- if (!session_found) {
- ERR("Session '%s' not found", session_name);
- ret = -LTTNG_ERR_SESS_NOT_FOUND;
- goto end;
- }
-
-end:
- return ret;
-}
-
-/*
- * Machine interface
- * List all availables session
- */
-static int mi_list_sessions(struct lttng_session *sessions, int count)
-{
- int ret, i;
-
- /* Opening sessions element */
- ret = mi_lttng_sessions_open(the_writer);
- if (ret) {
- goto end;
- }
-
- /* Listing sessions */
- for (i = 0; i < count; i++) {
- ret = mi_lttng_session(the_writer, &sessions[i], 0);
- if (ret) {
- goto end;
- }
- }
-
- /* Closing sessions element */
- ret = mi_lttng_writer_close_element(the_writer);
- if (ret) {
- goto end;
- }
-
-end:
- return ret;
-}
-
-/*
- * List available tracing session. List only basic information.
- *
- * If session_name is NULL, all sessions are listed.
- */
-static int list_sessions(const char *session_name)
-{
- int ret = CMD_SUCCESS;
- int count, i;
- unsigned int session_found = 0;
- struct lttng_session *sessions = NULL;
-
- count = lttng_list_sessions(&sessions);
- DBG("Session count %d", count);
- if (count < 0) {
- ret = CMD_ERROR;
- ERR("%s", lttng_strerror(count));
- goto end;
- }
-
- if (lttng_opt_mi) {
- /* Mi */
- if (session_name == NULL) {
- /* List all sessions */
- ret = mi_list_sessions(sessions, count);
- } else {
- /* Note : this return an open session element */
- ret = mi_list_session(session_name, sessions, count);
- }
- if (ret) {
- ret = CMD_ERROR;
- goto end;
- }
- } else {
- /* Pretty print */
- if (count == 0) {
- MSG("Currently no available recording session");
- goto end;
- }
-
- if (session_name == NULL) {
- MSG("Available recording sessions:");
- }
-
- for (i = 0; i < count; i++) {
- if (session_name != NULL) {
- if (strncmp(sessions[i].name, session_name, NAME_MAX) == 0) {
- session_found = 1;
- MSG("Recording session %s: [%s%s]", session_name,
- active_string(sessions[i].enabled),
- snapshot_string(sessions[i].snapshot_mode));
- if (*sessions[i].path) {
- MSG("%sTrace output: %s\n", indent4, sessions[i].path);
- }
- memcpy(&the_listed_session,
- &sessions[i],
- sizeof(the_listed_session));
- break;
- }
- } else {
- MSG(" %d) %s [%s%s]", i + 1,
- sessions[i].name,
- active_string(sessions[i].enabled),
- snapshot_string(sessions[i].snapshot_mode));
- if (*sessions[i].path) {
- MSG("%sTrace output: %s", indent4, sessions[i].path);
- }
- if (sessions[i].live_timer_interval != 0) {
- MSG("%sLive timer interval: %u %s", indent4,
- sessions[i].live_timer_interval,
- USEC_UNIT);
- }
- MSG("");
- }
- }
-
- if (!session_found && session_name != NULL) {
- ERR("Session '%s' not found", session_name);
- ret = CMD_ERROR;
- goto end;
- }
-
- if (session_name == NULL) {
- MSG("\nUse lttng list <session_name> for more details");
- }
- }
-
-end:
- free(sessions);
- return ret;
-}
-
-
-/*
- * Machine Interface
- * list available domain(s) for a session.
- */
-static int mi_list_domains(struct lttng_domain *domains, int count)
-{
- int i, ret;
- /* Open domains element */
- ret = mi_lttng_domains_open(the_writer);
- if (ret) {
- goto end;
- }
-
- for (i = 0; i < count; i++) {
- ret = mi_lttng_domain(the_writer, &domains[i], 0);
- if (ret) {
- goto end;
- }
- }
-
- /* Closing domains element */
- ret = mi_lttng_writer_close_element(the_writer);
- if (ret) {
- goto end;
- }
-end:
- return ret;
-}
-
-/*
- * List available domain(s) for a session.
- */
-static int list_domains(const char *session_name)
-{
- int i, count, ret = CMD_SUCCESS;
- struct lttng_domain *domains = NULL;
-
-
- count = lttng_list_domains(session_name, &domains);
- if (count < 0) {
- ret = CMD_ERROR;
- ERR("%s", lttng_strerror(count));
- goto end;
- }
-
- if (lttng_opt_mi) {
- /* Mi output */
- ret = mi_list_domains(domains, count);
- if (ret) {
- ret = CMD_ERROR;
- goto error;
- }
- } else {
- /* Pretty print */
- MSG("Domains:\n-------------");
- if (count == 0) {
- MSG(" None");
- goto end;
- }
-
- for (i = 0; i < count; i++) {
- switch (domains[i].type) {
- case LTTNG_DOMAIN_KERNEL:
- MSG(" - Kernel");
- break;
- case LTTNG_DOMAIN_UST:
- MSG(" - UST global");
- break;
- case LTTNG_DOMAIN_JUL:
- MSG(" - JUL (Java Util Logging)");
- break;
- case LTTNG_DOMAIN_LOG4J:
- MSG(" - LOG4j (Logging for Java)");
- break;
- case LTTNG_DOMAIN_PYTHON:
- MSG(" - Python (logging)");
- break;
- default:
- break;
- }
- }
- }
-
-error:
- free(domains);
-
-end:
- return ret;
-}
-
-/*
- * The 'list <options>' first level command
- */
-int cmd_list(int argc, const char **argv)
-{
- int opt, ret = CMD_SUCCESS;
- const char *session_name, *leftover = NULL;
- static poptContext pc;
- struct lttng_domain domain;
- struct lttng_domain *domains = NULL;
-
- memset(&domain, 0, sizeof(domain));
-
- if (argc < 1) {
- ret = CMD_ERROR;
- goto end;
- }
-
- pc = poptGetContext(NULL, argc, argv, long_options, 0);
- poptReadDefaultConfig(pc, 0);
-
- while ((opt = poptGetNextOpt(pc)) != -1) {
- switch (opt) {
- case OPT_HELP:
- SHOW_HELP();
- goto end;
- case OPT_USERSPACE:
- opt_userspace = 1;
- break;
- case OPT_LIST_OPTIONS:
- list_cmd_options(stdout, long_options);
- goto end;
- default:
- ret = CMD_UNDEFINED;
- goto end;
- }
- }
-
- /* Mi check */
- if (lttng_opt_mi) {
- the_writer = mi_lttng_writer_create(
- fileno(stdout), lttng_opt_mi);
- if (!the_writer) {
- ret = CMD_ERROR;
- goto end;
- }
-
- /* Open command element */
- ret = mi_lttng_writer_command_open(
- the_writer, mi_lttng_element_command_list);
- if (ret) {
- ret = CMD_ERROR;
- goto end;
- }
-
- /* Open output element */
- ret = mi_lttng_writer_open_element(
- the_writer, mi_lttng_element_command_output);
- if (ret) {
- ret = CMD_ERROR;
- goto end;
- }
- }
-
- /* Get session name (trailing argument) */
- session_name = poptGetArg(pc);
- DBG2("Session name: %s", session_name);
-
- leftover = poptGetArg(pc);
- if (leftover) {
- ERR("Unknown argument: %s", leftover);
- ret = CMD_ERROR;
- goto end;
- }
-
- if (opt_kernel) {
- domain.type = LTTNG_DOMAIN_KERNEL;
- } else if (opt_userspace) {
- DBG2("Listing userspace global domain");
- domain.type = LTTNG_DOMAIN_UST;
- } else if (opt_jul) {
- DBG2("Listing JUL domain");
- domain.type = LTTNG_DOMAIN_JUL;
- } else if (opt_log4j) {
- domain.type = LTTNG_DOMAIN_LOG4J;
- } else if (opt_python) {
- domain.type = LTTNG_DOMAIN_PYTHON;
- }
-
- if (!opt_kernel && opt_syscall) {
- WARN("--syscall will only work with the Kernel domain (-k)");
- ret = CMD_ERROR;
- goto end;
- }
-
- if (opt_kernel || opt_userspace || opt_jul || opt_log4j || opt_python) {
- the_handle = lttng_create_handle(session_name, &domain);
- if (the_handle == NULL) {
- ret = CMD_FATAL;
- goto end;
- }
- }
-
- if (session_name == NULL) {
- if (!opt_kernel && !opt_userspace && !opt_jul && !opt_log4j
- && !opt_python) {
- ret = list_sessions(NULL);
- if (ret) {
- goto end;
- }
- }
- if (opt_kernel) {
- if (opt_syscall) {
- ret = list_syscalls();
- if (ret) {
- goto end;
- }
- } else {
- ret = list_kernel_events();
- if (ret) {
- goto end;
- }
- }
- }
- if (opt_userspace) {
- if (opt_fields) {
- ret = list_ust_event_fields();
- } else {
- ret = list_ust_events();
- }
- if (ret) {
- goto end;
- }
- }
- if (opt_jul || opt_log4j || opt_python) {
- ret = list_agent_events();
- if (ret) {
- goto end;
- }
- }
- } else {
- /* List session attributes */
- if (lttng_opt_mi) {
- /* Open element sessions
- * Present for xml consistency */
- ret = mi_lttng_sessions_open(the_writer);
- if (ret) {
- goto end;
- }
- }
- /* MI: the ouptut of list_sessions is an unclosed session element */
- ret = list_sessions(session_name);
- if (ret) {
- goto end;
- }
-
- ret = list_rotate_settings(session_name);
- if (ret) {
- goto end;
- }
-
- /* Domain listing */
- if (opt_domain) {
- ret = list_domains(session_name);
- goto end;
- }
-
- /* Channel listing */
- if (opt_kernel || opt_userspace) {
- if (lttng_opt_mi) {
- /* Add of domains and domain element for xml
- * consistency and validation
- */
- ret = mi_lttng_domains_open(the_writer);
- if (ret) {
- goto end;
- }
-
- /* Open domain and leave it open for
- * nested channels printing */
- ret = mi_lttng_domain(the_writer, &domain, 1);
- if (ret) {
- goto end;
- }
-
- }
-
-
- /* Trackers */
- ret = list_trackers(&domain);
- if (ret) {
- goto end;
- }
-
- /* Channels */
- ret = list_channels(opt_channel);
- if (ret) {
- goto end;
- }
-
- if (lttng_opt_mi) {
- /* Close domain and domain element */
- ret = mi_lttng_close_multi_element(
- the_writer, 2);
- }
- if (ret) {
- goto end;
- }
-
-
- } else {
- int i, nb_domain;
-
- /* We want all domain(s) */
- nb_domain = lttng_list_domains(session_name, &domains);
- if (nb_domain < 0) {
- ret = CMD_ERROR;
- ERR("%s", lttng_strerror(nb_domain));
- goto end;
- }
-
- if (lttng_opt_mi) {
- ret = mi_lttng_domains_open(the_writer);
- if (ret) {
- ret = CMD_ERROR;
- goto end;
- }
- }
-
- for (i = 0; i < nb_domain; i++) {
- switch (domains[i].type) {
- case LTTNG_DOMAIN_KERNEL:
- MSG("=== Domain: Linux kernel ===\n");
- break;
- case LTTNG_DOMAIN_UST:
- MSG("=== Domain: User space ===\n");
- MSG("Buffering scheme: %s\n",
- domains[i].buf_type ==
- LTTNG_BUFFER_PER_PID ? "per-process" : "per-user");
- break;
- case LTTNG_DOMAIN_JUL:
- MSG("=== Domain: java.util.logging (JUL) ===\n");
- break;
- case LTTNG_DOMAIN_LOG4J:
- MSG("=== Domain: log4j ===\n");
- break;
- case LTTNG_DOMAIN_PYTHON:
- MSG("=== Domain: Python logging ===\n");
- break;
- default:
- MSG("=== Domain: Unimplemented ===\n");
- break;
- }
-
- if (lttng_opt_mi) {
- ret = mi_lttng_domain(the_writer,
- &domains[i], 1);
- if (ret) {
- ret = CMD_ERROR;
- goto end;
- }
- }
-
- /* Clean handle before creating a new one */
- if (the_handle) {
- lttng_destroy_handle(the_handle);
- }
-
- the_handle = lttng_create_handle(
- session_name, &domains[i]);
- if (the_handle == NULL) {
- ret = CMD_FATAL;
- goto end;
- }
-
- if (domains[i].type == LTTNG_DOMAIN_JUL ||
- domains[i].type == LTTNG_DOMAIN_LOG4J ||
- domains[i].type == LTTNG_DOMAIN_PYTHON) {
- ret = list_session_agent_events();
- if (ret) {
- goto end;
- }
-
- goto next_domain;
- }
-
- switch (domains[i].type) {
- case LTTNG_DOMAIN_KERNEL:
- case LTTNG_DOMAIN_UST:
- ret = list_trackers(&domains[i]);
- if (ret) {
- goto end;
- }
- break;
- default:
- break;
- }
-
- ret = list_channels(opt_channel);
- if (ret) {
- goto end;
- }
-
-next_domain:
- if (lttng_opt_mi) {
- /* Close domain element */
- ret = mi_lttng_writer_close_element(
- the_writer);
- if (ret) {
- ret = CMD_ERROR;
- goto end;
- }
- }
-
- }
- if (lttng_opt_mi) {
- /* Close the domains, session and sessions element */
- ret = mi_lttng_close_multi_element(
- the_writer, 3);
- if (ret) {
- ret = CMD_ERROR;
- goto end;
- }
- }
- }
- }
-
- /* Mi closing */
- if (lttng_opt_mi) {
- /* Close output element */
- ret = mi_lttng_writer_close_element(the_writer);
- if (ret) {
- ret = CMD_ERROR;
- goto end;
- }
-
- /* Command element close */
- ret = mi_lttng_writer_command_close(the_writer);
- if (ret) {
- ret = CMD_ERROR;
- goto end;
- }
- }
-end:
- /* Mi clean-up */
- if (the_writer && mi_lttng_writer_destroy(the_writer)) {
- /* Preserve original error code */
- ret = ret ? ret : -LTTNG_ERR_MI_IO_FAIL;
- }
-
- free(domains);
- if (the_handle) {
- lttng_destroy_handle(the_handle);
- }
-
- poptFreeContext(pc);
- return ret;
-}
projects / lttng-tools.git / blobdiff