Mercurial > mplayer.hg
annotate libass/ass.c @ 28785:0366ab2c1cb9
Support ScaledBorderAndShadow property.
author | greg |
---|---|
date | Thu, 05 Mar 2009 20:36:48 +0000 |
parents | 1dfad1b382fa |
children | 9359f0ac6dd6 |
rev | line source |
---|---|
20008
fa122b7c71c6
Add copyright notice and vim/emacs comments to libass and vf_ass.c.
eugeni
parents:
19905
diff
changeset
|
1 // -*- c-basic-offset: 8; indent-tabs-mode: t -*- |
fa122b7c71c6
Add copyright notice and vim/emacs comments to libass and vf_ass.c.
eugeni
parents:
19905
diff
changeset
|
2 // vim:ts=8:sw=8:noet:ai: |
fa122b7c71c6
Add copyright notice and vim/emacs comments to libass and vf_ass.c.
eugeni
parents:
19905
diff
changeset
|
3 /* |
26723 | 4 * Copyright (C) 2006 Evgeniy Stepanov <eugeni.stepanov@gmail.com> |
5 * | |
26738
588ce97b44f2
Speak of libass instead of MPlayer in the libass license headers.
diego
parents:
26723
diff
changeset
|
6 * This file is part of libass. |
26723 | 7 * |
26738
588ce97b44f2
Speak of libass instead of MPlayer in the libass license headers.
diego
parents:
26723
diff
changeset
|
8 * libass is free software; you can redistribute it and/or modify |
26723 | 9 * it under the terms of the GNU General Public License as published by |
10 * the Free Software Foundation; either version 2 of the License, or | |
11 * (at your option) any later version. | |
12 * | |
26738
588ce97b44f2
Speak of libass instead of MPlayer in the libass license headers.
diego
parents:
26723
diff
changeset
|
13 * libass is distributed in the hope that it will be useful, |
26723 | 14 * but WITHOUT ANY WARRANTY; without even the implied warranty of |
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 * GNU General Public License for more details. | |
17 * | |
18 * You should have received a copy of the GNU General Public License along | |
26738
588ce97b44f2
Speak of libass instead of MPlayer in the libass license headers.
diego
parents:
26723
diff
changeset
|
19 * with libass; if not, write to the Free Software Foundation, Inc., |
26723 | 20 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
21 */ | |
20008
fa122b7c71c6
Add copyright notice and vim/emacs comments to libass and vf_ass.c.
eugeni
parents:
19905
diff
changeset
|
22 |
18937 | 23 #include "config.h" |
24 | |
25 #include <stdio.h> | |
26 #include <stdlib.h> | |
27 #include <string.h> | |
28 #include <assert.h> | |
29 #include <errno.h> | |
30 #include <sys/types.h> | |
31 #include <sys/stat.h> | |
32 #include <unistd.h> | |
19374 | 33 #include <inttypes.h> |
18937 | 34 |
27393 | 35 #ifdef CONFIG_ICONV |
18937 | 36 #include <iconv.h> |
37 #endif | |
38 | |
39 #include "ass.h" | |
40 #include "ass_utils.h" | |
20477 | 41 #include "ass_library.h" |
21026
d138463e820b
Collect all includes of mplayer headers in libass in a single file (mputils.h).
eugeni
parents:
20698
diff
changeset
|
42 #include "mputils.h" |
18937 | 43 |
19652
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
44 typedef enum {PST_UNKNOWN = 0, PST_INFO, PST_STYLES, PST_EVENTS, PST_FONTS} parser_state_t; |
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
45 |
19492 | 46 struct parser_priv_s { |
19652
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
47 parser_state_t state; |
19492 | 48 char* fontname; |
49 char* fontdata; | |
50 int fontdata_size; | |
51 int fontdata_used; | |
52 }; | |
53 | |
18937 | 54 #define ASS_STYLES_ALLOC 20 |
55 #define ASS_EVENTS_ALLOC 200 | |
56 | |
57 void ass_free_track(ass_track_t* track) { | |
58 int i; | |
59 | |
19492 | 60 if (track->parser_priv) { |
61 if (track->parser_priv->fontname) | |
62 free(track->parser_priv->fontname); | |
63 if (track->parser_priv->fontdata) | |
64 free(track->parser_priv->fontdata); | |
65 free(track->parser_priv); | |
66 } | |
18937 | 67 if (track->style_format) |
68 free(track->style_format); | |
69 if (track->event_format) | |
70 free(track->event_format); | |
71 if (track->styles) { | |
19474
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
72 for (i = 0; i < track->n_styles; ++i) |
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
73 ass_free_style(track, i); |
18937 | 74 free(track->styles); |
75 } | |
76 if (track->events) { | |
19474
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
77 for (i = 0; i < track->n_events; ++i) |
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
78 ass_free_event(track, i); |
18937 | 79 free(track->events); |
80 } | |
81 } | |
82 | |
83 /// \brief Allocate a new style struct | |
84 /// \param track track | |
85 /// \return style id | |
86 int ass_alloc_style(ass_track_t* track) { | |
87 int sid; | |
88 | |
89 assert(track->n_styles <= track->max_styles); | |
90 | |
91 if (track->n_styles == track->max_styles) { | |
92 track->max_styles += ASS_STYLES_ALLOC; | |
93 track->styles = (ass_style_t*)realloc(track->styles, sizeof(ass_style_t)*track->max_styles); | |
94 } | |
95 | |
96 sid = track->n_styles++; | |
97 memset(track->styles + sid, 0, sizeof(ass_style_t)); | |
98 return sid; | |
99 } | |
100 | |
101 /// \brief Allocate a new event struct | |
102 /// \param track track | |
103 /// \return event id | |
104 int ass_alloc_event(ass_track_t* track) { | |
105 int eid; | |
106 | |
107 assert(track->n_events <= track->max_events); | |
108 | |
109 if (track->n_events == track->max_events) { | |
110 track->max_events += ASS_EVENTS_ALLOC; | |
111 track->events = (ass_event_t*)realloc(track->events, sizeof(ass_event_t)*track->max_events); | |
112 } | |
113 | |
114 eid = track->n_events++; | |
115 memset(track->events + eid, 0, sizeof(ass_event_t)); | |
116 return eid; | |
117 } | |
118 | |
19474
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
119 void ass_free_event(ass_track_t* track, int eid) { |
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
120 ass_event_t* event = track->events + eid; |
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
121 if (event->Name) |
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
122 free(event->Name); |
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
123 if (event->Effect) |
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
124 free(event->Effect); |
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
125 if (event->Text) |
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
126 free(event->Text); |
19638
a3473d990fed
Better collision detection algorithm. The idea is to keep a subtitle in place
eugeni
parents:
19635
diff
changeset
|
127 if (event->render_priv) |
a3473d990fed
Better collision detection algorithm. The idea is to keep a subtitle in place
eugeni
parents:
19635
diff
changeset
|
128 free(event->render_priv); |
19474
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
129 } |
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
130 |
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
131 void ass_free_style(ass_track_t* track, int sid) { |
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
132 ass_style_t* style = track->styles + sid; |
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
133 if (style->Name) |
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
134 free(style->Name); |
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
135 if (style->FontName) |
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
136 free(style->FontName); |
18937 | 137 } |
138 | |
139 // ============================================================================================== | |
140 | |
141 static void skip_spaces(char** str) { | |
142 char* p = *str; | |
143 while ((*p==' ') || (*p=='\t')) | |
144 ++p; | |
145 *str = p; | |
146 } | |
147 | |
148 static void rskip_spaces(char** str, char* limit) { | |
149 char* p = *str; | |
150 while ((p >= limit) && ((*p==' ') || (*p=='\t'))) | |
151 --p; | |
152 *str = p; | |
153 } | |
154 | |
155 /** | |
156 * \brief find style by name | |
157 * \param track track | |
158 * \param name style name | |
159 * \return index in track->styles | |
160 * Returnes 0 if no styles found => expects at least 1 style. | |
161 * Parsing code always adds "Default" style in the end. | |
162 */ | |
163 static int lookup_style(ass_track_t* track, char* name) { | |
164 int i; | |
19567 | 165 if (*name == '*') ++name; // FIXME: what does '*' really mean ? |
26807
1b34360d41de
In case 2 styles have the same name, prefer the latest one.
eugeni
parents:
26738
diff
changeset
|
166 for (i = track->n_styles - 1; i >= 0; --i) { |
18937 | 167 // FIXME: mb strcasecmp ? |
168 if (strcmp(track->styles[i].Name, name) == 0) | |
169 return i; | |
170 } | |
171 i = track->default_style; | |
21066 | 172 mp_msg(MSGT_ASS, MSGL_WARN, MSGTR_LIBASS_NoStyleNamedXFoundUsingY, track, name, track->styles[i].Name); |
18937 | 173 return i; // use the first style |
174 } | |
175 | |
176 static uint32_t string2color(char* p) { | |
177 uint32_t tmp; | |
178 (void)strtocolor(&p, &tmp); | |
179 return tmp; | |
180 } | |
181 | |
182 static long long string2timecode(char* p) { | |
183 unsigned h, m, s, ms; | |
184 long long tm; | |
185 int res = sscanf(p, "%1d:%2d:%2d.%2d", &h, &m, &s, &ms); | |
186 if (res < 4) { | |
21066 | 187 mp_msg(MSGT_ASS, MSGL_WARN, MSGTR_LIBASS_BadTimestamp); |
18937 | 188 return 0; |
189 } | |
190 tm = ((h * 60 + m) * 60 + s) * 1000 + ms * 10; | |
191 return tm; | |
192 } | |
193 | |
194 /** | |
195 * \brief converts numpad-style align to align. | |
196 */ | |
197 static int numpad2align(int val) { | |
198 int res, v; | |
199 v = (val - 1) / 3; // 0, 1 or 2 for vertical alignment | |
200 if (v != 0) v = 3 - v; | |
201 res = ((val - 1) % 3) + 1; // horizontal alignment | |
202 res += v*4; | |
203 return res; | |
204 } | |
205 | |
206 #define NEXT(str,token) \ | |
207 token = next_token(&str); \ | |
208 if (!token) break; | |
209 | |
210 #define ANYVAL(name,func) \ | |
211 } else if (strcasecmp(tname, #name) == 0) { \ | |
212 target->name = func(token); \ | |
20629
e8885ec63928
Introduce MSGT_ASS, use it for all libass messages.
eugeni
parents:
20603
diff
changeset
|
213 mp_msg(MSGT_ASS, MSGL_DBG2, "%s = %s\n", #name, token); |
19495 | 214 |
215 #define STRVAL(name) \ | |
216 } else if (strcasecmp(tname, #name) == 0) { \ | |
217 if (target->name != NULL) free(target->name); \ | |
218 target->name = strdup(token); \ | |
20629
e8885ec63928
Introduce MSGT_ASS, use it for all libass messages.
eugeni
parents:
20603
diff
changeset
|
219 mp_msg(MSGT_ASS, MSGL_DBG2, "%s = %s\n", #name, token); |
19495 | 220 |
18937 | 221 #define COLORVAL(name) ANYVAL(name,string2color) |
222 #define INTVAL(name) ANYVAL(name,atoi) | |
223 #define FPVAL(name) ANYVAL(name,atof) | |
224 #define TIMEVAL(name) ANYVAL(name,string2timecode) | |
225 #define STYLEVAL(name) \ | |
226 } else if (strcasecmp(tname, #name) == 0) { \ | |
227 target->name = lookup_style(track, token); \ | |
20629
e8885ec63928
Introduce MSGT_ASS, use it for all libass messages.
eugeni
parents:
20603
diff
changeset
|
228 mp_msg(MSGT_ASS, MSGL_DBG2, "%s = %s\n", #name, token); |
18937 | 229 |
230 #define ALIAS(alias,name) \ | |
231 if (strcasecmp(tname, #alias) == 0) {tname = #name;} | |
232 | |
233 static char* next_token(char** str) { | |
234 char* p = *str; | |
235 char* start; | |
236 skip_spaces(&p); | |
237 if (*p == '\0') { | |
238 *str = p; | |
239 return 0; | |
240 } | |
241 start = p; // start of the token | |
242 for (; (*p != '\0') && (*p != ','); ++p) {} | |
243 if (*p == '\0') { | |
244 *str = p; // eos found, str will point to '\0' at exit | |
245 } else { | |
246 *p = '\0'; | |
247 *str = p + 1; // ',' found, str will point to the next char (beginning of the next token) | |
248 } | |
249 --p; // end of current token | |
250 rskip_spaces(&p, start); | |
251 if (p < start) | |
252 p = start; // empty token | |
253 else | |
254 ++p; // the first space character, or '\0' | |
255 *p = '\0'; | |
256 return start; | |
257 } | |
258 /** | |
259 * \brief Parse the tail of Dialogue line | |
260 * \param track track | |
261 * \param event parsed data goes here | |
262 * \param str string to parse, zero-terminated | |
263 * \param n_ignored number of format options to skip at the beginning | |
264 */ | |
265 static int process_event_tail(ass_track_t* track, ass_event_t* event, char* str, int n_ignored) | |
266 { | |
267 char* token; | |
268 char* tname; | |
269 char* p = str; | |
270 int i; | |
271 ass_event_t* target = event; | |
272 | |
273 char* format = strdup(track->event_format); | |
274 char* q = format; // format scanning pointer | |
275 | |
23539
790efaddf175
Make sure there is at least one style in ass_track when parsing events.
eugeni
parents:
23424
diff
changeset
|
276 if (track->n_styles == 0) { |
790efaddf175
Make sure there is at least one style in ass_track when parsing events.
eugeni
parents:
23424
diff
changeset
|
277 // add "Default" style to the end |
790efaddf175
Make sure there is at least one style in ass_track when parsing events.
eugeni
parents:
23424
diff
changeset
|
278 // will be used if track does not contain a default style (or even does not contain styles at all) |
790efaddf175
Make sure there is at least one style in ass_track when parsing events.
eugeni
parents:
23424
diff
changeset
|
279 int sid = ass_alloc_style(track); |
790efaddf175
Make sure there is at least one style in ass_track when parsing events.
eugeni
parents:
23424
diff
changeset
|
280 track->styles[sid].Name = strdup("Default"); |
790efaddf175
Make sure there is at least one style in ass_track when parsing events.
eugeni
parents:
23424
diff
changeset
|
281 track->styles[sid].FontName = strdup("Arial"); |
790efaddf175
Make sure there is at least one style in ass_track when parsing events.
eugeni
parents:
23424
diff
changeset
|
282 } |
790efaddf175
Make sure there is at least one style in ass_track when parsing events.
eugeni
parents:
23424
diff
changeset
|
283 |
18937 | 284 for (i = 0; i < n_ignored; ++i) { |
285 NEXT(q, tname); | |
286 } | |
287 | |
288 while (1) { | |
289 NEXT(q, tname); | |
290 if (strcasecmp(tname, "Text") == 0) { | |
291 char* last; | |
292 event->Text = strdup(p); | |
19612 | 293 if (*event->Text != 0) { |
294 last = event->Text + strlen(event->Text) - 1; | |
295 if (last >= event->Text && *last == '\r') | |
296 *last = 0; | |
297 } | |
20629
e8885ec63928
Introduce MSGT_ASS, use it for all libass messages.
eugeni
parents:
20603
diff
changeset
|
298 mp_msg(MSGT_ASS, MSGL_DBG2, "Text = %s\n", event->Text); |
18937 | 299 event->Duration -= event->Start; |
300 free(format); | |
301 return 0; // "Text" is always the last | |
302 } | |
303 NEXT(p, token); | |
304 | |
305 ALIAS(End,Duration) // temporarily store end timecode in event->Duration | |
306 if (0) { // cool ;) | |
19635 | 307 INTVAL(Layer) |
18937 | 308 STYLEVAL(Style) |
309 STRVAL(Name) | |
310 STRVAL(Effect) | |
311 INTVAL(MarginL) | |
312 INTVAL(MarginR) | |
313 INTVAL(MarginV) | |
314 TIMEVAL(Start) | |
315 TIMEVAL(Duration) | |
316 } | |
317 } | |
318 free(format); | |
319 return 1; | |
320 } | |
321 | |
322 /** | |
19495 | 323 * \brief Parse command line style overrides (--ass-force-style option) |
324 * \param track track to apply overrides to | |
325 * The format for overrides is [StyleName.]Field=Value | |
326 */ | |
19584
586e7d259d05
Apply -ass-force-style also to tracks generated from subdata.
eugeni
parents:
19567
diff
changeset
|
327 void process_force_style(ass_track_t* track) { |
19495 | 328 char **fs, *eq, *dt, *style, *tname, *token; |
329 ass_style_t* target; | |
330 int sid; | |
20477 | 331 char** list = track->library->style_overrides; |
19495 | 332 |
20477 | 333 if (!list) return; |
19495 | 334 |
20477 | 335 for (fs = list; *fs; ++fs) { |
23540
d655edc9d107
When parsing ass-force-style arguments, search for '=' and '.' characters with
eugeni
parents:
23539
diff
changeset
|
336 eq = strrchr(*fs, '='); |
19495 | 337 if (!eq) |
338 continue; | |
339 *eq = '\0'; | |
340 token = eq + 1; | |
341 | |
25582
6b1d7568ae3d
Allow overriding [Script Info] parameters with -ass-force-style option.
eugeni
parents:
25515
diff
changeset
|
342 if(!strcasecmp(*fs, "PlayResX")) |
6b1d7568ae3d
Allow overriding [Script Info] parameters with -ass-force-style option.
eugeni
parents:
25515
diff
changeset
|
343 track->PlayResX = atoi(token); |
6b1d7568ae3d
Allow overriding [Script Info] parameters with -ass-force-style option.
eugeni
parents:
25515
diff
changeset
|
344 else if(!strcasecmp(*fs, "PlayResY")) |
6b1d7568ae3d
Allow overriding [Script Info] parameters with -ass-force-style option.
eugeni
parents:
25515
diff
changeset
|
345 track->PlayResY = atoi(token); |
6b1d7568ae3d
Allow overriding [Script Info] parameters with -ass-force-style option.
eugeni
parents:
25515
diff
changeset
|
346 else if(!strcasecmp(*fs, "Timer")) |
6b1d7568ae3d
Allow overriding [Script Info] parameters with -ass-force-style option.
eugeni
parents:
25515
diff
changeset
|
347 track->Timer = atof(token); |
6b1d7568ae3d
Allow overriding [Script Info] parameters with -ass-force-style option.
eugeni
parents:
25515
diff
changeset
|
348 else if(!strcasecmp(*fs, "WrapStyle")) |
6b1d7568ae3d
Allow overriding [Script Info] parameters with -ass-force-style option.
eugeni
parents:
25515
diff
changeset
|
349 track->WrapStyle = atoi(token); |
6b1d7568ae3d
Allow overriding [Script Info] parameters with -ass-force-style option.
eugeni
parents:
25515
diff
changeset
|
350 |
23540
d655edc9d107
When parsing ass-force-style arguments, search for '=' and '.' characters with
eugeni
parents:
23539
diff
changeset
|
351 dt = strrchr(*fs, '.'); |
19495 | 352 if (dt) { |
353 *dt = '\0'; | |
354 style = *fs; | |
355 tname = dt + 1; | |
356 } else { | |
357 style = NULL; | |
358 tname = *fs; | |
359 } | |
360 for (sid = 0; sid < track->n_styles; ++sid) { | |
361 if (style == NULL || strcasecmp(track->styles[sid].Name, style) == 0) { | |
362 target = track->styles + sid; | |
363 if (0) { | |
364 STRVAL(FontName) | |
365 COLORVAL(PrimaryColour) | |
366 COLORVAL(SecondaryColour) | |
367 COLORVAL(OutlineColour) | |
368 COLORVAL(BackColour) | |
23300 | 369 FPVAL(FontSize) |
19495 | 370 INTVAL(Bold) |
371 INTVAL(Italic) | |
372 INTVAL(Underline) | |
373 INTVAL(StrikeOut) | |
22259 | 374 FPVAL(Spacing) |
19495 | 375 INTVAL(Angle) |
376 INTVAL(BorderStyle) | |
377 INTVAL(Alignment) | |
378 INTVAL(MarginL) | |
379 INTVAL(MarginR) | |
380 INTVAL(MarginV) | |
381 INTVAL(Encoding) | |
382 FPVAL(ScaleX) | |
383 FPVAL(ScaleY) | |
384 FPVAL(Outline) | |
385 FPVAL(Shadow) | |
386 } | |
387 } | |
388 } | |
389 *eq = '='; | |
390 if (dt) *dt = '.'; | |
391 } | |
392 } | |
393 | |
394 /** | |
18937 | 395 * \brief Parse the Style line |
396 * \param track track | |
397 * \param str string to parse, zero-terminated | |
398 * Allocates a new style struct. | |
399 */ | |
400 static int process_style(ass_track_t* track, char *str) | |
401 { | |
402 | |
403 char* token; | |
404 char* tname; | |
405 char* p = str; | |
406 char* format; | |
407 char* q; // format scanning pointer | |
408 int sid; | |
409 ass_style_t* style; | |
410 ass_style_t* target; | |
411 | |
412 if (!track->style_format) { | |
413 // no style format header | |
414 // probably an ancient script version | |
415 if (track->track_type == TRACK_TYPE_SSA) | |
416 track->style_format = strdup("Name, Fontname, Fontsize, PrimaryColour, SecondaryColour," | |
417 "TertiaryColour, BackColour, Bold, Italic, BorderStyle, Outline," | |
418 "Shadow, Alignment, MarginL, MarginR, MarginV, AlphaLevel, Encoding"); | |
419 else | |
420 track->style_format = strdup("Name, Fontname, Fontsize, PrimaryColour, SecondaryColour," | |
421 "OutlineColour, BackColour, Bold, Italic, Underline, StrikeOut," | |
422 "ScaleX, ScaleY, Spacing, Angle, BorderStyle, Outline, Shadow," | |
423 "Alignment, MarginL, MarginR, MarginV, Encoding"); | |
424 } | |
425 | |
426 q = format = strdup(track->style_format); | |
427 | |
20629
e8885ec63928
Introduce MSGT_ASS, use it for all libass messages.
eugeni
parents:
20603
diff
changeset
|
428 mp_msg(MSGT_ASS, MSGL_V, "[%p] Style: %s\n", track, str); |
18937 | 429 |
430 sid = ass_alloc_style(track); | |
431 | |
432 style = track->styles + sid; | |
433 target = style; | |
434 // fill style with some default values | |
435 style->ScaleX = 100.; | |
436 style->ScaleY = 100.; | |
437 | |
438 while (1) { | |
439 NEXT(q, tname); | |
440 NEXT(p, token); | |
441 | |
442 // ALIAS(TertiaryColour,OutlineColour) // ignore TertiaryColour; it appears only in SSA, and is overridden by BackColour | |
443 | |
444 if (0) { // cool ;) | |
445 STRVAL(Name) | |
446 if ((strcmp(target->Name, "Default")==0) || (strcmp(target->Name, "*Default")==0)) | |
447 track->default_style = sid; | |
448 STRVAL(FontName) | |
449 COLORVAL(PrimaryColour) | |
450 COLORVAL(SecondaryColour) | |
451 COLORVAL(OutlineColour) // TertiaryColor | |
452 COLORVAL(BackColour) | |
453 // SSA uses BackColour for both outline and shadow | |
454 // this will destroy SSA's TertiaryColour, but i'm not going to use it anyway | |
455 if (track->track_type == TRACK_TYPE_SSA) | |
456 target->OutlineColour = target->BackColour; | |
23300 | 457 FPVAL(FontSize) |
18937 | 458 INTVAL(Bold) |
459 INTVAL(Italic) | |
460 INTVAL(Underline) | |
461 INTVAL(StrikeOut) | |
22259 | 462 FPVAL(Spacing) |
18937 | 463 INTVAL(Angle) |
464 INTVAL(BorderStyle) | |
465 INTVAL(Alignment) | |
466 if (track->track_type == TRACK_TYPE_ASS) | |
467 target->Alignment = numpad2align(target->Alignment); | |
468 INTVAL(MarginL) | |
469 INTVAL(MarginR) | |
470 INTVAL(MarginV) | |
471 INTVAL(Encoding) | |
472 FPVAL(ScaleX) | |
473 FPVAL(ScaleY) | |
474 FPVAL(Outline) | |
475 FPVAL(Shadow) | |
476 } | |
477 } | |
478 style->ScaleX /= 100.; | |
479 style->ScaleY /= 100.; | |
22263 | 480 style->Bold = !!style->Bold; |
481 style->Italic = !!style->Italic; | |
482 style->Underline = !!style->Underline; | |
18937 | 483 if (!style->Name) |
484 style->Name = strdup("Default"); | |
485 if (!style->FontName) | |
486 style->FontName = strdup("Arial"); | |
26593 | 487 // skip '@' at the start of the font name |
488 if (*style->FontName == '@') { | |
489 p = style->FontName; | |
490 style->FontName = strdup(p + 1); | |
491 free(p); | |
492 } | |
18937 | 493 free(format); |
494 return 0; | |
495 | |
496 } | |
497 | |
19492 | 498 static int process_styles_line(ass_track_t* track, char *str) |
499 { | |
500 if (!strncmp(str,"Format:", 7)) { | |
501 char* p = str + 7; | |
502 skip_spaces(&p); | |
503 track->style_format = strdup(p); | |
20629
e8885ec63928
Introduce MSGT_ASS, use it for all libass messages.
eugeni
parents:
20603
diff
changeset
|
504 mp_msg(MSGT_ASS, MSGL_DBG2, "Style format: %s\n", track->style_format); |
19492 | 505 } else if (!strncmp(str,"Style:", 6)) { |
506 char* p = str + 6; | |
507 skip_spaces(&p); | |
508 process_style(track, p); | |
509 } | |
510 return 0; | |
511 } | |
512 | |
513 static int process_info_line(ass_track_t* track, char *str) | |
514 { | |
515 if (!strncmp(str, "PlayResX:", 9)) { | |
516 track->PlayResX = atoi(str + 9); | |
517 } else if (!strncmp(str,"PlayResY:", 9)) { | |
518 track->PlayResY = atoi(str + 9); | |
519 } else if (!strncmp(str,"Timer:", 6)) { | |
520 track->Timer = atof(str + 6); | |
521 } else if (!strncmp(str,"WrapStyle:", 10)) { | |
522 track->WrapStyle = atoi(str + 10); | |
28785 | 523 } else if (!strncmp(str, "ScaledBorderAndShadow:", 22)) { |
524 track->ScaledBorderAndShadow = parse_bool(str + 22); | |
19492 | 525 } |
526 return 0; | |
527 } | |
528 | |
529 static int process_events_line(ass_track_t* track, char *str) | |
530 { | |
531 if (!strncmp(str, "Format:", 7)) { | |
532 char* p = str + 7; | |
533 skip_spaces(&p); | |
534 track->event_format = strdup(p); | |
20629
e8885ec63928
Introduce MSGT_ASS, use it for all libass messages.
eugeni
parents:
20603
diff
changeset
|
535 mp_msg(MSGT_ASS, MSGL_DBG2, "Event format: %s\n", track->event_format); |
19492 | 536 } else if (!strncmp(str, "Dialogue:", 9)) { |
537 // This should never be reached for embedded subtitles. | |
538 // They have slightly different format and are parsed in ass_process_chunk, | |
539 // called directly from demuxer | |
540 int eid; | |
541 ass_event_t* event; | |
542 | |
543 str += 9; | |
544 skip_spaces(&str); | |
545 | |
546 eid = ass_alloc_event(track); | |
547 event = track->events + eid; | |
548 | |
549 process_event_tail(track, event, str, 0); | |
550 } else { | |
20629
e8885ec63928
Introduce MSGT_ASS, use it for all libass messages.
eugeni
parents:
20603
diff
changeset
|
551 mp_msg(MSGT_ASS, MSGL_V, "Not understood: %s \n", str); |
19492 | 552 } |
553 return 0; | |
554 } | |
555 | |
556 // Copied from mkvtoolnix | |
557 static unsigned char* decode_chars(unsigned char c1, unsigned char c2, | |
558 unsigned char c3, unsigned char c4, unsigned char* dst, int cnt) | |
559 { | |
560 uint32_t value; | |
561 unsigned char bytes[3]; | |
562 int i; | |
563 | |
564 value = ((c1 - 33) << 18) + ((c2 - 33) << 12) + ((c3 - 33) << 6) + (c4 - 33); | |
565 bytes[2] = value & 0xff; | |
566 bytes[1] = (value & 0xff00) >> 8; | |
567 bytes[0] = (value & 0xff0000) >> 16; | |
568 | |
569 for (i = 0; i < cnt; ++i) | |
570 *dst++ = bytes[i]; | |
571 return dst; | |
572 } | |
573 | |
574 static int decode_font(ass_track_t* track) | |
575 { | |
576 unsigned char* p; | |
577 unsigned char* q; | |
578 int i; | |
579 int size; // original size | |
580 int dsize; // decoded size | |
581 unsigned char* buf = 0; | |
582 | |
20629
e8885ec63928
Introduce MSGT_ASS, use it for all libass messages.
eugeni
parents:
20603
diff
changeset
|
583 mp_msg(MSGT_ASS, MSGL_V, "font: %d bytes encoded data \n", track->parser_priv->fontdata_used); |
19492 | 584 size = track->parser_priv->fontdata_used; |
585 if (size % 4 == 1) { | |
21066 | 586 mp_msg(MSGT_ASS, MSGL_ERR, MSGTR_LIBASS_BadEncodedDataSize); |
19492 | 587 goto error_decode_font; |
588 } | |
589 buf = malloc(size / 4 * 3 + 2); | |
590 q = buf; | |
591 for (i = 0, p = (unsigned char*)track->parser_priv->fontdata; i < size / 4; i++, p+=4) { | |
592 q = decode_chars(p[0], p[1], p[2], p[3], q, 3); | |
593 } | |
594 if (size % 4 == 2) { | |
595 q = decode_chars(p[0], p[1], 0, 0, q, 1); | |
596 } else if (size % 4 == 3) { | |
597 q = decode_chars(p[0], p[1], p[2], 0, q, 2); | |
598 } | |
599 dsize = q - buf; | |
600 assert(dsize <= size / 4 * 3 + 2); | |
601 | |
23264
dc12bca7d4b5
Don't deallocate font data if it will be used later.
eugeni
parents:
22263
diff
changeset
|
602 if (track->library->extract_fonts) { |
21455 | 603 ass_add_font(track->library, track->parser_priv->fontname, (char*)buf, dsize); |
23264
dc12bca7d4b5
Don't deallocate font data if it will be used later.
eugeni
parents:
22263
diff
changeset
|
604 buf = 0; |
dc12bca7d4b5
Don't deallocate font data if it will be used later.
eugeni
parents:
22263
diff
changeset
|
605 } |
19492 | 606 |
607 error_decode_font: | |
608 if (buf) free(buf); | |
609 free(track->parser_priv->fontname); | |
610 free(track->parser_priv->fontdata); | |
611 track->parser_priv->fontname = 0; | |
612 track->parser_priv->fontdata = 0; | |
613 track->parser_priv->fontdata_size = 0; | |
614 track->parser_priv->fontdata_used = 0; | |
615 return 0; | |
616 } | |
617 | |
618 static int process_fonts_line(ass_track_t* track, char *str) | |
619 { | |
620 int len; | |
621 | |
622 if (!strncmp(str, "fontname:", 9)) { | |
623 char* p = str + 9; | |
624 skip_spaces(&p); | |
625 if (track->parser_priv->fontname) { | |
626 decode_font(track); | |
627 } | |
21453
9dd976e14792
Avoid calling validate_fname() twice for one string.
eugeni
parents:
21066
diff
changeset
|
628 track->parser_priv->fontname = strdup(p); |
20629
e8885ec63928
Introduce MSGT_ASS, use it for all libass messages.
eugeni
parents:
20603
diff
changeset
|
629 mp_msg(MSGT_ASS, MSGL_V, "fontname: %s\n", track->parser_priv->fontname); |
19492 | 630 return 0; |
631 } | |
632 | |
633 if (!track->parser_priv->fontname) { | |
20629
e8885ec63928
Introduce MSGT_ASS, use it for all libass messages.
eugeni
parents:
20603
diff
changeset
|
634 mp_msg(MSGT_ASS, MSGL_V, "Not understood: %s \n", str); |
19492 | 635 return 0; |
636 } | |
637 | |
638 len = strlen(str); | |
639 if (len > 80) { | |
21066 | 640 mp_msg(MSGT_ASS, MSGL_WARN, MSGTR_LIBASS_FontLineTooLong, len, str); |
19492 | 641 return 0; |
642 } | |
643 if (track->parser_priv->fontdata_used + len > track->parser_priv->fontdata_size) { | |
644 track->parser_priv->fontdata_size += 100 * 1024; | |
645 track->parser_priv->fontdata = realloc(track->parser_priv->fontdata, track->parser_priv->fontdata_size); | |
646 } | |
647 memcpy(track->parser_priv->fontdata + track->parser_priv->fontdata_used, str, len); | |
648 track->parser_priv->fontdata_used += len; | |
649 | |
650 return 0; | |
651 } | |
652 | |
18937 | 653 /** |
654 * \brief Parse a header line | |
655 * \param track track | |
656 * \param str string to parse, zero-terminated | |
657 */ | |
19492 | 658 static int process_line(ass_track_t* track, char *str) |
18937 | 659 { |
26271
fa145ef5ac13
Case insensitive parsing of SSA/ASS section headers.
eugeni
parents:
26270
diff
changeset
|
660 if (!strncasecmp(str, "[Script Info]", 13)) { |
19492 | 661 track->parser_priv->state = PST_INFO; |
26271
fa145ef5ac13
Case insensitive parsing of SSA/ASS section headers.
eugeni
parents:
26270
diff
changeset
|
662 } else if (!strncasecmp(str, "[V4 Styles]", 11)) { |
19492 | 663 track->parser_priv->state = PST_STYLES; |
664 track->track_type = TRACK_TYPE_SSA; | |
26271
fa145ef5ac13
Case insensitive parsing of SSA/ASS section headers.
eugeni
parents:
26270
diff
changeset
|
665 } else if (!strncasecmp(str, "[V4+ Styles]", 12)) { |
19492 | 666 track->parser_priv->state = PST_STYLES; |
667 track->track_type = TRACK_TYPE_ASS; | |
26271
fa145ef5ac13
Case insensitive parsing of SSA/ASS section headers.
eugeni
parents:
26270
diff
changeset
|
668 } else if (!strncasecmp(str, "[Events]", 8)) { |
19492 | 669 track->parser_priv->state = PST_EVENTS; |
26271
fa145ef5ac13
Case insensitive parsing of SSA/ASS section headers.
eugeni
parents:
26270
diff
changeset
|
670 } else if (!strncasecmp(str, "[Fonts]", 7)) { |
19492 | 671 track->parser_priv->state = PST_FONTS; |
672 } else { | |
673 switch (track->parser_priv->state) { | |
674 case PST_INFO: | |
675 process_info_line(track, str); | |
676 break; | |
677 case PST_STYLES: | |
678 process_styles_line(track, str); | |
679 break; | |
680 case PST_EVENTS: | |
681 process_events_line(track, str); | |
682 break; | |
683 case PST_FONTS: | |
684 process_fonts_line(track, str); | |
685 break; | |
686 default: | |
687 break; | |
18937 | 688 } |
19492 | 689 } |
690 | |
691 // there is no explicit end-of-font marker in ssa/ass | |
692 if ((track->parser_priv->state != PST_FONTS) && (track->parser_priv->fontname)) | |
693 decode_font(track); | |
694 | |
695 return 0; | |
696 } | |
697 | |
698 static int process_text(ass_track_t* track, char* str) | |
699 { | |
700 char* p = str; | |
701 while(1) { | |
702 char* q; | |
26270 | 703 while (1) { |
704 if ((*p=='\r')||(*p=='\n')) ++p; | |
705 else if (p[0]=='\xef' && p[1]=='\xbb' && p[2]=='\xbf') p+=3; // U+FFFE (BOM) | |
706 else break; | |
707 } | |
19492 | 708 for (q=p; ((*q!='\0')&&(*q!='\r')&&(*q!='\n')); ++q) {}; |
709 if (q==p) | |
710 break; | |
711 if (*q != '\0') | |
712 *(q++) = '\0'; | |
713 process_line(track, p); | |
714 if (*q == '\0') | |
715 break; | |
716 p = q; | |
18937 | 717 } |
718 return 0; | |
719 } | |
720 | |
721 /** | |
27498
d895515b366d
libass: add a new ass_process_data() to process demuxed subtitle packets
aurel
parents:
27393
diff
changeset
|
722 * \brief Process a chunk of subtitle stream data. |
18937 | 723 * \param track track |
724 * \param data string to parse | |
725 * \param size length of data | |
27498
d895515b366d
libass: add a new ass_process_data() to process demuxed subtitle packets
aurel
parents:
27393
diff
changeset
|
726 */ |
d895515b366d
libass: add a new ass_process_data() to process demuxed subtitle packets
aurel
parents:
27393
diff
changeset
|
727 void ass_process_data(ass_track_t* track, char* data, int size) |
18937 | 728 { |
729 char* str = malloc(size + 1); | |
730 | |
731 memcpy(str, data, size); | |
732 str[size] = '\0'; | |
733 | |
27498
d895515b366d
libass: add a new ass_process_data() to process demuxed subtitle packets
aurel
parents:
27393
diff
changeset
|
734 mp_msg(MSGT_ASS, MSGL_V, "event: %s\n", str); |
19492 | 735 process_text(track, str); |
18937 | 736 free(str); |
27498
d895515b366d
libass: add a new ass_process_data() to process demuxed subtitle packets
aurel
parents:
27393
diff
changeset
|
737 } |
d895515b366d
libass: add a new ass_process_data() to process demuxed subtitle packets
aurel
parents:
27393
diff
changeset
|
738 |
d895515b366d
libass: add a new ass_process_data() to process demuxed subtitle packets
aurel
parents:
27393
diff
changeset
|
739 /** |
d895515b366d
libass: add a new ass_process_data() to process demuxed subtitle packets
aurel
parents:
27393
diff
changeset
|
740 * \brief Process CodecPrivate section of subtitle stream |
d895515b366d
libass: add a new ass_process_data() to process demuxed subtitle packets
aurel
parents:
27393
diff
changeset
|
741 * \param track track |
d895515b366d
libass: add a new ass_process_data() to process demuxed subtitle packets
aurel
parents:
27393
diff
changeset
|
742 * \param data string to parse |
d895515b366d
libass: add a new ass_process_data() to process demuxed subtitle packets
aurel
parents:
27393
diff
changeset
|
743 * \param size length of data |
d895515b366d
libass: add a new ass_process_data() to process demuxed subtitle packets
aurel
parents:
27393
diff
changeset
|
744 CodecPrivate section contains [Stream Info] and [V4+ Styles] ([V4 Styles] for SSA) sections |
d895515b366d
libass: add a new ass_process_data() to process demuxed subtitle packets
aurel
parents:
27393
diff
changeset
|
745 */ |
d895515b366d
libass: add a new ass_process_data() to process demuxed subtitle packets
aurel
parents:
27393
diff
changeset
|
746 void ass_process_codec_private(ass_track_t* track, char *data, int size) |
d895515b366d
libass: add a new ass_process_data() to process demuxed subtitle packets
aurel
parents:
27393
diff
changeset
|
747 { |
d895515b366d
libass: add a new ass_process_data() to process demuxed subtitle packets
aurel
parents:
27393
diff
changeset
|
748 ass_process_data(track, data, size); |
18937 | 749 |
750 if (!track->event_format) { | |
751 // probably an mkv produced by ancient mkvtoolnix | |
752 // such files don't have [Events] and Format: headers | |
19492 | 753 track->parser_priv->state = PST_EVENTS; |
18937 | 754 if (track->track_type == TRACK_TYPE_SSA) |
755 track->event_format = strdup("Format: Marked, Start, End, Style, Name, MarginL, MarginR, MarginV, Effect, Text"); | |
756 else | |
757 track->event_format = strdup("Format: Layer, Start, End, Style, Actor, MarginL, MarginR, MarginV, Effect, Text"); | |
758 } | |
19495 | 759 |
760 process_force_style(track); | |
18937 | 761 } |
762 | |
763 static int check_duplicate_event(ass_track_t* track, int ReadOrder) | |
764 { | |
765 int i; | |
766 for (i = 0; i<track->n_events - 1; ++i) // ignoring last event, it is the one we are comparing with | |
767 if (track->events[i].ReadOrder == ReadOrder) | |
768 return 1; | |
769 return 0; | |
770 } | |
771 | |
772 /** | |
25515 | 773 * \brief Process a chunk of subtitle stream data. In Matroska, this contains exactly 1 event (or a commentary). |
18937 | 774 * \param track track |
775 * \param data string to parse | |
776 * \param size length of data | |
777 * \param timecode starting time of the event (milliseconds) | |
778 * \param duration duration of the event (milliseconds) | |
779 */ | |
19492 | 780 void ass_process_chunk(ass_track_t* track, char *data, int size, long long timecode, long long duration) |
18937 | 781 { |
782 char* str; | |
783 int eid; | |
784 char* p; | |
785 char* token; | |
786 ass_event_t* event; | |
787 | |
788 if (!track->event_format) { | |
21066 | 789 mp_msg(MSGT_ASS, MSGL_WARN, MSGTR_LIBASS_EventFormatHeaderMissing); |
18937 | 790 return; |
791 } | |
792 | |
793 str = malloc(size + 1); | |
794 memcpy(str, data, size); | |
795 str[size] = '\0'; | |
20629
e8885ec63928
Introduce MSGT_ASS, use it for all libass messages.
eugeni
parents:
20603
diff
changeset
|
796 mp_msg(MSGT_ASS, MSGL_V, "event at %" PRId64 ", +%" PRId64 ": %s \n", (int64_t)timecode, (int64_t)duration, str); |
18937 | 797 |
798 eid = ass_alloc_event(track); | |
799 event = track->events + eid; | |
800 | |
801 p = str; | |
802 | |
803 do { | |
804 NEXT(p, token); | |
805 event->ReadOrder = atoi(token); | |
806 if (check_duplicate_event(track, event->ReadOrder)) | |
807 break; | |
808 | |
809 NEXT(p, token); | |
810 event->Layer = atoi(token); | |
811 | |
812 process_event_tail(track, event, p, 3); | |
813 | |
814 event->Start = timecode; | |
815 event->Duration = duration; | |
816 | |
817 free(str); | |
818 return; | |
819 // dump_events(tid); | |
820 } while (0); | |
821 // some error | |
19474
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
822 ass_free_event(track, eid); |
07209f48e527
Add public functions for removal of styles and events.
eugeni
parents:
19405
diff
changeset
|
823 track->n_events--; |
18937 | 824 free(str); |
825 } | |
826 | |
27393 | 827 #ifdef CONFIG_ICONV |
18937 | 828 /** \brief recode buffer to utf-8 |
20477 | 829 * constraint: codepage != 0 |
18937 | 830 * \param data pointer to text buffer |
831 * \param size buffer size | |
832 * \return a pointer to recoded buffer, caller is responsible for freeing it | |
833 **/ | |
20477 | 834 static char* sub_recode(char* data, size_t size, char* codepage) |
18937 | 835 { |
836 static iconv_t icdsc = (iconv_t)(-1); | |
837 char* tocp = "UTF-8"; | |
838 char* outbuf; | |
20477 | 839 assert(codepage); |
18937 | 840 |
841 { | |
24851
e36efda34616
Our enca code uses strdup() on the input encoding name, as we don't modify it we can use the original constant string.
iive
parents:
23540
diff
changeset
|
842 const char* cp_tmp = codepage; |
27393 | 843 #ifdef CONFIG_ENCA |
18937 | 844 char enca_lang[3], enca_fallback[100]; |
20477 | 845 if (sscanf(codepage, "enca:%2s:%99s", enca_lang, enca_fallback) == 2 |
846 || sscanf(codepage, "ENCA:%2s:%99s", enca_lang, enca_fallback) == 2) { | |
20503 | 847 cp_tmp = guess_buffer_cp((unsigned char*)data, size, enca_lang, enca_fallback); |
18937 | 848 } |
849 #endif | |
850 if ((icdsc = iconv_open (tocp, cp_tmp)) != (iconv_t)(-1)){ | |
20629
e8885ec63928
Introduce MSGT_ASS, use it for all libass messages.
eugeni
parents:
20603
diff
changeset
|
851 mp_msg(MSGT_ASS,MSGL_V,"LIBSUB: opened iconv descriptor.\n"); |
18937 | 852 } else |
21066 | 853 mp_msg(MSGT_ASS,MSGL_ERR,MSGTR_LIBASS_ErrorOpeningIconvDescriptor); |
18937 | 854 } |
855 | |
856 { | |
857 size_t osize = size; | |
858 size_t ileft = size; | |
859 size_t oleft = size - 1; | |
860 char* ip; | |
861 char* op; | |
862 size_t rc; | |
26891 | 863 int clear = 0; |
18937 | 864 |
26892
3c360ca1c304
The size of output buffer is stored in 'osize', not 'size'.
eugeni
parents:
26891
diff
changeset
|
865 outbuf = malloc(osize); |
18937 | 866 ip = data; |
867 op = outbuf; | |
868 | |
26891 | 869 while (1) { |
870 if (ileft) | |
871 rc = iconv(icdsc, &ip, &ileft, &op, &oleft); | |
872 else {// clear the conversion state and leave | |
873 clear = 1; | |
874 rc = iconv(icdsc, NULL, NULL, &op, &oleft); | |
875 } | |
18937 | 876 if (rc == (size_t)(-1)) { |
877 if (errno == E2BIG) { | |
26890 | 878 size_t offset = op - outbuf; |
18937 | 879 outbuf = (char*)realloc(outbuf, osize + size); |
880 op = outbuf + offset; | |
881 osize += size; | |
882 oleft += size; | |
883 } else { | |
21066 | 884 mp_msg(MSGT_ASS, MSGL_WARN, MSGTR_LIBASS_ErrorRecodingFile); |
18937 | 885 return NULL; |
886 } | |
26891 | 887 } else |
888 if (clear) | |
889 break; | |
18937 | 890 } |
891 outbuf[osize - oleft - 1] = 0; | |
892 } | |
893 | |
894 if (icdsc != (iconv_t)(-1)) { | |
895 (void)iconv_close(icdsc); | |
896 icdsc = (iconv_t)(-1); | |
20629
e8885ec63928
Introduce MSGT_ASS, use it for all libass messages.
eugeni
parents:
20603
diff
changeset
|
897 mp_msg(MSGT_ASS,MSGL_V,"LIBSUB: closed iconv descriptor.\n"); |
18937 | 898 } |
899 | |
900 return outbuf; | |
901 } | |
902 #endif // ICONV | |
903 | |
904 /** | |
20603 | 905 * \brief read file contents into newly allocated buffer |
906 * \param fname file name | |
907 * \param bufsize out: file size | |
908 * \return pointer to file contents. Caller is responsible for its deallocation. | |
19652
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
909 */ |
20603 | 910 static char* read_file(char* fname, size_t *bufsize) |
18937 | 911 { |
912 int res; | |
913 long sz; | |
914 long bytes_read; | |
915 char* buf; | |
19652
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
916 |
18937 | 917 FILE* fp = fopen(fname, "rb"); |
918 if (!fp) { | |
21066 | 919 mp_msg(MSGT_ASS, MSGL_WARN, MSGTR_LIBASS_FopenFailed, fname); |
18937 | 920 return 0; |
921 } | |
922 res = fseek(fp, 0, SEEK_END); | |
923 if (res == -1) { | |
21066 | 924 mp_msg(MSGT_ASS, MSGL_WARN, MSGTR_LIBASS_FseekFailed, fname); |
18937 | 925 fclose(fp); |
926 return 0; | |
927 } | |
928 | |
929 sz = ftell(fp); | |
930 rewind(fp); | |
931 | |
932 if (sz > 10*1024*1024) { | |
21066 | 933 mp_msg(MSGT_ASS, MSGL_INFO, MSGTR_LIBASS_RefusingToLoadSubtitlesLargerThan10M, fname); |
18937 | 934 fclose(fp); |
935 return 0; | |
936 } | |
937 | |
20629
e8885ec63928
Introduce MSGT_ASS, use it for all libass messages.
eugeni
parents:
20603
diff
changeset
|
938 mp_msg(MSGT_ASS, MSGL_V, "file size: %ld\n", sz); |
18937 | 939 |
940 buf = malloc(sz + 1); | |
941 assert(buf); | |
942 bytes_read = 0; | |
943 do { | |
944 res = fread(buf + bytes_read, 1, sz - bytes_read, fp); | |
945 if (res <= 0) { | |
21066 | 946 mp_msg(MSGT_ASS, MSGL_INFO, MSGTR_LIBASS_ReadFailed, errno, strerror(errno)); |
18937 | 947 fclose(fp); |
948 free(buf); | |
949 return 0; | |
950 } | |
951 bytes_read += res; | |
952 } while (sz - bytes_read > 0); | |
953 buf[sz] = '\0'; | |
954 fclose(fp); | |
955 | |
20603 | 956 if (bufsize) |
957 *bufsize = sz; | |
19652
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
958 return buf; |
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
959 } |
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
960 |
20603 | 961 /* |
962 * \param buf pointer to subtitle text in utf-8 | |
963 */ | |
964 static ass_track_t* parse_memory(ass_library_t* library, char* buf) | |
19652
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
965 { |
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
966 ass_track_t* track; |
19905 | 967 int i; |
19652
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
968 |
20477 | 969 track = ass_new_track(library); |
18937 | 970 |
971 // process header | |
19492 | 972 process_text(track, buf); |
973 | |
19905 | 974 // external SSA/ASS subs does not have ReadOrder field |
975 for (i = 0; i < track->n_events; ++i) | |
976 track->events[i].ReadOrder = i; | |
977 | |
19492 | 978 // there is no explicit end-of-font marker in ssa/ass |
979 if (track->parser_priv->fontname) | |
980 decode_font(track); | |
981 | |
982 if (track->track_type == TRACK_TYPE_UNKNOWN) { | |
18937 | 983 ass_free_track(track); |
984 return 0; | |
985 } | |
986 | |
19495 | 987 process_force_style(track); |
988 | |
20603 | 989 return track; |
990 } | |
991 | |
992 /** | |
993 * \brief Read subtitles from memory. | |
994 * \param library libass library object | |
995 * \param buf pointer to subtitles text | |
996 * \param bufsize size of buffer | |
997 * \param codepage recode buffer contents from given codepage | |
998 * \return newly allocated track | |
999 */ | |
1000 ass_track_t* ass_read_memory(ass_library_t* library, char* buf, size_t bufsize, char* codepage) | |
1001 { | |
1002 ass_track_t* track; | |
1003 int need_free = 0; | |
1004 | |
1005 if (!buf) | |
1006 return 0; | |
1007 | |
27393 | 1008 #ifdef CONFIG_ICONV |
20603 | 1009 if (codepage) |
1010 buf = sub_recode(buf, bufsize, codepage); | |
1011 if (!buf) | |
1012 return 0; | |
1013 else | |
1014 need_free = 1; | |
1015 #endif | |
1016 track = parse_memory(library, buf); | |
1017 if (need_free) | |
1018 free(buf); | |
1019 if (!track) | |
1020 return 0; | |
1021 | |
21066 | 1022 mp_msg(MSGT_ASS, MSGL_INFO, MSGTR_LIBASS_AddedSubtitleFileMemory, track->n_styles, track->n_events); |
20603 | 1023 return track; |
1024 } | |
1025 | |
27499
1dfad1b382fa
libass: fix type mismatch between size parameter and the way it's used
aurel
parents:
27498
diff
changeset
|
1026 char* read_file_recode(char* fname, char* codepage, size_t* size) |
20603 | 1027 { |
1028 char* buf; | |
1029 size_t bufsize; | |
1030 | |
1031 buf = read_file(fname, &bufsize); | |
1032 if (!buf) | |
1033 return 0; | |
27393 | 1034 #ifdef CONFIG_ICONV |
20603 | 1035 if (codepage) { |
1036 char* tmpbuf = sub_recode(buf, bufsize, codepage); | |
1037 free(buf); | |
1038 buf = tmpbuf; | |
1039 } | |
1040 if (!buf) | |
1041 return 0; | |
1042 #endif | |
23424
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1043 *size = bufsize; |
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1044 return buf; |
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1045 } |
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1046 |
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1047 /** |
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1048 * \brief Read subtitles from file. |
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1049 * \param library libass library object |
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1050 * \param fname file name |
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1051 * \param codepage recode buffer contents from given codepage |
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1052 * \return newly allocated track |
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1053 */ |
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1054 ass_track_t* ass_read_file(ass_library_t* library, char* fname, char* codepage) |
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1055 { |
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1056 char* buf; |
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1057 ass_track_t* track; |
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1058 size_t bufsize; |
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1059 |
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1060 buf = read_file_recode(fname, codepage, &bufsize); |
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1061 if (!buf) |
7286d245bf33
Move code for reading a file and recoding it to utf-8 to a separate function.
eugeni
parents:
23300
diff
changeset
|
1062 return 0; |
20603 | 1063 track = parse_memory(library, buf); |
1064 free(buf); | |
1065 if (!track) | |
1066 return 0; | |
1067 | |
1068 track->name = strdup(fname); | |
1069 | |
21066 | 1070 mp_msg(MSGT_ASS, MSGL_INFO, MSGTR_LIBASS_AddedSubtitleFileFname, fname, track->n_styles, track->n_events); |
18937 | 1071 |
1072 // dump_events(forced_tid); | |
1073 return track; | |
1074 } | |
1075 | |
19652
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
1076 /** |
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
1077 * \brief read styles from file into already initialized track |
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
1078 */ |
20477 | 1079 int ass_read_styles(ass_track_t* track, char* fname, char* codepage) |
19652
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
1080 { |
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
1081 char* buf; |
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
1082 parser_state_t old_state; |
20603 | 1083 size_t sz; |
19652
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
1084 |
20603 | 1085 buf = read_file(fname, &sz); |
19652
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
1086 if (!buf) |
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
1087 return 1; |
27393 | 1088 #ifdef CONFIG_ICONV |
20603 | 1089 if (codepage) { |
20698 | 1090 char* tmpbuf; |
20603 | 1091 tmpbuf = sub_recode(buf, sz, codepage); |
1092 free(buf); | |
1093 buf = tmpbuf; | |
1094 } | |
1095 if (!buf) | |
1096 return 0; | |
1097 #endif | |
19652
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
1098 |
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
1099 old_state = track->parser_priv->state; |
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
1100 track->parser_priv->state = PST_STYLES; |
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
1101 process_text(track, buf); |
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
1102 track->parser_priv->state = old_state; |
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
1103 |
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
1104 return 0; |
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
1105 } |
2c016957360a
Add -ass-styles option. It allows to load styles from a file and use them
eugeni
parents:
19639
diff
changeset
|
1106 |
18937 | 1107 long long ass_step_sub(ass_track_t* track, long long now, int movement) { |
1108 int i; | |
1109 | |
1110 if (movement == 0) return 0; | |
1111 if (track->n_events == 0) return 0; | |
1112 | |
1113 if (movement < 0) | |
1114 for (i = 0; (i < track->n_events) && ((long long)(track->events[i].Start + track->events[i].Duration) <= now); ++i) {} | |
1115 else | |
1116 for (i = track->n_events - 1; (i >= 0) && ((long long)(track->events[i].Start) > now); --i) {} | |
1117 | |
1118 // -1 and n_events are ok | |
1119 assert(i >= -1); assert(i <= track->n_events); | |
1120 i += movement; | |
1121 if (i < 0) i = 0; | |
1122 if (i >= track->n_events) i = track->n_events - 1; | |
1123 return ((long long)track->events[i].Start) - now; | |
1124 } | |
1125 | |
20477 | 1126 ass_track_t* ass_new_track(ass_library_t* library) { |
18937 | 1127 ass_track_t* track = calloc(1, sizeof(ass_track_t)); |
20477 | 1128 track->library = library; |
19492 | 1129 track->parser_priv = calloc(1, sizeof(parser_priv_t)); |
18937 | 1130 return track; |
1131 } | |
1132 |