summaryrefslogtreecommitdiff
path: root/tools/perf/util/trace-event-perl.h
blob: 6c94fa93013d7db6b2db3896258fd915c64d14f1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
#ifndef __PERF_TRACE_EVENT_PERL_H
#define __PERF_TRACE_EVENT_PERL_H
#ifdef NO_LIBPERL
typedef int INTERP;
#define dSP
#define ENTER
#define SAVETMPS
#define PUTBACK
#define SPAGAIN
#define FREETMPS
#define LEAVE
#define SP
#define ERRSV
#define G_SCALAR		(0)
#define G_DISCARD		(0)
#define G_NOARGS		(0)
#define PUSHMARK(a)
#define SvTRUE(a)		(0)
#define XPUSHs(s)
#define sv_2mortal(a)
#define newSVpv(a,b)
#define newSVuv(a)
#define newSViv(a)
#define get_cv(a,b)		(0)
#define call_pv(a,b)		(0)
#define perl_alloc()		(0)
#define perl_construct(a)	(0)
#define perl_parse(a,b,c,d,e)	(0)
#define perl_run(a)		(0)
#define perl_destruct(a)	(0)
#define perl_free(a)		(0)
#else
#include <EXTERN.h>
#include <perl.h>
typedef PerlInterpreter * INTERP;
#endif

struct scripting_context {
	void *event_data;
};

#endif /* __PERF_TRACE_EVENT_PERL_H */