]>
Commit | Line | Data |
---|---|---|
d1b93772 | 1 | /* |
765532c8 | 2 | * Context.xs. XS interfaces for perf script. |
d1b93772 TZ |
3 | * |
4 | * Copyright (C) 2009 Tom Zanussi <tzanussi@gmail.com> | |
5 | * | |
6 | * This program is free software; you can redistribute it and/or modify | |
7 | * it under the terms of the GNU General Public License as published by | |
8 | * the Free Software Foundation; either version 2 of the License, or | |
9 | * (at your option) any later version. | |
10 | * | |
11 | * This program is distributed in the hope that it will be useful, | |
12 | * but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 | * GNU General Public License for more details. | |
15 | * | |
16 | * You should have received a copy of the GNU General Public License | |
17 | * along with this program; if not, write to the Free Software | |
18 | * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA | |
19 | * | |
20 | */ | |
21 | ||
22 | #include "EXTERN.h" | |
23 | #include "perl.h" | |
24 | #include "XSUB.h" | |
7397d80d | 25 | #include "../../../perf.h" |
765532c8 | 26 | #include "../../../util/script-event.h" |
d1b93772 TZ |
27 | |
28 | MODULE = Perf::Trace::Context PACKAGE = Perf::Trace::Context | |
29 | PROTOTYPES: ENABLE | |
30 | ||
31 | int | |
61381de0 | 32 | common_pc(context) |
d1b93772 TZ |
33 | struct scripting_context * context |
34 | ||
35 | int | |
61381de0 | 36 | common_flags(context) |
d1b93772 TZ |
37 | struct scripting_context * context |
38 | ||
39 | int | |
61381de0 | 40 | common_lock_depth(context) |
d1b93772 TZ |
41 | struct scripting_context * context |
42 |