stb_image.h 217.7 KB
Newer Older
1
/* stb_image - v2.08 - public domain image loader - http://nothings.org/stb_image.h
2
                                     no warranty implied; use at your own risk
3 4 5 6 7

   Do this:
      #define STB_IMAGE_IMPLEMENTATION
   before you include this file in *one* C or C++ file to create the implementation.

S
Sean Barrett 已提交
8 9 10 11 12 13 14 15 16
   // i.e. it should look like this:
   #include ...
   #include ...
   #include ...
   #define STB_IMAGE_IMPLEMENTATION
   #include "stb_image.h"

   You can #define STBI_ASSERT(x) before the #include to avoid using assert.h.
   And #define STBI_MALLOC, STBI_REALLOC, and STBI_FREE to avoid using malloc,realloc,free
17

S
Sean Barrett 已提交
18

19 20 21 22
   QUICK NOTES:
      Primarily of interest to game developers and other people who can
          avoid problematic images and only need the trivial interface

F
Fabian Giesen 已提交
23
      JPEG baseline & progressive (12 bpc/arithmetic not supported, same as stock IJG lib)
O
ocornut 已提交
24
      PNG 1/2/4/8-bit-per-channel (16 bpc not supported)
25 26 27

      TGA (not sure what subset, if a subset)
      BMP non-1bpp, non-RLE
S
Sean Barrett 已提交
28
      PSD (composited view only, no extra channels, 8/16 bit-per-channel)
29 30 31 32

      GIF (*comp always reports as 4-channel)
      HDR (radiance rgbE format)
      PIC (Softimage PIC)
S
Sean Barrett 已提交
33
      PNM (PPM and PGM binary only)
34

S
Sean Barrett 已提交
35 36 37
      Animated GIF still needs a proper API, but here's one way to do it:
          http://gist.github.com/urraka/685d9a6340b26b830d49

38 39
      - decode from memory or through FILE (define STBI_NO_STDIO to remove code)
      - decode from arbitrary I/O callbacks
40
      - SIMD acceleration on x86/x64 (SSE2) and ARM (NEON)
41

42 43 44
   Full documentation under "DOCUMENTATION" below.


S
Sean Barrett 已提交
45
   Revision 2.00 release notes:
46

S
Sean Barrett 已提交
47 48
      - Progressive JPEG is now supported.

49
      - PPM and PGM binary formats are now supported, thanks to Ken Miller.
50

51
      - x86 platforms now make use of SSE2 SIMD instructions for
S
Sean Barrett 已提交
52 53 54 55 56
        JPEG decoding, and ARM platforms can use NEON SIMD if requested.
        This work was done by Fabian "ryg" Giesen. SSE2 is used by
        default, but NEON must be enabled explicitly; see docs.

        With other JPEG optimizations included in this version, we see
57
        2x speedup on a JPEG on an x86 machine, and a 1.5x speedup
S
Sean Barrett 已提交
58 59
        on a JPEG on an ARM machine, relative to previous versions of this
        library. The same results will not obtain for all JPGs and for all
60
        x86/ARM machines. (Note that progressive JPEGs are significantly
S
Sean Barrett 已提交
61 62 63 64 65
        slower to decode than regular JPEGs.) This doesn't mean that this
        is the fastest JPEG decoder in the land; rather, it brings it
        closer to parity with standard libraries. If you want the fastest
        decode, look elsewhere. (See "Philosophy" section of docs below.)

66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112
        See final bullet items below for more info on SIMD.

      - Added STBI_MALLOC, STBI_REALLOC, and STBI_FREE macros for replacing
        the memory allocator. Unlike other STBI libraries, these macros don't
        support a context parameter, so if you need to pass a context in to
        the allocator, you'll have to store it in a global or a thread-local
        variable.

      - Split existing STBI_NO_HDR flag into two flags, STBI_NO_HDR and
        STBI_NO_LINEAR.
            STBI_NO_HDR:     suppress implementation of .hdr reader format
            STBI_NO_LINEAR:  suppress high-dynamic-range light-linear float API

      - You can suppress implementation of any of the decoders to reduce
        your code footprint by #defining one or more of the following
        symbols before creating the implementation.

            STBI_NO_JPEG
            STBI_NO_PNG
            STBI_NO_BMP
            STBI_NO_PSD
            STBI_NO_TGA
            STBI_NO_GIF
            STBI_NO_HDR
            STBI_NO_PIC
            STBI_NO_PNM   (.ppm and .pgm)

      - You can request *only* certain decoders and suppress all other ones
        (this will be more forward-compatible, as addition of new decoders
        doesn't require you to disable them explicitly):

            STBI_ONLY_JPEG
            STBI_ONLY_PNG
            STBI_ONLY_BMP
            STBI_ONLY_PSD
            STBI_ONLY_TGA
            STBI_ONLY_GIF
            STBI_ONLY_HDR
            STBI_ONLY_PIC
            STBI_ONLY_PNM   (.ppm and .pgm)

         Note that you can define multiples of these, and you will get all
         of them ("only x" and "only y" is interpreted to mean "only x&y").

       - If you use STBI_NO_PNG (or _ONLY_ without PNG), and you still
         want the zlib decoder to be available, #define STBI_SUPPORT_ZLIB

S
Sean Barrett 已提交
113
      - Compilation of all SIMD code can be suppressed with
114
            #define STBI_NO_SIMD
115
        It should not be necessary to disable SIMD unless you have issues
116 117 118 119
        compiling (e.g. using an x86 compiler which doesn't support SSE
        intrinsics or that doesn't support the method used to detect
        SSE2 support at run-time), and even those can be reported as
        bugs so I can refine the built-in compile-time checking to be
S
Sean Barrett 已提交
120
        smarter.
121

S
Sean Barrett 已提交
122 123 124
      - The old STBI_SIMD system which allowed installing a user-defined
        IDCT etc. has been removed. If you need this, don't upgrade. My
        assumption is that almost nobody was doing this, and those who
125
        were will find the built-in SIMD more satisfactory anyway.
S
Sean Barrett 已提交
126

127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144
      - RGB values computed for JPEG images are slightly different from
        previous versions of stb_image. (This is due to using less
        integer precision in SIMD.) The C code has been adjusted so
        that the same RGB values will be computed regardless of whether
        SIMD support is available, so your app should always produce
        consistent results. But these results are slightly different from
        previous versions. (Specifically, about 3% of available YCbCr values
        will compute different RGB results from pre-1.49 versions by +-1;
        most of the deviating values are one smaller in the G channel.)

      - If you must produce consistent results with previous versions of
        stb_image, #define STBI_JPEG_OLD and you will get the same results
        you used to; however, you will not get the SIMD speedups for
        the YCbCr-to-RGB conversion step (although you should still see
        significant JPEG speedup from the other changes).

        Please note that STBI_JPEG_OLD is a temporary feature; it will be
        removed in future versions of the library. It is only intended for
S
Sean Barrett 已提交
145
        near-term back-compatibility use.
146 147 148


   Latest revision history:
149
      2.08  (2015-09-13) fix to 2.07 cleanup, reading RGB PSD as RGBA
150 151 152
      2.07  (2015-09-13) partial animated GIF support
                         limited 16-bit PSD support
                         minor bugs, code cleanup, and compiler warnings
153
      2.06  (2015-04-19) fix bug where PSD returns wrong '*comp' value
S
Sean Barrett 已提交
154
      2.05  (2015-04-19) fix bug in progressive JPEG handling, fix warning
155
      2.04  (2015-04-15) try to re-enable SIMD on MinGW 64-bit
156
      2.03  (2015-04-12) additional corruption checking
S
Sean Barrett 已提交
157
                         stbi_set_flip_vertically_on_load
158
                         fix NEON support; fix mingw support
159
      2.02  (2015-01-19) fix incorrect assert, fix warning
S
Sean Barrett 已提交
160
      2.01  (2015-01-17) fix various warnings
S
Sean Barrett 已提交
161 162 163 164 165 166 167 168 169 170 171
      2.00b (2014-12-25) fix STBI_MALLOC in progressive JPEG
      2.00  (2014-12-25) optimize JPEG, including x86 SSE2 & ARM NEON SIMD
                         progressive JPEG
                         PGM/PPM support
                         STBI_MALLOC,STBI_REALLOC,STBI_FREE
                         STBI_NO_*, STBI_ONLY_*
                         GIF bugfix
      1.48  (2014-12-14) fix incorrectly-named assert()
      1.47  (2014-12-14) 1/2/4-bit PNG support (both grayscale and paletted)
                         optimize PNG
                         fix bug in interlaced PNG with user-specified channel count
172 173 174 175 176

   See end of file for full revision history.


 ============================    Contributors    =========================
S
Sean Barrett 已提交
177

178 179 180 181 182 183 184
 Image formats                                Bug fixes & warning fixes
    Sean Barrett (jpeg, png, bmp)                Marc LeBlanc
    Nicolas Schulz (hdr, psd)                    Christpher Lloyd
    Jonathan Dummer (tga)                        Dave Moore
    Jean-Marc Lienher (gif)                      Won Chun
    Tom Seddon (pic)                             the Horde3D community
    Thatcher Ulrich (psd)                        Janez Zemva
K
Ken Miller 已提交
185
    Ken Miller (pgm, ppm)                        Jonathan Blow
S
Sean Barrett 已提交
186
    urraka@github (animated gif)                 Laurent Gomila
S
Sean Barrett 已提交
187
                                                 Aruelien Pocheville
S
Sean Barrett 已提交
188 189 190 191 192 193 194 195 196 197 198
                                                 Ryamond Barbiero
                                                 David Woo
 Extensions, features                            Martin Golini
    Jetro Lauha (stbi_info)                      Roy Eltham
    Martin "SpartanJ" Golini (stbi_info)         Luke Graham
    James "moose2000" Brown (iPhone PNG)         Thomas Ruf
    Ben "Disch" Wenger (io callbacks)            John Bartholomew
    Omar Cornut (1/2/4-bit PNG)                  Ken Hamada
    Nicolas Guillemot (vertical flip)            Cort Stratton
    Richard Mitton (16-bit PSD)                  Blazej Dariusz Roszkowski
                                                 Thibault Reuille
S
Sean Barrett 已提交
199 200
                                                 Paul Du Bois
                                                 Guillaume George
S
Sean Barrett 已提交
201 202
                                                 Jerry Jansson
                                                 Hayaki Saito
S
Sean Barrett 已提交
203
                                                 Johan Duparc
S
Sean Barrett 已提交
204
                                                 Ronny Chevalier
S
Sean Barrett 已提交
205 206 207
 Optimizations & bugfixes                        Michal Cichon
    Fabian "ryg" Giesen                          Tero Hanninen
    Arseny Kapoulkine                            Sergio Gonzalez
S
Sean Barrett 已提交
208 209
                                                 Cass Everitt
                                                 Engin Manap
S
Sean Barrett 已提交
210 211
  If your name should be here but                Martins Mozeiko
  isn't, let Sean know.                          Joseph Thomson
212
                                                 Phil Jordan
S
Sean Barrett 已提交
213
                                                 Nathan Reed
S
Sean Barrett 已提交
214
                                                 Michaelangel007@github
215
                                                 Nick Verigakis
S
Sean Barrett 已提交
216

217 218 219 220 221
LICENSE

This software is in the public domain. Where that dedication is not
recognized, you are granted a perpetual, irrevocable license to copy,
distribute, and modify this file as you see fit.
S
Sean Barrett 已提交
222

223 224 225 226 227
*/

#ifndef STBI_INCLUDE_STB_IMAGE_H
#define STBI_INCLUDE_STB_IMAGE_H

228 229
// DOCUMENTATION
//
230
// Limitations:
S
VC6:  
Sean Barrett 已提交
231
//    - no 16-bit-per-channel PNG
S
Sean Barrett 已提交
232
//    - no 12-bit-per-channel JPEG
F
Fabian Giesen 已提交
233
//    - no JPEGs with arithmetic coding
234 235 236
//    - no 1-bit BMP
//    - GIF always returns *comp=4
//
S
Sean Barrett 已提交
237
// Basic usage (see HDR discussion below for HDR usage):
238 239
//    int x,y,n;
//    unsigned char *data = stbi_load(filename, &x, &y, &n, 0);
S
Sean Barrett 已提交
240
//    // ... process data if not NULL ...
241 242 243 244 245 246 247 248 249 250 251 252
//    // ... x = width, y = height, n = # 8-bit components per pixel ...
//    // ... replace '0' with '1'..'4' to force that many components per pixel
//    // ... but 'n' will always be the number that it would have been if you said 0
//    stbi_image_free(data)
//
// Standard parameters:
//    int *x       -- outputs image width in pixels
//    int *y       -- outputs image height in pixels
//    int *comp    -- outputs # of image components in image file
//    int req_comp -- if non-zero, # of image components requested in result
//
// The return value from an image loader is an 'unsigned char *' which points
S
Sean Barrett 已提交
253 254
// to the pixel data, or NULL on an allocation failure or if the image is
// corrupt or invalid. The pixel data consists of *y scanlines of *x pixels,
255 256 257 258 259 260
// with each pixel consisting of N interleaved 8-bit components; the first
// pixel pointed to is top-left-most in the image. There is no padding between
// image scanlines or between pixels, regardless of format. The number of
// components N is 'req_comp' if req_comp is non-zero, or *comp otherwise.
// If req_comp is non-zero, *comp has the number of components that _would_
// have been output otherwise. E.g. if you set req_comp to 4, you will always
S
Sean Barrett 已提交
261 262
// get RGBA output, but you can check *comp to see if it's trivially opaque
// because e.g. there were only 3 channels in the source image.
263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283
//
// An output image with N components has the following components interleaved
// in this order in each pixel:
//
//     N=#comp     components
//       1           grey
//       2           grey, alpha
//       3           red, green, blue
//       4           red, green, blue, alpha
//
// If image loading fails for any reason, the return value will be NULL,
// and *x, *y, *comp will be unchanged. The function stbi_failure_reason()
// can be queried for an extremely brief, end-user unfriendly explanation
// of why the load failed. Define STBI_NO_FAILURE_STRINGS to avoid
// compiling these strings at all, and STBI_FAILURE_USERMSG to get slightly
// more user-friendly ones.
//
// Paletted PNG, BMP, GIF, and PIC images are automatically depalettized.
//
// ===========================================================================
//
S
Sean Barrett 已提交
284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306
// Philosophy
//
// stb libraries are designed with the following priorities:
//
//    1. easy to use
//    2. easy to maintain
//    3. good performance
//
// Sometimes I let "good performance" creep up in priority over "easy to maintain",
// and for best performance I may provide less-easy-to-use APIs that give higher
// performance, in addition to the easy to use ones. Nevertheless, it's important
// to keep in mind that from the standpoint of you, a client of this library,
// all you care about is #1 and #3, and stb libraries do not emphasize #3 above all.
//
// Some secondary priorities arise directly from the first two, some of which
// make more explicit reasons why performance can't be emphasized.
//
//    - Portable ("ease of use")
//    - Small footprint ("easy to maintain")
//    - No dependencies ("ease of use")
//
// ===========================================================================
//
S
Sean Barrett 已提交
307
// I/O callbacks
308
//
S
Sean Barrett 已提交
309 310 311
// I/O callbacks allow you to read from arbitrary sources, like packaged
// files or some other source. Data read from callbacks are processed
// through a small internal buffer (currently 128 bytes) to try to reduce
S
Sean Barrett 已提交
312
// overhead.
313
//
S
Sean Barrett 已提交
314 315 316 317 318 319 320
// The three functions you must define are "read" (reads some bytes of data),
// "skip" (skips some bytes of data), "eof" (reports if the stream is at the end).
//
// ===========================================================================
//
// SIMD support
//
S
Sean Barrett 已提交
321 322 323
// The JPEG decoder will try to automatically use SIMD kernels on x86 when
// supported by the compiler. For ARM Neon support, you must explicitly
// request it.
S
Sean Barrett 已提交
324 325 326 327
//
// (The old do-it-yourself SIMD API is no longer supported in the current
// code.)
//
S
Sean Barrett 已提交
328 329 330 331
// On x86, SSE2 will automatically be used when available based on a run-time
// test; if not, the generic C versions are used as a fall-back. On ARM targets,
// the typical path is to have separate builds for NEON and non-NEON devices
// (at least this is true for iOS and Android). Therefore, the NEON support is
332
// toggled by a build flag: define STBI_NEON to get NEON loops.
S
Sean Barrett 已提交
333 334 335 336 337 338 339 340 341 342 343
//
// The output of the JPEG decoder is slightly different from versions where
// SIMD support was introduced (that is, for versions before 1.49). The
// difference is only +-1 in the 8-bit RGB channels, and only on a small
// fraction of pixels. You can force the pre-1.49 behavior by defining
// STBI_JPEG_OLD, but this will disable some of the SIMD decoding path
// and hence cost some performance.
//
// If for some reason you do not want to use any of SIMD code, or if
// you have issues compiling it, you can disable it entirely by
// defining STBI_NO_SIMD.
344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365
//
// ===========================================================================
//
// HDR image support   (disable by defining STBI_NO_HDR)
//
// stb_image now supports loading HDR images in general, and currently
// the Radiance .HDR file format, although the support is provided
// generically. You can still load any file through the existing interface;
// if you attempt to load an HDR file, it will be automatically remapped to
// LDR, assuming gamma 2.2 and an arbitrary scale factor defaulting to 1;
// both of these constants can be reconfigured through this interface:
//
//     stbi_hdr_to_ldr_gamma(2.2f);
//     stbi_hdr_to_ldr_scale(1.0f);
//
// (note, do not use _inverse_ constants; stbi_image will invert them
// appropriately).
//
// Additionally, there is a new, parallel interface for loading files as
// (linear) floats to preserve the full dynamic range:
//
//    float *data = stbi_loadf(filename, &x, &y, &n, 0);
S
Sean Barrett 已提交
366
//
367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382
// If you load LDR images through this interface, those images will
// be promoted to floating point values, run through the inverse of
// constants corresponding to the above:
//
//     stbi_ldr_to_hdr_scale(1.0f);
//     stbi_ldr_to_hdr_gamma(2.2f);
//
// Finally, given a filename (or an open file or memory block--see header
// file for details) containing image data, you can query for the "most
// appropriate" interface to use (that is, whether the image is HDR or
// not), using:
//
//     stbi_is_hdr(char *filename);
//
// ===========================================================================
//
S
Sean Barrett 已提交
383
// iPhone PNG support:
S
VC6:  
Sean Barrett 已提交
384
//
S
Sean Barrett 已提交
385 386 387 388 389
// By default we convert iphone-formatted PNGs back to RGB, even though
// they are internally encoded differently. You can disable this conversion
// by by calling stbi_convert_iphone_png_to_rgb(0), in which case
// you will always just get the native iphone "format" through (which
// is BGR stored in RGB).
S
VC6:  
Sean Barrett 已提交
390
//
S
Sean Barrett 已提交
391 392 393 394
// Call stbi_set_unpremultiply_on_load(1) as well to force a divide per
// pixel to remove any premultiplied alpha *only* if the image file explicitly
// says there's premultiplied data (currently only happens in iPhone images,
// and only if iPhone convert-to-rgb processing is on).
395
//
396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436


#ifndef STBI_NO_STDIO
#include <stdio.h>
#endif // STBI_NO_STDIO

#define STBI_VERSION 1

enum
{
   STBI_default = 0, // only used for req_comp

   STBI_grey       = 1,
   STBI_grey_alpha = 2,
   STBI_rgb        = 3,
   STBI_rgb_alpha  = 4
};

typedef unsigned char stbi_uc;

#ifdef __cplusplus
extern "C" {
#endif

#ifdef STB_IMAGE_STATIC
#define STBIDEF static
#else
#define STBIDEF extern
#endif

//////////////////////////////////////////////////////////////////////////////
//
// PRIMARY API - works on images of any type
//

//
// load image by filename, open file, or memory buffer
//

typedef struct
{
S
Sean Barrett 已提交
437
   int      (*read)  (void *user,char *data,int size);   // fill 'data' with 'size' bytes.  return number of bytes actually read
S
Sean Barrett 已提交
438
   void     (*skip)  (void *user,int n);                 // skip the next 'n' bytes, or 'unget' the last -n bytes if negative
439 440 441
   int      (*eof)   (void *user);                       // returns nonzero if we are at end of file/data
} stbi_io_callbacks;

442 443 444 445 446 447 448 449
STBIDEF stbi_uc *stbi_load               (char              const *filename,           int *x, int *y, int *comp, int req_comp);
STBIDEF stbi_uc *stbi_load_from_memory   (stbi_uc           const *buffer, int len   , int *x, int *y, int *comp, int req_comp);
STBIDEF stbi_uc *stbi_load_from_callbacks(stbi_io_callbacks const *clbk  , void *user, int *x, int *y, int *comp, int req_comp);

#ifndef STBI_NO_STDIO
STBIDEF stbi_uc *stbi_load_from_file  (FILE *f,                  int *x, int *y, int *comp, int req_comp);
// for stbi_load_from_file, file pointer is left pointing immediately after image
#endif
450

451
#ifndef STBI_NO_LINEAR
452 453 454
   STBIDEF float *stbi_loadf                 (char const *filename,           int *x, int *y, int *comp, int req_comp);
   STBIDEF float *stbi_loadf_from_memory     (stbi_uc const *buffer, int len, int *x, int *y, int *comp, int req_comp);
   STBIDEF float *stbi_loadf_from_callbacks  (stbi_io_callbacks const *clbk, void *user, int *x, int *y, int *comp, int req_comp);
455 456 457 458

   #ifndef STBI_NO_STDIO
   STBIDEF float *stbi_loadf_from_file  (FILE *f,                int *x, int *y, int *comp, int req_comp);
   #endif
459
#endif
460

461
#ifndef STBI_NO_HDR
462 463
   STBIDEF void   stbi_hdr_to_ldr_gamma(float gamma);
   STBIDEF void   stbi_hdr_to_ldr_scale(float scale);
464
#endif
465

466
#ifndef STBI_NO_LINEAR
467 468 469 470
   STBIDEF void   stbi_ldr_to_hdr_gamma(float gamma);
   STBIDEF void   stbi_ldr_to_hdr_scale(float scale);
#endif // STBI_NO_HDR

471
// stbi_is_hdr is always defined, but always returns false if STBI_NO_HDR
472 473 474 475 476 477 478 479 480 481
STBIDEF int    stbi_is_hdr_from_callbacks(stbi_io_callbacks const *clbk, void *user);
STBIDEF int    stbi_is_hdr_from_memory(stbi_uc const *buffer, int len);
#ifndef STBI_NO_STDIO
STBIDEF int      stbi_is_hdr          (char const *filename);
STBIDEF int      stbi_is_hdr_from_file(FILE *f);
#endif // STBI_NO_STDIO


// get a VERY brief reason for failure
// NOT THREADSAFE
S
Sean Barrett 已提交
482
STBIDEF const char *stbi_failure_reason  (void);
483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507

// free the loaded image -- this is just free()
STBIDEF void     stbi_image_free      (void *retval_from_stbi_load);

// get image dimensions & components without fully decoding
STBIDEF int      stbi_info_from_memory(stbi_uc const *buffer, int len, int *x, int *y, int *comp);
STBIDEF int      stbi_info_from_callbacks(stbi_io_callbacks const *clbk, void *user, int *x, int *y, int *comp);

#ifndef STBI_NO_STDIO
STBIDEF int      stbi_info            (char const *filename,     int *x, int *y, int *comp);
STBIDEF int      stbi_info_from_file  (FILE *f,                  int *x, int *y, int *comp);

#endif



// for image formats that explicitly notate that they have premultiplied alpha,
// we just return the colors as stored in the file. set this flag to force
// unpremultiplication. results are undefined if the unpremultiply overflow.
STBIDEF void stbi_set_unpremultiply_on_load(int flag_true_if_should_unpremultiply);

// indicate whether we should process iphone images back to canonical format,
// or just pass them through "as-is"
STBIDEF void stbi_convert_iphone_png_to_rgb(int flag_true_if_should_convert);

508 509
// flip the image vertically, so the first pixel in the output array is the bottom left
STBIDEF void stbi_set_flip_vertically_on_load(int flag_true_if_should_flip);
510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532

// ZLIB client - used by PNG, available for other purposes

STBIDEF char *stbi_zlib_decode_malloc_guesssize(const char *buffer, int len, int initial_size, int *outlen);
STBIDEF char *stbi_zlib_decode_malloc_guesssize_headerflag(const char *buffer, int len, int initial_size, int *outlen, int parse_header);
STBIDEF char *stbi_zlib_decode_malloc(const char *buffer, int len, int *outlen);
STBIDEF int   stbi_zlib_decode_buffer(char *obuffer, int olen, const char *ibuffer, int ilen);

STBIDEF char *stbi_zlib_decode_noheader_malloc(const char *buffer, int len, int *outlen);
STBIDEF int   stbi_zlib_decode_noheader_buffer(char *obuffer, int olen, const char *ibuffer, int ilen);


#ifdef __cplusplus
}
#endif

//
//
////   end header file   /////////////////////////////////////////////////////
#endif // STBI_INCLUDE_STB_IMAGE_H

#ifdef STB_IMAGE_IMPLEMENTATION

533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570
#if defined(STBI_ONLY_JPEG) || defined(STBI_ONLY_PNG) || defined(STBI_ONLY_BMP) \
  || defined(STBI_ONLY_TGA) || defined(STBI_ONLY_GIF) || defined(STBI_ONLY_PSD) \
  || defined(STBI_ONLY_HDR) || defined(STBI_ONLY_PIC) || defined(STBI_ONLY_PNM) \
  || defined(STBI_ONLY_ZLIB)
   #ifndef STBI_ONLY_JPEG
   #define STBI_NO_JPEG
   #endif
   #ifndef STBI_ONLY_PNG
   #define STBI_NO_PNG
   #endif
   #ifndef STBI_ONLY_BMP
   #define STBI_NO_BMP
   #endif
   #ifndef STBI_ONLY_PSD
   #define STBI_NO_PSD
   #endif
   #ifndef STBI_ONLY_TGA
   #define STBI_NO_TGA
   #endif
   #ifndef STBI_ONLY_GIF
   #define STBI_NO_GIF
   #endif
   #ifndef STBI_ONLY_HDR
   #define STBI_NO_HDR
   #endif
   #ifndef STBI_ONLY_PIC
   #define STBI_NO_PIC
   #endif
   #ifndef STBI_ONLY_PNM
   #define STBI_NO_PNM
   #endif
#endif

#if defined(STBI_NO_PNG) && !defined(STBI_SUPPORT_ZLIB) && !defined(STBI_NO_ZLIB)
#define STBI_NO_ZLIB
#endif


S
Sean Barrett 已提交
571 572 573 574 575
#include <stdarg.h>
#include <stddef.h> // ptrdiff_t on osx
#include <stdlib.h>
#include <string.h>

576
#if !defined(STBI_NO_LINEAR) || !defined(STBI_NO_HDR)
577 578 579 580 581 582
#include <math.h>  // ldexp
#endif

#ifndef STBI_NO_STDIO
#include <stdio.h>
#endif
S
Sean Barrett 已提交
583

S
Sean Barrett 已提交
584
#ifndef STBI_ASSERT
585
#include <assert.h>
S
Sean Barrett 已提交
586 587
#define STBI_ASSERT(x) assert(x)
#endif
S
Sean Barrett 已提交
588

589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632

#ifndef _MSC_VER
   #ifdef __cplusplus
   #define stbi_inline inline
   #else
   #define stbi_inline
   #endif
#else
   #define stbi_inline __forceinline
#endif


#ifdef _MSC_VER
typedef unsigned short stbi__uint16;
typedef   signed short stbi__int16;
typedef unsigned int   stbi__uint32;
typedef   signed int   stbi__int32;
#else
#include <stdint.h>
typedef uint16_t stbi__uint16;
typedef int16_t  stbi__int16;
typedef uint32_t stbi__uint32;
typedef int32_t  stbi__int32;
#endif

// should produce compiler error if size is wrong
typedef unsigned char validate_uint32[sizeof(stbi__uint32)==4 ? 1 : -1];

#ifdef _MSC_VER
#define STBI_NOTUSED(v)  (void)(v)
#else
#define STBI_NOTUSED(v)  (void)sizeof(v)
#endif

#ifdef _MSC_VER
#define STBI_HAS_LROTL
#endif

#ifdef STBI_HAS_LROTL
   #define stbi_lrot(x,y)  _lrotl(x,y)
#else
   #define stbi_lrot(x,y)  (((x) << (y)) | ((x) >> (32 - (y))))
#endif

S
Sean Barrett 已提交
633 634 635 636 637 638 639 640 641 642 643 644 645 646
#if defined(STBI_MALLOC) && defined(STBI_FREE) && defined(STBI_REALLOC)
// ok
#elif !defined(STBI_MALLOC) && !defined(STBI_FREE) && !defined(STBI_REALLOC)
// ok
#else
#error "Must define all or none of STBI_MALLOC, STBI_FREE, and STBI_REALLOC."
#endif

#ifndef STBI_MALLOC
#define STBI_MALLOC(sz)    malloc(sz)
#define STBI_REALLOC(p,sz) realloc(p,sz)
#define STBI_FREE(p)       free(p)
#endif

647
// x86/x64 detection
648 649 650
#if defined(__x86_64__) || defined(_M_X64)
#define STBI__X64_TARGET
#elif defined(__i386) || defined(_M_IX86)
651
#define STBI__X86_TARGET
652 653
#endif

654 655
#if defined(__GNUC__) && (defined(STBI__X86_TARGET) || defined(STBI__X64_TARGET)) && !defined(__SSE2__) && !defined(STBI_NO_SIMD)
// NOTE: not clear do we actually need this for the 64-bit path?
656 657 658 659 660 661 662
// gcc doesn't support sse2 intrinsics unless you compile with -msse2,
// (but compiling with -msse2 allows the compiler to use SSE2 everywhere;
// this is just broken and gcc are jerks for not fixing it properly
// http://www.virtualdub.org/blog/pivot/entry.php?id=363 )
#define STBI_NO_SIMD
#endif

663
#if defined(__MINGW32__) && defined(STBI__X86_TARGET) && !defined(STBI_MINGW_ENABLE_SSE2) && !defined(STBI_NO_SIMD)
664 665
// Note that __MINGW32__ doesn't actually mean 32-bit, so we have to avoid STBI__X64_TARGET
//
666 667 668 669 670 671 672 673 674 675 676 677
// 32-bit MinGW wants ESP to be 16-byte aligned, but this is not in the
// Windows ABI and VC++ as well as Windows DLLs don't maintain that invariant.
// As a result, enabling SSE2 on 32-bit MinGW is dangerous when not
// simultaneously enabling "-mstackrealign".
//
// See https://github.com/nothings/stb/issues/81 for more information.
//
// So default to no SSE2 on 32-bit MinGW. If you've read this far and added
// -mstackrealign to your build settings, feel free to #define STBI_MINGW_ENABLE_SSE2.
#define STBI_NO_SIMD
#endif

678
#if !defined(STBI_NO_SIMD) && defined(STBI__X86_TARGET)
679 680 681 682
#define STBI_SSE2
#include <emmintrin.h>

#ifdef _MSC_VER
S
VC6:  
Sean Barrett 已提交
683 684

#if _MSC_VER >= 1400  // not VC6
685
#include <intrin.h> // __cpuid
S
VC6:  
Sean Barrett 已提交
686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704
static int stbi__cpuid3(void)
{
   int info[4];
   __cpuid(info,1);
   return info[3];
}
#else
static int stbi__cpuid3(void)
{
   int res;
   __asm {
      mov  eax,1
      cpuid
      mov  res,edx
   }
   return res;
}
#endif

705
#define STBI_SIMD_ALIGN(type, name) __declspec(align(16)) type name
706 707 708

static int stbi__sse2_available()
{
S
VC6:  
Sean Barrett 已提交
709 710
   int info3 = stbi__cpuid3();
   return ((info3 >> 26) & 1) != 0;
711
}
712 713
#else // assume GCC-style if not VC++
#define STBI_SIMD_ALIGN(type, name) type name __attribute__((aligned(16)))
714 715 716 717 718 719 720 721 722 723 724 725

static int stbi__sse2_available()
{
#if defined(__GNUC__) && (__GNUC__ * 100 + __GNUC_MINOR__) >= 408 // GCC 4.8 or later
   // GCC 4.8+ has a nice way to do this
   return __builtin_cpu_supports("sse2");
#else
   // portable way to do this, preferably without using GCC inline ASM?
   // just bail for now.
   return 0;
#endif
}
726
#endif
727 728
#endif

729 730 731 732 733 734 735
// ARM NEON
#if defined(STBI_NO_SIMD) && defined(STBI_NEON)
#undef STBI_NEON
#endif

#ifdef STBI_NEON
#include <arm_neon.h>
F
Fabian Giesen 已提交
736
// assume GCC or Clang on ARM targets
737 738 739
#define STBI_SIMD_ALIGN(type, name) type name __attribute__((aligned(16)))
#endif

740 741 742
#ifndef STBI_SIMD_ALIGN
#define STBI_SIMD_ALIGN(type, name) type name
#endif
743

744 745
///////////////////////////////////////////////
//
S
Sean Barrett 已提交
746
//  stbi__context struct and start_xxx functions
747

S
Sean Barrett 已提交
748
// stbi__context structure is our basic context used by all images, so it
749 750 751 752 753
// contains all the IO context, plus some basic image information
typedef struct
{
   stbi__uint32 img_x, img_y;
   int img_n, img_out_n;
S
Sean Barrett 已提交
754

755 756 757 758 759
   stbi_io_callbacks io;
   void *io_user_data;

   int read_from_callbacks;
   int buflen;
760
   stbi_uc buffer_start[128];
761

762
   stbi_uc *img_buffer, *img_buffer_end;
763
   stbi_uc *img_buffer_original, *img_buffer_original_end;
S
Sean Barrett 已提交
764
} stbi__context;
765 766


S
Sean Barrett 已提交
767
static void stbi__refill_buffer(stbi__context *s);
768

769
// initialize a memory-decode context
770
static void stbi__start_mem(stbi__context *s, stbi_uc const *buffer, int len)
771 772 773
{
   s->io.read = NULL;
   s->read_from_callbacks = 0;
774
   s->img_buffer = s->img_buffer_original = (stbi_uc *) buffer;
775
   s->img_buffer_end = s->img_buffer_original_end = (stbi_uc *) buffer+len;
776 777 778
}

// initialize a callback-based context
S
Sean Barrett 已提交
779
static void stbi__start_callbacks(stbi__context *s, stbi_io_callbacks *c, void *user)
780 781 782 783 784 785
{
   s->io = *c;
   s->io_user_data = user;
   s->buflen = sizeof(s->buffer_start);
   s->read_from_callbacks = 1;
   s->img_buffer_original = s->buffer_start;
S
Sean Barrett 已提交
786
   stbi__refill_buffer(s);
787
   s->img_buffer_original_end = s->img_buffer_end;
788 789 790 791
}

#ifndef STBI_NO_STDIO

792
static int stbi__stdio_read(void *user, char *data, int size)
793 794 795 796
{
   return (int) fread(data,1,size,(FILE*) user);
}

797
static void stbi__stdio_skip(void *user, int n)
798 799 800 801
{
   fseek((FILE*) user, n, SEEK_CUR);
}

802
static int stbi__stdio_eof(void *user)
803 804 805 806
{
   return feof((FILE*) user);
}

807
static stbi_io_callbacks stbi__stdio_callbacks =
808
{
809 810 811
   stbi__stdio_read,
   stbi__stdio_skip,
   stbi__stdio_eof,
812 813
};

814
static void stbi__start_file(stbi__context *s, FILE *f)
815
{
816
   stbi__start_callbacks(s, &stbi__stdio_callbacks, (void *) f);
817 818
}

S
Sean Barrett 已提交
819
//static void stop_file(stbi__context *s) { }
820 821 822

#endif // !STBI_NO_STDIO

823
static void stbi__rewind(stbi__context *s)
824 825 826 827 828
{
   // conceptually rewind SHOULD rewind to the beginning of the stream,
   // but we just rewind to the beginning of the initial buffer, because
   // we only use it after doing 'test', which only ever looks at at most 92 bytes
   s->img_buffer = s->img_buffer_original;
829
   s->img_buffer_end = s->img_buffer_original_end;
830 831
}

832
#ifndef STBI_NO_JPEG
S
Sean Barrett 已提交
833 834 835
static int      stbi__jpeg_test(stbi__context *s);
static stbi_uc *stbi__jpeg_load(stbi__context *s, int *x, int *y, int *comp, int req_comp);
static int      stbi__jpeg_info(stbi__context *s, int *x, int *y, int *comp);
836 837 838
#endif

#ifndef STBI_NO_PNG
S
Sean Barrett 已提交
839 840 841
static int      stbi__png_test(stbi__context *s);
static stbi_uc *stbi__png_load(stbi__context *s, int *x, int *y, int *comp, int req_comp);
static int      stbi__png_info(stbi__context *s, int *x, int *y, int *comp);
842 843 844
#endif

#ifndef STBI_NO_BMP
S
Sean Barrett 已提交
845 846
static int      stbi__bmp_test(stbi__context *s);
static stbi_uc *stbi__bmp_load(stbi__context *s, int *x, int *y, int *comp, int req_comp);
847 848 849 850
static int      stbi__bmp_info(stbi__context *s, int *x, int *y, int *comp);
#endif

#ifndef STBI_NO_TGA
S
Sean Barrett 已提交
851 852 853
static int      stbi__tga_test(stbi__context *s);
static stbi_uc *stbi__tga_load(stbi__context *s, int *x, int *y, int *comp, int req_comp);
static int      stbi__tga_info(stbi__context *s, int *x, int *y, int *comp);
854 855 856
#endif

#ifndef STBI_NO_PSD
S
Sean Barrett 已提交
857 858
static int      stbi__psd_test(stbi__context *s);
static stbi_uc *stbi__psd_load(stbi__context *s, int *x, int *y, int *comp, int req_comp);
859 860 861
static int      stbi__psd_info(stbi__context *s, int *x, int *y, int *comp);
#endif

862
#ifndef STBI_NO_HDR
S
Sean Barrett 已提交
863 864
static int      stbi__hdr_test(stbi__context *s);
static float   *stbi__hdr_load(stbi__context *s, int *x, int *y, int *comp, int req_comp);
865
static int      stbi__hdr_info(stbi__context *s, int *x, int *y, int *comp);
866
#endif
867 868

#ifndef STBI_NO_PIC
S
Sean Barrett 已提交
869 870
static int      stbi__pic_test(stbi__context *s);
static stbi_uc *stbi__pic_load(stbi__context *s, int *x, int *y, int *comp, int req_comp);
871 872 873 874
static int      stbi__pic_info(stbi__context *s, int *x, int *y, int *comp);
#endif

#ifndef STBI_NO_GIF
S
Sean Barrett 已提交
875 876 877
static int      stbi__gif_test(stbi__context *s);
static stbi_uc *stbi__gif_load(stbi__context *s, int *x, int *y, int *comp, int req_comp);
static int      stbi__gif_info(stbi__context *s, int *x, int *y, int *comp);
878 879 880
#endif

#ifndef STBI_NO_PNM
K
Ken Miller 已提交
881 882 883
static int      stbi__pnm_test(stbi__context *s);
static stbi_uc *stbi__pnm_load(stbi__context *s, int *x, int *y, int *comp, int req_comp);
static int      stbi__pnm_info(stbi__context *s, int *x, int *y, int *comp);
884
#endif
885 886

// this is not threadsafe
887
static const char *stbi__g_failure_reason;
888 889 890

STBIDEF const char *stbi_failure_reason(void)
{
891
   return stbi__g_failure_reason;
892 893
}

S
Sean Barrett 已提交
894
static int stbi__err(const char *str)
895
{
896
   stbi__g_failure_reason = str;
897 898 899
   return 0;
}

900 901
static void *stbi__malloc(size_t size)
{
S
Sean Barrett 已提交
902
    return STBI_MALLOC(size);
903 904
}

S
Sean Barrett 已提交
905 906 907
// stbi__err - error
// stbi__errpf - error returning pointer to float
// stbi__errpuc - error returning pointer to unsigned char
908 909

#ifdef STBI_NO_FAILURE_STRINGS
S
Sean Barrett 已提交
910
   #define stbi__err(x,y)  0
911
#elif defined(STBI_FAILURE_USERMSG)
S
Sean Barrett 已提交
912
   #define stbi__err(x,y)  stbi__err(y)
913
#else
S
Sean Barrett 已提交
914
   #define stbi__err(x,y)  stbi__err(x)
915 916
#endif

917 918
#define stbi__errpf(x,y)   ((float *)(size_t) (stbi__err(x,y)?NULL:NULL))
#define stbi__errpuc(x,y)  ((unsigned char *)(size_t) (stbi__err(x,y)?NULL:NULL))
919 920 921

STBIDEF void stbi_image_free(void *retval_from_stbi_load)
{
S
Sean Barrett 已提交
922
   STBI_FREE(retval_from_stbi_load);
923 924
}

925
#ifndef STBI_NO_LINEAR
926
static float   *stbi__ldr_to_hdr(stbi_uc *data, int x, int y, int comp);
927 928 929
#endif

#ifndef STBI_NO_HDR
930
static stbi_uc *stbi__hdr_to_ldr(float   *data, int x, int y, int comp);
931 932
#endif

933 934
static int stbi__vertically_flip_on_load = 0;

935
STBIDEF void stbi_set_flip_vertically_on_load(int flag_true_if_should_flip)
936 937 938 939
{
    stbi__vertically_flip_on_load = flag_true_if_should_flip;
}

940
static unsigned char *stbi__load_main(stbi__context *s, int *x, int *y, int *comp, int req_comp)
941
{
942
   #ifndef STBI_NO_JPEG
943
   if (stbi__jpeg_test(s)) return stbi__jpeg_load(s,x,y,comp,req_comp);
944 945
   #endif
   #ifndef STBI_NO_PNG
946
   if (stbi__png_test(s))  return stbi__png_load(s,x,y,comp,req_comp);
947 948
   #endif
   #ifndef STBI_NO_BMP
949
   if (stbi__bmp_test(s))  return stbi__bmp_load(s,x,y,comp,req_comp);
950 951
   #endif
   #ifndef STBI_NO_GIF
952
   if (stbi__gif_test(s))  return stbi__gif_load(s,x,y,comp,req_comp);
953 954
   #endif
   #ifndef STBI_NO_PSD
955
   if (stbi__psd_test(s))  return stbi__psd_load(s,x,y,comp,req_comp);
956 957
   #endif
   #ifndef STBI_NO_PIC
958
   if (stbi__pic_test(s))  return stbi__pic_load(s,x,y,comp,req_comp);
959 960
   #endif
   #ifndef STBI_NO_PNM
961
   if (stbi__pnm_test(s))  return stbi__pnm_load(s,x,y,comp,req_comp);
962
   #endif
963 964

   #ifndef STBI_NO_HDR
965
   if (stbi__hdr_test(s)) {
S
Sean Barrett 已提交
966
      float *hdr = stbi__hdr_load(s, x,y,comp,req_comp);
967
      return stbi__hdr_to_ldr(hdr, *x, *y, req_comp ? req_comp : *comp);
968 969 970
   }
   #endif

971
   #ifndef STBI_NO_TGA
972
   // test tga last because it's a crappy test!
973 974
   if (stbi__tga_test(s))
      return stbi__tga_load(s,x,y,comp,req_comp);
975 976
   #endif

977 978
   return stbi__errpuc("unknown image type", "Image not of any known type, or corrupt");
}
979

980 981 982 983 984 985
static unsigned char *stbi__load_flip(stbi__context *s, int *x, int *y, int *comp, int req_comp)
{
   unsigned char *result = stbi__load_main(s, x, y, comp, req_comp);

   if (stbi__vertically_flip_on_load && result != NULL) {
      int w = *x, h = *y;
986 987 988 989
      int depth = req_comp ? req_comp : *comp;
      int row,col,z;
      stbi_uc temp;

990 991 992
      // @OPTIMIZE: use a bigger temp buffer and memcpy multiple pixels at once
      for (row = 0; row < (h>>1); row++) {
         for (col = 0; col < w; col++) {
993
            for (z = 0; z < depth; z++) {
994 995 996
               temp = result[(row * w + col) * depth + z];
               result[(row * w + col) * depth + z] = result[((h - row - 1) * w + col) * depth + z];
               result[((h - row - 1) * w + col) * depth + z] = temp;
997 998 999 1000 1001 1002
            }
         }
      }
   }

   return result;
1003 1004
}

M
Michaelangel007 已提交
1005
#ifndef STBI_NO_HDR
1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025
static void stbi__float_postprocess(float *result, int *x, int *y, int *comp, int req_comp)
{
   if (stbi__vertically_flip_on_load && result != NULL) {
      int w = *x, h = *y;
      int depth = req_comp ? req_comp : *comp;
      int row,col,z;
      float temp;

      // @OPTIMIZE: use a bigger temp buffer and memcpy multiple pixels at once
      for (row = 0; row < (h>>1); row++) {
         for (col = 0; col < w; col++) {
            for (z = 0; z < depth; z++) {
               temp = result[(row * w + col) * depth + z];
               result[(row * w + col) * depth + z] = result[((h - row - 1) * w + col) * depth + z];
               result[((h - row - 1) * w + col) * depth + z] = temp;
            }
         }
      }
   }
}
M
Michaelangel007 已提交
1026
#endif
1027

1028
#ifndef STBI_NO_STDIO
S
Sean Barrett 已提交
1029

1030
static FILE *stbi__fopen(char const *filename, char const *mode)
S
Sean Barrett 已提交
1031 1032
{
   FILE *f;
1033
#if defined(_MSC_VER) && _MSC_VER >= 1400
1034
   if (0 != fopen_s(&f, filename, mode))
S
Sean Barrett 已提交
1035 1036
      f=0;
#else
1037
   f = fopen(filename, mode);
S
Sean Barrett 已提交
1038 1039 1040 1041 1042
#endif
   return f;
}


1043
STBIDEF stbi_uc *stbi_load(char const *filename, int *x, int *y, int *comp, int req_comp)
1044
{
S
Sean Barrett 已提交
1045
   FILE *f = stbi__fopen(filename, "rb");
1046
   unsigned char *result;
S
Sean Barrett 已提交
1047
   if (!f) return stbi__errpuc("can't fopen", "Unable to open file");
1048 1049 1050 1051 1052
   result = stbi_load_from_file(f,x,y,comp,req_comp);
   fclose(f);
   return result;
}

1053
STBIDEF stbi_uc *stbi_load_from_file(FILE *f, int *x, int *y, int *comp, int req_comp)
1054 1055
{
   unsigned char *result;
S
Sean Barrett 已提交
1056
   stbi__context s;
1057
   stbi__start_file(&s,f);
1058
   result = stbi__load_flip(&s,x,y,comp,req_comp);
1059 1060 1061 1062 1063 1064 1065 1066
   if (result) {
      // need to 'unget' all the characters in the IO buffer
      fseek(f, - (int) (s.img_buffer_end - s.img_buffer), SEEK_CUR);
   }
   return result;
}
#endif //!STBI_NO_STDIO

1067
STBIDEF stbi_uc *stbi_load_from_memory(stbi_uc const *buffer, int len, int *x, int *y, int *comp, int req_comp)
1068
{
S
Sean Barrett 已提交
1069 1070
   stbi__context s;
   stbi__start_mem(&s,buffer,len);
1071
   return stbi__load_flip(&s,x,y,comp,req_comp);
1072 1073
}

1074
STBIDEF stbi_uc *stbi_load_from_callbacks(stbi_io_callbacks const *clbk, void *user, int *x, int *y, int *comp, int req_comp)
1075
{
S
Sean Barrett 已提交
1076 1077
   stbi__context s;
   stbi__start_callbacks(&s, (stbi_io_callbacks *) clbk, user);
1078
   return stbi__load_flip(&s,x,y,comp,req_comp);
1079 1080
}

1081
#ifndef STBI_NO_LINEAR
1082
static float *stbi__loadf_main(stbi__context *s, int *x, int *y, int *comp, int req_comp)
1083 1084 1085
{
   unsigned char *data;
   #ifndef STBI_NO_HDR
1086 1087 1088 1089 1090 1091
   if (stbi__hdr_test(s)) {
      float *hdr_data = stbi__hdr_load(s,x,y,comp,req_comp);
      if (hdr_data)
         stbi__float_postprocess(hdr_data,x,y,comp,req_comp);
      return hdr_data;
   }
1092
   #endif
1093
   data = stbi__load_flip(s, x, y, comp, req_comp);
1094
   if (data)
1095
      return stbi__ldr_to_hdr(data, *x, *y, req_comp ? req_comp : *comp);
S
Sean Barrett 已提交
1096
   return stbi__errpf("unknown image type", "Image not of any known type, or corrupt");
1097 1098
}

1099
STBIDEF float *stbi_loadf_from_memory(stbi_uc const *buffer, int len, int *x, int *y, int *comp, int req_comp)
1100
{
S
Sean Barrett 已提交
1101 1102
   stbi__context s;
   stbi__start_mem(&s,buffer,len);
1103
   return stbi__loadf_main(&s,x,y,comp,req_comp);
1104 1105
}

1106
STBIDEF float *stbi_loadf_from_callbacks(stbi_io_callbacks const *clbk, void *user, int *x, int *y, int *comp, int req_comp)
1107
{
S
Sean Barrett 已提交
1108 1109
   stbi__context s;
   stbi__start_callbacks(&s, (stbi_io_callbacks *) clbk, user);
1110
   return stbi__loadf_main(&s,x,y,comp,req_comp);
1111 1112 1113
}

#ifndef STBI_NO_STDIO
1114
STBIDEF float *stbi_loadf(char const *filename, int *x, int *y, int *comp, int req_comp)
1115 1116
{
   float *result;
S
Sean Barrett 已提交
1117
   FILE *f = stbi__fopen(filename, "rb");
S
Sean Barrett 已提交
1118
   if (!f) return stbi__errpf("can't fopen", "Unable to open file");
1119 1120 1121 1122 1123
   result = stbi_loadf_from_file(f,x,y,comp,req_comp);
   fclose(f);
   return result;
}

1124
STBIDEF float *stbi_loadf_from_file(FILE *f, int *x, int *y, int *comp, int req_comp)
1125
{
S
Sean Barrett 已提交
1126
   stbi__context s;
1127
   stbi__start_file(&s,f);
1128
   return stbi__loadf_main(&s,x,y,comp,req_comp);
1129 1130 1131
}
#endif // !STBI_NO_STDIO

1132
#endif // !STBI_NO_LINEAR
1133

1134 1135
// these is-hdr-or-not is defined independent of whether STBI_NO_LINEAR is
// defined, for API simplicity; if STBI_NO_LINEAR is defined, it always
1136 1137
// reports false!

1138
STBIDEF int stbi_is_hdr_from_memory(stbi_uc const *buffer, int len)
1139 1140
{
   #ifndef STBI_NO_HDR
S
Sean Barrett 已提交
1141 1142 1143
   stbi__context s;
   stbi__start_mem(&s,buffer,len);
   return stbi__hdr_test(&s);
1144 1145 1146 1147 1148 1149 1150 1151 1152 1153
   #else
   STBI_NOTUSED(buffer);
   STBI_NOTUSED(len);
   return 0;
   #endif
}

#ifndef STBI_NO_STDIO
STBIDEF int      stbi_is_hdr          (char const *filename)
{
S
Sean Barrett 已提交
1154
   FILE *f = stbi__fopen(filename, "rb");
1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165
   int result=0;
   if (f) {
      result = stbi_is_hdr_from_file(f);
      fclose(f);
   }
   return result;
}

STBIDEF int      stbi_is_hdr_from_file(FILE *f)
{
   #ifndef STBI_NO_HDR
S
Sean Barrett 已提交
1166
   stbi__context s;
1167
   stbi__start_file(&s,f);
S
Sean Barrett 已提交
1168
   return stbi__hdr_test(&s);
1169
   #else
1170
   STBI_NOTUSED(f);
1171 1172 1173 1174 1175 1176 1177 1178
   return 0;
   #endif
}
#endif // !STBI_NO_STDIO

STBIDEF int      stbi_is_hdr_from_callbacks(stbi_io_callbacks const *clbk, void *user)
{
   #ifndef STBI_NO_HDR
S
Sean Barrett 已提交
1179 1180 1181
   stbi__context s;
   stbi__start_callbacks(&s, (stbi_io_callbacks *) clbk, user);
   return stbi__hdr_test(&s);
1182
   #else
1183 1184
   STBI_NOTUSED(clbk);
   STBI_NOTUSED(user);
1185 1186 1187 1188
   return 0;
   #endif
}

1189 1190
static float stbi__h2l_gamma_i=1.0f/2.2f, stbi__h2l_scale_i=1.0f;
static float stbi__l2h_gamma=2.2f, stbi__l2h_scale=1.0f;
1191

1192
#ifndef STBI_NO_LINEAR
1193 1194
STBIDEF void   stbi_ldr_to_hdr_gamma(float gamma) { stbi__l2h_gamma = gamma; }
STBIDEF void   stbi_ldr_to_hdr_scale(float scale) { stbi__l2h_scale = scale; }
1195 1196
#endif

1197 1198 1199
STBIDEF void   stbi_hdr_to_ldr_gamma(float gamma) { stbi__h2l_gamma_i = 1/gamma; }
STBIDEF void   stbi_hdr_to_ldr_scale(float scale) { stbi__h2l_scale_i = 1/scale; }

1200 1201 1202 1203 1204 1205 1206 1207

//////////////////////////////////////////////////////////////////////////////
//
// Common code used by all image loaders
//

enum
{
1208 1209 1210
   STBI__SCAN_load=0,
   STBI__SCAN_type,
   STBI__SCAN_header
1211 1212
};

S
Sean Barrett 已提交
1213
static void stbi__refill_buffer(stbi__context *s)
1214 1215 1216 1217
{
   int n = (s->io.read)(s->io_user_data,(char*)s->buffer_start,s->buflen);
   if (n == 0) {
      // at end of file, treat same as if from memory, but need to handle case
T
Tero Hänninen 已提交
1218
      // where s->img_buffer isn't pointing to safe memory, e.g. 0-byte file
1219 1220 1221 1222 1223 1224 1225 1226 1227 1228
      s->read_from_callbacks = 0;
      s->img_buffer = s->buffer_start;
      s->img_buffer_end = s->buffer_start+1;
      *s->img_buffer = 0;
   } else {
      s->img_buffer = s->buffer_start;
      s->img_buffer_end = s->buffer_start + n;
   }
}

1229
stbi_inline static stbi_uc stbi__get8(stbi__context *s)
1230 1231 1232 1233
{
   if (s->img_buffer < s->img_buffer_end)
      return *s->img_buffer++;
   if (s->read_from_callbacks) {
S
Sean Barrett 已提交
1234
      stbi__refill_buffer(s);
1235 1236 1237 1238 1239
      return *s->img_buffer++;
   }
   return 0;
}

1240
stbi_inline static int stbi__at_eof(stbi__context *s)
1241 1242 1243 1244 1245 1246 1247 1248
{
   if (s->io.read) {
      if (!(s->io.eof)(s->io_user_data)) return 0;
      // if feof() is true, check if buffer = end
      // special case: we've only got the special 0 character at the end
      if (s->read_from_callbacks == 0) return 1;
   }

S
Sean Barrett 已提交
1249
   return s->img_buffer >= s->img_buffer_end;
1250 1251
}

1252
static void stbi__skip(stbi__context *s, int n)
1253
{
1254 1255 1256 1257
   if (n < 0) {
      s->img_buffer = s->img_buffer_end;
      return;
   }
1258 1259 1260 1261
   if (s->io.read) {
      int blen = (int) (s->img_buffer_end - s->img_buffer);
      if (blen < n) {
         s->img_buffer = s->img_buffer_end;
S
Sean Barrett 已提交
1262
         (s->io.skip)(s->io_user_data, n - blen);
1263 1264 1265 1266 1267 1268
         return;
      }
   }
   s->img_buffer += n;
}

1269
static int stbi__getn(stbi__context *s, stbi_uc *buffer, int n)
1270 1271 1272 1273 1274 1275 1276
{
   if (s->io.read) {
      int blen = (int) (s->img_buffer_end - s->img_buffer);
      if (blen < n) {
         int res, count;

         memcpy(buffer, s->img_buffer, blen);
S
Sean Barrett 已提交
1277

1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292
         count = (s->io.read)(s->io_user_data, (char*) buffer + blen, n - blen);
         res = (count == (n-blen));
         s->img_buffer = s->img_buffer_end;
         return res;
      }
   }

   if (s->img_buffer+n <= s->img_buffer_end) {
      memcpy(buffer, s->img_buffer, n);
      s->img_buffer += n;
      return 1;
   } else
      return 0;
}

1293
static int stbi__get16be(stbi__context *s)
1294
{
1295 1296
   int z = stbi__get8(s);
   return (z << 8) + stbi__get8(s);
1297 1298
}

1299
static stbi__uint32 stbi__get32be(stbi__context *s)
1300
{
1301 1302
   stbi__uint32 z = stbi__get16be(s);
   return (z << 16) + stbi__get16be(s);
1303 1304
}

1305 1306
#if defined(STBI_NO_BMP) && defined(STBI_NO_TGA) && defined(STBI_NO_GIF)
// nothing
M
Michaelangel007 已提交
1307
#else
1308
static int stbi__get16le(stbi__context *s)
1309
{
1310 1311
   int z = stbi__get8(s);
   return z + (stbi__get8(s) << 8);
1312
}
M
Michaelangel007 已提交
1313
#endif
1314

M
Michaelangel007 已提交
1315
#ifndef STBI_NO_BMP
1316
static stbi__uint32 stbi__get32le(stbi__context *s)
1317
{
1318 1319
   stbi__uint32 z = stbi__get16le(s);
   return z + (stbi__get16le(s) << 16);
1320
}
M
Michaelangel007 已提交
1321
#endif
1322

1323 1324 1325
#define STBI__BYTECAST(x)  ((stbi_uc) ((x) & 255))  // truncate int to byte without warnings


1326 1327 1328
//////////////////////////////////////////////////////////////////////////////
//
//  generic converter from built-in img_n to req_comp
T
Tero Hänninen 已提交
1329
//    individual types do this automatically as much as possible (e.g. jpeg
1330 1331 1332 1333 1334 1335 1336
//    does all cases internally since it needs to colorspace convert anyway,
//    and it never has alpha, so very few cases ). png can automatically
//    interleave an alpha=255 channel, but falls back to this for other cases
//
//  assume data buffer is malloced, so malloc a new one and free that one
//  only failure mode is malloc failing

1337
static stbi_uc stbi__compute_y(int r, int g, int b)
1338
{
1339
   return (stbi_uc) (((r*77) + (g*150) +  (29*b)) >> 8);
1340 1341
}

1342
static unsigned char *stbi__convert_format(unsigned char *data, int img_n, int req_comp, unsigned int x, unsigned int y)
1343 1344 1345 1346 1347
{
   int i,j;
   unsigned char *good;

   if (req_comp == img_n) return data;
S
Sean Barrett 已提交
1348
   STBI_ASSERT(req_comp >= 1 && req_comp <= 4);
1349

1350
   good = (unsigned char *) stbi__malloc(req_comp * x * y);
1351
   if (good == NULL) {
S
Sean Barrett 已提交
1352
      STBI_FREE(data);
S
Sean Barrett 已提交
1353
      return stbi__errpuc("outofmem", "Out of memory");
1354 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371
   }

   for (j=0; j < (int) y; ++j) {
      unsigned char *src  = data + j * x * img_n   ;
      unsigned char *dest = good + j * x * req_comp;

      #define COMBO(a,b)  ((a)*8+(b))
      #define CASE(a,b)   case COMBO(a,b): for(i=x-1; i >= 0; --i, src += a, dest += b)
      // convert source image with img_n components to one with req_comp components;
      // avoid switch per pixel, so use switch per scanline and massive macros
      switch (COMBO(img_n, req_comp)) {
         CASE(1,2) dest[0]=src[0], dest[1]=255; break;
         CASE(1,3) dest[0]=dest[1]=dest[2]=src[0]; break;
         CASE(1,4) dest[0]=dest[1]=dest[2]=src[0], dest[3]=255; break;
         CASE(2,1) dest[0]=src[0]; break;
         CASE(2,3) dest[0]=dest[1]=dest[2]=src[0]; break;
         CASE(2,4) dest[0]=dest[1]=dest[2]=src[0], dest[3]=src[1]; break;
         CASE(3,4) dest[0]=src[0],dest[1]=src[1],dest[2]=src[2],dest[3]=255; break;
1372 1373 1374 1375
         CASE(3,1) dest[0]=stbi__compute_y(src[0],src[1],src[2]); break;
         CASE(3,2) dest[0]=stbi__compute_y(src[0],src[1],src[2]), dest[1] = 255; break;
         CASE(4,1) dest[0]=stbi__compute_y(src[0],src[1],src[2]); break;
         CASE(4,2) dest[0]=stbi__compute_y(src[0],src[1],src[2]), dest[1] = src[3]; break;
1376
         CASE(4,3) dest[0]=src[0],dest[1]=src[1],dest[2]=src[2]; break;
S
Sean Barrett 已提交
1377
         default: STBI_ASSERT(0);
1378 1379 1380 1381
      }
      #undef CASE
   }

S
Sean Barrett 已提交
1382
   STBI_FREE(data);
1383 1384 1385
   return good;
}

1386
#ifndef STBI_NO_LINEAR
1387
static float   *stbi__ldr_to_hdr(stbi_uc *data, int x, int y, int comp)
1388 1389
{
   int i,k,n;
1390
   float *output = (float *) stbi__malloc(x * y * comp * sizeof(float));
S
Sean Barrett 已提交
1391
   if (output == NULL) { STBI_FREE(data); return stbi__errpf("outofmem", "Out of memory"); }
1392 1393 1394 1395
   // compute number of non-alpha components
   if (comp & 1) n = comp; else n = comp-1;
   for (i=0; i < x*y; ++i) {
      for (k=0; k < n; ++k) {
1396
         output[i*comp + k] = (float) (pow(data[i*comp+k]/255.0f, stbi__l2h_gamma) * stbi__l2h_scale);
1397 1398 1399
      }
      if (k < comp) output[i*comp + k] = data[i*comp+k]/255.0f;
   }
S
Sean Barrett 已提交
1400
   STBI_FREE(data);
1401 1402
   return output;
}
1403
#endif
1404

1405
#ifndef STBI_NO_HDR
1406 1407
#define stbi__float2int(x)   ((int) (x))
static stbi_uc *stbi__hdr_to_ldr(float   *data, int x, int y, int comp)
1408 1409
{
   int i,k,n;
1410
   stbi_uc *output = (stbi_uc *) stbi__malloc(x * y * comp);
S
Sean Barrett 已提交
1411
   if (output == NULL) { STBI_FREE(data); return stbi__errpuc("outofmem", "Out of memory"); }
1412 1413 1414 1415
   // compute number of non-alpha components
   if (comp & 1) n = comp; else n = comp-1;
   for (i=0; i < x*y; ++i) {
      for (k=0; k < n; ++k) {
1416
         float z = (float) pow(data[i*comp+k]*stbi__h2l_scale_i, stbi__h2l_gamma_i) * 255 + 0.5f;
1417 1418
         if (z < 0) z = 0;
         if (z > 255) z = 255;
1419
         output[i*comp + k] = (stbi_uc) stbi__float2int(z);
1420 1421 1422 1423 1424
      }
      if (k < comp) {
         float z = data[i*comp+k] * 255 + 0.5f;
         if (z < 0) z = 0;
         if (z > 255) z = 255;
1425
         output[i*comp + k] = (stbi_uc) stbi__float2int(z);
1426 1427
      }
   }
S
Sean Barrett 已提交
1428
   STBI_FREE(data);
1429 1430 1431 1432 1433 1434
   return output;
}
#endif

//////////////////////////////////////////////////////////////////////////////
//
F
Fabian Giesen 已提交
1435
//  "baseline" JPEG/JFIF decoder
1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450
//
//    simple implementation
//      - doesn't support delayed output of y-dimension
//      - simple interface (only one output format: 8-bit interleaved RGB)
//      - doesn't try to recover corrupt jpegs
//      - doesn't allow partial loading, loading multiple at once
//      - still fast on x86 (copying globals into locals doesn't help x86)
//      - allocates lots of intermediate memory (full size of all components)
//        - non-interleaved case requires this anyway
//        - allows good upsampling (see next)
//    high-quality
//      - upsampled channels are bilinearly interpolated, even across blocks
//      - quality integer IDCT derived from IJG's 'slow'
//    performance
//      - fast huffman; reasonable integer IDCT
F
Fabian Giesen 已提交
1451
//      - some SIMD kernels for common paths on targets with SSE2/NEON
1452 1453
//      - uses a lot of intermediate memory, could cache poorly

1454 1455
#ifndef STBI_NO_JPEG

1456 1457 1458 1459 1460
// huffman decoding acceleration
#define FAST_BITS   9  // larger handles more cases; smaller stomps less cache

typedef struct
{
1461
   stbi_uc  fast[1 << FAST_BITS];
1462 1463
   // weirdly, repacking this into AoS is a 10% speed loss, instead of a win
   stbi__uint16 code[256];
1464 1465
   stbi_uc  values[256];
   stbi_uc  size[257];
1466 1467
   unsigned int maxcode[18];
   int    delta[17];   // old 'firstsymbol' - old 'firstcode'
1468
} stbi__huffman;
1469 1470 1471

typedef struct
{
S
Sean Barrett 已提交
1472
   stbi__context *s;
1473 1474
   stbi__huffman huff_dc[4];
   stbi__huffman huff_ac[4];
1475
   stbi_uc dequant[4][64];
1476
   stbi__int16 fast_ac[4][1 << FAST_BITS];
1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492

// sizes for components, interleaved MCUs
   int img_h_max, img_v_max;
   int img_mcu_x, img_mcu_y;
   int img_mcu_w, img_mcu_h;

// definition of jpeg image component
   struct
   {
      int id;
      int h,v;
      int tq;
      int hd,ha;
      int dc_pred;

      int x,y,w2,h2;
1493
      stbi_uc *data;
S
Sean Barrett 已提交
1494
      void *raw_data, *raw_coeff;
1495
      stbi_uc *linebuf;
S
Sean Barrett 已提交
1496 1497
      short   *coeff;   // progressive only
      int      coeff_w, coeff_h; // number of 8x8 coefficient blocks
1498 1499
   } img_comp[4];

S
Sean Barrett 已提交
1500
   stbi__uint32   code_buffer; // jpeg entropy-coded buffer
1501 1502 1503 1504
   int            code_bits;   // number of valid bits
   unsigned char  marker;      // marker seen while filling entropy buffer
   int            nomore;      // flag if we saw a marker so must stop

S
Sean Barrett 已提交
1505 1506 1507 1508 1509 1510 1511
   int            progressive;
   int            spec_start;
   int            spec_end;
   int            succ_high;
   int            succ_low;
   int            eob_run;

1512 1513
   int scan_n, order[4];
   int restart_interval, todo;
1514 1515 1516

// kernels
   void (*idct_block_kernel)(stbi_uc *out, int out_stride, short data[64]);
F
Fabian Giesen 已提交
1517
   void (*YCbCr_to_RGB_kernel)(stbi_uc *out, const stbi_uc *y, const stbi_uc *pcb, const stbi_uc *pcr, int count, int step);
1518
   stbi_uc *(*resample_row_hv_2_kernel)(stbi_uc *out, stbi_uc *in_near, stbi_uc *in_far, int w, int hs);
1519
} stbi__jpeg;
1520

1521
static int stbi__build_huffman(stbi__huffman *h, int *count)
1522 1523 1524 1525 1526
{
   int i,j,k=0,code;
   // build size list for each symbol (from JPEG spec)
   for (i=0; i < 16; ++i)
      for (j=0; j < count[i]; ++j)
1527
         h->size[k++] = (stbi_uc) (i+1);
1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538
   h->size[k] = 0;

   // compute actual symbols (from jpeg spec)
   code = 0;
   k = 0;
   for(j=1; j <= 16; ++j) {
      // compute delta to add to code to compute symbol id
      h->delta[j] = k - code;
      if (h->size[k] == j) {
         while (h->size[k] == j)
            h->code[k++] = (stbi__uint16) (code++);
S
Sean Barrett 已提交
1539
         if (code-1 >= (1 << j)) return stbi__err("bad code lengths","Corrupt JPEG");
1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 1553 1554
      }
      // compute largest code + 1 for this size, preshifted as needed later
      h->maxcode[j] = code << (16-j);
      code <<= 1;
   }
   h->maxcode[j] = 0xffffffff;

   // build non-spec acceleration table; 255 is flag for not-accelerated
   memset(h->fast, 255, 1 << FAST_BITS);
   for (i=0; i < k; ++i) {
      int s = h->size[i];
      if (s <= FAST_BITS) {
         int c = h->code[i] << (FAST_BITS-s);
         int m = 1 << (FAST_BITS-s);
         for (j=0; j < m; ++j) {
1555
            h->fast[c+j] = (stbi_uc) i;
1556 1557 1558 1559 1560 1561
         }
      }
   }
   return 1;
}

1562 1563 1564 1565 1566 1567 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 1584 1585 1586 1587 1588
// build a table that decodes both magnitude and value of small ACs in
// one go.
static void stbi__build_fast_ac(stbi__int16 *fast_ac, stbi__huffman *h)
{
   int i;
   for (i=0; i < (1 << FAST_BITS); ++i) {
      stbi_uc fast = h->fast[i];
      fast_ac[i] = 0;
      if (fast < 255) {
         int rs = h->values[fast];
         int run = (rs >> 4) & 15;
         int magbits = rs & 15;
         int len = h->size[fast];

         if (magbits && len + magbits <= FAST_BITS) {
            // magnitude code followed by receive_extend code
            int k = ((i << len) & ((1 << FAST_BITS) - 1)) >> (FAST_BITS - magbits);
            int m = 1 << (magbits - 1);
            if (k < m) k += (-1 << magbits) + 1;
            // if the result is small enough, we can fit it in fast_ac table
            if (k >= -128 && k <= 127)
               fast_ac[i] = (stbi__int16) ((k << 8) + (run << 4) + (len + magbits));
         }
      }
   }
}

1589
static void stbi__grow_buffer_unsafe(stbi__jpeg *j)
1590 1591
{
   do {
1592
      int b = j->nomore ? 0 : stbi__get8(j->s);
1593
      if (b == 0xff) {
1594
         int c = stbi__get8(j->s);
1595 1596 1597 1598 1599 1600 1601 1602 1603 1604 1605 1606
         if (c != 0) {
            j->marker = (unsigned char) c;
            j->nomore = 1;
            return;
         }
      }
      j->code_buffer |= b << (24 - j->code_bits);
      j->code_bits += 8;
   } while (j->code_bits <= 24);
}

// (1 << n) - 1
1607
static stbi__uint32 stbi__bmask[17]={0,1,3,7,15,31,63,127,255,511,1023,2047,4095,8191,16383,32767,65535};
1608

1609
// decode a jpeg huffman value from the bitstream
1610
stbi_inline static int stbi__jpeg_huff_decode(stbi__jpeg *j, stbi__huffman *h)
1611 1612 1613 1614
{
   unsigned int temp;
   int c,k;

1615
   if (j->code_bits < 16) stbi__grow_buffer_unsafe(j);
1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 1648 1649

   // look at the top FAST_BITS and determine what symbol ID it is,
   // if the code is <= FAST_BITS
   c = (j->code_buffer >> (32 - FAST_BITS)) & ((1 << FAST_BITS)-1);
   k = h->fast[c];
   if (k < 255) {
      int s = h->size[k];
      if (s > j->code_bits)
         return -1;
      j->code_buffer <<= s;
      j->code_bits -= s;
      return h->values[k];
   }

   // naive test is to shift the code_buffer down so k bits are
   // valid, then test against maxcode. To speed this up, we've
   // preshifted maxcode left so that it has (16-k) 0s at the
   // end; in other words, regardless of the number of bits, it
   // wants to be compared against something shifted to have 16;
   // that way we don't need to shift inside the loop.
   temp = j->code_buffer >> 16;
   for (k=FAST_BITS+1 ; ; ++k)
      if (temp < h->maxcode[k])
         break;
   if (k == 17) {
      // error! code not found
      j->code_bits -= 16;
      return -1;
   }

   if (k > j->code_bits)
      return -1;

   // convert the huffman code to the symbol id
1650
   c = ((j->code_buffer >> (32 - k)) & stbi__bmask[k]) + h->delta[k];
S
Sean Barrett 已提交
1651
   STBI_ASSERT((((j->code_buffer) >> (32 - h->size[c])) & stbi__bmask[h->size[c]]) == h->code[c]);
1652 1653 1654 1655 1656 1657 1658

   // convert the id to a symbol
   j->code_bits -= k;
   j->code_buffer <<= k;
   return h->values[c];
}

1659 1660 1661
// bias[n] = (-1<<n) + 1
static int const stbi__jbias[16] = {0,-1,-3,-7,-15,-31,-63,-127,-255,-511,-1023,-2047,-4095,-8191,-16383,-32767};

1662 1663
// combined JPEG 'receive' and JPEG 'extend', since baseline
// always extends everything it receives.
1664
stbi_inline static int stbi__extend_receive(stbi__jpeg *j, int n)
1665 1666
{
   unsigned int k;
1667
   int sgn;
1668
   if (j->code_bits < n) stbi__grow_buffer_unsafe(j);
1669

1670
   sgn = (stbi__int32)j->code_buffer >> 31; // sign bit is always in MSB
1671
   k = stbi_lrot(j->code_buffer, n);
1672
   STBI_ASSERT(n >= 0 && n < (int) (sizeof(stbi__bmask)/sizeof(*stbi__bmask)));
1673 1674
   j->code_buffer = k & ~stbi__bmask[n];
   k &= stbi__bmask[n];
1675
   j->code_bits -= n;
1676
   return k + (stbi__jbias[n] & ~sgn);
1677 1678
}

S
Sean Barrett 已提交
1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 1694 1695 1696 1697 1698 1699 1700
// get some unsigned bits
stbi_inline static int stbi__jpeg_get_bits(stbi__jpeg *j, int n)
{
   unsigned int k;
   if (j->code_bits < n) stbi__grow_buffer_unsafe(j);
   k = stbi_lrot(j->code_buffer, n);
   j->code_buffer = k & ~stbi__bmask[n];
   k &= stbi__bmask[n];
   j->code_bits -= n;
   return k;
}

stbi_inline static int stbi__jpeg_get_bit(stbi__jpeg *j)
{
   unsigned int k;
   if (j->code_bits < 1) stbi__grow_buffer_unsafe(j);
   k = j->code_buffer;
   j->code_buffer <<= 1;
   --j->code_bits;
   return k & 0x80000000;
}

1701 1702
// given a value that's at position X in the zigzag stream,
// where does it appear in the 8x8 matrix coded as row-major?
1703
static stbi_uc stbi__jpeg_dezigzag[64+15] =
1704 1705 1706 1707 1708 1709 1710 1711 1712 1713 1714 1715 1716 1717
{
    0,  1,  8, 16,  9,  2,  3, 10,
   17, 24, 32, 25, 18, 11,  4,  5,
   12, 19, 26, 33, 40, 48, 41, 34,
   27, 20, 13,  6,  7, 14, 21, 28,
   35, 42, 49, 56, 57, 50, 43, 36,
   29, 22, 15, 23, 30, 37, 44, 51,
   58, 59, 52, 45, 38, 31, 39, 46,
   53, 60, 61, 54, 47, 55, 62, 63,
   // let corrupt input sample past end
   63, 63, 63, 63, 63, 63, 63, 63,
   63, 63, 63, 63, 63, 63, 63
};

1718
// decode one 64-entry block--
1719
static int stbi__jpeg_decode_block(stbi__jpeg *j, short data[64], stbi__huffman *hdc, stbi__huffman *hac, stbi__int16 *fac, int b, stbi_uc *dequant)
1720 1721
{
   int diff,dc,k;
1722 1723 1724 1725
   int t;

   if (j->code_bits < 16) stbi__grow_buffer_unsafe(j);
   t = stbi__jpeg_huff_decode(j, hdc);
S
Sean Barrett 已提交
1726
   if (t < 0) return stbi__err("bad huffman code","Corrupt JPEG");
1727 1728 1729 1730

   // 0 all the ac values now so we can do it 32-bits at a time
   memset(data,0,64*sizeof(data[0]));

1731
   diff = t ? stbi__extend_receive(j, t) : 0;
1732 1733
   dc = j->img_comp[b].dc_pred + diff;
   j->img_comp[b].dc_pred = dc;
1734
   data[0] = (short) (dc * dequant[0]);
1735

1736
   // decode AC components, see JPEG spec
1737 1738
   k = 1;
   do {
1739
      unsigned int zig;
1740 1741 1742 1743 1744 1745 1746 1747 1748
      int c,r,s;
      if (j->code_bits < 16) stbi__grow_buffer_unsafe(j);
      c = (j->code_buffer >> (32 - FAST_BITS)) & ((1 << FAST_BITS)-1);
      r = fac[c];
      if (r) { // fast-AC path
         k += (r >> 4) & 15; // run
         s = r & 15; // combined length
         j->code_buffer <<= s;
         j->code_bits -= s;
1749
         // decode into unzigzag'd location
1750 1751
         zig = stbi__jpeg_dezigzag[k++];
         data[zig] = (short) ((r >> 8) * dequant[zig]);
1752 1753 1754 1755 1756 1757 1758 1759 1760 1761 1762
      } else {
         int rs = stbi__jpeg_huff_decode(j, hac);
         if (rs < 0) return stbi__err("bad huffman code","Corrupt JPEG");
         s = rs & 15;
         r = rs >> 4;
         if (s == 0) {
            if (rs != 0xf0) break; // end block
            k += 16;
         } else {
            k += r;
            // decode into unzigzag'd location
1763 1764
            zig = stbi__jpeg_dezigzag[k++];
            data[zig] = (short) (stbi__extend_receive(j,s) * dequant[zig]);
1765
         }
1766 1767 1768 1769 1770
      }
   } while (k < 64);
   return 1;
}

1771
static int stbi__jpeg_decode_block_prog_dc(stbi__jpeg *j, short data[64], stbi__huffman *hdc, int b)
S
Sean Barrett 已提交
1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786
{
   int diff,dc;
   int t;
   if (j->spec_end != 0) return stbi__err("can't merge dc and ac", "Corrupt JPEG");

   if (j->code_bits < 16) stbi__grow_buffer_unsafe(j);

   if (j->succ_high == 0) {
      // first scan for DC coefficient, must be first
      memset(data,0,64*sizeof(data[0])); // 0 all the ac values now
      t = stbi__jpeg_huff_decode(j, hdc);
      diff = t ? stbi__extend_receive(j, t) : 0;

      dc = j->img_comp[b].dc_pred + diff;
      j->img_comp[b].dc_pred = dc;
1787
      data[0] = (short) (dc << j->succ_low);
S
Sean Barrett 已提交
1788 1789 1790
   } else {
      // refinement scan for DC coefficient
      if (stbi__jpeg_get_bit(j))
1791
         data[0] += (short) (1 << j->succ_low);
S
Sean Barrett 已提交
1792 1793 1794 1795 1796 1797
   }
   return 1;
}

// @OPTIMIZE: store non-zigzagged during the decode passes,
// and only de-zigzag when dequantizing
1798
static int stbi__jpeg_decode_block_prog_ac(stbi__jpeg *j, short data[64], stbi__huffman *hac, stbi__int16 *fac)
S
Sean Barrett 已提交
1799 1800 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817
{
   int k;
   if (j->spec_start == 0) return stbi__err("can't merge dc and ac", "Corrupt JPEG");

   if (j->succ_high == 0) {
      int shift = j->succ_low;

      if (j->eob_run) {
         --j->eob_run;
         return 1;
      }

      k = j->spec_start;
      do {
         unsigned int zig;
         int c,r,s;
         if (j->code_bits < 16) stbi__grow_buffer_unsafe(j);
         c = (j->code_buffer >> (32 - FAST_BITS)) & ((1 << FAST_BITS)-1);
         r = fac[c];
1818
         if (r) { // fast-AC path
S
Sean Barrett 已提交
1819 1820 1821 1822 1823 1824 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 1843 1844 1845 1846 1847 1848
            k += (r >> 4) & 15; // run
            s = r & 15; // combined length
            j->code_buffer <<= s;
            j->code_bits -= s;
            zig = stbi__jpeg_dezigzag[k++];
            data[zig] = (short) ((r >> 8) << shift);
         } else {
            int rs = stbi__jpeg_huff_decode(j, hac);
            if (rs < 0) return stbi__err("bad huffman code","Corrupt JPEG");
            s = rs & 15;
            r = rs >> 4;
            if (s == 0) {
               if (r < 15) {
                  j->eob_run = (1 << r);
                  if (r)
                     j->eob_run += stbi__jpeg_get_bits(j, r);
                  --j->eob_run;
                  break;
               }
               k += 16;
            } else {
               k += r;
               zig = stbi__jpeg_dezigzag[k++];
               data[zig] = (short) (stbi__extend_receive(j,s) << shift);
            }
         }
      } while (k <= j->spec_end);
   } else {
      // refinement scan for these AC coefficients

1849
      short bit = (short) (1 << j->succ_low);
S
Sean Barrett 已提交
1850

1851 1852 1853 1854 1855 1856
      if (j->eob_run) {
         --j->eob_run;
         for (k = j->spec_start; k <= j->spec_end; ++k) {
            short *p = &data[stbi__jpeg_dezigzag[k]];
            if (*p != 0)
               if (stbi__jpeg_get_bit(j))
E
engin manap 已提交
1857
                  if ((*p & bit)==0) {
1858 1859 1860 1861
                     if (*p > 0)
                        *p += bit;
                     else
                        *p -= bit;
E
engin manap 已提交
1862
                  }
1863 1864 1865
         }
      } else {
         k = j->spec_start;
S
Sean Barrett 已提交
1866 1867
         do {
            int r,s;
1868
            int rs = stbi__jpeg_huff_decode(j, hac); // @OPTIMIZE see if we can use the fast path here, advance-by-r is so slow, eh
S
Sean Barrett 已提交
1869 1870 1871 1872 1873
            if (rs < 0) return stbi__err("bad huffman code","Corrupt JPEG");
            s = rs & 15;
            r = rs >> 4;
            if (s == 0) {
               if (r < 15) {
1874
                  j->eob_run = (1 << r) - 1;
S
Sean Barrett 已提交
1875 1876
                  if (r)
                     j->eob_run += stbi__jpeg_get_bits(j, r);
1877
                  r = 64; // force end of block
1878 1879 1880 1881
               } else {
                  // r=15 s=0 should write 16 0s, so we just do
                  // a run of 15 0s and then write s (which is 0),
                  // so we don't have to do anything special here
1882
               }
S
Sean Barrett 已提交
1883 1884 1885 1886 1887 1888 1889 1890 1891 1892 1893
            } else {
               if (s != 1) return stbi__err("bad huffman code", "Corrupt JPEG");
               // sign bit
               if (stbi__jpeg_get_bit(j))
                  s = bit;
               else
                  s = -bit;
            }

            // advance by r
            while (k <= j->spec_end) {
1894
               short *p = &data[stbi__jpeg_dezigzag[k++]];
S
Sean Barrett 已提交
1895
               if (*p != 0) {
1896
                  if (stbi__jpeg_get_bit(j))
E
engin manap 已提交
1897
                     if ((*p & bit)==0) {
S
Sean Barrett 已提交
1898 1899 1900 1901
                        if (*p > 0)
                           *p += bit;
                        else
                           *p -= bit;
E
engin manap 已提交
1902
                     }
S
Sean Barrett 已提交
1903
               } else {
1904
                  if (r == 0) {
1905
                     *p = (short) s;
S
Sean Barrett 已提交
1906
                     break;
1907
                  }
S
Sean Barrett 已提交
1908 1909 1910 1911 1912 1913 1914 1915 1916
                  --r;
               }
            }
         } while (k <= j->spec_end);
      }
   }
   return 1;
}

1917
// take a -128..127 value and stbi__clamp it and convert to 0..255
1918
stbi_inline static stbi_uc stbi__clamp(int x)
1919 1920 1921 1922 1923 1924
{
   // trick to use a single test to catch both cases
   if ((unsigned int) x > 255) {
      if (x < 0) return 0;
      if (x > 255) return 255;
   }
1925
   return (stbi_uc) x;
1926 1927
}

1928
#define stbi__f2f(x)  ((int) (((x) * 4096 + 0.5)))
1929
#define stbi__fsh(x)  ((x) << 12)
1930 1931

// derived from jidctint -- DCT_ISLOW
S
Sean Barrett 已提交
1932
#define STBI__IDCT_1D(s0,s1,s2,s3,s4,s5,s6,s7) \
1933 1934 1935
   int t0,t1,t2,t3,p1,p2,p3,p4,p5,x0,x1,x2,x3; \
   p2 = s2;                                    \
   p3 = s6;                                    \
S
Sean Barrett 已提交
1936 1937 1938
   p1 = (p2+p3) * stbi__f2f(0.5411961f);       \
   t2 = p1 + p3*stbi__f2f(-1.847759065f);      \
   t3 = p1 + p2*stbi__f2f( 0.765366865f);      \
1939 1940
   p2 = s0;                                    \
   p3 = s4;                                    \
S
Sean Barrett 已提交
1941 1942
   t0 = stbi__fsh(p2+p3);                      \
   t1 = stbi__fsh(p2-p3);                      \
1943 1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954
   x0 = t0+t3;                                 \
   x3 = t0-t3;                                 \
   x1 = t1+t2;                                 \
   x2 = t1-t2;                                 \
   t0 = s7;                                    \
   t1 = s5;                                    \
   t2 = s3;                                    \
   t3 = s1;                                    \
   p3 = t0+t2;                                 \
   p4 = t1+t3;                                 \
   p1 = t0+t3;                                 \
   p2 = t1+t2;                                 \
S
Sean Barrett 已提交
1955 1956 1957 1958 1959 1960 1961 1962 1963
   p5 = (p3+p4)*stbi__f2f( 1.175875602f);      \
   t0 = t0*stbi__f2f( 0.298631336f);           \
   t1 = t1*stbi__f2f( 2.053119869f);           \
   t2 = t2*stbi__f2f( 3.072711026f);           \
   t3 = t3*stbi__f2f( 1.501321110f);           \
   p1 = p5 + p1*stbi__f2f(-0.899976223f);      \
   p2 = p5 + p2*stbi__f2f(-2.562915447f);      \
   p3 = p3*stbi__f2f(-1.961570560f);           \
   p4 = p4*stbi__f2f(-0.390180644f);           \
1964 1965 1966 1967 1968
   t3 += p1+p4;                                \
   t2 += p2+p3;                                \
   t1 += p2+p4;                                \
   t0 += p1+p3;

1969
static void stbi__idct_block(stbi_uc *out, int out_stride, short data[64])
1970 1971
{
   int i,val[64],*v=val;
1972
   stbi_uc *o;
1973 1974 1975
   short *d = data;

   // columns
1976
   for (i=0; i < 8; ++i,++d, ++v) {
1977 1978 1979 1980 1981 1982 1983
      // if all zeroes, shortcut -- this avoids dequantizing 0s and IDCTing
      if (d[ 8]==0 && d[16]==0 && d[24]==0 && d[32]==0
           && d[40]==0 && d[48]==0 && d[56]==0) {
         //    no shortcut                 0     seconds
         //    (1|2|3|4|5|6|7)==0          0     seconds
         //    all separate               -0.047 seconds
         //    1 && 2|3 && 4|5 && 6|7:    -0.047 seconds
1984
         int dcterm = d[0] << 2;
1985 1986
         v[0] = v[8] = v[16] = v[24] = v[32] = v[40] = v[48] = v[56] = dcterm;
      } else {
1987
         STBI__IDCT_1D(d[ 0],d[ 8],d[16],d[24],d[32],d[40],d[48],d[56])
1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003
         // constants scaled things up by 1<<12; let's bring them back
         // down, but keep 2 extra bits of precision
         x0 += 512; x1 += 512; x2 += 512; x3 += 512;
         v[ 0] = (x0+t3) >> 10;
         v[56] = (x0-t3) >> 10;
         v[ 8] = (x1+t2) >> 10;
         v[48] = (x1-t2) >> 10;
         v[16] = (x2+t1) >> 10;
         v[40] = (x2-t1) >> 10;
         v[24] = (x3+t0) >> 10;
         v[32] = (x3-t0) >> 10;
      }
   }

   for (i=0, v=val, o=out; i < 8; ++i,v+=8,o+=out_stride) {
      // no fast case since the first 1D IDCT spread components out
2004
      STBI__IDCT_1D(v[0],v[1],v[2],v[3],v[4],v[5],v[6],v[7])
2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 2016
      // constants scaled things up by 1<<12, plus we had 1<<2 from first
      // loop, plus horizontal and vertical each scale by sqrt(8) so together
      // we've got an extra 1<<3, so 1<<17 total we need to remove.
      // so we want to round that, which means adding 0.5 * 1<<17,
      // aka 65536. Also, we'll end up with -128 to 127 that we want
      // to encode as 0..255 by adding 128, so we'll add that before the shift
      x0 += 65536 + (128<<17);
      x1 += 65536 + (128<<17);
      x2 += 65536 + (128<<17);
      x3 += 65536 + (128<<17);
      // tried computing the shifts into temps, or'ing the temps to see
      // if any were out of range, but that was slower
2017 2018 2019 2020 2021 2022 2023 2024
      o[0] = stbi__clamp((x0+t3) >> 17);
      o[7] = stbi__clamp((x0-t3) >> 17);
      o[1] = stbi__clamp((x1+t2) >> 17);
      o[6] = stbi__clamp((x1-t2) >> 17);
      o[2] = stbi__clamp((x2+t1) >> 17);
      o[5] = stbi__clamp((x2-t1) >> 17);
      o[3] = stbi__clamp((x3+t0) >> 17);
      o[4] = stbi__clamp((x3-t0) >> 17);
2025 2026 2027
   }
}

2028 2029 2030 2031
#ifdef STBI_SSE2
// sse2 integer IDCT. not the fastest possible implementation but it
// produces bit-identical results to the generic C version so it's
// fully "transparent".
2032
static void stbi__idct_simd(stbi_uc *out, int out_stride, short data[64])
2033 2034 2035 2036 2037 2038 2039 2040 2041 2042 2043 2044 2045 2046 2047 2048 2049 2050 2051 2052 2053 2054 2055 2056 2057 2058 2059 2060 2061 2062 2063 2064 2065 2066 2067 2068 2069 2070 2071 2072 2073 2074 2075 2076 2077 2078 2079 2080 2081 2082 2083 2084 2085 2086 2087 2088 2089 2090 2091 2092 2093 2094 2095 2096 2097 2098 2099 2100 2101 2102 2103 2104 2105 2106 2107 2108 2109 2110 2111 2112 2113 2114 2115 2116 2117 2118 2119 2120 2121 2122 2123 2124 2125 2126 2127 2128 2129 2130 2131 2132 2133 2134 2135 2136 2137 2138 2139 2140 2141 2142 2143 2144 2145 2146 2147 2148 2149 2150 2151 2152 2153 2154 2155 2156 2157 2158 2159 2160 2161 2162 2163 2164 2165 2166 2167 2168 2169 2170 2171 2172 2173 2174 2175 2176 2177 2178 2179 2180 2181 2182 2183 2184 2185 2186 2187 2188 2189 2190 2191 2192 2193 2194 2195 2196 2197 2198 2199 2200 2201 2202 2203 2204
{
   // This is constructed to match our regular (generic) integer IDCT exactly.
   __m128i row0, row1, row2, row3, row4, row5, row6, row7;
   __m128i tmp;

   // dot product constant: even elems=x, odd elems=y
   #define dct_const(x,y)  _mm_setr_epi16((x),(y),(x),(y),(x),(y),(x),(y))

   // out(0) = c0[even]*x + c0[odd]*y   (c0, x, y 16-bit, out 32-bit)
   // out(1) = c1[even]*x + c1[odd]*y
   #define dct_rot(out0,out1, x,y,c0,c1) \
      __m128i c0##lo = _mm_unpacklo_epi16((x),(y)); \
      __m128i c0##hi = _mm_unpackhi_epi16((x),(y)); \
      __m128i out0##_l = _mm_madd_epi16(c0##lo, c0); \
      __m128i out0##_h = _mm_madd_epi16(c0##hi, c0); \
      __m128i out1##_l = _mm_madd_epi16(c0##lo, c1); \
      __m128i out1##_h = _mm_madd_epi16(c0##hi, c1)

   // out = in << 12  (in 16-bit, out 32-bit)
   #define dct_widen(out, in) \
      __m128i out##_l = _mm_srai_epi32(_mm_unpacklo_epi16(_mm_setzero_si128(), (in)), 4); \
      __m128i out##_h = _mm_srai_epi32(_mm_unpackhi_epi16(_mm_setzero_si128(), (in)), 4)

   // wide add
   #define dct_wadd(out, a, b) \
      __m128i out##_l = _mm_add_epi32(a##_l, b##_l); \
      __m128i out##_h = _mm_add_epi32(a##_h, b##_h)

   // wide sub
   #define dct_wsub(out, a, b) \
      __m128i out##_l = _mm_sub_epi32(a##_l, b##_l); \
      __m128i out##_h = _mm_sub_epi32(a##_h, b##_h)

   // butterfly a/b, add bias, then shift by "s" and pack
   #define dct_bfly32o(out0, out1, a,b,bias,s) \
      { \
         __m128i abiased_l = _mm_add_epi32(a##_l, bias); \
         __m128i abiased_h = _mm_add_epi32(a##_h, bias); \
         dct_wadd(sum, abiased, b); \
         dct_wsub(dif, abiased, b); \
         out0 = _mm_packs_epi32(_mm_srai_epi32(sum_l, s), _mm_srai_epi32(sum_h, s)); \
         out1 = _mm_packs_epi32(_mm_srai_epi32(dif_l, s), _mm_srai_epi32(dif_h, s)); \
      }

   // 8-bit interleave step (for transposes)
   #define dct_interleave8(a, b) \
      tmp = a; \
      a = _mm_unpacklo_epi8(a, b); \
      b = _mm_unpackhi_epi8(tmp, b)

   // 16-bit interleave step (for transposes)
   #define dct_interleave16(a, b) \
      tmp = a; \
      a = _mm_unpacklo_epi16(a, b); \
      b = _mm_unpackhi_epi16(tmp, b)

   #define dct_pass(bias,shift) \
      { \
         /* even part */ \
         dct_rot(t2e,t3e, row2,row6, rot0_0,rot0_1); \
         __m128i sum04 = _mm_add_epi16(row0, row4); \
         __m128i dif04 = _mm_sub_epi16(row0, row4); \
         dct_widen(t0e, sum04); \
         dct_widen(t1e, dif04); \
         dct_wadd(x0, t0e, t3e); \
         dct_wsub(x3, t0e, t3e); \
         dct_wadd(x1, t1e, t2e); \
         dct_wsub(x2, t1e, t2e); \
         /* odd part */ \
         dct_rot(y0o,y2o, row7,row3, rot2_0,rot2_1); \
         dct_rot(y1o,y3o, row5,row1, rot3_0,rot3_1); \
         __m128i sum17 = _mm_add_epi16(row1, row7); \
         __m128i sum35 = _mm_add_epi16(row3, row5); \
         dct_rot(y4o,y5o, sum17,sum35, rot1_0,rot1_1); \
         dct_wadd(x4, y0o, y4o); \
         dct_wadd(x5, y1o, y5o); \
         dct_wadd(x6, y2o, y5o); \
         dct_wadd(x7, y3o, y4o); \
         dct_bfly32o(row0,row7, x0,x7,bias,shift); \
         dct_bfly32o(row1,row6, x1,x6,bias,shift); \
         dct_bfly32o(row2,row5, x2,x5,bias,shift); \
         dct_bfly32o(row3,row4, x3,x4,bias,shift); \
      }

   __m128i rot0_0 = dct_const(stbi__f2f(0.5411961f), stbi__f2f(0.5411961f) + stbi__f2f(-1.847759065f));
   __m128i rot0_1 = dct_const(stbi__f2f(0.5411961f) + stbi__f2f( 0.765366865f), stbi__f2f(0.5411961f));
   __m128i rot1_0 = dct_const(stbi__f2f(1.175875602f) + stbi__f2f(-0.899976223f), stbi__f2f(1.175875602f));
   __m128i rot1_1 = dct_const(stbi__f2f(1.175875602f), stbi__f2f(1.175875602f) + stbi__f2f(-2.562915447f));
   __m128i rot2_0 = dct_const(stbi__f2f(-1.961570560f) + stbi__f2f( 0.298631336f), stbi__f2f(-1.961570560f));
   __m128i rot2_1 = dct_const(stbi__f2f(-1.961570560f), stbi__f2f(-1.961570560f) + stbi__f2f( 3.072711026f));
   __m128i rot3_0 = dct_const(stbi__f2f(-0.390180644f) + stbi__f2f( 2.053119869f), stbi__f2f(-0.390180644f));
   __m128i rot3_1 = dct_const(stbi__f2f(-0.390180644f), stbi__f2f(-0.390180644f) + stbi__f2f( 1.501321110f));

   // rounding biases in column/row passes, see stbi__idct_block for explanation.
   __m128i bias_0 = _mm_set1_epi32(512);
   __m128i bias_1 = _mm_set1_epi32(65536 + (128<<17));

   // load
   row0 = _mm_load_si128((const __m128i *) (data + 0*8));
   row1 = _mm_load_si128((const __m128i *) (data + 1*8));
   row2 = _mm_load_si128((const __m128i *) (data + 2*8));
   row3 = _mm_load_si128((const __m128i *) (data + 3*8));
   row4 = _mm_load_si128((const __m128i *) (data + 4*8));
   row5 = _mm_load_si128((const __m128i *) (data + 5*8));
   row6 = _mm_load_si128((const __m128i *) (data + 6*8));
   row7 = _mm_load_si128((const __m128i *) (data + 7*8));

   // column pass
   dct_pass(bias_0, 10);

   {
      // 16bit 8x8 transpose pass 1
      dct_interleave16(row0, row4);
      dct_interleave16(row1, row5);
      dct_interleave16(row2, row6);
      dct_interleave16(row3, row7);

      // transpose pass 2
      dct_interleave16(row0, row2);
      dct_interleave16(row1, row3);
      dct_interleave16(row4, row6);
      dct_interleave16(row5, row7);

      // transpose pass 3
      dct_interleave16(row0, row1);
      dct_interleave16(row2, row3);
      dct_interleave16(row4, row5);
      dct_interleave16(row6, row7);
   }

   // row pass
   dct_pass(bias_1, 17);

   {
      // pack
      __m128i p0 = _mm_packus_epi16(row0, row1); // a0a1a2a3...a7b0b1b2b3...b7
      __m128i p1 = _mm_packus_epi16(row2, row3);
      __m128i p2 = _mm_packus_epi16(row4, row5);
      __m128i p3 = _mm_packus_epi16(row6, row7);

      // 8bit 8x8 transpose pass 1
      dct_interleave8(p0, p2); // a0e0a1e1...
      dct_interleave8(p1, p3); // c0g0c1g1...

      // transpose pass 2
      dct_interleave8(p0, p1); // a0c0e0g0...
      dct_interleave8(p2, p3); // b0d0f0h0...

      // transpose pass 3
      dct_interleave8(p0, p2); // a0b0c0d0...
      dct_interleave8(p1, p3); // a4b4c4d4...

      // store
      _mm_storel_epi64((__m128i *) out, p0); out += out_stride;
      _mm_storel_epi64((__m128i *) out, _mm_shuffle_epi32(p0, 0x4e)); out += out_stride;
      _mm_storel_epi64((__m128i *) out, p2); out += out_stride;
      _mm_storel_epi64((__m128i *) out, _mm_shuffle_epi32(p2, 0x4e)); out += out_stride;
      _mm_storel_epi64((__m128i *) out, p1); out += out_stride;
      _mm_storel_epi64((__m128i *) out, _mm_shuffle_epi32(p1, 0x4e)); out += out_stride;
      _mm_storel_epi64((__m128i *) out, p3); out += out_stride;
      _mm_storel_epi64((__m128i *) out, _mm_shuffle_epi32(p3, 0x4e));
   }

#undef dct_const
#undef dct_rot
#undef dct_widen
#undef dct_wadd
#undef dct_wsub
#undef dct_bfly32o
#undef dct_interleave8
#undef dct_interleave16
#undef dct_pass
2205 2206
}

2207
#endif // STBI_SSE2
2208

2209 2210 2211 2212
#ifdef STBI_NEON

// NEON integer IDCT. should produce bit-identical
// results to the generic C version.
2213
static void stbi__idct_simd(stbi_uc *out, int out_stride, short data[64])
2214 2215 2216 2217 2218 2219 2220 2221 2222 2223 2224 2225 2226 2227 2228 2229 2230 2231 2232 2233 2234 2235 2236 2237 2238 2239 2240 2241 2242 2243 2244 2245 2246 2247 2248 2249 2250 2251 2252 2253 2254 2255 2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 2267 2268 2269 2270 2271 2272 2273 2274 2275 2276 2277 2278 2279 2280 2281 2282 2283 2284 2285 2286 2287 2288 2289 2290 2291 2292 2293 2294 2295 2296 2297 2298 2299 2300 2301 2302 2303 2304 2305 2306 2307 2308 2309 2310 2311 2312 2313 2314 2315 2316 2317 2318 2319 2320 2321 2322 2323 2324 2325 2326 2327
{
   int16x8_t row0, row1, row2, row3, row4, row5, row6, row7;

   int16x4_t rot0_0 = vdup_n_s16(stbi__f2f(0.5411961f));
   int16x4_t rot0_1 = vdup_n_s16(stbi__f2f(-1.847759065f));
   int16x4_t rot0_2 = vdup_n_s16(stbi__f2f( 0.765366865f));
   int16x4_t rot1_0 = vdup_n_s16(stbi__f2f( 1.175875602f));
   int16x4_t rot1_1 = vdup_n_s16(stbi__f2f(-0.899976223f));
   int16x4_t rot1_2 = vdup_n_s16(stbi__f2f(-2.562915447f));
   int16x4_t rot2_0 = vdup_n_s16(stbi__f2f(-1.961570560f));
   int16x4_t rot2_1 = vdup_n_s16(stbi__f2f(-0.390180644f));
   int16x4_t rot3_0 = vdup_n_s16(stbi__f2f( 0.298631336f));
   int16x4_t rot3_1 = vdup_n_s16(stbi__f2f( 2.053119869f));
   int16x4_t rot3_2 = vdup_n_s16(stbi__f2f( 3.072711026f));
   int16x4_t rot3_3 = vdup_n_s16(stbi__f2f( 1.501321110f));

#define dct_long_mul(out, inq, coeff) \
   int32x4_t out##_l = vmull_s16(vget_low_s16(inq), coeff); \
   int32x4_t out##_h = vmull_s16(vget_high_s16(inq), coeff)

#define dct_long_mac(out, acc, inq, coeff) \
   int32x4_t out##_l = vmlal_s16(acc##_l, vget_low_s16(inq), coeff); \
   int32x4_t out##_h = vmlal_s16(acc##_h, vget_high_s16(inq), coeff)

#define dct_widen(out, inq) \
   int32x4_t out##_l = vshll_n_s16(vget_low_s16(inq), 12); \
   int32x4_t out##_h = vshll_n_s16(vget_high_s16(inq), 12)

// wide add
#define dct_wadd(out, a, b) \
   int32x4_t out##_l = vaddq_s32(a##_l, b##_l); \
   int32x4_t out##_h = vaddq_s32(a##_h, b##_h)

// wide sub
#define dct_wsub(out, a, b) \
   int32x4_t out##_l = vsubq_s32(a##_l, b##_l); \
   int32x4_t out##_h = vsubq_s32(a##_h, b##_h)

// butterfly a/b, then shift using "shiftop" by "s" and pack
#define dct_bfly32o(out0,out1, a,b,shiftop,s) \
   { \
      dct_wadd(sum, a, b); \
      dct_wsub(dif, a, b); \
      out0 = vcombine_s16(shiftop(sum_l, s), shiftop(sum_h, s)); \
      out1 = vcombine_s16(shiftop(dif_l, s), shiftop(dif_h, s)); \
   }

#define dct_pass(shiftop, shift) \
   { \
      /* even part */ \
      int16x8_t sum26 = vaddq_s16(row2, row6); \
      dct_long_mul(p1e, sum26, rot0_0); \
      dct_long_mac(t2e, p1e, row6, rot0_1); \
      dct_long_mac(t3e, p1e, row2, rot0_2); \
      int16x8_t sum04 = vaddq_s16(row0, row4); \
      int16x8_t dif04 = vsubq_s16(row0, row4); \
      dct_widen(t0e, sum04); \
      dct_widen(t1e, dif04); \
      dct_wadd(x0, t0e, t3e); \
      dct_wsub(x3, t0e, t3e); \
      dct_wadd(x1, t1e, t2e); \
      dct_wsub(x2, t1e, t2e); \
      /* odd part */ \
      int16x8_t sum15 = vaddq_s16(row1, row5); \
      int16x8_t sum17 = vaddq_s16(row1, row7); \
      int16x8_t sum35 = vaddq_s16(row3, row5); \
      int16x8_t sum37 = vaddq_s16(row3, row7); \
      int16x8_t sumodd = vaddq_s16(sum17, sum35); \
      dct_long_mul(p5o, sumodd, rot1_0); \
      dct_long_mac(p1o, p5o, sum17, rot1_1); \
      dct_long_mac(p2o, p5o, sum35, rot1_2); \
      dct_long_mul(p3o, sum37, rot2_0); \
      dct_long_mul(p4o, sum15, rot2_1); \
      dct_wadd(sump13o, p1o, p3o); \
      dct_wadd(sump24o, p2o, p4o); \
      dct_wadd(sump23o, p2o, p3o); \
      dct_wadd(sump14o, p1o, p4o); \
      dct_long_mac(x4, sump13o, row7, rot3_0); \
      dct_long_mac(x5, sump24o, row5, rot3_1); \
      dct_long_mac(x6, sump23o, row3, rot3_2); \
      dct_long_mac(x7, sump14o, row1, rot3_3); \
      dct_bfly32o(row0,row7, x0,x7,shiftop,shift); \
      dct_bfly32o(row1,row6, x1,x6,shiftop,shift); \
      dct_bfly32o(row2,row5, x2,x5,shiftop,shift); \
      dct_bfly32o(row3,row4, x3,x4,shiftop,shift); \
   }

   // load
   row0 = vld1q_s16(data + 0*8);
   row1 = vld1q_s16(data + 1*8);
   row2 = vld1q_s16(data + 2*8);
   row3 = vld1q_s16(data + 3*8);
   row4 = vld1q_s16(data + 4*8);
   row5 = vld1q_s16(data + 5*8);
   row6 = vld1q_s16(data + 6*8);
   row7 = vld1q_s16(data + 7*8);

   // add DC bias
   row0 = vaddq_s16(row0, vsetq_lane_s16(1024, vdupq_n_s16(0), 0));

   // column pass
   dct_pass(vrshrn_n_s32, 10);

   // 16bit 8x8 transpose
   {
// these three map to a single VTRN.16, VTRN.32, and VSWP, respectively.
// whether compilers actually get this is another story, sadly.
#define dct_trn16(x, y) { int16x8x2_t t = vtrnq_s16(x, y); x = t.val[0]; y = t.val[1]; }
#define dct_trn32(x, y) { int32x4x2_t t = vtrnq_s32(vreinterpretq_s32_s16(x), vreinterpretq_s32_s16(y)); x = vreinterpretq_s16_s32(t.val[0]); y = vreinterpretq_s16_s32(t.val[1]); }
#define dct_trn64(x, y) { int16x8_t x0 = x; int16x8_t y0 = y; x = vcombine_s16(vget_low_s16(x0), vget_low_s16(y0)); y = vcombine_s16(vget_high_s16(x0), vget_high_s16(y0)); }

      // pass 1
      dct_trn16(row0, row1); // a0b0a2b2a4b4a6b6
      dct_trn16(row2, row3);
2328
      dct_trn16(row4, row5);
2329 2330 2331 2332 2333 2334 2335 2336 2337 2338 2339 2340 2341 2342 2343 2344 2345 2346 2347 2348 2349 2350 2351 2352 2353 2354 2355 2356 2357 2358 2359 2360 2361 2362 2363 2364 2365 2366 2367 2368 2369 2370 2371 2372 2373 2374 2375 2376 2377 2378 2379 2380 2381 2382 2383 2384 2385 2386 2387 2388 2389 2390 2391 2392 2393 2394 2395 2396 2397 2398 2399 2400 2401 2402 2403 2404 2405 2406 2407 2408 2409 2410 2411 2412 2413 2414 2415 2416
      dct_trn16(row6, row7);

      // pass 2
      dct_trn32(row0, row2); // a0b0c0d0a4b4c4d4
      dct_trn32(row1, row3);
      dct_trn32(row4, row6);
      dct_trn32(row5, row7);

      // pass 3
      dct_trn64(row0, row4); // a0b0c0d0e0f0g0h0
      dct_trn64(row1, row5);
      dct_trn64(row2, row6);
      dct_trn64(row3, row7);

#undef dct_trn16
#undef dct_trn32
#undef dct_trn64
   }

   // row pass
   // vrshrn_n_s32 only supports shifts up to 16, we need
   // 17. so do a non-rounding shift of 16 first then follow
   // up with a rounding shift by 1.
   dct_pass(vshrn_n_s32, 16);

   {
      // pack and round
      uint8x8_t p0 = vqrshrun_n_s16(row0, 1);
      uint8x8_t p1 = vqrshrun_n_s16(row1, 1);
      uint8x8_t p2 = vqrshrun_n_s16(row2, 1);
      uint8x8_t p3 = vqrshrun_n_s16(row3, 1);
      uint8x8_t p4 = vqrshrun_n_s16(row4, 1);
      uint8x8_t p5 = vqrshrun_n_s16(row5, 1);
      uint8x8_t p6 = vqrshrun_n_s16(row6, 1);
      uint8x8_t p7 = vqrshrun_n_s16(row7, 1);

      // again, these can translate into one instruction, but often don't.
#define dct_trn8_8(x, y) { uint8x8x2_t t = vtrn_u8(x, y); x = t.val[0]; y = t.val[1]; }
#define dct_trn8_16(x, y) { uint16x4x2_t t = vtrn_u16(vreinterpret_u16_u8(x), vreinterpret_u16_u8(y)); x = vreinterpret_u8_u16(t.val[0]); y = vreinterpret_u8_u16(t.val[1]); }
#define dct_trn8_32(x, y) { uint32x2x2_t t = vtrn_u32(vreinterpret_u32_u8(x), vreinterpret_u32_u8(y)); x = vreinterpret_u8_u32(t.val[0]); y = vreinterpret_u8_u32(t.val[1]); }

      // sadly can't use interleaved stores here since we only write
      // 8 bytes to each scan line!

      // 8x8 8-bit transpose pass 1
      dct_trn8_8(p0, p1);
      dct_trn8_8(p2, p3);
      dct_trn8_8(p4, p5);
      dct_trn8_8(p6, p7);

      // pass 2
      dct_trn8_16(p0, p2);
      dct_trn8_16(p1, p3);
      dct_trn8_16(p4, p6);
      dct_trn8_16(p5, p7);

      // pass 3
      dct_trn8_32(p0, p4);
      dct_trn8_32(p1, p5);
      dct_trn8_32(p2, p6);
      dct_trn8_32(p3, p7);

      // store
      vst1_u8(out, p0); out += out_stride;
      vst1_u8(out, p1); out += out_stride;
      vst1_u8(out, p2); out += out_stride;
      vst1_u8(out, p3); out += out_stride;
      vst1_u8(out, p4); out += out_stride;
      vst1_u8(out, p5); out += out_stride;
      vst1_u8(out, p6); out += out_stride;
      vst1_u8(out, p7);

#undef dct_trn8_8
#undef dct_trn8_16
#undef dct_trn8_32
   }

#undef dct_long_mul
#undef dct_long_mac
#undef dct_widen
#undef dct_wadd
#undef dct_wsub
#undef dct_bfly32o
#undef dct_pass
}

#endif // STBI_NEON

2417
#define STBI__MARKER_none  0xff
2418 2419 2420
// if there's a pending marker from the entropy stream, return that
// otherwise, fetch from the stream and get a marker. if there's no
// marker, return 0xff, which is never a valid marker value
2421
static stbi_uc stbi__get_marker(stbi__jpeg *j)
2422
{
2423
   stbi_uc x;
2424
   if (j->marker != STBI__MARKER_none) { x = j->marker; j->marker = STBI__MARKER_none; return x; }
2425
   x = stbi__get8(j->s);
2426
   if (x != 0xff) return STBI__MARKER_none;
2427
   while (x == 0xff)
2428
      x = stbi__get8(j->s);
2429 2430 2431 2432 2433
   return x;
}

// in each scan, we'll have scan_n components, and the order
// of the components is specified by order[]
2434
#define STBI__RESTART(x)     ((x) >= 0xd0 && (x) <= 0xd7)
2435

2436
// after a restart interval, stbi__jpeg_reset the entropy decoder and
2437
// the dc prediction
2438
static void stbi__jpeg_reset(stbi__jpeg *j)
2439 2440 2441 2442 2443
{
   j->code_bits = 0;
   j->code_buffer = 0;
   j->nomore = 0;
   j->img_comp[0].dc_pred = j->img_comp[1].dc_pred = j->img_comp[2].dc_pred = 0;
2444
   j->marker = STBI__MARKER_none;
2445
   j->todo = j->restart_interval ? j->restart_interval : 0x7fffffff;
S
Sean Barrett 已提交
2446
   j->eob_run = 0;
2447 2448 2449 2450
   // no more than 1<<31 MCUs if no restart_interal? that's plenty safe,
   // since we don't even allow 1<<30 pixels
}

2451
static int stbi__parse_entropy_coded_data(stbi__jpeg *z)
2452
{
2453
   stbi__jpeg_reset(z);
S
Sean Barrett 已提交
2454 2455 2456 2457 2458 2459 2460 2461 2462 2463 2464 2465 2466 2467 2468 2469 2470 2471 2472 2473 2474 2475 2476 2477
   if (!z->progressive) {
      if (z->scan_n == 1) {
         int i,j;
         STBI_SIMD_ALIGN(short, data[64]);
         int n = z->order[0];
         // non-interleaved data, we just need to process one block at a time,
         // in trivial scanline order
         // number of blocks to do just depends on how many actual "pixels" this
         // component has, independent of interleaved MCU blocking and such
         int w = (z->img_comp[n].x+7) >> 3;
         int h = (z->img_comp[n].y+7) >> 3;
         for (j=0; j < h; ++j) {
            for (i=0; i < w; ++i) {
               int ha = z->img_comp[n].ha;
               if (!stbi__jpeg_decode_block(z, data, z->huff_dc+z->img_comp[n].hd, z->huff_ac+ha, z->fast_ac[ha], n, z->dequant[z->img_comp[n].tq])) return 0;
               z->idct_block_kernel(z->img_comp[n].data+z->img_comp[n].w2*j*8+i*8, z->img_comp[n].w2, data);
               // every data block is an MCU, so countdown the restart interval
               if (--z->todo <= 0) {
                  if (z->code_bits < 24) stbi__grow_buffer_unsafe(z);
                  // if it's NOT a restart, then just bail, so we get corrupt data
                  // rather than no data
                  if (!STBI__RESTART(z->marker)) return 1;
                  stbi__jpeg_reset(z);
               }
2478 2479
            }
         }
S
Sean Barrett 已提交
2480
         return 1;
2481
      } else { // interleaved
S
Sean Barrett 已提交
2482 2483 2484 2485 2486 2487 2488 2489 2490 2491 2492 2493 2494 2495 2496
         int i,j,k,x,y;
         STBI_SIMD_ALIGN(short, data[64]);
         for (j=0; j < z->img_mcu_y; ++j) {
            for (i=0; i < z->img_mcu_x; ++i) {
               // scan an interleaved mcu... process scan_n components in order
               for (k=0; k < z->scan_n; ++k) {
                  int n = z->order[k];
                  // scan out an mcu's worth of this component; that's just determined
                  // by the basic H and V specified for the component
                  for (y=0; y < z->img_comp[n].v; ++y) {
                     for (x=0; x < z->img_comp[n].h; ++x) {
                        int x2 = (i*z->img_comp[n].h + x)*8;
                        int y2 = (j*z->img_comp[n].v + y)*8;
                        int ha = z->img_comp[n].ha;
                        if (!stbi__jpeg_decode_block(z, data, z->huff_dc+z->img_comp[n].hd, z->huff_ac+ha, z->fast_ac[ha], n, z->dequant[z->img_comp[n].tq])) return 0;
2497
                        z->idct_block_kernel(z->img_comp[n].data+z->img_comp[n].w2*y2+x2, z->img_comp[n].w2, data);
S
Sean Barrett 已提交
2498 2499 2500 2501 2502 2503 2504 2505 2506 2507 2508 2509 2510
                     }
                  }
               }
               // after all interleaved components, that's an interleaved MCU,
               // so now count down the restart interval
               if (--z->todo <= 0) {
                  if (z->code_bits < 24) stbi__grow_buffer_unsafe(z);
                  if (!STBI__RESTART(z->marker)) return 1;
                  stbi__jpeg_reset(z);
               }
            }
         }
         return 1;
2511
      }
S
Sean Barrett 已提交
2512 2513 2514 2515 2516 2517 2518 2519 2520 2521 2522 2523 2524 2525
   } else {
      if (z->scan_n == 1) {
         int i,j;
         int n = z->order[0];
         // non-interleaved data, we just need to process one block at a time,
         // in trivial scanline order
         // number of blocks to do just depends on how many actual "pixels" this
         // component has, independent of interleaved MCU blocking and such
         int w = (z->img_comp[n].x+7) >> 3;
         int h = (z->img_comp[n].y+7) >> 3;
         for (j=0; j < h; ++j) {
            for (i=0; i < w; ++i) {
               short *data = z->img_comp[n].coeff + 64 * (i + j * z->img_comp[n].coeff_w);
               if (z->spec_start == 0) {
2526
                  if (!stbi__jpeg_decode_block_prog_dc(z, data, &z->huff_dc[z->img_comp[n].hd], n))
S
Sean Barrett 已提交
2527 2528
                     return 0;
               } else {
2529 2530
                  int ha = z->img_comp[n].ha;
                  if (!stbi__jpeg_decode_block_prog_ac(z, data, &z->huff_ac[ha], z->fast_ac[ha]))
S
Sean Barrett 已提交
2531 2532 2533 2534 2535 2536 2537 2538 2539 2540 2541
                     return 0;
               }
               // every data block is an MCU, so countdown the restart interval
               if (--z->todo <= 0) {
                  if (z->code_bits < 24) stbi__grow_buffer_unsafe(z);
                  if (!STBI__RESTART(z->marker)) return 1;
                  stbi__jpeg_reset(z);
               }
            }
         }
         return 1;
2542
      } else { // interleaved
S
Sean Barrett 已提交
2543 2544 2545 2546 2547 2548 2549 2550 2551 2552 2553 2554 2555
         int i,j,k,x,y;
         for (j=0; j < z->img_mcu_y; ++j) {
            for (i=0; i < z->img_mcu_x; ++i) {
               // scan an interleaved mcu... process scan_n components in order
               for (k=0; k < z->scan_n; ++k) {
                  int n = z->order[k];
                  // scan out an mcu's worth of this component; that's just determined
                  // by the basic H and V specified for the component
                  for (y=0; y < z->img_comp[n].v; ++y) {
                     for (x=0; x < z->img_comp[n].h; ++x) {
                        int x2 = (i*z->img_comp[n].h + x);
                        int y2 = (j*z->img_comp[n].v + y);
                        short *data = z->img_comp[n].coeff + 64 * (x2 + y2 * z->img_comp[n].coeff_w);
2556
                        if (!stbi__jpeg_decode_block_prog_dc(z, data, &z->huff_dc[z->img_comp[n].hd], n))
S
Sean Barrett 已提交
2557 2558
                           return 0;
                     }
2559 2560
                  }
               }
S
Sean Barrett 已提交
2561 2562 2563 2564 2565 2566 2567
               // after all interleaved components, that's an interleaved MCU,
               // so now count down the restart interval
               if (--z->todo <= 0) {
                  if (z->code_bits < 24) stbi__grow_buffer_unsafe(z);
                  if (!STBI__RESTART(z->marker)) return 1;
                  stbi__jpeg_reset(z);
               }
2568
            }
S
Sean Barrett 已提交
2569 2570 2571 2572 2573 2574 2575 2576 2577 2578 2579 2580 2581 2582 2583 2584 2585 2586 2587 2588 2589 2590 2591 2592 2593 2594
         }
         return 1;
      }
   }
}

static void stbi__jpeg_dequantize(short *data, stbi_uc *dequant)
{
   int i;
   for (i=0; i < 64; ++i)
      data[i] *= dequant[i];
}

static void stbi__jpeg_finish(stbi__jpeg *z)
{
   if (z->progressive) {
      // dequantize and idct the data
      int i,j,n;
      for (n=0; n < z->s->img_n; ++n) {
         int w = (z->img_comp[n].x+7) >> 3;
         int h = (z->img_comp[n].y+7) >> 3;
         for (j=0; j < h; ++j) {
            for (i=0; i < w; ++i) {
               short *data = z->img_comp[n].coeff + 64 * (i + j * z->img_comp[n].coeff_w);
               stbi__jpeg_dequantize(data, z->dequant[z->img_comp[n].tq]);
               z->idct_block_kernel(z->img_comp[n].data+z->img_comp[n].w2*j*8+i*8, z->img_comp[n].w2, data);
2595 2596 2597 2598 2599 2600
            }
         }
      }
   }
}

2601
static int stbi__process_marker(stbi__jpeg *z, int m)
2602 2603 2604
{
   int L;
   switch (m) {
2605
      case STBI__MARKER_none: // no marker found
S
Sean Barrett 已提交
2606
         return stbi__err("expected marker","Corrupt JPEG");
2607 2608

      case 0xDD: // DRI - specify restart interval
2609 2610
         if (stbi__get16be(z->s) != 4) return stbi__err("bad DRI len","Corrupt JPEG");
         z->restart_interval = stbi__get16be(z->s);
2611 2612 2613
         return 1;

      case 0xDB: // DQT - define quantization table
2614
         L = stbi__get16be(z->s)-2;
2615
         while (L > 0) {
2616
            int q = stbi__get8(z->s);
2617 2618
            int p = q >> 4;
            int t = q & 15,i;
S
Sean Barrett 已提交
2619 2620
            if (p != 0) return stbi__err("bad DQT type","Corrupt JPEG");
            if (t > 3) return stbi__err("bad DQT table","Corrupt JPEG");
2621
            for (i=0; i < 64; ++i)
2622
               z->dequant[t][stbi__jpeg_dezigzag[i]] = stbi__get8(z->s);
2623 2624 2625 2626 2627
            L -= 65;
         }
         return L==0;

      case 0xC4: // DHT - define huffman table
2628
         L = stbi__get16be(z->s)-2;
2629
         while (L > 0) {
2630
            stbi_uc *v;
2631
            int sizes[16],i,n=0;
2632
            int q = stbi__get8(z->s);
2633 2634
            int tc = q >> 4;
            int th = q & 15;
S
Sean Barrett 已提交
2635
            if (tc > 1 || th > 3) return stbi__err("bad DHT header","Corrupt JPEG");
2636
            for (i=0; i < 16; ++i) {
2637
               sizes[i] = stbi__get8(z->s);
2638 2639 2640 2641
               n += sizes[i];
            }
            L -= 17;
            if (tc == 0) {
2642
               if (!stbi__build_huffman(z->huff_dc+th, sizes)) return 0;
2643 2644
               v = z->huff_dc[th].values;
            } else {
2645
               if (!stbi__build_huffman(z->huff_ac+th, sizes)) return 0;
2646 2647 2648
               v = z->huff_ac[th].values;
            }
            for (i=0; i < n; ++i)
2649
               v[i] = stbi__get8(z->s);
2650 2651
            if (tc != 0)
               stbi__build_fast_ac(z->fast_ac[th], z->huff_ac + th);
2652 2653 2654 2655 2656 2657
            L -= n;
         }
         return L==0;
   }
   // check for comment block or APP blocks
   if ((m >= 0xE0 && m <= 0xEF) || m == 0xFE) {
2658
      stbi__skip(z->s, stbi__get16be(z->s)-2);
2659 2660 2661 2662 2663
      return 1;
   }
   return 0;
}

S
Sean Barrett 已提交
2664
// after we see SOS
2665
static int stbi__process_scan_header(stbi__jpeg *z)
2666 2667
{
   int i;
2668 2669
   int Ls = stbi__get16be(z->s);
   z->scan_n = stbi__get8(z->s);
S
Sean Barrett 已提交
2670 2671
   if (z->scan_n < 1 || z->scan_n > 4 || z->scan_n > (int) z->s->img_n) return stbi__err("bad SOS component count","Corrupt JPEG");
   if (Ls != 6+2*z->scan_n) return stbi__err("bad SOS len","Corrupt JPEG");
2672
   for (i=0; i < z->scan_n; ++i) {
2673 2674
      int id = stbi__get8(z->s), which;
      int q = stbi__get8(z->s);
2675 2676 2677
      for (which = 0; which < z->s->img_n; ++which)
         if (z->img_comp[which].id == id)
            break;
S
Sean Barrett 已提交
2678
      if (which == z->s->img_n) return 0; // no match
S
Sean Barrett 已提交
2679 2680
      z->img_comp[which].hd = q >> 4;   if (z->img_comp[which].hd > 3) return stbi__err("bad DC huff","Corrupt JPEG");
      z->img_comp[which].ha = q & 15;   if (z->img_comp[which].ha > 3) return stbi__err("bad AC huff","Corrupt JPEG");
2681 2682
      z->order[i] = which;
   }
S
Sean Barrett 已提交
2683 2684 2685 2686 2687 2688 2689 2690 2691 2692 2693 2694 2695 2696 2697 2698 2699

   {
      int aa;
      z->spec_start = stbi__get8(z->s);
      z->spec_end   = stbi__get8(z->s); // should be 63, but might be 0
      aa = stbi__get8(z->s);
      z->succ_high = (aa >> 4);
      z->succ_low  = (aa & 15);
      if (z->progressive) {
         if (z->spec_start > 63 || z->spec_end > 63  || z->spec_start > z->spec_end || z->succ_high > 13 || z->succ_low > 13)
            return stbi__err("bad SOS", "Corrupt JPEG");
      } else {
         if (z->spec_start != 0) return stbi__err("bad SOS","Corrupt JPEG");
         if (z->succ_high != 0 || z->succ_low != 0) return stbi__err("bad SOS","Corrupt JPEG");
         z->spec_end = 63;
      }
   }
2700 2701 2702 2703

   return 1;
}

2704
static int stbi__process_frame_header(stbi__jpeg *z, int scan)
2705
{
S
Sean Barrett 已提交
2706
   stbi__context *s = z->s;
2707
   int Lf,p,i,q, h_max=1,v_max=1,c;
S
Sean Barrett 已提交
2708 2709
   Lf = stbi__get16be(s);         if (Lf < 11) return stbi__err("bad SOF len","Corrupt JPEG"); // JPEG
   p  = stbi__get8(s);            if (p != 8) return stbi__err("only 8-bit","JPEG format not supported: 8-bit only"); // JPEG baseline
2710 2711 2712
   s->img_y = stbi__get16be(s);   if (s->img_y == 0) return stbi__err("no header height", "JPEG format not supported: delayed height"); // Legal, but we don't handle it--but neither does IJG
   s->img_x = stbi__get16be(s);   if (s->img_x == 0) return stbi__err("0 width","Corrupt JPEG"); // JPEG requires
   c = stbi__get8(s);
S
Sean Barrett 已提交
2713
   if (c != 3 && c != 1) return stbi__err("bad component count","Corrupt JPEG");    // JFIF requires
2714 2715 2716 2717 2718 2719
   s->img_n = c;
   for (i=0; i < c; ++i) {
      z->img_comp[i].data = NULL;
      z->img_comp[i].linebuf = NULL;
   }

S
Sean Barrett 已提交
2720
   if (Lf != 8+3*s->img_n) return stbi__err("bad SOF len","Corrupt JPEG");
2721 2722

   for (i=0; i < s->img_n; ++i) {
2723
      z->img_comp[i].id = stbi__get8(s);
2724 2725
      if (z->img_comp[i].id != i+1)   // JFIF requires
         if (z->img_comp[i].id != i)  // some version of jpegtran outputs non-JFIF-compliant files!
S
Sean Barrett 已提交
2726
            return stbi__err("bad component ID","Corrupt JPEG");
2727
      q = stbi__get8(s);
S
Sean Barrett 已提交
2728 2729
      z->img_comp[i].h = (q >> 4);  if (!z->img_comp[i].h || z->img_comp[i].h > 4) return stbi__err("bad H","Corrupt JPEG");
      z->img_comp[i].v = q & 15;    if (!z->img_comp[i].v || z->img_comp[i].v > 4) return stbi__err("bad V","Corrupt JPEG");
2730
      z->img_comp[i].tq = stbi__get8(s);  if (z->img_comp[i].tq > 3) return stbi__err("bad TQ","Corrupt JPEG");
2731 2732
   }

2733
   if (scan != STBI__SCAN_load) return 1;
2734

2735
   if ((1 << 30) / s->img_x / s->img_n < s->img_y) return stbi__err("too large", "Image too large to decode");
2736 2737 2738 2739 2740 2741 2742 2743 2744 2745 2746 2747 2748 2749 2750

   for (i=0; i < s->img_n; ++i) {
      if (z->img_comp[i].h > h_max) h_max = z->img_comp[i].h;
      if (z->img_comp[i].v > v_max) v_max = z->img_comp[i].v;
   }

   // compute interleaved mcu info
   z->img_h_max = h_max;
   z->img_v_max = v_max;
   z->img_mcu_w = h_max * 8;
   z->img_mcu_h = v_max * 8;
   z->img_mcu_x = (s->img_x + z->img_mcu_w-1) / z->img_mcu_w;
   z->img_mcu_y = (s->img_y + z->img_mcu_h-1) / z->img_mcu_h;

   for (i=0; i < s->img_n; ++i) {
T
Tero Hänninen 已提交
2751
      // number of effective pixels (e.g. for non-interleaved MCU)
2752 2753
      z->img_comp[i].x = (s->img_x * z->img_comp[i].h + h_max-1) / h_max;
      z->img_comp[i].y = (s->img_y * z->img_comp[i].v + v_max-1) / v_max;
2754
      // to simplify generation, we'll allocate enough memory to decode
2755
      // the bogus oversized data from using interleaved MCUs and their
T
Tero Hänninen 已提交
2756
      // big blocks (e.g. a 16x16 iMCU on an image of width 33); we won't
2757 2758 2759
      // discard the extra data until colorspace conversion
      z->img_comp[i].w2 = z->img_mcu_x * z->img_comp[i].h * 8;
      z->img_comp[i].h2 = z->img_mcu_y * z->img_comp[i].v * 8;
2760
      z->img_comp[i].raw_data = stbi__malloc(z->img_comp[i].w2 * z->img_comp[i].h2+15);
S
Sean Barrett 已提交
2761

2762 2763
      if (z->img_comp[i].raw_data == NULL) {
         for(--i; i >= 0; --i) {
S
Sean Barrett 已提交
2764
            STBI_FREE(z->img_comp[i].raw_data);
R
rmitton 已提交
2765
            z->img_comp[i].raw_data = NULL;
2766
         }
S
Sean Barrett 已提交
2767
         return stbi__err("outofmem", "Out of memory");
2768
      }
S
Sean Barrett 已提交
2769
      // align blocks for idct using mmx/sse
2770
      z->img_comp[i].data = (stbi_uc*) (((size_t) z->img_comp[i].raw_data + 15) & ~15);
2771
      z->img_comp[i].linebuf = NULL;
S
Sean Barrett 已提交
2772 2773 2774
      if (z->progressive) {
         z->img_comp[i].coeff_w = (z->img_comp[i].w2 + 7) >> 3;
         z->img_comp[i].coeff_h = (z->img_comp[i].h2 + 7) >> 3;
S
Sean Barrett 已提交
2775
         z->img_comp[i].raw_coeff = STBI_MALLOC(z->img_comp[i].coeff_w * z->img_comp[i].coeff_h * 64 * sizeof(short) + 15);
S
Sean Barrett 已提交
2776 2777 2778 2779 2780
         z->img_comp[i].coeff = (short*) (((size_t) z->img_comp[i].raw_coeff + 15) & ~15);
      } else {
         z->img_comp[i].coeff = 0;
         z->img_comp[i].raw_coeff = 0;
      }
2781 2782 2783 2784 2785
   }

   return 1;
}

S
Sean Barrett 已提交
2786
// use comparisons since in some cases we handle more than one case (e.g. SOF)
2787 2788 2789
#define stbi__DNL(x)         ((x) == 0xdc)
#define stbi__SOI(x)         ((x) == 0xd8)
#define stbi__EOI(x)         ((x) == 0xd9)
S
Sean Barrett 已提交
2790
#define stbi__SOF(x)         ((x) == 0xc0 || (x) == 0xc1 || (x) == 0xc2)
2791
#define stbi__SOS(x)         ((x) == 0xda)
2792

S
Sean Barrett 已提交
2793 2794
#define stbi__SOF_progressive(x)   ((x) == 0xc2)

S
Sean Barrett 已提交
2795
static int stbi__decode_jpeg_header(stbi__jpeg *z, int scan)
2796 2797
{
   int m;
2798 2799
   z->marker = STBI__MARKER_none; // initialize cached marker to empty
   m = stbi__get_marker(z);
S
Sean Barrett 已提交
2800
   if (!stbi__SOI(m)) return stbi__err("no SOI","Corrupt JPEG");
2801
   if (scan == STBI__SCAN_type) return 1;
2802 2803 2804 2805 2806
   m = stbi__get_marker(z);
   while (!stbi__SOF(m)) {
      if (!stbi__process_marker(z,m)) return 0;
      m = stbi__get_marker(z);
      while (m == STBI__MARKER_none) {
2807
         // some files have extra padding after their blocks, so ok, we'll scan
S
Sean Barrett 已提交
2808
         if (stbi__at_eof(z->s)) return stbi__err("no SOF", "Corrupt JPEG");
2809
         m = stbi__get_marker(z);
2810 2811
      }
   }
S
Sean Barrett 已提交
2812
   z->progressive = stbi__SOF_progressive(m);
2813
   if (!stbi__process_frame_header(z, scan)) return 0;
2814 2815 2816
   return 1;
}

S
Sean Barrett 已提交
2817
// decode image to YCbCr format
S
Sean Barrett 已提交
2818
static int stbi__decode_jpeg_image(stbi__jpeg *j)
2819 2820
{
   int m;
2821 2822 2823 2824
   for (m = 0; m < 4; m++) {
      j->img_comp[m].raw_data = NULL;
      j->img_comp[m].raw_coeff = NULL;
   }
2825
   j->restart_interval = 0;
2826
   if (!stbi__decode_jpeg_header(j, STBI__SCAN_load)) return 0;
2827 2828 2829 2830 2831 2832
   m = stbi__get_marker(j);
   while (!stbi__EOI(m)) {
      if (stbi__SOS(m)) {
         if (!stbi__process_scan_header(j)) return 0;
         if (!stbi__parse_entropy_coded_data(j)) return 0;
         if (j->marker == STBI__MARKER_none ) {
2833
            // handle 0s at the end of image data from IP Kamera 9060
2834 2835
            while (!stbi__at_eof(j->s)) {
               int x = stbi__get8(j->s);
2836
               if (x == 255) {
2837
                  j->marker = stbi__get8(j->s);
2838 2839
                  break;
               } else if (x != 0) {
S
Sean Barrett 已提交
2840
                  return stbi__err("junk before marker", "Corrupt JPEG");
2841 2842
               }
            }
2843
            // if we reach eof without hitting a marker, stbi__get_marker() below will fail and we'll eventually return 0
2844 2845
         }
      } else {
2846
         if (!stbi__process_marker(j, m)) return 0;
2847
      }
2848
      m = stbi__get_marker(j);
2849
   }
S
Sean Barrett 已提交
2850 2851
   if (j->progressive)
      stbi__jpeg_finish(j);
2852 2853 2854 2855 2856
   return 1;
}

// static jfif-centered resampling (across block boundaries)

2857
typedef stbi_uc *(*resample_row_func)(stbi_uc *out, stbi_uc *in0, stbi_uc *in1,
2858 2859
                                    int w, int hs);

2860
#define stbi__div4(x) ((stbi_uc) ((x) >> 2))
2861

2862
static stbi_uc *resample_row_1(stbi_uc *out, stbi_uc *in_near, stbi_uc *in_far, int w, int hs)
2863 2864 2865 2866 2867 2868 2869 2870
{
   STBI_NOTUSED(out);
   STBI_NOTUSED(in_far);
   STBI_NOTUSED(w);
   STBI_NOTUSED(hs);
   return in_near;
}

2871
static stbi_uc* stbi__resample_row_v_2(stbi_uc *out, stbi_uc *in_near, stbi_uc *in_far, int w, int hs)
2872 2873 2874 2875 2876
{
   // need to generate two samples vertically for every one in input
   int i;
   STBI_NOTUSED(hs);
   for (i=0; i < w; ++i)
2877
      out[i] = stbi__div4(3*in_near[i] + in_far[i] + 2);
2878 2879 2880
   return out;
}

2881
static stbi_uc*  stbi__resample_row_h_2(stbi_uc *out, stbi_uc *in_near, stbi_uc *in_far, int w, int hs)
2882 2883 2884
{
   // need to generate two samples horizontally for every one in input
   int i;
2885
   stbi_uc *input = in_near;
2886 2887 2888 2889 2890 2891 2892 2893

   if (w == 1) {
      // if only one sample, can't do any interpolation
      out[0] = out[1] = input[0];
      return out;
   }

   out[0] = input[0];
2894
   out[1] = stbi__div4(input[0]*3 + input[1] + 2);
2895 2896
   for (i=1; i < w-1; ++i) {
      int n = 3*input[i]+2;
2897 2898
      out[i*2+0] = stbi__div4(n+input[i-1]);
      out[i*2+1] = stbi__div4(n+input[i+1]);
2899
   }
2900
   out[i*2+0] = stbi__div4(input[w-2]*3 + input[w-1] + 2);
2901 2902 2903 2904 2905 2906 2907 2908
   out[i*2+1] = input[w-1];

   STBI_NOTUSED(in_far);
   STBI_NOTUSED(hs);

   return out;
}

2909
#define stbi__div16(x) ((stbi_uc) ((x) >> 4))
2910

2911
static stbi_uc *stbi__resample_row_hv_2(stbi_uc *out, stbi_uc *in_near, stbi_uc *in_far, int w, int hs)
2912 2913 2914 2915
{
   // need to generate 2x2 samples for every one in input
   int i,t0,t1;
   if (w == 1) {
2916
      out[0] = out[1] = stbi__div4(3*in_near[0] + in_far[0] + 2);
2917 2918 2919 2920
      return out;
   }

   t1 = 3*in_near[0] + in_far[0];
2921
   out[0] = stbi__div4(t1+2);
2922 2923 2924
   for (i=1; i < w; ++i) {
      t0 = t1;
      t1 = 3*in_near[i]+in_far[i];
2925 2926
      out[i*2-1] = stbi__div16(3*t0 + t1 + 8);
      out[i*2  ] = stbi__div16(3*t1 + t0 + 8);
2927
   }
2928
   out[w*2-1] = stbi__div4(t1+2);
2929 2930 2931 2932 2933 2934

   STBI_NOTUSED(hs);

   return out;
}

2935 2936
#if defined(STBI_SSE2) || defined(STBI_NEON)
static stbi_uc *stbi__resample_row_hv_2_simd(stbi_uc *out, stbi_uc *in_near, stbi_uc *in_far, int w, int hs)
2937 2938 2939 2940 2941 2942 2943 2944 2945 2946 2947 2948 2949 2950
{
   // need to generate 2x2 samples for every one in input
   int i=0,t0,t1;

   if (w == 1) {
      out[0] = out[1] = stbi__div4(3*in_near[0] + in_far[0] + 2);
      return out;
   }

   t1 = 3*in_near[0] + in_far[0];
   // process groups of 8 pixels for as long as we can.
   // note we can't handle the last pixel in a row in this loop
   // because we need to handle the filter boundary conditions.
   for (; i < ((w-1) & ~7); i += 8) {
2951
#if defined(STBI_SSE2)
2952 2953 2954 2955 2956 2957 2958 2959 2960 2961 2962
      // load and perform the vertical filtering pass
      // this uses 3*x + y = 4*x + (y - x)
      __m128i zero  = _mm_setzero_si128();
      __m128i farb  = _mm_loadl_epi64((__m128i *) (in_far + i));
      __m128i nearb = _mm_loadl_epi64((__m128i *) (in_near + i));
      __m128i farw  = _mm_unpacklo_epi8(farb, zero);
      __m128i nearw = _mm_unpacklo_epi8(nearb, zero);
      __m128i diff  = _mm_sub_epi16(farw, nearw);
      __m128i nears = _mm_slli_epi16(nearw, 2);
      __m128i curr  = _mm_add_epi16(nears, diff); // current row

2963
      // horizontal filter works the same based on shifted vers of current
2964 2965 2966 2967 2968 2969 2970 2971 2972 2973 2974 2975 2976
      // row. "prev" is current row shifted right by 1 pixel; we need to
      // insert the previous pixel value (from t1).
      // "next" is current row shifted left by 1 pixel, with first pixel
      // of next block of 8 pixels added in.
      __m128i prv0 = _mm_slli_si128(curr, 2);
      __m128i nxt0 = _mm_srli_si128(curr, 2);
      __m128i prev = _mm_insert_epi16(prv0, t1, 0);
      __m128i next = _mm_insert_epi16(nxt0, 3*in_near[i+8] + in_far[i+8], 7);

      // horizontal filter, polyphase implementation since it's convenient:
      // even pixels = 3*cur + prev = cur*4 + (prev - cur)
      // odd  pixels = 3*cur + next = cur*4 + (next - cur)
      // note the shared term.
2977
      __m128i bias  = _mm_set1_epi16(8);
2978 2979 2980 2981 2982 2983 2984 2985 2986 2987 2988 2989 2990 2991 2992 2993
      __m128i curs = _mm_slli_epi16(curr, 2);
      __m128i prvd = _mm_sub_epi16(prev, curr);
      __m128i nxtd = _mm_sub_epi16(next, curr);
      __m128i curb = _mm_add_epi16(curs, bias);
      __m128i even = _mm_add_epi16(prvd, curb);
      __m128i odd  = _mm_add_epi16(nxtd, curb);

      // interleave even and odd pixels, then undo scaling.
      __m128i int0 = _mm_unpacklo_epi16(even, odd);
      __m128i int1 = _mm_unpackhi_epi16(even, odd);
      __m128i de0  = _mm_srli_epi16(int0, 4);
      __m128i de1  = _mm_srli_epi16(int1, 4);

      // pack and write output
      __m128i outv = _mm_packus_epi16(de0, de1);
      _mm_storeu_si128((__m128i *) (out + i*2), outv);
2994 2995 2996 2997 2998 2999 3000 3001 3002 3003 3004 3005 3006 3007 3008 3009 3010 3011 3012 3013 3014 3015 3016 3017 3018 3019 3020 3021 3022 3023 3024 3025 3026 3027 3028
#elif defined(STBI_NEON)
      // load and perform the vertical filtering pass
      // this uses 3*x + y = 4*x + (y - x)
      uint8x8_t farb  = vld1_u8(in_far + i);
      uint8x8_t nearb = vld1_u8(in_near + i);
      int16x8_t diff  = vreinterpretq_s16_u16(vsubl_u8(farb, nearb));
      int16x8_t nears = vreinterpretq_s16_u16(vshll_n_u8(nearb, 2));
      int16x8_t curr  = vaddq_s16(nears, diff); // current row

      // horizontal filter works the same based on shifted vers of current
      // row. "prev" is current row shifted right by 1 pixel; we need to
      // insert the previous pixel value (from t1).
      // "next" is current row shifted left by 1 pixel, with first pixel
      // of next block of 8 pixels added in.
      int16x8_t prv0 = vextq_s16(curr, curr, 7);
      int16x8_t nxt0 = vextq_s16(curr, curr, 1);
      int16x8_t prev = vsetq_lane_s16(t1, prv0, 0);
      int16x8_t next = vsetq_lane_s16(3*in_near[i+8] + in_far[i+8], nxt0, 7);

      // horizontal filter, polyphase implementation since it's convenient:
      // even pixels = 3*cur + prev = cur*4 + (prev - cur)
      // odd  pixels = 3*cur + next = cur*4 + (next - cur)
      // note the shared term.
      int16x8_t curs = vshlq_n_s16(curr, 2);
      int16x8_t prvd = vsubq_s16(prev, curr);
      int16x8_t nxtd = vsubq_s16(next, curr);
      int16x8_t even = vaddq_s16(curs, prvd);
      int16x8_t odd  = vaddq_s16(curs, nxtd);

      // undo scaling and round, then store with even/odd phases interleaved
      uint8x8x2_t o;
      o.val[0] = vqrshrun_n_s16(even, 4);
      o.val[1] = vqrshrun_n_s16(odd,  4);
      vst2_u8(out + i*2, o);
#endif
3029 3030 3031 3032 3033 3034 3035 3036 3037 3038 3039 3040 3041 3042 3043 3044 3045 3046 3047 3048 3049 3050 3051

      // "previous" value for next iter
      t1 = 3*in_near[i+7] + in_far[i+7];
   }

   t0 = t1;
   t1 = 3*in_near[i] + in_far[i];
   out[i*2] = stbi__div16(3*t1 + t0 + 8);

   for (++i; i < w; ++i) {
      t0 = t1;
      t1 = 3*in_near[i]+in_far[i];
      out[i*2-1] = stbi__div16(3*t0 + t1 + 8);
      out[i*2  ] = stbi__div16(3*t1 + t0 + 8);
   }
   out[w*2-1] = stbi__div4(t1+2);

   STBI_NOTUSED(hs);

   return out;
}
#endif

3052
static stbi_uc *stbi__resample_row_generic(stbi_uc *out, stbi_uc *in_near, stbi_uc *in_far, int w, int hs)
3053 3054 3055 3056 3057 3058 3059 3060 3061 3062
{
   // resample with nearest-neighbor
   int i,j;
   STBI_NOTUSED(in_far);
   for (i=0; i < w; ++i)
      for (j=0; j < hs; ++j)
         out[i*hs+j] = in_near[i];
   return out;
}

3063 3064 3065
#ifdef STBI_JPEG_OLD
// this is the same YCbCr-to-RGB calculation that stb_image has used
// historically before the algorithm changes in 1.49
3066
#define float2fixed(x)  ((int) ((x) * 65536 + 0.5))
3067
static void stbi__YCbCr_to_RGB_row(stbi_uc *out, const stbi_uc *y, const stbi_uc *pcb, const stbi_uc *pcr, int count, int step)
3068 3069 3070 3071 3072 3073 3074 3075 3076 3077 3078 3079 3080 3081 3082 3083
{
   int i;
   for (i=0; i < count; ++i) {
      int y_fixed = (y[i] << 16) + 32768; // rounding
      int r,g,b;
      int cr = pcr[i] - 128;
      int cb = pcb[i] - 128;
      r = y_fixed + cr*float2fixed(1.40200f);
      g = y_fixed - cr*float2fixed(0.71414f) - cb*float2fixed(0.34414f);
      b = y_fixed                            + cb*float2fixed(1.77200f);
      r >>= 16;
      g >>= 16;
      b >>= 16;
      if ((unsigned) r > 255) { if (r < 0) r = 0; else r = 255; }
      if ((unsigned) g > 255) { if (g < 0) g = 0; else g = 255; }
      if ((unsigned) b > 255) { if (b < 0) b = 0; else b = 255; }
3084 3085 3086
      out[0] = (stbi_uc)r;
      out[1] = (stbi_uc)g;
      out[2] = (stbi_uc)b;
3087 3088 3089 3090
      out[3] = 255;
      out += step;
   }
}
3091 3092 3093 3094 3095
#else
// this is a reduced-precision calculation of YCbCr-to-RGB introduced
// to make sure the code produces the same results in both SIMD and scalar
#define float2fixed(x)  (((int) ((x) * 4096.0f + 0.5f)) << 8)
static void stbi__YCbCr_to_RGB_row(stbi_uc *out, const stbi_uc *y, const stbi_uc *pcb, const stbi_uc *pcr, int count, int step)
S
VC6:  
Sean Barrett 已提交
3096 3097 3098 3099 3100 3101 3102
{
   int i;
   for (i=0; i < count; ++i) {
      int y_fixed = (y[i] << 20) + (1<<19); // rounding
      int r,g,b;
      int cr = pcr[i] - 128;
      int cb = pcb[i] - 128;
3103 3104 3105
      r = y_fixed +  cr* float2fixed(1.40200f);
      g = y_fixed + (cr*-float2fixed(0.71414f)) + ((cb*-float2fixed(0.34414f)) & 0xffff0000);
      b = y_fixed                               +   cb* float2fixed(1.77200f);
S
VC6:  
Sean Barrett 已提交
3106 3107 3108 3109 3110 3111 3112 3113 3114 3115 3116 3117 3118
      r >>= 20;
      g >>= 20;
      b >>= 20;
      if ((unsigned) r > 255) { if (r < 0) r = 0; else r = 255; }
      if ((unsigned) g > 255) { if (g < 0) g = 0; else g = 255; }
      if ((unsigned) b > 255) { if (b < 0) b = 0; else b = 255; }
      out[0] = (stbi_uc)r;
      out[1] = (stbi_uc)g;
      out[2] = (stbi_uc)b;
      out[3] = 255;
      out += step;
   }
}
3119
#endif
S
VC6:  
Sean Barrett 已提交
3120

F
Fabian Giesen 已提交
3121 3122
#if defined(STBI_SSE2) || defined(STBI_NEON)
static void stbi__YCbCr_to_RGB_simd(stbi_uc *out, stbi_uc const *y, stbi_uc const *pcb, stbi_uc const *pcr, int count, int step)
F
Fabian Giesen 已提交
3123 3124 3125
{
   int i = 0;

F
Fabian Giesen 已提交
3126
#ifdef STBI_SSE2
F
Fabian Giesen 已提交
3127 3128 3129 3130 3131
   // step == 3 is pretty ugly on the final interleave, and i'm not convinced
   // it's useful in practice (you wouldn't use it for textures, for example).
   // so just accelerate step == 4 case.
   if (step == 4) {
      // this is a fairly straightforward implementation and not super-optimized.
3132
      __m128i signflip  = _mm_set1_epi8(-0x80);
S
VC6:  
Sean Barrett 已提交
3133 3134 3135 3136
      __m128i cr_const0 = _mm_set1_epi16(   (short) ( 1.40200f*4096.0f+0.5f));
      __m128i cr_const1 = _mm_set1_epi16( - (short) ( 0.71414f*4096.0f+0.5f));
      __m128i cb_const0 = _mm_set1_epi16( - (short) ( 0.34414f*4096.0f+0.5f));
      __m128i cb_const1 = _mm_set1_epi16(   (short) ( 1.77200f*4096.0f+0.5f));
3137
      __m128i y_bias = _mm_set1_epi8((char) (unsigned char) 128);
S
VC6:  
Sean Barrett 已提交
3138
      __m128i xw = _mm_set1_epi16(255); // alpha channel
F
Fabian Giesen 已提交
3139 3140 3141 3142 3143 3144

      for (; i+7 < count; i += 8) {
         // load
         __m128i y_bytes = _mm_loadl_epi64((__m128i *) (y+i));
         __m128i cr_bytes = _mm_loadl_epi64((__m128i *) (pcr+i));
         __m128i cb_bytes = _mm_loadl_epi64((__m128i *) (pcb+i));
S
VC6:  
Sean Barrett 已提交
3145 3146
         __m128i cr_biased = _mm_xor_si128(cr_bytes, signflip); // -128
         __m128i cb_biased = _mm_xor_si128(cb_bytes, signflip); // -128
F
Fabian Giesen 已提交
3147 3148

         // unpack to short (and left-shift cr, cb by 8)
S
VC6:  
Sean Barrett 已提交
3149 3150 3151
         __m128i yw  = _mm_unpacklo_epi8(y_bias, y_bytes);
         __m128i crw = _mm_unpacklo_epi8(_mm_setzero_si128(), cr_biased);
         __m128i cbw = _mm_unpacklo_epi8(_mm_setzero_si128(), cb_biased);
F
Fabian Giesen 已提交
3152 3153

         // color transform
S
VC6:  
Sean Barrett 已提交
3154
         __m128i yws = _mm_srli_epi16(yw, 4);
F
Fabian Giesen 已提交
3155 3156 3157 3158
         __m128i cr0 = _mm_mulhi_epi16(cr_const0, crw);
         __m128i cb0 = _mm_mulhi_epi16(cb_const0, cbw);
         __m128i cb1 = _mm_mulhi_epi16(cbw, cb_const1);
         __m128i cr1 = _mm_mulhi_epi16(crw, cr_const1);
S
VC6:  
Sean Barrett 已提交
3159 3160 3161
         __m128i rws = _mm_add_epi16(cr0, yws);
         __m128i gwt = _mm_add_epi16(cb0, yws);
         __m128i bws = _mm_add_epi16(yws, cb1);
F
Fabian Giesen 已提交
3162 3163 3164 3165 3166 3167 3168 3169 3170 3171 3172 3173 3174 3175 3176 3177 3178 3179 3180 3181 3182 3183 3184
         __m128i gws = _mm_add_epi16(gwt, cr1);

         // descale
         __m128i rw = _mm_srai_epi16(rws, 4);
         __m128i bw = _mm_srai_epi16(bws, 4);
         __m128i gw = _mm_srai_epi16(gws, 4);

         // back to byte, set up for transpose
         __m128i brb = _mm_packus_epi16(rw, bw);
         __m128i gxb = _mm_packus_epi16(gw, xw);

         // transpose to interleave channels
         __m128i t0 = _mm_unpacklo_epi8(brb, gxb);
         __m128i t1 = _mm_unpackhi_epi8(brb, gxb);
         __m128i o0 = _mm_unpacklo_epi16(t0, t1);
         __m128i o1 = _mm_unpackhi_epi16(t0, t1);

         // store
         _mm_storeu_si128((__m128i *) (out + 0), o0);
         _mm_storeu_si128((__m128i *) (out + 16), o1);
         out += 32;
      }
   }
F
Fabian Giesen 已提交
3185 3186 3187 3188 3189 3190 3191 3192 3193 3194 3195 3196 3197 3198 3199 3200 3201 3202 3203 3204 3205 3206 3207 3208 3209 3210 3211 3212 3213 3214 3215 3216 3217 3218 3219 3220 3221 3222 3223 3224 3225 3226 3227 3228 3229 3230 3231
#endif

#ifdef STBI_NEON
   // in this version, step=3 support would be easy to add. but is there demand?
   if (step == 4) {
      // this is a fairly straightforward implementation and not super-optimized.
      uint8x8_t signflip = vdup_n_u8(0x80);
      int16x8_t cr_const0 = vdupq_n_s16(   (short) ( 1.40200f*4096.0f+0.5f));
      int16x8_t cr_const1 = vdupq_n_s16( - (short) ( 0.71414f*4096.0f+0.5f));
      int16x8_t cb_const0 = vdupq_n_s16( - (short) ( 0.34414f*4096.0f+0.5f));
      int16x8_t cb_const1 = vdupq_n_s16(   (short) ( 1.77200f*4096.0f+0.5f));

      for (; i+7 < count; i += 8) {
         // load
         uint8x8_t y_bytes  = vld1_u8(y + i);
         uint8x8_t cr_bytes = vld1_u8(pcr + i);
         uint8x8_t cb_bytes = vld1_u8(pcb + i);
         int8x8_t cr_biased = vreinterpret_s8_u8(vsub_u8(cr_bytes, signflip));
         int8x8_t cb_biased = vreinterpret_s8_u8(vsub_u8(cb_bytes, signflip));

         // expand to s16
         int16x8_t yws = vreinterpretq_s16_u16(vshll_n_u8(y_bytes, 4));
         int16x8_t crw = vshll_n_s8(cr_biased, 7);
         int16x8_t cbw = vshll_n_s8(cb_biased, 7);

         // color transform
         int16x8_t cr0 = vqdmulhq_s16(crw, cr_const0);
         int16x8_t cb0 = vqdmulhq_s16(cbw, cb_const0);
         int16x8_t cr1 = vqdmulhq_s16(crw, cr_const1);
         int16x8_t cb1 = vqdmulhq_s16(cbw, cb_const1);
         int16x8_t rws = vaddq_s16(yws, cr0);
         int16x8_t gws = vaddq_s16(vaddq_s16(yws, cb0), cr1);
         int16x8_t bws = vaddq_s16(yws, cb1);

         // undo scaling, round, convert to byte
         uint8x8x4_t o;
         o.val[0] = vqrshrun_n_s16(rws, 4);
         o.val[1] = vqrshrun_n_s16(gws, 4);
         o.val[2] = vqrshrun_n_s16(bws, 4);
         o.val[3] = vdup_n_u8(255);

         // store, interleaving r/g/b/a
         vst4_u8(out, o);
         out += 8*4;
      }
   }
#endif
3232

F
Fabian Giesen 已提交
3233
   for (; i < count; ++i) {
3234
      int y_fixed = (y[i] << 20) + (1<<19); // rounding
F
Fabian Giesen 已提交
3235 3236 3237
      int r,g,b;
      int cr = pcr[i] - 128;
      int cb = pcb[i] - 128;
3238 3239 3240 3241 3242 3243
      r = y_fixed + cr* float2fixed(1.40200f);
      g = y_fixed + cr*-float2fixed(0.71414f) + ((cb*-float2fixed(0.34414f)) & 0xffff0000);
      b = y_fixed                             +   cb* float2fixed(1.77200f);
      r >>= 20;
      g >>= 20;
      b >>= 20;
F
Fabian Giesen 已提交
3244 3245 3246 3247 3248 3249 3250 3251 3252
      if ((unsigned) r > 255) { if (r < 0) r = 0; else r = 255; }
      if ((unsigned) g > 255) { if (g < 0) g = 0; else g = 255; }
      if ((unsigned) b > 255) { if (b < 0) b = 0; else b = 255; }
      out[0] = (stbi_uc)r;
      out[1] = (stbi_uc)g;
      out[2] = (stbi_uc)b;
      out[3] = 255;
      out += step;
   }
3253 3254 3255
}
#endif

3256 3257 3258 3259
// set up the kernels
static void stbi__setup_jpeg(stbi__jpeg *j)
{
   j->idct_block_kernel = stbi__idct_block;
F
Fabian Giesen 已提交
3260
   j->YCbCr_to_RGB_kernel = stbi__YCbCr_to_RGB_row;
3261
   j->resample_row_hv_2_kernel = stbi__resample_row_hv_2;
3262 3263 3264

#ifdef STBI_SSE2
   if (stbi__sse2_available()) {
3265
      j->idct_block_kernel = stbi__idct_simd;
3266
      #ifndef STBI_JPEG_OLD
F
Fabian Giesen 已提交
3267
      j->YCbCr_to_RGB_kernel = stbi__YCbCr_to_RGB_simd;
3268
      #endif
3269
      j->resample_row_hv_2_kernel = stbi__resample_row_hv_2_simd;
3270 3271
   }
#endif
3272 3273

#ifdef STBI_NEON
3274
   j->idct_block_kernel = stbi__idct_simd;
S
Sean Barrett 已提交
3275
   #ifndef STBI_JPEG_OLD
F
Fabian Giesen 已提交
3276
   j->YCbCr_to_RGB_kernel = stbi__YCbCr_to_RGB_simd;
S
Sean Barrett 已提交
3277
   #endif
3278 3279
   j->resample_row_hv_2_kernel = stbi__resample_row_hv_2_simd;
#endif
3280
}
3281 3282

// clean up the temporary component buffers
3283
static void stbi__cleanup_jpeg(stbi__jpeg *j)
3284 3285 3286
{
   int i;
   for (i=0; i < j->s->img_n; ++i) {
3287
      if (j->img_comp[i].raw_data) {
S
Sean Barrett 已提交
3288
         STBI_FREE(j->img_comp[i].raw_data);
3289
         j->img_comp[i].raw_data = NULL;
3290 3291
         j->img_comp[i].data = NULL;
      }
S
Sean Barrett 已提交
3292 3293 3294 3295 3296
      if (j->img_comp[i].raw_coeff) {
         STBI_FREE(j->img_comp[i].raw_coeff);
         j->img_comp[i].raw_coeff = 0;
         j->img_comp[i].coeff = 0;
      }
3297
      if (j->img_comp[i].linebuf) {
S
Sean Barrett 已提交
3298
         STBI_FREE(j->img_comp[i].linebuf);
3299 3300 3301 3302 3303 3304 3305 3306
         j->img_comp[i].linebuf = NULL;
      }
   }
}

typedef struct
{
   resample_row_func resample;
3307
   stbi_uc *line0,*line1;
3308
   int hs,vs;   // expansion factor in each axis
S
Sean Barrett 已提交
3309
   int w_lores; // horizontal pixels pre-expansion
3310 3311
   int ystep;   // how far through vertical expansion we are
   int ypos;    // which pre-expansion row we're on
3312
} stbi__resample;
3313

3314
static stbi_uc *load_jpeg_image(stbi__jpeg *z, int *out_x, int *out_y, int *comp, int req_comp)
3315 3316
{
   int n, decode_n;
3317 3318
   z->s->img_n = 0; // make stbi__cleanup_jpeg safe

3319
   // validate req_comp
S
Sean Barrett 已提交
3320
   if (req_comp < 0 || req_comp > 4) return stbi__errpuc("bad req_comp", "Internal error");
3321

S
Sean Barrett 已提交
3322
   // load a jpeg image from whichever source, but leave in YCbCr format
S
Sean Barrett 已提交
3323
   if (!stbi__decode_jpeg_image(z)) { stbi__cleanup_jpeg(z); return NULL; }
3324 3325 3326 3327 3328 3329 3330 3331 3332 3333 3334 3335 3336

   // determine actual number of components to generate
   n = req_comp ? req_comp : z->s->img_n;

   if (z->s->img_n == 3 && n < 3)
      decode_n = 1;
   else
      decode_n = z->s->img_n;

   // resample and color-convert
   {
      int k;
      unsigned int i,j;
3337 3338
      stbi_uc *output;
      stbi_uc *coutput[4];
3339

3340
      stbi__resample res_comp[4];
3341 3342

      for (k=0; k < decode_n; ++k) {
3343
         stbi__resample *r = &res_comp[k];
3344 3345 3346

         // allocate line buffer big enough for upsampling off the edges
         // with upsample factor of 4
3347
         z->img_comp[k].linebuf = (stbi_uc *) stbi__malloc(z->s->img_x + 3);
3348
         if (!z->img_comp[k].linebuf) { stbi__cleanup_jpeg(z); return stbi__errpuc("outofmem", "Out of memory"); }
3349 3350 3351 3352 3353 3354 3355 3356 3357

         r->hs      = z->img_h_max / z->img_comp[k].h;
         r->vs      = z->img_v_max / z->img_comp[k].v;
         r->ystep   = r->vs >> 1;
         r->w_lores = (z->s->img_x + r->hs-1) / r->hs;
         r->ypos    = 0;
         r->line0   = r->line1 = z->img_comp[k].data;

         if      (r->hs == 1 && r->vs == 1) r->resample = resample_row_1;
3358 3359
         else if (r->hs == 1 && r->vs == 2) r->resample = stbi__resample_row_v_2;
         else if (r->hs == 2 && r->vs == 1) r->resample = stbi__resample_row_h_2;
3360
         else if (r->hs == 2 && r->vs == 2) r->resample = z->resample_row_hv_2_kernel;
3361
         else                               r->resample = stbi__resample_row_generic;
3362 3363 3364
      }

      // can't error after this so, this is safe
3365
      output = (stbi_uc *) stbi__malloc(n * z->s->img_x * z->s->img_y + 1);
3366
      if (!output) { stbi__cleanup_jpeg(z); return stbi__errpuc("outofmem", "Out of memory"); }
3367 3368 3369

      // now go ahead and resample
      for (j=0; j < z->s->img_y; ++j) {
3370
         stbi_uc *out = output + n * z->s->img_x * j;
3371
         for (k=0; k < decode_n; ++k) {
3372
            stbi__resample *r = &res_comp[k];
3373 3374 3375 3376 3377 3378 3379 3380 3381 3382 3383 3384 3385
            int y_bot = r->ystep >= (r->vs >> 1);
            coutput[k] = r->resample(z->img_comp[k].linebuf,
                                     y_bot ? r->line1 : r->line0,
                                     y_bot ? r->line0 : r->line1,
                                     r->w_lores, r->hs);
            if (++r->ystep >= r->vs) {
               r->ystep = 0;
               r->line0 = r->line1;
               if (++r->ypos < z->img_comp[k].y)
                  r->line1 += z->img_comp[k].w2;
            }
         }
         if (n >= 3) {
3386
            stbi_uc *y = coutput[0];
3387
            if (z->s->img_n == 3) {
F
Fabian Giesen 已提交
3388
               z->YCbCr_to_RGB_kernel(out, y, coutput[1], coutput[2], z->s->img_x, n);
3389 3390 3391 3392 3393 3394 3395
            } else
               for (i=0; i < z->s->img_x; ++i) {
                  out[0] = out[1] = out[2] = y[i];
                  out[3] = 255; // not used if n==3
                  out += n;
               }
         } else {
3396
            stbi_uc *y = coutput[0];
3397 3398 3399 3400 3401 3402
            if (n == 1)
               for (i=0; i < z->s->img_x; ++i) out[i] = y[i];
            else
               for (i=0; i < z->s->img_x; ++i) *out++ = y[i], *out++ = 255;
         }
      }
3403
      stbi__cleanup_jpeg(z);
3404 3405 3406 3407 3408 3409 3410
      *out_x = z->s->img_x;
      *out_y = z->s->img_y;
      if (comp) *comp  = z->s->img_n; // report original components, not output
      return output;
   }
}

S
Sean Barrett 已提交
3411
static unsigned char *stbi__jpeg_load(stbi__context *s, int *x, int *y, int *comp, int req_comp)
3412
{
3413
   stbi__jpeg j;
3414
   j.s = s;
3415
   stbi__setup_jpeg(&j);
3416 3417 3418
   return load_jpeg_image(&j, x,y,comp,req_comp);
}

S
Sean Barrett 已提交
3419
static int stbi__jpeg_test(stbi__context *s)
3420 3421
{
   int r;
3422
   stbi__jpeg j;
3423
   j.s = s;
3424
   stbi__setup_jpeg(&j);
3425
   r = stbi__decode_jpeg_header(&j, STBI__SCAN_type);
3426
   stbi__rewind(s);
3427 3428 3429
   return r;
}

3430
static int stbi__jpeg_info_raw(stbi__jpeg *j, int *x, int *y, int *comp)
3431
{
3432
   if (!stbi__decode_jpeg_header(j, STBI__SCAN_header)) {
3433
      stbi__rewind( j->s );
3434 3435 3436 3437 3438 3439 3440 3441
      return 0;
   }
   if (x) *x = j->s->img_x;
   if (y) *y = j->s->img_y;
   if (comp) *comp = j->s->img_n;
   return 1;
}

S
Sean Barrett 已提交
3442
static int stbi__jpeg_info(stbi__context *s, int *x, int *y, int *comp)
3443
{
3444
   stbi__jpeg j;
3445
   j.s = s;
3446
   return stbi__jpeg_info_raw(&j, x, y, comp);
3447
}
3448
#endif
3449

3450
// public domain zlib decode    v0.2  Sean Barrett 2006-11-18
3451 3452 3453 3454 3455 3456
//    simple implementation
//      - all input must be provided in an upfront buffer
//      - all output is written to a single output buffer (can malloc/realloc)
//    performance
//      - fast huffman

3457 3458
#ifndef STBI_NO_ZLIB

3459
// fast-way is faster to check than jpeg huffman, but slow way is slower
3460 3461
#define STBI__ZFAST_BITS  9 // accelerate all cases in default tables
#define STBI__ZFAST_MASK  ((1 << STBI__ZFAST_BITS) - 1)
3462 3463 3464 3465 3466

// zlib-style huffman encoding
// (jpegs packs from left, zlib from right, so can't share code)
typedef struct
{
3467
   stbi__uint16 fast[1 << STBI__ZFAST_BITS];
3468 3469 3470
   stbi__uint16 firstcode[16];
   int maxcode[17];
   stbi__uint16 firstsymbol[16];
3471
   stbi_uc  size[288];
S
Sean Barrett 已提交
3472
   stbi__uint16 value[288];
3473
} stbi__zhuffman;
3474

3475
stbi_inline static int stbi__bitreverse16(int n)
3476 3477 3478 3479 3480 3481 3482 3483
{
  n = ((n & 0xAAAA) >>  1) | ((n & 0x5555) << 1);
  n = ((n & 0xCCCC) >>  2) | ((n & 0x3333) << 2);
  n = ((n & 0xF0F0) >>  4) | ((n & 0x0F0F) << 4);
  n = ((n & 0xFF00) >>  8) | ((n & 0x00FF) << 8);
  return n;
}

3484
stbi_inline static int stbi__bit_reverse(int v, int bits)
3485
{
S
Sean Barrett 已提交
3486
   STBI_ASSERT(bits <= 16);
3487
   // to bit reverse n bits, reverse 16 and shift
T
Tero Hänninen 已提交
3488
   // e.g. 11 bits, bit reverse and shift away 5
3489
   return stbi__bitreverse16(v) >> (16-bits);
3490 3491
}

3492
static int stbi__zbuild_huffman(stbi__zhuffman *z, stbi_uc *sizelist, int num)
3493 3494 3495 3496 3497 3498
{
   int i,k=0;
   int code, next_code[16], sizes[17];

   // DEFLATE spec for generating codes
   memset(sizes, 0, sizeof(sizes));
3499
   memset(z->fast, 0, sizeof(z->fast));
S
Sean Barrett 已提交
3500
   for (i=0; i < num; ++i)
3501 3502
      ++sizes[sizelist[i]];
   sizes[0] = 0;
3503 3504 3505
   for (i=1; i < 16; ++i)
      if (sizes[i] > (1 << i))
         return stbi__err("bad sizes", "Corrupt PNG");
3506 3507 3508 3509 3510 3511 3512
   code = 0;
   for (i=1; i < 16; ++i) {
      next_code[i] = code;
      z->firstcode[i] = (stbi__uint16) code;
      z->firstsymbol[i] = (stbi__uint16) k;
      code = (code + sizes[i]);
      if (sizes[i])
3513
         if (code-1 >= (1 << i)) return stbi__err("bad codelengths","Corrupt PNG");
3514 3515 3516 3517 3518 3519 3520 3521 3522
      z->maxcode[i] = code << (16-i); // preshift for inner loop
      code <<= 1;
      k += sizes[i];
   }
   z->maxcode[16] = 0x10000; // sentinel
   for (i=0; i < num; ++i) {
      int s = sizelist[i];
      if (s) {
         int c = next_code[s] - z->firstcode[s] + z->firstsymbol[s];
3523
         stbi__uint16 fastv = (stbi__uint16) ((s << 9) | i);
3524 3525
         z->size [c] = (stbi_uc     ) s;
         z->value[c] = (stbi__uint16) i;
3526
         if (s <= STBI__ZFAST_BITS) {
S
Sean Barrett 已提交
3527 3528 3529 3530
            int j = stbi__bit_reverse(next_code[s],s);
            while (j < (1 << STBI__ZFAST_BITS)) {
               z->fast[j] = fastv;
               j += (1 << s);
3531 3532 3533 3534 3535 3536 3537 3538 3539 3540 3541 3542 3543 3544 3545 3546
            }
         }
         ++next_code[s];
      }
   }
   return 1;
}

// zlib-from-memory implementation for PNG reading
//    because PNG allows splitting the zlib stream arbitrarily,
//    and it's annoying structurally to have PNG call ZLIB call PNG,
//    we require PNG read all the IDATs and combine them into a single
//    memory buffer

typedef struct
{
3547
   stbi_uc *zbuffer, *zbuffer_end;
3548 3549 3550 3551 3552 3553 3554 3555
   int num_bits;
   stbi__uint32 code_buffer;

   char *zout;
   char *zout_start;
   char *zout_end;
   int   z_expandable;

3556 3557
   stbi__zhuffman z_length, z_distance;
} stbi__zbuf;
3558

3559
stbi_inline static stbi_uc stbi__zget8(stbi__zbuf *z)
3560 3561 3562 3563 3564
{
   if (z->zbuffer >= z->zbuffer_end) return 0;
   return *z->zbuffer++;
}

3565
static void stbi__fill_bits(stbi__zbuf *z)
3566 3567
{
   do {
S
Sean Barrett 已提交
3568
      STBI_ASSERT(z->code_buffer < (1U << z->num_bits));
3569
      z->code_buffer |= (unsigned int) stbi__zget8(z) << z->num_bits;
3570 3571 3572 3573
      z->num_bits += 8;
   } while (z->num_bits <= 24);
}

3574
stbi_inline static unsigned int stbi__zreceive(stbi__zbuf *z, int n)
3575 3576
{
   unsigned int k;
3577
   if (z->num_bits < n) stbi__fill_bits(z);
3578 3579 3580
   k = z->code_buffer & ((1 << n) - 1);
   z->code_buffer >>= n;
   z->num_bits -= n;
S
Sean Barrett 已提交
3581
   return k;
3582 3583
}

3584
static int stbi__zhuffman_decode_slowpath(stbi__zbuf *a, stbi__zhuffman *z)
3585 3586 3587 3588
{
   int b,s,k;
   // not resolved by fast table, so compute it the slow way
   // use jpeg approach, which requires MSbits at top
3589 3590
   k = stbi__bit_reverse(a->code_buffer, 16);
   for (s=STBI__ZFAST_BITS+1; ; ++s)
3591 3592 3593 3594 3595
      if (k < z->maxcode[s])
         break;
   if (s == 16) return -1; // invalid code!
   // code size is s, so:
   b = (k >> (16-s)) - z->firstcode[s] + z->firstsymbol[s];
S
Sean Barrett 已提交
3596
   STBI_ASSERT(z->size[b] == s);
3597 3598 3599 3600 3601
   a->code_buffer >>= s;
   a->num_bits -= s;
   return z->value[b];
}

3602 3603 3604 3605 3606
stbi_inline static int stbi__zhuffman_decode(stbi__zbuf *a, stbi__zhuffman *z)
{
   int b,s;
   if (a->num_bits < 16) stbi__fill_bits(a);
   b = z->fast[a->code_buffer & STBI__ZFAST_MASK];
3607 3608
   if (b) {
      s = b >> 9;
3609 3610
      a->code_buffer >>= s;
      a->num_bits -= s;
3611
      return b & 511;
3612 3613 3614 3615
   }
   return stbi__zhuffman_decode_slowpath(a, z);
}

3616
static int stbi__zexpand(stbi__zbuf *z, char *zout, int n)  // need to make room for n bytes
3617 3618 3619
{
   char *q;
   int cur, limit;
3620
   z->zout = zout;
S
Sean Barrett 已提交
3621
   if (!z->z_expandable) return stbi__err("output buffer limit","Corrupt PNG");
3622 3623 3624 3625
   cur   = (int) (z->zout     - z->zout_start);
   limit = (int) (z->zout_end - z->zout_start);
   while (cur + n > limit)
      limit *= 2;
S
Sean Barrett 已提交
3626
   q = (char *) STBI_REALLOC(z->zout_start, limit);
S
Sean Barrett 已提交
3627
   if (q == NULL) return stbi__err("outofmem", "Out of memory");
3628 3629 3630 3631 3632 3633
   z->zout_start = q;
   z->zout       = q + cur;
   z->zout_end   = q + limit;
   return 1;
}

3634
static int stbi__zlength_base[31] = {
3635 3636 3637 3638
   3,4,5,6,7,8,9,10,11,13,
   15,17,19,23,27,31,35,43,51,59,
   67,83,99,115,131,163,195,227,258,0,0 };

S
Sean Barrett 已提交
3639
static int stbi__zlength_extra[31]=
3640 3641
{ 0,0,0,0,0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,0,0,0 };

3642
static int stbi__zdist_base[32] = { 1,2,3,4,5,7,9,13,17,25,33,49,65,97,129,193,
3643 3644
257,385,513,769,1025,1537,2049,3073,4097,6145,8193,12289,16385,24577,0,0};

3645
static int stbi__zdist_extra[32] =
3646 3647
{ 0,0,0,0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10,11,11,12,12,13,13};

3648
static int stbi__parse_huffman_block(stbi__zbuf *a)
3649
{
3650
   char *zout = a->zout;
3651
   for(;;) {
3652
      int z = stbi__zhuffman_decode(a, &a->z_length);
3653
      if (z < 256) {
S
Sean Barrett 已提交
3654
         if (z < 0) return stbi__err("bad huffman code","Corrupt PNG"); // error in huffman codes
3655 3656 3657 3658 3659
         if (zout >= a->zout_end) {
            if (!stbi__zexpand(a, zout, 1)) return 0;
            zout = a->zout;
         }
         *zout++ = (char) z;
3660
      } else {
3661
         stbi_uc *p;
3662
         int len,dist;
3663 3664 3665 3666
         if (z == 256) {
            a->zout = zout;
            return 1;
         }
3667
         z -= 257;
3668 3669 3670
         len = stbi__zlength_base[z];
         if (stbi__zlength_extra[z]) len += stbi__zreceive(a, stbi__zlength_extra[z]);
         z = stbi__zhuffman_decode(a, &a->z_distance);
S
Sean Barrett 已提交
3671
         if (z < 0) return stbi__err("bad huffman code","Corrupt PNG");
3672 3673
         dist = stbi__zdist_base[z];
         if (stbi__zdist_extra[z]) dist += stbi__zreceive(a, stbi__zdist_extra[z]);
3674 3675 3676 3677 3678 3679
         if (zout - a->zout_start < dist) return stbi__err("bad dist","Corrupt PNG");
         if (zout + len > a->zout_end) {
            if (!stbi__zexpand(a, zout, len)) return 0;
            zout = a->zout;
         }
         p = (stbi_uc *) (zout - dist);
3680 3681
         if (dist == 1) { // run of one byte; common in images.
            stbi_uc v = *p;
3682
            if (len) { do *zout++ = v; while (--len); }
3683
         } else {
3684
            if (len) { do *zout++ = *p++; while (--len); }
3685
         }
3686 3687 3688 3689
      }
   }
}

3690
static int stbi__compute_huffman_codes(stbi__zbuf *a)
3691
{
3692
   static stbi_uc length_dezigzag[19] = { 16,17,18,0,8,7,9,6,10,5,11,4,12,3,13,2,14,1,15 };
3693
   stbi__zhuffman z_codelength;
3694 3695
   stbi_uc lencodes[286+32+137];//padding for maximum single op
   stbi_uc codelength_sizes[19];
3696 3697
   int i,n;

3698 3699 3700
   int hlit  = stbi__zreceive(a,5) + 257;
   int hdist = stbi__zreceive(a,5) + 1;
   int hclen = stbi__zreceive(a,4) + 4;
3701 3702 3703

   memset(codelength_sizes, 0, sizeof(codelength_sizes));
   for (i=0; i < hclen; ++i) {
3704
      int s = stbi__zreceive(a,3);
3705
      codelength_sizes[length_dezigzag[i]] = (stbi_uc) s;
3706
   }
3707
   if (!stbi__zbuild_huffman(&z_codelength, codelength_sizes, 19)) return 0;
3708 3709 3710

   n = 0;
   while (n < hlit + hdist) {
3711
      int c = stbi__zhuffman_decode(a, &z_codelength);
3712
      if (c < 0 || c >= 19) return stbi__err("bad codelengths", "Corrupt PNG");
3713
      if (c < 16)
3714
         lencodes[n++] = (stbi_uc) c;
3715
      else if (c == 16) {
3716
         c = stbi__zreceive(a,2)+3;
3717 3718 3719
         memset(lencodes+n, lencodes[n-1], c);
         n += c;
      } else if (c == 17) {
3720
         c = stbi__zreceive(a,3)+3;
3721 3722 3723
         memset(lencodes+n, 0, c);
         n += c;
      } else {
S
Sean Barrett 已提交
3724
         STBI_ASSERT(c == 18);
3725
         c = stbi__zreceive(a,7)+11;
3726 3727 3728 3729
         memset(lencodes+n, 0, c);
         n += c;
      }
   }
S
Sean Barrett 已提交
3730
   if (n != hlit+hdist) return stbi__err("bad codelengths","Corrupt PNG");
3731 3732
   if (!stbi__zbuild_huffman(&a->z_length, lencodes, hlit)) return 0;
   if (!stbi__zbuild_huffman(&a->z_distance, lencodes+hlit, hdist)) return 0;
3733 3734 3735
   return 1;
}

3736
static int stbi__parse_uncomperssed_block(stbi__zbuf *a)
3737
{
3738
   stbi_uc header[4];
3739 3740
   int len,nlen,k;
   if (a->num_bits & 7)
3741
      stbi__zreceive(a, a->num_bits & 7); // discard
3742 3743 3744
   // drain the bit-packed data into header
   k = 0;
   while (a->num_bits > 0) {
3745
      header[k++] = (stbi_uc) (a->code_buffer & 255); // suppress MSVC run-time check
3746 3747 3748
      a->code_buffer >>= 8;
      a->num_bits -= 8;
   }
S
Sean Barrett 已提交
3749
   STBI_ASSERT(a->num_bits == 0);
3750 3751
   // now fill header the normal way
   while (k < 4)
3752
      header[k++] = stbi__zget8(a);
3753 3754
   len  = header[1] * 256 + header[0];
   nlen = header[3] * 256 + header[2];
S
Sean Barrett 已提交
3755 3756
   if (nlen != (len ^ 0xffff)) return stbi__err("zlib corrupt","Corrupt PNG");
   if (a->zbuffer + len > a->zbuffer_end) return stbi__err("read past buffer","Corrupt PNG");
3757
   if (a->zout + len > a->zout_end)
3758
      if (!stbi__zexpand(a, a->zout, len)) return 0;
3759 3760 3761 3762 3763 3764
   memcpy(a->zout, a->zbuffer, len);
   a->zbuffer += len;
   a->zout += len;
   return 1;
}

3765
static int stbi__parse_zlib_header(stbi__zbuf *a)
3766
{
3767
   int cmf   = stbi__zget8(a);
3768 3769
   int cm    = cmf & 15;
   /* int cinfo = cmf >> 4; */
3770
   int flg   = stbi__zget8(a);
S
Sean Barrett 已提交
3771 3772 3773
   if ((cmf*256+flg) % 31 != 0) return stbi__err("bad zlib header","Corrupt PNG"); // zlib spec
   if (flg & 32) return stbi__err("no preset dict","Corrupt PNG"); // preset dictionary not allowed in png
   if (cm != 8) return stbi__err("bad compression","Corrupt PNG"); // DEFLATE required for png
3774 3775 3776 3777 3778
   // window = 1 << (8 + cinfo)... but who cares, we fully buffer output
   return 1;
}

// @TODO: should statically initialize these for optimal thread safety
3779
static stbi_uc stbi__zdefault_length[288], stbi__zdefault_distance[32];
3780
static void stbi__init_zdefaults(void)
3781 3782
{
   int i;   // use <= to match clearly with spec
3783 3784 3785 3786
   for (i=0; i <= 143; ++i)     stbi__zdefault_length[i]   = 8;
   for (   ; i <= 255; ++i)     stbi__zdefault_length[i]   = 9;
   for (   ; i <= 279; ++i)     stbi__zdefault_length[i]   = 7;
   for (   ; i <= 287; ++i)     stbi__zdefault_length[i]   = 8;
3787

3788
   for (i=0; i <=  31; ++i)     stbi__zdefault_distance[i] = 5;
3789 3790
}

3791
static int stbi__parse_zlib(stbi__zbuf *a, int parse_header)
3792 3793 3794
{
   int final, type;
   if (parse_header)
3795
      if (!stbi__parse_zlib_header(a)) return 0;
3796 3797 3798
   a->num_bits = 0;
   a->code_buffer = 0;
   do {
3799 3800
      final = stbi__zreceive(a,1);
      type = stbi__zreceive(a,2);
3801
      if (type == 0) {
3802
         if (!stbi__parse_uncomperssed_block(a)) return 0;
3803 3804 3805 3806 3807
      } else if (type == 3) {
         return 0;
      } else {
         if (type == 1) {
            // use fixed code lengths
3808 3809 3810
            if (!stbi__zdefault_distance[31]) stbi__init_zdefaults();
            if (!stbi__zbuild_huffman(&a->z_length  , stbi__zdefault_length  , 288)) return 0;
            if (!stbi__zbuild_huffman(&a->z_distance, stbi__zdefault_distance,  32)) return 0;
3811
         } else {
3812
            if (!stbi__compute_huffman_codes(a)) return 0;
3813
         }
3814
         if (!stbi__parse_huffman_block(a)) return 0;
3815 3816 3817 3818 3819
      }
   } while (!final);
   return 1;
}

3820
static int stbi__do_zlib(stbi__zbuf *a, char *obuf, int olen, int exp, int parse_header)
3821 3822 3823 3824 3825 3826
{
   a->zout_start = obuf;
   a->zout       = obuf;
   a->zout_end   = obuf + olen;
   a->z_expandable = exp;

3827
   return stbi__parse_zlib(a, parse_header);
3828 3829 3830 3831
}

STBIDEF char *stbi_zlib_decode_malloc_guesssize(const char *buffer, int len, int initial_size, int *outlen)
{
3832
   stbi__zbuf a;
3833
   char *p = (char *) stbi__malloc(initial_size);
3834
   if (p == NULL) return NULL;
3835 3836
   a.zbuffer = (stbi_uc *) buffer;
   a.zbuffer_end = (stbi_uc *) buffer + len;
3837
   if (stbi__do_zlib(&a, p, initial_size, 1, 1)) {
3838 3839 3840
      if (outlen) *outlen = (int) (a.zout - a.zout_start);
      return a.zout_start;
   } else {
S
Sean Barrett 已提交
3841
      STBI_FREE(a.zout_start);
3842 3843 3844 3845 3846 3847 3848 3849 3850 3851 3852
      return NULL;
   }
}

STBIDEF char *stbi_zlib_decode_malloc(char const *buffer, int len, int *outlen)
{
   return stbi_zlib_decode_malloc_guesssize(buffer, len, 16384, outlen);
}

STBIDEF char *stbi_zlib_decode_malloc_guesssize_headerflag(const char *buffer, int len, int initial_size, int *outlen, int parse_header)
{
3853
   stbi__zbuf a;
3854
   char *p = (char *) stbi__malloc(initial_size);
3855
   if (p == NULL) return NULL;
3856 3857
   a.zbuffer = (stbi_uc *) buffer;
   a.zbuffer_end = (stbi_uc *) buffer + len;
3858
   if (stbi__do_zlib(&a, p, initial_size, 1, parse_header)) {
3859 3860 3861
      if (outlen) *outlen = (int) (a.zout - a.zout_start);
      return a.zout_start;
   } else {
S
Sean Barrett 已提交
3862
      STBI_FREE(a.zout_start);
3863 3864 3865 3866 3867 3868
      return NULL;
   }
}

STBIDEF int stbi_zlib_decode_buffer(char *obuffer, int olen, char const *ibuffer, int ilen)
{
3869
   stbi__zbuf a;
3870 3871
   a.zbuffer = (stbi_uc *) ibuffer;
   a.zbuffer_end = (stbi_uc *) ibuffer + ilen;
3872
   if (stbi__do_zlib(&a, obuffer, olen, 0, 1))
3873 3874 3875 3876 3877 3878 3879
      return (int) (a.zout - a.zout_start);
   else
      return -1;
}

STBIDEF char *stbi_zlib_decode_noheader_malloc(char const *buffer, int len, int *outlen)
{
3880
   stbi__zbuf a;
3881
   char *p = (char *) stbi__malloc(16384);
3882
   if (p == NULL) return NULL;
3883 3884
   a.zbuffer = (stbi_uc *) buffer;
   a.zbuffer_end = (stbi_uc *) buffer+len;
3885
   if (stbi__do_zlib(&a, p, 16384, 1, 0)) {
3886 3887 3888
      if (outlen) *outlen = (int) (a.zout - a.zout_start);
      return a.zout_start;
   } else {
S
Sean Barrett 已提交
3889
      STBI_FREE(a.zout_start);
3890 3891 3892 3893 3894 3895
      return NULL;
   }
}

STBIDEF int stbi_zlib_decode_noheader_buffer(char *obuffer, int olen, const char *ibuffer, int ilen)
{
3896
   stbi__zbuf a;
3897 3898
   a.zbuffer = (stbi_uc *) ibuffer;
   a.zbuffer_end = (stbi_uc *) ibuffer + ilen;
3899
   if (stbi__do_zlib(&a, obuffer, olen, 0, 0))
3900 3901 3902 3903
      return (int) (a.zout - a.zout_start);
   else
      return -1;
}
3904
#endif
3905 3906 3907 3908 3909 3910 3911 3912 3913 3914 3915

// public domain "baseline" PNG decoder   v0.10  Sean Barrett 2006-11-18
//    simple implementation
//      - only 8-bit samples
//      - no CRC checking
//      - allocates lots of intermediate memory
//        - avoids problem of streaming data between subsystems
//        - avoids explicit window management
//    performance
//      - uses stb_zlib, a PD zlib implementation with fast huffman decoding

3916
#ifndef STBI_NO_PNG
3917 3918 3919 3920
typedef struct
{
   stbi__uint32 length;
   stbi__uint32 type;
3921
} stbi__pngchunk;
3922

3923
static stbi__pngchunk stbi__get_chunk_header(stbi__context *s)
3924
{
3925
   stbi__pngchunk c;
3926 3927
   c.length = stbi__get32be(s);
   c.type   = stbi__get32be(s);
3928 3929 3930
   return c;
}

3931
static int stbi__check_png_header(stbi__context *s)
3932
{
3933
   static stbi_uc png_sig[8] = { 137,80,78,71,13,10,26,10 };
3934 3935
   int i;
   for (i=0; i < 8; ++i)
3936
      if (stbi__get8(s) != png_sig[i]) return stbi__err("bad png sig","Not a PNG");
3937 3938 3939 3940 3941
   return 1;
}

typedef struct
{
S
Sean Barrett 已提交
3942
   stbi__context *s;
3943
   stbi_uc *idata, *expanded, *out;
3944
} stbi__png;
3945 3946 3947


enum {
3948 3949 3950 3951 3952 3953 3954 3955
   STBI__F_none=0,
   STBI__F_sub=1,
   STBI__F_up=2,
   STBI__F_avg=3,
   STBI__F_paeth=4,
   // synthetic filters used for first scanline to avoid needing a dummy row of 0s
   STBI__F_avg_first,
   STBI__F_paeth_first
3956 3957
};

3958
static stbi_uc first_row_filter[5] =
3959
{
3960 3961 3962 3963 3964
   STBI__F_none,
   STBI__F_sub,
   STBI__F_none,
   STBI__F_avg_first,
   STBI__F_paeth_first
3965 3966
};

3967
static int stbi__paeth(int a, int b, int c)
3968 3969 3970 3971 3972 3973 3974 3975 3976 3977
{
   int p = a + b - c;
   int pa = abs(p-a);
   int pb = abs(p-b);
   int pc = abs(p-c);
   if (pa <= pb && pa <= pc) return a;
   if (pb <= pc) return b;
   return c;
}

3978 3979
static stbi_uc stbi__depth_scale_table[9] = { 0, 0xff, 0x55, 0, 0x11, 0,0,0, 0x01 };

3980
// create the png data from post-deflated data
3981
static int stbi__create_png_image_raw(stbi__png *a, stbi_uc *raw, stbi__uint32 raw_len, int out_n, stbi__uint32 x, stbi__uint32 y, int depth, int color)
3982
{
S
Sean Barrett 已提交
3983
   stbi__context *s = a->s;
3984
   stbi__uint32 i,j,stride = x*out_n;
3985
   stbi__uint32 img_len, img_width_bytes;
3986 3987
   int k;
   int img_n = s->img_n; // copy it into a local for later
O
ocornut 已提交
3988

S
Sean Barrett 已提交
3989
   STBI_ASSERT(out_n == s->img_n || out_n == s->img_n+1);
3990
   a->out = (stbi_uc *) stbi__malloc(x * y * out_n); // extra bytes to write off the end into
S
Sean Barrett 已提交
3991
   if (!a->out) return stbi__err("outofmem", "Out of memory");
O
ocornut 已提交
3992

3993 3994
   img_width_bytes = (((img_n * x * depth) + 7) >> 3);
   img_len = (img_width_bytes + 1) * y;
3995
   if (s->img_x == x && s->img_y == y) {
O
ocornut 已提交
3996
      if (raw_len != img_len) return stbi__err("not enough pixels","Corrupt PNG");
3997
   } else { // interlaced:
O
ocornut 已提交
3998
      if (raw_len < img_len) return stbi__err("not enough pixels","Corrupt PNG");
3999
   }
O
ocornut 已提交
4000

4001
   for (j=0; j < y; ++j) {
4002 4003
      stbi_uc *cur = a->out + stride*j;
      stbi_uc *prior = cur - stride;
4004
      int filter = *raw++;
4005 4006 4007
      int filter_bytes = img_n;
      int width = x;
      if (filter > 4)
4008 4009
         return stbi__err("invalid filter","Corrupt PNG");

4010
      if (depth < 8) {
4011
         STBI_ASSERT(img_width_bytes <= x);
4012 4013 4014
         cur += x*out_n - img_width_bytes; // store output to the rightmost img_len bytes, so we can decode in place
         filter_bytes = 1;
         width = img_width_bytes;
4015
      }
4016

4017 4018
      // if first row, use special filter that doesn't sample previous row
      if (j == 0) filter = first_row_filter[filter];
O
ocornut 已提交
4019

4020 4021
      // handle first byte explicitly
      for (k=0; k < filter_bytes; ++k) {
4022
         switch (filter) {
4023 4024 4025 4026 4027 4028 4029
            case STBI__F_none       : cur[k] = raw[k]; break;
            case STBI__F_sub        : cur[k] = raw[k]; break;
            case STBI__F_up         : cur[k] = STBI__BYTECAST(raw[k] + prior[k]); break;
            case STBI__F_avg        : cur[k] = STBI__BYTECAST(raw[k] + (prior[k]>>1)); break;
            case STBI__F_paeth      : cur[k] = STBI__BYTECAST(raw[k] + stbi__paeth(0,prior[k],0)); break;
            case STBI__F_avg_first  : cur[k] = raw[k]; break;
            case STBI__F_paeth_first: cur[k] = raw[k]; break;
4030 4031
         }
      }
4032 4033 4034 4035 4036 4037 4038 4039 4040 4041 4042 4043 4044

      if (depth == 8) {
         if (img_n != out_n)
            cur[img_n] = 255; // first pixel
         raw += img_n;
         cur += out_n;
         prior += out_n;
      } else {
         raw += 1;
         cur += 1;
         prior += 1;
      }

4045
      // this is a little gross, so that we don't switch per-pixel or per-component
4046
      if (depth < 8 || img_n == out_n) {
4047
         int nk = (width - 1)*img_n;
4048 4049
         #define CASE(f) \
             case f:     \
4050
                for (k=0; k < nk; ++k)
4051
         switch (filter) {
4052 4053
            // "none" filter turns into a memcpy here; make that explicit.
            case STBI__F_none:         memcpy(cur, raw, nk); break;
4054 4055 4056 4057 4058 4059
            CASE(STBI__F_sub)          cur[k] = STBI__BYTECAST(raw[k] + cur[k-filter_bytes]); break;
            CASE(STBI__F_up)           cur[k] = STBI__BYTECAST(raw[k] + prior[k]); break;
            CASE(STBI__F_avg)          cur[k] = STBI__BYTECAST(raw[k] + ((prior[k] + cur[k-filter_bytes])>>1)); break;
            CASE(STBI__F_paeth)        cur[k] = STBI__BYTECAST(raw[k] + stbi__paeth(cur[k-filter_bytes],prior[k],prior[k-filter_bytes])); break;
            CASE(STBI__F_avg_first)    cur[k] = STBI__BYTECAST(raw[k] + (cur[k-filter_bytes] >> 1)); break;
            CASE(STBI__F_paeth_first)  cur[k] = STBI__BYTECAST(raw[k] + stbi__paeth(cur[k-filter_bytes],0,0)); break;
4060 4061
         }
         #undef CASE
4062
         raw += nk;
4063
      } else {
S
Sean Barrett 已提交
4064
         STBI_ASSERT(img_n+1 == out_n);
4065 4066
         #define CASE(f) \
             case f:     \
4067
                for (i=x-1; i >= 1; --i, cur[img_n]=255,raw+=img_n,cur+=out_n,prior+=out_n) \
4068
                   for (k=0; k < img_n; ++k)
4069
         switch (filter) {
4070 4071 4072 4073 4074 4075 4076
            CASE(STBI__F_none)         cur[k] = raw[k]; break;
            CASE(STBI__F_sub)          cur[k] = STBI__BYTECAST(raw[k] + cur[k-out_n]); break;
            CASE(STBI__F_up)           cur[k] = STBI__BYTECAST(raw[k] + prior[k]); break;
            CASE(STBI__F_avg)          cur[k] = STBI__BYTECAST(raw[k] + ((prior[k] + cur[k-out_n])>>1)); break;
            CASE(STBI__F_paeth)        cur[k] = STBI__BYTECAST(raw[k] + stbi__paeth(cur[k-out_n],prior[k],prior[k-out_n])); break;
            CASE(STBI__F_avg_first)    cur[k] = STBI__BYTECAST(raw[k] + (cur[k-out_n] >> 1)); break;
            CASE(STBI__F_paeth_first)  cur[k] = STBI__BYTECAST(raw[k] + stbi__paeth(cur[k-out_n],0,0)); break;
4077 4078 4079 4080
         }
         #undef CASE
      }
   }
4081

4082 4083 4084 4085 4086 4087 4088 4089 4090 4091 4092 4093 4094 4095 4096 4097 4098 4099 4100 4101 4102 4103 4104 4105 4106 4107 4108 4109 4110 4111 4112 4113 4114 4115 4116 4117 4118 4119 4120 4121 4122 4123 4124 4125 4126 4127 4128 4129 4130 4131 4132 4133 4134
   // we make a separate pass to expand bits to pixels; for performance,
   // this could run two scanlines behind the above code, so it won't
   // intefere with filtering but will still be in the cache.
   if (depth < 8) {
      for (j=0; j < y; ++j) {
         stbi_uc *cur = a->out + stride*j;
         stbi_uc *in  = a->out + stride*j + x*out_n - img_width_bytes;
         // unpack 1/2/4-bit into a 8-bit buffer. allows us to keep the common 8-bit path optimal at minimal cost for 1/2/4-bit
         // png guarante byte alignment, if width is not multiple of 8/4/2 we'll decode dummy trailing data that will be skipped in the later loop
         stbi_uc scale = (color == 0) ? stbi__depth_scale_table[depth] : 1; // scale grayscale values to 0..255 range

         // note that the final byte might overshoot and write more data than desired.
         // we can allocate enough data that this never writes out of memory, but it
         // could also overwrite the next scanline. can it overwrite non-empty data
         // on the next scanline? yes, consider 1-pixel-wide scanlines with 1-bit-per-pixel.
         // so we need to explicitly clamp the final ones

         if (depth == 4) {
            for (k=x*img_n; k >= 2; k-=2, ++in) {
               *cur++ = scale * ((*in >> 4)       );
               *cur++ = scale * ((*in     ) & 0x0f);
            }
            if (k > 0) *cur++ = scale * ((*in >> 4)       );
         } else if (depth == 2) {
            for (k=x*img_n; k >= 4; k-=4, ++in) {
               *cur++ = scale * ((*in >> 6)       );
               *cur++ = scale * ((*in >> 4) & 0x03);
               *cur++ = scale * ((*in >> 2) & 0x03);
               *cur++ = scale * ((*in     ) & 0x03);
            }
            if (k > 0) *cur++ = scale * ((*in >> 6)       );
            if (k > 1) *cur++ = scale * ((*in >> 4) & 0x03);
            if (k > 2) *cur++ = scale * ((*in >> 2) & 0x03);
         } else if (depth == 1) {
            for (k=x*img_n; k >= 8; k-=8, ++in) {
               *cur++ = scale * ((*in >> 7)       );
               *cur++ = scale * ((*in >> 6) & 0x01);
               *cur++ = scale * ((*in >> 5) & 0x01);
               *cur++ = scale * ((*in >> 4) & 0x01);
               *cur++ = scale * ((*in >> 3) & 0x01);
               *cur++ = scale * ((*in >> 2) & 0x01);
               *cur++ = scale * ((*in >> 1) & 0x01);
               *cur++ = scale * ((*in     ) & 0x01);
            }
            if (k > 0) *cur++ = scale * ((*in >> 7)       );
            if (k > 1) *cur++ = scale * ((*in >> 6) & 0x01);
            if (k > 2) *cur++ = scale * ((*in >> 5) & 0x01);
            if (k > 3) *cur++ = scale * ((*in >> 4) & 0x01);
            if (k > 4) *cur++ = scale * ((*in >> 3) & 0x01);
            if (k > 5) *cur++ = scale * ((*in >> 2) & 0x01);
            if (k > 6) *cur++ = scale * ((*in >> 1) & 0x01);
         }
         if (img_n != out_n) {
4135
            int q;
4136
            // insert alpha = 255
4137
            cur = a->out + stride*j;
4138
            if (img_n == 1) {
4139 4140 4141
               for (q=x-1; q >= 0; --q) {
                  cur[q*2+1] = 255;
                  cur[q*2+0] = cur[q];
4142 4143
               }
            } else {
4144
               STBI_ASSERT(img_n == 3);
4145 4146 4147 4148 4149
               for (q=x-1; q >= 0; --q) {
                  cur[q*4+3] = 255;
                  cur[q*4+2] = cur[q*3+2];
                  cur[q*4+1] = cur[q*3+1];
                  cur[q*4+0] = cur[q*3+0];
4150 4151 4152 4153 4154 4155
               }
            }
         }
      }
   }

4156 4157 4158
   return 1;
}

4159
static int stbi__create_png_image(stbi__png *a, stbi_uc *image_data, stbi__uint32 image_data_len, int out_n, int depth, int color, int interlaced)
4160
{
4161
   stbi_uc *final;
4162 4163
   int p;
   if (!interlaced)
4164
      return stbi__create_png_image_raw(a, image_data, image_data_len, out_n, a->s->img_x, a->s->img_y, depth, color);
4165 4166

   // de-interlacing
4167
   final = (stbi_uc *) stbi__malloc(a->s->img_x * a->s->img_y * out_n);
4168 4169 4170 4171 4172 4173 4174 4175 4176 4177
   for (p=0; p < 7; ++p) {
      int xorig[] = { 0,4,0,2,0,1,0 };
      int yorig[] = { 0,0,4,0,2,0,1 };
      int xspc[]  = { 8,8,4,4,2,2,1 };
      int yspc[]  = { 8,8,8,4,4,2,2 };
      int i,j,x,y;
      // pass1_x[4] = 0, pass1_x[5] = 1, pass1_x[12] = 1
      x = (a->s->img_x - xorig[p] + xspc[p]-1) / xspc[p];
      y = (a->s->img_y - yorig[p] + yspc[p]-1) / yspc[p];
      if (x && y) {
4178 4179
         stbi__uint32 img_len = ((((a->s->img_n * x * depth) + 7) >> 3) + 1) * y;
         if (!stbi__create_png_image_raw(a, image_data, image_data_len, out_n, x, y, depth, color)) {
S
Sean Barrett 已提交
4180
            STBI_FREE(final);
4181 4182
            return 0;
         }
4183 4184 4185 4186 4187
         for (j=0; j < y; ++j) {
            for (i=0; i < x; ++i) {
               int out_y = j*yspc[p]+yorig[p];
               int out_x = i*xspc[p]+xorig[p];
               memcpy(final + out_y*a->s->img_x*out_n + out_x*out_n,
4188
                      a->out + (j*x+i)*out_n, out_n);
4189 4190
            }
         }
S
Sean Barrett 已提交
4191
         STBI_FREE(a->out);
4192 4193
         image_data += img_len;
         image_data_len -= img_len;
4194 4195 4196 4197 4198 4199 4200
      }
   }
   a->out = final;

   return 1;
}

4201
static int stbi__compute_transparency(stbi__png *z, stbi_uc tc[3], int out_n)
4202
{
S
Sean Barrett 已提交
4203
   stbi__context *s = z->s;
4204
   stbi__uint32 i, pixel_count = s->img_x * s->img_y;
4205
   stbi_uc *p = z->out;
4206 4207 4208

   // compute color-based transparency, assuming we've
   // already got 255 as the alpha value in the output
S
Sean Barrett 已提交
4209
   STBI_ASSERT(out_n == 2 || out_n == 4);
4210 4211 4212 4213 4214 4215 4216 4217 4218 4219 4220 4221 4222 4223 4224 4225

   if (out_n == 2) {
      for (i=0; i < pixel_count; ++i) {
         p[1] = (p[0] == tc[0] ? 0 : 255);
         p += 2;
      }
   } else {
      for (i=0; i < pixel_count; ++i) {
         if (p[0] == tc[0] && p[1] == tc[1] && p[2] == tc[2])
            p[3] = 0;
         p += 4;
      }
   }
   return 1;
}

4226
static int stbi__expand_png_palette(stbi__png *a, stbi_uc *palette, int len, int pal_img_n)
4227 4228
{
   stbi__uint32 i, pixel_count = a->s->img_x * a->s->img_y;
4229
   stbi_uc *p, *temp_out, *orig = a->out;
4230

4231
   p = (stbi_uc *) stbi__malloc(pixel_count * pal_img_n);
S
Sean Barrett 已提交
4232
   if (p == NULL) return stbi__err("outofmem", "Out of memory");
4233 4234 4235 4236 4237 4238 4239 4240 4241 4242 4243 4244 4245 4246 4247 4248 4249 4250 4251 4252 4253 4254

   // between here and free(out) below, exitting would leak
   temp_out = p;

   if (pal_img_n == 3) {
      for (i=0; i < pixel_count; ++i) {
         int n = orig[i]*4;
         p[0] = palette[n  ];
         p[1] = palette[n+1];
         p[2] = palette[n+2];
         p += 3;
      }
   } else {
      for (i=0; i < pixel_count; ++i) {
         int n = orig[i]*4;
         p[0] = palette[n  ];
         p[1] = palette[n+1];
         p[2] = palette[n+2];
         p[3] = palette[n+3];
         p += 4;
      }
   }
S
Sean Barrett 已提交
4255
   STBI_FREE(a->out);
4256 4257 4258 4259 4260 4261 4262
   a->out = temp_out;

   STBI_NOTUSED(len);

   return 1;
}

4263 4264
static int stbi__unpremultiply_on_load = 0;
static int stbi__de_iphone_flag = 0;
4265

4266
STBIDEF void stbi_set_unpremultiply_on_load(int flag_true_if_should_unpremultiply)
4267
{
4268
   stbi__unpremultiply_on_load = flag_true_if_should_unpremultiply;
4269
}
4270 4271

STBIDEF void stbi_convert_iphone_png_to_rgb(int flag_true_if_should_convert)
4272
{
4273
   stbi__de_iphone_flag = flag_true_if_should_convert;
4274 4275
}

4276
static void stbi__de_iphone(stbi__png *z)
4277
{
S
Sean Barrett 已提交
4278
   stbi__context *s = z->s;
4279
   stbi__uint32 i, pixel_count = s->img_x * s->img_y;
4280
   stbi_uc *p = z->out;
4281 4282 4283

   if (s->img_out_n == 3) {  // convert bgr to rgb
      for (i=0; i < pixel_count; ++i) {
4284
         stbi_uc t = p[0];
4285 4286 4287 4288 4289
         p[0] = p[2];
         p[2] = t;
         p += 3;
      }
   } else {
S
Sean Barrett 已提交
4290
      STBI_ASSERT(s->img_out_n == 4);
4291
      if (stbi__unpremultiply_on_load) {
4292 4293
         // convert bgr to rgb and unpremultiply
         for (i=0; i < pixel_count; ++i) {
4294 4295
            stbi_uc a = p[3];
            stbi_uc t = p[0];
4296 4297 4298 4299 4300 4301 4302
            if (a) {
               p[0] = p[2] * 255 / a;
               p[1] = p[1] * 255 / a;
               p[2] =  t   * 255 / a;
            } else {
               p[0] = p[2];
               p[2] = t;
S
Sean Barrett 已提交
4303
            }
4304 4305 4306 4307 4308
            p += 4;
         }
      } else {
         // convert bgr to rgb
         for (i=0; i < pixel_count; ++i) {
4309
            stbi_uc t = p[0];
4310 4311 4312 4313 4314 4315 4316 4317
            p[0] = p[2];
            p[2] = t;
            p += 4;
         }
      }
   }
}

4318 4319
#define STBI__PNG_TYPE(a,b,c,d)  (((a) << 24) + ((b) << 16) + ((c) << 8) + (d))

4320
static int stbi__parse_png_file(stbi__png *z, int scan, int req_comp)
4321
{
4322 4323
   stbi_uc palette[1024], pal_img_n=0;
   stbi_uc has_trans=0, tc[3];
4324
   stbi__uint32 ioff=0, idata_limit=0, i, pal_len=0;
4325
   int first=1,k,interlace=0, color=0, depth=0, is_iphone=0;
S
Sean Barrett 已提交
4326
   stbi__context *s = z->s;
4327 4328 4329 4330 4331

   z->expanded = NULL;
   z->idata = NULL;
   z->out = NULL;

4332
   if (!stbi__check_png_header(s)) return 0;
4333

4334
   if (scan == STBI__SCAN_type) return 1;
4335 4336

   for (;;) {
4337
      stbi__pngchunk c = stbi__get_chunk_header(s);
4338
      switch (c.type) {
4339
         case STBI__PNG_TYPE('C','g','B','I'):
4340
            is_iphone = 1;
4341
            stbi__skip(s, c.length);
4342
            break;
4343
         case STBI__PNG_TYPE('I','H','D','R'): {
4344
            int comp,filter;
S
Sean Barrett 已提交
4345
            if (!first) return stbi__err("multiple IHDR","Corrupt PNG");
4346
            first = 0;
S
Sean Barrett 已提交
4347
            if (c.length != 13) return stbi__err("bad IHDR len","Corrupt PNG");
4348 4349
            s->img_x = stbi__get32be(s); if (s->img_x > (1 << 24)) return stbi__err("too large","Very large image (corrupt?)");
            s->img_y = stbi__get32be(s); if (s->img_y > (1 << 24)) return stbi__err("too large","Very large image (corrupt?)");
4350
            depth = stbi__get8(s);  if (depth != 1 && depth != 2 && depth != 4 && depth != 8)  return stbi__err("1/2/4/8-bit only","PNG not supported: 1/2/4/8-bit only");
4351
            color = stbi__get8(s);  if (color > 6)         return stbi__err("bad ctype","Corrupt PNG");
S
Sean Barrett 已提交
4352
            if (color == 3) pal_img_n = 3; else if (color & 1) return stbi__err("bad ctype","Corrupt PNG");
4353 4354 4355
            comp  = stbi__get8(s);  if (comp) return stbi__err("bad comp method","Corrupt PNG");
            filter= stbi__get8(s);  if (filter) return stbi__err("bad filter method","Corrupt PNG");
            interlace = stbi__get8(s); if (interlace>1) return stbi__err("bad interlace method","Corrupt PNG");
S
Sean Barrett 已提交
4356
            if (!s->img_x || !s->img_y) return stbi__err("0-pixel image","Corrupt PNG");
4357 4358
            if (!pal_img_n) {
               s->img_n = (color & 2 ? 3 : 1) + (color & 4 ? 1 : 0);
4359
               if ((1 << 30) / s->img_x / s->img_n < s->img_y) return stbi__err("too large", "Image too large to decode");
4360
               if (scan == STBI__SCAN_header) return 1;
4361 4362 4363 4364
            } else {
               // if paletted, then pal_n is our final components, and
               // img_n is # components to decompress/filter.
               s->img_n = 1;
S
Sean Barrett 已提交
4365
               if ((1 << 30) / s->img_x / 4 < s->img_y) return stbi__err("too large","Corrupt PNG");
4366 4367 4368 4369 4370
               // if SCAN_header, have to scan to see if we have a tRNS
            }
            break;
         }

4371
         case STBI__PNG_TYPE('P','L','T','E'):  {
S
Sean Barrett 已提交
4372 4373
            if (first) return stbi__err("first not IHDR", "Corrupt PNG");
            if (c.length > 256*3) return stbi__err("invalid PLTE","Corrupt PNG");
4374
            pal_len = c.length / 3;
S
Sean Barrett 已提交
4375
            if (pal_len * 3 != c.length) return stbi__err("invalid PLTE","Corrupt PNG");
4376
            for (i=0; i < pal_len; ++i) {
4377 4378 4379
               palette[i*4+0] = stbi__get8(s);
               palette[i*4+1] = stbi__get8(s);
               palette[i*4+2] = stbi__get8(s);
4380 4381 4382 4383 4384
               palette[i*4+3] = 255;
            }
            break;
         }

4385
         case STBI__PNG_TYPE('t','R','N','S'): {
S
Sean Barrett 已提交
4386 4387
            if (first) return stbi__err("first not IHDR", "Corrupt PNG");
            if (z->idata) return stbi__err("tRNS after IDAT","Corrupt PNG");
4388
            if (pal_img_n) {
4389
               if (scan == STBI__SCAN_header) { s->img_n = 4; return 1; }
S
Sean Barrett 已提交
4390 4391
               if (pal_len == 0) return stbi__err("tRNS before PLTE","Corrupt PNG");
               if (c.length > pal_len) return stbi__err("bad tRNS len","Corrupt PNG");
4392 4393
               pal_img_n = 4;
               for (i=0; i < c.length; ++i)
4394
                  palette[i*4+3] = stbi__get8(s);
4395
            } else {
S
Sean Barrett 已提交
4396 4397
               if (!(s->img_n & 1)) return stbi__err("tRNS with alpha","Corrupt PNG");
               if (c.length != (stbi__uint32) s->img_n*2) return stbi__err("bad tRNS len","Corrupt PNG");
4398 4399
               has_trans = 1;
               for (k=0; k < s->img_n; ++k)
4400
                  tc[k] = (stbi_uc) (stbi__get16be(s) & 255) * stbi__depth_scale_table[depth]; // non 8-bit images will be larger
4401 4402 4403 4404
            }
            break;
         }

4405
         case STBI__PNG_TYPE('I','D','A','T'): {
S
Sean Barrett 已提交
4406 4407
            if (first) return stbi__err("first not IHDR", "Corrupt PNG");
            if (pal_img_n && !pal_len) return stbi__err("no PLTE","Corrupt PNG");
4408
            if (scan == STBI__SCAN_header) { s->img_n = pal_img_n; return 1; }
4409
            if ((int)(ioff + c.length) < (int)ioff) return 0;
4410
            if (ioff + c.length > idata_limit) {
4411
               stbi_uc *p;
4412 4413 4414
               if (idata_limit == 0) idata_limit = c.length > 4096 ? c.length : 4096;
               while (ioff + c.length > idata_limit)
                  idata_limit *= 2;
S
Sean Barrett 已提交
4415
               p = (stbi_uc *) STBI_REALLOC(z->idata, idata_limit); if (p == NULL) return stbi__err("outofmem", "Out of memory");
4416 4417
               z->idata = p;
            }
4418
            if (!stbi__getn(s, z->idata+ioff,c.length)) return stbi__err("outofdata","Corrupt PNG");
4419 4420 4421 4422
            ioff += c.length;
            break;
         }

4423
         case STBI__PNG_TYPE('I','E','N','D'): {
4424
            stbi__uint32 raw_len, bpl;
S
Sean Barrett 已提交
4425
            if (first) return stbi__err("first not IHDR", "Corrupt PNG");
4426
            if (scan != STBI__SCAN_load) return 1;
S
Sean Barrett 已提交
4427
            if (z->idata == NULL) return stbi__err("no IDAT","Corrupt PNG");
4428
            // initial guess for decoded data size to avoid unnecessary reallocs
4429 4430
            bpl = (s->img_x * depth + 7) / 8; // bytes per line, per component
            raw_len = bpl * s->img_y * s->img_n /* pixels */ + s->img_y /* filter mode per row */;
4431
            z->expanded = (stbi_uc *) stbi_zlib_decode_malloc_guesssize_headerflag((char *) z->idata, ioff, raw_len, (int *) &raw_len, !is_iphone);
4432
            if (z->expanded == NULL) return 0; // zlib should set error
S
Sean Barrett 已提交
4433
            STBI_FREE(z->idata); z->idata = NULL;
4434 4435 4436 4437
            if ((req_comp == s->img_n+1 && req_comp != 3 && !pal_img_n) || has_trans)
               s->img_out_n = s->img_n+1;
            else
               s->img_out_n = s->img_n;
4438
            if (!stbi__create_png_image(z, z->expanded, raw_len, s->img_out_n, depth, color, interlace)) return 0;
4439
            if (has_trans)
4440
               if (!stbi__compute_transparency(z, tc, s->img_out_n)) return 0;
4441
            if (is_iphone && stbi__de_iphone_flag && s->img_out_n > 2)
4442
               stbi__de_iphone(z);
4443 4444 4445 4446 4447
            if (pal_img_n) {
               // pal_img_n == 3 or 4
               s->img_n = pal_img_n; // record the actual colors we had
               s->img_out_n = pal_img_n;
               if (req_comp >= 3) s->img_out_n = req_comp;
4448
               if (!stbi__expand_png_palette(z, palette, pal_len, s->img_out_n))
4449 4450
                  return 0;
            }
S
Sean Barrett 已提交
4451
            STBI_FREE(z->expanded); z->expanded = NULL;
4452 4453 4454 4455 4456
            return 1;
         }

         default:
            // if critical, fail
S
Sean Barrett 已提交
4457
            if (first) return stbi__err("first not IHDR", "Corrupt PNG");
4458 4459 4460
            if ((c.type & (1 << 29)) == 0) {
               #ifndef STBI_NO_FAILURE_STRINGS
               // not threadsafe
4461 4462 4463 4464 4465
               static char invalid_chunk[] = "XXXX PNG chunk not known";
               invalid_chunk[0] = STBI__BYTECAST(c.type >> 24);
               invalid_chunk[1] = STBI__BYTECAST(c.type >> 16);
               invalid_chunk[2] = STBI__BYTECAST(c.type >>  8);
               invalid_chunk[3] = STBI__BYTECAST(c.type >>  0);
4466
               #endif
4467
               return stbi__err(invalid_chunk, "PNG not supported: unknown PNG chunk type");
4468
            }
4469
            stbi__skip(s, c.length);
4470 4471
            break;
      }
4472
      // end of PNG chunk, read and skip CRC
4473
      stbi__get32be(s);
4474 4475 4476
   }
}

4477
static unsigned char *stbi__do_png(stbi__png *p, int *x, int *y, int *n, int req_comp)
4478 4479
{
   unsigned char *result=NULL;
S
Sean Barrett 已提交
4480
   if (req_comp < 0 || req_comp > 4) return stbi__errpuc("bad req_comp", "Internal error");
4481
   if (stbi__parse_png_file(p, STBI__SCAN_load, req_comp)) {
4482 4483 4484
      result = p->out;
      p->out = NULL;
      if (req_comp && req_comp != p->s->img_out_n) {
4485
         result = stbi__convert_format(result, p->s->img_out_n, req_comp, p->s->img_x, p->s->img_y);
4486 4487 4488 4489 4490
         p->s->img_out_n = req_comp;
         if (result == NULL) return result;
      }
      *x = p->s->img_x;
      *y = p->s->img_y;
4491
      if (n) *n = p->s->img_out_n;
4492
   }
S
Sean Barrett 已提交
4493 4494 4495
   STBI_FREE(p->out);      p->out      = NULL;
   STBI_FREE(p->expanded); p->expanded = NULL;
   STBI_FREE(p->idata);    p->idata    = NULL;
4496 4497 4498 4499

   return result;
}

S
Sean Barrett 已提交
4500
static unsigned char *stbi__png_load(stbi__context *s, int *x, int *y, int *comp, int req_comp)
4501
{
4502
   stbi__png p;
4503
   p.s = s;
4504
   return stbi__do_png(&p, x,y,comp,req_comp);
4505 4506
}

S
Sean Barrett 已提交
4507
static int stbi__png_test(stbi__context *s)
4508 4509
{
   int r;
4510
   r = stbi__check_png_header(s);
4511
   stbi__rewind(s);
4512 4513 4514
   return r;
}

4515
static int stbi__png_info_raw(stbi__png *p, int *x, int *y, int *comp)
4516
{
4517
   if (!stbi__parse_png_file(p, STBI__SCAN_header, 0)) {
4518
      stbi__rewind( p->s );
4519 4520 4521 4522 4523 4524 4525 4526
      return 0;
   }
   if (x) *x = p->s->img_x;
   if (y) *y = p->s->img_y;
   if (comp) *comp = p->s->img_n;
   return 1;
}

4527
static int stbi__png_info(stbi__context *s, int *x, int *y, int *comp)
4528
{
4529
   stbi__png p;
4530
   p.s = s;
4531
   return stbi__png_info_raw(&p, x, y, comp);
4532
}
4533
#endif
4534 4535

// Microsoft/Windows BMP image
4536 4537

#ifndef STBI_NO_BMP
4538
static int stbi__bmp_test_raw(stbi__context *s)
4539
{
4540
   int r;
4541
   int sz;
4542 4543 4544 4545 4546 4547 4548
   if (stbi__get8(s) != 'B') return 0;
   if (stbi__get8(s) != 'M') return 0;
   stbi__get32le(s); // discard filesize
   stbi__get16le(s); // discard reserved
   stbi__get16le(s); // discard reserved
   stbi__get32le(s); // discard data offset
   sz = stbi__get32le(s);
4549
   r = (sz == 12 || sz == 40 || sz == 56 || sz == 108 || sz == 124);
4550 4551 4552 4553 4554 4555
   return r;
}

static int stbi__bmp_test(stbi__context *s)
{
   int r = stbi__bmp_test_raw(s);
4556
   stbi__rewind(s);
4557 4558 4559 4560 4561
   return r;
}


// returns 0..31 for the highest set bit
4562
static int stbi__high_bit(unsigned int z)
4563 4564 4565 4566 4567 4568 4569 4570 4571 4572 4573
{
   int n=0;
   if (z == 0) return -1;
   if (z >= 0x10000) n += 16, z >>= 16;
   if (z >= 0x00100) n +=  8, z >>=  8;
   if (z >= 0x00010) n +=  4, z >>=  4;
   if (z >= 0x00004) n +=  2, z >>=  2;
   if (z >= 0x00002) n +=  1, z >>=  1;
   return n;
}

4574
static int stbi__bitcount(unsigned int a)
4575 4576 4577 4578 4579 4580 4581 4582 4583
{
   a = (a & 0x55555555) + ((a >>  1) & 0x55555555); // max 2
   a = (a & 0x33333333) + ((a >>  2) & 0x33333333); // max 4
   a = (a + (a >> 4)) & 0x0f0f0f0f; // max 8 per 4, now 8 bits
   a = (a + (a >> 8)); // max 16 per 8 bits
   a = (a + (a >> 16)); // max 32 per 8 bits
   return a & 0xff;
}

4584
static int stbi__shiftsigned(int v, int shift, int bits)
4585 4586 4587 4588 4589 4590 4591 4592 4593 4594 4595 4596 4597 4598 4599 4600
{
   int result;
   int z=0;

   if (shift < 0) v <<= -shift;
   else v >>= shift;
   result = v;

   z = bits;
   while (z < 8) {
      result += v >> z;
      z += bits;
   }
   return result;
}

4601
static stbi_uc *stbi__bmp_load(stbi__context *s, int *x, int *y, int *comp, int req_comp)
4602
{
4603
   stbi_uc *out;
4604
   unsigned int mr=0,mg=0,mb=0,ma=0, all_a=255;
4605 4606 4607
   stbi_uc pal[256][4];
   int psize=0,i,j,compress=0,width;
   int bpp, flip_vertically, pad, target, offset, hsz;
4608 4609 4610 4611 4612 4613
   if (stbi__get8(s) != 'B' || stbi__get8(s) != 'M') return stbi__errpuc("not BMP", "Corrupt BMP");
   stbi__get32le(s); // discard filesize
   stbi__get16le(s); // discard reserved
   stbi__get16le(s); // discard reserved
   offset = stbi__get32le(s);
   hsz = stbi__get32le(s);
4614
   if (hsz != 12 && hsz != 40 && hsz != 56 && hsz != 108 && hsz != 124) return stbi__errpuc("unknown BMP", "BMP type not supported: unknown");
4615
   if (hsz == 12) {
4616 4617
      s->img_x = stbi__get16le(s);
      s->img_y = stbi__get16le(s);
4618
   } else {
4619 4620
      s->img_x = stbi__get32le(s);
      s->img_y = stbi__get32le(s);
4621
   }
4622 4623
   if (stbi__get16le(s) != 1) return stbi__errpuc("bad BMP", "bad BMP");
   bpp = stbi__get16le(s);
S
Sean Barrett 已提交
4624
   if (bpp == 1) return stbi__errpuc("monochrome", "BMP type not supported: 1-bit");
4625 4626 4627 4628 4629 4630
   flip_vertically = ((int) s->img_y) > 0;
   s->img_y = abs((int) s->img_y);
   if (hsz == 12) {
      if (bpp < 24)
         psize = (offset - 14 - 24) / 3;
   } else {
4631
      compress = stbi__get32le(s);
S
Sean Barrett 已提交
4632
      if (compress == 1 || compress == 2) return stbi__errpuc("BMP RLE", "BMP type not supported: RLE");
4633 4634 4635 4636 4637
      stbi__get32le(s); // discard sizeof
      stbi__get32le(s); // discard hres
      stbi__get32le(s); // discard vres
      stbi__get32le(s); // discard colorsused
      stbi__get32le(s); // discard max important
4638 4639
      if (hsz == 40 || hsz == 56) {
         if (hsz == 56) {
4640 4641 4642 4643
            stbi__get32le(s);
            stbi__get32le(s);
            stbi__get32le(s);
            stbi__get32le(s);
4644 4645 4646 4647 4648 4649 4650 4651 4652
         }
         if (bpp == 16 || bpp == 32) {
            mr = mg = mb = 0;
            if (compress == 0) {
               if (bpp == 32) {
                  mr = 0xffu << 16;
                  mg = 0xffu <<  8;
                  mb = 0xffu <<  0;
                  ma = 0xffu << 24;
4653
                  all_a = 0; // if all_a is 0 at end, then we loaded alpha channel but it was all 0
4654 4655 4656 4657 4658 4659
               } else {
                  mr = 31u << 10;
                  mg = 31u <<  5;
                  mb = 31u <<  0;
               }
            } else if (compress == 3) {
4660 4661 4662
               mr = stbi__get32le(s);
               mg = stbi__get32le(s);
               mb = stbi__get32le(s);
4663 4664 4665
               // not documented, but generated by photoshop and handled by mspaint
               if (mr == mg && mg == mb) {
                  // ?!?!?
S
Sean Barrett 已提交
4666
                  return stbi__errpuc("bad BMP", "bad BMP");
4667 4668
               }
            } else
S
Sean Barrett 已提交
4669
               return stbi__errpuc("bad BMP", "bad BMP");
4670 4671
         }
      } else {
S
Sean Barrett 已提交
4672
         STBI_ASSERT(hsz == 108 || hsz == 124);
4673 4674 4675 4676 4677
         mr = stbi__get32le(s);
         mg = stbi__get32le(s);
         mb = stbi__get32le(s);
         ma = stbi__get32le(s);
         stbi__get32le(s); // discard color space
4678
         for (i=0; i < 12; ++i)
4679
            stbi__get32le(s); // discard color space parameters
4680 4681 4682 4683 4684 4685
         if (hsz == 124) {
            stbi__get32le(s); // discard rendering intent
            stbi__get32le(s); // discard offset of profile data
            stbi__get32le(s); // discard size of profile data
            stbi__get32le(s); // discard reserved
         }
4686 4687 4688 4689 4690
      }
      if (bpp < 16)
         psize = (offset - 14 - hsz) >> 2;
   }
   s->img_n = ma ? 4 : 3;
4691
   if (req_comp && req_comp >= 3) // we can directly decode 3 or 4
4692 4693 4694
      target = req_comp;
   else
      target = s->img_n; // if they want monochrome, we'll post-convert
4695
   out = (stbi_uc *) stbi__malloc(target * s->img_x * s->img_y);
S
Sean Barrett 已提交
4696
   if (!out) return stbi__errpuc("outofmem", "Out of memory");
4697 4698
   if (bpp < 16) {
      int z=0;
S
Sean Barrett 已提交
4699
      if (psize == 0 || psize > 256) { STBI_FREE(out); return stbi__errpuc("invalid", "Corrupt BMP"); }
4700
      for (i=0; i < psize; ++i) {
4701 4702 4703
         pal[i][2] = stbi__get8(s);
         pal[i][1] = stbi__get8(s);
         pal[i][0] = stbi__get8(s);
4704
         if (hsz != 12) stbi__get8(s);
4705 4706
         pal[i][3] = 255;
      }
4707
      stbi__skip(s, offset - 14 - hsz - psize * (hsz == 12 ? 3 : 4));
4708 4709
      if (bpp == 4) width = (s->img_x + 1) >> 1;
      else if (bpp == 8) width = s->img_x;
S
Sean Barrett 已提交
4710
      else { STBI_FREE(out); return stbi__errpuc("bad bpp", "Corrupt BMP"); }
4711 4712 4713
      pad = (-width)&3;
      for (j=0; j < (int) s->img_y; ++j) {
         for (i=0; i < (int) s->img_x; i += 2) {
4714
            int v=stbi__get8(s),v2=0;
4715 4716 4717 4718 4719 4720 4721 4722 4723
            if (bpp == 4) {
               v2 = v & 15;
               v >>= 4;
            }
            out[z++] = pal[v][0];
            out[z++] = pal[v][1];
            out[z++] = pal[v][2];
            if (target == 4) out[z++] = 255;
            if (i+1 == (int) s->img_x) break;
4724
            v = (bpp == 8) ? stbi__get8(s) : v2;
4725 4726 4727 4728 4729
            out[z++] = pal[v][0];
            out[z++] = pal[v][1];
            out[z++] = pal[v][2];
            if (target == 4) out[z++] = 255;
         }
4730
         stbi__skip(s, pad);
4731 4732 4733 4734 4735
      }
   } else {
      int rshift=0,gshift=0,bshift=0,ashift=0,rcount=0,gcount=0,bcount=0,acount=0;
      int z = 0;
      int easy=0;
4736
      stbi__skip(s, offset - 14 - hsz);
4737 4738 4739 4740 4741 4742 4743 4744 4745 4746 4747
      if (bpp == 24) width = 3 * s->img_x;
      else if (bpp == 16) width = 2*s->img_x;
      else /* bpp = 32 and pad = 0 */ width=0;
      pad = (-width) & 3;
      if (bpp == 24) {
         easy = 1;
      } else if (bpp == 32) {
         if (mb == 0xff && mg == 0xff00 && mr == 0x00ff0000 && ma == 0xff000000)
            easy = 2;
      }
      if (!easy) {
S
Sean Barrett 已提交
4748
         if (!mr || !mg || !mb) { STBI_FREE(out); return stbi__errpuc("bad masks", "Corrupt BMP"); }
4749
         // right shift amt to put high bit in position #7
4750 4751 4752 4753
         rshift = stbi__high_bit(mr)-7; rcount = stbi__bitcount(mr);
         gshift = stbi__high_bit(mg)-7; gcount = stbi__bitcount(mg);
         bshift = stbi__high_bit(mb)-7; bcount = stbi__bitcount(mb);
         ashift = stbi__high_bit(ma)-7; acount = stbi__bitcount(ma);
4754 4755 4756 4757
      }
      for (j=0; j < (int) s->img_y; ++j) {
         if (easy) {
            for (i=0; i < (int) s->img_x; ++i) {
4758 4759 4760 4761
               unsigned char a;
               out[z+2] = stbi__get8(s);
               out[z+1] = stbi__get8(s);
               out[z+0] = stbi__get8(s);
4762
               z += 3;
4763
               a = (easy == 2 ? stbi__get8(s) : 255);
4764
               all_a |= a;
4765
               if (target == 4) out[z++] = a;
4766 4767 4768
            }
         } else {
            for (i=0; i < (int) s->img_x; ++i) {
J
Joseph Thomson 已提交
4769
               stbi__uint32 v = (bpp == 16 ? (stbi__uint32) stbi__get16le(s) : stbi__get32le(s));
4770
               int a;
4771 4772 4773
               out[z++] = STBI__BYTECAST(stbi__shiftsigned(v & mr, rshift, rcount));
               out[z++] = STBI__BYTECAST(stbi__shiftsigned(v & mg, gshift, gcount));
               out[z++] = STBI__BYTECAST(stbi__shiftsigned(v & mb, bshift, bcount));
4774
               a = (ma ? stbi__shiftsigned(v & ma, ashift, acount) : 255);
4775
               all_a |= a;
S
Sean Barrett 已提交
4776
               if (target == 4) out[z++] = STBI__BYTECAST(a);
4777 4778
            }
         }
4779
         stbi__skip(s, pad);
4780 4781
      }
   }
4782 4783 4784 4785 4786 4787
   
   // if alpha channel is all 0s, replace with all 255s
   if (target == 4 && all_a == 0)
      for (i=4*s->img_x*s->img_y-1; i >= 0; i -= 4)
         out[i] = 255;

4788 4789 4790 4791 4792 4793 4794 4795 4796 4797 4798 4799
   if (flip_vertically) {
      stbi_uc t;
      for (j=0; j < (int) s->img_y>>1; ++j) {
         stbi_uc *p1 = out +      j     *s->img_x*target;
         stbi_uc *p2 = out + (s->img_y-1-j)*s->img_x*target;
         for (i=0; i < (int) s->img_x*target; ++i) {
            t = p1[i], p1[i] = p2[i], p2[i] = t;
         }
      }
   }

   if (req_comp && req_comp != target) {
4800 4801
      out = stbi__convert_format(out, target, req_comp, s->img_x, s->img_y);
      if (out == NULL) return out; // stbi__convert_format frees input on failure
4802 4803 4804 4805 4806 4807 4808
   }

   *x = s->img_x;
   *y = s->img_y;
   if (comp) *comp = s->img_n;
   return out;
}
4809
#endif
4810 4811 4812

// Targa Truevision - TGA
// by Jonathan Dummer
4813
#ifndef STBI_NO_TGA
4814
static int stbi__tga_info(stbi__context *s, int *x, int *y, int *comp)
4815 4816 4817
{
    int tga_w, tga_h, tga_comp;
    int sz;
4818 4819
    stbi__get8(s);                   // discard Offset
    sz = stbi__get8(s);              // color type
4820
    if( sz > 1 ) {
4821
        stbi__rewind(s);
4822 4823
        return 0;      // only RGB or indexed allowed
    }
4824
    sz = stbi__get8(s);              // image type
4825 4826
    // only RGB or grey allowed, +/- RLE
    if ((sz != 1) && (sz != 2) && (sz != 3) && (sz != 9) && (sz != 10) && (sz != 11)) return 0;
4827 4828
    stbi__skip(s,9);
    tga_w = stbi__get16le(s);
4829
    if( tga_w < 1 ) {
4830
        stbi__rewind(s);
4831 4832
        return 0;   // test width
    }
4833
    tga_h = stbi__get16le(s);
4834
    if( tga_h < 1 ) {
4835
        stbi__rewind(s);
4836 4837
        return 0;   // test height
    }
4838
    sz = stbi__get8(s);               // bits per pixel
4839 4840
    // only RGB or RGBA or grey allowed
    if ((sz != 8) && (sz != 16) && (sz != 24) && (sz != 32)) {
4841
        stbi__rewind(s);
4842 4843 4844 4845 4846 4847 4848 4849 4850
        return 0;
    }
    tga_comp = sz;
    if (x) *x = tga_w;
    if (y) *y = tga_h;
    if (comp) *comp = tga_comp / 8;
    return 1;                   // seems to have passed everything
}

4851
static int stbi__tga_test(stbi__context *s)
4852
{
4853
   int res;
4854
   int sz;
4855 4856
   stbi__get8(s);      //   discard Offset
   sz = stbi__get8(s);   //   color type
4857
   if ( sz > 1 ) return 0;   //   only RGB or indexed allowed
4858
   sz = stbi__get8(s);   //   image type
4859
   if ( (sz != 1) && (sz != 2) && (sz != 3) && (sz != 9) && (sz != 10) && (sz != 11) ) return 0;   //   only RGB or grey allowed, +/- RLE
4860 4861 4862 4863 4864 4865 4866 4867
   stbi__get16be(s);      //   discard palette start
   stbi__get16be(s);      //   discard palette length
   stbi__get8(s);         //   discard bits per palette color entry
   stbi__get16be(s);      //   discard x origin
   stbi__get16be(s);      //   discard y origin
   if ( stbi__get16be(s) < 1 ) return 0;      //   test width
   if ( stbi__get16be(s) < 1 ) return 0;      //   test height
   sz = stbi__get8(s);   //   bits per pixel
4868 4869 4870 4871 4872
   if ( (sz != 8) && (sz != 16) && (sz != 24) && (sz != 32) )
      res = 0;
   else
      res = 1;
   stbi__rewind(s);
4873 4874 4875
   return res;
}

4876
static stbi_uc *stbi__tga_load(stbi__context *s, int *x, int *y, int *comp, int req_comp)
4877 4878
{
   //   read in the TGA header stuff
4879 4880 4881
   int tga_offset = stbi__get8(s);
   int tga_indexed = stbi__get8(s);
   int tga_image_type = stbi__get8(s);
4882
   int tga_is_RLE = 0;
4883 4884
   int tga_palette_start = stbi__get16le(s);
   int tga_palette_len = stbi__get16le(s);
4885
   int tga_palette_bits = stbi__get8(s);
4886 4887 4888 4889
   int tga_x_origin = stbi__get16le(s);
   int tga_y_origin = stbi__get16le(s);
   int tga_width = stbi__get16le(s);
   int tga_height = stbi__get16le(s);
4890
   int tga_bits_per_pixel = stbi__get8(s);
4891
   int tga_comp = tga_bits_per_pixel / 8;
4892
   int tga_inverted = stbi__get8(s);
4893 4894 4895 4896 4897 4898 4899 4900 4901 4902 4903 4904 4905 4906 4907 4908 4909 4910 4911 4912 4913 4914 4915 4916 4917 4918 4919 4920 4921 4922 4923 4924 4925 4926 4927 4928 4929 4930 4931 4932
   //   image data
   unsigned char *tga_data;
   unsigned char *tga_palette = NULL;
   int i, j;
   unsigned char raw_data[4];
   int RLE_count = 0;
   int RLE_repeating = 0;
   int read_next_pixel = 1;

   //   do a tiny bit of precessing
   if ( tga_image_type >= 8 )
   {
      tga_image_type -= 8;
      tga_is_RLE = 1;
   }
   /* int tga_alpha_bits = tga_inverted & 15; */
   tga_inverted = 1 - ((tga_inverted >> 5) & 1);

   //   error check
   if ( //(tga_indexed) ||
      (tga_width < 1) || (tga_height < 1) ||
      (tga_image_type < 1) || (tga_image_type > 3) ||
      ((tga_bits_per_pixel != 8) && (tga_bits_per_pixel != 16) &&
      (tga_bits_per_pixel != 24) && (tga_bits_per_pixel != 32))
      )
   {
      return NULL; // we don't report this as a bad TGA because we don't even know if it's TGA
   }

   //   If I'm paletted, then I'll use the number of bits from the palette
   if ( tga_indexed )
   {
      tga_comp = tga_palette_bits / 8;
   }

   //   tga info
   *x = tga_width;
   *y = tga_height;
   if (comp) *comp = tga_comp;

4933
   tga_data = (unsigned char*)stbi__malloc( (size_t)tga_width * tga_height * tga_comp );
S
Sean Barrett 已提交
4934
   if (!tga_data) return stbi__errpuc("outofmem", "Out of memory");
4935

4936
   // skip to the data's starting position (offset usually = 0)
4937
   stbi__skip(s, tga_offset );
4938 4939 4940

   if ( !tga_indexed && !tga_is_RLE) {
      for (i=0; i < tga_height; ++i) {
4941 4942
         int row = tga_inverted ? tga_height -i - 1 : i;
         stbi_uc *tga_row = tga_data + row*tga_width*tga_comp;
4943
         stbi__getn(s, tga_row, tga_width * tga_comp);
4944 4945 4946 4947 4948
      }
   } else  {
      //   do I need to load a palette?
      if ( tga_indexed)
      {
4949
         //   any data to skip? (offset usually = 0)
4950
         stbi__skip(s, tga_palette_start );
4951
         //   load the palette
4952
         tga_palette = (unsigned char*)stbi__malloc( tga_palette_len * tga_palette_bits / 8 );
4953
         if (!tga_palette) {
S
Sean Barrett 已提交
4954
            STBI_FREE(tga_data);
S
Sean Barrett 已提交
4955
            return stbi__errpuc("outofmem", "Out of memory");
4956
         }
4957
         if (!stbi__getn(s, tga_palette, tga_palette_len * tga_palette_bits / 8 )) {
S
Sean Barrett 已提交
4958 4959
            STBI_FREE(tga_data);
            STBI_FREE(tga_palette);
S
Sean Barrett 已提交
4960
            return stbi__errpuc("bad palette", "Corrupt TGA");
4961 4962 4963 4964 4965
         }
      }
      //   load the data
      for (i=0; i < tga_width * tga_height; ++i)
      {
4966
         //   if I'm in RLE mode, do I need to get a RLE stbi__pngchunk?
4967 4968 4969 4970 4971
         if ( tga_is_RLE )
         {
            if ( RLE_count == 0 )
            {
               //   yep, get the next byte as a RLE command
4972
               int RLE_cmd = stbi__get8(s);
4973 4974 4975 4976 4977 4978 4979 4980 4981 4982 4983 4984 4985 4986 4987 4988 4989 4990
               RLE_count = 1 + (RLE_cmd & 127);
               RLE_repeating = RLE_cmd >> 7;
               read_next_pixel = 1;
            } else if ( !RLE_repeating )
            {
               read_next_pixel = 1;
            }
         } else
         {
            read_next_pixel = 1;
         }
         //   OK, if I need to read a pixel, do it now
         if ( read_next_pixel )
         {
            //   load however much data we did have
            if ( tga_indexed )
            {
               //   read in 1 byte, then perform the lookup
4991
               int pal_idx = stbi__get8(s);
4992 4993 4994 4995 4996 4997 4998 4999 5000 5001 5002 5003 5004 5005 5006
               if ( pal_idx >= tga_palette_len )
               {
                  //   invalid index
                  pal_idx = 0;
               }
               pal_idx *= tga_bits_per_pixel / 8;
               for (j = 0; j*8 < tga_bits_per_pixel; ++j)
               {
                  raw_data[j] = tga_palette[pal_idx+j];
               }
            } else
            {
               //   read in the data raw
               for (j = 0; j*8 < tga_bits_per_pixel; ++j)
               {
5007
                  raw_data[j] = stbi__get8(s);
5008 5009 5010 5011 5012 5013 5014 5015 5016 5017 5018 5019 5020 5021 5022 5023 5024 5025
               }
            }
            //   clear the reading flag for the next pixel
            read_next_pixel = 0;
         } // end of reading a pixel

         // copy data
         for (j = 0; j < tga_comp; ++j)
           tga_data[i*tga_comp+j] = raw_data[j];

         //   in case we're in RLE mode, keep counting down
         --RLE_count;
      }
      //   do I need to invert the image?
      if ( tga_inverted )
      {
         for (j = 0; j*2 < tga_height; ++j)
         {
5026 5027 5028
            int index1 = j * tga_width * tga_comp;
            int index2 = (tga_height - 1 - j) * tga_width * tga_comp;
            for (i = tga_width * tga_comp; i > 0; --i)
5029 5030 5031 5032 5033 5034 5035 5036 5037 5038 5039 5040
            {
               unsigned char temp = tga_data[index1];
               tga_data[index1] = tga_data[index2];
               tga_data[index2] = temp;
               ++index1;
               ++index2;
            }
         }
      }
      //   clear my palette, if I had one
      if ( tga_palette != NULL )
      {
S
Sean Barrett 已提交
5041
         STBI_FREE( tga_palette );
5042 5043 5044 5045 5046 5047 5048 5049 5050 5051 5052 5053 5054 5055 5056 5057 5058 5059
      }
   }

   // swap RGB
   if (tga_comp >= 3)
   {
      unsigned char* tga_pixel = tga_data;
      for (i=0; i < tga_width * tga_height; ++i)
      {
         unsigned char temp = tga_pixel[0];
         tga_pixel[0] = tga_pixel[2];
         tga_pixel[2] = temp;
         tga_pixel += tga_comp;
      }
   }

   // convert to target component count
   if (req_comp && req_comp != tga_comp)
5060
      tga_data = stbi__convert_format(tga_data, tga_comp, req_comp, tga_width, tga_height);
5061 5062 5063 5064 5065 5066 5067 5068

   //   the things I do to get rid of an error message, and yet keep
   //   Microsoft's C compilers happy... [8^(
   tga_palette_start = tga_palette_len = tga_palette_bits =
         tga_x_origin = tga_y_origin = 0;
   //   OK, done
   return tga_data;
}
5069
#endif
5070 5071 5072 5073

// *************************************************************************************************
// Photoshop PSD loader -- PD by Thatcher Ulrich, integration by Nicolas Schulz, tweaked by STB

5074
#ifndef STBI_NO_PSD
S
Sean Barrett 已提交
5075
static int stbi__psd_test(stbi__context *s)
5076
{
5077 5078
   int r = (stbi__get32be(s) == 0x38425053);
   stbi__rewind(s);
5079 5080 5081
   return r;
}

5082
static stbi_uc *stbi__psd_load(stbi__context *s, int *x, int *y, int *comp, int req_comp)
5083 5084 5085 5086
{
   int   pixelCount;
   int channelCount, compression;
   int channel, i, count, len;
R
rmitton 已提交
5087
   int bitdepth;
5088
   int w,h;
5089
   stbi_uc *out;
5090 5091

   // Check identifier
5092
   if (stbi__get32be(s) != 0x38425053)   // "8BPS"
S
Sean Barrett 已提交
5093
      return stbi__errpuc("not PSD", "Corrupt PSD image");
5094 5095

   // Check file type version.
5096
   if (stbi__get16be(s) != 1)
S
Sean Barrett 已提交
5097
      return stbi__errpuc("wrong version", "Unsupported version of PSD image");
5098 5099

   // Skip 6 reserved bytes.
5100
   stbi__skip(s, 6 );
5101 5102

   // Read the number of channels (R, G, B, A, etc).
5103
   channelCount = stbi__get16be(s);
5104
   if (channelCount < 0 || channelCount > 16)
S
Sean Barrett 已提交
5105
      return stbi__errpuc("wrong channel count", "Unsupported number of channels in PSD image");
5106 5107

   // Read the rows and columns of the image.
5108 5109
   h = stbi__get32be(s);
   w = stbi__get32be(s);
S
Sean Barrett 已提交
5110

5111
   // Make sure the depth is 8 bits.
R
rmitton 已提交
5112 5113 5114
   bitdepth = stbi__get16be(s);
   if (bitdepth != 8 && bitdepth != 16)
      return stbi__errpuc("unsupported bit depth", "PSD bit depth is not 8 or 16 bit");
5115 5116 5117 5118 5119 5120 5121 5122 5123 5124 5125

   // Make sure the color mode is RGB.
   // Valid options are:
   //   0: Bitmap
   //   1: Grayscale
   //   2: Indexed color
   //   3: RGB color
   //   4: CMYK color
   //   7: Multichannel
   //   8: Duotone
   //   9: Lab color
5126
   if (stbi__get16be(s) != 3)
S
Sean Barrett 已提交
5127
      return stbi__errpuc("wrong color format", "PSD is not in RGB color format");
5128 5129

   // Skip the Mode Data.  (It's the palette for indexed color; other info for other modes.)
5130
   stbi__skip(s,stbi__get32be(s) );
5131 5132

   // Skip the image resources.  (resolution, pen tool paths, etc)
5133
   stbi__skip(s, stbi__get32be(s) );
5134 5135

   // Skip the reserved data.
5136
   stbi__skip(s, stbi__get32be(s) );
5137 5138 5139 5140 5141

   // Find out if the data is compressed.
   // Known values:
   //   0: no compression
   //   1: RLE compressed
5142
   compression = stbi__get16be(s);
5143
   if (compression > 1)
S
Sean Barrett 已提交
5144
      return stbi__errpuc("bad compression", "PSD has an unknown compression format");
5145 5146

   // Create the destination image.
5147
   out = (stbi_uc *) stbi__malloc(4 * w*h);
S
Sean Barrett 已提交
5148
   if (!out) return stbi__errpuc("outofmem", "Out of memory");
5149 5150 5151 5152
   pixelCount = w*h;

   // Initialize the data to zero.
   //memset( out, 0, pixelCount * 4 );
S
Sean Barrett 已提交
5153

5154 5155 5156 5157 5158 5159 5160 5161 5162 5163 5164
   // Finally, the image data.
   if (compression) {
      // RLE as used by .PSD and .TIFF
      // Loop until you get the number of unpacked bytes you are expecting:
      //     Read the next source byte into n.
      //     If n is between 0 and 127 inclusive, copy the next n+1 bytes literally.
      //     Else if n is between -127 and -1 inclusive, copy the next byte -n+1 times.
      //     Else if n is 128, noop.
      // Endloop

      // The RLE-compressed data is preceeded by a 2-byte data count for each row in the data,
5165
      // which we're going to just skip.
5166
      stbi__skip(s, h * channelCount * 2 );
5167 5168 5169

      // Read the RLE data by channel.
      for (channel = 0; channel < 4; channel++) {
5170
         stbi_uc *p;
S
Sean Barrett 已提交
5171

5172 5173 5174
         p = out+channel;
         if (channel >= channelCount) {
            // Fill this channel with default data.
5175 5176
            for (i = 0; i < pixelCount; i++, p += 4)
               *p = (channel == 3 ? 255 : 0);
5177 5178 5179 5180
         } else {
            // Read the RLE data.
            count = 0;
            while (count < pixelCount) {
5181
               len = stbi__get8(s);
5182 5183 5184 5185 5186 5187 5188
               if (len == 128) {
                  // No-op.
               } else if (len < 128) {
                  // Copy next len+1 bytes literally.
                  len++;
                  count += len;
                  while (len) {
5189
                     *p = stbi__get8(s);
5190 5191 5192 5193
                     p += 4;
                     len--;
                  }
               } else if (len > 128) {
5194
                  stbi_uc   val;
5195 5196 5197 5198
                  // Next -len+1 bytes in the dest are replicated from next source byte.
                  // (Interpret len as a negative 8-bit int.)
                  len ^= 0x0FF;
                  len += 2;
5199
                  val = stbi__get8(s);
5200 5201 5202 5203 5204 5205 5206 5207 5208 5209
                  count += len;
                  while (len) {
                     *p = val;
                     p += 4;
                     len--;
                  }
               }
            }
         }
      }
S
Sean Barrett 已提交
5210

5211 5212 5213
   } else {
      // We're at the raw image data.  It's each channel in order (Red, Green, Blue, Alpha, ...)
      // where each channel consists of an 8-bit value for each pixel in the image.
S
Sean Barrett 已提交
5214

5215 5216
      // Read the data by channel.
      for (channel = 0; channel < 4; channel++) {
5217
         stbi_uc *p;
S
Sean Barrett 已提交
5218

5219
         p = out + channel;
5220
         if (channel >= channelCount) {
5221
            // Fill this channel with default data.
5222
            stbi_uc val = channel == 3 ? 255 : 0;
5223
            for (i = 0; i < pixelCount; i++, p += 4)
5224
               *p = val;
5225 5226
         } else {
            // Read the data.
R
rmitton 已提交
5227 5228
            if (bitdepth == 16) {
               for (i = 0; i < pixelCount; i++, p += 4)
5229
                  *p = (stbi_uc) (stbi__get16be(s) >> 8);
R
rmitton 已提交
5230 5231 5232 5233
            } else {
               for (i = 0; i < pixelCount; i++, p += 4)
                  *p = stbi__get8(s);
            }
5234 5235 5236 5237 5238
         }
      }
   }

   if (req_comp && req_comp != 4) {
5239 5240
      out = stbi__convert_format(out, 4, req_comp, w, h);
      if (out == NULL) return out; // stbi__convert_format frees input on failure
5241 5242
   }

5243
   if (comp) *comp = 4;
5244 5245
   *y = h;
   *x = w;
S
Sean Barrett 已提交
5246

5247 5248
   return out;
}
5249
#endif
5250 5251 5252 5253 5254 5255 5256 5257

// *************************************************************************************************
// Softimage PIC loader
// by Tom Seddon
//
// See http://softimage.wiki.softimage.com/index.php/INFO:_PIC_file_format
// See http://ozviz.wasp.uwa.edu.au/~pbourke/dataformats/softimagepic/

5258
#ifndef STBI_NO_PIC
5259
static int stbi__pic_is4(stbi__context *s,const char *str)
5260 5261 5262
{
   int i;
   for (i=0; i<4; ++i)
5263
      if (stbi__get8(s) != (stbi_uc)str[i])
5264 5265 5266 5267 5268
         return 0;

   return 1;
}

5269
static int stbi__pic_test_core(stbi__context *s)
5270 5271 5272
{
   int i;

5273
   if (!stbi__pic_is4(s,"\x53\x80\xF6\x34"))
5274 5275 5276
      return 0;

   for(i=0;i<84;++i)
5277
      stbi__get8(s);
5278

5279
   if (!stbi__pic_is4(s,"PICT"))
5280 5281 5282 5283 5284 5285 5286 5287
      return 0;

   return 1;
}

typedef struct
{
   stbi_uc size,type,channel;
5288
} stbi__pic_packet;
5289

5290
static stbi_uc *stbi__readval(stbi__context *s, int channel, stbi_uc *dest)
5291 5292 5293 5294 5295
{
   int mask=0x80, i;

   for (i=0; i<4; ++i, mask>>=1) {
      if (channel & mask) {
5296
         if (stbi__at_eof(s)) return stbi__errpuc("bad file","PIC file too short");
5297
         dest[i]=stbi__get8(s);
5298 5299 5300 5301 5302 5303
      }
   }

   return dest;
}

5304
static void stbi__copyval(int channel,stbi_uc *dest,const stbi_uc *src)
5305 5306 5307 5308 5309 5310 5311 5312
{
   int mask=0x80,i;

   for (i=0;i<4; ++i, mask>>=1)
      if (channel&mask)
         dest[i]=src[i];
}

5313
static stbi_uc *stbi__pic_load_core(stbi__context *s,int width,int height,int *comp, stbi_uc *result)
5314 5315
{
   int act_comp=0,num_packets=0,y,chained;
5316
   stbi__pic_packet packets[10];
5317 5318 5319 5320

   // this will (should...) cater for even some bizarre stuff like having data
    // for the same channel in multiple packets.
   do {
5321
      stbi__pic_packet *packet;
5322 5323

      if (num_packets==sizeof(packets)/sizeof(packets[0]))
S
Sean Barrett 已提交
5324
         return stbi__errpuc("bad format","too many packets");
5325 5326 5327

      packet = &packets[num_packets++];

5328
      chained = stbi__get8(s);
5329 5330 5331
      packet->size    = stbi__get8(s);
      packet->type    = stbi__get8(s);
      packet->channel = stbi__get8(s);
5332 5333 5334

      act_comp |= packet->channel;

5335
      if (stbi__at_eof(s))          return stbi__errpuc("bad file","file too short (reading packets)");
S
Sean Barrett 已提交
5336
      if (packet->size != 8)  return stbi__errpuc("bad format","packet isn't 8bpp");
5337 5338 5339 5340 5341 5342 5343 5344
   } while (chained);

   *comp = (act_comp & 0x10 ? 4 : 3); // has alpha channel?

   for(y=0; y<height; ++y) {
      int packet_idx;

      for(packet_idx=0; packet_idx < num_packets; ++packet_idx) {
5345
         stbi__pic_packet *packet = &packets[packet_idx];
5346 5347 5348 5349
         stbi_uc *dest = result+y*width*4;

         switch (packet->type) {
            default:
S
Sean Barrett 已提交
5350
               return stbi__errpuc("bad format","packet has bad compression type");
5351 5352 5353 5354 5355

            case 0: {//uncompressed
               int x;

               for(x=0;x<width;++x, dest+=4)
5356
                  if (!stbi__readval(s,packet->channel,dest))
5357 5358 5359 5360 5361 5362 5363 5364 5365 5366 5367
                     return 0;
               break;
            }

            case 1://Pure RLE
               {
                  int left=width, i;

                  while (left>0) {
                     stbi_uc count,value[4];

5368
                     count=stbi__get8(s);
5369
                     if (stbi__at_eof(s))   return stbi__errpuc("bad file","file too short (pure read count)");
5370 5371

                     if (count > left)
5372
                        count = (stbi_uc) left;
5373

5374
                     if (!stbi__readval(s,packet->channel,value))  return 0;
5375 5376

                     for(i=0; i<count; ++i,dest+=4)
5377
                        stbi__copyval(packet->channel,dest,value);
5378 5379 5380 5381 5382 5383 5384 5385
                     left -= count;
                  }
               }
               break;

            case 2: {//Mixed RLE
               int left=width;
               while (left>0) {
5386 5387
                  int count = stbi__get8(s), i;
                  if (stbi__at_eof(s))  return stbi__errpuc("bad file","file too short (mixed read count)");
5388 5389 5390 5391 5392

                  if (count >= 128) { // Repeated
                     stbi_uc value[4];

                     if (count==128)
5393
                        count = stbi__get16be(s);
5394 5395 5396
                     else
                        count -= 127;
                     if (count > left)
S
Sean Barrett 已提交
5397
                        return stbi__errpuc("bad file","scanline overrun");
5398

5399
                     if (!stbi__readval(s,packet->channel,value))
5400 5401 5402
                        return 0;

                     for(i=0;i<count;++i, dest += 4)
5403
                        stbi__copyval(packet->channel,dest,value);
5404 5405
                  } else { // Raw
                     ++count;
S
Sean Barrett 已提交
5406
                     if (count>left) return stbi__errpuc("bad file","scanline overrun");
5407 5408

                     for(i=0;i<count;++i, dest+=4)
5409
                        if (!stbi__readval(s,packet->channel,dest))
5410 5411 5412 5413 5414 5415 5416 5417 5418 5419 5420 5421 5422
                           return 0;
                  }
                  left-=count;
               }
               break;
            }
         }
      }
   }

   return result;
}

5423
static stbi_uc *stbi__pic_load(stbi__context *s,int *px,int *py,int *comp,int req_comp)
5424 5425 5426 5427 5428
{
   stbi_uc *result;
   int i, x,y;

   for (i=0; i<92; ++i)
5429
      stbi__get8(s);
5430

5431 5432 5433
   x = stbi__get16be(s);
   y = stbi__get16be(s);
   if (stbi__at_eof(s))  return stbi__errpuc("bad file","file too short (pic header)");
5434
   if ((1 << 28) / x < y) return stbi__errpuc("too large", "Image too large to decode");
5435

S
Sean Barrett 已提交
5436 5437 5438
   stbi__get32be(s); //skip `ratio'
   stbi__get16be(s); //skip `fields'
   stbi__get16be(s); //skip `pad'
5439 5440

   // intermediate buffer is RGBA
5441
   result = (stbi_uc *) stbi__malloc(x*y*4);
5442 5443
   memset(result, 0xff, x*y*4);

5444
   if (!stbi__pic_load_core(s,x,y,comp, result)) {
S
Sean Barrett 已提交
5445
      STBI_FREE(result);
5446 5447 5448 5449 5450
      result=0;
   }
   *px = x;
   *py = y;
   if (req_comp == 0) req_comp = *comp;
5451
   result=stbi__convert_format(result,4,req_comp,x,y);
5452 5453 5454 5455

   return result;
}

S
Sean Barrett 已提交
5456
static int stbi__pic_test(stbi__context *s)
5457
{
5458 5459
   int r = stbi__pic_test_core(s);
   stbi__rewind(s);
5460 5461
   return r;
}
5462
#endif
5463 5464 5465

// *************************************************************************************************
// GIF loader -- public domain by Jean-Marc Lienher -- simplified/shrunk by stb
5466 5467

#ifndef STBI_NO_GIF
S
Sean Barrett 已提交
5468
typedef struct
5469
{
5470
   stbi__int16 prefix;
5471 5472 5473
   stbi_uc first;
   stbi_uc suffix;
} stbi__gif_lzw;
5474

5475
typedef struct
5476 5477
{
   int w,h;
U
urraka 已提交
5478 5479
   stbi_uc *out, *old_out;             // output buffer (always 4 components)
   int flags, bgindex, ratio, transparent, eflags, delay;
5480 5481 5482 5483
   stbi_uc  pal[256][4];
   stbi_uc lpal[256][4];
   stbi__gif_lzw codes[4096];
   stbi_uc *color_table;
5484 5485 5486 5487 5488 5489
   int parse, step;
   int lflags;
   int start_x, start_y;
   int max_x, max_y;
   int cur_x, cur_y;
   int line_size;
5490
} stbi__gif;
5491

5492
static int stbi__gif_test_raw(stbi__context *s)
5493 5494
{
   int sz;
5495 5496
   if (stbi__get8(s) != 'G' || stbi__get8(s) != 'I' || stbi__get8(s) != 'F' || stbi__get8(s) != '8') return 0;
   sz = stbi__get8(s);
5497
   if (sz != '9' && sz != '7') return 0;
5498
   if (stbi__get8(s) != 'a') return 0;
5499 5500 5501
   return 1;
}

S
Sean Barrett 已提交
5502
static int stbi__gif_test(stbi__context *s)
5503
{
5504 5505
   int r = stbi__gif_test_raw(s);
   stbi__rewind(s);
5506 5507 5508
   return r;
}

5509
static void stbi__gif_parse_colortable(stbi__context *s, stbi_uc pal[256][4], int num_entries, int transp)
5510 5511 5512
{
   int i;
   for (i=0; i < num_entries; ++i) {
5513 5514 5515
      pal[i][2] = stbi__get8(s);
      pal[i][1] = stbi__get8(s);
      pal[i][0] = stbi__get8(s);
5516
      pal[i][3] = transp == i ? 0 : 255;
S
Sean Barrett 已提交
5517
   }
5518 5519
}

5520
static int stbi__gif_header(stbi__context *s, stbi__gif *g, int *comp, int is_info)
5521
{
5522
   stbi_uc version;
5523
   if (stbi__get8(s) != 'G' || stbi__get8(s) != 'I' || stbi__get8(s) != 'F' || stbi__get8(s) != '8')
S
Sean Barrett 已提交
5524
      return stbi__err("not GIF", "Corrupt GIF");
5525

5526
   version = stbi__get8(s);
S
Sean Barrett 已提交
5527
   if (version != '7' && version != '9')    return stbi__err("not GIF", "Corrupt GIF");
S
Sean Barrett 已提交
5528
   if (stbi__get8(s) != 'a')                return stbi__err("not GIF", "Corrupt GIF");
S
Sean Barrett 已提交
5529

5530
   stbi__g_failure_reason = "";
5531 5532 5533 5534 5535
   g->w = stbi__get16le(s);
   g->h = stbi__get16le(s);
   g->flags = stbi__get8(s);
   g->bgindex = stbi__get8(s);
   g->ratio = stbi__get8(s);
5536 5537 5538 5539 5540 5541 5542
   g->transparent = -1;

   if (comp != 0) *comp = 4;  // can't actually tell whether it's 3 or 4 until we parse the comments

   if (is_info) return 1;

   if (g->flags & 0x80)
5543
      stbi__gif_parse_colortable(s,g->pal, 2 << (g->flags & 7), -1);
5544 5545 5546 5547

   return 1;
}

5548
static int stbi__gif_info_raw(stbi__context *s, int *x, int *y, int *comp)
5549
{
S
Sean Barrett 已提交
5550
   stbi__gif g;
5551 5552
   if (!stbi__gif_header(s, &g, comp, 1)) {
      stbi__rewind( s );
5553 5554 5555 5556 5557 5558 5559
      return 0;
   }
   if (x) *x = g.w;
   if (y) *y = g.h;
   return 1;
}

5560
static void stbi__out_gif_code(stbi__gif *g, stbi__uint16 code)
5561
{
5562
   stbi_uc *p, *c;
5563

5564
   // recurse to decode the prefixes, since the linked-list is backwards,
5565 5566
   // and working backwards through an interleaved image would be nasty
   if (g->codes[code].prefix >= 0)
5567
      stbi__out_gif_code(g, g->codes[code].prefix);
5568 5569

   if (g->cur_y >= g->max_y) return;
S
Sean Barrett 已提交
5570

5571 5572 5573 5574 5575 5576 5577 5578 5579 5580 5581 5582 5583 5584 5585 5586 5587 5588 5589 5590 5591 5592 5593
   p = &g->out[g->cur_x + g->cur_y];
   c = &g->color_table[g->codes[code].suffix * 4];

   if (c[3] >= 128) {
      p[0] = c[2];
      p[1] = c[1];
      p[2] = c[0];
      p[3] = c[3];
   }
   g->cur_x += 4;

   if (g->cur_x >= g->max_x) {
      g->cur_x = g->start_x;
      g->cur_y += g->step;

      while (g->cur_y >= g->max_y && g->parse > 0) {
         g->step = (1 << g->parse) * g->line_size;
         g->cur_y = g->start_y + (g->step >> 1);
         --g->parse;
      }
   }
}

5594
static stbi_uc *stbi__process_gif_raster(stbi__context *s, stbi__gif *g)
5595
{
5596
   stbi_uc lzw_cs;
S
Sean Barrett 已提交
5597
   stbi__int32 len, init_code;
5598 5599
   stbi__uint32 first;
   stbi__int32 codesize, codemask, avail, oldcode, bits, valid_bits, clear;
5600
   stbi__gif_lzw *p;
5601

5602
   lzw_cs = stbi__get8(s);
5603
   if (lzw_cs > 12) return NULL;
5604 5605 5606 5607 5608 5609
   clear = 1 << lzw_cs;
   first = 1;
   codesize = lzw_cs + 1;
   codemask = (1 << codesize) - 1;
   bits = 0;
   valid_bits = 0;
S
Sean Barrett 已提交
5610 5611 5612 5613
   for (init_code = 0; init_code < clear; init_code++) {
      g->codes[init_code].prefix = -1;
      g->codes[init_code].first = (stbi_uc) init_code;
      g->codes[init_code].suffix = (stbi_uc) init_code;
5614 5615 5616 5617 5618 5619 5620 5621 5622 5623
   }

   // support no starting clear code
   avail = clear+2;
   oldcode = -1;

   len = 0;
   for(;;) {
      if (valid_bits < codesize) {
         if (len == 0) {
5624
            len = stbi__get8(s); // start new block
S
Sean Barrett 已提交
5625
            if (len == 0)
5626 5627 5628
               return g->out;
         }
         --len;
5629
         bits |= (stbi__int32) stbi__get8(s) << valid_bits;
5630 5631
         valid_bits += 8;
      } else {
S
Sean Barrett 已提交
5632
         stbi__int32 code = bits & codemask;
5633 5634 5635 5636 5637 5638 5639 5640 5641 5642
         bits >>= codesize;
         valid_bits -= codesize;
         // @OPTIMIZE: is there some way we can accelerate the non-clear path?
         if (code == clear) {  // clear code
            codesize = lzw_cs + 1;
            codemask = (1 << codesize) - 1;
            avail = clear + 2;
            oldcode = -1;
            first = 0;
         } else if (code == clear + 1) { // end of stream code
5643 5644 5645
            stbi__skip(s, len);
            while ((len = stbi__get8(s)) > 0)
               stbi__skip(s,len);
5646 5647
            return g->out;
         } else if (code <= avail) {
S
Sean Barrett 已提交
5648
            if (first) return stbi__errpuc("no clear code", "Corrupt GIF");
5649 5650 5651

            if (oldcode >= 0) {
               p = &g->codes[avail++];
S
Sean Barrett 已提交
5652
               if (avail > 4096)        return stbi__errpuc("too many codes", "Corrupt GIF");
5653 5654 5655 5656
               p->prefix = (stbi__int16) oldcode;
               p->first = g->codes[oldcode].first;
               p->suffix = (code == avail) ? p->first : g->codes[code].first;
            } else if (code == avail)
S
Sean Barrett 已提交
5657
               return stbi__errpuc("illegal code in raster", "Corrupt GIF");
5658

5659
            stbi__out_gif_code(g, (stbi__uint16) code);
5660 5661 5662 5663 5664 5665 5666 5667

            if ((avail & codemask) == 0 && avail <= 0x0FFF) {
               codesize++;
               codemask = (1 << codesize) - 1;
            }

            oldcode = code;
         } else {
S
Sean Barrett 已提交
5668
            return stbi__errpuc("illegal code in raster", "Corrupt GIF");
5669
         }
S
Sean Barrett 已提交
5670
      }
5671 5672 5673
   }
}

U
urraka 已提交
5674
static void stbi__fill_gif_background(stbi__gif *g, int x0, int y0, int x1, int y1)
5675
{
U
urraka 已提交
5676
   int x, y;
5677
   stbi_uc *c = g->pal[g->bgindex];
U
urraka 已提交
5678 5679 5680 5681 5682 5683 5684 5685
   for (y = y0; y < y1; y += 4 * g->w) {
      for (x = x0; x < x1; x += 4) {
         stbi_uc *p  = &g->out[y + x];
         p[0] = c[2];
         p[1] = c[1];
         p[2] = c[0];
         p[3] = 0;
      }
5686 5687 5688 5689
   }
}

// this function is designed to support animated gifs, although stb_image doesn't support it
5690
static stbi_uc *stbi__gif_load_next(stbi__context *s, stbi__gif *g, int *comp, int req_comp)
5691 5692
{
   int i;
U
urraka 已提交
5693
   stbi_uc *prev_out = 0;
5694

U
urraka 已提交
5695 5696 5697 5698 5699 5700 5701 5702 5703 5704 5705 5706 5707 5708 5709 5710 5711 5712 5713 5714 5715 5716 5717 5718 5719
   if (g->out == 0 && !stbi__gif_header(s, g, comp,0))
      return 0; // stbi__g_failure_reason set by stbi__gif_header

   prev_out = g->out;
   g->out = (stbi_uc *) stbi__malloc(4 * g->w * g->h);
   if (g->out == 0) return stbi__errpuc("outofmem", "Out of memory");

   switch ((g->eflags & 0x1C) >> 2) {
      case 0: // unspecified (also always used on 1st frame)
         stbi__fill_gif_background(g, 0, 0, 4 * g->w, 4 * g->w * g->h);
         break;
      case 1: // do not dispose
         if (prev_out) memcpy(g->out, prev_out, 4 * g->w * g->h);
         g->old_out = prev_out;
         break;
      case 2: // dispose to background
         if (prev_out) memcpy(g->out, prev_out, 4 * g->w * g->h);
         stbi__fill_gif_background(g, g->start_x, g->start_y, g->max_x, g->max_y);
         break;
      case 3: // dispose to previous
         if (g->old_out) {
            for (i = g->start_y; i < g->max_y; i += 4 * g->w)
               memcpy(&g->out[i + g->start_x], &g->old_out[i + g->start_x], g->max_x - g->start_x);
         }
         break;
5720
   }
S
Sean Barrett 已提交
5721

5722
   for (;;) {
5723
      switch (stbi__get8(s)) {
5724 5725
         case 0x2C: /* Image Descriptor */
         {
U
urraka 已提交
5726
            int prev_trans = -1;
5727
            stbi__int32 x, y, w, h;
5728
            stbi_uc *o;
5729

5730 5731 5732 5733
            x = stbi__get16le(s);
            y = stbi__get16le(s);
            w = stbi__get16le(s);
            h = stbi__get16le(s);
5734
            if (((x + w) > (g->w)) || ((y + h) > (g->h)))
S
Sean Barrett 已提交
5735
               return stbi__errpuc("bad Image Descriptor", "Corrupt GIF");
5736 5737 5738 5739 5740 5741 5742 5743 5744

            g->line_size = g->w * 4;
            g->start_x = x * 4;
            g->start_y = y * g->line_size;
            g->max_x   = g->start_x + w * 4;
            g->max_y   = g->start_y + h * g->line_size;
            g->cur_x   = g->start_x;
            g->cur_y   = g->start_y;

5745
            g->lflags = stbi__get8(s);
5746 5747 5748 5749 5750 5751 5752 5753 5754 5755

            if (g->lflags & 0x40) {
               g->step = 8 * g->line_size; // first interlaced spacing
               g->parse = 3;
            } else {
               g->step = g->line_size;
               g->parse = 0;
            }

            if (g->lflags & 0x80) {
5756
               stbi__gif_parse_colortable(s,g->lpal, 2 << (g->lflags & 7), g->eflags & 0x01 ? g->transparent : -1);
S
Sean Barrett 已提交
5757
               g->color_table = (stbi_uc *) g->lpal;
5758
            } else if (g->flags & 0x80) {
U
urraka 已提交
5759 5760
               if (g->transparent >= 0 && (g->eflags & 0x01)) {
                  prev_trans = g->pal[g->transparent][3];
5761
                  g->pal[g->transparent][3] = 0;
U
urraka 已提交
5762
               }
5763
               g->color_table = (stbi_uc *) g->pal;
5764
            } else
S
Sean Barrett 已提交
5765
               return stbi__errpuc("missing color table", "Corrupt GIF");
S
Sean Barrett 已提交
5766

5767
            o = stbi__process_gif_raster(s, g);
5768 5769
            if (o == NULL) return NULL;

U
urraka 已提交
5770
            if (prev_trans != -1)
5771
               g->pal[g->transparent][3] = (stbi_uc) prev_trans;
U
urraka 已提交
5772

5773 5774 5775 5776 5777 5778
            return o;
         }

         case 0x21: // Comment Extension.
         {
            int len;
5779 5780
            if (stbi__get8(s) == 0xF9) { // Graphic Control Extension.
               len = stbi__get8(s);
5781
               if (len == 4) {
5782
                  g->eflags = stbi__get8(s);
U
urraka 已提交
5783
                  g->delay = stbi__get16le(s);
5784
                  g->transparent = stbi__get8(s);
5785
               } else {
5786
                  stbi__skip(s, len);
5787 5788 5789
                  break;
               }
            }
5790 5791
            while ((len = stbi__get8(s)) != 0)
               stbi__skip(s, len);
5792 5793 5794 5795
            break;
         }

         case 0x3B: // gif stream termination code
5796
            return (stbi_uc *) s; // using '1' causes warning on some compilers
5797 5798

         default:
S
Sean Barrett 已提交
5799
            return stbi__errpuc("unknown code", "Corrupt GIF");
5800 5801
      }
   }
5802 5803

   STBI_NOTUSED(req_comp);
5804 5805
}

S
Sean Barrett 已提交
5806
static stbi_uc *stbi__gif_load(stbi__context *s, int *x, int *y, int *comp, int req_comp)
5807
{
5808
   stbi_uc *u = 0;
J
johan 已提交
5809 5810
   stbi__gif g;
   memset(&g, 0, sizeof(g));
5811

5812
   u = stbi__gif_load_next(s, &g, comp, req_comp);
5813
   if (u == (stbi_uc *) s) u = 0;  // end of animated gif marker
5814 5815 5816
   if (u) {
      *x = g.w;
      *y = g.h;
U
urraka 已提交
5817 5818
      if (req_comp && req_comp != 4)
         u = stbi__convert_format(u, 4, req_comp, g.w, g.h);
5819
   }
U
urraka 已提交
5820 5821
   else if (g.out)
      STBI_FREE(g.out);
5822 5823 5824 5825

   return u;
}

S
Sean Barrett 已提交
5826
static int stbi__gif_info(stbi__context *s, int *x, int *y, int *comp)
5827
{
5828
   return stbi__gif_info_raw(s,x,y,comp);
5829
}
5830
#endif
5831 5832 5833 5834 5835

// *************************************************************************************************
// Radiance RGBE HDR loader
// originally by Nicolas Schulz
#ifndef STBI_NO_HDR
5836
static int stbi__hdr_test_core(stbi__context *s)
5837 5838 5839 5840
{
   const char *signature = "#?RADIANCE\n";
   int i;
   for (i=0; signature[i]; ++i)
5841
      if (stbi__get8(s) != signature[i])
5842 5843 5844 5845
         return 0;
   return 1;
}

S
Sean Barrett 已提交
5846
static int stbi__hdr_test(stbi__context* s)
5847
{
5848 5849
   int r = stbi__hdr_test_core(s);
   stbi__rewind(s);
5850 5851 5852
   return r;
}

5853 5854
#define STBI__HDR_BUFLEN  1024
static char *stbi__hdr_gettoken(stbi__context *z, char *buffer)
5855 5856 5857 5858
{
   int len=0;
   char c = '\0';

5859
   c = (char) stbi__get8(z);
5860

5861
   while (!stbi__at_eof(z) && c != '\n') {
5862
      buffer[len++] = c;
5863
      if (len == STBI__HDR_BUFLEN-1) {
5864
         // flush to end of line
5865
         while (!stbi__at_eof(z) && stbi__get8(z) != '\n')
5866 5867 5868
            ;
         break;
      }
5869
      c = (char) stbi__get8(z);
5870 5871 5872 5873 5874 5875
   }

   buffer[len] = 0;
   return buffer;
}

5876
static void stbi__hdr_convert(float *output, stbi_uc *input, int req_comp)
5877 5878 5879 5880 5881 5882 5883 5884 5885 5886 5887 5888 5889 5890 5891 5892 5893 5894 5895 5896 5897 5898 5899 5900 5901 5902
{
   if ( input[3] != 0 ) {
      float f1;
      // Exponent
      f1 = (float) ldexp(1.0f, input[3] - (int)(128 + 8));
      if (req_comp <= 2)
         output[0] = (input[0] + input[1] + input[2]) * f1 / 3;
      else {
         output[0] = input[0] * f1;
         output[1] = input[1] * f1;
         output[2] = input[2] * f1;
      }
      if (req_comp == 2) output[1] = 1;
      if (req_comp == 4) output[3] = 1;
   } else {
      switch (req_comp) {
         case 4: output[3] = 1; /* fallthrough */
         case 3: output[0] = output[1] = output[2] = 0;
                 break;
         case 2: output[1] = 1; /* fallthrough */
         case 1: output[0] = 0;
                 break;
      }
   }
}

5903
static float *stbi__hdr_load(stbi__context *s, int *x, int *y, int *comp, int req_comp)
5904
{
5905
   char buffer[STBI__HDR_BUFLEN];
5906 5907 5908 5909 5910 5911 5912 5913 5914 5915 5916
   char *token;
   int valid = 0;
   int width, height;
   stbi_uc *scanline;
   float *hdr_data;
   int len;
   unsigned char count, value;
   int i, j, k, c1,c2, z;


   // Check identifier
5917
   if (strcmp(stbi__hdr_gettoken(s,buffer), "#?RADIANCE") != 0)
S
Sean Barrett 已提交
5918
      return stbi__errpf("not HDR", "Corrupt HDR image");
S
Sean Barrett 已提交
5919

5920 5921
   // Parse header
   for(;;) {
5922
      token = stbi__hdr_gettoken(s,buffer);
5923 5924 5925 5926
      if (token[0] == 0) break;
      if (strcmp(token, "FORMAT=32-bit_rle_rgbe") == 0) valid = 1;
   }

S
Sean Barrett 已提交
5927
   if (!valid)    return stbi__errpf("unsupported format", "Unsupported HDR format");
5928 5929 5930

   // Parse width and height
   // can't use sscanf() if we're not using stdio!
5931
   token = stbi__hdr_gettoken(s,buffer);
S
Sean Barrett 已提交
5932
   if (strncmp(token, "-Y ", 3))  return stbi__errpf("unsupported data layout", "Unsupported HDR format");
5933 5934 5935
   token += 3;
   height = (int) strtol(token, &token, 10);
   while (*token == ' ') ++token;
S
Sean Barrett 已提交
5936
   if (strncmp(token, "+X ", 3))  return stbi__errpf("unsupported data layout", "Unsupported HDR format");
5937 5938 5939 5940 5941 5942
   token += 3;
   width = (int) strtol(token, NULL, 10);

   *x = width;
   *y = height;

5943
   if (comp) *comp = 3;
5944 5945 5946
   if (req_comp == 0) req_comp = 3;

   // Read data
5947
   hdr_data = (float *) stbi__malloc(height * width * req_comp * sizeof(float));
5948 5949 5950 5951 5952 5953 5954 5955 5956

   // Load image data
   // image data is stored as some number of sca
   if ( width < 8 || width >= 32768) {
      // Read flat data
      for (j=0; j < height; ++j) {
         for (i=0; i < width; ++i) {
            stbi_uc rgbe[4];
           main_decode_loop:
5957
            stbi__getn(s, rgbe, 4);
5958
            stbi__hdr_convert(hdr_data + j * width * req_comp + i * req_comp, rgbe, req_comp);
5959 5960 5961 5962 5963 5964 5965
         }
      }
   } else {
      // Read RLE-encoded data
      scanline = NULL;

      for (j = 0; j < height; ++j) {
5966 5967 5968
         c1 = stbi__get8(s);
         c2 = stbi__get8(s);
         len = stbi__get8(s);
5969 5970 5971
         if (c1 != 2 || c2 != 2 || (len & 0x80)) {
            // not run-length encoded, so we have to actually use THIS data as a decoded
            // pixel (note this can't be a valid pixel--one of RGB must be >= 128)
5972 5973 5974 5975
            stbi_uc rgbe[4];
            rgbe[0] = (stbi_uc) c1;
            rgbe[1] = (stbi_uc) c2;
            rgbe[2] = (stbi_uc) len;
5976
            rgbe[3] = (stbi_uc) stbi__get8(s);
5977
            stbi__hdr_convert(hdr_data, rgbe, req_comp);
5978 5979
            i = 1;
            j = 0;
S
Sean Barrett 已提交
5980
            STBI_FREE(scanline);
5981 5982 5983
            goto main_decode_loop; // yes, this makes no sense
         }
         len <<= 8;
5984
         len |= stbi__get8(s);
S
Sean Barrett 已提交
5985
         if (len != width) { STBI_FREE(hdr_data); STBI_FREE(scanline); return stbi__errpf("invalid decoded scanline length", "corrupt HDR"); }
5986
         if (scanline == NULL) scanline = (stbi_uc *) stbi__malloc(width * 4);
S
Sean Barrett 已提交
5987

5988 5989 5990
         for (k = 0; k < 4; ++k) {
            i = 0;
            while (i < width) {
5991
               count = stbi__get8(s);
5992 5993
               if (count > 128) {
                  // Run
5994
                  value = stbi__get8(s);
5995 5996 5997 5998 5999 6000
                  count -= 128;
                  for (z = 0; z < count; ++z)
                     scanline[i++ * 4 + k] = value;
               } else {
                  // Dump
                  for (z = 0; z < count; ++z)
6001
                     scanline[i++ * 4 + k] = stbi__get8(s);
6002 6003 6004 6005
               }
            }
         }
         for (i=0; i < width; ++i)
6006
            stbi__hdr_convert(hdr_data+(j*width + i)*req_comp, scanline + i*4, req_comp);
6007
      }
S
Sean Barrett 已提交
6008
      STBI_FREE(scanline);
6009 6010 6011 6012 6013
   }

   return hdr_data;
}

6014
static int stbi__hdr_info(stbi__context *s, int *x, int *y, int *comp)
6015
{
6016
   char buffer[STBI__HDR_BUFLEN];
6017 6018 6019
   char *token;
   int valid = 0;

6020 6021
   if (strcmp(stbi__hdr_gettoken(s,buffer), "#?RADIANCE") != 0) {
       stbi__rewind( s );
6022 6023 6024 6025
       return 0;
   }

   for(;;) {
6026
      token = stbi__hdr_gettoken(s,buffer);
6027 6028 6029 6030 6031
      if (token[0] == 0) break;
      if (strcmp(token, "FORMAT=32-bit_rle_rgbe") == 0) valid = 1;
   }

   if (!valid) {
6032
       stbi__rewind( s );
6033 6034
       return 0;
   }
6035
   token = stbi__hdr_gettoken(s,buffer);
6036
   if (strncmp(token, "-Y ", 3)) {
6037
       stbi__rewind( s );
6038 6039 6040 6041 6042 6043
       return 0;
   }
   token += 3;
   *y = (int) strtol(token, &token, 10);
   while (*token == ' ') ++token;
   if (strncmp(token, "+X ", 3)) {
6044
       stbi__rewind( s );
6045 6046 6047 6048 6049 6050 6051 6052 6053
       return 0;
   }
   token += 3;
   *x = (int) strtol(token, NULL, 10);
   *comp = 3;
   return 1;
}
#endif // STBI_NO_HDR

6054
#ifndef STBI_NO_BMP
6055
static int stbi__bmp_info(stbi__context *s, int *x, int *y, int *comp)
6056 6057
{
   int hsz;
6058
   if (stbi__get8(s) != 'B' || stbi__get8(s) != 'M') {
6059
       stbi__rewind( s );
6060 6061
       return 0;
   }
6062 6063
   stbi__skip(s,12);
   hsz = stbi__get32le(s);
6064
   if (hsz != 12 && hsz != 40 && hsz != 56 && hsz != 108 && hsz != 124) {
6065
       stbi__rewind( s );
6066 6067 6068
       return 0;
   }
   if (hsz == 12) {
6069 6070
      *x = stbi__get16le(s);
      *y = stbi__get16le(s);
6071
   } else {
6072 6073
      *x = stbi__get32le(s);
      *y = stbi__get32le(s);
6074
   }
6075
   if (stbi__get16le(s) != 1) {
6076
       stbi__rewind( s );
6077 6078
       return 0;
   }
6079
   *comp = stbi__get16le(s) / 8;
6080 6081
   return 1;
}
6082
#endif
6083

6084
#ifndef STBI_NO_PSD
6085
static int stbi__psd_info(stbi__context *s, int *x, int *y, int *comp)
6086 6087
{
   int channelCount;
6088
   if (stbi__get32be(s) != 0x38425053) {
6089
       stbi__rewind( s );
6090 6091
       return 0;
   }
6092
   if (stbi__get16be(s) != 1) {
6093
       stbi__rewind( s );
6094 6095
       return 0;
   }
6096 6097
   stbi__skip(s, 6);
   channelCount = stbi__get16be(s);
6098
   if (channelCount < 0 || channelCount > 16) {
6099
       stbi__rewind( s );
6100 6101
       return 0;
   }
6102 6103 6104
   *y = stbi__get32be(s);
   *x = stbi__get32be(s);
   if (stbi__get16be(s) != 8) {
6105
       stbi__rewind( s );
6106 6107
       return 0;
   }
6108
   if (stbi__get16be(s) != 3) {
6109
       stbi__rewind( s );
6110 6111 6112 6113 6114
       return 0;
   }
   *comp = 4;
   return 1;
}
6115
#endif
6116

6117
#ifndef STBI_NO_PIC
6118
static int stbi__pic_info(stbi__context *s, int *x, int *y, int *comp)
6119 6120
{
   int act_comp=0,num_packets=0,chained;
6121
   stbi__pic_packet packets[10];
6122

6123 6124 6125 6126 6127 6128
   if (!stbi__pic_is4(s,"\x53\x80\xF6\x34")) {
      stbi__rewind(s);
      return 0;
   }

   stbi__skip(s, 88);
6129

6130 6131
   *x = stbi__get16be(s);
   *y = stbi__get16be(s);
6132 6133 6134 6135
   if (stbi__at_eof(s)) {
      stbi__rewind( s);
      return 0;
   }
6136
   if ( (*x) != 0 && (1 << 28) / (*x) < (*y)) {
6137 6138
      stbi__rewind( s );
      return 0;
6139 6140
   }

6141
   stbi__skip(s, 8);
6142 6143

   do {
6144
      stbi__pic_packet *packet;
6145 6146 6147 6148 6149

      if (num_packets==sizeof(packets)/sizeof(packets[0]))
         return 0;

      packet = &packets[num_packets++];
6150
      chained = stbi__get8(s);
6151 6152 6153
      packet->size    = stbi__get8(s);
      packet->type    = stbi__get8(s);
      packet->channel = stbi__get8(s);
6154 6155
      act_comp |= packet->channel;

6156
      if (stbi__at_eof(s)) {
6157
          stbi__rewind( s );
6158 6159 6160
          return 0;
      }
      if (packet->size != 8) {
6161
          stbi__rewind( s );
6162 6163 6164 6165 6166 6167 6168 6169
          return 0;
      }
   } while (chained);

   *comp = (act_comp & 0x10 ? 4 : 3);

   return 1;
}
6170
#endif
6171

K
Ken Miller 已提交
6172 6173 6174 6175 6176 6177 6178 6179 6180 6181
// *************************************************************************************************
// Portable Gray Map and Portable Pixel Map loader
// by Ken Miller
//
// PGM: http://netpbm.sourceforge.net/doc/pgm.html
// PPM: http://netpbm.sourceforge.net/doc/ppm.html
//
// Known limitations:
//    Does not support comments in the header section
//    Does not support ASCII image data (formats P2 and P3)
S
Sean Barrett 已提交
6182
//    Does not support 16-bit-per-channel
K
Ken Miller 已提交
6183

6184 6185
#ifndef STBI_NO_PNM

K
Ken Miller 已提交
6186 6187 6188 6189 6190 6191 6192 6193 6194 6195 6196 6197 6198 6199 6200
static int      stbi__pnm_test(stbi__context *s)
{
   char p, t;
   p = (char) stbi__get8(s);
   t = (char) stbi__get8(s);
   if (p != 'P' || (t != '5' && t != '6')) {
       stbi__rewind( s );
       return 0;
   }
   return 1;
}

static stbi_uc *stbi__pnm_load(stbi__context *s, int *x, int *y, int *comp, int req_comp)
{
   stbi_uc *out;
S
Sean Barrett 已提交
6201 6202
   if (!stbi__pnm_info(s, (int *)&s->img_x, (int *)&s->img_y, (int *)&s->img_n))
      return 0;
K
Ken Miller 已提交
6203 6204 6205 6206
   *x = s->img_x;
   *y = s->img_y;
   *comp = s->img_n;

S
Sean Barrett 已提交
6207
   out = (stbi_uc *) stbi__malloc(s->img_n * s->img_x * s->img_y);
K
Ken Miller 已提交
6208 6209 6210 6211 6212 6213 6214 6215 6216 6217 6218 6219
   if (!out) return stbi__errpuc("outofmem", "Out of memory");
   stbi__getn(s, out, s->img_n * s->img_x * s->img_y);

   if (req_comp && req_comp != s->img_n) {
      out = stbi__convert_format(out, s->img_n, req_comp, s->img_x, s->img_y);
      if (out == NULL) return out; // stbi__convert_format frees input on failure
   }
   return out;
}

static int      stbi__pnm_isspace(char c)
{
6220
   return c == ' ' || c == '\t' || c == '\n' || c == '\v' || c == '\f' || c == '\r';
K
Ken Miller 已提交
6221 6222
}

S
Sean Barrett 已提交
6223
static void     stbi__pnm_skip_whitespace(stbi__context *s, char *c)
K
Ken Miller 已提交
6224
{
S
Sean Barrett 已提交
6225
   while (!stbi__at_eof(s) && stbi__pnm_isspace(*c))
K
Ken Miller 已提交
6226 6227 6228 6229 6230 6231 6232 6233 6234 6235 6236 6237 6238
      *c = (char) stbi__get8(s);
}

static int      stbi__pnm_isdigit(char c)
{
   return c >= '0' && c <= '9';
}

static int      stbi__pnm_getinteger(stbi__context *s, char *c)
{
   int value = 0;

   while (!stbi__at_eof(s) && stbi__pnm_isdigit(*c)) {
S
Sean Barrett 已提交
6239
      value = value*10 + (*c - '0');
K
Ken Miller 已提交
6240 6241 6242 6243 6244 6245 6246 6247
      *c = (char) stbi__get8(s);
   }

   return value;
}

static int      stbi__pnm_info(stbi__context *s, int *x, int *y, int *comp)
{
S
Sean Barrett 已提交
6248
   int maxv;
K
Ken Miller 已提交
6249 6250 6251 6252 6253 6254 6255 6256 6257 6258 6259 6260
   char c, p, t;

   stbi__rewind( s );

   // Get identifier
   p = (char) stbi__get8(s);
   t = (char) stbi__get8(s);
   if (p != 'P' || (t != '5' && t != '6')) {
       stbi__rewind( s );
       return 0;
   }

S
Sean Barrett 已提交
6261
   *comp = (t == '6') ? 3 : 1;  // '5' is 1-component .pgm; '6' is 3-component .ppm
K
Ken Miller 已提交
6262

S
Sean Barrett 已提交
6263
   c = (char) stbi__get8(s);
S
Sean Barrett 已提交
6264
   stbi__pnm_skip_whitespace(s, &c);
K
Ken Miller 已提交
6265

S
Sean Barrett 已提交
6266 6267
   *x = stbi__pnm_getinteger(s, &c); // read width
   stbi__pnm_skip_whitespace(s, &c);
K
Ken Miller 已提交
6268

S
Sean Barrett 已提交
6269 6270
   *y = stbi__pnm_getinteger(s, &c); // read height
   stbi__pnm_skip_whitespace(s, &c);
K
Ken Miller 已提交
6271

S
Sean Barrett 已提交
6272
   maxv = stbi__pnm_getinteger(s, &c);  // read max value
K
Ken Miller 已提交
6273

S
Sean Barrett 已提交
6274 6275 6276 6277
   if (maxv > 255)
      return stbi__err("max value > 255", "PPM image not 8-bit");
   else
      return 1;
K
Ken Miller 已提交
6278
}
6279
#endif
K
Ken Miller 已提交
6280

6281
static int stbi__info_main(stbi__context *s, int *x, int *y, int *comp)
6282
{
6283 6284 6285 6286 6287 6288 6289 6290 6291 6292 6293 6294 6295 6296 6297 6298 6299 6300 6301
   #ifndef STBI_NO_JPEG
   if (stbi__jpeg_info(s, x, y, comp)) return 1;
   #endif

   #ifndef STBI_NO_PNG
   if (stbi__png_info(s, x, y, comp))  return 1;
   #endif

   #ifndef STBI_NO_GIF
   if (stbi__gif_info(s, x, y, comp))  return 1;
   #endif

   #ifndef STBI_NO_BMP
   if (stbi__bmp_info(s, x, y, comp))  return 1;
   #endif

   #ifndef STBI_NO_PSD
   if (stbi__psd_info(s, x, y, comp))  return 1;
   #endif
6302

6303 6304 6305 6306 6307 6308 6309 6310
   #ifndef STBI_NO_PIC
   if (stbi__pic_info(s, x, y, comp))  return 1;
   #endif

   #ifndef STBI_NO_PNM
   if (stbi__pnm_info(s, x, y, comp))  return 1;
   #endif

6311
   #ifndef STBI_NO_HDR
6312
   if (stbi__hdr_info(s, x, y, comp))  return 1;
6313
   #endif
6314

6315
   // test tga last because it's a crappy test!
6316
   #ifndef STBI_NO_TGA
S
Sean Barrett 已提交
6317
   if (stbi__tga_info(s, x, y, comp))
6318
       return 1;
6319
   #endif
S
Sean Barrett 已提交
6320
   return stbi__err("unknown image type", "Image not of any known type, or corrupt");
6321 6322 6323 6324 6325
}

#ifndef STBI_NO_STDIO
STBIDEF int stbi_info(char const *filename, int *x, int *y, int *comp)
{
S
Sean Barrett 已提交
6326
    FILE *f = stbi__fopen(filename, "rb");
6327
    int result;
S
Sean Barrett 已提交
6328
    if (!f) return stbi__err("can't fopen", "Unable to open file");
6329 6330 6331 6332 6333 6334 6335 6336
    result = stbi_info_from_file(f, x, y, comp);
    fclose(f);
    return result;
}

STBIDEF int stbi_info_from_file(FILE *f, int *x, int *y, int *comp)
{
   int r;
S
Sean Barrett 已提交
6337
   stbi__context s;
6338
   long pos = ftell(f);
6339 6340
   stbi__start_file(&s, f);
   r = stbi__info_main(&s,x,y,comp);
6341 6342 6343 6344 6345 6346 6347
   fseek(f,pos,SEEK_SET);
   return r;
}
#endif // !STBI_NO_STDIO

STBIDEF int stbi_info_from_memory(stbi_uc const *buffer, int len, int *x, int *y, int *comp)
{
S
Sean Barrett 已提交
6348 6349
   stbi__context s;
   stbi__start_mem(&s,buffer,len);
6350
   return stbi__info_main(&s,x,y,comp);
6351 6352 6353 6354
}

STBIDEF int stbi_info_from_callbacks(stbi_io_callbacks const *c, void *user, int *x, int *y, int *comp)
{
S
Sean Barrett 已提交
6355 6356
   stbi__context s;
   stbi__start_callbacks(&s, (stbi_io_callbacks *) c, user);
6357
   return stbi__info_main(&s,x,y,comp);
6358 6359 6360 6361 6362 6363
}

#endif // STB_IMAGE_IMPLEMENTATION

/*
   revision history:
6364
      2.08  (2015-09-13) fix to 2.07 cleanup, reading RGB PSD as RGBA
6365 6366 6367 6368 6369
      2.07  (2015-09-13) fix compiler warnings
                         partial animated GIF support
                         limited 16-bit PSD support
                         #ifdef unused functions
                         bug with < 92 byte PIC,PNM,HDR,TGA
6370
      2.06  (2015-04-19) fix bug where PSD returns wrong '*comp' value
S
Sean Barrett 已提交
6371
      2.05  (2015-04-19) fix bug in progressive JPEG handling, fix warning
6372
      2.04  (2015-04-15) try to re-enable SIMD on MinGW 64-bit
S
Sean Barrett 已提交
6373 6374
      2.03  (2015-04-12) extra corruption checking (mmozeiko)
                         stbi_set_flip_vertically_on_load (nguillemot)
6375
                         fix NEON support; fix mingw support
6376
      2.02  (2015-01-19) fix incorrect assert, fix warning
6377
      2.01  (2015-01-17) fix various warnings; suppress SIMD on gcc 32-bit without -msse2
S
Sean Barrett 已提交
6378 6379 6380 6381 6382 6383 6384 6385 6386 6387 6388 6389 6390 6391 6392 6393 6394 6395 6396 6397 6398 6399 6400 6401 6402 6403 6404 6405 6406 6407 6408 6409 6410 6411 6412 6413 6414 6415 6416 6417 6418 6419 6420 6421 6422 6423 6424 6425 6426 6427 6428 6429 6430 6431 6432 6433 6434 6435 6436 6437 6438 6439 6440 6441 6442 6443 6444 6445 6446 6447 6448 6449 6450 6451 6452 6453 6454 6455 6456 6457 6458 6459 6460 6461
      2.00b (2014-12-25) fix STBI_MALLOC in progressive JPEG
      2.00  (2014-12-25) optimize JPG, including x86 SSE2 & NEON SIMD (ryg)
                         progressive JPEG (stb)
                         PGM/PPM support (Ken Miller)
                         STBI_MALLOC,STBI_REALLOC,STBI_FREE
                         GIF bugfix -- seemingly never worked
                         STBI_NO_*, STBI_ONLY_*
      1.48  (2014-12-14) fix incorrectly-named assert()
      1.47  (2014-12-14) 1/2/4-bit PNG support, both direct and paletted (Omar Cornut & stb)
                         optimize PNG (ryg)
                         fix bug in interlaced PNG with user-specified channel count (stb)
      1.46  (2014-08-26)
              fix broken tRNS chunk (colorkey-style transparency) in non-paletted PNG
      1.45  (2014-08-16)
              fix MSVC-ARM internal compiler error by wrapping malloc
      1.44  (2014-08-07)
              various warning fixes from Ronny Chevalier
      1.43  (2014-07-15)
              fix MSVC-only compiler problem in code changed in 1.42
      1.42  (2014-07-09)
              don't define _CRT_SECURE_NO_WARNINGS (affects user code)
              fixes to stbi__cleanup_jpeg path
              added STBI_ASSERT to avoid requiring assert.h
      1.41  (2014-06-25)
              fix search&replace from 1.36 that messed up comments/error messages
      1.40  (2014-06-22)
              fix gcc struct-initialization warning
      1.39  (2014-06-15)
              fix to TGA optimization when req_comp != number of components in TGA;
              fix to GIF loading because BMP wasn't rewinding (whoops, no GIFs in my test suite)
              add support for BMP version 5 (more ignored fields)
      1.38  (2014-06-06)
              suppress MSVC warnings on integer casts truncating values
              fix accidental rename of 'skip' field of I/O
      1.37  (2014-06-04)
              remove duplicate typedef
      1.36  (2014-06-03)
              convert to header file single-file library
              if de-iphone isn't set, load iphone images color-swapped instead of returning NULL
      1.35  (2014-05-27)
              various warnings
              fix broken STBI_SIMD path
              fix bug where stbi_load_from_file no longer left file pointer in correct place
              fix broken non-easy path for 32-bit BMP (possibly never used)
              TGA optimization by Arseny Kapoulkine
      1.34  (unknown)
              use STBI_NOTUSED in stbi__resample_row_generic(), fix one more leak in tga failure case
      1.33  (2011-07-14)
              make stbi_is_hdr work in STBI_NO_HDR (as specified), minor compiler-friendly improvements
      1.32  (2011-07-13)
              support for "info" function for all supported filetypes (SpartanJ)
      1.31  (2011-06-20)
              a few more leak fixes, bug in PNG handling (SpartanJ)
      1.30  (2011-06-11)
              added ability to load files via callbacks to accomidate custom input streams (Ben Wenger)
              removed deprecated format-specific test/load functions
              removed support for installable file formats (stbi_loader) -- would have been broken for IO callbacks anyway
              error cases in bmp and tga give messages and don't leak (Raymond Barbiero, grisha)
              fix inefficiency in decoding 32-bit BMP (David Woo)
      1.29  (2010-08-16)
              various warning fixes from Aurelien Pocheville
      1.28  (2010-08-01)
              fix bug in GIF palette transparency (SpartanJ)
      1.27  (2010-08-01)
              cast-to-stbi_uc to fix warnings
      1.26  (2010-07-24)
              fix bug in file buffering for PNG reported by SpartanJ
      1.25  (2010-07-17)
              refix trans_data warning (Won Chun)
      1.24  (2010-07-12)
              perf improvements reading from files on platforms with lock-heavy fgetc()
              minor perf improvements for jpeg
              deprecated type-specific functions so we'll get feedback if they're needed
              attempt to fix trans_data warning (Won Chun)
      1.23    fixed bug in iPhone support
      1.22  (2010-07-10)
              removed image *writing* support
              stbi_info support from Jetro Lauha
              GIF support from Jean-Marc Lienher
              iPhone PNG-extensions from James Brown
              warning-fixes from Nicolas Schulz and Janez Zemva (i.stbi__err. Janez (U+017D)emva)
      1.21    fix use of 'stbi_uc' in header (reported by jon blow)
      1.20    added support for Softimage PIC, by Tom Seddon
      1.19    bug in interlaced PNG corruption check (found by ryg)
S
Sean Barrett 已提交
6462
      1.18  (2008-08-02)
S
Sean Barrett 已提交
6463 6464 6465 6466 6467 6468 6469 6470 6471 6472 6473 6474 6475 6476 6477 6478 6479 6480 6481 6482 6483 6484 6485 6486 6487 6488 6489 6490 6491 6492 6493 6494 6495 6496 6497 6498 6499 6500 6501 6502 6503 6504 6505 6506
              fix a threading bug (local mutable static)
      1.17    support interlaced PNG
      1.16    major bugfix - stbi__convert_format converted one too many pixels
      1.15    initialize some fields for thread safety
      1.14    fix threadsafe conversion bug
              header-file-only version (#define STBI_HEADER_FILE_ONLY before including)
      1.13    threadsafe
      1.12    const qualifiers in the API
      1.11    Support installable IDCT, colorspace conversion routines
      1.10    Fixes for 64-bit (don't use "unsigned long")
              optimized upsampling by Fabian "ryg" Giesen
      1.09    Fix format-conversion for PSD code (bad global variables!)
      1.08    Thatcher Ulrich's PSD code integrated by Nicolas Schulz
      1.07    attempt to fix C++ warning/errors again
      1.06    attempt to fix C++ warning/errors again
      1.05    fix TGA loading to return correct *comp and use good luminance calc
      1.04    default float alpha is 1, not 255; use 'void *' for stbi_image_free
      1.03    bugfixes to STBI_NO_STDIO, STBI_NO_HDR
      1.02    support for (subset of) HDR files, float interface for preferred access to them
      1.01    fix bug: possible bug in handling right-side up bmps... not sure
              fix bug: the stbi__bmp_load() and stbi__tga_load() functions didn't work at all
      1.00    interface to zlib that skips zlib header
      0.99    correct handling of alpha in palette
      0.98    TGA loader by lonesock; dynamically add loaders (untested)
      0.97    jpeg errors on too large a file; also catch another malloc failure
      0.96    fix detection of invalid v value - particleman@mollyrocket forum
      0.95    during header scan, seek to markers in case of padding
      0.94    STBI_NO_STDIO to disable stdio usage; rename all #defines the same
      0.93    handle jpegtran output; verbose errors
      0.92    read 4,8,16,24,32-bit BMP files of several formats
      0.91    output 24-bit Windows 3.0 BMP files
      0.90    fix a few more warnings; bump version number to approach 1.0
      0.61    bugfixes due to Marc LeBlanc, Christopher Lloyd
      0.60    fix compiling as c++
      0.59    fix warnings: merge Dave Moore's -Wall fixes
      0.58    fix bug: zlib uncompressed mode len/nlen was wrong endian
      0.57    fix bug: jpg last huffman symbol before marker was >9 bits but less than 16 available
      0.56    fix bug: zlib uncompressed mode len vs. nlen
      0.55    fix bug: restart_interval not initialized to 0
      0.54    allow NULL for 'int *comp'
      0.53    fix bug in png 3->4; speedup png decoding
      0.52    png handles req_comp=3,4 directly; minor cleanup; jpeg comments
      0.51    obey req_comp requests, 1-component jpegs return as 1-component,
              on 'test' only check type, not whether we support this variant
S
Sean Barrett 已提交
6507 6508
      0.50  (2006-11-19)
              first released version
6509
*/