LXR linux/tools/perf/util/trace-event-scripting.c

   1// SPDX-License-Identifier: GPL-2.0-or-later
   2/*
   3 * trace-event-scripting.  Scripting engine common and initialization code.
   4 *
   5 * Copyright (C) 2009-2010 Tom Zanussi <tzanussi@gmail.com>
   6 */
   7
   8#include <stdio.h>
   9#include <stdlib.h>
  10#include <string.h>
  11#include <errno.h>
  12
  13#include "debug.h"
  14#include "trace-event.h"
  15#include <linux/zalloc.h>
  16
  17struct scripting_context *scripting_context;
  18
  19static int flush_script_unsupported(void)
  20{
  21        return 0;
  22}
  23
  24static int stop_script_unsupported(void)
  25{
  26        return 0;
  27}
  28
  29static void process_event_unsupported(union perf_event *event __maybe_unused,
  30                                      struct perf_sample *sample __maybe_unused,
  31                                      struct evsel *evsel __maybe_unused,
  32                                      struct addr_location *al __maybe_unused)
  33{
  34}
  35
  36static void print_python_unsupported_msg(void)
  37{
  38        fprintf(stderr, "Python scripting not supported."
  39                "  Install libpython and rebuild perf to enable it.\n"
  40                "For example:\n  # apt-get install python-dev (ubuntu)"
  41                "\n  # yum install python-devel (Fedora)"
  42                "\n  etc.\n");
  43}
  44
  45static int python_start_script_unsupported(const char *script __maybe_unused,
  46                                           int argc __maybe_unused,
  47                                           const char **argv __maybe_unused)
  48{
  49        print_python_unsupported_msg();
  50
  51        return -1;
  52}
  53
  54static int python_generate_script_unsupported(struct tep_handle *pevent
  55                                              __maybe_unused,
  56                                              const char *outfile
  57                                              __maybe_unused)
  58{
  59        print_python_unsupported_msg();
  60
  61        return -1;
  62}
  63
  64struct scripting_ops python_scripting_unsupported_ops = {
  65        .name = "Python",
  66        .start_script = python_start_script_unsupported,
  67        .flush_script = flush_script_unsupported,
  68        .stop_script = stop_script_unsupported,
  69        .process_event = process_event_unsupported,
  70        .generate_script = python_generate_script_unsupported,
  71};
  72
  73static void register_python_scripting(struct scripting_ops *scripting_ops)
  74{
  75        if (scripting_context == NULL)
  76                scripting_context = malloc(sizeof(*scripting_context));
  77
  78       if (scripting_context == NULL ||
  79           script_spec_register("Python", scripting_ops) ||
  80           script_spec_register("py", scripting_ops)) {
  81                pr_err("Error registering Python script extension: disabling it\n");
  82                zfree(&scripting_context);
  83        }
  84}
  85
  86#ifndef HAVE_LIBPYTHON_SUPPORT
  87void setup_python_scripting(void)
  88{
  89        register_python_scripting(&python_scripting_unsupported_ops);
  90}
  91#else
  92extern struct scripting_ops python_scripting_ops;
  93
  94void setup_python_scripting(void)
  95{
  96        register_python_scripting(&python_scripting_ops);
  97}
  98#endif
  99
 100static void print_perl_unsupported_msg(void)
 101{
 102        fprintf(stderr, "Perl scripting not supported."
 103                "  Install libperl and rebuild perf to enable it.\n"
 104                "For example:\n  # apt-get install libperl-dev (ubuntu)"
 105                "\n  # yum install 'perl(ExtUtils::Embed)' (Fedora)"
 106                "\n  etc.\n");
 107}
 108
 109static int perl_start_script_unsupported(const char *script __maybe_unused,
 110                                         int argc __maybe_unused,
 111                                         const char **argv __maybe_unused)
 112{
 113        print_perl_unsupported_msg();
 114
 115        return -1;
 116}
 117
 118static int perl_generate_script_unsupported(struct tep_handle *pevent
 119                                            __maybe_unused,
 120                                            const char *outfile __maybe_unused)
 121{
 122        print_perl_unsupported_msg();
 123
 124        return -1;
 125}
 126
 127struct scripting_ops perl_scripting_unsupported_ops = {
 128        .name = "Perl",
 129        .start_script = perl_start_script_unsupported,
 130        .flush_script = flush_script_unsupported,
 131        .stop_script = stop_script_unsupported,
 132        .process_event = process_event_unsupported,
 133        .generate_script = perl_generate_script_unsupported,
 134};
 135
 136static void register_perl_scripting(struct scripting_ops *scripting_ops)
 137{
 138        if (scripting_context == NULL)
 139                scripting_context = malloc(sizeof(*scripting_context));
 140
 141       if (scripting_context == NULL ||
 142           script_spec_register("Perl", scripting_ops) ||
 143           script_spec_register("pl", scripting_ops)) {
 144                pr_err("Error registering Perl script extension: disabling it\n");
 145                zfree(&scripting_context);
 146        }
 147}
 148
 149#ifndef HAVE_LIBPERL_SUPPORT
 150void setup_perl_scripting(void)
 151{
 152        register_perl_scripting(&perl_scripting_unsupported_ops);
 153}
 154#else
 155extern struct scripting_ops perl_scripting_ops;
 156
 157void setup_perl_scripting(void)
 158{
 159        register_perl_scripting(&perl_scripting_ops);
 160}
 161#endif
 162