libavcodec/pnm.c

   1 /*
   2  * PNM image format
   3  * Copyright (c) 2002, 2003 Fabrice Bellard.
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2 of the License, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General Public
  16  * License along with this library; if not, write to the Free Software
  17  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  18  */
  19 #include "avcodec.h"
  20 #include "mpegvideo.h" //only for ParseContext
  21
  22 typedef struct PNMContext {
  23     uint8_t *bytestream;
  24     uint8_t *bytestream_start;
  25     uint8_t *bytestream_end;
  26     AVFrame picture;
  27 } PNMContext;
  28
  29 static inline int pnm_space(int c)
  30 {
  31     return (c == ' ' || c == '\n' || c == '\r' || c == '\t');
  32 }
  33
  34 static void pnm_get(PNMContext *sc, char *str, int buf_size)
  35 {
  36     char *s;
  37     int c;
  38
  39     /* skip spaces and comments */
  40     for(;;) {
  41         c = *sc->bytestream++;
  42         if (c == '#')  {
  43             do  {
  44                 c = *sc->bytestream++;
  45             } while (c != '\n' && sc->bytestream < sc->bytestream_end);
  46         } else if (!pnm_space(c)) {
  47             break;
  48         }
  49     }
  50
  51     s = str;
  52     while (sc->bytestream < sc->bytestream_end && !pnm_space(c)) {
  53         if ((s - str)  < buf_size - 1)
  54             *s++ = c;
  55         c = *sc->bytestream++;
  56     }
  57     *s = '\0';
  58 }
  59
  60 static int common_init(AVCodecContext *avctx){
  61     PNMContext *s = avctx->priv_data;
  62
  63     avcodec_get_frame_defaults((AVFrame*)&s->picture);
  64     avctx->coded_frame= (AVFrame*)&s->picture;
  65
  66     return 0;
  67 }
  68
  69 static int pnm_decode_header(AVCodecContext *avctx, PNMContext * const s){
  70     char buf1[32], tuple_type[32];
  71     int h, w, depth, maxval;;
  72
  73     pnm_get(s, buf1, sizeof(buf1));
  74     if (!strcmp(buf1, "P4")) {
  75         avctx->pix_fmt = PIX_FMT_MONOWHITE;
  76     } else if (!strcmp(buf1, "P5")) {
  77         if (avctx->codec_id == CODEC_ID_PGMYUV)
  78             avctx->pix_fmt = PIX_FMT_YUV420P;
  79         else
  80             avctx->pix_fmt = PIX_FMT_GRAY8;
  81     } else if (!strcmp(buf1, "P6")) {
  82         avctx->pix_fmt = PIX_FMT_RGB24;
  83     } else if (!strcmp(buf1, "P7")) {
  84         w = -1;
  85         h = -1;
  86         maxval = -1;
  87         depth = -1;
  88         tuple_type[0] = '\0';
  89         for(;;) {
  90             pnm_get(s, buf1, sizeof(buf1));
  91             if (!strcmp(buf1, "WIDTH")) {
  92                 pnm_get(s, buf1, sizeof(buf1));
  93                 w = strtol(buf1, NULL, 10);
  94             } else if (!strcmp(buf1, "HEIGHT")) {
  95                 pnm_get(s, buf1, sizeof(buf1));
  96                 h = strtol(buf1, NULL, 10);
  97             } else if (!strcmp(buf1, "DEPTH")) {
  98                 pnm_get(s, buf1, sizeof(buf1));
  99                 depth = strtol(buf1, NULL, 10);
 100             } else if (!strcmp(buf1, "MAXVAL")) {
 101                 pnm_get(s, buf1, sizeof(buf1));
 102                 maxval = strtol(buf1, NULL, 10);
 103             } else if (!strcmp(buf1, "TUPLETYPE")) {
 104                 pnm_get(s, tuple_type, sizeof(tuple_type));
 105             } else if (!strcmp(buf1, "ENDHDR")) {
 106                 break;
 107             } else {
 108                 return -1;
 109             }
 110         }
 111         /* check that all tags are present */
 112         if (w <= 0 || h <= 0 || maxval <= 0 || depth <= 0 || tuple_type[0] == '\0' || avcodec_check_dimensions(avctx, w, h))
 113             return -1;
 114
 115         avctx->width = w;
 116         avctx->height = h;
 117         if (depth == 1) {
 118             if (maxval == 1)
 119                 avctx->pix_fmt = PIX_FMT_MONOWHITE;
 120             else
 121                 avctx->pix_fmt = PIX_FMT_GRAY8;
 122         } else if (depth == 3) {
 123             avctx->pix_fmt = PIX_FMT_RGB24;
 124         } else if (depth == 4) {
 125             avctx->pix_fmt = PIX_FMT_RGBA32;
 126         } else {
 127             return -1;
 128         }
 129         return 0;
 130     } else {
 131         return -1;
 132     }
 133     pnm_get(s, buf1, sizeof(buf1));
 134     avctx->width = atoi(buf1);
 135     if (avctx->width <= 0)
 136         return -1;
 137     pnm_get(s, buf1, sizeof(buf1));
 138     avctx->height = atoi(buf1);
 139     if(avcodec_check_dimensions(avctx, avctx->width, avctx->height))
 140         return -1;
 141     if (avctx->pix_fmt != PIX_FMT_MONOWHITE) {
 142         pnm_get(s, buf1, sizeof(buf1));
 143     }
 144
 145     /* more check if YUV420 */
 146     if (avctx->pix_fmt == PIX_FMT_YUV420P) {
 147         if ((avctx->width & 1) != 0)
 148             return -1;
 149         h = (avctx->height * 2);
 150         if ((h % 3) != 0)
 151             return -1;
 152         h /= 3;
 153         avctx->height = h;
 154     }
 155     return 0;
 156 }
 157
 158 static int pnm_decode_frame(AVCodecContext *avctx,
 159                         void *data, int *data_size,
 160                         uint8_t *buf, int buf_size)
 161 {
 162     PNMContext * const s = avctx->priv_data;
 163     AVFrame *picture = data;
 164     AVFrame * const p= (AVFrame*)&s->picture;
 165     int i, n, linesize, h;
 166     unsigned char *ptr;
 167
 168     s->bytestream_start=
 169     s->bytestream= buf;
 170     s->bytestream_end= buf + buf_size;
 171
 172     if(pnm_decode_header(avctx, s) < 0)
 173         return -1;
 174
 175     if(p->data[0])
 176         avctx->release_buffer(avctx, p);
 177
 178     p->reference= 0;
 179     if(avctx->get_buffer(avctx, p) < 0){
 180         av_log(avctx, AV_LOG_ERROR, "get_buffer() failed\n");
 181         return -1;
 182     }
 183     p->pict_type= FF_I_TYPE;
 184     p->key_frame= 1;
 185
 186     switch(avctx->pix_fmt) {
 187     default:
 188         return -1;
 189     case PIX_FMT_RGB24:
 190         n = avctx->width * 3;
 191         goto do_read;
 192     case PIX_FMT_GRAY8:
 193         n = avctx->width;
 194         goto do_read;
 195     case PIX_FMT_MONOWHITE:
 196     case PIX_FMT_MONOBLACK:
 197         n = (avctx->width + 7) >> 3;
 198     do_read:
 199         ptr = p->data[0];
 200         linesize = p->linesize[0];
 201         if(s->bytestream + n*avctx->height > s->bytestream_end)
 202             return -1;
 203         for(i = 0; i < avctx->height; i++) {
 204             memcpy(ptr, s->bytestream, n);
 205             s->bytestream += n;
 206             ptr += linesize;
 207         }
 208         break;
 209     case PIX_FMT_YUV420P:
 210         {
 211             unsigned char *ptr1, *ptr2;
 212
 213             n = avctx->width;
 214             ptr = p->data[0];
 215             linesize = p->linesize[0];
 216             if(s->bytestream + n*avctx->height*3/2 > s->bytestream_end)
 217                 return -1;
 218             for(i = 0; i < avctx->height; i++) {
 219                 memcpy(ptr, s->bytestream, n);
 220                 s->bytestream += n;
 221                 ptr += linesize;
 222             }
 223             ptr1 = p->data[1];
 224             ptr2 = p->data[2];
 225             n >>= 1;
 226             h = avctx->height >> 1;
 227             for(i = 0; i < h; i++) {
 228                 memcpy(ptr1, s->bytestream, n);
 229                 s->bytestream += n;
 230                 memcpy(ptr2, s->bytestream, n);
 231                 s->bytestream += n;
 232                 ptr1 += p->linesize[1];
 233                 ptr2 += p->linesize[2];
 234             }
 235         }
 236         break;
 237     case PIX_FMT_RGBA32:
 238         ptr = p->data[0];
 239         linesize = p->linesize[0];
 240         if(s->bytestream + avctx->width*avctx->height*4 > s->bytestream_end)
 241             return -1;
 242         for(i = 0; i < avctx->height; i++) {
 243             int j, r, g, b, a;
 244
 245             for(j = 0;j < avctx->width; j++) {
 246                 r = *s->bytestream++;
 247                 g = *s->bytestream++;
 248                 b = *s->bytestream++;
 249                 a = *s->bytestream++;
 250                 ((uint32_t *)ptr)[j] = (a << 24) | (r << 16) | (g << 8) | b;
 251             }
 252             ptr += linesize;
 253         }
 254         break;
 255     }
 256     *picture= *(AVFrame*)&s->picture;
 257     *data_size = sizeof(AVPicture);
 258
 259     return s->bytestream - s->bytestream_start;
 260 }
 261
 262 static int pnm_encode_frame(AVCodecContext *avctx, unsigned char *outbuf, int buf_size, void *data){
 263     PNMContext *s = avctx->priv_data;
 264     AVFrame *pict = data;
 265     AVFrame * const p= (AVFrame*)&s->picture;
 266     int i, h, h1, c, n, linesize;
 267     uint8_t *ptr, *ptr1, *ptr2;
 268
 269     if(buf_size < avpicture_get_size(avctx->pix_fmt, avctx->width, avctx->height) + 200){
 270         av_log(avctx, AV_LOG_ERROR, "encoded frame too large\n");
 271         return -1;
 272     }
 273
 274     *p = *pict;
 275     p->pict_type= FF_I_TYPE;
 276     p->key_frame= 1;
 277
 278     s->bytestream_start=
 279     s->bytestream= outbuf;
 280     s->bytestream_end= outbuf+buf_size;
 281
 282     h = avctx->height;
 283     h1 = h;
 284     switch(avctx->pix_fmt) {
 285     case PIX_FMT_MONOWHITE:
 286         c = '4';
 287         n = (avctx->width + 7) >> 3;
 288         break;
 289     case PIX_FMT_GRAY8:
 290         c = '5';
 291         n = avctx->width;
 292         break;
 293     case PIX_FMT_RGB24:
 294         c = '6';
 295         n = avctx->width * 3;
 296         break;
 297     case PIX_FMT_YUV420P:
 298         c = '5';
 299         n = avctx->width;
 300         h1 = (h * 3) / 2;
 301         break;
 302     default:
 303         return -1;
 304     }
 305     snprintf(s->bytestream, s->bytestream_end - s->bytestream,
 306              "P%c\n%d %d\n",
 307              c, avctx->width, h1);
 308     s->bytestream += strlen(s->bytestream);
 309     if (avctx->pix_fmt != PIX_FMT_MONOWHITE) {
 310         snprintf(s->bytestream, s->bytestream_end - s->bytestream,
 311                  "%d\n", 255);
 312         s->bytestream += strlen(s->bytestream);
 313     }
 314
 315     ptr = p->data[0];
 316     linesize = p->linesize[0];
 317     for(i=0;i<h;i++) {
 318         memcpy(s->bytestream, ptr, n);
 319         s->bytestream += n;
 320         ptr += linesize;
 321     }
 322
 323     if (avctx->pix_fmt == PIX_FMT_YUV420P) {
 324         h >>= 1;
 325         n >>= 1;
 326         ptr1 = p->data[1];
 327         ptr2 = p->data[2];
 328         for(i=0;i<h;i++) {
 329             memcpy(s->bytestream, ptr1, n);
 330             s->bytestream += n;
 331             memcpy(s->bytestream, ptr2, n);
 332             s->bytestream += n;
 333                 ptr1 += p->linesize[1];
 334                 ptr2 += p->linesize[2];
 335         }
 336     }
 337     return s->bytestream - s->bytestream_start;
 338 }
 339
 340 static int pam_encode_frame(AVCodecContext *avctx, unsigned char *outbuf, int buf_size, void *data){
 341     PNMContext *s = avctx->priv_data;
 342     AVFrame *pict = data;
 343     AVFrame * const p= (AVFrame*)&s->picture;
 344     int i, h, w, n, linesize, depth, maxval;
 345     const char *tuple_type;
 346     uint8_t *ptr;
 347
 348     if(buf_size < avpicture_get_size(avctx->pix_fmt, avctx->width, avctx->height) + 200){
 349         av_log(avctx, AV_LOG_ERROR, "encoded frame too large\n");
 350         return -1;
 351     }
 352
 353     *p = *pict;
 354     p->pict_type= FF_I_TYPE;
 355     p->key_frame= 1;
 356
 357     s->bytestream_start=
 358     s->bytestream= outbuf;
 359     s->bytestream_end= outbuf+buf_size;
 360
 361     h = avctx->height;
 362     w = avctx->width;
 363     switch(avctx->pix_fmt) {
 364     case PIX_FMT_MONOWHITE:
 365         n = (w + 7) >> 3;
 366         depth = 1;
 367         maxval = 1;
 368         tuple_type = "BLACKANDWHITE";
 369         break;
 370     case PIX_FMT_GRAY8:
 371         n = w;
 372         depth = 1;
 373         maxval = 255;
 374         tuple_type = "GRAYSCALE";
 375         break;
 376     case PIX_FMT_RGB24:
 377         n = w * 3;
 378         depth = 3;
 379         maxval = 255;
 380         tuple_type = "RGB";
 381         break;
 382     case PIX_FMT_RGBA32:
 383         n = w * 4;
 384         depth = 4;
 385         maxval = 255;
 386         tuple_type = "RGB_ALPHA";
 387         break;
 388     default:
 389         return -1;
 390     }
 391     snprintf(s->bytestream, s->bytestream_end - s->bytestream,
 392              "P7\nWIDTH %d\nHEIGHT %d\nDEPTH %d\nMAXVAL %d\nTUPLETYPE %s\nENDHDR\n",
 393              w, h, depth, maxval, tuple_type);
 394     s->bytestream += strlen(s->bytestream);
 395
 396     ptr = p->data[0];
 397     linesize = p->linesize[0];
 398
 399     if (avctx->pix_fmt == PIX_FMT_RGBA32) {
 400         int j;
 401         unsigned int v;
 402
 403         for(i=0;i<h;i++) {
 404             for(j=0;j<w;j++) {
 405                 v = ((uint32_t *)ptr)[j];
 406                 *s->bytestream++ = v >> 16;
 407                 *s->bytestream++ = v >> 8;
 408                 *s->bytestream++ = v;
 409                 *s->bytestream++ = v >> 24;
 410             }
 411             ptr += linesize;
 412         }
 413     } else {
 414         for(i=0;i<h;i++) {
 415             memcpy(s->bytestream, ptr, n);
 416             s->bytestream += n;
 417             ptr += linesize;
 418         }
 419     }
 420     return s->bytestream - s->bytestream_start;
 421 }
 422
 423 #if 0
 424 static int pnm_probe(AVProbeData *pd)
 425 {
 426     const char *p = pd->buf;
 427     if (pd->buf_size >= 8 &&
 428         p[0] == 'P' &&
 429         p[1] >= '4' && p[1] <= '6' &&
 430         pnm_space(p[2]) )
 431         return AVPROBE_SCORE_MAX - 1; /* to permit pgmyuv probe */
 432     else
 433         return 0;
 434 }
 435
 436 static int pgmyuv_probe(AVProbeData *pd)
 437 {
 438     if (match_ext(pd->filename, "pgmyuv"))
 439         return AVPROBE_SCORE_MAX;
 440     else
 441         return 0;
 442 }
 443
 444 static int pam_probe(AVProbeData *pd)
 445 {
 446     const char *p = pd->buf;
 447     if (pd->buf_size >= 8 &&
 448         p[0] == 'P' &&
 449         p[1] == '7' &&
 450         p[2] == '\n')
 451         return AVPROBE_SCORE_MAX;
 452     else
 453         return 0;
 454 }
 455 #endif
 456
 457 #ifdef CONFIG_PNM_PARSER
 458 static int pnm_parse(AVCodecParserContext *s,
 459                            AVCodecContext *avctx,
 460                            uint8_t **poutbuf, int *poutbuf_size,
 461                            const uint8_t *buf, int buf_size)
 462 {
 463     ParseContext *pc = s->priv_data;
 464     PNMContext pnmctx;
 465     int next;
 466
 467     for(; pc->overread>0; pc->overread--){
 468         pc->buffer[pc->index++]= pc->buffer[pc->overread_index++];
 469     }
 470 retry:
 471     if(pc->index){
 472         pnmctx.bytestream_start=
 473         pnmctx.bytestream= pc->buffer;
 474         pnmctx.bytestream_end= pc->buffer + pc->index;
 475     }else{
 476         pnmctx.bytestream_start=
 477         pnmctx.bytestream= (uint8_t *) buf; /* casts avoid warnings */
 478         pnmctx.bytestream_end= (uint8_t *) buf + buf_size;
 479     }
 480     if(pnm_decode_header(avctx, &pnmctx) < 0){
 481         if(pnmctx.bytestream < pnmctx.bytestream_end){
 482             if(pc->index){
 483                 pc->index=0;
 484             }else{
 485                 buf++;
 486                 buf_size--;
 487             }
 488             goto retry;
 489         }
 490 #if 0
 491         if(pc->index && pc->index*2 + FF_INPUT_BUFFER_PADDING_SIZE < pc->buffer_size && buf_size > pc->index){
 492             memcpy(pc->buffer + pc->index, buf, pc->index);
 493             pc->index += pc->index;
 494             buf += pc->index;
 495             buf_size -= pc->index;
 496             goto retry;
 497         }
 498 #endif
 499         next= END_NOT_FOUND;
 500     }else{
 501         next= pnmctx.bytestream - pnmctx.bytestream_start
 502             + avpicture_get_size(avctx->pix_fmt, avctx->width, avctx->height);
 503         if(pnmctx.bytestream_start!=buf)
 504             next-= pc->index;
 505         if(next > buf_size)
 506             next= END_NOT_FOUND;
 507     }
 508
 509     if(ff_combine_frame(pc, next, (uint8_t **)&buf, &buf_size)<0){
 510         *poutbuf = NULL;
 511         *poutbuf_size = 0;
 512         return buf_size;
 513     }
 514     *poutbuf = (uint8_t *)buf;
 515     *poutbuf_size = buf_size;
 516     return next;
 517 }
 518
 519 AVCodecParser pnm_parser = {
 520     { CODEC_ID_PGM, CODEC_ID_PGMYUV, CODEC_ID_PPM, CODEC_ID_PBM, CODEC_ID_PAM},
 521     sizeof(ParseContext),
 522     NULL,
 523     pnm_parse,
 524     ff_parse_close,
 525 };
 526 #endif /* CONFIG_PNM_PARSER */
 527
 528 #ifdef CONFIG_PGM_ENCODER
 529 AVCodec pgm_encoder = {
 530     "pgm",
 531     CODEC_TYPE_VIDEO,
 532     CODEC_ID_PGM,
 533     sizeof(PNMContext),
 534     common_init,
 535     pnm_encode_frame,
 536     NULL, //encode_end,
 537     pnm_decode_frame,
 538     .pix_fmts= (enum PixelFormat[]){PIX_FMT_GRAY8, -1},
 539 };
 540 #endif // CONFIG_PGM_ENCODER
 541
 542 #ifdef CONFIG_PGMYUV_ENCODER
 543 AVCodec pgmyuv_encoder = {
 544     "pgmyuv",
 545     CODEC_TYPE_VIDEO,
 546     CODEC_ID_PGMYUV,
 547     sizeof(PNMContext),
 548     common_init,
 549     pnm_encode_frame,
 550     NULL, //encode_end,
 551     pnm_decode_frame,
 552     .pix_fmts= (enum PixelFormat[]){PIX_FMT_YUV420P, -1},
 553 };
 554 #endif // CONFIG_PGMYUV_ENCODER
 555
 556 #ifdef CONFIG_PPM_ENCODER
 557 AVCodec ppm_encoder = {
 558     "ppm",
 559     CODEC_TYPE_VIDEO,
 560     CODEC_ID_PPM,
 561     sizeof(PNMContext),
 562     common_init,
 563     pnm_encode_frame,
 564     NULL, //encode_end,
 565     pnm_decode_frame,
 566     .pix_fmts= (enum PixelFormat[]){PIX_FMT_RGB24, -1},
 567 };
 568 #endif // CONFIG_PPM_ENCODER
 569
 570 #ifdef CONFIG_PBM_ENCODER
 571 AVCodec pbm_encoder = {
 572     "pbm",
 573     CODEC_TYPE_VIDEO,
 574     CODEC_ID_PBM,
 575     sizeof(PNMContext),
 576     common_init,
 577     pnm_encode_frame,
 578     NULL, //encode_end,
 579     pnm_decode_frame,
 580     .pix_fmts= (enum PixelFormat[]){PIX_FMT_MONOWHITE, -1},
 581 };
 582 #endif // CONFIG_PBM_ENCODER
 583
 584 #ifdef CONFIG_PAM_ENCODER
 585 AVCodec pam_encoder = {
 586     "pam",
 587     CODEC_TYPE_VIDEO,
 588     CODEC_ID_PAM,
 589     sizeof(PNMContext),
 590     common_init,
 591     pam_encode_frame,
 592     NULL, //encode_end,
 593     pnm_decode_frame,
 594     .pix_fmts= (enum PixelFormat[]){PIX_FMT_RGB24, PIX_FMT_RGBA32, PIX_FMT_GRAY8, PIX_FMT_MONOWHITE, -1},
 595 };
 596 #endif // CONFIG_PAM_ENCODER