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
|
/*
* Copyright (c) 2006 by the gtk2-perl team (see the file AUTHORS)
*
* Licensed under the LGPL, see LICENSE file for more information.
*
* $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/gperl-private.h,v 1.1 2006/03/04 17:17:31 kaffeetisch Exp $
*/
/*
* This is a private header file intended for functions that are used in more
* than one xs file. These functions are not part of the public API.
*/
#ifndef _GPERL_PRIVATE_H_
#define _GPERL_PRIVATE_H_
#include "perl.h"
/*
* Thread-safety macros and helpers
*/
void _gperl_set_master_interp (PerlInterpreter *interp);
PerlInterpreter *_gperl_get_master_interp (void);
#define GPERL_SET_CONTEXT \
{ \
PerlInterpreter *me = _gperl_get_master_interp (); \
if (me && !PERL_GET_CONTEXT) { \
PERL_SET_CONTEXT (me); \
} \
}
/*
* Misc. stuff
*/
SV * _gperl_sv_from_value_internal (const GValue * value, gboolean copy_boxed);
SV * _gperl_fetch_wrapper_key (GObject * object, const char * name, gboolean create);
#endif /* _GPERL_PRIVATE_H_ */
|
