/* The GIMP -- an image manipulation program
 * Copyright (C) 1995 Spencer Kimball and Peter Mattis
 * SUN raster reading and writing code Copyright (C) 1996 Peter Kirchgessner
 * (email: pkirchg@aol.com, WWW: http://members.aol.com/pkirchg)
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 */

/* This program was written using pages 625-629 of the book
 * "Encyclopedia of Graphics File Formats", Murray/van Ryper,
 * O'Reilly & Associates Inc.
 * Bug reports or suggestions should be e-mailed to Pkirchg@aol.com
 */

/* Event history:
 * V 1.00, PK, 25-Jul-96: First try
 * V 1.90, PK, 15-Mar-97: Upgrade to work with GIMP V0.99
 * V 1.91, PK, 05-Apr-97: Return all arguments, even in case of an error
 * V 1.92, PK, 18-May-97: Ignore EOF-error on reading image data
 * V 1.93, PK, 05-Oct-97: Parse rc file
 * V 1.94, PK, 12-Oct-97: No progress bars for non-interactive mode
 * V 1.95, nn, 20-Dec-97: Initialize some variable
 */
static char ident[] = "@(#) GIMP SunRaster file-plugin v1.95  20-Dec-97";

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "gtk/gtk.h"
#include "libgimp/gimp.h"


typedef int WRITE_FUN(void*,size_t,size_t,FILE*);

typedef unsigned long L_CARD32;
typedef unsigned short L_CARD16;
typedef unsigned char L_CARD8;

/* Fileheader of SunRaster files */
typedef struct {
  L_CARD32 l_ras_magic;    /* Magic Number */
  L_CARD32 l_ras_width;    /* Width */
  L_CARD32 l_ras_height;   /* Height */
  L_CARD32 l_ras_depth;    /* Number of bits per pixel (1,8,24,32) */
  L_CARD32 l_ras_length;   /* Length of image data (but may also be 0) */
  L_CARD32 l_ras_type;     /* Encoding */
  L_CARD32 l_ras_maptype;  /* Type of colormap */
  L_CARD32 l_ras_maplength;/* Number of bytes for colormap */
} L_SUNFILEHEADER;

/* Sun-raster magic */
#define RAS_MAGIC 0x59a66a95

#define RAS_TYPE_STD 1    /* Standard uncompressed format */
#define RAS_TYPE_RLE 2    /* Runlength compression format */

typedef struct {
 int val;   /* The value that is to be repeated */
 int n;     /* How many times it is repeated */
} RLEBUF;


/* Declare some local functions.
 */
static void   query      (void);
static void   run        (char    *name,
                          int      nparams,
                          GParam  *param,
                          int     *nreturn_vals,
                          GParam **return_vals);

static gint32 load_image (char *filename);
static gint   save_image (char *filename,
                          gint32  image_ID,
                          gint32  drawable_ID);

static void set_color_table (gint32, L_SUNFILEHEADER *, unsigned char *);

static gint32 create_new_image (char *filename, guint width, guint height,
                GImageType type, gint32 *layer_ID, GDrawable **drawable,
                GPixelRgn *pixel_rgn);
static gint32 load_sun_d1 (char *, FILE *, L_SUNFILEHEADER *, unsigned char *);
static gint32 load_sun_d8 (char *, FILE *, L_SUNFILEHEADER *, unsigned char *);
static gint32 load_sun_d24 (char *, FILE *, L_SUNFILEHEADER *, unsigned char *);
static gint32 load_sun_d32 (char *, FILE *, L_SUNFILEHEADER *, unsigned char *);

static L_CARD32 read_card32 (FILE *, int *);

static void write_card32 (FILE *, L_CARD32);

static void byte2bit (unsigned char *, int, unsigned char *, int);

static void rle_startread (FILE *);
static int rle_fread (char *, int, int, FILE *);
static int rle_fgetc (FILE *);
#define rle_getc(fp) ((rlebuf.n > 0) ? (rlebuf.n)--,rlebuf.val : rle_fgetc (fp))

static void rle_startwrite (FILE *);
static int rle_fwrite (char *, int, int, FILE *);
static int rle_fputc (int, FILE *);
static int rle_putrun (int, int, FILE *);
static void rle_endwrite (FILE *);
#define rle_putc rle_fputc

static void read_sun_header (FILE *, L_SUNFILEHEADER *);
static void write_sun_header (FILE *, L_SUNFILEHEADER *);
static void read_sun_cols (FILE *, L_SUNFILEHEADER *, unsigned char *);
static void write_sun_cols (FILE *, L_SUNFILEHEADER *, unsigned char *);

static gint save_index (FILE *, gint32, gint32 , int, int);
static gint save_rgb (FILE *, gint32, gint32, int);

static int read_msb_first = 1;
static RLEBUF rlebuf;

/* Dialog-handling */
static gint   save_dialog              (void);
static void   save_close_callback      (GtkWidget *widget,
                                        gpointer   data);
static void   save_ok_callback         (GtkWidget *widget,
                                        gpointer   data);
static void   save_toggle_update       (GtkWidget *widget,
                                        gpointer   data);
static void   show_message             (char *);

GPlugInInfo PLUG_IN_INFO =
{
  NULL,    /* init_proc */
  NULL,    /* quit_proc */
  query,   /* query_proc */
  run,     /* run_proc */
};


/* Save info  */
typedef struct
{
  gint  rle;  /*  rle or standard */
} SUNRASSaveVals;

typedef struct
{
  gint  run;  /*  run  */
} SUNRASSaveInterface;


static SUNRASSaveVals psvals =
{
  TRUE     /* rle */
};

static SUNRASSaveInterface psint =
{
  FALSE     /* run */
};


/* The run mode */
static GRunModeType l_run_mode;

MAIN ()


static void
query (void)

{
  static GParamDef load_args[] =
  {
    { PARAM_INT32, "run_mode", "Interactive, non-interactive" },
    { PARAM_STRING, "filename", "The name of the file to load" },
    { PARAM_STRING, "raw_filename", "The name of the file to load" },
  };
  static GParamDef load_return_vals[] =
  {
    { PARAM_IMAGE, "image", "Output image" },
  };
  static int nload_args = sizeof (load_args) / sizeof (load_args[0]);
  static int nload_return_vals = sizeof (load_return_vals)
                               / sizeof (load_return_vals[0]);

  static GParamDef save_args[] =
  {
    { PARAM_INT32, "run_mode", "Interactive, non-interactive" },
    { PARAM_IMAGE, "image", "Input image" },
    { PARAM_DRAWABLE, "drawable", "Drawable to save" },
    { PARAM_STRING, "filename", "The name of the file to save the image in" },
    { PARAM_STRING, "raw_filename",
            "The name of the file to save the image in" },
    { PARAM_INT32, "rle",
            "Specify non-zero for rle output, zero for standard output" }
  };
  static int nsave_args = sizeof (save_args) / sizeof (save_args[0]);

  gimp_install_procedure ("file_sunras_load",
                          "load file of the SunRaster file format",
                          "load file of the SunRaster file format",
                          "Peter Kirchgessner",
                          "Peter Kirchgessner",
                          "1996",
                          "<Load>/SUNRAS",
                          NULL,
                          PROC_PLUG_IN,
                          nload_args, nload_return_vals,
                          load_args, load_return_vals);

  gimp_install_procedure ("file_sunras_save",
                          "save file in the SunRaster file format",
                          "SUNRAS saving handles all image types except \
those with alpha channels.",
                          "Peter Kirchgessner",
                          "Peter Kirchgessner",
                          "1996",
                          "<Save>/SUNRAS",
                          "RGB*, GRAY*, INDEXED*",
                          PROC_PLUG_IN,
                          nsave_args, 0,
                          save_args, NULL);

  /* Magic information for sunras would be "0,long,0x59a66a95" */
  gimp_register_magic_load_handler ("file_sunras_load", "im1,im8,im24,im32", "",
				    "0,long,0x59a66a95");
  gimp_register_save_handler ("file_sunras_save", "im1,im8,im24,im32", "");
}


static void
run (char    *name,
     int      nparams,
     GParam  *param,
     int     *nreturn_vals,
     GParam **return_vals)

{
  static GParam values[2];
  GRunModeType run_mode;
  GStatusType status = STATUS_SUCCESS;
  gint32 image_ID;

  l_run_mode = run_mode = param[0].data.d_int32;

  *nreturn_vals = 1;
  *return_vals = values;
  values[0].type = PARAM_STATUS;
  values[0].data.d_status = STATUS_CALLING_ERROR;

  if (strcmp (name, "file_sunras_load") == 0)
    {
      image_ID = load_image (param[1].data.d_string);

      *nreturn_vals = 2;
      status = (image_ID != -1) ? STATUS_SUCCESS : STATUS_EXECUTION_ERROR;
      values[0].data.d_status = status;
      values[1].type = PARAM_IMAGE;
      values[1].data.d_image = image_ID;
    }
  else if (strcmp (name, "file_sunras_save") == 0)
    {
      switch (run_mode)
        {
        case RUN_INTERACTIVE:
          /*  Possibly retrieve data  */
          gimp_get_data ("file_sunras_save", &psvals);

          /*  First acquire information with a dialog  */
          if (! save_dialog ())
            return;
          break;

        case RUN_NONINTERACTIVE:
          /*  Make sure all the arguments are there!  */
          if (nparams != 6)
          {
            status = STATUS_CALLING_ERROR;
          }
          else
          {
            psvals.rle = (param[5].data.d_int32) ? TRUE : FALSE;
          }
          break;

        case RUN_WITH_LAST_VALS:
          /*  Possibly retrieve data  */
          gimp_get_data ("file_sunras_save", &psvals);
          break;

        default:
          break;
        }

      if (status == STATUS_SUCCESS)
      {
        if (save_image (param[3].data.d_string, param[1].data.d_int32,
                        param[2].data.d_int32))
        {
          /*  Store psvals data  */
          gimp_set_data ("file_sunras_save", &psvals, sizeof (SUNRASSaveVals));
        }
        else
        {
          status = STATUS_EXECUTION_ERROR;
        }
      }
      values[0].data.d_status = status;
    }
}


static gint32
load_image (char *filename)

{
  gint32 image_ID;
  FILE *ifp;
  char *temp = ident; /* Just to satisfy gcc/lint */
  L_SUNFILEHEADER sunhdr;
  unsigned char *suncolmap = NULL;

  ifp = fopen (filename, "rb");
  if (!ifp)
  {
    show_message ("can't open file for reading");
    return (-1);
  }

  read_msb_first = 1;   /* SUN raster is always most significant byte first */

  read_sun_header (ifp, &sunhdr);
  if (sunhdr.l_ras_magic != RAS_MAGIC)
  {
    show_message("can't open file as SUN-raster-file");
    fclose (ifp);
    return (-1);
  }

  if ((sunhdr.l_ras_type < 0) || (sunhdr.l_ras_type > 5))
  {
    show_message ("the type of this SUN-rasterfile\nis not supported");
    fclose (ifp);
    return (-1);
  }

  /* Is there a RGB colourmap ? */
  if ((sunhdr.l_ras_maptype == 1) && (sunhdr.l_ras_maplength > 0))
  {
    suncolmap = (unsigned char *)malloc (sunhdr.l_ras_maplength);
    if (suncolmap == NULL)
    {
      show_message ("cant get memory for colour map");
      fclose (ifp);
      return (-1);
    }

    read_sun_cols (ifp, &sunhdr, suncolmap);
#ifdef DEBUG
    {int j, ncols;
     printf ("File %s\n",filename);
     ncols = sunhdr.l_ras_maplength/3;
     for (j=0; j < ncols; j++)
       printf ("Entry 0x%08x: 0x%04x,  0x%04x, 0x%04x\n",
               j,suncolmap[j],suncolmap[j+ncols],suncolmap[j+2*ncols]);
    }
#endif
    if (sunhdr.l_ras_magic != RAS_MAGIC)
    {
      show_message ("cant read colour entries");
      fclose (ifp);
      return (-1);
    }
  }
  else if (sunhdr.l_ras_maplength > 0)
  {
    show_message ("type of colourmap not supported");
    fseek (ifp, (sizeof (L_SUNFILEHEADER)/sizeof (L_CARD32))
               *4 + sunhdr.l_ras_maplength, SEEK_SET);
  }

  if (l_run_mode != RUN_NONINTERACTIVE)
  {
    temp = g_malloc (strlen (filename) + 11);
    sprintf (temp, "Loading %s:", filename);
    gimp_progress_init (temp);
    g_free (temp);
  }

  switch (sunhdr.l_ras_depth)
  {
    case 1:    /* bitmap */
      image_ID = load_sun_d1 (filename, ifp, &sunhdr, suncolmap);
      break;

    case 8:    /* 256 colours */
      image_ID = load_sun_d8 (filename, ifp, &sunhdr, suncolmap);
      break;

    case 24:   /* True color */
      image_ID = load_sun_d24 (filename, ifp, &sunhdr, suncolmap);
      break;

    case 32:   /* True color with extra byte */
      image_ID = load_sun_d32 (filename, ifp, &sunhdr, suncolmap);
      break;

    default:
     image_ID = -1;
     break;
  }

  fclose (ifp);

  if (suncolmap != NULL) free ((char *)suncolmap);

  if (image_ID == -1)
  {
    show_message ("this image depth is not supported");
    return (-1);
  }

  return (image_ID);
}


static gint
save_image (char *filename,
            gint32  image_ID,
            gint32  drawable_ID)

{
  FILE* ofp;
  GDrawableType drawable_type;
  gint retval;
  char *temp;

  drawable_type = gimp_drawable_type (drawable_ID);

  /*  Make sure we're not saving an image with an alpha channel  */
  if (gimp_drawable_has_alpha (drawable_ID))
  {
    show_message ("SUNRAS save cannot handle images with alpha channels");
    return FALSE;
  }

  switch (drawable_type)
  {
    case INDEXED_IMAGE:
    case GRAY_IMAGE:
    case RGB_IMAGE:
      break;
    default:
      show_message ("cannot operate on unknown image types");
      return (FALSE);
      break;
  }

  /* Open the output file. */
  ofp = fopen (filename, "wb");
  if (!ofp)
  {
    show_message ("cant open file for writing");
    return (FALSE);
  }

  if (l_run_mode != RUN_NONINTERACTIVE)
  {
    temp = g_malloc (strlen (filename) + 11);
    sprintf (temp, "Saving %s:", filename);
    gimp_progress_init (temp);
    g_free (temp);
  }

  if (drawable_type == INDEXED_IMAGE)
    retval = save_index (ofp,image_ID, drawable_ID, 0, (int)psvals.rle);
  else if (drawable_type == GRAY_IMAGE)
    retval = save_index (ofp,image_ID, drawable_ID, 1, (int)psvals.rle);
  else if (drawable_type == RGB_IMAGE)
    retval = save_rgb (ofp,image_ID, drawable_ID, (int)psvals.rle);
  else
    retval = FALSE;

  fclose (ofp);

  return (retval);
}


static L_CARD32 read_card32 (FILE *ifp,
                             int *err)

{L_CARD32 c;

 if (read_msb_first)
 {
   c = (((L_CARD32)(getc (ifp))) << 24);
   c |= (((L_CARD32)(getc (ifp))) << 16);
   c |= (((L_CARD32)(getc (ifp))) << 8);
   c |= ((L_CARD32)(*err = getc (ifp)));
 }
 else
 {
   c = ((L_CARD32)(getc (ifp)));
   c |= (((L_CARD32)(getc (ifp))) << 8);
   c |= (((L_CARD32)(getc (ifp))) << 16);
   c |= (((L_CARD32)(*err = getc (ifp))) << 24);
 }

 *err = (*err < 0);
 return (c);
}


static void write_card32 (FILE *ofp,
                          L_CARD32 c)

{
 putc ((int)((c >> 24) & 0xff), ofp);
 putc ((int)((c >> 16) & 0xff), ofp);
 putc ((int)((c >> 8) & 0xff), ofp);
 putc ((int)((c) & 0xff), ofp);
}


/* Convert n bytes of 0/1 to a line of bits */
static void byte2bit (unsigned char *byteline,
                      int width,
                      unsigned char *bitline,
                      int invert)

{register unsigned char bitval;
 unsigned char rest[8];

 while (width >= 8)
 {
   bitval = 0;
   if (*(byteline++)) bitval |= 0x80;
   if (*(byteline++)) bitval |= 0x40;
   if (*(byteline++)) bitval |= 0x20;
   if (*(byteline++)) bitval |= 0x10;
   if (*(byteline++)) bitval |= 0x08;
   if (*(byteline++)) bitval |= 0x04;
   if (*(byteline++)) bitval |= 0x02;
   if (*(byteline++)) bitval |= 0x01;
   *(bitline++) = invert ? ~bitval : bitval;
   width -= 8;
 }
 if (width > 0)
 {
   memset (rest, 0, 8);
   memcpy (rest, byteline, width);
   bitval = 0;
   byteline = rest;
   if (*(byteline++)) bitval |= 0x80;
   if (*(byteline++)) bitval |= 0x40;
   if (*(byteline++)) bitval |= 0x20;
   if (*(byteline++)) bitval |= 0x10;
   if (*(byteline++)) bitval |= 0x08;
   if (*(byteline++)) bitval |= 0x04;
   if (*(byteline++)) bitval |= 0x02;
   *bitline = invert ? ~bitval : bitval;
 }
}


/* Start reading Runlength Encoded Data */
static void rle_startread (FILE *ifp)

{ /* Clear RLE-buffer */
  rlebuf.val = rlebuf.n = 0;
}


/* Read uncompressed elements from RLE-stream */
static int rle_fread (char *ptr,
                      int sz,
                      int nelem,
                      FILE *ifp)

{int elem_read, cnt, val, err = 0;

 for (elem_read = 0; elem_read < nelem; elem_read++)
 {
   for (cnt = 0; cnt < sz; cnt++)
   {
     val = rle_getc (ifp);
     if (val < 0) { err = 1; break; }
     *(ptr++) = (char)val;
   }
   if (err) break;
 }
 return (elem_read);
}


/* Get one byte of uncompressed data from RLE-stream */
static int rle_fgetc (FILE *ifp)

{int flag, runcnt, runval;

 if (rlebuf.n > 0)    /* Something in the buffer ? */
 {
   (rlebuf.n)--;
   return (rlebuf.val);
 }

 /* Nothing in the buffer. We have to read something */
 if ((flag = getc (ifp)) < 0) return (-1);
 if (flag != 0x0080) return (flag);    /* Single byte run ? */

 if ((runcnt = getc (ifp)) < 0) return (-1);
 if (runcnt == 0) return (0x0080);     /* Single 0x80 ? */

 /* The run */
 if ((runval = getc (ifp)) < 0) return (-1);
 rlebuf.n = runcnt;
 rlebuf.val = runval;
 return (runval);
}


/* Start writing Runlength Encoded Data */
static void rle_startwrite (FILE *ofp)

{ /* Clear RLE-buffer */
  rlebuf.val = rlebuf.n = 0;
}


/* Write uncompressed elements to RLE-stream */
static int rle_fwrite (char *ptr,
                       int sz,
                       int nelem,
                       FILE *ofp)

{int elem_write, cnt, val, err = 0;
 unsigned char *pixels = (unsigned char *)ptr;

 for (elem_write = 0; elem_write < nelem; elem_write++)
 {
   for (cnt = 0; cnt < sz; cnt++)
   {
     val = rle_fputc (*(pixels++), ofp);
     if (val < 0) { err = 1; break; }
   }
   if (err) break;
 }
 return (elem_write);
}


/* Write uncompressed character to RLE-stream */
static int rle_fputc (int val,
                      FILE *ofp)

{int retval;

 if (rlebuf.n == 0)    /* Nothing in the buffer ? Save the value */
 {
   rlebuf.n = 1;
   return (rlebuf.val = val);
 }

 /* Something in the buffer */

 if (rlebuf.val == val)   /* Same value in the buffer ? */
 {
   (rlebuf.n)++;
   if (rlebuf.n == 257) /* Can not be encoded in a single run ? */
   {
     retval = rle_putrun (256, rlebuf.val, ofp);
     if (retval < 0) return (retval);
     rlebuf.n -= 256;
   }
   return (val);
 }

 /* Something different in the buffer ? Write out the run */

 retval = rle_putrun (rlebuf.n, rlebuf.val, ofp);
 if (retval < 0) return (retval);

 /* Save the new value */
 rlebuf.n = 1;
 return (rlebuf.val = val);
}


/* Write out a run with 0 < n < 257 */
static int rle_putrun (int n,
                       int val,
                       FILE *ofp)

{int retval, flag = 0x80;
                             /* Useful to write a 3 byte run ? */
 if ((n > 2) || ((n == 2) && (val == flag)))
 {
   putc (flag, ofp);
   putc (n-1, ofp);
   retval = putc (val, ofp);
 }
 else if (n == 2) /* Write two single runs (could not be value 0x80) */
 {
   putc (val, ofp);
   retval = putc (val, ofp);
 }
 else  /* Write a single run */
 {
   if (val == flag)
     retval = putc (flag, ofp), putc (0x00, ofp);
   else
     retval = putc (val, ofp);
 }

 return ((retval < 0) ? retval : val);
}


/* End writing Runlength Encoded Data */
static void rle_endwrite (FILE *ofp)

{
 if (rlebuf.n > 0)
 {
   rle_putrun (rlebuf.n, rlebuf.val, ofp);
   rlebuf.val = rlebuf.n = 0; /* Clear RLE-buffer */
 }
}


static void
read_sun_header (FILE *ifp,
                 L_SUNFILEHEADER *sunhdr)

{int j, err;
 L_CARD32 *cp;

 cp = (L_CARD32 *)sunhdr;

 /* Read in all 32-bit values of the header and check for byte order */
 for (j = 0; j < sizeof (L_SUNFILEHEADER)/sizeof(sunhdr->l_ras_magic); j++)
 {
   *(cp++) = read_card32 (ifp, &err);
   if (err) break;
 }

 if (err) sunhdr->l_ras_magic = 0;  /* Not a valid SUN-raster file */
}


/* Write out a SUN-fileheader */

static void
write_sun_header (FILE *ofp,
                  L_SUNFILEHEADER *sunhdr)

{int j, hdr_entries;
 L_CARD32 *cp;

 hdr_entries = sizeof (L_SUNFILEHEADER)/sizeof(sunhdr->l_ras_magic);

 cp = (L_CARD32 *)sunhdr;

 /* Write out all 32-bit values of the header and check for byte order */
 for (j = 0; j < sizeof (L_SUNFILEHEADER)/sizeof(sunhdr->l_ras_magic); j++)
 {
   write_card32 (ofp, *(cp++));
 }
}


/* Read the sun colourmap */

static void
read_sun_cols (FILE *ifp,
               L_SUNFILEHEADER *sunhdr,
               unsigned char *colormap)

{int ncols, err = 0;

 /* Read in SUN-raster Colormap */
 ncols = sunhdr->l_ras_maplength / 3;
 if (ncols <= 0)
   err = 1;
 else
   err = (fread (colormap, 3, ncols, ifp) != ncols);

 if (err) sunhdr->l_ras_magic = 0;  /* Not a valid SUN-raster file */
}


/* Write a sun colourmap */

static void
write_sun_cols (FILE *ofp,
                L_SUNFILEHEADER *sunhdr,
                unsigned char *colormap)

{int ncols;

 ncols = sunhdr->l_ras_maplength / 3;
 fwrite (colormap, 3, ncols, ofp);
}


/* Set a GIMP colourtable using the sun colourmap */

static void set_color_table (gint32 image_ID,
                             L_SUNFILEHEADER *sunhdr,
                             guchar *suncolmap)

{int ncols, j;
 unsigned char ColorMap[256*3];

 ncols = sunhdr->l_ras_maplength / 3;
 if (ncols <= 0) return;

 for (j = 0; j < ncols; j++)
 {
   ColorMap[j*3] = suncolmap[j];
   ColorMap[j*3+1] = suncolmap[j+ncols];
   ColorMap[j*3+2] = suncolmap[j+2*ncols];
 }

#ifdef DEBUG
 printf ("Set GIMP colortable:\n");
 for (j = 0; j < ncols; j++)
   printf ("%3d: 0x%02x 0x%02x 0x%02x\n", j,
           ColorMap[j*3], ColorMap[j*3+1], ColorMap[j*3+2]);
#endif
 gimp_image_set_cmap (image_ID, ColorMap, ncols);
}


/* Create an image. Sets layer_ID, drawable and rgn. Returns image_ID */
static gint32
create_new_image (char *filename,
                  guint width,
                  guint height,
                  GImageType type,
                  gint32 *layer_ID,
                  GDrawable **drawable,
                  GPixelRgn *pixel_rgn)

{gint32 image_ID;
 GDrawableType gdtype;

 if (type == GRAY) gdtype = GRAY_IMAGE;
 else if (type == INDEXED) gdtype = INDEXED_IMAGE;
 else gdtype = RGB_IMAGE;

 image_ID = gimp_image_new (width, height, type);
 gimp_image_set_filename (image_ID, filename);

 *layer_ID = gimp_layer_new (image_ID, "Background", width, height,
                            gdtype, 100, NORMAL_MODE);
 gimp_image_add_layer (image_ID, *layer_ID, 0);

 *drawable = gimp_drawable_get (*layer_ID);
 gimp_pixel_rgn_init (pixel_rgn, *drawable, 0, 0, (*drawable)->width,
                      (*drawable)->height, TRUE, FALSE);

 return (image_ID);
}


/* Load SUN-raster-file with depth 1 */
static gint32
load_sun_d1 (char *filename,
             FILE *ifp,
             L_SUNFILEHEADER *sunhdr,
             unsigned char *suncolmap)

{register int pix8;
 int width, height, linepad, scan_lines, tile_height;
 int i, j;
 unsigned char *dest, *data;
 gint32 layer_ID, image_ID;
 GPixelRgn pixel_rgn;
 GDrawable *drawable;
 unsigned char bit2byte[256*8];
 L_SUNFILEHEADER sun_bwhdr;
 unsigned char sun_bwcolmap[6] = { 255,0,255,0,255,0 };
 int err = 0, rle = (sunhdr->l_ras_type == RAS_TYPE_RLE);

 width = sunhdr->l_ras_width;
 height = sunhdr->l_ras_height;

 image_ID = create_new_image (filename, width, height, INDEXED,
                              &layer_ID, &drawable, &pixel_rgn);

 tile_height = gimp_tile_height ();
 data = g_malloc (tile_height * width);

 if (suncolmap != NULL)   /* Set up the specified colour map */
 {
   set_color_table (image_ID, sunhdr, suncolmap);
 }
 else   /* No colourmap available. Set up a dummy b/w-colourmap */
 {      /* Copy the original header and simulate b/w-colourmap */
   memcpy ((char *)&sun_bwhdr,(char *)sunhdr,sizeof (L_SUNFILEHEADER));
   sun_bwhdr.l_ras_maptype = 2;
   sun_bwhdr.l_ras_maplength = 6;
   set_color_table (image_ID, &sun_bwhdr, sun_bwcolmap);
 }

 /* Get an array for mapping 8 bits in a byte to 8 bytes */
 dest = bit2byte;
 for (j = 0; j < 256; j++)
   for (i = 7; i >= 0; i--)
     *(dest++) = ((j & (1 << i)) != 0);

 linepad = (((sunhdr->l_ras_width+7)/8) % 2); /* Check for 16bit align */

 if (rle) rle_startread (ifp);

 dest = data;
 scan_lines = 0;

 for (i = 0; i < height; i++)
 {
   j = width;
   while (j >= 8)
   {
     pix8 = rle ? rle_getc (ifp) : getc (ifp);
     if (pix8 < 0) { err = 1; pix8 = 0; }

     memcpy (dest, bit2byte + pix8*8, 8);
     dest += 8;
     j -= 8;
   }

   if (j > 0)
   {
     pix8 = rle ? rle_getc (ifp) : getc (ifp);
     if (pix8 < 0) { err = 1; pix8 = 0; }

     memcpy (dest, bit2byte + pix8*8, j);
     dest += j;
   }

   if (linepad)
     err |= ((rle ? rle_getc (ifp) : getc (ifp)) < 0);

   scan_lines++;

   if ((l_run_mode != RUN_NONINTERACTIVE) && ((i % 20) == 0))
     gimp_progress_update ((double)(i+1) / (double)height);

   if ((scan_lines == tile_height) || ((i+1) == height))
   {
     gimp_pixel_rgn_set_rect (&pixel_rgn, data, 0, i-scan_lines+1,
                              width, scan_lines);
     scan_lines = 0;
     dest = data;
   }
 }

 g_free (data);

 if (err)
   show_message ("EOF encountered on reading");

 gimp_drawable_flush (drawable);

 return (image_ID);
}


/* Load SUN-raster-file with depth 8 */

static gint32
load_sun_d8 (char *filename,
             FILE *ifp,
             L_SUNFILEHEADER *sunhdr,
             unsigned char *suncolmap)

{int width, height, linepad, i, j;
 int greyscale, ncols;
 int scan_lines, tile_height;
 unsigned char *dest, *data;
 gint32 layer_ID, image_ID;
 GPixelRgn pixel_rgn;
 GDrawable *drawable;
 int err = 0, rle = (sunhdr->l_ras_type == RAS_TYPE_RLE);

 width = sunhdr->l_ras_width;
 height = sunhdr->l_ras_height;

 /* This could also be a greyscale image. Check it */
 ncols = sunhdr->l_ras_maplength / 3;

 greyscale = 1;  /* Also greyscale if no colourmap present */

 if ((ncols > 0) && (suncolmap != NULL))
 {
   for (j = 0; j < ncols; j++)
   {
     if (   (suncolmap[j] != j)
         || (suncolmap[j+ncols] != j)
         || (suncolmap[j+2*ncols] != j))
     {
       greyscale = 0;
       break;
     }
   }
 }

 image_ID = create_new_image (filename, width, height,
                              greyscale ? GRAY : INDEXED,
                              &layer_ID, &drawable, &pixel_rgn);

 tile_height = gimp_tile_height ();
 data = g_malloc (tile_height * width);

 if (!greyscale)
   set_color_table (image_ID, sunhdr, suncolmap);

 linepad = (sunhdr->l_ras_width % 2);

 if (rle) rle_startread (ifp);  /* Initialize RLE-buffer */

 dest = data;
 scan_lines = 0;

 for (i = 0; i < height; i++)
 {
   memset ((char *)dest, 0, width);
   err |= ((rle ? rle_fread ((char *)dest, 1, width, ifp)
               : fread ((char *)dest, 1, width, ifp)) != width);

   if (linepad)
     err |= ((rle ? rle_getc (ifp) : getc (ifp)) < 0);

   dest += width;
   scan_lines++;

   if ((l_run_mode != RUN_NONINTERACTIVE) && ((i % 20) == 0))
     gimp_progress_update ((double)(i+1) / (double)height);

   if ((scan_lines == tile_height) || ((i+1) == height))
   {
     gimp_pixel_rgn_set_rect (&pixel_rgn, data, 0, i-scan_lines+1,
                              width, scan_lines);
     scan_lines = 0;
     dest = data;
   }
 }

 g_free (data);

 if (err)
   show_message ("EOF encountered on reading");

 gimp_drawable_flush (drawable);

 return (image_ID);
}


/* Load SUN-raster-file with depth 24 */
static gint32
load_sun_d24 (char *filename,
              FILE *ifp,
              L_SUNFILEHEADER *sunhdr,
              unsigned char *suncolmap)

{register unsigned char *dest, blue;
 unsigned char *data;
 int width, height, linepad, tile_height, scan_lines;
 int i, j;
 gint32 layer_ID, image_ID;
 GPixelRgn pixel_rgn;
 GDrawable *drawable;
 int err = 0, rle = (sunhdr->l_ras_type == RAS_TYPE_RLE);

 width = sunhdr->l_ras_width;
 height = sunhdr->l_ras_height;

 image_ID = create_new_image (filename, width, height, RGB,
                              &layer_ID, &drawable, &pixel_rgn);

 tile_height = gimp_tile_height ();
 data = g_malloc (tile_height * width * 3);

 linepad = ((sunhdr->l_ras_width*3) % 2);

 if (rle) rle_startread (ifp);  /* Initialize RLE-buffer */

 dest = data;
 scan_lines = 0;

 for (i = 0; i < height; i++)
 {
   memset ((char *)dest, 0, 3*width);
   err |= ((rle ? rle_fread ((char *)dest, 3, width, ifp)
               : fread ((char *)dest, 3, width, ifp)) != width);

   if (linepad)
     err |= ((rle ? rle_getc (ifp) : getc (ifp)) < 0);

   if (sunhdr->l_ras_type == 3) /* RGB-format ? That is what GIMP wants */
   {
     dest += width*3;
   }
   else                         /* We have BGR format. Correct it */
   {
     for (j = 0; j < width; j++)
     {
       blue = *dest;
       *dest = *(dest+2);
       *(dest+2) = blue;
       dest += 3;
     }
   }

   scan_lines++;

   if ((l_run_mode != RUN_NONINTERACTIVE) && ((i % 20) == 0))
     gimp_progress_update ((double)(i+1) / (double)height);

   if ((scan_lines == tile_height) || ((i+1) == height))
   {
     gimp_pixel_rgn_set_rect (&pixel_rgn, data, 0, i-scan_lines+1,
                              width, scan_lines);
     scan_lines = 0;
     dest = data;
   }
 }

 g_free (data);

 if (err)
   show_message ("EOF encountered on reading");

 gimp_drawable_flush (drawable);

 return (image_ID);
}


/* Load SUN-raster-file with depth 32 */

static gint32
load_sun_d32 (char *filename,
              FILE *ifp,
              L_SUNFILEHEADER *sunhdr,
              unsigned char *suncolmap)

{register unsigned char *dest, blue;
 unsigned char *data;
 int width, height, tile_height, scan_lines;
 int i, j;
 gint32 layer_ID, image_ID;
 GPixelRgn pixel_rgn;
 GDrawable *drawable;
 int err = 0, cerr, rle = (sunhdr->l_ras_type == RAS_TYPE_RLE);
 width = sunhdr->l_ras_width;
 height = sunhdr->l_ras_height;

 /* initialize */

 cerr = 0;

 image_ID = create_new_image (filename, width, height, RGB,
                              &layer_ID, &drawable, &pixel_rgn);

 tile_height = gimp_tile_height ();
 data = g_malloc (tile_height * width * 3);

 if (rle) rle_startread (ifp);  /* Initialize RLE-buffer */

 dest = data;
 scan_lines = 0;

 for (i = 0; i < height; i++)
 {
   if (rle)
   {
     for (j = 0; j < width; j++)
     {
       rle_getc (ifp);   /* Skip unused byte */
       *(dest++) = rle_getc (ifp);
       *(dest++) = rle_getc (ifp);
       *(dest++) = (cerr = (rle_getc (ifp)));
     }
   }
   else
   {
     for (j = 0; j < width; j++)
     {
       getc (ifp);   /* Skip unused byte */
       *(dest++) = getc (ifp);
       *(dest++) = getc (ifp);
       *(dest++) = (cerr = (getc (ifp)));
     }
   }
   err |= (cerr < 0);

   if (sunhdr->l_ras_type != 3) /* BGR format ? Correct it */
   {
     for (j = 0; j < width; j++)
     {
       dest -= 3;
       blue = *dest;
       *dest = *(dest+2);
       *(dest+2) = blue;
     }
     dest += width*3;
   }

   scan_lines++;

   if ((l_run_mode != RUN_NONINTERACTIVE) && ((i % 20) == 0))
     gimp_progress_update ((double)(i+1) / (double)height);

   if ((scan_lines == tile_height) || ((i+1) == height))
   {
     gimp_pixel_rgn_set_rect (&pixel_rgn, data, 0, i-scan_lines+1,
                              width, scan_lines);
     scan_lines = 0;
     dest = data;
   }
 }

 g_free (data);

 if (err)
   show_message ("EOF encountered on reading");

 gimp_drawable_flush (drawable);

 return (image_ID);
}


static gint
save_index (FILE *ofp,
            gint32 image_ID,
            gint32 drawable_ID,
            int grey,
            int rle)

{ int height, width, linepad, i, j;
  int ncols, bw, is_bw, is_wb, bpl;
  int tile_height;
  long tmp = 0;
  unsigned char *cmap, *bwline = NULL;
  unsigned char *data, *src;
  L_SUNFILEHEADER sunhdr;
  unsigned char sun_colormap[256*3];
  static unsigned char sun_bwmap[6] = { 0,255,0,255,0,255 };
  static unsigned char sun_wbmap[6] = { 255,0,255,0,255,0 };
  unsigned char *suncolmap = sun_colormap;
  GPixelRgn pixel_rgn;
  GDrawable *drawable;
  GDrawableType drawable_type;
  WRITE_FUN *write_fun;

  drawable = gimp_drawable_get (drawable_ID);
  drawable_type = gimp_drawable_type (drawable_ID);
  width = drawable->width;
  height = drawable->height;
  tile_height = gimp_tile_height ();
  gimp_pixel_rgn_init (&pixel_rgn, drawable, 0, 0, width, height, FALSE, FALSE);

  /* allocate a buffer for retrieving information from the pixel region  */
  src = data = (unsigned char *)g_malloc (tile_height * width * drawable->bpp);

  /* Fill SUN-color map */
  if (grey)
  {
    ncols = 256;

    for (j = 0; j < ncols; j++)
    {
      suncolmap[j] = j;
      suncolmap[j+ncols] = j;
      suncolmap[j+ncols*2] = j;
    }
  }
  else
  {
    cmap = gimp_image_get_cmap (image_ID, &ncols);

    for (j = 0; j < ncols; j++)
    {
      suncolmap[j] = *(cmap++);
      suncolmap[j+ncols] = *(cmap++);
      suncolmap[j+ncols*2] = *(cmap++);
    }
  }

  bw = (ncols == 2);   /* Maybe this is a two-colour image */
  if (bw)
  {
    bwline = g_malloc ((width+7)/8);
    if (bwline == NULL) bw = 0;
  }

  is_bw = is_wb = 0;
  if (bw)    /* The Sun-OS imagetool generates index 0 for white and */
  {          /* index 1 for black. Do the same without colourtable. */
    is_bw = (memcmp (suncolmap, sun_bwmap, 6) == 0);
    is_wb = (memcmp (suncolmap, sun_wbmap, 6) == 0);
  }

  /* Number of data bytes per line */
  bpl = bw ?  (width+7)/8 : width;
  linepad = bpl % 2;

  /* Fill in the SUN header */
  sunhdr.l_ras_magic = RAS_MAGIC;
  sunhdr.l_ras_width = width;
  sunhdr.l_ras_height = height;
  sunhdr.l_ras_depth = bw ? 1 : 8;
  sunhdr.l_ras_length = (bpl+linepad) * height;
  sunhdr.l_ras_type = (rle) ? RAS_TYPE_RLE : RAS_TYPE_STD;
  if (is_bw || is_wb)   /* No colourtable for real b/w images */
  {
    sunhdr.l_ras_maptype = 0;   /* No colourmap */
    sunhdr.l_ras_maplength = 0; /* Length of colourmap */
  }
  else
  {
    sunhdr.l_ras_maptype = 1;   /* RGB colourmap */
    sunhdr.l_ras_maplength = ncols*3; /* Length of colourmap */
  }

  write_sun_header (ofp, &sunhdr);

  if (sunhdr.l_ras_maplength > 0)
    write_sun_cols (ofp, &sunhdr, suncolmap);

#define GET_INDEX_TILE(begin) \
  {int scan_lines; \
    scan_lines = (i+tile_height-1 < height) ? tile_height : (height-i); \
    gimp_pixel_rgn_get_rect (&pixel_rgn, begin, 0, i, width, scan_lines); \
    src = begin; }

  if (rle) { write_fun = (WRITE_FUN *)&rle_fwrite; rle_startwrite (ofp); }
  else write_fun = (WRITE_FUN *)&fwrite;

  if (bw)  /* Two colour image */
  {
    for (i = 0; i < height; i++)
    {
      if ((i % tile_height) == 0) GET_INDEX_TILE (data); /* Get more data */
      byte2bit (src, width, bwline, is_bw);
      (*write_fun) (bwline, bpl, 1, ofp);
      if (linepad) (*write_fun) ((char *)&tmp, linepad, 1, ofp);
      src += width;

      if ((l_run_mode != RUN_NONINTERACTIVE) && ((i % 20) == 0))
        gimp_progress_update ((double) i / (double) height);
    }
  }
  else   /* Colour or grey-image */
  {
    for (i = 0; i < height; i++)
    {
      if ((i % tile_height) == 0) GET_INDEX_TILE (data); /* Get more data */
      (*write_fun) ((char *)src, width, 1, ofp);
      if (linepad) (*write_fun) ((char *)&tmp, linepad, 1, ofp);
      src += width;

      if ((l_run_mode != RUN_NONINTERACTIVE) && ((i % 20) == 0))
        gimp_progress_update ((double) i / (double) height);
    }
  }
  if (rle) rle_endwrite (ofp);

  g_free (data);
  if (bwline) g_free (bwline);

  gimp_drawable_detach (drawable);

  if (ferror (ofp))
  {
    show_message ("write error occured");
    return (FALSE);
  }
  return (TRUE);
#undef GET_INDEX_TILE
}


static gint
save_rgb (FILE *ofp,
          gint32 image_ID,
          gint32 drawable_ID,
          int rle)

{
  int height, width, tile_height, linepad;
  int i, j, bpp;
  unsigned char *data, *src;
  L_SUNFILEHEADER sunhdr;
  GPixelRgn pixel_rgn;
  GDrawable *drawable;
  GDrawableType drawable_type;

  drawable = gimp_drawable_get (drawable_ID);
  drawable_type = gimp_drawable_type (drawable_ID);
  width = drawable->width;
  height = drawable->height;
  tile_height = gimp_tile_height ();
  gimp_pixel_rgn_init (&pixel_rgn, drawable, 0, 0, width, height, FALSE, FALSE);

  /* allocate a buffer for retrieving information from the pixel region  */
  src = data = (unsigned char *)g_malloc (tile_height * width * drawable->bpp);

/* #define SUNRAS_32 */
#ifdef SUNRAS_32
  bpp = 4;
#else
  bpp = 3;
#endif
  linepad = (width * bpp) % 2;

  /* Fill in the SUN header */
  sunhdr.l_ras_magic = RAS_MAGIC;
  sunhdr.l_ras_width = width;
  sunhdr.l_ras_height = height;
  sunhdr.l_ras_depth = 8 * bpp;
  sunhdr.l_ras_length = (width*bpp + linepad)*height;
  sunhdr.l_ras_type = (rle) ? RAS_TYPE_RLE : RAS_TYPE_STD;
  sunhdr.l_ras_maptype = 0;   /* No colourmap */
  sunhdr.l_ras_maplength = 0; /* Length of colourmap */

  write_sun_header (ofp, &sunhdr);

#define GET_RGB_TILE(begin) \
  {int scan_lines; \
    scan_lines = (i+tile_height-1 < height) ? tile_height : (height-i); \
    gimp_pixel_rgn_get_rect (&pixel_rgn, begin, 0, i, width, scan_lines); \
    src = begin; }

  if (!rle)
  {
    for (i = 0; i < height; i++)
    {
      if ((i % tile_height) == 0) GET_RGB_TILE (data); /* Get more data */
      for (j = 0; j < width; j++)
      {
        if (bpp == 4) putc (0, ofp);   /* Dummy */
        putc (*(src+2), ofp);          /* Blue */
        putc (*(src+1), ofp);          /* Green */
        putc (*src, ofp);              /* Red */
        src += 3;
      }
      for (j = 0; j < linepad; j++)
        putc (0, ofp);

      if ((l_run_mode != RUN_NONINTERACTIVE) && ((i % 20) == 0))
        gimp_progress_update ((double) i / (double) height);
    }
  }
  else  /* Write runlength encoded */
  {
    rle_startwrite (ofp);

    for (i = 0; i < height; i++)
    {
      if ((i % tile_height) == 0) GET_RGB_TILE (data); /* Get more data */
      for (j = 0; j < width; j++)
      {
        if (bpp == 4) rle_putc (0, ofp);   /* Dummy */
        rle_putc (*(src+2), ofp);          /* Blue */
        rle_putc (*(src+1), ofp);          /* Green */
        rle_putc (*src, ofp);              /* Red */
        src += 3;
      }
      for (j = 0; j < linepad; j++)
        rle_putc (0, ofp);

      if ((l_run_mode != RUN_NONINTERACTIVE) && ((i % 20) == 0))
        gimp_progress_update ((double) i / (double) height);
    }

    rle_endwrite (ofp);
  }
  g_free (data);

  gimp_drawable_detach (drawable);

  if (ferror (ofp))
  {
    show_message ("write error occured");
    return (FALSE);
  }
  return (TRUE);
#undef GET_RGB_TILE
}


/*  Save interface functions  */

static gint
save_dialog (void)

{
  GtkWidget *dlg;
  GtkWidget *button;
  GtkWidget *toggle;
  GtkWidget *frame;
  GtkWidget *toggle_vbox;
  GSList *group;
  gchar **argv;
  gint argc;
  gint use_rle = (psvals.rle == TRUE);
  gint use_std = (psvals.rle == FALSE);

  argc = 1;
  argv = g_new (gchar *, 1);
  argv[0] = g_strdup ("save");

  gtk_init (&argc, &argv);
  gtk_rc_parse (gimp_gtkrc ());

  dlg = gtk_dialog_new ();
  gtk_window_set_title (GTK_WINDOW (dlg), "Save as SUNRAS");
  gtk_window_position (GTK_WINDOW (dlg), GTK_WIN_POS_MOUSE);
  gtk_signal_connect (GTK_OBJECT (dlg), "destroy",
                      (GtkSignalFunc) save_close_callback,
                      NULL);

  /*  Action area  */
  button = gtk_button_new_with_label ("OK");
  GTK_WIDGET_SET_FLAGS (button, GTK_CAN_DEFAULT);
  gtk_signal_connect (GTK_OBJECT (button), "clicked",
                      (GtkSignalFunc) save_ok_callback,
                      dlg);
  gtk_box_pack_start (GTK_BOX (GTK_DIALOG (dlg)->action_area), button,
                      TRUE, TRUE, 0);
  gtk_widget_grab_default (button);
  gtk_widget_show (button);

  button = gtk_button_new_with_label ("Cancel");
  GTK_WIDGET_SET_FLAGS (button, GTK_CAN_DEFAULT);
  gtk_signal_connect_object (GTK_OBJECT (button), "clicked",
                             (GtkSignalFunc) gtk_widget_destroy,
                             GTK_OBJECT (dlg));
  gtk_box_pack_start (GTK_BOX (GTK_DIALOG (dlg)->action_area), button,
                      TRUE, TRUE, 0);
  gtk_widget_show (button);

  /*  file save type  */
  frame = gtk_frame_new ("Data Formatting");
  gtk_frame_set_shadow_type (GTK_FRAME (frame), GTK_SHADOW_ETCHED_IN);
  gtk_container_border_width (GTK_CONTAINER (frame), 10);
  gtk_box_pack_start (GTK_BOX (GTK_DIALOG (dlg)->vbox), frame, FALSE, TRUE, 0);
  toggle_vbox = gtk_vbox_new (FALSE, 5);
  gtk_container_border_width (GTK_CONTAINER (toggle_vbox), 5);
  gtk_container_add (GTK_CONTAINER (frame), toggle_vbox);

  group = NULL;
  toggle = gtk_radio_button_new_with_label (group, "RLE");
  group = gtk_radio_button_group (GTK_RADIO_BUTTON (toggle));
  gtk_box_pack_start (GTK_BOX (toggle_vbox), toggle, FALSE, FALSE, 0);
  gtk_signal_connect (GTK_OBJECT (toggle), "toggled",
                      (GtkSignalFunc) save_toggle_update,
                      &use_rle);
  gtk_toggle_button_set_state (GTK_TOGGLE_BUTTON (toggle), use_rle);
  gtk_widget_show (toggle);

  toggle = gtk_radio_button_new_with_label (group, "Standard");
  group = gtk_radio_button_group (GTK_RADIO_BUTTON (toggle));
  gtk_box_pack_start (GTK_BOX (toggle_vbox), toggle, FALSE, FALSE, 0);
  gtk_signal_connect (GTK_OBJECT (toggle), "toggled",
                      (GtkSignalFunc) save_toggle_update,
                      &use_std);
  gtk_toggle_button_set_state (GTK_TOGGLE_BUTTON (toggle), use_std);
  gtk_widget_show (toggle);

  gtk_widget_show (toggle_vbox);
  gtk_widget_show (frame);

  gtk_widget_show (dlg);

  gtk_main ();
  gdk_flush ();

  if (use_rle)
    psvals.rle = TRUE;
  else
    psvals.rle = FALSE;

  return psint.run;
}


static void
save_close_callback (GtkWidget *widget,
                     gpointer   data)

{
  gtk_main_quit ();
}


static void
save_ok_callback (GtkWidget *widget,
                  gpointer   data)

{
  psint.run = TRUE;
  gtk_widget_destroy (GTK_WIDGET (data));
}


static void
save_toggle_update (GtkWidget *widget,
                    gpointer   data)

{
  int *toggle_val;

  toggle_val = (int *) data;

  if (GTK_TOGGLE_BUTTON (widget)->active)
    *toggle_val = TRUE;
  else
    *toggle_val = FALSE;
}


/* Show a message. Where to show it, depends on the runmode */
static void show_message (char *message)

{
#ifdef Simple_Message_Box_Available
 /* If there would be a simple message box like the one */
 /* used in ../app/interface.h, I would like to use it. */
 if (l_run_mode == RUN_INTERACTIVE)
   gtk_message_box (message);
 else
#endif
   fprintf (stderr, "sunras: %s\n", message);
}
