186 static void define_event_symbols(struct event_format *event,  in define_event_symbols()  argument
203 		define_event_symbols(event, ev_name, args->flags.field);  in define_event_symbols()
208 		define_event_symbols(event, ev_name, args->symbol.field);  in define_event_symbols()
214 		define_event_symbols(event, ev_name, args->hex.field);  in define_event_symbols()
215 		define_event_symbols(event, ev_name, args->hex.size);  in define_event_symbols()
218 		define_event_symbols(event, ev_name, args->int_array.field);  in define_event_symbols()
219 		define_event_symbols(event, ev_name, args->int_array.count);  in define_event_symbols()
220 		define_event_symbols(event, ev_name, args->int_array.el_size);  in define_event_symbols()
228 		define_event_symbols(event, ev_name, args->typecast.item);  in define_event_symbols()
233 		define_event_symbols(event, ev_name, args->op.left);  in define_event_symbols()
234 		define_event_symbols(event, ev_name, args->op.right);  in define_event_symbols()
244 		define_event_symbols(event, ev_name, args->next);  in define_event_symbols()
251 	struct event_format *event = evsel->tp_format;  in perl_process_tracepoint()  local
267 	if (!event)  in perl_process_tracepoint()
270 	pid = raw_field_value(event, "common_pid", data);  in perl_process_tracepoint()
272 	sprintf(handler, "%s::%s", event->system, event->name);  in perl_process_tracepoint()
274 	if (!test_and_set_bit(event->id, events_defined))  in perl_process_tracepoint()
275 		define_event_symbols(event, handler, event->print_fmt.args);  in perl_process_tracepoint()
297 	for (field = event->format.fields; field; field = field->next) {  in perl_process_tracepoint()
307 			val = read_size(event, data + field->offset,  in perl_process_tracepoint()
336 static void perl_process_event_generic(union perf_event *event,  in perl_process_event_generic()  argument
348 	XPUSHs(sv_2mortal(newSVpvn((const char *)event, event->header.size)));  in perl_process_event_generic()
360 static void perl_process_event(union perf_event *event,  in perl_process_event()  argument
366 	perl_process_event_generic(event, sample, evsel);  in perl_process_event()
446 	struct event_format *event = NULL;  in perl_generate_script()  local
491 	while ((event = trace_find_next_event(pevent, event))) {  in perl_generate_script()
492 		fprintf(ofp, "sub %s::%s\n{\n", event->system, event->name);  in perl_generate_script()
506 		for (f = event->format.fields; f; f = f->next) {  in perl_generate_script()
525 		for (f = event->format.fields; f; f = f->next) {  in perl_generate_script()
549 		for (f = event->format.fields; f; f = f->next) {  in perl_generate_script()
562 				fprintf(ofp, "%s::%s\", ", event->system,  in perl_generate_script()
563 					event->name);  in perl_generate_script()
572 				fprintf(ofp, "%s::%s\", ", event->system,  in perl_generate_script()
573 					event->name);  in perl_generate_script()