[ViewVC] Diff of: cvs/CV/CV.xs

Comparing CV/CV.xs (file contents):
Revision 1.18 by root, Wed Jul 20 09:06:37 2005 UTC vs.
Revision 1.20 by root, Fri Jul 22 06:14:25 2005 UTC

         U8 *pend = path + plen;
         U8 dst [plen * 6 * 3], *dstp = dst;
         while (path < pend)
           {
+            U8 ch = *path;
-            if (*path >= '0' && *path <= '9')
+            if (ch >= 'a' && ch <= 'z')
+              *dstp++ = *path++;
+            else if (ch >= '0' && ch <= '9')
               {
                 STRLEN el, nl = 0;
-                while (*path >= '0' && *path <= '9')
+                while (*path >= '0' && *path <= '9' && path < pend)
                   path++, nl++;
                 for (el = nl; el < 6; el++)
                   *dstp++ = '0';
           }
 }
 	OUTPUT:
         RETVAL
-SV *
-make_histogram (SV *ar)
-        CODE:
-{
-        int i;
-        AV *av, *result;
-        if (!SvROK (ar) || SvTYPE (SvRV (ar)) != SVt_PVAV)
-          croak ("Not an array ref as first argument to make_histogram");
-        av = (AV *) SvRV (ar);
-        result = newAV ();
-        for (i = 0; i <= av_len (av); ++i)
-          {
-            const int HISTSIZE = 64;
-            int j;
-            SV *sv = *av_fetch (av, i, 1);
-            STRLEN len;
-            char *buf = SvPVbyte (sv, len);
-            int tmphist[HISTSIZE];
-            float *hist;
-            SV *histsv = newSV (HISTSIZE * sizeof (float) + 1);
-            SvPOK_on (histsv);
-            SvCUR_set (histsv, HISTSIZE * sizeof (float));
-            hist = (float *)SvPVX (histsv);
-            Zero (tmphist, sizeof (tmphist), char);
-            for (j = len; j--; )
-              {
-                unsigned int idx
-                    = ((*buf & 0xc0) >> 2)
-                    | ((*buf & 0x18) >> 1)
-                    |  (*buf & 0x03);
-                ++tmphist[idx];
-                ++buf;
-              }
-            for (j = 0; j < HISTSIZE; ++j)
-              hist[j] = (float)tmphist[j] / (len + 1e-30);
-            av_push (result, histsv);
-          }
-        RETVAL = newRV_noinc ((SV *)result);
-}
-        OUTPUT:
-        RETVAL
 #############################################################################
 MODULE = Gtk2::CV PACKAGE = Gtk2::CV::PostScript
 void
           }
 }
 	OUTPUT:
         RETVAL
+#############################################################################
+MODULE = Gtk2::CV PACKAGE = Gtk2::CV::Plugin::RCluster
+SV *
+make_histograms (SV *ar)
+        CODE:
+{
+        int i;
+        AV *av, *result;
+        if (!SvROK (ar) || SvTYPE (SvRV (ar)) != SVt_PVAV)
+          croak ("Not an array ref as first argument to make_histogram");
+        av = (AV *) SvRV (ar);
+        result = newAV ();
+        for (i = 0; i <= av_len (av); ++i)
+          {
+            const int HISTSIZE = 64;
+            int j;
+            SV *sv = *av_fetch (av, i, 1);
+            STRLEN len;
+            char *buf = SvPVbyte (sv, len);
+            int tmphist[HISTSIZE];
+            float *hist;
+            SV *histsv = newSV (HISTSIZE * sizeof (float) + 1);
+            SvPOK_on (histsv);
+            SvCUR_set (histsv, HISTSIZE * sizeof (float));
+            hist = (float *)SvPVX (histsv);
+            Zero (tmphist, sizeof (tmphist), char);
+            for (j = len; j--; )
+              {
+                unsigned int idx
+                    = ((*buf & 0xc0) >> 2)
+                    | ((*buf & 0x18) >> 1)
+                    |  (*buf & 0x03);
+                ++tmphist[idx];
+                ++buf;
+              }
+            for (j = 0; j < HISTSIZE; ++j)
+              hist[j] = (float)tmphist[j] / (len + 1e-30);
+            av_push (result, histsv);
+          }
+        RETVAL = newRV_noinc ((SV *)result);
+}
+        OUTPUT:
+        RETVAL

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing CV/CV.xs (file contents): Revision 1.18 by root, Wed Jul 20 09:06:37 2005 UTC vs. Revision 1.20 by root, Fri Jul 22 06:14:25 2005 UTC

Diff Legend

Comparing CV/CV.xs (file contents):
Revision 1.18 by root, Wed Jul 20 09:06:37 2005 UTC vs.
Revision 1.20 by root, Fri Jul 22 06:14:25 2005 UTC