r26751 - in /trunk/libimage-seek-perl: const-c.inc const-xs.inc debian/ debian/changelog debian/compat debian/control debian/copyright debian/rules debian/watch
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Mon Nov 10 18:16:12 UTC 2008
Author: gregoa
Date: Mon Nov 10 18:16:08 2008
New Revision: 26751
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=26751
Log:
[svn-inject] Applying Debian modifications to trunk
Added:
trunk/libimage-seek-perl/const-c.inc
trunk/libimage-seek-perl/const-xs.inc
trunk/libimage-seek-perl/debian/
trunk/libimage-seek-perl/debian/changelog
trunk/libimage-seek-perl/debian/compat
trunk/libimage-seek-perl/debian/control
trunk/libimage-seek-perl/debian/copyright
trunk/libimage-seek-perl/debian/rules (with props)
trunk/libimage-seek-perl/debian/watch
Added: trunk/libimage-seek-perl/const-c.inc
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libimage-seek-perl/const-c.inc?rev=26751&op=file
==============================================================================
--- trunk/libimage-seek-perl/const-c.inc (added)
+++ trunk/libimage-seek-perl/const-c.inc Mon Nov 10 18:16:08 2008
@@ -1,0 +1,55 @@
+#define PERL_constant_NOTFOUND 1
+#define PERL_constant_NOTDEF 2
+#define PERL_constant_ISIV 3
+#define PERL_constant_ISNO 4
+#define PERL_constant_ISNV 5
+#define PERL_constant_ISPV 6
+#define PERL_constant_ISPVN 7
+#define PERL_constant_ISSV 8
+#define PERL_constant_ISUNDEF 9
+#define PERL_constant_ISUV 10
+#define PERL_constant_ISYES 11
+
+#ifndef NVTYPE
+typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it. */
+#endif
+#ifndef aTHX_
+#define aTHX_ /* 5.6 or later define this for threading support. */
+#endif
+#ifndef pTHX_
+#define pTHX_ /* 5.6 or later define this for threading support. */
+#endif
+
+static int
+constant (pTHX_ const char *name, STRLEN len) {
+ /* Initially switch on the length of the name. */
+ /* When generated this function returned values for the list of names given
+ in this section of perl code. Rather than manually editing these functions
+ to add or remove constants, which would result in this comment and section
+ of code becoming inaccurate, we recommend that you edit this section of
+ code, and use it to regenerate a new set of constant functions which you
+ then use to replace the originals.
+
+ Regenerate these constant functions by feeding this entire source file to
+ perl -x
+
+#!/usr/bin/perl -w
+use ExtUtils::Constant qw (constant_types C_constant XS_constant);
+
+my $types = {map {($_, 1)} qw()};
+my @names = (qw());
+
+print constant_types(), "\n"; # macro defs
+foreach (C_constant ("Image::Seek", 'constant', 'IV', $types, undef, 3, @names) ) {
+ print $_, "\n"; # C constant subs
+}
+print "\n#### XS Section:\n";
+print XS_constant ("Image::Seek", $types);
+__END__
+ */
+
+ switch (len) {
+ }
+ return PERL_constant_NOTFOUND;
+}
+
Added: trunk/libimage-seek-perl/const-xs.inc
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libimage-seek-perl/const-xs.inc?rev=26751&op=file
==============================================================================
--- trunk/libimage-seek-perl/const-xs.inc (added)
+++ trunk/libimage-seek-perl/const-xs.inc Mon Nov 10 18:16:08 2008
@@ -1,0 +1,89 @@
+void
+constant(sv)
+ PREINIT:
+#ifdef dXSTARG
+ dXSTARG; /* Faster if we have it. */
+#else
+ dTARGET;
+#endif
+ STRLEN len;
+ int type;
+ /* IV iv; Uncomment this if you need to return IVs */
+ /* NV nv; Uncomment this if you need to return NVs */
+ /* const char *pv; Uncomment this if you need to return PVs */
+ INPUT:
+ SV * sv;
+ const char * s = SvPV(sv, len);
+ PPCODE:
+ type = constant(aTHX_ s, len);
+ /* Return 1 or 2 items. First is error message, or undef if no error.
+ Second, if present, is found value */
+ switch (type) {
+ case PERL_constant_NOTFOUND:
+ sv =
+ sv_2mortal(newSVpvf("%s is not a valid Image::Seek macro", s));
+ PUSHs(sv);
+ break;
+ case PERL_constant_NOTDEF:
+ sv = sv_2mortal(newSVpvf(
+ "Your vendor has not defined Image::Seek macro %s, used",
+ s));
+ PUSHs(sv);
+ break;
+ /* Uncomment this if you need to return IVs
+ case PERL_constant_ISIV:
+ EXTEND(SP, 1);
+ PUSHs(&PL_sv_undef);
+ PUSHi(iv);
+ break; */
+ /* Uncomment this if you need to return NOs
+ case PERL_constant_ISNO:
+ EXTEND(SP, 1);
+ PUSHs(&PL_sv_undef);
+ PUSHs(&PL_sv_no);
+ break; */
+ /* Uncomment this if you need to return NVs
+ case PERL_constant_ISNV:
+ EXTEND(SP, 1);
+ PUSHs(&PL_sv_undef);
+ PUSHn(nv);
+ break; */
+ /* Uncomment this if you need to return PVs
+ case PERL_constant_ISPV:
+ EXTEND(SP, 1);
+ PUSHs(&PL_sv_undef);
+ PUSHp(pv, strlen(pv));
+ break; */
+ /* Uncomment this if you need to return PVNs
+ case PERL_constant_ISPVN:
+ EXTEND(SP, 1);
+ PUSHs(&PL_sv_undef);
+ PUSHp(pv, iv);
+ break; */
+ /* Uncomment this if you need to return SVs
+ case PERL_constant_ISSV:
+ EXTEND(SP, 1);
+ PUSHs(&PL_sv_undef);
+ PUSHs(sv);
+ break; */
+ /* Uncomment this if you need to return UNDEFs
+ case PERL_constant_ISUNDEF:
+ break; */
+ /* Uncomment this if you need to return UVs
+ case PERL_constant_ISUV:
+ EXTEND(SP, 1);
+ PUSHs(&PL_sv_undef);
+ PUSHu((UV)iv);
+ break; */
+ /* Uncomment this if you need to return YESs
+ case PERL_constant_ISYES:
+ EXTEND(SP, 1);
+ PUSHs(&PL_sv_undef);
+ PUSHs(&PL_sv_yes);
+ break; */
+ default:
+ sv = sv_2mortal(newSVpvf(
+ "Unexpected return type %d while processing Image::Seek macro %s, used",
+ type, s));
+ PUSHs(sv);
+ }
Added: trunk/libimage-seek-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libimage-seek-perl/debian/changelog?rev=26751&op=file
==============================================================================
--- trunk/libimage-seek-perl/debian/changelog (added)
+++ trunk/libimage-seek-perl/debian/changelog Mon Nov 10 18:16:08 2008
@@ -1,0 +1,5 @@
+libimage-seek-perl (0.02-1) UNRELEASED; urgency=low
+
+ * Initial Release (closes: #505151).
+
+ -- gregor herrmann <gregoa at debian.org> Mon, 10 Nov 2008 19:07:16 +0100
Added: trunk/libimage-seek-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libimage-seek-perl/debian/compat?rev=26751&op=file
==============================================================================
--- trunk/libimage-seek-perl/debian/compat (added)
+++ trunk/libimage-seek-perl/debian/compat Mon Nov 10 18:16:08 2008
@@ -1,0 +1,1 @@
+7
Added: trunk/libimage-seek-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libimage-seek-perl/debian/control?rev=26751&op=file
==============================================================================
--- trunk/libimage-seek-perl/debian/control (added)
+++ trunk/libimage-seek-perl/debian/control Mon Nov 10 18:16:08 2008
@@ -1,0 +1,19 @@
+Source: libimage-seek-perl
+Section: perl
+Priority: optional
+Build-Depends: debhelper (>= 7), perl (>= 5.6.0-12)
+Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
+Uploaders: gregor herrmann <gregoa at debian.org>
+Standards-Version: 3.8.0
+Homepage: http://search.cpan.org/dist/Image-Seek/
+Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libimage-seek-perl/
+Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libimage-seek-perl/
+
+Package: libimage-seek-perl
+Architecture: any
+Depends: ${perl:Depends}, ${shlibs:Depends}, ${misc:Depends}
+Description: module to find similar pictures in a library
+ ImgSeek (http://www.imgseek.net/) is an implementation of Haar wavelet
+ decomposition techniques to find similar pictures in a library.
+ Image::Seek is a port of the ImgSeek library to Perl's XS. It can deal with
+ image objects produced by the Imager and Image::Imlib2 libraries.
Added: trunk/libimage-seek-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libimage-seek-perl/debian/copyright?rev=26751&op=file
==============================================================================
--- trunk/libimage-seek-perl/debian/copyright (added)
+++ trunk/libimage-seek-perl/debian/copyright Mon Nov 10 18:16:08 2008
@@ -1,0 +1,59 @@
+Format-Specification:
+ http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
+Upstream-Maintainer: Lilo Huang <kenwu at cpan.org>
+Upstream-Source: http://search.cpan.org/dist/Image-Seek/
+Upstream-Name: Image-Seek
+
+Files: *
+Copyright:
+ 2005 by Simon Cozens <simon at cpan.org>
+ 2008 by 2008 by Lilo Huang <kenwu at cpan.org>
+License: GPL-2+
+ This library is free software; as it is a derivative work of imgseek,
+ this library is distributed under the same terms (GPL) as imgseek.
+ .
+ (Taken from lib/Image/Seek.pm, README says "same as Perl itself")
+
+Files: haar.cpp
+Copyright:
+ Version from imgSeek Copyright (C) 2003 Ricardo Niederberger Cabral
+ XS version derived & Copyright (C) 2005 Simon Cozens
+License: GPL-2+
+
+Files: haar.h, imgdb.cpp, imgdb.h
+Copyright: 2003 Ricardo Niederberger Cabral
+License: GPL-2+
+
+Files: ppport.h
+Copyright:
+ Version 3.x, Copyright (c) 2004, Marcus Holland-Moritz.
+ Version 2.x, Copyright (C) 2001, Paul Marquess.
+ Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
+License-Alias: Perl
+License: Artistic | GPL-1+
+
+Files: debian/*
+Copyright: 2008, gregor herrmann <gregoa at debian.org>
+License: Artistic | GPL-1+
+
+License: Artistic
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the Artistic License, which comes with Perl.
+ On Debian GNU/Linux systems, the complete text of the Artistic License
+ can be found in /usr/share/common-licenses/Artistic
+
+License: GPL-1+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+ On Debian GNU/Linux systems, the complete text of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL'
+
+License: GPL-2+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+ On Debian GNU/Linux systems, the complete text of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL'
Added: trunk/libimage-seek-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libimage-seek-perl/debian/rules?rev=26751&op=file
==============================================================================
--- trunk/libimage-seek-perl/debian/rules (added)
+++ trunk/libimage-seek-perl/debian/rules Mon Nov 10 18:16:08 2008
@@ -1,0 +1,23 @@
+#!/usr/bin/make -f
+
+build: build-stamp
+build-stamp:
+ dh build
+ touch $@
+
+clean:
+ dh $@
+
+install: install-stamp
+install-stamp: build-stamp
+ dh install
+ touch $@
+
+binary-arch: install
+ dh $@
+
+binary-indep:
+
+binary: binary-arch binary-indep
+
+.PHONY: binary binary-arch binary-indep install clean build
Propchange: trunk/libimage-seek-perl/debian/rules
------------------------------------------------------------------------------
svn:executable = *
Added: trunk/libimage-seek-perl/debian/watch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libimage-seek-perl/debian/watch?rev=26751&op=file
==============================================================================
--- trunk/libimage-seek-perl/debian/watch (added)
+++ trunk/libimage-seek-perl/debian/watch Mon Nov 10 18:16:08 2008
@@ -1,0 +1,5 @@
+# format version number, currently 3; this line is compulsory!
+version=3
+http://search.cpan.org/dist/Image-Seek/ .*/Image-Seek-v?(\d[\d_.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$
+# newer versions:
+http://www.cpan.org/modules/by-authors/id/K/KE/KENWU/Image-Seek-v?(\d[\d_.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$
More information about the Pkg-perl-cvs-commits
mailing list