1 files changed, 47 insertions, 0 deletions
diff --git a/vendor/x11iraf/xpm/XpmWrFFrP.c b/vendor/x11iraf/xpm/XpmWrFFrP.c
new file mode 100644
index 00000000..16c6ec49
--- /dev/null
+++ b/vendor/x11iraf/xpm/XpmWrFFrP.c
@@ -0,0 +1,47 @@
+/* Copyright 1990-93 GROUPE BULL -- See license conditions in file COPYRIGHT */
+/*****************************************************************************\
+* XpmWrFFrP.c:                                                                *
+*                                                                             *
+*  XPM library                                                                *
+*  Write a pixmap and possibly its mask to an XPM file                        *
+*                                                                             *
+*  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
+XpmWriteFileFromPixmap(display, filename, pixmap, shapemask, attributes)
+    Display *display;
+    char *filename;
+    Pixmap pixmap;
+    Pixmap shapemask;
+    XpmAttributes *attributes;
+{
+    int ErrorStatus;
+    XpmImage image;
+
+    /*
+     * get the XpmImage
+     */
+    ErrorStatus = XpmCreateXpmImageFromPixmap(display, pixmap, shapemask,
+					      &image, attributes);
+    if (ErrorStatus == XpmSuccess) {
+	/*
+	 * write it out
+	 */
+	ErrorStatus =
+	    XpmWriteFileFromXpmImage(filename, &image, attributes, NULL);
+	XpmFreeXpmImage(&image);
+    }
+    return (ErrorStatus);
+}