root/tools/perf/util/trace-event-scripting.c

DEFINITIONS

1. flush_script_unsupported
2. stop_script_unsupported
3. process_event_unsupported
4. print_python_unsupported_msg
5. python_start_script_unsupported
6. python_generate_script_unsupported
7. register_python_scripting
8. setup_python_scripting
9. setup_python_scripting
10. print_perl_unsupported_msg
11. perl_start_script_unsupported
12. perl_generate_script_unsupported
13. register_perl_scripting
14. setup_perl_scripting
15. setup_perl_scripting

   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 
  17 struct scripting_context *scripting_context;
  18 
  19 static int flush_script_unsupported(void)
  20 {
  21         return 0;
  22 }
  23 
  24 static int stop_script_unsupported(void)
  25 {
  26         return 0;
  27 }
  28 
  29 static 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 
  36 static 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 
  45 static 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 
  54 static 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 
  64 struct 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 
  73 static 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
  87 void setup_python_scripting(void)
  88 {
  89         register_python_scripting(&python_scripting_unsupported_ops);
  90 }
  91 #else
  92 extern struct scripting_ops python_scripting_ops;
  93 
  94 void setup_python_scripting(void)
  95 {
  96         register_python_scripting(&python_scripting_ops);
  97 }
  98 #endif
  99 
 100 static 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 
 109 static 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 
 118 static 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 
 127 struct 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 
 136 static 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
 150 void setup_perl_scripting(void)
 151 {
 152         register_perl_scripting(&perl_scripting_unsupported_ops);
 153 }
 154 #else
 155 extern struct scripting_ops perl_scripting_ops;
 156 
 157 void setup_perl_scripting(void)
 158 {
 159         register_perl_scripting(&perl_scripting_ops);
 160 }
 161 #endif