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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
#ifndef _CLUTTER_PERL_H_
#define _CLUTTER_PERL_H_
#include <gperl.h>
#include <cairo-perl.h>
#include <pango-perl.h>
#include <cogl/cogl.h>
#include <cogl/cogl-pango.h>
#include <clutter/clutter.h>
#include "clutter-perl-autogen.h"
G_BEGIN_DECLS
const char *clutterperl_event_get_package (ClutterEvent *event);
gulong clutter_perl_animation_mode_from_sv (SV *sv);
SV *clutter_perl_animation_mode_to_sv (gulong mode);
gpointer cogl_perl_object_from_sv (SV *sv, const char *package);
SV *cogl_perl_object_to_sv (gpointer object, const char *package);
gpointer cogl_perl_struct_from_sv (SV *sv, const char *package);
SV *cogl_perl_struct_to_sv (gpointer object, const char *package);
SV *cogl_perl_handle_to_sv (CoglHandle handle);
void cogl_perl_color_from_sv (SV *sv, CoglColor *color);
SV *cogl_perl_color_to_sv (const CoglColor *color);
void cogl_perl_texture_vertex_from_sv (SV *sv, CoglTextureVertex *vertex);
SV *cogl_perl_texture_vertex_to_sv (const CoglTextureVertex *vertex);
/* CoglHandle */
typedef CoglHandle CoglHandle_noinc;
typedef CoglHandle CoglHandle_ornull;
#define SvCoglHandle(sv) ((CoglHandle) cogl_perl_object_from_sv (sv, "Clutter::Cogl::Handle"))
#define SvCoglHandle_ornull(sv) (((sv) && SvOK (sv)) ? SvCoglHandle(sv) : NULL)
#define newSVCoglHandle(object) (cogl_perl_handle_to_sv (cogl_handle_ref (object)))
#define newSVCoglHandle_noinc(object) (cogl_perl_handle_to_sv (object))
/* CoglMatrix */
typedef CoglMatrix CoglMatrix_ornull;
#define SvCoglMatrix(sv) ((CoglMatrix *) cogl_perl_struct_from_sv (sv, "Clutter::Cogl::Matrix"))
#define SvCoglMatrix_ornull(sv) (((sv) && SvOK (sv)) ? SvCoglMatrix(sv) : NULL)
#define newSVCoglMatrix(object) (cogl_perl_struct_to_sv ((object), "Clutter::Cogl::Matrix"))
#define newSVCoglMatrix_ornull(object) ((object) == NULL ? &PL_sv_undef : newSVCoglMatrix(object))
/* custom structs */
SV *newSVCoglTextureVertex (CoglTextureVertex *vertex);
CoglTextureVertex *SvCoglTextureVertex (SV *sv);
SV *newSVCoglColor (CoglColor *color);
CoglColor *SvCoglColor (SV *sv);
G_END_DECLS
#endif /* _CLUTTER_PERL_H_ */
|