summaryrefslogtreecommitdiffstats
path: root/demux
diff options
context:
space:
mode:
authorwm4 <wm4@nowhere>2013-06-21 00:26:05 +0200
committerwm4 <wm4@nowhere>2013-06-25 00:11:54 +0200
commitdb2e1ef4d210f5a8a4a2555d0a78b0a4dea103ec (patch)
tree7ee58c2d174019feb7957daaf430bb431c05cba0 /demux
parent2cd53d449abacde3e461c0daa15617aca4450eea (diff)
downloadmpv-db2e1ef4d210f5a8a4a2555d0a78b0a4dea103ec.tar.bz2
mpv-db2e1ef4d210f5a8a4a2555d0a78b0a4dea103ec.tar.xz
Move/rename subreader.c
Diffstat (limited to 'demux')
-rw-r--r--demux/demux_subreader.c1378
-rw-r--r--demux/subreader.h79
2 files changed, 1457 insertions, 0 deletions
diff --git a/demux/demux_subreader.c b/demux/demux_subreader.c
new file mode 100644
index 0000000000..befac689a4
--- /dev/null
+++ b/demux/demux_subreader.c
@@ -0,0 +1,1378 @@
+/*
+ * Subtitle reader with format autodetection
+ *
+ * Copyright (c) 2001 laaz
+ * Some code cleanup & realloc() by A'rpi/ESP-team
+ *
+ * This file is part of MPlayer.
+ *
+ * MPlayer is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * MPlayer 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 General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License along
+ * with MPlayer; if not, write to the Free Software Foundation, Inc.,
+ * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <sys/types.h>
+#include <dirent.h>
+#include <ctype.h>
+
+#include "config.h"
+#include "core/mp_msg.h"
+#include "subreader.h"
+#include "core/mp_common.h"
+#include "core/options.h"
+#include "stream/stream.h"
+#include "libavutil/common.h"
+#include "libavutil/avstring.h"
+
+#ifdef CONFIG_ENCA
+#include <enca.h>
+#endif
+
+#define ERR ((void *) -1)
+
+#ifdef CONFIG_ICONV
+#include <iconv.h>
+#endif
+
+// Parameter struct for the format-specific readline functions
+struct readline_args {
+ int utf16;
+ struct MPOpts *opts;
+
+ // subtitle reader state used by some formats
+
+ float mpsub_multiplier;
+ float mpsub_position;
+ int sub_slacktime;
+
+ /*
+ Some subtitling formats, namely AQT and Subrip09, define the end of a
+ subtitle as the beginning of the following. Since currently we read one
+ subtitle at time, for these format we keep two global *subtitle,
+ previous_aqt_sub and previous_subrip09_sub, pointing to previous subtitle,
+ so we can change its end when we read current subtitle starting time.
+ We use a single global unsigned long,
+ previous_sub_end, for both (and even future) formats, to store the end of
+ the previous sub: it is initialized to 0 in sub_read_file and eventually
+ modified by sub_read_aqt_line or sub_read_subrip09_line.
+ */
+ unsigned long previous_sub_end;
+};
+
+/* Maximal length of line of a subtitle */
+#define LINE_LEN 1000
+
+static int eol(char p) {
+ return p=='\r' || p=='\n' || p=='\0';
+}
+
+/* Remove leading and trailing space */
+static void trail_space(char *s) {
+ int i = 0;
+ while (isspace(s[i])) ++i;
+ if (i) strcpy(s, s + i);
+ i = strlen(s) - 1;
+ while (i > 0 && isspace(s[i])) s[i--] = '\0';
+}
+
+static char *stristr(const char *haystack, const char *needle) {
+ int len = 0;
+ const char *p = haystack;
+
+ if (!(haystack && needle)) return NULL;
+
+ len=strlen(needle);
+ while (*p != '\0') {
+ if (strncasecmp(p, needle, len) == 0) return (char*)p;
+ p++;
+ }
+
+ return NULL;
+}
+
+static void sami_add_line(subtitle *current, char *buffer, char **pos) {
+ char *p = *pos;
+ *p = 0;
+ trail_space(buffer);
+ if (*buffer && current->lines < SUB_MAX_TEXT)
+ current->text[current->lines++] = strdup(buffer);
+ *pos = buffer;
+}
+
+static subtitle *sub_read_line_sami(stream_t* st, subtitle *current,
+ struct readline_args *args)
+{
+ int utf16 = args->utf16;
+ static char line[LINE_LEN+1];
+ static char *s = NULL, *slacktime_s;
+ char text[LINE_LEN+1], *p=NULL, *q;
+ int state;
+
+ current->lines = current->start = current->end = 0;
+ current->alignment = SUB_ALIGNMENT_BOTTOMCENTER;
+ state = 0;
+
+ /* read the first line */
+ if (!s)
+ if (!(s = stream_read_line(st, line, LINE_LEN, utf16))) return 0;
+
+ do {
+ switch (state) {
+
+ case 0: /* find "START=" or "Slacktime:" */
+ slacktime_s = stristr (s, "Slacktime:");
+ if (slacktime_s)
+ args->sub_slacktime = strtol (slacktime_s+10, NULL, 0) / 10;
+
+ s = stristr (s, "Start=");
+ if (s) {
+ current->start = strtol (s + 6, &s, 0) / 10;
+ /* eat '>' */
+ for (; *s != '>' && *s != '\0'; s++);
+ s++;
+ state = 1; continue;
+ }
+ break;
+
+ case 1: /* find (optional) "<P", skip other TAGs */
+ for (; *s == ' ' || *s == '\t'; s++); /* strip blanks, if any */
+ if (*s == '\0') break;
+ if (*s != '<') { state = 3; p = text; continue; } /* not a TAG */
+ s++;
+ if (*s == 'P' || *s == 'p') { s++; state = 2; continue; } /* found '<P' */
+ for (; *s != '>' && *s != '\0'; s++); /* skip remains of non-<P> TAG */
+ if (*s == '\0')
+ break;
+ s++;
+ continue;
+
+ case 2: /* find ">" */
+ if ((s = strchr (s, '>'))) { s++; state = 3; p = text; continue; }
+ break;
+
+ case 3: /* get all text until '<' appears */
+ if (p - text >= LINE_LEN)
+ sami_add_line(current, text, &p);
+ if (*s == '\0') break;
+ else if (!strncasecmp (s, "<br>", 4)) {
+ sami_add_line(current, text, &p);
+ s += 4;
+ }
+ else if ((*s == '{') && !args->opts->sub_no_text_pp) { state = 5; ++s; continue; }
+ else if (*s == '<') { state = 4; }
+ else if (!strncasecmp (s, "&nbsp;", 6)) { *p++ = ' '; s += 6; }
+ else if (*s == '\t') { *p++ = ' '; s++; }
+ else if (*s == '\r' || *s == '\n') { s++; }
+ else *p++ = *s++;
+
+ /* skip duplicated space */
+ if (p > text + 2) if (*(p-1) == ' ' && *(p-2) == ' ') p--;
+
+ continue;
+
+ case 4: /* get current->end or skip <TAG> */
+ q = stristr (s, "Start=");
+ if (q) {
+ current->end = strtol (q + 6, &q, 0) / 10 - 1;
+ *p = '\0'; trail_space (text);
+ if (text[0] != '\0')
+ current->text[current->lines++] = strdup (text);
+ if (current->lines > 0) { state = 99; break; }
+ state = 0; continue;
+ }
+ s = strchr (s, '>');
+ if (s) { s++; state = 3; continue; }
+ break;
+ case 5: /* get rid of {...} text, but read the alignment code */
+ if ((*s == '\\') && (*(s + 1) == 'a') && !args->opts->sub_no_text_pp) {
+ if (stristr(s, "\\a1") != NULL) {
+ current->alignment = SUB_ALIGNMENT_BOTTOMLEFT;
+ s = s + 3;
+ }
+ if (stristr(s, "\\a2") != NULL) {
+ current->alignment = SUB_ALIGNMENT_BOTTOMCENTER;
+ s = s + 3;
+ } else if (stristr(s, "\\a3") != NULL) {
+ current->alignment = SUB_ALIGNMENT_BOTTOMRIGHT;
+ s = s + 3;
+ } else if ((stristr(s, "\\a4") != NULL) || (stristr(s, "\\a5") != NULL) || (stristr(s, "\\a8") != NULL)) {
+ current->alignment = SUB_ALIGNMENT_TOPLEFT;
+ s = s + 3;
+ } else if (stristr(s, "\\a6") != NULL) {
+ current->alignment = SUB_ALIGNMENT_TOPCENTER;
+ s = s + 3;
+ } else if (stristr(s, "\\a7") != NULL) {
+ current->alignment = SUB_ALIGNMENT_TOPRIGHT;
+ s = s + 3;
+ } else if (stristr(s, "\\a9") != NULL) {
+ current->alignment = SUB_ALIGNMENT_MIDDLELEFT;
+ s = s + 3;
+ } else if (stristr(s, "\\a10") != NULL) {
+ current->alignment = SUB_ALIGNMENT_MIDDLECENTER;
+ s = s + 4;
+ } else if (stristr(s, "\\a11") != NULL) {
+ current->alignment = SUB_ALIGNMENT_MIDDLERIGHT;
+ s = s + 4;
+ }
+ }
+ if (*s == '}') state = 3;
+ ++s;
+ continue;
+ }
+
+ /* read next line */
+ if (state != 99 && !(s = stream_read_line (st, line, LINE_LEN, utf16))) {
+ if (current->start > 0) {
+ break; // if it is the last subtitle
+ } else {
+ return 0;
+ }
+ }
+
+ } while (state != 99);
+
+ // For the last subtitle
+ if (current->end <= 0) {
+ current->end = current->start + args->sub_slacktime;
+ sami_add_line(current, text, &p);
+ }
+
+ return current;
+}
+
+
+static const char *sub_readtext(const char *source, char **dest) {
+ int len=0;
+ const char *p=source;
+
+// printf("src=%p dest=%p \n",source,dest);
+
+ while ( !eol(*p) && *p!= '|' ) {
+ p++,len++;
+ }
+
+ *dest= malloc (len+1);
+ if (!*dest) {return ERR;}
+
+ strncpy(*dest, source, len);
+ (*dest)[len]=0;
+
+ while (*p=='\r' || *p=='\n' || *p=='|') p++;
+
+ if (*p) return p; // not-last text field
+ else return NULL; // last text field
+}
+
+static subtitle *set_multiline_text(subtitle *current, const char *text, int start)
+{
+ int i = start;
+ while ((text = sub_readtext(text, current->text + i))) {
+ if (current->text[i] == ERR) return ERR;
+ i++;
+ if (i >= SUB_MAX_TEXT) {
+ mp_msg(MSGT_SUBREADER, MSGL_WARN, "Too many lines in a subtitle\n");
+ current->lines = i;
+ return current;
+ }
+ }
+ current->lines = i + 1;
+ return current;
+}
+
+static subtitle *sub_read_line_microdvd(stream_t *st,subtitle *current,
+ struct readline_args *args)
+{
+ int utf16 = args->utf16;
+ char line[LINE_LEN+1];
+ char line2[LINE_LEN+1];
+
+ do {
+ if (!stream_read_line (st, line, LINE_LEN, utf16)) return NULL;
+ } while ((sscanf (line,
+ "{%ld}{}%[^\r\n]",
+ &(current->start), line2) < 2) &&
+ (sscanf (line,
+ "{%ld}{%ld}%[^\r\n]",
+ &(current->start), &(current->end), line2) < 3));
+
+ return set_multiline_text(current, line2, 0);
+}
+
+static subtitle *sub_read_line_mpl2(stream_t *st,subtitle *current,
+ struct readline_args *args)
+{
+ int utf16 = args->utf16;
+ char line[LINE_LEN+1];
+ char line2[LINE_LEN+1];
+
+ do {
+ if (!stream_read_line (st, line, LINE_LEN, utf16)) return NULL;
+ } while ((sscanf (line,
+ "[%ld][%ld]%[^\r\n]",
+ &(current->start), &(current->end), line2) < 3));
+ current->start *= 10;
+ current->end *= 10;
+
+ return set_multiline_text(current, line2, 0);
+}
+
+static subtitle *sub_read_line_subrip(stream_t* st, subtitle *current,
+ struct readline_args *args)
+{
+ int utf16 = args->utf16;
+ char line[LINE_LEN+1];
+ int a1,a2,a3,a4,b1,b2,b3,b4;
+ char *p=NULL, *q=NULL;
+ int len;
+
+ while (1) {
+ if (!stream_read_line (st, line, LINE_LEN, utf16)) return NULL;
+ if (sscanf (line, "%d:%d:%d.%d,%d:%d:%d.%d",&a1,&a2,&a3,&a4,&b1,&b2,&b3,&b4) < 8) continue;
+ current->start = a1*360000+a2*6000+a3*100+a4;
+ current->end = b1*360000+b2*6000+b3*100+b4;
+
+ if (!stream_read_line (st, line, LINE_LEN, utf16)) return NULL;
+
+ p=q=line;
+ for (current->lines=1; current->lines < SUB_MAX_TEXT; current->lines++) {
+ for (q=p,len=0; *p && *p!='\r' && *p!='\n' && *p!='|' && strncmp(p,"[br]",4); p++,len++);
+ current->text[current->lines-1]=malloc (len+1);
+ if (!current->text[current->lines-1]) return ERR;
+ strncpy (current->text[current->lines-1], q, len);
+ current->text[current->lines-1][len]='\0';
+ if (!*p || *p=='\r' || *p=='\n') break;
+ if (*p=='|') p++;
+ else while (*p++!=']');
+ }
+ break;
+ }
+ return current;
+}
+
+static subtitle *sub_read_line_subviewer(stream_t *st, subtitle *current,
+ struct readline_args *args)
+{
+ int utf16 = args->utf16;
+ int a1, a2, a3, a4, b1, b2, b3, b4, j = 0;
+
+ while (!current->text[0]) {
+ char line[LINE_LEN + 1], full_line[LINE_LEN + 1];
+ int i;
+
+ /* Parse SubRip header */
+ if (!stream_read_line(st, line, LINE_LEN, utf16))
+ return NULL;
+ if (sscanf(line, "%d:%d:%d%*1[,.:]%d --> %d:%d:%d%*1[,.:]%d",
+ &a1, &a2, &a3, &a4, &b1, &b2, &b3, &b4) < 8)
+ continue;
+
+ current->start = a1 * 360000 + a2 * 6000 + a3 * 100 + a4 / 10;
+ current->end = b1 * 360000 + b2 * 6000 + b3 * 100 + b4 / 10;
+
+ /* Concat lines */
+ full_line[0] = 0;
+ for (i = 0; i < SUB_MAX_TEXT; i++) {
+ int blank = 1, len = 0;
+ char *p;
+
+ if (!stream_read_line(st, line, LINE_LEN, utf16))
+ break;
+
+ for (p = line; *p != '\n' && *p != '\r' && *p; p++, len++)
+ if (*p != ' ' && *p != '\t')
+ blank = 0;
+
+ if (blank)
+ break;
+
+ *p = 0;
+
+ if (!(j + 1 + len < sizeof(full_line) - 1))
+ break;
+
+ if (j != 0)
+ full_line[j++] = '\n';
+ strcpy(&full_line[j], line);
+ j += len;
+ }
+
+ if (full_line[0]) {
+ current->text[0] = strdup(full_line);
+ current->lines = 1;
+ }
+ }
+ return current;
+}
+
+static subtitle *sub_read_line_subviewer2(stream_t *st,subtitle *current,
+ struct readline_args *args)
+{
+ int utf16 = args->utf16;
+ char line[LINE_LEN+1];
+ int a1,a2,a3,a4;
+ char *p=NULL;
+ int i,len;
+
+ while (!current->text[0]) {
+ if (!stream_read_line (st, line, LINE_LEN, utf16)) return NULL;
+ if (line[0]!='{')
+ continue;
+ if ((len=sscanf (line, "{T %d:%d:%d:%d",&a1,&a2,&a3,&a4)) < 4)
+ continue;
+ current->start = a1*360000+a2*6000+a3*100+a4/10;
+ for (i=0; i<SUB_MAX_TEXT;) {
+ if (!stream_read_line (st, line, LINE_LEN, utf16)) break;
+ if (line[0]=='}') break;
+ len=0;
+ for (p=line; *p!='\n' && *p!='\r' && *p; ++p,++len);
+ if (len) {
+ current->text[i]=malloc (len+1);
+ if (!current->text[i]) return ERR;
+ strncpy (current->text[i], line, len); current->text[i][len]='\0';
+ ++i;
+ } else {
+ break;
+ }
+ }
+ current->lines=i;
+ }
+ return current;
+}
+
+
+static subtitle *sub_read_line_vplayer(stream_t *st,subtitle *current,
+ struct readline_args *args)
+{
+ int utf16 = args->utf16;
+ char line[LINE_LEN+1];
+ int a1,a2,a3;
+ char *p=NULL, separator;
+ int len,plen;
+
+ while (!current->text[0]) {
+ if (!stream_read_line (st, line, LINE_LEN, utf16)) return NULL;
+ if ((len=sscanf (line, "%d:%d:%d%c%n",&a1,&a2,&a3,&separator,&plen)) < 4)
+ continue;
+
+ if (!(current->start = a1*360000+a2*6000+a3*100))
+ continue;
+ /* removed by wodzu
+ p=line;
+ // finds the body of the subtitle
+ for (i=0; i<3; i++){
+ p=strchr(p,':');
+ if (p==NULL) break;
+ ++p;
+ }
+ if (p==NULL) {
+ printf("SUB: Skipping incorrect subtitle line!\n");
+ continue;
+ }
+ */
+ // by wodzu: hey! this time we know what length it has! what is
+ // that magic for? it can't deal with space instead of third
+ // colon! look, what simple it can be:
+ p = &line[ plen ];
+
+ if (*p!='|') {
+ //
+ return set_multiline_text(current, p, 0);
+ }
+ }
+ return current;
+}
+
+static subtitle *sub_read_line_rt(stream_t *st,subtitle *current,
+ struct readline_args *args)
+{
+ int utf16 = args->utf16;
+
+ //TODO: This format uses quite rich (sub/super)set of xhtml
+ // I couldn't check it since DTD is not included.
+ // WARNING: full XML parses can be required for proper parsing
+ char line[LINE_LEN+1];
+ int a1,a2,a3,a4,b1,b2,b3,b4;
+ char *p=NULL,*next=NULL;
+ int len,plen;
+
+ while (!current->text[0]) {
+ if (!stream_read_line (st, line, LINE_LEN, utf16)) return NULL;
+ //TODO: it seems that format of time is not easily determined, it may be 1:12, 1:12.0 or 0:1:12.0
+ //to describe the same moment in time. Maybe there are even more formats in use.
+ //if ((len=sscanf (line, "<Time Begin=\"%d:%d:%d.%d\" End=\"%d:%d:%d.%d\"",&a1,&a2,&a3,&a4,&b1,&b2,&b3,&b4)) < 8)
+ plen=a1=a2=a3=a4=b1=b2=b3=b4=0;
+ if (
+ ((len=sscanf (line, "<%*[tT]ime %*[bB]egin=\"%d.%d\" %*[Ee]nd=\"%d.%d\"%*[^<]<clear/>%n",&a3,&a4,&b3,&b4,&plen)) < 4) &&
+ ((len=sscanf (line, "<%*[tT]ime %*[bB]egin=\"%d.%d\" %*[Ee]nd=\"%d:%d.%d\"%*[^<]<clear/>%n",&a3,&a4,&b2,&b3,&b4,&plen)) < 5) &&
+ ((len=sscanf (line, "<%*[tT]ime %*[bB]egin=\"%d:%d\" %*[Ee]nd=\"%d:%d\"%*[^<]<clear/>%n",&a2,&a3,&b2,&b3,&plen)) < 4) &&
+ ((len=sscanf (line, "<%*[tT]ime %*[bB]egin=\"%d:%d\" %*[Ee]nd=\"%d:%d.%d\"%*[^<]<clear/>%n",&a2,&a3,&b2,&b3,&b4,&plen)) < 5) &&
+// ((len=sscanf (line, "<%*[tT]ime %*[bB]egin=\"%d:%d.%d\" %*[Ee]nd=\"%d:%d\"%*[^<]<clear/>%n",&a2,&a3,&a4,&b2,&b3,&plen)) < 5) &&
+ ((len=sscanf (line, "<%*[tT]ime %*[bB]egin=\"%d:%d.%d\" %*[Ee]nd=\"%d:%d.%d\"%*[^<]<clear/>%n",&a2,&a3,&a4,&b2,&b3,&b4,&plen)) < 6) &&
+ ((len=sscanf (line, "<%*[tT]ime %*[bB]egin=\"%d:%d:%d.%d\" %*[Ee]nd=\"%d:%d:%d.%d\"%*[^<]<clear/>%n",&a1,&a2,&a3,&a4,&b1,&b2,&b3,&b4,&plen)) < 8) &&
+ //now try it without end time
+ ((len=sscanf (line, "<%*[tT]ime %*[bB]egin=\"%d.%d\"%*[^<]<clear/>%n",&a3,&a4,&plen)) < 2) &&
+ ((len=sscanf (line, "<%*[tT]ime %*[bB]egin=\"%d:%d\"%*[^<]<clear/>%n",&a2,&a3,&plen)) < 2) &&
+ ((len=sscanf (line, "<%*[tT]ime %*[bB]egin=\"%d:%d.%d\"%*[^<]<clear/>%n",&a2,&a3,&a4,&plen)) < 3) &&
+ ((len=sscanf (line, "<%*[tT]ime %*[bB]egin=\"%d:%d:%d.%d\"%*[^<]<clear/>%n",&a1,&a2,&a3,&a4,&plen)) < 4)
+ )
+ continue;
+ current->start = a1*360000+a2*6000+a3*100+a4/10;
+ current->end = b1*360000+b2*6000+b3*100+b4/10;
+ if (b1 == 0 && b2 == 0 && b3 == 0 && b4 == 0)
+ current->end = current->start+200;
+ p=line; p+=plen;
+ // TODO: I don't know what kind of convention is here for marking multiline subs, maybe <br/> like in xml?
+ next = strstr(line,"<clear/>");
+ if(next && strlen(next)>8){
+ next+=8;
+ return set_multiline_text(current, next, 0);
+ }
+ }
+ return current;
+}
+
+static subtitle *sub_read_line_ssa(stream_t *st,subtitle *current,
+ struct readline_args *args)
+{
+ /* Instead of hardcoding the expected fields and their order on
+ * each dialogue line, this code should parse the "Format: " line
+ * which lists the fields used in the script. As is, this may not
+ * work correctly with all scripts.
+ */
+
+ int utf16 = args->utf16;
+ int comma;
+
+ int hour1, min1, sec1, hunsec1,
+ hour2, min2, sec2, hunsec2, nothing;
+ int num;
+
+ char line[LINE_LEN+1],
+ line3[LINE_LEN+1],
+ *line2;
+ char *tmp;
+
+ do {
+ if (!stream_read_line (st, line, LINE_LEN, utf16)) return NULL;
+ } while (sscanf (line, "Dialogue: Marked=%d,%d:%d:%d.%d,%d:%d:%d.%d"
+ "%[^\n\r]", &nothing,
+ &hour1, &min1, &sec1, &hunsec1,
+ &hour2, &min2, &sec2, &hunsec2,
+ line3) < 9
+ &&
+ sscanf (line, "Dialogue: %d,%d:%d:%d.%d,%d:%d:%d.%d"
+ "%[^\n\r]", &nothing,
+ &hour1, &min1, &sec1, &hunsec1,
+ &hour2, &min2, &sec2, &hunsec2,
+ line3) < 9 );
+
+ line2=strchr(line3, ',');
+ if (!line2) return NULL;
+
+ for (comma = 3; comma < 9; comma ++)
+ if (!(line2 = strchr(++line2, ',')))
+ return NULL;
+ line2++;
+
+ current->lines=0;num=0;
+ current->start = 360000*hour1 + 6000*min1 + 100*sec1 + hunsec1;
+ current->end = 360000*hour2 + 6000*min2 + 100*sec2 + hunsec2;
+
+ while (((tmp=strstr(line2, "\\n")) != NULL) || ((tmp=strstr(line2, "\\N")) != NULL) ){
+ current->text[num]=malloc(tmp-line2+1);
+ strncpy (current->text[num], line2, tmp-line2);
+ current->text[num][tmp-line2]='\0';
+ line2=tmp+2;
+ num++;
+ current->lines++;
+ if (current->lines >= SUB_MAX_TEXT) return current;
+ }
+
+ current->text[num]=strdup(line2);
+ current->lines++;
+
+ return current;
+}
+
+/*
+ * PJS subtitles reader.
+ * That's the "Phoenix Japanimation Society" format.
+ * I found some of them in http://www.scriptsclub.org/ (used for anime).
+ * The time is in tenths of second.
+ *
+ * by set, based on code by szabi (dunnowhat sub format ;-)
+ */
+static subtitle *sub_read_line_pjs(stream_t *st,subtitle *current,
+ struct readline_args *args)
+{
+ int utf16 = args->utf16;
+ char line[LINE_LEN+1];
+ char text[LINE_LEN+1], *s, *d;
+
+ if (!stream_read_line (st, line, LINE_LEN, utf16))
+ return NULL;
+ /* skip spaces */
+ for (s=line; *s && isspace(*s); s++);
+ /* allow empty lines at the end of the file */
+ if (*s==0)
+ return NULL;
+ /* get the time */
+ if (sscanf (s, "%ld,%ld,", &(current->start),
+ &(current->end)) <2) {
+ return ERR;
+ }
+ /* the files I have are in tenths of second */
+ current->start *= 10;
+ current->end *= 10;
+ /* walk to the beggining of the string */
+ for (; *s; s++) if (*s==',') break;
+ if (*s) {
+ for (s++; *s; s++) if (*s==',') break;
+ if (*s) s++;
+ }
+ if (*s!='"') {
+ return ERR;
+ }
+ /* copy the string to the text buffer */
+ for (s++, d=text; *s && *s!='"'; s++, d++)
+ *d=*s;
+ *d=0;
+ current->text[0] = strdup(text);
+ current->lines = 1;
+
+ return current;
+}
+
+static subtitle *sub_read_line_mpsub(stream_t *st, subtitle *current,
+ struct readline_args *args)
+{
+ int utf16 = args->utf16;
+ char line[LINE_LEN+1];
+ float a,b;
+ int num=0;
+ char *p, *q;
+
+ do
+ {
+ if (!stream_read_line(st, line, LINE_LEN, utf16)) return NULL;
+ } while (sscanf (line, "%f %f", &a, &b) !=2);
+
+ args->mpsub_position += a*args->mpsub_multiplier;
+ current->start=(int) args->mpsub_position;
+ args->mpsub_position += b*args->mpsub_multiplier;
+ current->end=(int) args->mpsub_position;
+
+ while (num < SUB_MAX_TEXT) {
+ if (!stream_read_line (st, line, LINE_LEN, utf16)) {
+ if (num == 0) return NULL;
+ else return current;
+ }
+ p=line;
+ while (isspace(*p)) p++;
+ if (eol(*p) && num > 0) return current;
+ if (eol(*p)) return NULL;
+
+ for (q=p; !eol(*q); q++);
+ *q='\0';
+ if (strlen(p)) {
+ current->text[num]=strdup(p);
+// printf (">%s<\n",p);
+ current->lines = ++num;
+ } else {
+ if (num) return current;
+ else return NULL;
+ }
+ }
+ return NULL; // we should have returned before if it's OK
+}
+
+static subtitle *sub_read_line_aqt(stream_t *st,subtitle *current,
+ struct readline_args *args)
+{
+ int utf16 = args->utf16;
+ char line[LINE_LEN+1];
+
+retry:
+ while (1) {
+ // try to locate next subtitle
+ if (!stream_read_line (st, line, LINE_LEN, utf16))
+ return NULL;
+ if (!(sscanf (line, "-->> %ld", &(current->start)) <1))
+ break;
+ }
+
+ if (!args->previous_sub_end)
+ args->previous_sub_end = (current->start) ? current->start - 1 : 0;
+
+ if (!stream_read_line (st, line, LINE_LEN, utf16))
+ return NULL;
+
+ sub_readtext((char *) &line,&current->text[0]);
+ current->lines = 1;
+ current->end = current->start; // will be corrected by next subtitle
+
+ if (!stream_read_line (st, line, LINE_LEN, utf16))
+ return current;
+
+ if (set_multiline_text(current, line, 1) == ERR)
+ return ERR;
+
+ if (!strlen(current->text[0]) && !strlen(current->text[1]))
+ goto retry;
+
+ return current;
+}
+
+static subtitle *sub_read_line_subrip09(stream_t *st,subtitle *current,
+ struct readline_args *args)
+{
+ int utf16 = args->utf16;
+ char line[LINE_LEN+1];
+ int a1,a2,a3;
+ int len;
+
+retry:
+ while (1) {
+ // try to locate next subtitle
+ if (!stream_read_line (st, line, LINE_LEN, utf16))
+ return NULL;
+ if (!((len=sscanf (line, "[%d:%d:%d]",&a1,&a2,&a3)) < 3))
+ break;
+ }
+
+ current->start = a1*360000+a2*6000+a3*100;
+
+ if (!args->previous_sub_end)
+ args->previous_sub_end = (current->start) ? current->start - 1 : 0;
+
+ if (!stream_read_line (st, line, LINE_LEN, utf16))
+ return NULL;
+
+ current->text[0]=""; // just to be sure that string is clear
+
+ if (set_multiline_text(current, line, 0) == ERR)
+ return ERR;
+
+ if (!strlen(current->text[0]) && current->lines <= 1)
+ goto retry;
+
+ return current;
+}
+
+static subtitle *sub_read_line_jacosub(stream_t* st, subtitle * current,
+ struct readline_args *args)
+{
+ int utf16 = args->utf16;
+ char line1[LINE_LEN], line2[LINE_LEN], directive[LINE_LEN], *p, *q;
+ unsigned a1, a2, a3, a4, b1, b2, b3, b4, comment = 0;
+ static unsigned jacoTimeres = 30;
+ static int jacoShift = 0;
+
+ memset(current, 0, sizeof(subtitle));
+ memset(line1, 0, LINE_LEN);
+ memset(line2, 0, LINE_LEN);
+ memset(directive, 0, LINE_LEN);
+ while (!current->text[0]) {
+ if (!stream_read_line(st, line1, LINE_LEN, utf16)) {
+ return NULL;
+ }
+ if (sscanf
+ (line1, "%u:%u:%u.%u %u:%u:%u.%u %[^\n\r]", &a1, &a2, &a3, &a4,
+ &b1, &b2, &b3, &b4, line2) < 9) {
+ if (sscanf(line1, "@%u @%u %[^\n\r]", &a4, &b4, line2) < 3) {
+ if (line1[0] == '#') {
+ int hours = 0, minutes = 0, seconds, delta, inverter =
+ 1;
+ unsigned units = jacoShift;
+ switch (toupper(line1[1])) {
+ case 'S':
+ if (isalpha(line1[2])) {
+ delta = 6;
+ } else {
+ delta = 2;
+ }
+ if (sscanf(&line1[delta], "%d", &hours)) {
+ if (hours < 0) {
+ hours *= -1;
+ inverter = -1;
+ }
+ if (sscanf(&line1[delta], "%*d:%d", &minutes)) {
+ if (sscanf
+ (&line1[delta], "%*d:%*d:%d",
+ &seconds)) {
+ sscanf(&line1[delta], "%*d:%*d:%*d.%d",
+ &units);
+ } else {
+ hours = 0;
+ sscanf(&line1[delta], "%d:%d.%d",
+ &minutes, &seconds, &units);
+ minutes *= inverter;
+ }
+ } else {
+ hours = minutes = 0;
+ sscanf(&line1[delta], "%d.%d", &seconds,
+ &units);
+ seconds *= inverter;
+ }
+ jacoShift =
+ ((hours * 3600 + minutes * 60 +
+ seconds) * jacoTimeres +
+ units) * inverter;
+ }
+ break;
+ case 'T':
+ if (isalpha(line1[2])) {
+ delta = 8;
+ } else {
+ delta = 2;
+ }
+ sscanf(&line1[delta], "%u", &jacoTimeres);
+ break;
+ }
+ }
+ continue;
+ } else {
+ current->start =
+ (unsigned long) ((a4 + jacoShift) * 100.0 /
+ jacoTimeres);
+ current->end =
+ (unsigned long) ((b4 + jacoShift) * 100.0 /
+ jacoTimeres);
+ }
+ } else {
+ current->start =
+ (unsigned
+ long) (((a1 * 3600 + a2 * 60 + a3) * jacoTimeres + a4 +
+ jacoShift) * 100.0 / jacoTimeres);
+ current->end =
+ (unsigned
+ long) (((b1 * 3600 + b2 * 60 + b3) * jacoTimeres + b4 +
+ jacoShift) * 100.0 / jacoTimeres);
+ }
+ current->lines = 0;
+ p = line2;
+ while ((*p == ' ') || (*p == '\t')) {
+ ++p;
+ }
+ if (isalpha(*p)||*p == '[') {
+ int cont, jLength;
+
+ if (sscanf(p, "%s %[^\n\r]", directive, line1) < 2)
+ return (subtitle *) ERR;
+ jLength = strlen(directive);
+ for (cont = 0; cont < jLength; ++cont) {
+ if (isalpha(*(directive + cont)))
+ *(directive + cont) = toupper(*(directive + cont));
+ }
+ if ((strstr(directive, "RDB") != NULL)
+ || (strstr(directive, "RDC") != NULL)
+ || (strstr(directive, "RLB") != NULL)
+ || (strstr(directive, "RLG") != NULL)) {
+ continue;
+ }
+ if (strstr(directive, "JL") != NULL) {
+ current->alignment = SUB_ALIGNMENT_BOTTOMLEFT;
+ } else if (strstr(directive, "JR") != NULL) {
+ current->alignment = SUB_ALIGNMENT_BOTTOMRIGHT;
+ } else {
+ current->alignment = SUB_ALIGNMENT_BOTTOMCENTER;
+ }
+ strcpy(line2, line1);
+ p = line2;
+ }
+ for (q = line1; (!eol(*p)) && (current->lines < SUB_MAX_TEXT); ++p) {
+ switch (*p) {
+ case '{':
+ comment++;
+ break;
+ case '}':
+ if (comment) {
+ --comment;
+ //the next line to get rid of a blank after the comment
+ if ((*(p + 1)) == ' ')
+ p++;
+ }
+ break;
+ case '~':
+ if (!comment) {
+ *q = ' ';
+ ++q;
+ }
+ break;
+ case ' ':
+ case '\t':
+ if ((*(p + 1) == ' ') || (*(p + 1) == '\t'))
+ break;
+ if (!comment) {
+ *q = ' ';
+ ++q;
+ }
+ break;
+ case '\\':
+ if (*(p + 1) == 'n') {
+ *q = '\0';
+ q = line1;
+ current->text[current->lines++] = strdup(line1);
+ ++p;
+ break;
+ }
+ if ((toupper(*(p + 1)) == 'C')
+ || (toupper(*(p + 1)) == 'F')) {
+ ++p,++p;
+ break;
+ }
+ if ((*(p + 1) == 'B') || (*(p + 1) == 'b') || (*(p + 1) == 'D') || //actually this means "insert current date here"
+ (*(p + 1) == 'I') || (*(p + 1) == 'i') || (*(p + 1) == 'N') || (*(p + 1) == 'T') || //actually this means "insert current time here"
+ (*(p + 1) == 'U') || (*(p + 1) == 'u')) {
+ ++p;
+ break;
+ }
+ if ((*(p + 1) == '\\') ||
+ (*(p + 1) == '~') || (*(p + 1) == '{')) {
+ ++p;
+ } else if (eol(*(p + 1))) {
+ if (!stream_read_line(st, directive, LINE_LEN, utf16))
+ return NULL;
+ trail_space(directive);
+ av_strlcat(line2, directive, LINE_LEN);
+ break;
+ }
+ default:
+ if (!comment) {
+ *q = *p;
+ ++q;
+ }
+ } //-- switch
+ } //-- for
+ *q = '\0';
+ if (current->lines < SUB_MAX_TEXT)
+ current->text[current->lines] = strdup(line1);
+ } //-- while
+ if (current->lines < SUB_MAX_TEXT)
+ current->lines++;
+ return current;
+}
+
+static int sub_autodetect (stream_t* st, int *uses_time, int utf16) {
+ char line[LINE_LEN+1];
+ int i,j=0;
+
+ while (j < 100) {
+ j++;
+ if (!stream_read_line (st, line, LINE_LEN, utf16))
+ return SUB_INVALID;
+
+ if (sscanf (line, "{%d}{%d}", &i, &i)==2)
+ {*uses_time=0;return SUB_MICRODVD;}
+ if (sscanf (line, "{%d}{}", &i)==1)
+ {*uses_time=0;return SUB_MICRODVD;}
+ if (sscanf (line, "[%d][%d]", &i, &i)==2)
+ {*uses_time=1;return SUB_MPL2;}
+ if (sscanf (line, "%d:%d:%d.%d,%d:%d:%d.%d", &i, &i, &i, &i, &i, &i, &i, &i)==8)
+ {*uses_time=1;return SUB_SUBRIP;}
+ if (sscanf (line, "%d:%d:%d%*1[,.:]%d --> %d:%d:%d%*1[,.:]%d", &i, &i, &i, &i, &i, &i, &i, &i) == 8)
+ {*uses_time=1;return SUB_SUBVIEWER;}
+ if (sscanf (line, "{T %d:%d:%d:%d",&i, &i, &i, &i)==4)
+ {*uses_time=1;return SUB_SUBVIEWER2;}
+ if (strstr (line, "<SAMI>"))
+ {*uses_time=1; return SUB_SAMI;}
+ if (sscanf(line, "%d:%d:%d.%d %d:%d:%d.%d", &i, &i, &i, &i, &i, &i, &i, &i) == 8)
+ {*uses_time = 1; return SUB_JACOSUB;}
+ if (sscanf(line, "@%d @%d", &i, &i) == 2)
+ {*uses_time = 1; return SUB_JACOSUB;}
+ if (sscanf (line, "%d:%d:%d:", &i, &i, &i )==3)
+ {*uses_time=1;return SUB_VPLAYER;}
+ if (sscanf (line, "%d:%d:%d ", &i, &i, &i )==3)
+ {*uses_time=1;return SUB_VPLAYER;}
+ if (!strncasecmp(line, "<window", 7))
+ {*uses_time=1;return SUB_RT;}
+ if (!memcmp(line, "Dialogue: Marked", 16))
+ {*uses_time=1; return SUB_SSA;}
+ if (!memcmp(line, "Dialogue: ", 10))
+ {*uses_time=1; return SUB_SSA;}
+ if (sscanf (line, "%d,%d,\"%c", &i, &i, (char *) &i) == 3)
+ {*uses_time=1;return SUB_PJS;}
+ if (sscanf (line, "FORMAT=%d", &i) == 1)
+ {*uses_time=0; return SUB_MPSUB;}
+ if (!memcmp(line, "FORMAT=TIME", 11))
+ {*uses_time=1; return SUB_MPSUB;}
+ if (strstr (line, "-->>"))
+ {*uses_time=0; return SUB_AQTITLE;}
+ if (sscanf (line, "[%d:%d:%d]", &i, &i, &i)==3)
+ {*uses_time=1;return SUB_SUBRIP09;}
+ }
+
+ return SUB_INVALID; // too many bad lines
+}
+
+#ifdef CONFIG_ICONV
+static const char* guess_cp(stream_t *st, const char *preferred_language, const char *fallback);
+
+static iconv_t subcp_open (stream_t *st, const char *sub_cp)