Commit 554b9a75 authored by intrigeri's avatar intrigeri

New upstream version 1.107

parents 022d5be5 6f363d79
......@@ -898,6 +898,14 @@ void cairo_append_path (cairo_t *cr, cairo_path_t *path);
cairo_status_t cairo_status (cairo_t *cr);
#if CAIRO_VERSION >= CAIRO_VERSION_ENCODE(1, 16, 0)
void cairo_tag_begin (cairo_t * cr, const char_utf8 * tag_name, const char_utf8 * attributes);
void cairo_tag_end (cairo_t * cr, const char_utf8 * tag_name);
#endif
# --------------------------------------------------------------------------- #
MODULE = Cairo PACKAGE = Cairo PREFIX = cairo_
......
......@@ -580,6 +580,12 @@ cairo_pdf_surface_version_to_string (...)
#endif
#if CAIRO_VERSION >= CAIRO_VERSION_ENCODE(1, 16, 0)
void cairo_pdf_surface_set_metadata (cairo_surface_t *surface, cairo_pdf_metadata_t metadata, const char_utf8 * utf8);
#endif
#endif
# --------------------------------------------------------------------------- #
......
{
"abstract" : "Perl interface to the cairo 2d vector graphics library",
"author" : [
"unknown",
"Cairo Perl Team <gtk-perl-list at gnome dot org>"
],
"dynamic_config" : 1,
"generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.150001",
"generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150010",
"license" : [
"unknown",
"lgpl_2_1"
],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
"version" : "2"
"version" : 2
},
"name" : "Cairo",
"no_index" : {
......@@ -64,5 +66,6 @@
},
"x_MailingList" : "https://mail.gnome.org/mailman/listinfo/gtk-perl-list"
},
"version" : "1.106"
"version" : "1.107",
"x_serialization_backend" : "JSON::PP version 2.97001"
}
---
abstract: 'Perl interface to the cairo 2d vector graphics library'
author:
- unknown
- 'Cairo Perl Team <gtk-perl-list at gnome dot org>'
build_requires:
ExtUtils::MakeMaker: '0'
......@@ -9,8 +10,8 @@ configure_requires:
ExtUtils::MakeMaker: '0'
ExtUtils::PkgConfig: '1'
dynamic_config: 1
generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.150001'
license: lgpl
generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150010'
license: unknown
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: '1.4'
......@@ -30,4 +31,5 @@ resources:
homepage: http://gtk2-perl.sourceforge.net
license: http://www.gnu.org/licenses/lgpl-2.1.html
repository: git://git.gnome.org/perl-Cairo
version: '1.106'
version: '1.107'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
......@@ -325,6 +325,7 @@ my $have_cairo_1_4 = ExtUtils::PkgConfig->atleast_version("cairo", "1.4.0");
my $have_cairo_1_6 = ExtUtils::PkgConfig->atleast_version("cairo", "1.6.0");
my $have_cairo_1_8 = ExtUtils::PkgConfig->atleast_version("cairo", "1.8.0");
my $have_cairo_1_10 = ExtUtils::PkgConfig->atleast_version("cairo", "1.10.0");
my $have_cairo_1_16 = ExtUtils::PkgConfig->atleast_version("cairo", "1.16.0");
if ($have_cairo_1_2) {
add_new_enum_values(
......@@ -500,6 +501,21 @@ if ($have_cairo_1_10) {
$enums{cairo_region_overlap_t} = [];
}
if ($have_cairo_1_16) {
$enums{cairo_pdf_metadata_t} = [qw/
CAIRO_PDF_METADATA_
CAIRO_PDF_METADATA_TITLE
CAIRO_PDF_METADATA_AUTHOR
CAIRO_PDF_METADATA_SUBJECT
CAIRO_PDF_METADATA_KEYWORDS
CAIRO_PDF_METADATA_CREATOR
CAIRO_PDF_METADATA_CREATE_DATE
CAIRO_PDF_METADATA_MOD_DATE
/];
} else {
$enums{cairo_pdf_metadata_t} = [];
}
# --------------------------------------------------------------------------- #
my %object_guards = (
......
Overview of changes in Cairo 1.107
==================================
* Rename DOAP file to appease Gitlab
* Add bindings for cairo_tag_begin and cairo_tag_end
* Add a binding for cairo_pdf_surface_set_metadata
Overview of changes in Cairo 1.106
==================================
......
......@@ -14,7 +14,7 @@ use DynaLoader;
our @ISA = qw/DynaLoader/;
our $VERSION = '1.106';
our $VERSION = '1.107';
sub dl_load_flags { $^O eq 'darwin' ? 0x00 : 0x01 }
......@@ -340,6 +340,24 @@ C<$cr-E<gt>restore> to restore to the saved state.
=back
=item $cr->tag_begin($name, $atts) [1.16]
=over
=item $name: string
=item $atts: string
=back
=item $cr->tag_end($name) [1.16]
=over
=item $name: string
=back
=item $cr->copy_page
=item $cr->show_page
......@@ -1491,6 +1509,16 @@ For hysterical reasons, you can also use the following syntax:
=back
=item $surface->set_metadata($name, $value) [1.16]
=over
=item $name: string
=item $value: string
=back
=back
=cut
......
......@@ -10,7 +10,7 @@
use strict;
use warnings;
use Test::More tests => 70;
use Test::More tests => 72;
unless (eval 'use Test::Number::Delta; 1;') {
my $reason = 'Test::Number::Delta not available';
......@@ -286,3 +286,13 @@ isa_ok ($path, 'ARRAY');
$cr->append_path ($path);
is ($cr->status, 'success');
SKIP: {
skip 'new stuff', 2
unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 16, 0);
$cr->tag_begin("Link","https://www.perl.org");
is ($cr->status, 'success');
$cr->tag_end("Link");
is ($cr->status, 'success');
}
......@@ -12,7 +12,7 @@ use warnings;
use Config; # for byteorder
use Test::More tests => 88;
use Test::More tests => 89;
use constant IMG_WIDTH => 256;
use constant IMG_HEIGHT => 256;
......@@ -216,7 +216,7 @@ SKIP: {
}
SKIP: {
skip 'pdf surface', 13
skip 'pdf surface', 14
unless Cairo::HAS_PDF_SURFACE;
my $surf = Cairo::PdfSurface->create ('tmp.pdf', IMG_WIDTH, IMG_HEIGHT);
......@@ -268,6 +268,16 @@ SKIP: {
like (Cairo::PdfSurface->version_to_string('1-4'), qr/1\.4/);
}
SKIP: {
skip 'new stuff', 1
unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 16, 0);
$surf->set_metadata("title","Testing metadata");
$surf->set_metadata("author","Johan Vromans");
$surf->set_metadata("subject","cairo_pdf_set_metadata");
ok(1); # No get_metadata, so assume OK if we're still alive
}
unlink 'tmp.pdf';
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment