[cairo-commit] cairo-perl Cairo.xs, 1.20, 1.21 CairoPath.xs, 1.1, 1.2 CairoPattern.xs, 1.13, 1.14 CairoSurface.xs, 1.19, 1.20 ChangeLog, 1.66, 1.67 MANIFEST, 1.10, 1.11 cairo-perl-private.h, 1.5, 1.6 ppport.h, NONE, 1.1
Torsten Schoenfeld
commit at pdx.freedesktop.org
Sun Sep 30 05:54:35 PDT 2007
Committed by: tsch
Update of /cvs/cairo/cairo-perl
In directory kemper:/tmp/cvs-serv18597
Modified Files:
Cairo.xs CairoPath.xs CairoPattern.xs CairoSurface.xs
ChangeLog MANIFEST cairo-perl-private.h
Added Files:
ppport.h
Log Message:
* ppport.h
* Cairo.xs
* CairoPath.xs
* CairoPattern.xs
* CairoSurface.xs
* MANIFEST
* cairo-perl-private.h
* cairo-perl.h: Add and use the portability header ppport.h from
Devel::PPPort to hopefully fix compilation on older perls.
Index: Cairo.xs
===================================================================
RCS file: /cvs/cairo/cairo-perl/Cairo.xs,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- Cairo.xs 6 May 2007 11:28:37 -0000 1.20
+++ Cairo.xs 30 Sep 2007 12:54:31 -0000 1.21
@@ -10,6 +10,9 @@
#include <cairo-perl.h>
#include <cairo-perl-private.h>
+#define NEED_newRV_noinc_GLOBAL
+#include "ppport.h"
+
/* ------------------------------------------------------------------------- */
static void
Index: CairoPath.xs
===================================================================
RCS file: /cvs/cairo/cairo-perl/CairoPath.xs,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- CairoPath.xs 12 Jul 2005 20:29:47 -0000 1.1
+++ CairoPath.xs 30 Sep 2007 12:54:32 -0000 1.2
@@ -8,6 +8,8 @@
#include <cairo-perl.h>
+#include "ppport.h"
+
SV *
newSVCairoPath (cairo_path_t * path)
{
Index: CairoPattern.xs
===================================================================
RCS file: /cvs/cairo/cairo-perl/CairoPattern.xs,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- CairoPattern.xs 6 May 2007 11:28:37 -0000 1.13
+++ CairoPattern.xs 30 Sep 2007 12:54:32 -0000 1.14
@@ -9,6 +9,8 @@
#include <cairo-perl.h>
#include <cairo-perl-private.h>
+#include "ppport.h"
+
static const char *
get_package (cairo_pattern_t *pattern)
{
Index: CairoSurface.xs
===================================================================
RCS file: /cvs/cairo/cairo-perl/CairoSurface.xs,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- CairoSurface.xs 17 Mar 2007 16:13:32 -0000 1.19
+++ CairoSurface.xs 30 Sep 2007 12:54:32 -0000 1.20
@@ -9,6 +9,9 @@
#include <cairo-perl.h>
#include <cairo-perl-private.h>
+#define NEED_sv_2pv_flags
+#include "ppport.h"
+
#if CAIRO_VERSION < CAIRO_VERSION_ENCODE(1, 2, 0)
static HV *pointer_to_package = NULL;
Index: ChangeLog
===================================================================
RCS file: /cvs/cairo/cairo-perl/ChangeLog,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -d -r1.66 -r1.67
--- ChangeLog 27 Sep 2007 20:26:16 -0000 1.66
+++ ChangeLog 30 Sep 2007 12:54:32 -0000 1.67
@@ -1,3 +1,15 @@
+2007-09-30 tsch
+
+ * ppport.h
+ * Cairo.xs
+ * CairoPath.xs
+ * CairoPattern.xs
+ * CairoSurface.xs
+ * MANIFEST
+ * cairo-perl-private.h
+ * cairo-perl.h: Add and use the portability header ppport.h from
+ Devel::PPPort to hopefully fix compilation on older perls.
+
2007-09-27 tsch
* Cairo.pm
Index: MANIFEST
===================================================================
RCS file: /cvs/cairo/cairo-perl/MANIFEST,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- MANIFEST 23 Nov 2006 19:09:12 -0000 1.10
+++ MANIFEST 30 Sep 2007 12:54:32 -0000 1.11
@@ -1,3 +1,6 @@
+cairo-perl-private.h
+cairo-perl.h
+cairo-perl.typemap
Cairo.pm
Cairo.xs
CairoFont.xs
@@ -6,24 +9,13 @@
CairoPattern.xs
CairoSurface.xs
ChangeLog
-LICENSE
-MANIFEST
-MANIFEST.SKIP
-MakeHelper.pm
-Makefile.PL
-NEWS
-README
-TODO
-cairo-perl-private.h
-cairo-perl.h
-cairo-perl.typemap
doctypes
examples/png-streams.pl
-examples/png/README
examples/png/bevels.pl
examples/png/caps_joins.pl
examples/png/hering.pl
examples/png/outline.pl
+examples/png/README
examples/png/spiral.pl
examples/png/spline-pipeline.pl
examples/png/splines_tolerance.pl
@@ -31,9 +23,18 @@
examples/png/text-rotate.pl
examples/png/text.pl
examples/simple.pl
+LICENSE
+Makefile.PL
+MakeHelper.pm
+MANIFEST
+MANIFEST.SKIP
+NEWS
+ppport.h
+README
t/Cairo.t
t/CairoFont.t
t/CairoMatrix.t
t/CairoPath.t
t/CairoPattern.t
t/CairoSurface.t
+TODO
Index: cairo-perl-private.h
===================================================================
RCS file: /cvs/cairo/cairo-perl/cairo-perl-private.h,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- cairo-perl-private.h 9 Nov 2006 19:43:43 -0000 1.5
+++ cairo-perl-private.h 30 Sep 2007 12:54:32 -0000 1.6
@@ -10,6 +10,8 @@
#ifndef _CAIRO_PERL_PRIVATE_H_
#define _CAIRO_PERL_PRIVATE_H_
+#include "ppport.h"
+
void * cairo_perl_alloc_temp (int nbytes);
void cairo_perl_set_isa (const char * child_package, const char * parent_package);
--- NEW FILE: ppport.h ---
#if 0
<<'SKIP';
#endif
/*
----------------------------------------------------------------------
ppport.h -- Perl/Pollution/Portability Version 3.12
Automatically created by Devel::PPPort running under perl 5.008008.
Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
includes in parts/inc/ instead.
Use 'perldoc ppport.h' to view the documentation below.
----------------------------------------------------------------------
SKIP
[...6338 lines suppressed...]
DPPP_(my_my_strlcpy)(char *dst, const char *src, Size_t size)
{
Size_t length, copy;
length = strlen(src);
if (size > 0) {
copy = (length >= size) ? size - 1 : length;
memcpy(dst, src, copy);
dst[copy] = '\0';
}
return length;
}
#endif
#endif
#endif /* _P_P_PORTABILITY_H_ */
/* End of File ppport.h */
More information about the cairo-commit
mailing list