File: cairo-perl.h

package info (click to toggle)
libcairo-perl 1.01-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 292 kB
  • ctags: 63
  • sloc: perl: 1,173; makefile: 53; ansic: 49
file content (77 lines) | stat: -rw-r--r-- 1,901 bytes parent folder | download
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
/*
 * Copyright (c) 2004-2005 by the cairo perl team (see the file README)
 *
 * Licensed under the LGPL, see LICENSE file for more information.
 *
 * $Header: /cvs/cairo/cairo-perl/cairo-perl.h,v 1.10 2006/07/15 14:41:11 tsch Exp $
 *
 */

#ifndef _CAIRO_PERL_H_
#define _CAIRO_PERL_H_

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include <cairo.h>

#ifdef CAIRO_HAS_PNG_SURFACE
# include <cairo-png.h>
#endif

#ifdef CAIRO_HAS_PS_SURFACE
# include <cairo-ps.h>
#endif

#ifdef CAIRO_HAS_PDF_SURFACE
# include <cairo-pdf.h>
#endif

#ifdef CAIRO_HAS_SVG_SURFACE
# include <cairo-svg.h>
#endif

#include <cairo-perl-auto.h>

/*
 * standard object and struct handling
 */
void *cairo_object_from_sv (SV *sv, const char *package);
SV *cairo_object_to_sv (void *object, const char *package);

void *cairo_struct_from_sv (SV *sv, const char *package);
SV *cairo_struct_to_sv (void *object, const char *package);

/*
 * custom struct handling
 */
SV * newSVCairoFontExtents (cairo_font_extents_t * extents);

SV * newSVCairoTextExtents (cairo_text_extents_t * extents);

SV * newSVCairoGlyph (cairo_glyph_t * glyph);
cairo_glyph_t * SvCairoGlyph (SV * sv);

SV * newSVCairoPath (cairo_path_t * path);
cairo_path_t * SvCairoPath (SV * sv);

/*
 * special treatment for surfaces
 */
SV * cairo_surface_to_sv (cairo_surface_t *surface);
#undef newSVCairoSurface
#undef newSVCairoSurface_noinc
#define newSVCairoSurface(object)	(cairo_surface_to_sv (cairo_surface_reference (object)))
#define newSVCairoSurface_noinc(object)	(cairo_surface_to_sv (object))

/*
 * special treatment for patterns
 */
SV * cairo_pattern_to_sv (cairo_pattern_t *surface);
#undef newSVCairoPattern
#undef newSVCairoPattern_noinc
#define newSVCairoPattern(object)	(cairo_pattern_to_sv (cairo_pattern_reference (object)))
#define newSVCairoPattern_noinc(object)	(cairo_pattern_to_sv (object))

#endif /* _CAIRO_PERL_H_ */