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

Comparing CV/CV.xs (file contents):
Revision 1.40 by root, Sat Nov 25 15:00:51 2006 UTC vs.
Revision 1.46 by root, Sat Jul 4 05:31:17 2015 UTC

 #include <gdk-pixbuf/gdk-pixbuf.h>
 #include <gperl.h>
 #include <gtk2perl.h>
+#include <assert.h>
+#include "perlmulticore.h"
 #define IW 80 /* MUST match Schnauzer.pm! */
 #define IH 60 /* MUST match Schnauzer.pm! */
 #define RAND (seed = (seed + 7141) * 54773 % 134456)
 #define LINELENGTH 240
 #define ELLIPSIS "\xe2\x80\xa6"
+typedef char *octet_string;
 struct jpg_err_mgr
 {
   struct jpeg_error_mgr err;
   jmp_buf setjmp_buffer;
         OUTPUT:
         RETVAL
 const char *
-magic (const char *path)
+magic (octet_string path)
 	CODE:
 {
 	static magic_t cookie;
         if (!cookie)
           {
-            cookie = magic_open (MAGIC_NONE);
+            cookie = magic_open (MAGIC_SYMLINK);
             if (cookie)
               magic_load (cookie, 0);
             else
               XSRETURN_UNDEF;
 }
 	OUTPUT:
         RETVAL
 const char *
-magic_mime (const char *path)
+magic_mime (octet_string path)
 	CODE:
 {
 	static magic_t cookie;
         if (!cookie)
           {
-            cookie = magic_open (MAGIC_MIME);
+            cookie = magic_open (MAGIC_MIME | MAGIC_SYMLINK);
             if (cookie)
               magic_load (cookie, 0);
             else
               XSRETURN_UNDEF;
           }
+        perlinterp_release ();
         RETVAL = magic_file (cookie, path);
+        perlinterp_acquire ();
 }
 	OUTPUT:
         RETVAL
 # missing/broken in Gtk2 perl module
         RETVAL
 GdkPixbuf_noinc *
 dealpha_expose (GdkPixbuf *pb)
 	CODE:
+        perlinterp_release ();
 {
 	int w = gdk_pixbuf_get_width (pb);
         int h = gdk_pixbuf_get_height (pb);
         int bpp = gdk_pixbuf_get_n_channels (pb);
         int x, y, i;
         for (x = 0; x < w; x++)
           for (y = 0; y < h; y++)
             for (i = 0; i < 3; i++)
               dst[x * 3 + y * dstr + i] = src[x * bpp + y * sstr + i];
 }
+        perlinterp_acquire ();
 	OUTPUT:
         RETVAL
 GdkPixbuf_noinc *
 rotate (GdkPixbuf *pb, int angle)
 	CODE:
+        perlinterp_release ();
+        if (angle < 0)
+          angle += 360;
         RETVAL = gdk_pixbuf_rotate_simple (pb, angle ==   0 ? GDK_PIXBUF_ROTATE_NONE
                                              : angle ==  90 ? GDK_PIXBUF_ROTATE_COUNTERCLOCKWISE
                                              : angle == 180 ? GDK_PIXBUF_ROTATE_UPSIDEDOWN
                                              : angle == 270 ? GDK_PIXBUF_ROTATE_CLOCKWISE
                                              : angle);
+        perlinterp_acquire ();
 	OUTPUT:
         RETVAL
 GdkPixbuf_noinc *
 load_jpeg (SV *path, int thumbnail=0)
         fp = fopen (SvPVbyte_nolen (path), "rb");
         if (!fp)
           XSRETURN_UNDEF;
+        perlinterp_release ();
         cinfo.err = jpeg_std_error (&jerr.err);
         jerr.err.error_exit     = cv_error_exit;
         jerr.err.output_message = cv_error_output;
             jpeg_destroy_decompress (&cinfo);
             if (pb)
               g_object_unref ((gpointer)pb);
+            perlinterp_acquire ();
             XSRETURN_UNDEF;
           }
         jpeg_create_decompress (&cinfo);
           }
         jpeg_finish_decompress (&cinfo);
         fclose (fp);
         jpeg_destroy_decompress (&cinfo);
+        perlinterp_acquire ();
 }
 	OUTPUT:
         RETVAL
 void
 compare (GdkPixbuf *a, GdkPixbuf *b)
 	PPCODE:
+        perlinterp_release ();
 {
 	int w  = gdk_pixbuf_get_width  (a);
 	int h  = gdk_pixbuf_get_height (a);
         int sa = gdk_pixbuf_get_rowstride (a);
         int sb = gdk_pixbuf_get_rowstride (b);
         guchar *pa = gdk_pixbuf_get_pixels (a);
         guchar *pb = gdk_pixbuf_get_pixels (b);
                   d = ((int)*pa_++) - ((int)*pb_++); diff += d*d; peak = MAX (peak, abs (d));
                   d = ((int)*pa_++) - ((int)*pb_++); diff += d*d; peak = MAX (peak, abs (d));
                 }
             }
+        perlinterp_acquire ();
         EXTEND (SP, 2);
         PUSHs (sv_2mortal (newSVnv (sqrt (diff / (w * h * 3. * 255. * 255.)))));
         PUSHs (sv_2mortal (newSVnv (peak / 255.)));
 }
 #############################################################################
 MODULE = Gtk2::CV PACKAGE = Gtk2::CV::Schnauzer
+# currently only works for filenames (octet strings)
 SV *
 foldcase (SV *pathsv)
 	PROTOTYPE: $
 	CODE:
 {
 	STRLEN plen;
-        U8 *path = (U8 *)SvPVutf8 (pathsv, plen);
+        U8 *path = (U8 *)SvPV (pathsv, plen);
         U8 *pend = path + plen;
         U8 dst [plen * 6 * 3], *dstp = dst;
         while (path < pend)
           {
             U8 ch = *path;
             if (ch >= 'a' && ch <= 'z')
               *dstp++ = *path++;
+            else if (ch >= 'A' && ch <= 'Z')
+              *dstp++ = *path++ + ('a' - 'A');
             else if (ch >= '0' && ch <= '9')
               {
                 STRLEN el, nl = 0;
                 while (*path >= '0' && *path <= '9' && path < pend)
                   path++, nl++;
                   *dstp++ = '0';
                 memcpy (dstp, path - nl, nl);
                 dstp += nl;
               }
+            else
+              *dstp++ = *path++;
+#if 0
             else
               {
                 STRLEN cl;
                 to_utf8_fold (path, dstp, &cl);
                 dstp += cl;
                 path += is_utf8_char (path);
               }
+#endif
           }
         RETVAL = newSVpvn ((const char *)dst, dstp - dst);
 }
 	OUTPUT:

Diff Legend

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

Comparing CV/CV.xs (file contents): Revision 1.40 by root, Sat Nov 25 15:00:51 2006 UTC vs. Revision 1.46 by root, Sat Jul 4 05:31:17 2015 UTC

Diff Legend

Comparing CV/CV.xs (file contents):
Revision 1.40 by root, Sat Nov 25 15:00:51 2006 UTC vs.
Revision 1.46 by root, Sat Jul 4 05:31:17 2015 UTC