movtextdec.c 15.8 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
/*
 * 3GPP TS 26.245 Timed Text decoder
 * Copyright (c) 2012  Philip Langdale <philipl@overt.org>
 *
 * This file is part of FFmpeg.
 *
 * FFmpeg is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * FFmpeg is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with FFmpeg; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 */

#include "avcodec.h"
#include "ass.h"
#include "libavutil/avstring.h"
#include "libavutil/common.h"
#include "libavutil/bprint.h"
#include "libavutil/intreadwrite.h"
28
#include "libavutil/mem.h"
29

30 31 32 33
#define STYLE_FLAG_BOLD         (1<<0)
#define STYLE_FLAG_ITALIC       (1<<1)
#define STYLE_FLAG_UNDERLINE    (1<<2)

34 35
#define BOX_SIZE_INITIAL    40

36 37 38
#define STYL_BOX   (1<<0)
#define HLIT_BOX   (1<<1)
#define HCLR_BOX   (1<<2)
39
#define TWRP_BOX   (1<<3)
40

41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61
#define BOTTOM_LEFT     1
#define BOTTOM_CENTER   2
#define BOTTOM_RIGHT    3
#define MIDDLE_LEFT     4
#define MIDDLE_CENTER   5
#define MIDDLE_RIGHT    6
#define TOP_LEFT        7
#define TOP_CENTER      8
#define TOP_RIGHT       9

typedef struct {
    char *font;
    int fontsize;
    int color;
    int back_color;
    int bold;
    int italic;
    int underline;
    int alignment;
} MovTextDefault;

62 63 64 65 66
typedef struct {
    uint16_t fontID;
    char *font;
} FontRecord;

67 68 69 70
typedef struct {
    uint16_t style_start;
    uint16_t style_end;
    uint8_t style_flag;
71
    uint8_t fontsize;
72
    uint16_t style_fontID;
73
} StyleBox;
74

75 76 77 78 79 80 81 82 83
typedef struct {
    uint16_t hlit_start;
    uint16_t hlit_end;
} HighlightBox;

typedef struct {
   uint8_t hlit_color[4];
} HilightcolorBox;

84 85 86 87
typedef struct {
    uint8_t wrap_flag;
} TextWrapBox;

88 89 90 91 92
typedef struct {
    StyleBox **s;
    StyleBox *s_temp;
    HighlightBox h;
    HilightcolorBox c;
93 94
    FontRecord **ftab;
    FontRecord *ftab_temp;
95
    TextWrapBox w;
96
    MovTextDefault d;
97
    uint8_t box_flags;
98
    uint16_t style_entries, ftab_entries;
99 100
    uint64_t tracksize;
    int size_var;
101
    int count_s, count_f;
102
    int readorder;
103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118
} MovTextContext;

typedef struct {
    uint32_t type;
    size_t base_size;
    int (*decode)(const uint8_t *tsmb, MovTextContext *m, AVPacket *avpkt);
} Box;

static void mov_text_cleanup(MovTextContext *m)
{
    int i;
    if (m->box_flags & STYL_BOX) {
        for(i = 0; i < m->count_s; i++) {
            av_freep(&m->s[i]);
        }
        av_freep(&m->s);
119 120
        m->count_s = 0;
        m->style_entries = 0;
121 122 123
    }
}

124 125 126
static void mov_text_cleanup_ftab(MovTextContext *m)
{
    int i;
127 128 129
    if (m->ftab_temp)
        av_freep(&m->ftab_temp->font);
    av_freep(&m->ftab_temp);
130 131 132 133 134
    if (m->ftab) {
        for(i = 0; i < m->count_f; i++) {
            av_freep(&m->ftab[i]->font);
            av_freep(&m->ftab[i]);
        }
135 136 137 138 139 140
    }
    av_freep(&m->ftab);
}

static int mov_text_tx3g(AVCodecContext *avctx, MovTextContext *m)
{
141
    uint8_t *tx3g_ptr = avctx->extradata;
142
    int i, box_size, font_length;
143 144 145
    int8_t v_align, h_align;
    int style_fontID;
    StyleBox s_default;
146

147
    m->count_f = 0;
148 149 150 151 152 153 154 155
    m->ftab_entries = 0;
    box_size = BOX_SIZE_INITIAL; /* Size till ftab_entries */
    if (avctx->extradata_size < box_size)
        return -1;

    // Display Flags
    tx3g_ptr += 4;
    // Alignment
156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181
    h_align = *tx3g_ptr++;
    v_align = *tx3g_ptr++;
    if (h_align == 0) {
        if (v_align == 0)
            m->d.alignment = TOP_LEFT;
        if (v_align == 1)
            m->d.alignment = MIDDLE_LEFT;
        if (v_align == -1)
            m->d.alignment = BOTTOM_LEFT;
    }
    if (h_align == 1) {
        if (v_align == 0)
            m->d.alignment = TOP_CENTER;
        if (v_align == 1)
            m->d.alignment = MIDDLE_CENTER;
        if (v_align == -1)
            m->d.alignment = BOTTOM_CENTER;
    }
    if (h_align == -1) {
        if (v_align == 0)
            m->d.alignment = TOP_RIGHT;
        if (v_align == 1)
            m->d.alignment = MIDDLE_RIGHT;
        if (v_align == -1)
            m->d.alignment = BOTTOM_RIGHT;
    }
182
    // Background Color
183
    m->d.back_color = AV_RB24(tx3g_ptr);
184 185 186 187
    tx3g_ptr += 4;
    // BoxRecord
    tx3g_ptr += 8;
    // StyleRecord
188 189 190 191 192 193 194 195 196 197 198 199 200 201
    tx3g_ptr += 4;
    // fontID
    style_fontID = AV_RB16(tx3g_ptr);
    tx3g_ptr += 2;
    // face-style-flags
    s_default.style_flag = *tx3g_ptr++;
    m->d.bold = s_default.style_flag & STYLE_FLAG_BOLD;
    m->d.italic = s_default.style_flag & STYLE_FLAG_ITALIC;
    m->d.underline = s_default.style_flag & STYLE_FLAG_UNDERLINE;
    // fontsize
    m->d.fontsize = *tx3g_ptr++;
    // Primary color
    m->d.color = AV_RB24(tx3g_ptr);
    tx3g_ptr += 4;
202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218
    // FontRecord
    // FontRecord Size
    tx3g_ptr += 4;
    // ftab
    tx3g_ptr += 4;

    m->ftab_entries = AV_RB16(tx3g_ptr);
    tx3g_ptr += 2;

    for (i = 0; i < m->ftab_entries; i++) {

        box_size += 3;
        if (avctx->extradata_size < box_size) {
            mov_text_cleanup_ftab(m);
            m->ftab_entries = 0;
            return -1;
        }
219
        m->ftab_temp = av_mallocz(sizeof(*m->ftab_temp));
220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245
        if (!m->ftab_temp) {
            mov_text_cleanup_ftab(m);
            return AVERROR(ENOMEM);
        }
        m->ftab_temp->fontID = AV_RB16(tx3g_ptr);
        tx3g_ptr += 2;
        font_length = *tx3g_ptr++;

        box_size = box_size + font_length;
        if (avctx->extradata_size < box_size) {
            mov_text_cleanup_ftab(m);
            m->ftab_entries = 0;
            return -1;
        }
        m->ftab_temp->font = av_malloc(font_length + 1);
        if (!m->ftab_temp->font) {
            mov_text_cleanup_ftab(m);
            return AVERROR(ENOMEM);
        }
        memcpy(m->ftab_temp->font, tx3g_ptr, font_length);
        m->ftab_temp->font[font_length] = '\0';
        av_dynarray_add(&m->ftab, &m->count_f, m->ftab_temp);
        if (!m->ftab) {
            mov_text_cleanup_ftab(m);
            return AVERROR(ENOMEM);
        }
246
        m->ftab_temp = NULL;
247 248
        tx3g_ptr = tx3g_ptr + font_length;
    }
249 250 251 252
    for (i = 0; i < m->ftab_entries; i++) {
        if (style_fontID == m->ftab[i]->fontID)
            m->d.font = m->ftab[i]->font;
    }
253 254 255
    return 0;
}

256 257 258 259 260 261 262
static int decode_twrp(const uint8_t *tsmb, MovTextContext *m, AVPacket *avpkt)
{
    m->box_flags |= TWRP_BOX;
    m->w.wrap_flag = *tsmb++;
    return 0;
}

263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283
static int decode_hlit(const uint8_t *tsmb, MovTextContext *m, AVPacket *avpkt)
{
    m->box_flags |= HLIT_BOX;
    m->h.hlit_start = AV_RB16(tsmb);
    tsmb += 2;
    m->h.hlit_end = AV_RB16(tsmb);
    tsmb += 2;
    return 0;
}

static int decode_hclr(const uint8_t *tsmb, MovTextContext *m, AVPacket *avpkt)
{
    m->box_flags |= HCLR_BOX;
    memcpy(m->c.hlit_color, tsmb, 4);
    tsmb += 4;
    return 0;
}

static int decode_styl(const uint8_t *tsmb, MovTextContext *m, AVPacket *avpkt)
{
    int i;
284
    int style_entries = AV_RB16(tsmb);
285 286
    tsmb += 2;
    // A single style record is of length 12 bytes.
287
    if (m->tracksize + m->size_var + 2 + style_entries * 12 > avpkt->size)
288 289
        return -1;

290 291
    m->style_entries = style_entries;

292 293 294 295 296 297 298 299 300 301 302
    m->box_flags |= STYL_BOX;
    for(i = 0; i < m->style_entries; i++) {
        m->s_temp = av_malloc(sizeof(*m->s_temp));
        if (!m->s_temp) {
            mov_text_cleanup(m);
            return AVERROR(ENOMEM);
        }
        m->s_temp->style_start = AV_RB16(tsmb);
        tsmb += 2;
        m->s_temp->style_end = AV_RB16(tsmb);
        tsmb += 2;
303
        m->s_temp->style_fontID = AV_RB16(tsmb);
304 305
        tsmb += 2;
        m->s_temp->style_flag = AV_RB8(tsmb);
306 307
        tsmb++;
        m->s_temp->fontsize = AV_RB8(tsmb);
308 309 310 311 312
        av_dynarray_add(&m->s, &m->count_s, m->s_temp);
        if(!m->s) {
            mov_text_cleanup(m);
            return AVERROR(ENOMEM);
        }
313
        tsmb++;
314 315 316 317 318 319 320 321 322
        // text-color-rgba
        tsmb += 4;
    }
    return 0;
}

static const Box box_types[] = {
    { MKBETAG('s','t','y','l'), 2, decode_styl },
    { MKBETAG('h','l','i','t'), 4, decode_hlit },
323 324
    { MKBETAG('h','c','l','r'), 4, decode_hclr },
    { MKBETAG('t','w','r','p'), 1, decode_twrp }
325 326 327 328
};

const static size_t box_count = FF_ARRAY_ELEMS(box_types);

329
static int text_to_ass(AVBPrint *buf, const char *text, const char *text_end,
330
                        MovTextContext *m)
331
{
332
    int i = 0;
333
    int j = 0;
334
    int text_pos = 0;
335 336 337 338 339 340 341 342 343

    if (text < text_end && m->box_flags & TWRP_BOX) {
        if (m->w.wrap_flag == 1) {
            av_bprintf(buf, "{\\q1}"); /* End of line wrap */
        } else {
            av_bprintf(buf, "{\\q2}"); /* No wrap */
        }
    }

344
    while (text < text_end) {
345 346 347
        if (m->box_flags & STYL_BOX) {
            for (i = 0; i < m->style_entries; i++) {
                if (m->s[i]->style_flag && text_pos == m->s[i]->style_end) {
348
                    av_bprintf(buf, "{\\r}");
349 350 351 352 353 354 355 356 357 358
                }
            }
            for (i = 0; i < m->style_entries; i++) {
                if (m->s[i]->style_flag && text_pos == m->s[i]->style_start) {
                    if (m->s[i]->style_flag & STYLE_FLAG_BOLD)
                        av_bprintf(buf, "{\\b1}");
                    if (m->s[i]->style_flag & STYLE_FLAG_ITALIC)
                        av_bprintf(buf, "{\\i1}");
                    if (m->s[i]->style_flag & STYLE_FLAG_UNDERLINE)
                        av_bprintf(buf, "{\\u1}");
359
                    av_bprintf(buf, "{\\fs%d}", m->s[i]->fontsize);
360 361 362 363
                    for (j = 0; j < m->ftab_entries; j++) {
                        if (m->s[i]->style_fontID == m->ftab[j]->fontID)
                            av_bprintf(buf, "{\\fn%s}", m->ftab[j]->font);
                    }
364
                }
365 366
            }
        }
367 368 369 370 371 372 373 374 375 376 377 378
        if (m->box_flags & HLIT_BOX) {
            if (text_pos == m->h.hlit_start) {
                /* If hclr box is present, set the secondary color to the color
                 * specified. Otherwise, set primary color to white and secondary
                 * color to black. These colors will come from TextSampleModifier
                 * boxes in future and inverse video technique for highlight will
                 * be implemented.
                 */
                if (m->box_flags & HCLR_BOX) {
                    av_bprintf(buf, "{\\2c&H%02x%02x%02x&}", m->c.hlit_color[2],
                                m->c.hlit_color[1], m->c.hlit_color[0]);
                } else {
379
                    av_bprintf(buf, "{\\1c&H000000&}{\\2c&HFFFFFF&}");
380 381 382 383
                }
            }
            if (text_pos == m->h.hlit_end) {
                if (m->box_flags & HCLR_BOX) {
384
                    av_bprintf(buf, "{\\2c&H000000&}");
385
                } else {
386
                    av_bprintf(buf, "{\\1c&HFFFFFF&}{\\2c&H000000&}");
387
                }
388 389 390
            }
        }

391 392 393 394 395 396 397 398 399 400 401
        switch (*text) {
        case '\r':
            break;
        case '\n':
            av_bprintf(buf, "\\N");
            break;
        default:
            av_bprint_chars(buf, *text, 1);
            break;
        }
        text++;
402
        text_pos++;
403 404 405 406 407 408 409 410 411 412 413 414
    }

    return 0;
}

static int mov_text_init(AVCodecContext *avctx) {
    /*
     * TODO: Handle the default text style.
     * NB: Most players ignore styles completely, with the result that
     * it's very common to find files where the default style is broken
     * and respecting it results in a worse experience than ignoring it.
     */
415
    int ret;
416
    MovTextContext *m = avctx->priv_data;
417 418 419 420
    ret = mov_text_tx3g(avctx, m);
    if (ret == 0) {
        return ff_ass_subtitle_header(avctx, m->d.font, m->d.fontsize, m->d.color,
                                m->d.back_color, m->d.bold, m->d.italic,
421 422
                                m->d.underline, ASS_DEFAULT_BORDERSTYLE,
                                m->d.alignment);
423 424
    } else
        return ff_ass_subtitle_header_default(avctx);
425 426 427 428 429 430
}

static int mov_text_decode_frame(AVCodecContext *avctx,
                            void *data, int *got_sub_ptr, AVPacket *avpkt)
{
    AVSubtitle *sub = data;
431
    MovTextContext *m = avctx->priv_data;
432
    int ret;
433
    AVBPrint buf;
434 435
    char *ptr = avpkt->data;
    char *end;
436 437
    int text_length, tsmb_type, ret_tsmb;
    uint64_t tsmb_size;
438
    const uint8_t *tsmb;
439

440 441 442 443 444 445 446 447 448 449 450 451
    if (!ptr || avpkt->size < 2)
        return AVERROR_INVALIDDATA;

    /*
     * A packet of size two with value zero is an empty subtitle
     * used to mark the end of the previous non-empty subtitle.
     * We can just drop them here as we have duration information
     * already. If the value is non-zero, then it's technically a
     * bad packet.
     */
    if (avpkt->size == 2)
        return AV_RB16(ptr) == 0 ? 0 : AVERROR_INVALIDDATA;
452 453 454 455 456 457

    /*
     * The first two bytes of the packet are the length of the text string
     * In complex cases, there are style descriptors appended to the string
     * so we can't just assume the packet size is the string size.
     */
458 459
    text_length = AV_RB16(ptr);
    end = ptr + FFMIN(2 + text_length, avpkt->size);
460 461
    ptr += 2;

462 463
    mov_text_cleanup(m);

464
    tsmb_size = 0;
465 466 467 468
    m->tracksize = 2 + text_length;
    m->style_entries = 0;
    m->box_flags = 0;
    m->count_s = 0;
469 470
    // Note that the spec recommends lines be no longer than 2048 characters.
    av_bprint_init(&buf, 0, AV_BPRINT_SIZE_UNLIMITED);
471
    if (text_length + 2 != avpkt->size) {
472
        while (m->tracksize + 8 <= avpkt->size) {
473
            // A box is a minimum of 8 bytes.
474
            tsmb = ptr + m->tracksize - 2;
475 476 477 478 479
            tsmb_size = AV_RB32(tsmb);
            tsmb += 4;
            tsmb_type = AV_RB32(tsmb);
            tsmb += 4;

480
            if (tsmb_size == 1) {
481
                if (m->tracksize + 16 > avpkt->size)
482 483 484
                    break;
                tsmb_size = AV_RB64(tsmb);
                tsmb += 8;
485
                m->size_var = 16;
486
            } else
487 488
                m->size_var = 8;
            //size_var is equal to 8 or 16 depending on the size of box
489

490
            if (tsmb_size == 0) {
491
                av_log(avctx, AV_LOG_ERROR, "tsmb_size is 0\n");
492 493 494
                return AVERROR_INVALIDDATA;
            }

495
            if (tsmb_size > avpkt->size - m->tracksize)
496 497
                break;

498 499 500 501 502 503 504
            for (size_t i = 0; i < box_count; i++) {
                if (tsmb_type == box_types[i].type) {
                    if (m->tracksize + m->size_var + box_types[i].base_size > avpkt->size)
                        break;
                    ret_tsmb = box_types[i].decode(tsmb, m, avpkt);
                    if (ret_tsmb == -1)
                        break;
505
                }
506
            }
507
            m->tracksize = m->tracksize + tsmb_size;
508
        }
509 510
        text_to_ass(&buf, ptr, end, m);
        mov_text_cleanup(m);
511
    } else
512
        text_to_ass(&buf, ptr, end, m);
513

514
    ret = ff_ass_add_rect(sub, buf.str, m->readorder++, 0, NULL, NULL);
515
    av_bprint_finalize(&buf, NULL);
516 517 518
    if (ret < 0)
        return ret;
    *got_sub_ptr = sub->num_rects > 0;
519 520 521
    return avpkt->size;
}

522 523 524 525
static int mov_text_decode_close(AVCodecContext *avctx)
{
    MovTextContext *m = avctx->priv_data;
    mov_text_cleanup_ftab(m);
526
    mov_text_cleanup(m);
527 528 529
    return 0;
}

530 531 532
static void mov_text_flush(AVCodecContext *avctx)
{
    MovTextContext *m = avctx->priv_data;
533 534
    if (!(avctx->flags2 & AV_CODEC_FLAG2_RO_FLUSH_NOOP))
        m->readorder = 0;
535 536
}

537 538 539 540
AVCodec ff_movtext_decoder = {
    .name         = "mov_text",
    .long_name    = NULL_IF_CONFIG_SMALL("3GPP Timed Text subtitle"),
    .type         = AVMEDIA_TYPE_SUBTITLE,
541
    .id           = AV_CODEC_ID_MOV_TEXT,
542
    .priv_data_size = sizeof(MovTextContext),
543 544
    .init         = mov_text_init,
    .decode       = mov_text_decode_frame,
545
    .close        = mov_text_decode_close,
546
    .flush        = mov_text_flush,
547
};