--- libtree-redblack-perl-0.5.orig/debian/control +++ libtree-redblack-perl-0.5/debian/control @@ -0,0 +1,29 @@ +Source: libtree-redblack-perl +Section: perl +Priority: optional +Build-Depends: debhelper (>= 7) +Build-Depends-Indep: perl (>= 5.6.0-20) +Maintainer: Debian Perl Group +Uploaders: Gunnar Wolf , + gregor herrmann , Damyan Ivanov +Standards-Version: 3.8.0 +Homepage: http://search.cpan.org/dist/Tree-RedBlack/ +Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libtree-redblack-perl/ +Vcs-Browser: http://svn.debian.org/wsvn/pkg-perl/trunk/libtree-redblack-perl/ + +Package: libtree-redblack-perl +Architecture: all +Depends: ${perl:Depends} +Description: Perl implementation of Red/Black tree, a balanced tree + This is a demonstration package, showing the performance differences + between different methods of data storage and accessing. It contains + a perl implementation of the Red/Black tree algorithm found in the + book "Algorithms", by Cormen, Leiserson & Rivest (more commonly known + as "CLR" or "The White Book"). A Red/Black tree is a binary tree + which remains "balanced"- that is, the longest length from root to a + node is at most one more than the shortest such length. It is fairly + efficient; no operation takes more than O(lg(n)) time. + . + An example perl script is contained in the documentation directory, + which would show the different run times using hash table, linear or + tree structure. --- libtree-redblack-perl-0.5.orig/debian/perlspeed.pl +++ libtree-redblack-perl-0.5/debian/perlspeed.pl @@ -0,0 +1,57 @@ +#!/usr/bin/perl + +eval 'use Tree::RedBlack'; +if (0) { + #use linear routines + $val = sub { # gets the number, returns name string + return $names[ $_[0] ]; + }; + $locate = + sub { # gets an md5sum, returns the number in storage array (or undef) + + for ( 0 .. $#sums ) { + if ( $sums[$_] eq $_[0] ) { return $names[$_]; } + } + return undef; + }; + $feed = sub { # inserts an entry with sum=first-arg and name=second-arg + push ( @sums, $_[0] ); + push ( @names, $_[1] ); + }; +} + +if (1) { + print STDERR "libtree-redblack-perl found, using tree structures.\n"; + $t = new Tree::RedBlack; + $val = + sub { return $_[0]->val }; # gets the node reference, returns value (name string) + $locate = + sub { return $t->node( $_[0] ) }; # gets the md5sum, returns a node reference (or undef) + $feed = sub { + return $t->insert( $_[0], $_[1] ); + } # inserts a node with key=first-arg and name=second-arg +} + +if (0) { + print STDERR "using hash.\n"; + $val = + sub { return $_[0]->val }; # gets the node reference, returns value (name string) + $locate = + sub { return $HASH{ $_[0] } }; # gets the md5sum, returns a node reference (or undef) + $feed = sub { $HASH{ $_[0] } = $_[1] }; +} + +open( find, "locate . |" ); + +FILE: while () { + + print $i++,"\n"; + if ( !defined( $probe = &$locate($sum) ) ) + { # look for the existing node in db $thefile + + # &$feed($sum, $thefile); # file is new, feeding database + &$feed( $_, $_ ); + + # print "NEU: Summe: $sum, Datei: $thefile\n"; + } +} --- libtree-redblack-perl-0.5.orig/debian/docs +++ libtree-redblack-perl-0.5/debian/docs @@ -0,0 +1 @@ +README --- libtree-redblack-perl-0.5.orig/debian/compat +++ libtree-redblack-perl-0.5/debian/compat @@ -0,0 +1 @@ +7 --- libtree-redblack-perl-0.5.orig/debian/watch +++ libtree-redblack-perl-0.5/debian/watch @@ -0,0 +1,6 @@ +# Example watch control file for uscan +# Rename this file to "watch" and then you can run the "uscan" command +# to check for upstream updates and more. +# Site Directory Pattern Version Script +version=3 +http://search.cpan.org/dist/Tree-RedBlack/ .*/Tree-RedBlack-v?(\d[\d_.]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip) debian --- libtree-redblack-perl-0.5.orig/debian/rules +++ libtree-redblack-perl-0.5/debian/rules @@ -0,0 +1,4 @@ +#!/usr/bin/make -f + +%: + dh $@ --- libtree-redblack-perl-0.5.orig/debian/copyright +++ libtree-redblack-perl-0.5/debian/copyright @@ -0,0 +1,23 @@ +Upstream source location: http://search.cpan.org/dist/Tree-RedBlack/ +Upstream author: Benjamin Holzman + +Files: * +Copyright: 1998-1999, Benjamin Holzman + It is assumed that the author also holds the copyright. Years are deduced + from Changes. +License: Artistic + This program is free software; you can redistribute it and/or modify + it under the terms of the Artistic License, a copy of which can be + found with perl. + +A copy of the Artistic license can be found in the file +/usr/share/common-licenses/Artistic on Debian systems. + +Files: debian/* +Copyright: + 2001, Eduard Bloch + 2001, Benjamin Holzman + 2004-2008, Debian Perl Group +License: Artistic + It is assumed that all contributors put their work under the same license + as the software itself. --- libtree-redblack-perl-0.5.orig/debian/changelog +++ libtree-redblack-perl-0.5/debian/changelog @@ -0,0 +1,93 @@ +libtree-redblack-perl (0.5-1) unstable; urgency=low + + * New upstream release + * drop fix_broken_insert_with_custom_compare.patch; fixed upstream + - remove quilt from the build process + - drop unneeded README.source + - debian/rules is now a three-liner + + -- Damyan Ivanov Fri, 08 Aug 2008 22:16:16 +0300 + +libtree-redblack-perl (0.3-9) unstable; urgency=low + + * add fix_broken_insert_with_custom_compare.patch; Closes: #493064 + Thanks to Craig Soules for reporting and Andre Lucas for the patch. + + add quilt to the build process + * add README.source documenting quilt usage + + Standards-Version: 3.8.0 + * add myself to Uploaders + * trim down debian/rules using debhelper 7 + + -- Damyan Ivanov Thu, 31 Jul 2008 09:53:33 +0300 + +libtree-redblack-perl (0.3-8) unstable; urgency=low + + [ gregor herrmann ] + * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser + field (source stanza); Homepage field (source stanza). Removed: XS- + Vcs-Svn fields. + * debian/rules: + - delete /usr/lib/perl5 only if it exists (closes: #467974) + - minor updates + - install upstream Changes + * debian/watch: use dist-based URL. + * debian/copyright: add upstream source location, clarify + copyright/license, convert to new format. + * Set Standards-Version to 3.7.3 (no changes). + * Add debian/compat. + + [ Damyan Ivanov ] + * drop uupdate from watch file + + -- gregor herrmann Thu, 06 Mar 2008 17:41:43 +0100 + +libtree-redblack-perl (0.3-7) unstable; urgency=low + + * Use $(CURDIR) [make] instead of $(PWD) [sh] to fix issues with sudo. + * Set debhelper compatibility level to 5. + * Set Standards-Version to 3.7.2 (no changes). + * Move perl from Build-Depends to Build-Depends-Indep. + * Remove empty /usr/lib/perl5 directory. + + -- gregor herrmann Sun, 1 Oct 2006 15:06:23 +0200 + +libtree-redblack-perl (0.3-6) unstable; urgency=low + + * Added debian/watch + + -- Gunnar Wolf Tue, 12 Apr 2005 20:14:13 -0500 + +libtree-redblack-perl (0.3-5) unstable; urgency=low + + * Moved to section Perl + * Bumped up standards version to 3.6.1 + * New maintainer - Debian Perl Group (Closes: #279808) + + -- Gunnar Wolf Sat, 11 Dec 2004 10:42:45 -0600 + +libtree-redblack-perl (0.3-4) unstable; urgency=low + + * New maintainer, Closes: #112371 + * Fix typo in package description, Closes: #118375 + + -- Stephen Zander Mon, 12 Nov 2001 15:20:46 -0800 + +libtree-redblack-perl (0.3-3) unstable; urgency=low + + * Changed description. Closes: #110977 + + -- Eduard Bloch Sat, 15 Sep 2001 22:19:40 +0200 + +libtree-redblack-perl (0.3-2) unstable; urgency=low + + * improved description, closes: #110487 + * added an example script + + -- Eduard Bloch Wed, 29 Aug 2001 09:46:39 +0200 + +libtree-redblack-perl (0.3-1) unstable; urgency=low + + * Initial Release. + + -- Eduard Bloch Sun, 26 Aug 2001 11:37:51 +0200