The Ecere SDK - sdk/blob - deps/jpeg-9a/rdrle.c

   1 /*
   2  * rdrle.c
   3  *
   4  * Copyright (C) 1991-1996, Thomas G. Lane.
   5  * This file is part of the Independent JPEG Group's software.
   6  * For conditions of distribution and use, see the accompanying README file.
   7  *
   8  * This file contains routines to read input images in Utah RLE format.
   9  * The Utah Raster Toolkit library is required (version 3.1 or later).
  10  *
  11  * These routines may need modification for non-Unix environments or
  12  * specialized applications.  As they stand, they assume input from
  13  * an ordinary stdio stream.  They further assume that reading begins
  14  * at the start of the file; start_input may need work if the
  15  * user interface has already read some data (e.g., to determine that
  16  * the file is indeed RLE format).
  17  *
  18  * Based on code contributed by Mike Lijewski,
  19  * with updates from Robert Hutchinson.
  20  */
  21
  22 #include "cdjpeg.h"             /* Common decls for cjpeg/djpeg applications */
  23
  24 #ifdef RLE_SUPPORTED
  25
  26 /* rle.h is provided by the Utah Raster Toolkit. */
  27
  28 #include <rle.h>
  29
  30 /*
  31  * We assume that JSAMPLE has the same representation as rle_pixel,
  32  * to wit, "unsigned char".  Hence we can't cope with 12- or 16-bit samples.
  33  */
  34
  35 #if BITS_IN_JSAMPLE != 8
  36   Sorry, this code only copes with 8-bit JSAMPLEs. /* deliberate syntax err */
  37 #endif
  38
  39 /*
  40  * We support the following types of RLE files:
  41  *
  42  *   GRAYSCALE   - 8 bits, no colormap
  43  *   MAPPEDGRAY  - 8 bits, 1 channel colomap
  44  *   PSEUDOCOLOR - 8 bits, 3 channel colormap
  45  *   TRUECOLOR   - 24 bits, 3 channel colormap
  46  *   DIRECTCOLOR - 24 bits, no colormap
  47  *
  48  * For now, we ignore any alpha channel in the image.
  49  */
  50
  51 typedef enum
  52   { GRAYSCALE, MAPPEDGRAY, PSEUDOCOLOR, TRUECOLOR, DIRECTCOLOR } rle_kind;
  53
  54
  55 /*
  56  * Since RLE stores scanlines bottom-to-top, we have to invert the image
  57  * to conform to JPEG's top-to-bottom order.  To do this, we read the
  58  * incoming image into a virtual array on the first get_pixel_rows call,
  59  * then fetch the required row from the virtual array on subsequent calls.
  60  */
  61
  62 typedef struct _rle_source_struct * rle_source_ptr;
  63
  64 typedef struct _rle_source_struct {
  65   struct cjpeg_source_struct pub; /* public fields */
  66
  67   rle_kind visual;              /* actual type of input file */
  68   jvirt_sarray_ptr image;       /* virtual array to hold the image */
  69   JDIMENSION row;               /* current row # in the virtual array */
  70   rle_hdr header;               /* Input file information */
  71   rle_pixel** rle_row;          /* holds a row returned by rle_getrow() */
  72
  73 } rle_source_struct;
  74
  75
  76 /*
  77  * Read the file header; return image size and component count.
  78  */
  79
  80 METHODDEF(void)
  81 start_input_rle (j_compress_ptr cinfo, cjpeg_source_ptr sinfo)
  82 {
  83   rle_source_ptr source = (rle_source_ptr) sinfo;
  84   JDIMENSION width, height;
  85 #ifdef PROGRESS_REPORT
  86   cd_progress_ptr progress = (cd_progress_ptr) cinfo->progress;
  87 #endif
  88
  89   /* Use RLE library routine to get the header info */
  90   source->header = *rle_hdr_init(NULL);
  91   source->header.rle_file = source->pub.input_file;
  92   switch (rle_get_setup(&(source->header))) {
  93   case RLE_SUCCESS:
  94     /* A-OK */
  95     break;
  96   case RLE_NOT_RLE:
  97     ERREXIT(cinfo, JERR_RLE_NOT);
  98     break;
  99   case RLE_NO_SPACE:
 100     ERREXIT(cinfo, JERR_RLE_MEM);
 101     break;
 102   case RLE_EMPTY:
 103     ERREXIT(cinfo, JERR_RLE_EMPTY);
 104     break;
 105   case RLE_EOF:
 106     ERREXIT(cinfo, JERR_RLE_EOF);
 107     break;
 108   default:
 109     ERREXIT(cinfo, JERR_RLE_BADERROR);
 110     break;
 111   }
 112
 113   /* Figure out what we have, set private vars and return values accordingly */
 114
 115   width  = source->header.xmax - source->header.xmin + 1;
 116   height = source->header.ymax - source->header.ymin + 1;
 117   source->header.xmin = 0;              /* realign horizontally */
 118   source->header.xmax = width-1;
 119
 120   cinfo->image_width      = width;
 121   cinfo->image_height     = height;
 122   cinfo->data_precision   = 8;  /* we can only handle 8 bit data */
 123
 124   if (source->header.ncolors == 1 && source->header.ncmap == 0) {
 125     source->visual     = GRAYSCALE;
 126     TRACEMS2(cinfo, 1, JTRC_RLE_GRAY, width, height);
 127   } else if (source->header.ncolors == 1 && source->header.ncmap == 1) {
 128     source->visual     = MAPPEDGRAY;
 129     TRACEMS3(cinfo, 1, JTRC_RLE_MAPGRAY, width, height,
 130              1 << source->header.cmaplen);
 131   } else if (source->header.ncolors == 1 && source->header.ncmap == 3) {
 132     source->visual     = PSEUDOCOLOR;
 133     TRACEMS3(cinfo, 1, JTRC_RLE_MAPPED, width, height,
 134              1 << source->header.cmaplen);
 135   } else if (source->header.ncolors == 3 && source->header.ncmap == 3) {
 136     source->visual     = TRUECOLOR;
 137     TRACEMS3(cinfo, 1, JTRC_RLE_FULLMAP, width, height,
 138              1 << source->header.cmaplen);
 139   } else if (source->header.ncolors == 3 && source->header.ncmap == 0) {
 140     source->visual     = DIRECTCOLOR;
 141     TRACEMS2(cinfo, 1, JTRC_RLE, width, height);
 142   } else
 143     ERREXIT(cinfo, JERR_RLE_UNSUPPORTED);
 144
 145   if (source->visual == GRAYSCALE || source->visual == MAPPEDGRAY) {
 146     cinfo->in_color_space   = JCS_GRAYSCALE;
 147     cinfo->input_components = 1;
 148   } else {
 149     cinfo->in_color_space   = JCS_RGB;
 150     cinfo->input_components = 3;
 151   }
 152
 153   /*
 154    * A place to hold each scanline while it's converted.
 155    * (GRAYSCALE scanlines don't need converting)
 156    */
 157   if (source->visual != GRAYSCALE) {
 158     source->rle_row = (rle_pixel**) (*cinfo->mem->alloc_sarray)
 159       ((j_common_ptr) cinfo, JPOOL_IMAGE,
 160        (JDIMENSION) width, (JDIMENSION) cinfo->input_components);
 161   }
 162
 163   /* request a virtual array to hold the image */
 164   source->image = (*cinfo->mem->request_virt_sarray)
 165     ((j_common_ptr) cinfo, JPOOL_IMAGE, FALSE,
 166      (JDIMENSION) (width * source->header.ncolors),
 167      (JDIMENSION) height, (JDIMENSION) 1);
 168
 169 #ifdef PROGRESS_REPORT
 170   if (progress != NULL) {
 171     /* count file input as separate pass */
 172     progress->total_extra_passes++;
 173   }
 174 #endif
 175
 176   source->pub.buffer_height = 1;
 177 }
 178
 179
 180 /*
 181  * Read one row of pixels.
 182  * Called only after load_image has read the image into the virtual array.
 183  * Used for GRAYSCALE, MAPPEDGRAY, TRUECOLOR, and DIRECTCOLOR images.
 184  */
 185
 186 METHODDEF(JDIMENSION)
 187 get_rle_row (j_compress_ptr cinfo, cjpeg_source_ptr sinfo)
 188 {
 189   rle_source_ptr source = (rle_source_ptr) sinfo;
 190
 191   source->row--;
 192   source->pub.buffer = (*cinfo->mem->access_virt_sarray)
 193     ((j_common_ptr) cinfo, source->image, source->row, (JDIMENSION) 1, FALSE);
 194
 195   return 1;
 196 }
 197
 198 /*
 199  * Read one row of pixels.
 200  * Called only after load_image has read the image into the virtual array.
 201  * Used for PSEUDOCOLOR images.
 202  */
 203
 204 METHODDEF(JDIMENSION)
 205 get_pseudocolor_row (j_compress_ptr cinfo, cjpeg_source_ptr sinfo)
 206 {
 207   rle_source_ptr source = (rle_source_ptr) sinfo;
 208   JSAMPROW src_row, dest_row;
 209   JDIMENSION col;
 210   rle_map *colormap;
 211   int val;
 212
 213   colormap = source->header.cmap;
 214   dest_row = source->pub.buffer[0];
 215   source->row--;
 216   src_row = * (*cinfo->mem->access_virt_sarray)
 217     ((j_common_ptr) cinfo, source->image, source->row, (JDIMENSION) 1, FALSE);
 218
 219   for (col = cinfo->image_width; col > 0; col--) {
 220     val = GETJSAMPLE(*src_row++);
 221     *dest_row++ = (JSAMPLE) (colormap[val      ] >> 8);
 222     *dest_row++ = (JSAMPLE) (colormap[val + 256] >> 8);
 223     *dest_row++ = (JSAMPLE) (colormap[val + 512] >> 8);
 224   }
 225
 226   return 1;
 227 }
 228
 229
 230 /*
 231  * Load the image into a virtual array.  We have to do this because RLE
 232  * files start at the lower left while the JPEG standard has them starting
 233  * in the upper left.  This is called the first time we want to get a row
 234  * of input.  What we do is load the RLE data into the array and then call
 235  * the appropriate routine to read one row from the array.  Before returning,
 236  * we set source->pub.get_pixel_rows so that subsequent calls go straight to
 237  * the appropriate row-reading routine.
 238  */
 239
 240 METHODDEF(JDIMENSION)
 241 load_image (j_compress_ptr cinfo, cjpeg_source_ptr sinfo)
 242 {
 243   rle_source_ptr source = (rle_source_ptr) sinfo;
 244   JDIMENSION row, col;
 245   JSAMPROW  scanline, red_ptr, green_ptr, blue_ptr;
 246   rle_pixel **rle_row;
 247   rle_map *colormap;
 248   char channel;
 249 #ifdef PROGRESS_REPORT
 250   cd_progress_ptr progress = (cd_progress_ptr) cinfo->progress;
 251 #endif
 252
 253   colormap = source->header.cmap;
 254   rle_row = source->rle_row;
 255
 256   /* Read the RLE data into our virtual array.
 257    * We assume here that (a) rle_pixel is represented the same as JSAMPLE,
 258    * and (b) we are not on a machine where FAR pointers differ from regular.
 259    */
 260   RLE_CLR_BIT(source->header, RLE_ALPHA); /* don't read the alpha channel */
 261
 262 #ifdef PROGRESS_REPORT
 263   if (progress != NULL) {
 264     progress->pub.pass_limit = cinfo->image_height;
 265     progress->pub.pass_counter = 0;
 266     (*progress->pub.progress_monitor) ((j_common_ptr) cinfo);
 267   }
 268 #endif
 269
 270   switch (source->visual) {
 271
 272   case GRAYSCALE:
 273   case PSEUDOCOLOR:
 274     for (row = 0; row < cinfo->image_height; row++) {
 275       rle_row = (rle_pixel **) (*cinfo->mem->access_virt_sarray)
 276          ((j_common_ptr) cinfo, source->image, row, (JDIMENSION) 1, TRUE);
 277       rle_getrow(&source->header, rle_row);
 278 #ifdef PROGRESS_REPORT
 279       if (progress != NULL) {
 280         progress->pub.pass_counter++;
 281         (*progress->pub.progress_monitor) ((j_common_ptr) cinfo);
 282       }
 283 #endif
 284     }
 285     break;
 286
 287   case MAPPEDGRAY:
 288   case TRUECOLOR:
 289     for (row = 0; row < cinfo->image_height; row++) {
 290       scanline = * (*cinfo->mem->access_virt_sarray)
 291         ((j_common_ptr) cinfo, source->image, row, (JDIMENSION) 1, TRUE);
 292       rle_row = source->rle_row;
 293       rle_getrow(&source->header, rle_row);
 294
 295       for (col = 0; col < cinfo->image_width; col++) {
 296         for (channel = 0; channel < source->header.ncolors; channel++) {
 297           *scanline++ = (JSAMPLE)
 298             (colormap[GETJSAMPLE(rle_row[channel][col]) + 256 * channel] >> 8);
 299         }
 300       }
 301
 302 #ifdef PROGRESS_REPORT
 303       if (progress != NULL) {
 304         progress->pub.pass_counter++;
 305         (*progress->pub.progress_monitor) ((j_common_ptr) cinfo);
 306       }
 307 #endif
 308     }
 309     break;
 310
 311   case DIRECTCOLOR:
 312     for (row = 0; row < cinfo->image_height; row++) {
 313       scanline = * (*cinfo->mem->access_virt_sarray)
 314         ((j_common_ptr) cinfo, source->image, row, (JDIMENSION) 1, TRUE);
 315       rle_getrow(&source->header, rle_row);
 316
 317       red_ptr   = rle_row[0];
 318       green_ptr = rle_row[1];
 319       blue_ptr  = rle_row[2];
 320
 321       for (col = cinfo->image_width; col > 0; col--) {
 322         *scanline++ = *red_ptr++;
 323         *scanline++ = *green_ptr++;
 324         *scanline++ = *blue_ptr++;
 325       }
 326
 327 #ifdef PROGRESS_REPORT
 328       if (progress != NULL) {
 329         progress->pub.pass_counter++;
 330         (*progress->pub.progress_monitor) ((j_common_ptr) cinfo);
 331       }
 332 #endif
 333     }
 334   }
 335
 336 #ifdef PROGRESS_REPORT
 337   if (progress != NULL)
 338     progress->completed_extra_passes++;
 339 #endif
 340
 341   /* Set up to call proper row-extraction routine in future */
 342   if (source->visual == PSEUDOCOLOR) {
 343     source->pub.buffer = source->rle_row;
 344     source->pub.get_pixel_rows = get_pseudocolor_row;
 345   } else {
 346     source->pub.get_pixel_rows = get_rle_row;
 347   }
 348   source->row = cinfo->image_height;
 349
 350   /* And fetch the topmost (bottommost) row */
 351   return (*source->pub.get_pixel_rows) (cinfo, sinfo);
 352 }
 353
 354
 355 /*
 356  * Finish up at the end of the file.
 357  */
 358
 359 METHODDEF(void)
 360 finish_input_rle (j_compress_ptr cinfo, cjpeg_source_ptr sinfo)
 361 {
 362   /* no work */
 363 }
 364
 365
 366 /*
 367  * The module selection routine for RLE format input.
 368  */
 369
 370 GLOBAL(cjpeg_source_ptr)
 371 jinit_read_rle (j_compress_ptr cinfo)
 372 {
 373   rle_source_ptr source;
 374
 375   /* Create module interface object */
 376   source = (rle_source_ptr)
 377       (*cinfo->mem->alloc_small) ((j_common_ptr) cinfo, JPOOL_IMAGE,
 378                                   SIZEOF(rle_source_struct));
 379   /* Fill in method ptrs */
 380   source->pub.start_input = start_input_rle;
 381   source->pub.finish_input = finish_input_rle;
 382   source->pub.get_pixel_rows = load_image;
 383
 384   return (cjpeg_source_ptr) source;
 385 }
 386
 387 #endif /* RLE_SUPPORTED */