r1343 - in packages/libset-object-perl/trunk: . debian lib/Set
Gunnar Wolf
gwolf at costa.debian.org
Tue Sep 6 21:11:58 UTC 2005
Author: gwolf
Date: 2005-09-06 21:11:58 +0000 (Tue, 06 Sep 2005)
New Revision: 1343
Added:
packages/libset-object-perl/trunk/Changes.pod
packages/libset-object-perl/trunk/ppport.h
Removed:
packages/libset-object-perl/trunk/Changes
Modified:
packages/libset-object-perl/trunk/MANIFEST
packages/libset-object-perl/trunk/META.yml
packages/libset-object-perl/trunk/Object.xs
packages/libset-object-perl/trunk/debian/changelog
packages/libset-object-perl/trunk/lib/Set/Object.pm
Log:
New upstream version
Deleted: packages/libset-object-perl/trunk/Changes
===================================================================
--- packages/libset-object-perl/trunk/Changes 2005-09-06 21:10:29 UTC (rev 1342)
+++ packages/libset-object-perl/trunk/Changes 2005-09-06 21:11:58 UTC (rev 1343)
@@ -1,93 +0,0 @@
-Revision history for Perl extension Set::Object.
-
-0.01 Sat Jun 6 13:36:56 1998
- - original version; created by h2xs 1.18
-
-0.02 Sun Jul 12 1998
- - fixed refcount bug that leaked object when hash was reorganized
- - ensured compatibility with Perl 5.004_71
-
-1.00 mid-99
- - fixed some bug (related to subsets?)
- - first mature release
-
-1.01 8 Nov 1999
- - no longer use Perl arrays internally, now compatible with Perl 5.005_62
-
-1.02 8 May 08 2000
- - fixed bug that miscomputed new bucket while reindexing
-
-1.03 24 Jan 2003
- - fixed overload related bug
-
-1.04 3 Aug 2003
- - added various functions similar to some found in Scalar::Util,
- but with an extra one that performs a function that lays some
- groundwork for Container::Object (ish_int).
-
- Some of these functions were in the XS code anyway, and they
- are extremely small, so I didn't see a problem with
- duplicating them - saves an extra dependancy. Plus, Graham
- Barr won't let me put ish_int or is_key in his module.
-
- Knowing that they are available will also assist in fixing
- some longer standing bugs in Tangram (eg, using $obj + 0 to
- get a unique ID when refaddr($obj) would be better)
-
- - lots more input marshalling; if you ever end up doing funny
- things to a Set::Object, then at least now you'll get a
- clearer error message.
-
- - more tests; Devel::Cover test coverage now at 91% (stmt),
- 67% (branch)
-
- - erroneously putting scalars into Set::Objects now no longer
- dumps core.
-
- - serialisation of Set::Object objects is now possible via the
- Storable module (Data::Dumper still does the wrong thing,
- but there is nothing I can do about that).
-
-1.05 5 Jan 2004
- - some segfault fixes with Storable and Perl 5.6.1 (Perl 5.8.1
- should be OK)
-
-1.06 1 May 2004
- - Fixed segfault when attempting to remove items from an empty
- set (fix from Richard Sterling Cox)
-
-1.07 16 Aug 2004
- - yet another segfault fix, this time due to incorrect use of
- PUSHs vs XPUSHs. There is no test case for this bug
- unfortunately.
-
-1.08 14 Oct 2004
- - another segfault bites the dust; this time, avoids a
- segfault when taking a difference between sets of exactly
- 31 and 0 size. Same root fault as the previous bug, this
- time I have a test case for it, too.
-
-1.08_01 12 Jan 2005
- - First attempt at adding support for scalars. This version
- tries to work as closely to Set::Scalar as possible.
-
- This approach will not be continued unless there are a lot
- of requests for it to be implemented. I think it's overly
- complicated, and not what people expect when they want a
- Set.
-
-1.08_02 14 Jan 2005
- - Cutting out the "Universe" representation
- - Fixed docs
-
-1.09 26 Mar 2005
- - added 'bool' overload operator to Set::Object. For
- backwards compatibility, always returns true.
-
-1.10 2 Apr 2005
- - added 'set()' constructor and use-as-array-ref interface
-
-1.11 27 Apr 2005
- - removed debugging &_ func (was causing strange errors on
- 5.9.1)
-
Copied: packages/libset-object-perl/trunk/Changes.pod (from rev 1342, packages/libset-object-perl/branches/upstream/current/Changes.pod)
Modified: packages/libset-object-perl/trunk/MANIFEST
===================================================================
--- packages/libset-object-perl/trunk/MANIFEST 2005-09-06 21:10:29 UTC (rev 1342)
+++ packages/libset-object-perl/trunk/MANIFEST 2005-09-06 21:11:58 UTC (rev 1343)
@@ -1,4 +1,4 @@
-Changes
+Changes.pod
Makefile.PL
MANIFEST
README
@@ -42,3 +42,5 @@
t/scalar/unique.t
t/ingy/arrayref.t
+
+ppport.h
Modified: packages/libset-object-perl/trunk/META.yml
===================================================================
--- packages/libset-object-perl/trunk/META.yml 2005-09-06 21:10:29 UTC (rev 1342)
+++ packages/libset-object-perl/trunk/META.yml 2005-09-06 21:11:58 UTC (rev 1343)
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Set-Object
-version: 1.11
+version: 1.12
version_from: lib/Set/Object.pm
installdirs: site
requires:
Modified: packages/libset-object-perl/trunk/Object.xs
===================================================================
--- packages/libset-object-perl/trunk/Object.xs 2005-09-06 21:10:29 UTC (rev 1342)
+++ packages/libset-object-perl/trunk/Object.xs 2005-09-06 21:11:58 UTC (rev 1343)
@@ -9,6 +9,8 @@
}
#endif
+#include "ppport.h"
+
// for debugging object-related functions
#define IF_DEBUG(e)
@@ -316,7 +318,7 @@
s->flat = 0;
// warning: cast from pointer to integer of different size
- isv = newSViv((IV) s);
+ isv = newSViv( PTR2IV(s) );
sv_2mortal(isv);
self = newRV_inc(isv);
@@ -340,13 +342,13 @@
SV* self;
PPCODE:
- ISET* s = (ISET*) SvIV(SvRV(self));
+ ISET* s = INT2PTR(ISET*, SvIV(SvRV(self)));
I32 item;
-int inserted = 0;
+ int inserted = 0;
for (item = 1; item < items; ++item)
{
- if (s == ST(item)) {
+ if ((SV*)s == ST(item)) {
warn("INSERTING SET UP OWN ARSE");
}
if ISET_INSERT(s, ST(item))
@@ -363,7 +365,7 @@
PPCODE:
- ISET* s = (ISET*) SvIV(SvRV(self));
+ ISET* s = INT2PTR(ISET*, SvIV(SvRV(self)));
I32 hash, index, item;
SV **el_iter, **el_last, **el_out_iter;
BUCKET* bucket;
@@ -372,6 +374,7 @@
for (item = 1; item < items; ++item)
{
SV* el = ST(item);
+ SV *rv;
if (!SvROK(el)) {
if (s->flat) {
@@ -383,7 +386,7 @@
}
IF_REMOVE_DEBUG(warn("using object remove for ST(%d)", item));
- SV* rv = SvRV(el);
+ rv = SvRV(el);
hash = ISET_HASH(rv);
index = hash & (s->buckets - 1);
bucket = s->bucket + index;
@@ -419,7 +422,7 @@
SV* self;
CODE:
- ISET* s = (ISET*) SvIV(SvRV(self));
+ ISET* s = INT2PTR(ISET*, SvIV(SvRV(self)));
if (s->elems)
XSRETURN_UNDEF;
@@ -440,7 +443,7 @@
SV* self;
CODE:
- ISET* s = (ISET*) SvIV(SvRV(self));
+ ISET* s = INT2PTR(ISET*, SvIV(SvRV(self)));
RETVAL = s->elems + (s->flat ? HvKEYS(s->flat) : 0);
@@ -477,7 +480,7 @@
PPCODE:
- ISET* s = (ISET*) SvIV(SvRV(self));
+ ISET* s = INT2PTR(ISET*, SvIV(SvRV(self)));
I32 hash, index, item;
SV **el_iter, **el_last;
BUCKET* bucket;
@@ -530,7 +533,7 @@
PPCODE:
- ISET* s = (ISET*) SvIV(SvRV(self));
+ ISET* s = INT2PTR(ISET*, SvIV(SvRV(self)));
BUCKET* bucket_iter = s->bucket;
BUCKET* bucket_last = bucket_iter + s->buckets;
@@ -575,7 +578,7 @@
SV* self
CODE:
- ISET* s = (ISET*) SvIV(SvRV(self));
+ ISET* s = INT2PTR(ISET*, SvIV(SvRV(self)));
iset_clear(s);
if (s->flat) {
@@ -588,8 +591,7 @@
SV* self
CODE:
-
- ISET* s = (ISET*) SvIV(SvRV(self));
+ ISET* s = INT2PTR(ISET*, SvIV(SvRV(self)));
IF_DEBUG(warn("aargh!\n"));
iset_clear(s);
if (s->flat) {
@@ -824,7 +826,7 @@
Bug in Storable... that's why. old news.
*/
isv = SvRV(obj);
- SvIV_set(isv, (IV) s);
+ SvIV_set(isv, PTR2IV(s) );
SvIOK_on(isv);
for (item = 3; item < items; ++item)
Modified: packages/libset-object-perl/trunk/debian/changelog
===================================================================
--- packages/libset-object-perl/trunk/debian/changelog 2005-09-06 21:10:29 UTC (rev 1342)
+++ packages/libset-object-perl/trunk/debian/changelog 2005-09-06 21:11:58 UTC (rev 1343)
@@ -1,3 +1,9 @@
+libset-object-perl (1.12-1) unstable; urgency=low
+
+ * New upstream release
+
+ -- Gunnar Wolf <gwolf at debian.org> Tue, 6 Sep 2005 16:07:48 -0500
+
libset-object-perl (1.11-1) unstable; urgency=low
* New upstream release
Modified: packages/libset-object-perl/trunk/lib/Set/Object.pm
===================================================================
--- packages/libset-object-perl/trunk/lib/Set/Object.pm 2005-09-06 21:10:29 UTC (rev 1342)
+++ packages/libset-object-perl/trunk/lib/Set/Object.pm 2005-09-06 21:11:58 UTC (rev 1343)
@@ -364,10 +364,9 @@
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
- at EXPORT = qw(set);
@EXPORT_OK = qw( ish_int is_int is_string is_double blessed reftype
- refaddr is_overloaded is_object is_key );
-$VERSION = '1.11';
+ refaddr is_overloaded is_object is_key set );
+$VERSION = '1.12';
bootstrap Set::Object $VERSION;
Copied: packages/libset-object-perl/trunk/ppport.h (from rev 1342, packages/libset-object-perl/branches/upstream/current/ppport.h)
More information about the Pkg-perl-cvs-commits
mailing list