Function depack_img

outdated/win/gem/load_img.c:163–291

Loads & depacks IMG (0 if succeded, else error). */ Bitplanes are one after another in address IMG_HEADER.addr. */

/* Loads & depacks IMG (0 if succeded, else error). */
/* Bitplanes are one after another in address IMG_HEADER.addr. */
int
depack_img(char *name, IMG_header *pic)
{
    int b, line, plane, width, word_aligned, opcode, patt_len, pal_size,
        byte_repeat, patt_repeat, scan_repeat, error = FALSE;
    char *pattern, *to, *endline, *puffer, sol_pat;
    long size;
    FILE *fp;

    if ((fp = fopen(name, "rb")) == NULL)
        return (ERR_FILE);

    setvbuf(fp, NULL, _IOLBF, BUFSIZ);

    /* read header info (bw & ximg) into image structure */
    fread((char *) &(pic->version), 2, 8 + 3, fp);

    /* only 2-256 color imgs */
    if (pic->planes < 1 || pic->planes > 8) {
        error = ERR_COLOR;
        goto end_depack;
    }

    /* if XIMG, read info */
    if (pic->magic == XIMG && pic->paltype == 0) {
        pal_size = (1 << pic->planes) * 3 * 2;
        if ((pic->palette = (short *) calloc(1, pal_size))) {
            fread((char *) pic->palette, 1, pal_size, fp);
        }
    } else {
        pic->palette = NULL;
    }

    /* width in bytes word aliged */
    word_aligned = (pic->img_w + 15) >> 4;
    word_aligned <<= 1;

    /* width byte aligned */
    width = (pic->img_w + 7) >> 3;

    /* allocate memory for the picture */
    free(pic->addr);
    size = (long) ((long) word_aligned * (long) pic->img_h
                   * (long) pic->planes); /*MAR*/

    /* check for header validity & malloc long... */
    if (pic->length > 7 && pic->planes < 33 && pic->img_w > 0
        && pic->img_h > 0) {
        if (!(pic->addr = (char *) calloc(1, size))) {
            error = ERR_ALLOC;
            goto end_depack;
        }
    } else {
        error = ERR_HEADER;
        goto end_depack;
    }

    patt_len = pic->pat_len;