- up to 8.6.1; drop patches that look ancient

[packages/tk.git] / tk-pil.patch

diff --git a/tk-pil.patch b/tk-pil.patch
deleted file mode 100644 (file)
index fa2e3b3..0000000
--- a/tk-pil.patch
+++ /dev/null
@@ -1,123 +0,0 @@
---- tk8.5a4/generic/tkImgBmap.c.orig   2006-02-27 11:36:08.000000000 +0100
-+++ tk8.5a4/generic/tkImgBmap.c        2006-05-24 01:18:02.354822500 +0200
-@@ -491,6 +491,21 @@
-     char *data = NULL;
-     Tcl_DString buffer;
- 
-+/* ==================================================================== */
-+/* The pilbitmap booster patch -- patch section                         */
-+/* ==================================================================== */
-+
-+    char *PILGetBitmapData();
-+
-+    if (string) {
-+        /* Is this a PIL bitmap reference? */
-+        data = PILGetBitmapData(string, widthPtr, heightPtr, hotXPtr, hotYPtr);
-+        if (data)
-+            return data;
-+    }
-+
-+/* ==================================================================== */
-+
-     pi.string = string;
-     if (string == NULL) {
-       if ((interp != NULL) && Tcl_IsSafe(interp)) {
-@@ -1081,6 +1096,98 @@
-     }
- }
- 
-+/* ==================================================================== */
-+/* The pilbitmap booster patch -- code section                          */
-+/* ==================================================================== */
-+
-+/* Imaging declaration boldly copied from Imaging.h (!) */
-+
-+typedef struct ImagingInstance *Imaging; /* a.k.a. ImagingImage :-) */
-+
-+typedef unsigned char UINT8;
-+/*typedef int INT32;*/
-+
-+struct ImagingInstance {
-+
-+    /* Format */
-+    char mode[4+1];     /* Band names ("1", "L", "P", "RGB", "RGBA", "CMYK") */
-+    int type;           /* Always 0 in this version */
-+    int depth;          /* Always 8 in this version */
-+    int bands;          /* Number of bands (1, 3, or 4) */
-+    int xsize;          /* Image dimension. */
-+    int ysize;
-+
-+    /* Colour palette (for "P" images only) */
-+    void* palette;
-+
-+    /* Data pointers */
-+    UINT8 **image8;     /* Set for 8-bit image (pixelsize=1). */
-+    INT32 **image32;    /* Set for 32-bit image (pixelsize=4). */
-+
-+    /* Internals */
-+    char **image;       /* Actual raster data. */
-+    char *block;        /* Set if data is allocated in a single block. */
-+
-+    int pixelsize;      /* Size of a pixel, in bytes (1 or 4) */
-+    int linesize;       /* Size of a line, in bytes (xsize * pixelsize) */
-+
-+    /* Virtual methods */
-+    void (*im_delete)(Imaging *);
-+
-+};
-+
-+/* The pilbitmap booster patch allows you to pass PIL images to the
-+   Tk bitmap decoder.  Passing images this way is much more efficient
-+   than using the "tobitmap" method. */
-+
-+char *
-+PILGetBitmapData(string, widthPtr, heightPtr, hotXPtr, hotYPtr)
-+    char *string;
-+    int *widthPtr, *heightPtr;
-+    int *hotXPtr, *hotYPtr;
-+{
-+    char* data;
-+    char* p;
-+    int y;
-+    Imaging im;
-+
-+    if (strncmp(string, "PIL:", 4) != 0)
-+        return NULL;
-+
-+    im = (Imaging) atol(string + 4);
-+
-+    if (strcmp(im->mode, "1") != 0 && strcmp(im->mode, "L") != 0)
-+        return NULL;
-+
-+    data = p = (char *) ckalloc((unsigned) ((im->xsize+7)/8) * im->ysize);
-+
-+    for (y = 0; y < im->ysize; y++) {
-+        char* in = im->image8[y];
-+        int i, m, b;
-+        b = 0; m = 1;
-+        for (i = 0; i < im->xsize; i++) {
-+            if (in[i] != 0)
-+                b |= m;
-+            m <<= 1;
-+            if (m == 256){
-+                *p++ = b;
-+                b = 0; m = 1;
-+            }
-+        }
-+        if (m != 1)
-+            *p++ = b;
-+    }
-+
-+    *widthPtr = im->xsize;
-+    *heightPtr = im->ysize;
-+    *hotXPtr = -1;
-+    *hotYPtr = -1;
-+
-+    return data;
-+}
-+
-+/* ==================================================================== */
-+
- \f
- /*
-  *----------------------------------------------------------------------