Repatch (from linux) of OSX IRAF

1 files changed, 47 insertions, 0 deletions

diff --git a/vendor/x11iraf/xpm/XpmCrDataFrP.c b/vendor/x11iraf/xpm/XpmCrDataFrP.c
new file mode 100644
index 00000000..5d6024eb
--- /dev/null
+++ b/vendor/x11iraf/xpm/XpmCrDataFrP.c
@@ -0,0 +1,47 @@
+/* Copyright 1990-93 GROUPE BULL -- See license conditions in file COPYRIGHT */
+/*****************************************************************************\
+* XpmCrDataFP.c:                                                              *
+*                                                                             *
+*  XPM library                                                                *
+*  Scan a pixmap and possibly its mask and create an XPM array                *
+*                                                                             *
+*  Developed by Arnaud Le Hors                                                *
+\*****************************************************************************/
+
+#include "xpmP.h"
+#ifdef VMS
+#include "sys$library:string.h"
+#else
+#if defined(SYSV) || defined(SVR4)
+#include <string.h>
+#else
+#include <strings.h>
+#endif
+#endif
+
+int
+XpmCreateDataFromPixmap(display, data_return, pixmap, shapemask, attributes)
+    Display *display;
+    char ***data_return;
+    Pixmap pixmap;
+    Pixmap shapemask;
+    XpmAttributes *attributes;
+{
+    int ErrorStatus;
+    XpmImage image;
+
+    /*
+     * get the XpmImage
+     */
+    ErrorStatus = XpmCreateXpmImageFromPixmap(display, pixmap, shapemask,
+					      &image, attributes);
+    if (ErrorStatus == XpmSuccess) {
+	/*
+	 * create data from the XpmImage
+	 */
+	ErrorStatus =
+	    XpmCreateDataFromXpmImage(data_return, &image, attributes);
+	XpmFreeXpmImage(&image);
+    }
+    return (ErrorStatus);
+}