Changeset 15609 for lang

Timestamp:

07/10/08 15:42:52 (5 years ago)

Author:

daisuke

Message:

change to double, fix type conversions

Location:

lang/perl/Data-Valve/trunk

Files:

• Valve.xs (modified) (1 diff)
• dv_bucket.c (modified) (2 diffs)
• dv_bucket.h (modified) (1 diff)
• t/02_bucket.t (modified) (1 diff)

lang/perl/Data-Valve/trunk/Valve.xs

@@ -34 +34 @@
 
 dv_bucket *
-dv_bucket__deserialize(SV *buf, float interval, long max)
+dv_bucket__deserialize(SV *buf, double interval, long max)
     PREINIT:
         STRLEN len;
         char *c_buf = (char *)SvPV(ST(0), len);
     CODE:
-        RETVAL = dv_bucket_deserialize(buf, len, interval, max);
+        RETVAL = dv_bucket_deserialize(c_buf, len, interval, max);
     OUTPUT:
         RETVAL

lang/perl/Data-Valve/trunk/dv_bucket.c

@@ -8 +8 @@
 
 #define DV_1E6 1000000
+
 struct timezone tzp_not_used;
 
@@ -57 +58 @@
 dv_bucket_interval(dv_bucket *bucket)
 {
-    return bucket->interval / DV_1E6;
+    double ret =  bucket->interval / DV_1E6;
+    return ret;
 }
 

lang/perl/Data-Valve/trunk/dv_bucket.h

@@ -21 +21 @@
 
 /* Creates a new bucket */
-dv_bucket *dv_bucket_create(double interval, unsigned long max);
+dv_bucket *
+    dv_bucket_create(double interval, unsigned long max);
+dv_bucket *
+    dv_bucket_deserialize(char *buf, size_t len, double interval, unsigned long max);
 
 #endif /* __DV_BUCKET_H__ */

lang/perl/Data-Valve/trunk/t/02_bucket.t

@@ -42 +42 @@
 
     my $serialized = $bucket->serialize();
-    like($serialized, qr/^\[(?:(?:[\d\.]+,?))+\]$/, "serialization format ok");
+    like($serialized, qr/^\[(?:(?:[\d\.]+,?))+\]$/, "serialization format ok ($serialized)");
 
     my $bucket2 = Data::Valve::Bucket->deserialize($serialized, 10, 5);