/* * SSA/ASS spliting functions * Copyright (c) 2010 Aurelien Jacobs <aurel@gnuage.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_split.h" typedef enum { ASS_STR, ASS_INT, ASS_FLT, ASS_COLOR, ASS_TIMESTAMP, ASS_ALGN, } ASSFieldType; typedef struct { const char *name; int type; int offset; } ASSFields; typedef struct { const char *section; const char *format_header; const char *fields_header; int size; int offset; int offset_count; ASSFields fields[24]; } ASSSection; static const ASSSection ass_sections[] = { { .section = "Script Info", .offset = offsetof(ASS, script_info), .fields = {{"ScriptType", ASS_STR, offsetof(ASSScriptInfo, script_type)}, {"Collisions", ASS_STR, offsetof(ASSScriptInfo, collisions) }, {"PlayResX", ASS_INT, offsetof(ASSScriptInfo, play_res_x) }, {"PlayResY", ASS_INT, offsetof(ASSScriptInfo, play_res_y) }, {"Timer", ASS_FLT, offsetof(ASSScriptInfo, timer) }, {0}, } }, { .section = "V4+ Styles", .format_header = "Format", .fields_header = "Style", .size = sizeof(ASSStyle), .offset = offsetof(ASS, styles), .offset_count = offsetof(ASS, styles_count), .fields = {{"Name", ASS_STR, offsetof(ASSStyle, name) }, {"Fontname", ASS_STR, offsetof(ASSStyle, font_name) }, {"Fontsize", ASS_INT, offsetof(ASSStyle, font_size) }, {"PrimaryColour", ASS_COLOR, offsetof(ASSStyle, primary_color) }, {"SecondaryColour", ASS_COLOR, offsetof(ASSStyle, secondary_color)}, {"OutlineColour", ASS_COLOR, offsetof(ASSStyle, outline_color) }, {"BackColour", ASS_COLOR, offsetof(ASSStyle, back_color) }, {"Bold", ASS_INT, offsetof(ASSStyle, bold) }, {"Italic", ASS_INT, offsetof(ASSStyle, italic) }, {"Underline", ASS_INT, offsetof(ASSStyle, underline) }, {"StrikeOut", ASS_INT, offsetof(ASSStyle, strikeout) }, {"ScaleX", ASS_FLT, offsetof(ASSStyle, scalex) }, {"ScaleY", ASS_FLT, offsetof(ASSStyle, scaley) }, {"Spacing", ASS_FLT, offsetof(ASSStyle, spacing) }, {"Angle", ASS_FLT, offsetof(ASSStyle, angle) }, {"BorderStyle", ASS_INT, offsetof(ASSStyle, border_style) }, {"Outline", ASS_FLT, offsetof(ASSStyle, outline) }, {"Shadow", ASS_FLT, offsetof(ASSStyle, shadow) }, {"Alignment", ASS_INT, offsetof(ASSStyle, alignment) }, {"MarginL", ASS_INT, offsetof(ASSStyle, margin_l) }, {"MarginR", ASS_INT, offsetof(ASSStyle, margin_r) }, {"MarginV", ASS_INT, offsetof(ASSStyle, margin_v) }, {"Encoding", ASS_INT, offsetof(ASSStyle, encoding) }, {0}, } }, { .section = "V4 Styles", .format_header = "Format", .fields_header = "Style", .size = sizeof(ASSStyle), .offset = offsetof(ASS, styles), .offset_count = offsetof(ASS, styles_count), .fields = {{"Name", ASS_STR, offsetof(ASSStyle, name) }, {"Fontname", ASS_STR, offsetof(ASSStyle, font_name) }, {"Fontsize", ASS_INT, offsetof(ASSStyle, font_size) }, {"PrimaryColour", ASS_COLOR, offsetof(ASSStyle, primary_color) }, {"SecondaryColour", ASS_COLOR, offsetof(ASSStyle, secondary_color)}, {"TertiaryColour", ASS_COLOR, offsetof(ASSStyle, outline_color) }, {"BackColour", ASS_COLOR, offsetof(ASSStyle, back_color) }, {"Bold", ASS_INT, offsetof(ASSStyle, bold) }, {"Italic", ASS_INT, offsetof(ASSStyle, italic) }, {"BorderStyle", ASS_INT, offsetof(ASSStyle, border_style) }, {"Outline", ASS_FLT, offsetof(ASSStyle, outline) }, {"Shadow", ASS_FLT, offsetof(ASSStyle, shadow) }, {"Alignment", ASS_ALGN, offsetof(ASSStyle, alignment) }, {"MarginL", ASS_INT, offsetof(ASSStyle, margin_l) }, {"MarginR", ASS_INT, offsetof(ASSStyle, margin_r) }, {"MarginV", ASS_INT, offsetof(ASSStyle, margin_v) }, {"AlphaLevel", ASS_INT, offsetof(ASSStyle, alpha_level) }, {"Encoding", ASS_INT, offsetof(ASSStyle, encoding) }, {0}, } }, { .section = "Events", .format_header = "Format", .fields_header = "Dialogue", .size = sizeof(ASSDialog), .offset = offsetof(ASS, dialogs), .offset_count = offsetof(ASS, dialogs_count), .fields = {{"Layer", ASS_INT, offsetof(ASSDialog, layer) }, {"Start", ASS_TIMESTAMP, offsetof(ASSDialog, start) }, {"End", ASS_TIMESTAMP, offsetof(ASSDialog, end) }, {"Style", ASS_STR, offsetof(ASSDialog, style) }, {"Name", ASS_STR, offsetof(ASSDialog, name) }, {"MarginL", ASS_INT, offsetof(ASSDialog, margin_l)}, {"MarginR", ASS_INT, offsetof(ASSDialog, margin_r)}, {"MarginV", ASS_INT, offsetof(ASSDialog, margin_v)}, {"Effect", ASS_STR, offsetof(ASSDialog, effect) }, {"Text", ASS_STR, offsetof(ASSDialog, text) }, {0}, } }, }; typedef int (*ASSConvertFunc)(void *dest, const char *buf, int len); static int convert_str(void *dest, const char *buf, int len) { char *str = av_malloc(len + 1); if (str) { memcpy(str, buf, len); str[len] = 0; if (*(void **)dest) av_free(*(void **)dest); *(char **)dest = str; } return !str; } static int convert_int(void *dest, const char *buf, int len) { return sscanf(buf, "%d", (int *)dest) == 1; } static int convert_flt(void *dest, const char *buf, int len) { return sscanf(buf, "%f", (float *)dest) == 1; } static int convert_color(void *dest, const char *buf, int len) { return sscanf(buf, "&H%8x", (int *)dest) == 1 || sscanf(buf, "%d", (int *)dest) == 1; } static int convert_timestamp(void *dest, const char *buf, int len) { int c, h, m, s, cs; if ((c = sscanf(buf, "%d:%02d:%02d.%02d", &h, &m, &s, &cs)) == 4) *(int *)dest = 360000*h + 6000*m + 100*s + cs; return c == 4; } static int convert_alignment(void *dest, const char *buf, int len) { int a; if (sscanf(buf, "%d", &a) == 1) { /* convert V4 Style alignment to V4+ Style */ *(int *)dest = a + ((a&4) >> 1) - 5*!!(a&8); return 1; } return 0; } static const ASSConvertFunc convert_func[] = { [ASS_STR] = convert_str, [ASS_INT] = convert_int, [ASS_FLT] = convert_flt, [ASS_COLOR] = convert_color, [ASS_TIMESTAMP] = convert_timestamp, [ASS_ALGN] = convert_alignment, }; struct ASSSplitContext { ASS ass; int current_section; int field_number[FF_ARRAY_ELEMS(ass_sections)]; int *field_order[FF_ARRAY_ELEMS(ass_sections)]; }; static uint8_t *realloc_section_array(ASSSplitContext *ctx) { const ASSSection *section = &ass_sections[ctx->current_section]; int *count = (int *)((uint8_t *)&ctx->ass + section->offset_count); void **section_ptr = (void **)((uint8_t *)&ctx->ass + section->offset); uint8_t *tmp = av_realloc_array(*section_ptr, (*count+1), section->size); if (!tmp) return NULL; *section_ptr = tmp; tmp += *count * section->size; memset(tmp, 0, section->size); (*count)++; return tmp; } static inline int is_eol(char buf) { return buf == '\r' || buf == '\n' || buf == 0; } static inline const char *skip_space(const char *buf) { while (*buf == ' ') buf++; return buf; } static int *get_default_field_orders(const ASSSection *section, int *number) { int i; int *order = av_malloc_array(FF_ARRAY_ELEMS(section->fields), sizeof(*order)); if (!order) return NULL; for (i = 0; section->fields[i].name; i++) order[i] = i; *number = i; while (i < FF_ARRAY_ELEMS(section->fields)) order[i++] = -1; return order; } static const char *ass_split_section(ASSSplitContext *ctx, const char *buf) { const ASSSection *section = &ass_sections[ctx->current_section]; int *number = &ctx->field_number[ctx->current_section]; int *order = ctx->field_order[ctx->current_section]; int *tmp, i, len; while (buf && *buf) { if (buf[0] == '[') { ctx->current_section = -1; break; } if (buf[0] == ';' || (buf[0] == '!' && buf[1] == ':')) goto next_line; // skip comments len = strcspn(buf, ":\r\n"); if (buf[len] == ':' && (!section->fields_header || strncmp(buf, section->fields_header, len))) { for (i = 0; i < FF_ARRAY_ELEMS(ass_sections); i++) { if (ass_sections[i].fields_header && !strncmp(buf, ass_sections[i].fields_header, len)) { ctx->current_section = i; section = &ass_sections[ctx->current_section]; number = &ctx->field_number[ctx->current_section]; order = ctx->field_order[ctx->current_section]; break; } } } if (section->format_header && !order) { len = strlen(section->format_header); if (!strncmp(buf, section->format_header, len) && buf[len] == ':') { buf += len + 1; while (!is_eol(*buf)) { buf = skip_space(buf); len = strcspn(buf, ", \r\n"); if (!(tmp = av_realloc_array(order, (*number + 1), sizeof(*order)))) return NULL; order = tmp; order[*number] = -1; for (i=0; section->fields[i].name; i++) if (!strncmp(buf, section->fields[i].name, len)) { order[*number] = i; break; } (*number)++; buf = skip_space(buf + len + (buf[len] == ',')); } ctx->field_order[ctx->current_section] = order; goto next_line; } } if (section->fields_header) { len = strlen(section->fields_header); if (!strncmp(buf, section->fields_header, len) && buf[len] == ':') { uint8_t *ptr, *struct_ptr = realloc_section_array(ctx); if (!struct_ptr) return NULL; /* No format header line found so far, assume default */ if (!order) { order = get_default_field_orders(section, number); if (!order) return NULL; ctx->field_order[ctx->current_section] = order; } buf += len + 1; for (i=0; !is_eol(*buf) && i < *number; i++) { int last = i == *number - 1; buf = skip_space(buf); len = strcspn(buf, last ? "\r\n" : ",\r\n"); if (order[i] >= 0) { ASSFieldType type = section->fields[order[i]].type; ptr = struct_ptr + section->fields[order[i]].offset; convert_func[type](ptr, buf, len); } buf += len; if (!last && *buf) buf++; buf = skip_space(buf); } } } else { len = strcspn(buf, ":\r\n"); if (buf[len] == ':') { for (i=0; section->fields[i].name; i++) if (!strncmp(buf, section->fields[i].name, len)) { ASSFieldType type = section->fields[i].type; uint8_t *ptr = (uint8_t *)&ctx->ass + section->offset; ptr += section->fields[i].offset; buf = skip_space(buf + len + 1); convert_func[type](ptr, buf, strcspn(buf, "\r\n")); break; } } } next_line: buf += strcspn(buf, "\n"); buf += !!*buf; } return buf; } static int ass_split(ASSSplitContext *ctx, const char *buf) { char c, section[16]; int i; if (ctx->current_section >= 0) buf = ass_split_section(ctx, buf); while (buf && *buf) { if (sscanf(buf, "[%15[0-9A-Za-z+ ]]%c", section, &c) == 2) { buf += strcspn(buf, "\n"); buf += !!*buf; for (i=0; i<FF_ARRAY_ELEMS(ass_sections); i++) if (!strcmp(section, ass_sections[i].section)) { ctx->current_section = i; buf = ass_split_section(ctx, buf); } } else { buf += strcspn(buf, "\n"); buf += !!*buf; } } return buf ? 0 : AVERROR_INVALIDDATA; } ASSSplitContext *ff_ass_split(const char *buf) { ASSSplitContext *ctx = av_mallocz(sizeof(*ctx)); if (!ctx) return NULL; ctx->current_section = -1; if (ass_split(ctx, buf) < 0) { ff_ass_split_free(ctx); return NULL; } return ctx; } static void free_section(ASSSplitContext *ctx, const ASSSection *section) { uint8_t *ptr = (uint8_t *)&ctx->ass + section->offset; int i, j, *count, c = 1; if (section->format_header) { ptr = *(void **)ptr; count = (int *)((uint8_t *)&ctx->ass + section->offset_count); } else count = &c; if (ptr) for (i=0; i<*count; i++, ptr += section->size) for (j=0; section->fields[j].name; j++) { const ASSFields *field = §ion->fields[j]; if (field->type == ASS_STR) av_freep(ptr + field->offset); } *count = 0; if (section->format_header) av_freep((uint8_t *)&ctx->ass + section->offset); } ASSDialog *ff_ass_split_dialog(ASSSplitContext *ctx, const char *buf, int cache, int *number) { ASSDialog *dialog = NULL; int i, count; if (!cache) for (i=0; i<FF_ARRAY_ELEMS(ass_sections); i++) if (!strcmp(ass_sections[i].section, "Events")) { free_section(ctx, &ass_sections[i]); break; } count = ctx->ass.dialogs_count; if (ass_split(ctx, buf) == 0) dialog = ctx->ass.dialogs + count; if (number) *number = ctx->ass.dialogs_count - count; return dialog; } void ff_ass_free_dialog(ASSDialog **dialogp) { ASSDialog *dialog = *dialogp; if (!dialog) return; av_freep(&dialog->style); av_freep(&dialog->name); av_freep(&dialog->effect); av_freep(&dialog->text); av_freep(dialogp); } ASSDialog *ff_ass_split_dialog2(ASSSplitContext *ctx, const char *buf) { int i; static const ASSFields fields[] = { {"ReadOrder", ASS_INT, offsetof(ASSDialog, readorder)}, {"Layer", ASS_INT, offsetof(ASSDialog, layer) }, {"Style", ASS_STR, offsetof(ASSDialog, style) }, {"Name", ASS_STR, offsetof(ASSDialog, name) }, {"MarginL", ASS_INT, offsetof(ASSDialog, margin_l) }, {"MarginR", ASS_INT, offsetof(ASSDialog, margin_r) }, {"MarginV", ASS_INT, offsetof(ASSDialog, margin_v) }, {"Effect", ASS_STR, offsetof(ASSDialog, effect) }, {"Text", ASS_STR, offsetof(ASSDialog, text) }, }; ASSDialog *dialog = av_mallocz(sizeof(*dialog)); if (!dialog) return NULL; for (i = 0; i < FF_ARRAY_ELEMS(fields); i++) { size_t len; const int last = i == FF_ARRAY_ELEMS(fields) - 1; const ASSFieldType type = fields[i].type; uint8_t *ptr = (uint8_t *)dialog + fields[i].offset; buf = skip_space(buf); len = last ? strlen(buf) : strcspn(buf, ","); if (len >= INT_MAX) { ff_ass_free_dialog(&dialog); return NULL; } convert_func[type](ptr, buf, len); buf += len; if (*buf) buf++; } return dialog; } void ff_ass_split_free(ASSSplitContext *ctx) { if (ctx) { int i; for (i=0; i<FF_ARRAY_ELEMS(ass_sections); i++) { free_section(ctx, &ass_sections[i]); av_freep(&(ctx->field_order[i])); } av_free(ctx); } } int ff_ass_split_override_codes(const ASSCodesCallbacks *callbacks, void *priv, const char *buf) { const char *text = NULL; char new_line[2]; int text_len = 0; while (buf && *buf) { if (text && callbacks->text && (sscanf(buf, "\\%1[nN]", new_line) == 1 || !strncmp(buf, "{\\", 2))) { callbacks->text(priv, text, text_len); text = NULL; } if (sscanf(buf, "\\%1[nN]", new_line) == 1) { if (callbacks->new_line) callbacks->new_line(priv, new_line[0] == 'N'); buf += 2; } else if (!strncmp(buf, "{\\", 2)) { buf++; while (*buf == '\\') { char style[2], c[2], sep[2], c_num[2] = "0", tmp[128] = {0}; unsigned int color = 0xFFFFFFFF; int len, size = -1, an = -1, alpha = -1; int x1, y1, x2, y2, t1 = -1, t2 = -1; if (sscanf(buf, "\\%1[bisu]%1[01\\}]%n", style, c, &len) > 1) { int close = c[0] == '0' ? 1 : c[0] == '1' ? 0 : -1; len += close != -1; if (callbacks->style) callbacks->style(priv, style[0], close); } else if (sscanf(buf, "\\c%1[\\}]%n", sep, &len) > 0 || sscanf(buf, "\\c&H%X&%1[\\}]%n", &color, sep, &len) > 1 || sscanf(buf, "\\%1[1234]c%1[\\}]%n", c_num, sep, &len) > 1 || sscanf(buf, "\\%1[1234]c&H%X&%1[\\}]%n", c_num, &color, sep, &len) > 2) { if (callbacks->color) callbacks->color(priv, color, c_num[0] - '0'); } else if (sscanf(buf, "\\alpha%1[\\}]%n", sep, &len) > 0 || sscanf(buf, "\\alpha&H%2X&%1[\\}]%n", &alpha, sep, &len) > 1 || sscanf(buf, "\\%1[1234]a%1[\\}]%n", c_num, sep, &len) > 1 || sscanf(buf, "\\%1[1234]a&H%2X&%1[\\}]%n", c_num, &alpha, sep, &len) > 2) { if (callbacks->alpha) callbacks->alpha(priv, alpha, c_num[0] - '0'); } else if (sscanf(buf, "\\fn%1[\\}]%n", sep, &len) > 0 || sscanf(buf, "\\fn%127[^\\}]%1[\\}]%n", tmp, sep, &len) > 1) { if (callbacks->font_name) callbacks->font_name(priv, tmp[0] ? tmp : NULL); } else if (sscanf(buf, "\\fs%1[\\}]%n", sep, &len) > 0 || sscanf(buf, "\\fs%u%1[\\}]%n", &size, sep, &len) > 1) { if (callbacks->font_size) callbacks->font_size(priv, size); } else if (sscanf(buf, "\\a%1[\\}]%n", sep, &len) > 0 || sscanf(buf, "\\a%2u%1[\\}]%n", &an, sep, &len) > 1 || sscanf(buf, "\\an%1[\\}]%n", sep, &len) > 0 || sscanf(buf, "\\an%1u%1[\\}]%n", &an, sep, &len) > 1) { if (an != -1 && buf[2] != 'n') an = (an&3) + (an&4 ? 6 : an&8 ? 3 : 0); if (callbacks->alignment) callbacks->alignment(priv, an); } else if (sscanf(buf, "\\r%1[\\}]%n", sep, &len) > 0 || sscanf(buf, "\\r%127[^\\}]%1[\\}]%n", tmp, sep, &len) > 1) { if (callbacks->cancel_overrides) callbacks->cancel_overrides(priv, tmp); } else if (sscanf(buf, "\\move(%d,%d,%d,%d)%1[\\}]%n", &x1, &y1, &x2, &y2, sep, &len) > 4 || sscanf(buf, "\\move(%d,%d,%d,%d,%d,%d)%1[\\}]%n", &x1, &y1, &x2, &y2, &t1, &t2, sep, &len) > 6) { if (callbacks->move) callbacks->move(priv, x1, y1, x2, y2, t1, t2); } else if (sscanf(buf, "\\pos(%d,%d)%1[\\}]%n", &x1, &y1, sep, &len) > 2) { if (callbacks->move) callbacks->move(priv, x1, y1, x1, y1, -1, -1); } else if (sscanf(buf, "\\org(%d,%d)%1[\\}]%n", &x1, &y1, sep, &len) > 2) { if (callbacks->origin) callbacks->origin(priv, x1, y1); } else { len = strcspn(buf+1, "\\}") + 2; /* skip unknown code */ } buf += len - 1; } if (*buf++ != '}') return AVERROR_INVALIDDATA; } else { if (!text) { text = buf; text_len = 1; } else text_len++; buf++; } } if (text && callbacks->text) callbacks->text(priv, text, text_len); if (callbacks->end) callbacks->end(priv); return 0; } ASSStyle *ff_ass_style_get(ASSSplitContext *ctx, const char *style) { ASS *ass = &ctx->ass; int i; if (!style || !*style) style = "Default"; for (i=0; i<ass->styles_count; i++) if (ass->styles[i].name && !strcmp(ass->styles[i].name, style)) return ass->styles + i; return NULL; }