30 typedef enum {
false = 0,
true = 1 }
bool;
40 #include <sys/types.h>
55 typedef int8_t
ei8;
typedef uint8_t
eu8;
59 typedef int_least8_t
li8;
typedef uint_least8_t
lu8;
60 typedef int_least16_t
li16;
typedef uint_least16_t
lu16;
61 typedef int_least32_t
li32;
typedef uint_least32_t
lu32;
63 typedef int_fast8_t
fi8;
typedef uint_fast8_t
fu8;
64 typedef int_fast16_t
fi16;
typedef uint_fast16_t
fu16;
65 typedef int_fast32_t
fi32;
typedef uint_fast32_t
fu32;
70 #define GCCATTR_PRINTF(m, n) __attribute__ ((format (printf, m, n)))
71 #define GCCATTR_UNUSED __attribute ((unused))
72 #define GCCATTR_NORETURN __attribute ((noreturn))
73 #define GCCATTR_CONST __attribute ((const))
75 #define GCCATTR_PRINTF(m, n)
76 #define GCCATTR_UNUSED
77 #define GCCATTR_NORETURN
82 #define CUS (const unsigned char *)
86 int sup2dast(
const char *supfile,
const char *ifofile,
int delay_ms);
107 #define exc_try(x) do { struct exc__state exc_s##x; int exc_type##x GCCATTR_UNUSED; \
108 exc_s##x.m_prev = EXC.m_last; \
109 EXC.m_last = &exc_s##x; \
110 exc_type##x = setjmp(exc_s##x.m_env); \
111 if (exc_type##x == 0)
113 #define exc_ftry(x) do { struct exc__state exc_s##x, *exc_p##x = EXC.m_last; \
114 int exc_type##x GCCATTR_UNUSED; \
115 exc_s##x.prev = EXC.m_last; \
116 EXC.m_last = &exc_s##x; \
117 exc_type##x = setjmp(exc_s##x.env); \
118 if (exc_type##x == 0)
120 #define exc_catch(x,t) else if ((t) == exc_type##x)
122 #define exc_end(x) else __exc_throw(exc_type##x); EXC.m_last = exc_s##x.m_prev; } while (0)
124 #define exc_return(x) for (EXC.m_last = exc_p##x;) return
126 #define exc_fthrow(x) for (EXC.m_last = exc_p##x;) ex_throw
128 #define exc_catchall else
129 #define exc_endall(x) EXC.m_last = exc_s##x.m_prev; } while (0)
131 #define exc_cleanup() EXC.m_last = NULL;
136 EXC.m_last =
EXC.m_last->m_prev;
148 va_start(ap, format);
149 unsigned int len = vsnprintf(
EXC.m_msgbuf,
sizeof EXC.m_msgbuf, format, ap);
152 if (len >=
sizeof EXC.m_msgbuf)
154 len =
sizeof EXC.m_msgbuf - 1;
155 EXC.m_msgbuf[len] =
'\0';
159 if (format[strlen(format) - 1] ==
':')
161 int l = snprintf(&
EXC.m_msgbuf[len],
sizeof EXC.m_msgbuf - len,
162 " %s.", strerror(err));
163 if (l + len >=
sizeof EXC.m_msgbuf)
165 len =
sizeof EXC.m_msgbuf - 1;
166 EXC.m_msgbuf[len] =
'\0';
176 EXC.m_msgbuf[0] =
'\0';
188 size_t n = fread(ptr, size, 1, stream);
199 size_t n = fwrite(ptr, size, 1, stream);
208 #define xxfwriteCS(f, s) xxfwrite(f, CUS s, sizeof (s) - 1)
214 int lr = (500 + 1164 * (y - 16) + 1596 * (cr - 128) ) /1000;
215 int lg = (500 + 1164 * (y - 16) - 813 * (cr - 128) - 391 * (cb - 128)) / 1000;
216 int lb = (500 + 1164 * (y - 16) + 2018 * (cb - 128)) / 1000;
218 *r = (lr < 0)? 0: (lr > 255)? 255: (
eu8)lr;
219 *g = (lg < 0)? 0: (lg > 255)? 255: (
eu8)lg;
220 *b = (lb < 0)? 0: (lb > 255)? 255: (
eu8)lb;
229 *y = ( 257 * r + 504 * g + 98 * b + 16500) / 1000;
230 *cr = ( 439 * r - 368 * g - 71 * b + 128500) / 1000;
231 *cb = (-148 * r - 291 * g + 439 * b + 128500) / 1000;
261 if (fseek(stream, offset, SEEK_SET) < 0)
265 static void xmkdir(
const char * path,
int mode)
272 if (mkdir(path, mode) < 0)
282 if (stat(
filename, &st) == 0 && S_ISREG(st.st_mode))
291 if (stat(
filename, &st) == 0 && S_ISDIR(st.st_mode))
320 ptr[0] = value>>24; ptr[1] = value>>16; ptr[2] = value>>8; ptr[3] =value;
324 static void set_uint16_be(
eu8 * ptr,
eu32 value) {
325 ptr[0] = value>>8; ptr[1] = value; }
327 static void set_uint32_le(
eu8 * ptr,
eu32 value) {
328 ptr[3] = value>>24; ptr[2] = value>>16; ptr[1] = value>>8; ptr[0] =value; }
333 ptr[1] = value>>8; ptr[0] =value;
344 eu8 yuvpalette[16][3],
eu8 rgbpalette[16][3])
349 if (memcmp(
xxfread(fh, buf, 12),
"DVDVIDEO-VTS", 12) != 0)
351 "(IFO) file %s not of type DVDVIDEO-VTS.",
filename);
355 xfseek0(fh, offset * 0x800 + 12);
359 xxfread(fh, buf, (
size_t)(16 * 4));
361 for (
int i = 0; i < 16; i++)
366 eu8 *
p = buf + (ptrdiff_t)(i) * 4 + 1;
367 yuvpalette[i][0] =
p[0]; yuvpalette[i][1] =
p[1]; yuvpalette[i][2] =
p[2];
369 rgbpalette[i][0] = r; rgbpalette[i][1] = g; rgbpalette[i][2] = b;
382 rgbpalpart[0] = r, rgbpalpart[1] = g, rgbpalpart[2] = b;
383 rgb2yuv(r, g, b, &y, &cr, &cb);
384 yuvpalpart[0] = y, yuvpalpart[1] = cr, yuvpalpart[2] = cb;
389 eu8 yuvpalette[16][3],
eu8 rgbpalette[16][3])
393 if (strlen(arg) != 20 || arg[6] !=
',' || arg[13] !=
',')
396 for (i = 0; i < 16; i++)
397 set2palettes(i * 0x111111, yuvpalette[i], rgbpalette[i]);
399 sscanf(arg,
"%x", &i);
401 sscanf(arg + 7,
"%x", &i);
403 sscanf(arg + 14,
"%x", &i);
424 memcpy(self->m_paletteChunk,
"\0\0\0\x0c" "PLTE", 8);
425 memcpy(self->m_paletteChunk + 8, palette, 12);
427 self->m_crc =
crc32(self->m_crc, self->m_paletteChunk + 4, 16);
432 const char *
filename,
int height,
int width)
435 self->m_width = width;
436 self->m_hleft = height;
439 xxfwrite(self->m_fh,
CUS "\x89PNG\r\n\x1a\n" "\0\0\0\x0d", 12);
441 memcpy(self->m_buffer,
"IHDR", 4);
444 memcpy(self->m_buffer + 12,
"\004\003\0\0\0", 5);
448 xxfwrite(self->m_fh, self->m_buffer, 21);
450 xxfwrite(self->m_fh, self->m_paletteChunk,
sizeof self->m_paletteChunk);
453 xxfwriteCS(self->m_fh,
"\0\0\0\001" "tRNS" "\0" "\x40\xe6\xd8\x66");
455 xxfwrite(self->m_fh,
CUS "\0\0\0\0IDAT" "\x78\001", 10);
456 self->m_buffer[0] =
'\0';
457 self->m_buffer[5] =
'\0';
459 self->m_chunkLen = 2;
460 self->m_crc =
crc32(0,
CUS "IDAT" "\x78\001", 6);
466 int l =
self->m_bufPos - 5;
467 self->m_chunkLen +=
self->m_bufPos;
470 xxfwrite(self->m_fh, self->m_buffer, self->m_bufPos);
471 self->m_crc =
crc32(self->m_crc, self->m_buffer, self->m_bufPos);
472 self->m_adler = adler32(self->m_adler, self->m_buffer + 5, self->m_bufPos - 5);
473 self->m_buffer[0] =
'\0';
479 if (self->m_nibble < 0)
480 self->m_nibble = (
pixel << 4);
483 self->m_buffer[
self->m_bufPos++] =
self->m_nibble |
pixel;
485 if (self->m_bufPos ==
sizeof self->m_buffer - 4)
492 if (self->m_nibble >= 0)
494 self->m_buffer[
self->m_bufPos++] =
self->m_nibble;
500 self->m_buffer[
self->m_bufPos++] =
'\0';
506 self->m_buffer[0] = 0x01;
517 self->m_crc =
crc32(self->m_crc, adlerbuf, 4);
519 xxfwriteCS(self->m_fh,
"\0\0\0\0" "IEND" "\xae\x42\x60\x82");
530 eu8 rv = *nibble & 0x0f;
535 *nibble = *(*data)++;
551 if ((bits & 0xc) != 0)
554 number = (bits & 0xc) >> 2;
555 cindex = bits & 0x3; }
558 bits = (bits << 4) |
getnibble(data, &nibble);
559 if ((bits & 0xf0) != 0)
562 number = (bits & 0x3c) >> 2;
567 bits = (bits << 4) |
getnibble(data, &nibble);
568 if ((bits & 0xfc0) != 0)
571 number = (bits & 0xfc) >> 2;
577 bits = (bits << 4) |
getnibble(data, &nibble);
578 number = (bits & 0x3fc) >> 2;
588 for (; number > 0 && col < width; number--, col++)
602 eu8 * top_ibuf = data + top;
603 eu8 * bot_ibuf = data + bot;
608 for (
int i = 0; i < h / 2; i++)
620 uint32_t h =
pts / (3600 * 90000UL);
621 uint32_t m =
pts / (60 * 90000UL) % 60;
622 uint32_t s =
pts / 90000 % 60;
623 uint32_t hs = (
pts + 450) / 900 % 100;
626 sprintf(rvbuf,
"%02d+%02d+%02d.%02d.png", h, m, s, hs);
628 sprintf(rvbuf,
"%02d:%02d:%02d.%02d", h, m, s, hs);
661 bool createpics,
int delay_ms,
662 char * fnbuf,
char * fnbuf_fp)
667 time_t
volatile pt = 0;
668 bool volatile last =
false;
671 if (memcmp(
xxfread(sfh, data, 2),
"SP", 2) != 0)
681 eu32 volatile lastendpts = 0;
694 eu8 * ctrl = data + pack - 4;
695 xxfread(sfh, ctrl, size - pack);
699 if (memcmp(
xxfread(sfh, (
unsigned char *)junk, 2),
715 eu8 this_palette[4][3];
729 int colcon_length = 0;
740 for (
int n = 0; n < 4; n++) {
741 int i = (xpalette >> (n * 4) & 0x0f);
742 this_palette[n][0] = palette[i][0];
743 this_palette[n][1] = palette[i][1];
744 this_palette[n][2] = palette[i][2];
752 x1 = (
p[0] << 4) + (
p[1] >> 4);
753 x2 = ((
p[1] & 0xf) << 8) +
p[2];
754 y1 = (
p[3] << 4) + (
p[4] >> 4);
755 y2 = ((
p[4] & 0xf) << 8) +
p[5];
779 tmppts += delay_ms * 90;
785 eu32 endpts = tmppts + end * 1000;
787 if (tmppts <= lastendpts)
789 if (lastendpts < endpts)
791 pts = lastendpts + 2 * (1000 / 30) * 90;
794 tmppts += delay_ms * 90;
795 printf(
"Fixed overlapping subtitle!\n");
799 printf(
"Dropping overlapping subtitle\n");
807 pts2ts(tmppts, sptsstr + 1,
false);
814 size_t len =
write(1, sptsstr, strlen(sptsstr));
815 if (len != strlen(sptsstr))
816 printf(
"ERROR: write failed");
819 fprintf(ofh,
" <spu start=\"%s\" end=\"%s\" image=\"%s\""
820 " xoffset=\"%d\" yoffset=\"%d\" />\n",
821 sptsstr + 1,
pts2ts(endpts, junk,
false),
826 bot_field - 4, fnbuf, this_palette);
834 size_t len =
write(1, sptsstr, strlen(sptsstr));
835 if (len != strlen(sptsstr))
836 printf(
"ERROR: write failed");
844 static void usage(
const char * pn)
847 "Usage: %s [--delay ms] <supfile> <ifofile>|<palette>" "\n"
851 "\t ProjectX decoded recording.sup and recording.sup.IFO" "\n"
853 "\t\t$ pxsup2dast recording.sup*" "\n"
855 "\t Having test.sup and map.ifo" "\n"
857 "\t\t$ pxsup2dast test.sup map.ifo" "\n"
859 "\t No .IFO, so giving 3 colors (rgb components in hex)" "\n"
861 "\t\t$ pxsup2dast titles.sup ff0000,00ff00,0000ff" "\n"
863 "\t Trying to fix sync in recording" "\n"
865 "\t\t$ pxsup2dast --delay 750 recording.sup*" "\n"
876 for (
int i = 0; i < 16; i++)
881 if (fscanf(fh,
"%02x%02x%02x\n", &r, &g, &b) != 3 ||
882 r != palette[i][0] || g != palette[i][1] || b != palette[i][2])
892 int sup2dast(
const char *supfile,
const char *ifofile ,
int delay_ms)
897 eu8 yuvpalette[16][3];
898 eu8 rgbpalette[16][3];
902 bool createpics =
false;
904 memset(yuvpalette, 0,
sizeof(yuvpalette));
905 memset(rgbpalette, 0,
sizeof(rgbpalette));
907 if (
write(1,
"\n", 1) != 1)
908 printf(
"ERROR: write failed");
910 if (
sizeof (
char) != 1 ||
sizeof (
int) < 2)
913 p = strrchr(supfile,
'.');
920 "not manage filenames longer than 950 characters.");
921 memcpy(fnbuf, supfile, i);
934 strcpy(
p,
"palette.ycrcb");
938 printf(
"Found palette.yuv having our palette information...\n");
939 printf(
"...Skipping image files, Writing spumux.tmp.\n");
944 printf(
"Writing image files and spumux.tmp.\n");
947 strcpy(
p,
"spumux.tmp");
951 pxsubtitle(supfile, fh, rgbpalette, createpics, delay_ms, fnbuf,
p);
953 if (
write(1,
"\n", 1) != 1)
954 printf(
"ERROR: write failed");
956 xxfwriteCS(fh,
" </stream>\n</subpictures>\n");
961 printf(
"Writing palette.ycrcb and palette.rgb.\n");
962 strcpy(
p,
"palette.ycrcb");
964 strcpy(
p,
"palette.rgb");
966 for (i = 0; i < 16; i++)
968 fprintf(yuvfh,
"%02x%02x%02x\n",
969 yuvpalette[i][0], yuvpalette[i][1], yuvpalette[i][2]);
970 fprintf(rgbfh,
"%02x%02x%02x\n",
971 rgbpalette[i][0], rgbpalette[i][1], rgbpalette[i][2]);
979 printf(
"Renaming spumux.tmp to spumux.xml.\n");
980 strcpy(
p,
"spumux.tmp");
982 memcpy(buf, fnbuf, i);
983 strcpy(&buf[i - 3],
"xml");
988 printf(
"Output files reside in %s\n", fnbuf);
989 printf(
"All done.\n");
995 printf(
"ERROR: write failed");
997 if (
write(2,
"\n", 1) != 1)
998 printf(
"ERROR: write failed");