r35541 - in /branches/upstream/libpdf-create-perl/current: Changes Changes.PL META.yml lib/PDF/Create.pm lib/PDF/Create/Page.pm lib/PDF/Image/GIF.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun May 17 03:30:17 UTC 2009
Author: jawnsy-guest
Date: Sun May 17 03:30:11 2009
New Revision: 35541
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=35541
Log:
[svn-upgrade] Integrating new upstream version, libpdf-create-perl (1.03)
Modified:
branches/upstream/libpdf-create-perl/current/Changes
branches/upstream/libpdf-create-perl/current/Changes.PL
branches/upstream/libpdf-create-perl/current/META.yml
branches/upstream/libpdf-create-perl/current/lib/PDF/Create.pm
branches/upstream/libpdf-create-perl/current/lib/PDF/Create/Page.pm
branches/upstream/libpdf-create-perl/current/lib/PDF/Image/GIF.pm
Modified: branches/upstream/libpdf-create-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/Changes?rev=35541&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/Changes (original)
+++ branches/upstream/libpdf-create-perl/current/Changes Sun May 17 03:30:11 2009
@@ -1,139 +1,147 @@
-commit 73d46b5...
+commit d2f238a... PDF::Create v1.03^0
Author: Markus Baertschi <markus at markus.org>
-Date: Thu Jul 10 17:49:15 2008 +0200
+Date: Tue Mar 24 00:52:31 2009 +0100
+
+ Fix: Missing % in line 93, reported by Dan Carson.
+
+commit d6b21d3... PDF::Create v1.03
+Author: Markus Baertschi <markus at markus.org>
+Date: Fri Jul 11 00:01:10 2008 +0200
+
+ Updated Changelog generation to add version information.
+ The version information is coming from tags. New version = tag.
+
+commit 87b3f1b... PDF::Create v1.02
+Author: Markus Baertschi <markus at markus.org>
+Date: Thu Jul 10 22:36:02 2008 +0200
Fixed gif image processing on big-endian machines.
- Thanks to Neil Watkiss <neil.watkiss at gmail.com> for the patch !
+ Thanks to Neil Watkiss <neil.watkiss at gmail.com> for the patch.
+ Published as Version 1.02.
-commit 52789c0...
-Author: Markus Baertschi <markus at markus.org>
-Date: Tue Jun 3 14:47:38 2008 +0200
-
- Additions to Page.pm by Slaven
-
-commit 886ea2e...
+commit 886ea2e... PDF::Create v1.01
Author: Markus Baertschi <markus at markus.org>
Date: Tue Jun 3 12:43:41 2008 +0200
Renamed Image modules to fix bug 28636 (rt.cpan.org).
-commit 7acfe62...
+commit 7acfe62... PDF::Create v1.01
Author: Markus Baertschi <markus at markus.org>
Date: Tue Jun 3 10:53:56 2008 +0200
Updates Michael's email, added reference to git repository at github
-commit e52ef1f...
+commit e52ef1f... PDF::Create v1.01
Merge: 88fad3e... 875425d...
Author: Markus Baertschi <markus at markus.org>
Date: Sat May 31 19:26:23 2008 +0200
Merge branch 'master' of git://github.com/markusb/pdf-create
-commit 88fad3e...
+commit 88fad3e... PDF::Create v1.01
Author: Markus Baertschi <markus at markus.org>
Date: Sat May 31 19:20:33 2008 +0200
Updated version to 1.0 to fit better with PDF::Create and show maturity
-commit ccf26de...
+commit ccf26de... PDF::Create v1.01
Author: Markus Baertschi <markus at markus.org>
Date: Sat May 31 19:18:35 2008 +0200
Updated build system to generate Changes file directly from git log
-commit 28b0922...
+commit 28b0922... PDF::Create v1.0
Author: Markus Baertschi <markus at markus.org>
Date: Sat May 31 12:49:32 2008 +0200
Version 1.0
-commit 875425d...
+commit 875425d... PDF::Create v1.01
Author: Markus Baertschi <markus at markus.org>
Date: Sat May 31 12:49:32 2008 +0200
Version 1.0
-commit 9adbcbf...
+commit 9adbcbf... PDF::Create v1.0
Author: Markus Baertschi <markus at markus.org>
Date: Sat May 31 12:05:17 2008 +0200
More POD fixing
-commit 6f7ba3f...
+commit 6f7ba3f... PDF::Create v0.10
Author: Markus Baertschi <markus at markus.org>
Date: Sat May 31 11:23:50 2008 +0200
Version 0.10
-commit f9e1656...
+commit f9e1656... PDF::Create v0.10
Author: Markus Baertschi <markus at markus.org>
Date: Fri May 30 09:00:53 2008 +0200
Clarified documentation
-commit da76efc...
+commit da76efc... PDF::Create v0.10
Author: Markus Baertschi <markus at markus.org>
Date: Thu May 29 22:04:07 2008 +0200
Fixed 'Rotate', added debugging
-commit e240621...
+commit e240621... PDF::Create v0.10
Author: Markus Baertschi <markus at markus.org>
Date: Tue May 20 19:44:21 2008 +0200
Fixed documentation formatting
-commit fe3823d...
+commit fe3823d... PDF::Create v0.10
Author: Markus Baertschi <markus at markus.org>
Date: Tue May 20 18:00:13 2008 +0200
Added small cgi sample
-commit 87fc07f...
+commit 87fc07f... PDF::Create v0.9
Author: Markus Baertschi <markus at markus.org>
Date: Tue May 20 17:21:57 2008 +0200
Changed version to 0.9
-commit 90f37ce...
+commit 90f37ce... PDF::Create v0.9
Author: Markus Baertschi <markus at markus.org>
Date: Tue May 20 17:18:40 2008 +0200
Cleaned up samples and comments
-commit 2b50205...
+commit 2b50205... PDF::Create v0.9
Author: Markus Baertschi <markus at markus.org>
Date: Tue May 20 17:07:10 2008 +0200
Added better testing
-commit 48262cc...
+commit 48262cc... PDF::Create v0.9
Author: Markus Baertschi <markus at markus.org>
Date: Tue May 20 17:03:48 2008 +0200
Improved documentation
-commit 3ed3ded...
+commit 3ed3ded... PDF::Create v0.9
Author: Markus Baertschi <markus at markus.org>
Date: Tue May 20 17:02:30 2008 +0200
Add error-checking
-commit a726f88...
+commit a726f88... PDF::Create v0.9
Author: Markus Baertschi <markus at markus.org>
Date: Sun Sep 30 19:00:42 2007 +0200
Re-added pdf-logo files
-commit 1490f88...
+commit 1490f88... PDF::Create v0.9
Author: Markus Baertschi <markus at markus.org>
Date: Sun Sep 30 18:59:04 2007 +0200
New function: printnl (print multiple lines)
Modified: get_page_size (arguments case-independent)
-commit e4d7378...
+commit e4d7378... PDF::Create v0.9
Author: Markus Baertschi <markus at markus.org>
Date: Mon Sep 3 18:05:29 2007 +0200
Modified: branches/upstream/libpdf-create-perl/current/Changes.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/Changes.PL?rev=35541&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/Changes.PL (original)
+++ branches/upstream/libpdf-create-perl/current/Changes.PL Sun May 17 03:30:11 2009
@@ -2,10 +2,26 @@
#
# Changes.PL
#
-# Create the 'Changes' file automatically from git commit messages'
-#
+# Create the 'Changes' file automatically from git commit messages
+# and versioning tags in the repository
use strict;
-`git log --abbrev-commit --pretty > Changes`;
+open(OUT, ">Changes") or die "Can not open 'Changes' for writing\n";
+open(IN,"git log --abbrev-commit --pretty |") or die "Can not run git\n";
+while(<IN>){
+ # read the change log
+ if (/^commit /) {
+ chop;
+ # for each commit get the version from git
+ my $sha=(split(/ /,$_,2))[1];
+ $sha =~ s/\.\.\.$//;
+ my $vers = `git name-rev --tags $sha 2>/dev/null`;
+ $vers =~ s/^.*\///;
+ $vers =~ s/~.*$//;
+ print OUT "commit $sha... PDF::Create $vers";
+ } else {
+ print OUT;
+ }
+}
Modified: branches/upstream/libpdf-create-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/META.yml?rev=35541&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/META.yml (original)
+++ branches/upstream/libpdf-create-perl/current/META.yml Sun May 17 03:30:11 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: PDF-Create
-version: 1.02
+version: 1.03
abstract: create PDF files
license: ~
generated_by: ExtUtils::MakeMaker version 6.36
Modified: branches/upstream/libpdf-create-perl/current/lib/PDF/Create.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/lib/PDF/Create.pm?rev=35541&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/lib/PDF/Create.pm (original)
+++ branches/upstream/libpdf-create-perl/current/lib/PDF/Create.pm Sun May 17 03:30:11 2009
@@ -25,7 +25,7 @@
package PDF::Create;
-our $VERSION = "1.02";
+our $VERSION = "1.03";
our $DEBUG = 0;
use strict;
@@ -90,7 +90,7 @@
$self->{'Keywords'} = $params{'Keywords'} if defined $params{'Keywords'};
if (defined $params{'CreationDate'}) {
$self->{'CreationDate'} =
- sprintf "D:4u%0.2u%0.2u%0.2u%0.2u%0.2u",
+ sprintf "D:%4u%0.2u%0.2u%0.2u%0.2u%0.2u",
$params{'CreationDate'}->[5] + 1900, $params{'CreationDate'}->[4] + 1,
$params{'CreationDate'}->[3], $params{'CreationDate'}->[2],
$params{'CreationDate'}->[1], $params{'CreationDate'}->[0];
Modified: branches/upstream/libpdf-create-perl/current/lib/PDF/Create/Page.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/lib/PDF/Create/Page.pm?rev=35541&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/lib/PDF/Create/Page.pm (original)
+++ branches/upstream/libpdf-create-perl/current/lib/PDF/Create/Page.pm Sun May 17 03:30:11 2009
@@ -1,11 +1,12 @@
# -*- mode: Perl -*-
-#
+
# PDF::Create::Page - PDF pages tree
# Author: Fabien Tassin <fta at sofaraway.org>
+# Version: 0.06
# Copyright 1999-2001 Fabien Tassin <fta at sofaraway.org>
-# Copyright 2007-2008 Markus Baertschi
-# Copyright 2008 Slaven Rezic
-
+
+# bugs :
+# - ...
# 31.05.2008 1.00 Markus Baertschi
# - Changed version to 1.00 to go with PDF::Create
@@ -17,11 +18,10 @@
use Carp;
use FileHandle;
use Data::Dumper;
-use constant PI => 3.141592653;
@ISA = qw(Exporter);
@EXPORT = qw();
-$VERSION = 1.02;
+$VERSION = 1.00;
$DEBUG = 0;
my $font_widths = &init_widths;
@@ -311,56 +311,6 @@
}
$w / 1000;
}
-
-# Additional methods by Slaven
-# set_stroke_color
-# set_fill_color
-# set_line_width
-# circle
-sub set_stroke_color {
- my($self, $r, $g, $b) = @_;
- return if (defined $self->{'current_stroke_color'} &&
- $self->{'current_stroke_color'} eq join(",", $r, $g, $b));
- $self->{'pdf'}->page_stream($self);
- $self->{'pdf'}->add("$r $g $b RG");
- $self->{'current_stroke_color'} = join(",", $r, $g, $b);
-}
-
-sub set_fill_color {
- my($self, $r, $g, $b) = @_;
- return if (defined $self->{'current_fill_color'} &&
- $self->{'current_fill_color'} eq join(",", $r, $g, $b));
- $self->{'pdf'}->page_stream($self);
- $self->{'pdf'}->add("$r $g $b rg");
- $self->{'current_fill_color'} = join(",", $r, $g, $b);
-}
-
-sub set_line_width {
- my($self, $w) = @_;
- return if (defined $self->{'current_line_width'} &&
- $self->{'current_line_width'} == $w);
- $self->{'pdf'}->page_stream($self);
- $self->{'pdf'}->add("$w w");
- $self->{'current_line_width'} = $w;
-}
-
-sub circle {
- my($self, $x, $y, $r) = @_;
-
- my @coords;
- for(my $i = 0; $i < PI*2; $i+=PI*2/$r/2) {
- my($xi,$yi) = map { $_*$r } (sin $i, cos $i);
- push @coords, $x+$xi, $y+$yi;
- }
- push @coords, @coords[0,1];
- @coords = map { sprintf "%.2f", $_ } @coords;
-
- $self->moveto(shift @coords, shift @coords);
- for(my $i = 0; $i <= $#coords; $i+=2) {
- $self->lineto($coords[$i], $coords[$i+1]);
- }
-}
-#
sub printnl {
my $self = shift;
Modified: branches/upstream/libpdf-create-perl/current/lib/PDF/Image/GIF.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpdf-create-perl/current/lib/PDF/Image/GIF.pm?rev=35541&op=diff
==============================================================================
--- branches/upstream/libpdf-create-perl/current/lib/PDF/Image/GIF.pm (original)
+++ branches/upstream/libpdf-create-perl/current/lib/PDF/Image/GIF.pm Sun May 17 03:30:11 2009
@@ -21,7 +21,7 @@
@ISA = qw(Exporter);
@EXPORT = qw();
-$VERSION = 1.02;
+$VERSION = 1.00;
$DEBUG = 0;
sub new {
More information about the Pkg-perl-cvs-commits
mailing list