aboutsummaryrefslogtreecommitdiff
path: root/libXpm/sxpm/sxpm.c
diff options
context:
space:
mode:
authormarha <marha@users.sourceforge.net>2011-03-25 15:37:13 +0000
committermarha <marha@users.sourceforge.net>2011-03-25 15:37:13 +0000
commit41a502478a2972358dec934d82ee401c61a5cd36 (patch)
tree3fda8100e6da9b4a2863789e393016a750502067 /libXpm/sxpm/sxpm.c
parent81aeaf653a832c4054d9a40b1cc796911521a739 (diff)
parent272e57235cd60a2e65ac8258d96a02eb3939b687 (diff)
downloadvcxsrv-41a502478a2972358dec934d82ee401c61a5cd36.tar.gz
vcxsrv-41a502478a2972358dec934d82ee401c61a5cd36.tar.bz2
vcxsrv-41a502478a2972358dec934d82ee401c61a5cd36.zip
svn merge ^/branches/released .
Diffstat (limited to 'libXpm/sxpm/sxpm.c')
-rw-r--r--libXpm/sxpm/sxpm.c1501
1 files changed, 750 insertions, 751 deletions
diff --git a/libXpm/sxpm/sxpm.c b/libXpm/sxpm/sxpm.c
index 1b80d5385..86e71443b 100644
--- a/libXpm/sxpm/sxpm.c
+++ b/libXpm/sxpm/sxpm.c
@@ -1,751 +1,750 @@
-/*
- * Copyright (C) 1989-95 GROUPE BULL
- *
- * Permission is hereby granted, free of charge, to any person obtaining a copy
- * of this software and associated documentation files (the "Software"), to
- * deal in the Software without restriction, including without limitation the
- * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
- * sell copies of the Software, and to permit persons to whom the Software is
- * furnished to do so, subject to the following conditions:
- *
- * The above copyright notice and this permission notice shall be included in
- * all copies or substantial portions of the Software.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
- * GROUPE BULL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
- * AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
- * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
- *
- * Except as contained in this notice, the name of GROUPE BULL shall not be
- * used in advertising or otherwise to promote the sale, use or other dealings
- * in this Software without prior written authorization from GROUPE BULL.
- */
-/* $XFree86: xc/extras/Xpm/sxpm/sxpm.c,v 1.2 2001/08/01 00:44:34 tsi Exp $ */
-
-/*****************************************************************************\
-* sxpm.c: *
-* *
-* Show XPM File program *
-* *
-* Developed by Arnaud Le Hors *
-\*****************************************************************************/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <X11/StringDefs.h>
-#include <X11/Intrinsic.h>
-#include <X11/IntrinsicP.h>
-#include <X11/Shell.h>
-
-#ifdef VMS
-#include <X11/shape.h>
-#else
-#include <X11/extensions/shape.h>
-#endif
-
-#include <X11/xpm.h>
-
-#ifdef USE_GETTEXT
-#include <locale.h>
-#include <libintl.h>
-#else
-#define gettext(a) (a)
-#endif
-
-/* XPM */
-/* plaid pixmap */
-static char *plaid[] = {
- /* width height ncolors chars_per_pixel */
- "22 22 4 2 XPMEXT",
- /* colors */
- " c red m white s light_color",
- "Y c green m black s lines_in_mix",
- "+ c yellow m white s lines_in_dark",
- "x m black s dark_color",
- /* pixels */
- "x x x x x x x x x x x x + x x x x x ",
- " x x x x x x x x x x x x x x x x ",
- "x x x x x x x x x x x x + x x x x x ",
- " x x x x x x x x x x x x x x x x ",
- "x x x x x x x x x x x x + x x x x x ",
- "Y Y Y Y Y x Y Y Y Y Y + x + x + x + x + x + ",
- "x x x x x x x x x x x x + x x x x x ",
- " x x x x x x x x x x x x x x x x ",
- "x x x x x x x x x x x x + x x x x x ",
- " x x x x x x x x x x x x x x x x ",
- "x x x x x x x x x x x x + x x x x x ",
- " x x x x Y x x x ",
- " x x x Y x x ",
- " x x x x Y x x x ",
- " x x x Y x x ",
- " x x x x Y x x x ",
- "x x x x x x x x x x x x x x x x x x x x x x ",
- " x x x x Y x x x ",
- " x x x Y x x ",
- " x x x x Y x x x ",
- " x x x Y x x ",
- " x x x x Y x x x ",
- "bullshit",
- "XPMEXT ext1 data1",
- "XPMEXT ext2",
- "data2_1",
- "data2_2",
- "XPMEXT",
- "foo",
- "",
- "XPMEXT ext3",
- "data3",
- "XPMENDEXT"
-};
-
-#define win XtWindow(topw)
-#define dpy XtDisplay(topw)
-#define root XRootWindowOfScreen(XtScreen(topw))
-#define xrdb XtDatabase(dpy)
-static Colormap colormap;
-
-void Usage(void);
-void ErrorMessage(int ErrorStatus, char *tag);
-void Punt(int i);
-void VersionInfo(void);
-void kinput(Widget widget, char *tag, XEvent *xe, Boolean *b);
-void GetNumbers(int num, int *format_return,
- int *libmajor_return,
- char *libminor_return);
-
-#define IWIDTH 50
-#define IHEIGHT 50
-
-typedef struct _XpmIcon {
- Pixmap pixmap;
- Pixmap mask;
- XpmAttributes attributes;
-} XpmIcon;
-
-static char **command;
-static Widget topw;
-static XpmIcon view, icon;
-static XrmOptionDescRec options[] = {
- {"-hints", ".hints", XrmoptionNoArg, (XtPointer) "True"},
- {"-icon", ".icon", XrmoptionSepArg, (XtPointer) NULL},
-};
-
-int
-main(
- int argc,
- char **argv)
-{
- int ErrorStatus;
- unsigned int verbose = 0; /* performs verbose output */
- unsigned int stdinf = 1; /* read from stdin */
- unsigned int stdoutf = 0; /* write to stdout */
- unsigned int nod = 0; /* no display */
- unsigned int nom = 0; /* no mask display */
- unsigned int incResize = 0;
- unsigned int resize = 0;
- unsigned int w_rtn;
- unsigned int h_rtn;
- char *input = NULL;
- char *output = NULL;
- char *iconFile = NULL;
- unsigned int numsymbols = 0;
- XpmColorSymbol symbols[10];
- char *stype;
- XrmValue val;
- unsigned long valuemask = 0;
- int n;
- Arg args[4];
-
-#ifdef Debug
- char **data;
- char *buffer;
-#endif
-
-#ifdef USE_GETTEXT
- XtSetLanguageProc(NULL,NULL,NULL);
- bindtextdomain("sxpm",LOCALEDIR);
- textdomain("sxpm");
-#endif
-
- topw = XtInitialize(argv[0], "Sxpm",
- options, XtNumber(options), &argc, argv);
-
- if (!topw) {
- /* L10N_Comments : Error if no $DISPLAY or $DISPLAY can't be opened.
- Not normally reached as Xt exits before we get here. */
- fprintf(stderr, gettext("Sxpm Error... [ Undefined DISPLAY ]\n"));
- exit(1);
- }
- colormap = XDefaultColormapOfScreen(XtScreen(topw));
-
- /*
- * geometry management
- */
-
- if (XrmGetResource(xrdb, NULL, "sxpm.geometry", &stype, &val)
- || XrmGetResource(xrdb, NULL, "Sxpm.geometry", &stype, &val)) {
-
- int flags;
- int x_rtn;
- int y_rtn;
- char *geo = NULL;
-
- geo = (char *) val.addr;
- flags = XParseGeometry(geo, &x_rtn, &y_rtn,
- (unsigned int *) &w_rtn,
- (unsigned int *) &h_rtn);
-
- if (!((WidthValue & flags) && (HeightValue & flags)))
- resize = 1;
-
- } else
- resize = 1;
-
- n = 0;
- if (resize) {
- w_rtn = 0;
- h_rtn = 0;
- XtSetArg(args[n], XtNwidth, 1);
- n++;
- XtSetArg(args[n], XtNheight, 1);
- n++;
- }
- XtSetArg(args[n], XtNmappedWhenManaged, False);
- n++;
- XtSetArg(args[n], XtNinput, True);
- n++;
- XtSetValues(topw, args, n);
-
- if ((XrmGetResource(xrdb, "sxpm.hints", "", &stype, &val)
- || XrmGetResource(xrdb, "Sxpm.hints", "", &stype, &val))
- && !strcmp((char *) val.addr, "True")) {
- /* gotcha */
- incResize = 1;
- resize = 1;
- }
-
- /*
- * icon management
- */
-
- if (XrmGetResource(xrdb, "sxpm.icon", "", &stype, &val)
- || XrmGetResource(xrdb, "Sxpm.icon", "", &stype, &val)) {
- iconFile = (char *) val.addr;
- }
- if (iconFile) {
-
- XColor color, junk;
- Pixel bpix;
- Window iconW;
-
- if (XAllocNamedColor(dpy, colormap, "black", &color, &junk))
- bpix = color.pixel;
- else
- bpix = XBlackPixelOfScreen(XtScreen(topw));
-
- iconW = XCreateSimpleWindow(dpy, root, 0, 0,
- IWIDTH, IHEIGHT, 1, bpix, bpix);
-
- icon.attributes.valuemask = XpmReturnAllocPixels;
- ErrorStatus = XpmReadFileToPixmap(dpy, root, iconFile, &icon.pixmap,
- &icon.mask, &icon.attributes);
- ErrorMessage(ErrorStatus, "Icon");
-
- XSetWindowBackgroundPixmap(dpy, iconW, icon.pixmap);
-
- n = 0;
- XtSetArg(args[n], XtNbackground, bpix);
- n++;
- XtSetArg(args[n], XtNiconWindow, iconW);
- n++;
- XtSetValues(topw, args, n);
- }
-
- /*
- * arguments parsing
- */
-
- command = argv;
- for (n = 1; n < argc; n++) {
- if (strcmp(argv[n], "-plaid") == 0) {
- stdinf = 0;
- continue;
- }
- if (argv[n][0] != '-') {
- stdinf = 0;
- input = argv[n];
- continue;
- }
- if ((strlen(argv[n]) == 1) && (argv[n][0] == '-'))
- /* stdin */
- continue;
- if (strcmp(argv[n], "-o") == 0) {
- if (n < argc - 1) {
- if ((strlen(argv[n + 1]) == 1) && (argv[n + 1][0] == '-'))
- stdoutf = 1;
- else
- output = argv[n + 1];
- n++;
- continue;
- } else
- Usage();
- }
- if (strcmp(argv[n], "-nod") == 0) {
- nod = 1;
- continue;
- }
- if (strcmp(argv[n], "-nom") == 0) {
- nom = 1;
- continue;
- }
- if (strcmp(argv[n], "-sc") == 0) {
- if (n < argc - 2) {
- valuemask |= XpmColorSymbols;
- symbols[numsymbols].name = argv[++n];
- symbols[numsymbols++].value = argv[++n];
- continue;
- } else
- Usage();
- }
- if (strcmp(argv[n], "-sp") == 0) {
- if (n < argc - 2) {
- valuemask |= XpmColorSymbols;
- symbols[numsymbols].name = argv[++n];
- symbols[numsymbols].value = NULL;
- symbols[numsymbols++].pixel = atol(argv[++n]);
- continue;
- }
- }
- if (strcmp(argv[n], "-cp") == 0) {
- if (n < argc - 2) {
- valuemask |= XpmColorSymbols;
- symbols[numsymbols].name = NULL;
- symbols[numsymbols].value = argv[++n];
- symbols[numsymbols++].pixel = atol(argv[++n]);
- continue;
- }
- }
- if (strcmp(argv[n], "-mono") == 0) {
- valuemask |= XpmColorKey;
- view.attributes.color_key = XPM_MONO;
- continue;
- }
- if (strcmp(argv[n], "-gray4") == 0 || strcmp(argv[n], "-grey4") == 0) {
- valuemask |= XpmColorKey;
- view.attributes.color_key = XPM_GRAY4;
- continue;
- }
- if (strcmp(argv[n], "-gray") == 0 || strcmp(argv[n], "-grey") == 0) {
- valuemask |= XpmColorKey;
- view.attributes.color_key = XPM_GRAY;
- continue;
- }
- if (strcmp(argv[n], "-color") == 0) {
- valuemask |= XpmColorKey;
- view.attributes.color_key = XPM_COLOR;
- continue;
- }
- if (strncmp(argv[n], "-closecolors", 6) == 0) {
- valuemask |= XpmCloseness;
- view.attributes.closeness = 40000;
- continue;
- }
- if (strcmp(argv[n], "-rgb") == 0) {
- if (n < argc - 1) {
- valuemask |= XpmRgbFilename;
- view.attributes.rgb_fname = argv[++n];
- continue;
- } else
- Usage();
-
- }
- if (strncmp(argv[n], "-version", 4) == 0) {
- VersionInfo();
- exit(0);
- }
- if (strcmp(argv[n], "-v") == 0) {
- verbose = 1;
- continue;
- }
- if (strcmp(argv[n], "-pcmap") == 0) {
- valuemask |= XpmColormap;
- continue;
- }
- Usage();
- }
-
- XtRealizeWidget(topw);
- if (valuemask & XpmColormap) {
- colormap = XCreateColormap(dpy, win,
- DefaultVisual(dpy, DefaultScreen(dpy)),
- AllocNone);
- view.attributes.colormap = colormap;
- XSetWindowColormap(dpy, win, colormap);
- }
- view.attributes.colorsymbols = symbols;
- view.attributes.numsymbols = numsymbols;
- view.attributes.valuemask = valuemask;
-
-#ifdef Debug
- /* this is just to test the XpmCreateDataFromPixmap function */
-
- view.attributes.valuemask |= XpmReturnAllocPixels;
- view.attributes.valuemask |= XpmReturnExtensions;
- ErrorStatus = XpmCreatePixmapFromData(dpy, win, plaid,
- &view.pixmap, &view.mask,
- &view.attributes);
- ErrorMessage(ErrorStatus, "Plaid");
-
- ErrorStatus = XpmCreateDataFromPixmap(dpy, &data, view.pixmap, view.mask,
- &view.attributes);
- ErrorMessage(ErrorStatus, "Data");
- if (verbose && view.attributes.nextensions) {
- unsigned int i, j;
-
- for (i = 0; i < view.attributes.nextensions; i++) {
- fprintf(stderr, "Xpm extension : %s\n",
- view.attributes.extensions[i].name);
- for (j = 0; j < view.attributes.extensions[i].nlines; j++)
- fprintf(stderr, "\t\t%s\n",
- view.attributes.extensions[i].lines[j]);
- }
- }
- XFreePixmap(dpy, view.pixmap);
- if (view.mask)
- XFreePixmap(dpy, view.mask);
-
- XFreeColors(dpy, colormap,
- view.attributes.alloc_pixels,
- view.attributes.nalloc_pixels, 0);
-
- XpmFreeAttributes(&view.attributes);
- view.attributes.valuemask = valuemask;
-#endif
-
- if (input || stdinf) {
- view.attributes.valuemask |= XpmReturnInfos;
- view.attributes.valuemask |= XpmReturnAllocPixels;
- view.attributes.valuemask |= XpmReturnExtensions;
-
-#ifdef Debug
- XpmFree(data);
-
- /*
- * this is just to test the XpmCreatePixmapFromBuffer and
- * XpmCreateBufferFromPixmap functions
- */
- ErrorStatus = XpmReadFileToBuffer(input, &buffer);
- ErrorMessage(ErrorStatus, "CreateBufferFromFile");
-
- ErrorStatus = XpmCreatePixmapFromBuffer(dpy, win, buffer,
- &view.pixmap, &view.mask,
- &view.attributes);
- ErrorMessage(ErrorStatus, "CreatePixmapFromBuffer");
- XpmFree(buffer);
- ErrorStatus = XpmCreateBufferFromPixmap(dpy, &buffer,
- view.pixmap, view.mask,
- &view.attributes);
- ErrorMessage(ErrorStatus, "CreateBufferFromPixmap");
- ErrorStatus = XpmWriteFileFromBuffer("buffer_output", buffer);
- ErrorMessage(ErrorStatus, "WriteFileFromBuffer");
- XpmFree(buffer);
- if (view.pixmap) {
- XFreePixmap(dpy, view.pixmap);
- if (view.mask)
- XFreePixmap(dpy, view.mask);
-
- XFreeColors(dpy, colormap, view.attributes.alloc_pixels,
- view.attributes.nalloc_pixels, 0);
-
- XpmFreeAttributes(&view.attributes);
- }
- ErrorStatus = XpmReadFileToData(input, &data);
- ErrorMessage(ErrorStatus, "ReadFileToData");
- ErrorStatus = XpmCreatePixmapFromData(dpy, win, data,
- &view.pixmap, &view.mask,
- &view.attributes);
- ErrorMessage(ErrorStatus, "CreatePixmapFromData");
- ErrorStatus = XpmWriteFileFromData("sxpmout.xpm", data);
- ErrorMessage(ErrorStatus, "WriteFileFromData");
- XpmFree(data);
- XpmFreeAttributes(&view.attributes);
-#endif
- ErrorStatus = XpmReadFileToPixmap(dpy, win, input,
- &view.pixmap, &view.mask,
- &view.attributes);
- ErrorMessage(ErrorStatus, "Read");
- if (verbose && view.attributes.nextensions) {
- unsigned int i, j;
-
- for (i = 0; i < view.attributes.nextensions; i++) {
- /* L10N_Comments : Output when -v & file has extensions
- %s is replaced by extension name */
- fprintf(stderr, gettext("Xpm extension : %s\n"),
- view.attributes.extensions[i].name);
- for (j = 0; j < view.attributes.extensions[i].nlines; j++)
- fprintf(stderr, "\t\t%s\n",
- view.attributes.extensions[i].lines[j]);
- }
- }
- } else {
-#ifdef Debug
- ErrorStatus = XpmCreatePixmapFromData(dpy, win, data,
- &view.pixmap, &view.mask,
- &view.attributes);
- XpmFree(data);
-#else
- ErrorStatus = XpmCreatePixmapFromData(dpy, win, plaid,
- &view.pixmap, &view.mask,
- &view.attributes);
-#endif
- ErrorMessage(ErrorStatus, "Plaid");
- }
- if (output || stdoutf) {
- ErrorStatus = XpmWriteFileFromPixmap(dpy, output, view.pixmap,
- view.mask, &view.attributes);
- ErrorMessage(ErrorStatus, "Write");
- }
- if (!nod) {
-
- /*
- * manage display if requested
- */
-
- XSizeHints size_hints;
- char *xString = NULL;
-
- if (w_rtn && h_rtn
- && ((w_rtn < view.attributes.width)
- || h_rtn < view.attributes.height)) {
- resize = 1;
- }
- if (resize) {
- XtResizeWidget(topw,
- view.attributes.width, view.attributes.height, 1);
- }
- if (incResize) {
- size_hints.flags = USSize | PMinSize | PResizeInc;
- size_hints.height = view.attributes.height;
- size_hints.width = view.attributes.width;
- size_hints.height_inc = view.attributes.height;
- size_hints.width_inc = view.attributes.width;
- } else
- size_hints.flags = PMinSize;
-
- size_hints.min_height = view.attributes.height;
- size_hints.min_width = view.attributes.width;
- XSetWMNormalHints(dpy, win, &size_hints);
-
- if (input) {
- xString = (char *) XtMalloc((sizeof(char) * strlen(input)) + 20);
- sprintf(xString, "Sxpm: %s", input);
- XStoreName(dpy, win, xString);
- XSetIconName(dpy, win, xString);
- } else if (stdinf) {
- XStoreName(dpy, win, "Sxpm: stdin");
- XSetIconName(dpy, win, "Sxpm: stdin");
- } else {
- XStoreName(dpy, win, "Sxpm");
- XSetIconName(dpy, win, "Sxpm");
- }
-
- XtAddEventHandler(topw, KeyPressMask, False,
- (XtEventHandler) kinput, NULL);
- XSetWindowBackgroundPixmap(dpy, win, view.pixmap);
-
- if (view.mask && !nom)
- XShapeCombineMask(dpy, win, ShapeBounding, 0, 0,
- view.mask, ShapeSet);
-
- XClearWindow(dpy, win);
- XtMapWidget(topw);
- if (xString)
- XtFree(xString);
- XtMainLoop();
- }
- Punt(0);
-
- /* Muffle gcc */
- return 0;
-}
-
-void
-Usage(void)
-{
- /* L10N_Comments : Usage message (sxpm -h) in two parts.
- In the first part %s is replaced by the command name. */
- fprintf(stderr, gettext("\nUsage: %s [options...]\n"), command[0]);
- fprintf(stderr, gettext("Where options are:\n\
-\n\
-[-d host:display] Display to connect to.\n\
-[-g geom] Geometry of window.\n\
-[-hints] Set ResizeInc for window.\n\
-[-icon filename] Set pixmap for iconWindow.\n\
-[-plaid] Read the included plaid pixmap.\n\
-[filename] Read from file 'filename', and from standard\n\
- input if 'filename' is '-'.\n\
-[-o filename] Write to file 'filename', and to standard\n\
- output if 'filename' is '-'.\n\
-[-pcmap] Use a private colormap.\n\
-[-closecolors] Try to use `close' colors.\n\
-[-nod] Don't display in window.\n\
-[-nom] Don't use clip mask if any.\n\
-[-mono] Use the colors specified for a monochrome visual.\n\
-[-grey4] Use the colors specified for a 4 greyscale visual.\n\
-[-grey] Use the colors specified for a greyscale visual.\n\
-[-color] Use the colors specified for a color visual.\n\
-[-sc symbol color] Override color defaults.\n\
-[-sp symbol pixel] Override color defaults.\n\
-[-cp color pixel] Override color defaults.\n\
-[-rgb filename] Search color names in the rgb text file 'filename'.\n\
-[-v] Verbose - print out extensions.\n\
-[-version] Print out program's version number\n\
- and library's version number if different.\n\
-if no input is specified sxpm reads from standard input.\n\
-\n"));
- exit(0);
-}
-
-
-void
-ErrorMessage(
- int ErrorStatus,
- char *tag)
-{
- char *error = NULL;
- char *warning = NULL;
-
- switch (ErrorStatus) {
- case XpmSuccess:
- return;
- case XpmColorError:
-/* L10N_Comments : The following set of messages are classified as
- either errors or warnings. Based on the class of message, different
- wrappers are selected at the end to state the message source & class.
-
- L10N_Comments : WARNING produced when filename can be read, but
- contains an invalid color specification (need to create test case)*/
- warning = gettext("Could not parse or alloc requested color");
- break;
- case XpmOpenFailed:
- /* L10N_Comments : ERROR produced when filename does not exist
- or insufficient permissions to open (i.e. sxpm /no/such/file ) */
- error = gettext("Cannot open file");
- break;
- case XpmFileInvalid:
- /* L10N_Comments : ERROR produced when filename can be read, but
- is not an XPM file (i.e. sxpm /dev/null ) */
- error = gettext("Invalid XPM file");
- break;
- case XpmNoMemory:
- /* L10N_Comments : ERROR produced when filename can be read, but
- is too big for memory
- (i.e. limit datasize 32 ; sxpm /usr/dt/backdrops/Crochet.pm ) */
- error = gettext("Not enough memory");
- break;
- case XpmColorFailed:
- /* L10N_Comments : ERROR produced when filename can be read, but
- contains an invalid color specification (need to create test case)*/
- error = gettext("Failed to parse or alloc some color");
- break;
- }
-
- if (warning)
- /* L10N_Comments : Wrapper around above WARNING messages.
- First %s is the tag for the operation that produced the warning.
- Second %s is the message selected from the above set. */
- fprintf(stderr, gettext("%s Xpm Warning: %s.\n"), tag, warning);
-
- if (error) {
- /* L10N_Comments : Wrapper around above ERROR messages.
- First %s is the tag for the operation that produced the error.
- Second %s is the message selected from the above set */
- fprintf(stderr, gettext("%s Xpm Error: %s.\n"), tag, error);
- Punt(1);
- }
-}
-
-void
-Punt(int i)
-{
- if (icon.pixmap) {
- XFreePixmap(dpy, icon.pixmap);
- if (icon.mask)
- XFreePixmap(dpy, icon.mask);
-
- XFreeColors(dpy, colormap,
- icon.attributes.alloc_pixels,
- icon.attributes.nalloc_pixels, 0);
-
- XpmFreeAttributes(&icon.attributes);
- }
- if (view.pixmap) {
- XFreePixmap(dpy, view.pixmap);
- if (view.mask)
- XFreePixmap(dpy, view.mask);
-
- XFreeColors(dpy, colormap,
- view.attributes.alloc_pixels,
- view.attributes.nalloc_pixels, 0);
-
- XpmFreeAttributes(&view.attributes);
- }
- exit(i);
-}
-
-void
-kinput(
- Widget widget,
- char *tag,
- XEvent *xe,
- Boolean *b)
-{
- char c = '\0';
-
- XLookupString(&(xe->xkey), &c, 1, NULL, NULL);
- if (c == 'q' || c == 'Q')
- Punt(0);
-}
-
-/*
- * small function to extract various version numbers from the given global
- * number (following the rule described in xpm.h).
- */
-void
-GetNumbers(
- int num,
- int *format_return,
- int *libmajor_return,
- char *libminor_return)
-{
- *format_return = num / 10000;
- *libmajor_return = (num % 10000) / 100;
- *libminor_return = 'a' + (num % 10000) % 100 - 1;
-}
-
-void
-VersionInfo(void)
-{
- int format, libmajor;
- char libminor;
-
- GetNumbers(XpmIncludeVersion, &format, &libmajor, &libminor);
- /* L10N_Comments : sxpm -version output */
- fprintf(stderr, gettext("sxpm version: %d.%d%c\n"),
- format, libmajor, libminor);
- /* L10N_Comments :
- * if we are linked to an XPM library different from the one we've been
- * compiled with, print its own number too when sxpm -version is called.
- */
- if (XpmIncludeVersion != XpmLibraryVersion()) {
- GetNumbers(XpmLibraryVersion(), &format, &libmajor, &libminor);
- fprintf(stderr, gettext("using the XPM library version: %d.%d%c\n"),
- format, libmajor, libminor);
- }
-}
+/*
+ * Copyright (C) 1989-95 GROUPE BULL
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to
+ * deal in the Software without restriction, including without limitation the
+ * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
+ * sell copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
+ * GROUPE BULL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
+ * AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+ * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+ *
+ * Except as contained in this notice, the name of GROUPE BULL shall not be
+ * used in advertising or otherwise to promote the sale, use or other dealings
+ * in this Software without prior written authorization from GROUPE BULL.
+ */
+
+/*****************************************************************************\
+* sxpm.c: *
+* *
+* Show XPM File program *
+* *
+* Developed by Arnaud Le Hors *
+\*****************************************************************************/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <X11/StringDefs.h>
+#include <X11/Intrinsic.h>
+#include <X11/IntrinsicP.h>
+#include <X11/Shell.h>
+
+#ifdef VMS
+#include <X11/shape.h>
+#else
+#include <X11/extensions/shape.h>
+#endif
+
+#include <X11/xpm.h>
+
+#ifdef USE_GETTEXT
+#include <locale.h>
+#include <libintl.h>
+#else
+#define gettext(a) (a)
+#endif
+
+/* XPM */
+/* plaid pixmap */
+static char *plaid[] = {
+ /* width height ncolors chars_per_pixel */
+ "22 22 4 2 XPMEXT",
+ /* colors */
+ " c red m white s light_color",
+ "Y c green m black s lines_in_mix",
+ "+ c yellow m white s lines_in_dark",
+ "x m black s dark_color",
+ /* pixels */
+ "x x x x x x x x x x x x + x x x x x ",
+ " x x x x x x x x x x x x x x x x ",
+ "x x x x x x x x x x x x + x x x x x ",
+ " x x x x x x x x x x x x x x x x ",
+ "x x x x x x x x x x x x + x x x x x ",
+ "Y Y Y Y Y x Y Y Y Y Y + x + x + x + x + x + ",
+ "x x x x x x x x x x x x + x x x x x ",
+ " x x x x x x x x x x x x x x x x ",
+ "x x x x x x x x x x x x + x x x x x ",
+ " x x x x x x x x x x x x x x x x ",
+ "x x x x x x x x x x x x + x x x x x ",
+ " x x x x Y x x x ",
+ " x x x Y x x ",
+ " x x x x Y x x x ",
+ " x x x Y x x ",
+ " x x x x Y x x x ",
+ "x x x x x x x x x x x x x x x x x x x x x x ",
+ " x x x x Y x x x ",
+ " x x x Y x x ",
+ " x x x x Y x x x ",
+ " x x x Y x x ",
+ " x x x x Y x x x ",
+ "bullshit",
+ "XPMEXT ext1 data1",
+ "XPMEXT ext2",
+ "data2_1",
+ "data2_2",
+ "XPMEXT",
+ "foo",
+ "",
+ "XPMEXT ext3",
+ "data3",
+ "XPMENDEXT"
+};
+
+#define win XtWindow(topw)
+#define dpy XtDisplay(topw)
+#define root XRootWindowOfScreen(XtScreen(topw))
+#define xrdb XtDatabase(dpy)
+static Colormap colormap;
+
+void Usage(void);
+void ErrorMessage(int ErrorStatus, char *tag);
+void Punt(int i);
+void VersionInfo(void);
+void kinput(Widget widget, char *tag, XEvent *xe, Boolean *b);
+void GetNumbers(int num, int *format_return,
+ int *libmajor_return,
+ char *libminor_return);
+
+#define IWIDTH 50
+#define IHEIGHT 50
+
+typedef struct _XpmIcon {
+ Pixmap pixmap;
+ Pixmap mask;
+ XpmAttributes attributes;
+} XpmIcon;
+
+static char **command;
+static Widget topw;
+static XpmIcon view, icon;
+static XrmOptionDescRec options[] = {
+ {"-hints", ".hints", XrmoptionNoArg, (XtPointer) "True"},
+ {"-icon", ".icon", XrmoptionSepArg, (XtPointer) NULL},
+};
+
+int
+main(
+ int argc,
+ char **argv)
+{
+ int ErrorStatus;
+ unsigned int verbose = 0; /* performs verbose output */
+ unsigned int stdinf = 1; /* read from stdin */
+ unsigned int stdoutf = 0; /* write to stdout */
+ unsigned int nod = 0; /* no display */
+ unsigned int nom = 0; /* no mask display */
+ unsigned int incResize = 0;
+ unsigned int resize = 0;
+ unsigned int w_rtn;
+ unsigned int h_rtn;
+ char *input = NULL;
+ char *output = NULL;
+ char *iconFile = NULL;
+ unsigned int numsymbols = 0;
+ XpmColorSymbol symbols[10];
+ char *stype;
+ XrmValue val;
+ unsigned long valuemask = 0;
+ int n;
+ Arg args[4];
+
+#ifdef Debug
+ char **data;
+ char *buffer;
+#endif
+
+#ifdef USE_GETTEXT
+ XtSetLanguageProc(NULL,NULL,NULL);
+ bindtextdomain("sxpm",LOCALEDIR);
+ textdomain("sxpm");
+#endif
+
+ topw = XtInitialize(argv[0], "Sxpm",
+ options, XtNumber(options), &argc, argv);
+
+ if (!topw) {
+ /* L10N_Comments : Error if no $DISPLAY or $DISPLAY can't be opened.
+ Not normally reached as Xt exits before we get here. */
+ fprintf(stderr, gettext("Sxpm Error... [ Undefined DISPLAY ]\n"));
+ exit(1);
+ }
+ colormap = XDefaultColormapOfScreen(XtScreen(topw));
+
+ /*
+ * geometry management
+ */
+
+ if (XrmGetResource(xrdb, NULL, "sxpm.geometry", &stype, &val)
+ || XrmGetResource(xrdb, NULL, "Sxpm.geometry", &stype, &val)) {
+
+ int flags;
+ int x_rtn;
+ int y_rtn;
+ char *geo = NULL;
+
+ geo = (char *) val.addr;
+ flags = XParseGeometry(geo, &x_rtn, &y_rtn,
+ (unsigned int *) &w_rtn,
+ (unsigned int *) &h_rtn);
+
+ if (!((WidthValue & flags) && (HeightValue & flags)))
+ resize = 1;
+
+ } else
+ resize = 1;
+
+ n = 0;
+ if (resize) {
+ w_rtn = 0;
+ h_rtn = 0;
+ XtSetArg(args[n], XtNwidth, 1);
+ n++;
+ XtSetArg(args[n], XtNheight, 1);
+ n++;
+ }
+ XtSetArg(args[n], XtNmappedWhenManaged, False);
+ n++;
+ XtSetArg(args[n], XtNinput, True);
+ n++;
+ XtSetValues(topw, args, n);
+
+ if ((XrmGetResource(xrdb, "sxpm.hints", "", &stype, &val)
+ || XrmGetResource(xrdb, "Sxpm.hints", "", &stype, &val))
+ && !strcmp((char *) val.addr, "True")) {
+ /* gotcha */
+ incResize = 1;
+ resize = 1;
+ }
+
+ /*
+ * icon management
+ */
+
+ if (XrmGetResource(xrdb, "sxpm.icon", "", &stype, &val)
+ || XrmGetResource(xrdb, "Sxpm.icon", "", &stype, &val)) {
+ iconFile = (char *) val.addr;
+ }
+ if (iconFile) {
+
+ XColor color, junk;
+ Pixel bpix;
+ Window iconW;
+
+ if (XAllocNamedColor(dpy, colormap, "black", &color, &junk))
+ bpix = color.pixel;
+ else
+ bpix = XBlackPixelOfScreen(XtScreen(topw));
+
+ iconW = XCreateSimpleWindow(dpy, root, 0, 0,
+ IWIDTH, IHEIGHT, 1, bpix, bpix);
+
+ icon.attributes.valuemask = XpmReturnAllocPixels;
+ ErrorStatus = XpmReadFileToPixmap(dpy, root, iconFile, &icon.pixmap,
+ &icon.mask, &icon.attributes);
+ ErrorMessage(ErrorStatus, "Icon");
+
+ XSetWindowBackgroundPixmap(dpy, iconW, icon.pixmap);
+
+ n = 0;
+ XtSetArg(args[n], XtNbackground, bpix);
+ n++;
+ XtSetArg(args[n], XtNiconWindow, iconW);
+ n++;
+ XtSetValues(topw, args, n);
+ }
+
+ /*
+ * arguments parsing
+ */
+
+ command = argv;
+ for (n = 1; n < argc; n++) {
+ if (strcmp(argv[n], "-plaid") == 0) {
+ stdinf = 0;
+ continue;
+ }
+ if (argv[n][0] != '-') {
+ stdinf = 0;
+ input = argv[n];
+ continue;
+ }
+ if ((strlen(argv[n]) == 1) && (argv[n][0] == '-'))
+ /* stdin */
+ continue;
+ if (strcmp(argv[n], "-o") == 0) {
+ if (n < argc - 1) {
+ if ((strlen(argv[n + 1]) == 1) && (argv[n + 1][0] == '-'))
+ stdoutf = 1;
+ else
+ output = argv[n + 1];
+ n++;
+ continue;
+ } else
+ Usage();
+ }
+ if (strcmp(argv[n], "-nod") == 0) {
+ nod = 1;
+ continue;
+ }
+ if (strcmp(argv[n], "-nom") == 0) {
+ nom = 1;
+ continue;
+ }
+ if (strcmp(argv[n], "-sc") == 0) {
+ if (n < argc - 2) {
+ valuemask |= XpmColorSymbols;
+ symbols[numsymbols].name = argv[++n];
+ symbols[numsymbols++].value = argv[++n];
+ continue;
+ } else
+ Usage();
+ }
+ if (strcmp(argv[n], "-sp") == 0) {
+ if (n < argc - 2) {
+ valuemask |= XpmColorSymbols;
+ symbols[numsymbols].name = argv[++n];
+ symbols[numsymbols].value = NULL;
+ symbols[numsymbols++].pixel = atol(argv[++n]);
+ continue;
+ }
+ }
+ if (strcmp(argv[n], "-cp") == 0) {
+ if (n < argc - 2) {
+ valuemask |= XpmColorSymbols;
+ symbols[numsymbols].name = NULL;
+ symbols[numsymbols].value = argv[++n];
+ symbols[numsymbols++].pixel = atol(argv[++n]);
+ continue;
+ }
+ }
+ if (strcmp(argv[n], "-mono") == 0) {
+ valuemask |= XpmColorKey;
+ view.attributes.color_key = XPM_MONO;
+ continue;
+ }
+ if (strcmp(argv[n], "-gray4") == 0 || strcmp(argv[n], "-grey4") == 0) {
+ valuemask |= XpmColorKey;
+ view.attributes.color_key = XPM_GRAY4;
+ continue;
+ }
+ if (strcmp(argv[n], "-gray") == 0 || strcmp(argv[n], "-grey") == 0) {
+ valuemask |= XpmColorKey;
+ view.attributes.color_key = XPM_GRAY;
+ continue;
+ }
+ if (strcmp(argv[n], "-color") == 0) {
+ valuemask |= XpmColorKey;
+ view.attributes.color_key = XPM_COLOR;
+ continue;
+ }
+ if (strncmp(argv[n], "-closecolors", 6) == 0) {
+ valuemask |= XpmCloseness;
+ view.attributes.closeness = 40000;
+ continue;
+ }
+ if (strcmp(argv[n], "-rgb") == 0) {
+ if (n < argc - 1) {
+ valuemask |= XpmRgbFilename;
+ view.attributes.rgb_fname = argv[++n];
+ continue;
+ } else
+ Usage();
+
+ }
+ if (strncmp(argv[n], "-version", 4) == 0) {
+ VersionInfo();
+ exit(0);
+ }
+ if (strcmp(argv[n], "-v") == 0) {
+ verbose = 1;
+ continue;
+ }
+ if (strcmp(argv[n], "-pcmap") == 0) {
+ valuemask |= XpmColormap;
+ continue;
+ }
+ Usage();
+ }
+
+ XtRealizeWidget(topw);
+ if (valuemask & XpmColormap) {
+ colormap = XCreateColormap(dpy, win,
+ DefaultVisual(dpy, DefaultScreen(dpy)),
+ AllocNone);
+ view.attributes.colormap = colormap;
+ XSetWindowColormap(dpy, win, colormap);
+ }
+ view.attributes.colorsymbols = symbols;
+ view.attributes.numsymbols = numsymbols;
+ view.attributes.valuemask = valuemask;
+
+#ifdef Debug
+ /* this is just to test the XpmCreateDataFromPixmap function */
+
+ view.attributes.valuemask |= XpmReturnAllocPixels;
+ view.attributes.valuemask |= XpmReturnExtensions;
+ ErrorStatus = XpmCreatePixmapFromData(dpy, win, plaid,
+ &view.pixmap, &view.mask,
+ &view.attributes);
+ ErrorMessage(ErrorStatus, "Plaid");
+
+ ErrorStatus = XpmCreateDataFromPixmap(dpy, &data, view.pixmap, view.mask,
+ &view.attributes);
+ ErrorMessage(ErrorStatus, "Data");
+ if (verbose && view.attributes.nextensions) {
+ unsigned int i, j;
+
+ for (i = 0; i < view.attributes.nextensions; i++) {
+ fprintf(stderr, "Xpm extension : %s\n",
+ view.attributes.extensions[i].name);
+ for (j = 0; j < view.attributes.extensions[i].nlines; j++)
+ fprintf(stderr, "\t\t%s\n",
+ view.attributes.extensions[i].lines[j]);
+ }
+ }
+ XFreePixmap(dpy, view.pixmap);
+ if (view.mask)
+ XFreePixmap(dpy, view.mask);
+
+ XFreeColors(dpy, colormap,
+ view.attributes.alloc_pixels,
+ view.attributes.nalloc_pixels, 0);
+
+ XpmFreeAttributes(&view.attributes);
+ view.attributes.valuemask = valuemask;
+#endif
+
+ if (input || stdinf) {
+ view.attributes.valuemask |= XpmReturnInfos;
+ view.attributes.valuemask |= XpmReturnAllocPixels;
+ view.attributes.valuemask |= XpmReturnExtensions;
+
+#ifdef Debug
+ XpmFree(data);
+
+ /*
+ * this is just to test the XpmCreatePixmapFromBuffer and
+ * XpmCreateBufferFromPixmap functions
+ */
+ ErrorStatus = XpmReadFileToBuffer(input, &buffer);
+ ErrorMessage(ErrorStatus, "CreateBufferFromFile");
+
+ ErrorStatus = XpmCreatePixmapFromBuffer(dpy, win, buffer,
+ &view.pixmap, &view.mask,
+ &view.attributes);
+ ErrorMessage(ErrorStatus, "CreatePixmapFromBuffer");
+ XpmFree(buffer);
+ ErrorStatus = XpmCreateBufferFromPixmap(dpy, &buffer,
+ view.pixmap, view.mask,
+ &view.attributes);
+ ErrorMessage(ErrorStatus, "CreateBufferFromPixmap");
+ ErrorStatus = XpmWriteFileFromBuffer("buffer_output", buffer);
+ ErrorMessage(ErrorStatus, "WriteFileFromBuffer");
+ XpmFree(buffer);
+ if (view.pixmap) {
+ XFreePixmap(dpy, view.pixmap);
+ if (view.mask)
+ XFreePixmap(dpy, view.mask);
+
+ XFreeColors(dpy, colormap, view.attributes.alloc_pixels,
+ view.attributes.nalloc_pixels, 0);
+
+ XpmFreeAttributes(&view.attributes);
+ }
+ ErrorStatus = XpmReadFileToData(input, &data);
+ ErrorMessage(ErrorStatus, "ReadFileToData");
+ ErrorStatus = XpmCreatePixmapFromData(dpy, win, data,
+ &view.pixmap, &view.mask,
+ &view.attributes);
+ ErrorMessage(ErrorStatus, "CreatePixmapFromData");
+ ErrorStatus = XpmWriteFileFromData("sxpmout.xpm", data);
+ ErrorMessage(ErrorStatus, "WriteFileFromData");
+ XpmFree(data);
+ XpmFreeAttributes(&view.attributes);
+#endif
+ ErrorStatus = XpmReadFileToPixmap(dpy, win, input,
+ &view.pixmap, &view.mask,
+ &view.attributes);
+ ErrorMessage(ErrorStatus, "Read");
+ if (verbose && view.attributes.nextensions) {
+ unsigned int i, j;
+
+ for (i = 0; i < view.attributes.nextensions; i++) {
+ /* L10N_Comments : Output when -v & file has extensions
+ %s is replaced by extension name */
+ fprintf(stderr, gettext("Xpm extension : %s\n"),
+ view.attributes.extensions[i].name);
+ for (j = 0; j < view.attributes.extensions[i].nlines; j++)
+ fprintf(stderr, "\t\t%s\n",
+ view.attributes.extensions[i].lines[j]);
+ }
+ }
+ } else {
+#ifdef Debug
+ ErrorStatus = XpmCreatePixmapFromData(dpy, win, data,
+ &view.pixmap, &view.mask,
+ &view.attributes);
+ XpmFree(data);
+#else
+ ErrorStatus = XpmCreatePixmapFromData(dpy, win, plaid,
+ &view.pixmap, &view.mask,
+ &view.attributes);
+#endif
+ ErrorMessage(ErrorStatus, "Plaid");
+ }
+ if (output || stdoutf) {
+ ErrorStatus = XpmWriteFileFromPixmap(dpy, output, view.pixmap,
+ view.mask, &view.attributes);
+ ErrorMessage(ErrorStatus, "Write");
+ }
+ if (!nod) {
+
+ /*
+ * manage display if requested
+ */
+
+ XSizeHints size_hints;
+ char *xString = NULL;
+
+ if (w_rtn && h_rtn
+ && ((w_rtn < view.attributes.width)
+ || h_rtn < view.attributes.height)) {
+ resize = 1;
+ }
+ if (resize) {
+ XtResizeWidget(topw,
+ view.attributes.width, view.attributes.height, 1);
+ }
+ if (incResize) {
+ size_hints.flags = USSize | PMinSize | PResizeInc;
+ size_hints.height = view.attributes.height;
+ size_hints.width = view.attributes.width;
+ size_hints.height_inc = view.attributes.height;
+ size_hints.width_inc = view.attributes.width;
+ } else
+ size_hints.flags = PMinSize;
+
+ size_hints.min_height = view.attributes.height;
+ size_hints.min_width = view.attributes.width;
+ XSetWMNormalHints(dpy, win, &size_hints);
+
+ if (input) {
+ xString = (char *) XtMalloc((sizeof(char) * strlen(input)) + 20);
+ sprintf(xString, "Sxpm: %s", input);
+ XStoreName(dpy, win, xString);
+ XSetIconName(dpy, win, xString);
+ } else if (stdinf) {
+ XStoreName(dpy, win, "Sxpm: stdin");
+ XSetIconName(dpy, win, "Sxpm: stdin");
+ } else {
+ XStoreName(dpy, win, "Sxpm");
+ XSetIconName(dpy, win, "Sxpm");
+ }
+
+ XtAddEventHandler(topw, KeyPressMask, False,
+ (XtEventHandler) kinput, NULL);
+ XSetWindowBackgroundPixmap(dpy, win, view.pixmap);
+
+ if (view.mask && !nom)
+ XShapeCombineMask(dpy, win, ShapeBounding, 0, 0,
+ view.mask, ShapeSet);
+
+ XClearWindow(dpy, win);
+ XtMapWidget(topw);
+ if (xString)
+ XtFree(xString);
+ XtMainLoop();
+ }
+ Punt(0);
+
+ /* Muffle gcc */
+ return 0;
+}
+
+void
+Usage(void)
+{
+ /* L10N_Comments : Usage message (sxpm -h) in two parts.
+ In the first part %s is replaced by the command name. */
+ fprintf(stderr, gettext("\nUsage: %s [options...]\n"), command[0]);
+ fprintf(stderr, gettext("Where options are:\n\
+\n\
+[-d host:display] Display to connect to.\n\
+[-g geom] Geometry of window.\n\
+[-hints] Set ResizeInc for window.\n\
+[-icon filename] Set pixmap for iconWindow.\n\
+[-plaid] Read the included plaid pixmap.\n\
+[filename] Read from file 'filename', and from standard\n\
+ input if 'filename' is '-'.\n\
+[-o filename] Write to file 'filename', and to standard\n\
+ output if 'filename' is '-'.\n\
+[-pcmap] Use a private colormap.\n\
+[-closecolors] Try to use `close' colors.\n\
+[-nod] Don't display in window.\n\
+[-nom] Don't use clip mask if any.\n\
+[-mono] Use the colors specified for a monochrome visual.\n\
+[-grey4] Use the colors specified for a 4 greyscale visual.\n\
+[-grey] Use the colors specified for a greyscale visual.\n\
+[-color] Use the colors specified for a color visual.\n\
+[-sc symbol color] Override color defaults.\n\
+[-sp symbol pixel] Override color defaults.\n\
+[-cp color pixel] Override color defaults.\n\
+[-rgb filename] Search color names in the rgb text file 'filename'.\n\
+[-v] Verbose - print out extensions.\n\
+[-version] Print out program's version number\n\
+ and library's version number if different.\n\
+if no input is specified sxpm reads from standard input.\n\
+\n"));
+ exit(0);
+}
+
+
+void
+ErrorMessage(
+ int ErrorStatus,
+ char *tag)
+{
+ char *error = NULL;
+ char *warning = NULL;
+
+ switch (ErrorStatus) {
+ case XpmSuccess:
+ return;
+ case XpmColorError:
+/* L10N_Comments : The following set of messages are classified as
+ either errors or warnings. Based on the class of message, different
+ wrappers are selected at the end to state the message source & class.
+
+ L10N_Comments : WARNING produced when filename can be read, but
+ contains an invalid color specification (need to create test case)*/
+ warning = gettext("Could not parse or alloc requested color");
+ break;
+ case XpmOpenFailed:
+ /* L10N_Comments : ERROR produced when filename does not exist
+ or insufficient permissions to open (i.e. sxpm /no/such/file ) */
+ error = gettext("Cannot open file");
+ break;
+ case XpmFileInvalid:
+ /* L10N_Comments : ERROR produced when filename can be read, but
+ is not an XPM file (i.e. sxpm /dev/null ) */
+ error = gettext("Invalid XPM file");
+ break;
+ case XpmNoMemory:
+ /* L10N_Comments : ERROR produced when filename can be read, but
+ is too big for memory
+ (i.e. limit datasize 32 ; sxpm /usr/dt/backdrops/Crochet.pm ) */
+ error = gettext("Not enough memory");
+ break;
+ case XpmColorFailed:
+ /* L10N_Comments : ERROR produced when filename can be read, but
+ contains an invalid color specification (need to create test case)*/
+ error = gettext("Failed to parse or alloc some color");
+ break;
+ }
+
+ if (warning)
+ /* L10N_Comments : Wrapper around above WARNING messages.
+ First %s is the tag for the operation that produced the warning.
+ Second %s is the message selected from the above set. */
+ fprintf(stderr, gettext("%s Xpm Warning: %s.\n"), tag, warning);
+
+ if (error) {
+ /* L10N_Comments : Wrapper around above ERROR messages.
+ First %s is the tag for the operation that produced the error.
+ Second %s is the message selected from the above set */
+ fprintf(stderr, gettext("%s Xpm Error: %s.\n"), tag, error);
+ Punt(1);
+ }
+}
+
+void
+Punt(int i)
+{
+ if (icon.pixmap) {
+ XFreePixmap(dpy, icon.pixmap);
+ if (icon.mask)
+ XFreePixmap(dpy, icon.mask);
+
+ XFreeColors(dpy, colormap,
+ icon.attributes.alloc_pixels,
+ icon.attributes.nalloc_pixels, 0);
+
+ XpmFreeAttributes(&icon.attributes);
+ }
+ if (view.pixmap) {
+ XFreePixmap(dpy, view.pixmap);
+ if (view.mask)
+ XFreePixmap(dpy, view.mask);
+
+ XFreeColors(dpy, colormap,
+ view.attributes.alloc_pixels,
+ view.attributes.nalloc_pixels, 0);
+
+ XpmFreeAttributes(&view.attributes);
+ }
+ exit(i);
+}
+
+void
+kinput(
+ Widget widget,
+ char *tag,
+ XEvent *xe,
+ Boolean *b)
+{
+ char c = '\0';
+
+ XLookupString(&(xe->xkey), &c, 1, NULL, NULL);
+ if (c == 'q' || c == 'Q')
+ Punt(0);
+}
+
+/*
+ * small function to extract various version numbers from the given global
+ * number (following the rule described in xpm.h).
+ */
+void
+GetNumbers(
+ int num,
+ int *format_return,
+ int *libmajor_return,
+ char *libminor_return)
+{
+ *format_return = num / 10000;
+ *libmajor_return = (num % 10000) / 100;
+ *libminor_return = 'a' + (num % 10000) % 100 - 1;
+}
+
+void
+VersionInfo(void)
+{
+ int format, libmajor;
+ char libminor;
+
+ GetNumbers(XpmIncludeVersion, &format, &libmajor, &libminor);
+ /* L10N_Comments : sxpm -version output */
+ fprintf(stderr, gettext("sxpm version: %d.%d%c\n"),
+ format, libmajor, libminor);
+ /* L10N_Comments :
+ * if we are linked to an XPM library different from the one we've been
+ * compiled with, print its own number too when sxpm -version is called.
+ */
+ if (XpmIncludeVersion != XpmLibraryVersion()) {
+ GetNumbers(XpmLibraryVersion(), &format, &libmajor, &libminor);
+ fprintf(stderr, gettext("using the XPM library version: %d.%d%c\n"),
+ format, libmajor, libminor);
+ }
+}