30 typedef enum {
false = 0,
true = 1 }
bool;
40 #include <sys/types.h>
52 typedef int8_t
ei8;
typedef uint8_t
eu8;
56 typedef int_least8_t
li8;
typedef uint_least8_t
lu8;
57 typedef int_least16_t
li16;
typedef uint_least16_t
lu16;
58 typedef int_least32_t
li32;
typedef uint_least32_t
lu32;
60 typedef int_fast8_t
fi8;
typedef uint_fast8_t
fu8;
61 typedef int_fast16_t
fi16;
typedef uint_fast16_t
fu16;
62 typedef int_fast32_t
fi32;
typedef uint_fast32_t
fu32;
67 #define GCCATTR_PRINTF(m, n) __attribute__ ((format (printf, m, n)))
68 #define GCCATTR_UNUSED __attribute ((unused))
69 #define GCCATTR_NORETURN __attribute ((noreturn))
70 #define GCCATTR_CONST __attribute ((const))
72 #define GCCATTR_PRINTF(m, n)
73 #define GCCATTR_UNUSED
74 #define GCCATTR_NORETURN
79 #define CUS (const unsigned char *)
83 int sup2dast(
const char *supfile,
const char *ifofile,
int delay_ms);
104 #define exc_try(x) do { struct exc__state exc_s##x; int exc_type##x GCCATTR_UNUSED; \
105 exc_s##x.m_prev = EXC.m_last; EXC.m_last = &exc_s##x; if ((exc_type##x = setjmp(exc_s##x.m_env)) == 0)
107 #define exc_ftry(x) do { struct exc__state exc_s##x, *exc_p##x = EXC.m_last; \
108 int exc_type##x GCCATTR_UNUSED; exc_s##x.prev = EXC.m_last; \
109 EXC.m_last = &exc_s##x; if ((exc_type##x = setjmp(exc_s##x.env)) == 0)
111 #define exc_catch(x,t) else if ((t) == exc_type##x)
113 #define exc_end(x) else __exc_throw(exc_type##x); EXC.m_last = exc_s##x.m_prev; } while (0)
115 #define exc_return(x) for (EXC.m_last = exc_p##x;) return
117 #define exc_fthrow(x) for (EXC.m_last = exc_p##x;) ex_throw
119 #define exc_catchall else
120 #define exc_endall(x) EXC.m_last = exc_s##x.m_prev; } while (0)
122 #define exc_cleanup() EXC.m_last = NULL;
127 EXC.m_last =
EXC.m_last->m_prev;
139 va_start(ap, format);
140 unsigned int len = vsnprintf(
EXC.m_msgbuf,
sizeof EXC.m_msgbuf, format, ap);
143 if (len >=
sizeof EXC.m_msgbuf)
145 len =
sizeof EXC.m_msgbuf - 1;
146 EXC.m_msgbuf[len] =
'\0';
150 if (format[strlen(format) - 1] ==
':')
152 int l = snprintf(&
EXC.m_msgbuf[len],
sizeof EXC.m_msgbuf - len,
153 " %s.", strerror(err));
154 if (l + len >=
sizeof EXC.m_msgbuf)
156 len =
sizeof EXC.m_msgbuf - 1;
157 EXC.m_msgbuf[len] =
'\0';
167 EXC.m_msgbuf[0] =
'\0';
179 size_t n = fread(ptr, size, 1, stream);
190 size_t n = fwrite(ptr, size, 1, stream);
199 #define xxfwriteCS(f, s) xxfwrite(f, CUS s, sizeof (s) - 1)
205 int lr = (500 + 1164 * (y - 16) + 1596 * (cr - 128) ) /1000;
206 int lg = (500 + 1164 * (y - 16) - 813 * (cr - 128) - 391 * (cb - 128)) / 1000;
207 int lb = (500 + 1164 * (y - 16) + 2018 * (cb - 128)) / 1000;
209 *r = (lr < 0)? 0: (lr > 255)? 255: (
eu8)lr;
210 *g = (lg < 0)? 0: (lg > 255)? 255: (
eu8)lg;
211 *b = (lb < 0)? 0: (lb > 255)? 255: (
eu8)lb;
220 *y = ( 257 * r + 504 * g + 98 * b + 16500) / 1000;
221 *cr = ( 439 * r - 368 * g - 71 * b + 128500) / 1000;
222 *cb = (-148 * r - 291 * g + 439 * b + 128500) / 1000;
252 if (fseek(stream, offset, SEEK_SET) < 0)
256 static void xmkdir(
const char * path,
int mode)
258 if (mkdir(path, mode) < 0)
267 if (stat(
filename, &st) == 0 && S_ISREG(st.st_mode))
276 if (stat(
filename, &st) == 0 && S_ISDIR(st.st_mode))
305 ptr[0] = value>>24; ptr[1] = value>>16; ptr[2] = value>>8; ptr[3] =value;
309 static void set_uint16_be(
eu8 * ptr,
eu32 value) {
310 ptr[0] = value>>8; ptr[1] = value; }
312 static void set_uint32_le(
eu8 * ptr,
eu32 value) {
313 ptr[3] = value>>24; ptr[2] = value>>16; ptr[1] = value>>8; ptr[0] =value; }
318 ptr[1] = value>>8; ptr[0] =value;
329 eu8 yuvpalette[16][3],
eu8 rgbpalette[16][3])
334 if (memcmp(
xxfread(fh, buf, 12),
"DVDVIDEO-VTS", 12) != 0)
336 "(IFO) file %s not of type DVDVIDEO-VTS.",
filename);
340 xfseek0(fh, offset * 0x800 + 12);
344 xxfread(fh, buf, (
size_t)(16 * 4));
346 for (
int i = 0; i < 16; i++)
351 eu8 *
p = buf + (ptrdiff_t)(i) * 4 + 1;
352 yuvpalette[i][0] =
p[0]; yuvpalette[i][1] =
p[1]; yuvpalette[i][2] =
p[2];
354 rgbpalette[i][0] = r; rgbpalette[i][1] = g; rgbpalette[i][2] = b;
367 rgbpalpart[0] = r, rgbpalpart[1] = g, rgbpalpart[2] = b;
368 rgb2yuv(r, g, b, &y, &cr, &cb);
369 yuvpalpart[0] = y, yuvpalpart[1] = cr, yuvpalpart[2] = cb;
374 eu8 yuvpalette[16][3],
eu8 rgbpalette[16][3])
378 if (strlen(arg) != 20 || arg[6] !=
',' || arg[13] !=
',')
381 for (i = 0; i < 16; i++)
382 set2palettes(i * 0x111111, yuvpalette[i], rgbpalette[i]);
384 sscanf(arg,
"%x", &i);
386 sscanf(arg + 7,
"%x", &i);
388 sscanf(arg + 14,
"%x", &i);
409 memcpy(self->m_paletteChunk,
"\0\0\0\x0c" "PLTE", 8);
410 memcpy(self->m_paletteChunk + 8, palette, 12);
412 self->m_crc =
crc32(self->m_crc, self->m_paletteChunk + 4, 16);
417 const char *
filename,
int height,
int width)
420 self->m_width = width;
421 self->m_hleft = height;
424 xxfwrite(self->m_fh,
CUS "\x89PNG\r\n\x1a\n" "\0\0\0\x0d", 12);
426 memcpy(self->m_buffer,
"IHDR", 4);
429 memcpy(self->m_buffer + 12,
"\004\003\0\0\0", 5);
433 xxfwrite(self->m_fh, self->m_buffer, 21);
435 xxfwrite(self->m_fh, self->m_paletteChunk,
sizeof self->m_paletteChunk);
438 xxfwriteCS(self->m_fh,
"\0\0\0\001" "tRNS" "\0" "\x40\xe6\xd8\x66");
440 xxfwrite(self->m_fh,
CUS "\0\0\0\0IDAT" "\x78\001", 10);
441 self->m_buffer[0] =
'\0';
442 self->m_buffer[5] =
'\0';
444 self->m_chunkLen = 2;
445 self->m_crc =
crc32(0,
CUS "IDAT" "\x78\001", 6);
451 int l =
self->m_bufPos - 5;
452 self->m_chunkLen +=
self->m_bufPos;
455 xxfwrite(self->m_fh, self->m_buffer, self->m_bufPos);
456 self->m_crc =
crc32(self->m_crc, self->m_buffer, self->m_bufPos);
457 self->m_adler = adler32(self->m_adler, self->m_buffer + 5, self->m_bufPos - 5);
458 self->m_buffer[0] =
'\0';
464 if (self->m_nibble < 0)
465 self->m_nibble = (
pixel << 4);
468 self->m_buffer[
self->m_bufPos++] =
self->m_nibble |
pixel;
470 if (self->m_bufPos ==
sizeof self->m_buffer - 4)
477 if (self->m_nibble >= 0)
479 self->m_buffer[
self->m_bufPos++] =
self->m_nibble;
485 self->m_buffer[
self->m_bufPos++] =
'\0';
491 self->m_buffer[0] = 0x01;
502 self->m_crc =
crc32(self->m_crc, adlerbuf, 4);
504 xxfwriteCS(self->m_fh,
"\0\0\0\0" "IEND" "\xae\x42\x60\x82");
515 eu8 rv = *nibble & 0x0f;
520 *nibble = *(*data)++;
536 if ((bits & 0xc) != 0)
539 number = (bits & 0xc) >> 2;
540 cindex = bits & 0x3; }
543 bits = (bits << 4) |
getnibble(data, &nibble);
544 if ((bits & 0xf0) != 0)
547 number = (bits & 0x3c) >> 2;
552 bits = (bits << 4) |
getnibble(data, &nibble);
553 if ((bits & 0xfc0) != 0)
556 number = (bits & 0xfc) >> 2;
562 bits = (bits << 4) |
getnibble(data, &nibble);
563 number = (bits & 0x3fc) >> 2;
573 for (; number > 0 && col < width; number--, col++)
587 eu8 * top_ibuf = data + top;
588 eu8 * bot_ibuf = data + bot;
593 for (
int i = 0; i < h / 2; i++)
605 uint32_t h =
pts / (3600 * 90000UL);
606 uint32_t m =
pts / (60 * 90000UL) % 60;
607 uint32_t s =
pts / 90000 % 60;
608 uint32_t hs = (
pts + 450) / 900 % 100;
611 sprintf(rvbuf,
"%02d+%02d+%02d.%02d.png", h, m, s, hs);
613 sprintf(rvbuf,
"%02d:%02d:%02d.%02d", h, m, s, hs);
646 bool createpics,
int delay_ms,
647 char * fnbuf,
char * fnbuf_fp)
652 time_t
volatile pt = 0;
653 bool volatile last =
false;
656 if (memcmp(
xxfread(sfh, data, 2),
"SP", 2) != 0)
666 eu32 volatile lastendpts = 0;
679 eu8 * ctrl = data + pack - 4;
680 xxfread(sfh, ctrl, size - pack);
684 if (memcmp(
xxfread(sfh, (
unsigned char *)junk, 2),
700 eu8 this_palette[4][3];
714 int colcon_length = 0;
725 for (
int n = 0; n < 4; n++) {
726 int i = (xpalette >> (n * 4) & 0x0f);
727 this_palette[n][0] = palette[i][0];
728 this_palette[n][1] = palette[i][1];
729 this_palette[n][2] = palette[i][2];
737 x1 = (
p[0] << 4) + (
p[1] >> 4);
738 x2 = ((
p[1] & 0xf) << 8) +
p[2];
739 y1 = (
p[3] << 4) + (
p[4] >> 4);
740 y2 = ((
p[4] & 0xf) << 8) +
p[5];
764 tmppts += delay_ms * 90;
770 eu32 endpts = tmppts + end * 1000;
772 if (tmppts <= lastendpts)
774 if (lastendpts < endpts)
776 pts = lastendpts + 2 * (1000 / 30) * 90;
779 tmppts += delay_ms * 90;
780 printf(
"Fixed overlapping subtitle!\n");
784 printf(
"Dropping overlapping subtitle\n");
792 pts2ts(tmppts, sptsstr + 1,
false);
799 size_t len =
write(1, sptsstr, strlen(sptsstr));
800 if (len != strlen(sptsstr))
801 printf(
"ERROR: write failed");
804 fprintf(ofh,
" <spu start=\"%s\" end=\"%s\" image=\"%s\""
805 " xoffset=\"%d\" yoffset=\"%d\" />\n",
806 sptsstr + 1,
pts2ts(endpts, junk,
false),
811 bot_field - 4, fnbuf, this_palette);
819 size_t len =
write(1, sptsstr, strlen(sptsstr));
820 if (len != strlen(sptsstr))
821 printf(
"ERROR: write failed");
829 static void usage(
const char * pn)
832 "Usage: %s [--delay ms] <supfile> <ifofile>|<palette>" "\n"
836 "\t ProjectX decoded recording.sup and recording.sup.IFO" "\n"
838 "\t\t$ pxsup2dast recording.sup*" "\n"
840 "\t Having test.sup and map.ifo" "\n"
842 "\t\t$ pxsup2dast test.sup map.ifo" "\n"
844 "\t No .IFO, so giving 3 colors (rgb components in hex)" "\n"
846 "\t\t$ pxsup2dast titles.sup ff0000,00ff00,0000ff" "\n"
848 "\t Trying to fix sync in recording" "\n"
850 "\t\t$ pxsup2dast --delay 750 recording.sup*" "\n"
861 for (
int i = 0; i < 16; i++)
866 if (fscanf(fh,
"%02x%02x%02x\n", &r, &g, &b) != 3 ||
867 r != palette[i][0] || g != palette[i][1] || b != palette[i][2])
877 int sup2dast(
const char *supfile,
const char *ifofile ,
int delay_ms)
882 eu8 yuvpalette[16][3];
883 eu8 rgbpalette[16][3];
887 bool createpics =
false;
889 memset(yuvpalette, 0,
sizeof(yuvpalette));
890 memset(rgbpalette, 0,
sizeof(rgbpalette));
892 if (
write(1,
"\n", 1) != 1)
893 printf(
"ERROR: write failed");
895 if (
sizeof (
char) != 1 ||
sizeof (
int) < 2)
898 if ((
p = strrchr(supfile,
'.')) != NULL)
904 "not manage filenames longer than 950 characters.");
905 memcpy(fnbuf, supfile, i);
918 strcpy(
p,
"palette.ycrcb");
922 printf(
"Found palette.yuv having our palette information...\n");
923 printf(
"...Skipping image files, Writing spumux.tmp.\n");
928 printf(
"Writing image files and spumux.tmp.\n");
931 strcpy(
p,
"spumux.tmp");
935 pxsubtitle(supfile, fh, rgbpalette, createpics, delay_ms, fnbuf,
p);
937 if (
write(1,
"\n", 1) != 1)
938 printf(
"ERROR: write failed");
940 xxfwriteCS(fh,
" </stream>\n</subpictures>\n");
945 printf(
"Writing palette.ycrcb and palette.rgb.\n");
946 strcpy(
p,
"palette.ycrcb");
948 strcpy(
p,
"palette.rgb");
950 for (i = 0; i < 16; i++)
952 fprintf(yuvfh,
"%02x%02x%02x\n",
953 yuvpalette[i][0], yuvpalette[i][1], yuvpalette[i][2]);
954 fprintf(rgbfh,
"%02x%02x%02x\n",
955 rgbpalette[i][0], rgbpalette[i][1], rgbpalette[i][2]);
963 printf(
"Renaming spumux.tmp to spumux.xml.\n");
964 strcpy(
p,
"spumux.tmp");
966 memcpy(buf, fnbuf, i);
967 strcpy(&buf[i - 3],
"xml");
972 printf(
"Output files reside in %s\n", fnbuf);
973 printf(
"All done.\n");
979 printf(
"ERROR: write failed");
981 if (
write(2,
"\n", 1) != 1)
982 printf(
"ERROR: write failed");