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 162