[cairo-commit] cairo-perl Cairo.pm, 1.11, 1.12 Cairo.xs, 1.10, 1.11 CairoPattern.xs, 1.8, 1.9 CairoSurface.xs, 1.10, 1.11 ChangeLog, 1.20, 1.21 MakeHelper.pm, 1.5, 1.6 Makefile.PL, 1.13, 1.14

Torsten Schoenfeld commit at pdx.freedesktop.org
Sat Jun 3 07:21:11 PDT 2006


Committed by: tsch

Update of /cvs/cairo/cairo-perl
In directory kemper:/tmp/cvs-serv11079

Modified Files:
	Cairo.pm Cairo.xs CairoPattern.xs CairoSurface.xs ChangeLog 
	MakeHelper.pm Makefile.PL 
Log Message:
	* Cairo.pm: Document Cairo::get_group_target, Cairo::new_sub_path,
	Cairo::Pattern::get_type, Cairo::set_scaled_font, Cairo::version,
	and Cairo::version_string.

	* t/Cairo.t, Cairo.xs: Allow Cairo::version[_string] to be called
	as a function and as a class method.

	* CairoPattern.xs, CairoSurface.xs, t/CairoSurface.t, Makefile.PL,
	examples/simple.pl, examples/png/caps_joins.pl,
	examples/png/hering.pl: Whitespace fixes.

	* t/CairoSurface.t, CairoSurface.xs: Wrap
	cairo_surface_get_content.

	* MakeHelper.pm: Don't add a linebreak to croaks so perl prints
	line information.

	* Makefile.PL: Require cairo 1.1.7.

	* examples/png/README, examples/png/bevels.pl,
	examples/png/spline-pipeline.pl, examples/png/text-rotate.pl,
	examples/png/text.pl: New example ports.


Index: Cairo.pm
===================================================================
RCS file: /cvs/cairo/cairo-perl/Cairo.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- Cairo.pm	7 May 2006 14:17:39 -0000	1.11
+++ Cairo.pm	3 Jun 2006 14:21:09 -0000	1.12
@@ -126,6 +126,8 @@
 
 =item $surface = $cr->get_target
 
+=item $surface = $cr->get_group_target
+
 =item $cr->set_source_rgb ($red, $green, $blue)
 
 =over
@@ -412,6 +414,8 @@
 
 =item $cr->new_path
 
+=item $cr->new_sub_path
+
 =item $cr->close_path
 
 =item $cr->arc ($xc, $yc, $radius, $angle1, $angle2)
@@ -564,6 +568,8 @@
 
 =item $status = $pattern->status
 
+=item $type = $pattern->get_type
+
 =item $pattern->set_matrix ($matrix)
 
 =over
@@ -847,6 +853,14 @@
 
 =item $options = $cr->get_font_options
 
+=item $cr->set_scaled_font ($scaled_font)
+
+=over
+
+=item $scaled_font: I<Cairo::ScaledFont>
+
+=back
+
 =item $cr->show_text ($utf8)
 
 =over
@@ -897,6 +911,20 @@
 
 # --------------------------------------------------------------------------- #
 
+=head2 Version Information -- Run-time version checks.
+
+=over
+
+=item $version = Cairo->version
+
+=item $string = Cairo->version_string
+
+=back
+
+=cut
+
+# --------------------------------------------------------------------------- #
+
 =head1 SEE ALSO
 
 =over

Index: Cairo.xs
===================================================================
RCS file: /cvs/cairo/cairo-perl/Cairo.xs,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- Cairo.xs	14 May 2006 13:43:10 -0000	1.10
+++ Cairo.xs	3 Jun 2006 14:21:09 -0000	1.11
@@ -221,9 +221,15 @@
 
 MODULE = Cairo	PACKAGE = Cairo	PREFIX = cairo_
 
-int cairo_version ();
+# int cairo_version ();
+int cairo_version (class=NULL)
+    C_ARGS:
+	/* void */
 
-const char* cairo_version_string ();
+# const char* cairo_version_string ();
+const char* cairo_version_string (class=NULL)
+    C_ARGS:
+	/* void */
 
 # ---------------------------------------------------------------------------- #
 

Index: CairoPattern.xs
===================================================================
RCS file: /cvs/cairo/cairo-perl/CairoPattern.xs,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- CairoPattern.xs	14 May 2006 13:43:10 -0000	1.8
+++ CairoPattern.xs	3 Jun 2006 14:21:09 -0000	1.9
@@ -38,7 +38,7 @@
 		package = "Cairo::Pattern";
 		break;
 	}
-	
+
 	return package;
 }
 

Index: CairoSurface.xs
===================================================================
RCS file: /cvs/cairo/cairo-perl/CairoSurface.xs,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- CairoSurface.xs	14 May 2006 13:43:10 -0000	1.10
+++ CairoSurface.xs	3 Jun 2006 14:21:09 -0000	1.11
@@ -44,7 +44,7 @@
 		package = "Cairo::Surface";
 		break;
 	}
-	
+
 	return package;
 }
 
@@ -225,6 +225,8 @@
 
 cairo_surface_type_t cairo_surface_get_type (cairo_surface_t *surface);
 
+cairo_content_t cairo_surface_get_content (cairo_surface_t *surface);
+
 #ifdef CAIRO_HAS_PNG_FUNCTIONS
 
 cairo_status_t cairo_surface_write_to_png (cairo_surface_t *surface, const char *filename);

Index: ChangeLog
===================================================================
RCS file: /cvs/cairo/cairo-perl/ChangeLog,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- ChangeLog	14 May 2006 13:43:10 -0000	1.20
+++ ChangeLog	3 Jun 2006 14:21:09 -0000	1.21
@@ -1,3 +1,28 @@
+2006/06/03	tsch
+
+	* Cairo.pm: Document Cairo::get_group_target, Cairo::new_sub_path,
+	Cairo::Pattern::get_type, Cairo::set_scaled_font, Cairo::version,
+	and Cairo::version_string.
+
+	* t/Cairo.t, Cairo.xs: Allow Cairo::version[_string] to be called
+	as a function and as a class method.
+
+	* CairoPattern.xs, CairoSurface.xs, t/CairoSurface.t, Makefile.PL,
+	examples/simple.pl, examples/png/caps_joins.pl,
+	examples/png/hering.pl: Whitespace fixes.
+
+	* t/CairoSurface.t, CairoSurface.xs: Wrap
+	cairo_surface_get_content.
+
+	* MakeHelper.pm: Don't add a linebreak to croaks so perl prints
+	line information.
+
+	* Makefile.PL: Require cairo 1.1.7.
+
+	* examples/png/README, examples/png/bevels.pl,
+	examples/png/spline-pipeline.pl, examples/png/text-rotate.pl,
+	examples/png/text.pl: New example ports.
+
 2006/05/14	tsch
 
 	* t/CairoSurface.t, CairoSurface.xs: Remove

Index: MakeHelper.pm
===================================================================
RCS file: /cvs/cairo/cairo-perl/MakeHelper.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- MakeHelper.pm	7 May 2006 14:17:39 -0000	1.5
+++ MakeHelper.pm	3 Jun 2006 14:21:09 -0000	1.6
@@ -357,7 +357,7 @@
 	char * str = SvPV_nolen ($name);
 
 	$tree_from
-	croak ("`%s' is not a valid $_ value; valid values are: $value_list\\n", str);
+	croak ("`%s' is not a valid $_ value; valid values are: $value_list", str);
 
 	return 0;
 }

Index: Makefile.PL
===================================================================
RCS file: /cvs/cairo/cairo-perl/Makefile.PL,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- Makefile.PL	7 May 2006 14:17:39 -0000	1.13
+++ Makefile.PL	3 Jun 2006 14:21:09 -0000	1.14
@@ -22,7 +22,7 @@
 	unless (eval "use $module $version; 1" ) {
 		print "This module requires $module to install itself.\n";
 		my $yn = ExtUtils::MakeMaker::prompt("  Install $module from CPAN?", 'y');
-      
+
 		unless ($yn =~ /^y/i) {
 			die " *** Cannot install without $module.  Exiting ...\n";
 		}
@@ -37,7 +37,7 @@
 
 		CPAN::Shell->install($module);
 
-		chdir $cwd 
+		chdir $cwd
 			or die "Cannot chdir() back to $cwd: $!";
 	}
 	eval "use $module $version; 1" or die $@;
@@ -47,7 +47,7 @@
 mkdir $autogen_dir unless (-d $autogen_dir);
 $MakeHelper::autogen_dir = $autogen_dir;
 
-my %cairo_cfg = ExtUtils::PkgConfig->find ('cairo >= 1.1.6');
+my %cairo_cfg = ExtUtils::PkgConfig->find ('cairo >= 1.1.7');
 
 my %backend_macros = (
 	'cairo_pdf_surface_t' => 'CAIRO_HAS_PDF_SURFACE',



More information about the cairo-commit mailing list