30 typedef enum {
false = 0,
true = 1 }
bool;
39 #include <sys/types.h>
51 typedef int8_t
ei8;
typedef uint8_t
eu8;
55 typedef int_least8_t
li8;
typedef uint_least8_t
lu8;
56 typedef int_least16_t
li16;
typedef uint_least16_t
lu16;
57 typedef int_least32_t
li32;
typedef uint_least32_t
lu32;
59 typedef int_fast8_t
fi8;
typedef uint_fast8_t
fu8;
60 typedef int_fast16_t
fi16;
typedef uint_fast16_t
fu16;
61 typedef int_fast32_t
fi32;
typedef uint_fast32_t
fu32;
66 #define GCCATTR_PRINTF(m, n) __attribute__ ((format (printf, m, n)))
67 #define GCCATTR_UNUSED __attribute ((unused))
68 #define GCCATTR_NORETURN __attribute ((noreturn))
69 #define GCCATTR_CONST __attribute ((const))
71 #define GCCATTR_PRINTF(m, n)
72 #define GCCATTR_UNUSED
73 #define GCCATTR_NORETURN
78 #define CUS (const unsigned char *)
82 int sup2dast(
const char *supfile,
const char *ifofile,
int delay_ms);
103 #define exc_try(x) do { struct exc__state exc_s##x; int exc_type##x GCCATTR_UNUSED; \
104 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)
106 #define exc_ftry(x) do { struct exc__state exc_s##x, *exc_p##x = EXC.m_last; \
107 int exc_type##x GCCATTR_UNUSED; exc_s##x.prev = EXC.m_last; \
108 EXC.m_last = &exc_s##x; if ((exc_type##x = setjmp(exc_s##x.env)) == 0)
110 #define exc_catch(x,t) else if ((t) == exc_type##x)
112 #define exc_end(x) else __exc_throw(exc_type##x); EXC.m_last = exc_s##x.m_prev; } while (0)
114 #define exc_return(x) for (EXC.m_last = exc_p##x;) return
116 #define exc_fthrow(x) for (EXC.m_last = exc_p##x;) ex_throw
118 #define exc_catchall else
119 #define exc_endall(x) EXC.m_last = exc_s##x.m_prev; } while (0)
121 #define exc_cleanup() EXC.m_last = NULL;
126 EXC.m_last =
EXC.m_last->m_prev;
138 va_start(ap, format);
139 unsigned int len = vsnprintf(
EXC.m_msgbuf,
sizeof EXC.m_msgbuf, format, ap);
142 if (len >=
sizeof EXC.m_msgbuf)
144 len =
sizeof EXC.m_msgbuf - 1;
145 EXC.m_msgbuf[len] =
'\0';
149 if (format[strlen(format) - 1] ==
':')
151 int l = snprintf(&
EXC.m_msgbuf[len],
sizeof EXC.m_msgbuf - len,
152 " %s.", strerror(err));
153 if (l + len >=
sizeof EXC.m_msgbuf)
155 len =
sizeof EXC.m_msgbuf - 1;
156 EXC.m_msgbuf[len] =
'\0';
166 EXC.m_msgbuf[0] =
'\0';
178 size_t n = fread(ptr, size, 1, stream);
189 size_t n = fwrite(ptr, size, 1, stream);
198 #define xxfwriteCS(f, s) xxfwrite(f, CUS s, sizeof (s) - 1)
204 int lr = (500 + 1164 * (y - 16) + 1596 * (cr - 128) ) /1000;
205 int lg = (500 + 1164 * (y - 16) - 813 * (cr - 128) - 391 * (cb - 128)) / 1000;
206 int lb = (500 + 1164 * (y - 16) + 2018 * (cb - 128)) / 1000;
208 *r = (lr < 0)? 0: (lr > 255)? 255: (
eu8)lr;
209 *g = (lg < 0)? 0: (lg > 255)? 255: (
eu8)lg;
210 *b = (lb < 0)? 0: (lb > 255)? 255: (
eu8)lb;
219 *y = ( 257 * r + 504 * g + 98 * b + 16500) / 1000;
220 *cr = ( 439 * r - 368 * g - 71 * b + 128500) / 1000;
221 *cb = (-148 * r - 291 * g + 439 * b + 128500) / 1000;
251 if (fseek(stream, offset, SEEK_SET) < 0)
255 static void xmkdir(
const char * path,
int mode)
257 if (mkdir(path, mode) < 0)
266 if (stat(
filename, &st) == 0 && S_ISREG(st.st_mode))
275 if (stat(
filename, &st) == 0 && S_ISDIR(st.st_mode))
304 ptr[0] = value>>24; ptr[1] = value>>16; ptr[2] = value>>8; ptr[3] =value;
308 static void set_uint16_be(
eu8 * ptr,
eu32 value) {
309 ptr[0] = value>>8; ptr[1] = value; }
311 static void set_uint32_le(
eu8 * ptr,
eu32 value) {
312 ptr[3] = value>>24; ptr[2] = value>>16; ptr[1] = value>>8; ptr[0] =value; }
317 ptr[1] = value>>8; ptr[0] =value;
328 eu8 yuvpalette[16][3],
eu8 rgbpalette[16][3])
333 if (memcmp(
xxfread(fh, buf, 12),
"DVDVIDEO-VTS", 12) != 0)
335 "(IFO) file %s not of type DVDVIDEO-VTS.",
filename);
339 xfseek0(fh, offset * 0x800 + 12);
345 for (
int i = 0; i < 16; i++)
350 eu8 *
p = buf + i * 4 + 1;
351 yuvpalette[i][0] =
p[0]; yuvpalette[i][1] =
p[1]; yuvpalette[i][2] =
p[2];
353 rgbpalette[i][0] = r; rgbpalette[i][1] = g; rgbpalette[i][2] = b;
366 rgbpalpart[0] = r, rgbpalpart[1] = g, rgbpalpart[2] = b;
367 rgb2yuv(r, g, b, &y, &cr, &cb);
368 yuvpalpart[0] = y, yuvpalpart[1] = cr, yuvpalpart[2] = cb;
373 eu8 yuvpalette[16][3],
eu8 rgbpalette[16][3])
377 if (strlen(
arg) != 20 ||
arg[6] !=
',' ||
arg[13] !=
',')
380 for (i = 0; i < 16; i++)
381 set2palettes(i * 0x111111, yuvpalette[i], rgbpalette[i]);
383 sscanf(
arg,
"%x", &i);
385 sscanf(
arg + 7,
"%x", &i);
387 sscanf(
arg + 14,
"%x", &i);
408 memcpy(self->m_paletteChunk,
"\0\0\0\x0c" "PLTE", 8);
409 memcpy(self->m_paletteChunk + 8, palette, 12);
411 self->m_crc =
crc32(self->m_crc, self->m_paletteChunk + 4, 16);
416 const char *
filename,
int height,
int width)
419 self->m_width = width;
420 self->m_hleft = height;
423 xxfwrite(self->m_fh,
CUS "\x89PNG\r\n\x1a\n" "\0\0\0\x0d", 12);
425 memcpy(self->m_buffer,
"IHDR", 4);
428 memcpy(self->m_buffer + 12,
"\004\003\0\0\0", 5);
432 xxfwrite(self->m_fh, self->m_buffer, 21);
434 xxfwrite(self->m_fh, self->m_paletteChunk,
sizeof self->m_paletteChunk);
437 xxfwriteCS(self->m_fh,
"\0\0\0\001" "tRNS" "\0" "\x40\xe6\xd8\x66");
439 xxfwrite(self->m_fh,
CUS "\0\0\0\0IDAT" "\x78\001", 10);
440 self->m_buffer[0] =
'\0';
441 self->m_buffer[5] =
'\0';
443 self->m_chunkLen = 2;
444 self->m_crc =
crc32(0,
CUS "IDAT" "\x78\001", 6);
450 int l =
self->m_bufPos - 5;
451 self->m_chunkLen +=
self->m_bufPos;
454 xxfwrite(self->m_fh, self->m_buffer, self->m_bufPos);
455 self->m_crc =
crc32(self->m_crc, self->m_buffer, self->m_bufPos);
456 self->m_adler = adler32(self->m_adler, self->m_buffer + 5, self->m_bufPos - 5);
457 self->m_buffer[0] =
'\0';
463 if (self->m_nibble < 0)
464 self->m_nibble = (
pixel << 4);
467 self->m_buffer[
self->m_bufPos++] =
self->m_nibble |
pixel;
469 if (self->m_bufPos ==
sizeof self->m_buffer - 4)
476 if (self->m_nibble >= 0)
478 self->m_buffer[
self->m_bufPos++] =
self->m_nibble;
484 self->m_buffer[
self->m_bufPos++] =
'\0';
490 self->m_buffer[0] = 0x01;
501 self->m_crc =
crc32(self->m_crc, adlerbuf, 4);
503 xxfwriteCS(self->m_fh,
"\0\0\0\0" "IEND" "\xae\x42\x60\x82");
514 eu8 rv = *nibble & 0x0f;
519 *nibble = *(*data)++;
535 if ((bits & 0xc) != 0)
538 number = (bits & 0xc) >> 2;
539 cindex = bits & 0x3; }
542 bits = (bits << 4) |
getnibble(data, &nibble);
543 if ((bits & 0xf0) != 0)
546 number = (bits & 0x3c) >> 2;
551 bits = (bits << 4) |
getnibble(data, &nibble);
552 if ((bits & 0xfc0) != 0)
555 number = (bits & 0xfc) >> 2;
561 bits = (bits << 4) |
getnibble(data, &nibble);
562 number = (bits & 0x3fc) >> 2;
572 for (; number > 0 && col < width; number--, col++)
586 eu8 * top_ibuf = data + top;
587 eu8 * bot_ibuf = data + bot;
592 for (
int i = 0; i < h / 2; i++)
602 static char *
pts2ts(
fu32 pts,
char * rvbuf,
bool is_png_filename)
604 int h = pts / (3600 * 90000);
605 int m = pts / (60 * 90000) % 60;
606 int s = pts / 90000 % 60;
607 int hs = (pts + 450) / 900 % 100;
610 sprintf(rvbuf,
"%02d+%02d+%02d.%02d.png", h, m, s, hs);
612 sprintf(rvbuf,
"%02d:%02d:%02d.%02d", h, m, s, hs);
645 bool createpics,
int delay_ms,
646 char * fnbuf,
char * fnbuf_fp)
651 time_t
volatile pt = 0;
652 bool volatile last =
false;
655 if (memcmp(
xxfread(sfh, data, 2),
"SP", 2) != 0)
665 eu32 volatile lastendpts = 0;
678 eu8 * ctrl = data + pack - 4;
679 xxfread(sfh, ctrl, size - pack);
683 if (memcmp(
xxfread(sfh, (
unsigned char *)junk, 2),
699 eu8 this_palette[4][3];
713 int colcon_length = 0;
724 for (
int n = 0; n < 4; n++) {
725 int i = (xpalette >> (n * 4) & 0x0f);
726 this_palette[n][0] = palette[i][0];
727 this_palette[n][1] = palette[i][1];
728 this_palette[n][2] = palette[i][2];
736 x1 = (
p[0] << 4) + (
p[1] >> 4);
737 x2 = ((
p[1] & 0xf) << 8) +
p[2];
738 y1 = (
p[3] << 4) + (
p[4] >> 4);
739 y2 = ((
p[4] & 0xf) << 8) +
p[5];
763 tmppts += delay_ms * 90;
769 eu32 endpts = tmppts + end * 1000;
771 if (tmppts <= lastendpts)
773 if (lastendpts < endpts)
775 pts = lastendpts + 2 * (1000 / 30) * 90;
778 tmppts += delay_ms * 90;
779 printf(
"Fixed overlapping subtitle!\n");
783 printf(
"Dropping overlapping subtitle\n");
790 pts2ts(pts, fnbuf_fp,
true);
791 pts2ts(tmppts, sptsstr + 1,
false);
798 size_t len =
write(1, sptsstr, strlen(sptsstr));
799 if (len != strlen(sptsstr))
800 printf(
"ERROR: write failed");
803 fprintf(ofh,
" <spu start=\"%s\" end=\"%s\" image=\"%s\""
804 " xoffset=\"%d\" yoffset=\"%d\" />\n",
805 sptsstr + 1,
pts2ts(endpts, junk,
false),
810 bot_field - 4, fnbuf, this_palette);
818 size_t len =
write(1, sptsstr, strlen(sptsstr));
819 if (len != strlen(sptsstr))
820 printf(
"ERROR: write failed");
828 static void usage(
const char * pn)
831 "Usage: %s [--delay ms] <supfile> <ifofile>|<palette>" "\n"
835 "\t ProjectX decoded recording.sup and recording.sup.IFO" "\n"
837 "\t\t$ pxsup2dast recording.sup*" "\n"
839 "\t Having test.sup and map.ifo" "\n"
841 "\t\t$ pxsup2dast test.sup map.ifo" "\n"
843 "\t No .IFO, so giving 3 colors (rgb components in hex)" "\n"
845 "\t\t$ pxsup2dast titles.sup ff0000,00ff00,0000ff" "\n"
847 "\t Trying to fix sync in recording" "\n"
849 "\t\t$ pxsup2dast --delay 750 recording.sup*" "\n"
860 for (
int i = 0; i < 16; i++)
865 if (fscanf(fh,
"%02x%02x%02x\n", &r, &g, &b) != 3 ||
866 r != palette[i][0] || g != palette[i][1] || b != palette[i][2])
876 int sup2dast(
const char *supfile,
const char *ifofile ,
int delay_ms)
881 eu8 yuvpalette[16][3];
882 eu8 rgbpalette[16][3];
886 bool createpics =
false;
888 memset(yuvpalette, 0,
sizeof(yuvpalette));
889 memset(rgbpalette, 0,
sizeof(rgbpalette));
891 if (
write(1,
"\n", 1) != 1)
892 printf(
"ERROR: write failed");
894 if (
sizeof (
char) != 1 ||
sizeof (
int) < 2)
897 if ((
p = strrchr(supfile,
'.')) !=
NULL)
903 "not manage filenames longer than 950 characters.");
904 memcpy(fnbuf, supfile, i);
917 strcpy(
p,
"palette.ycrcb");
921 printf(
"Found palette.yuv having our palette information...\n");
922 printf(
"...Skipping image files, Writing spumux.tmp.\n");
927 printf(
"Writing image files and spumux.tmp.\n");
930 strcpy(
p,
"spumux.tmp");
934 pxsubtitle(supfile, fh, rgbpalette, createpics, delay_ms, fnbuf,
p);
936 if (
write(1,
"\n", 1) != 1)
937 printf(
"ERROR: write failed");
939 xxfwriteCS(fh,
" </stream>\n</subpictures>\n");
944 printf(
"Writing palette.ycrcb and palette.rgb.\n");
945 strcpy(
p,
"palette.ycrcb");
947 strcpy(
p,
"palette.rgb");
949 for (i = 0; i < 16; i++)
951 fprintf(yuvfh,
"%02x%02x%02x\n",
952 yuvpalette[i][0], yuvpalette[i][1], yuvpalette[i][2]);
953 fprintf(rgbfh,
"%02x%02x%02x\n",
954 rgbpalette[i][0], rgbpalette[i][1], rgbpalette[i][2]);
962 printf(
"Renaming spumux.tmp to spumux.xml.\n");
963 strcpy(
p,
"spumux.tmp");
965 memcpy(buf, fnbuf, i);
966 strcpy(&buf[i - 3],
"xml");
971 printf(
"Output files reside in %s\n", fnbuf);
972 printf(
"All done.\n");
978 printf(
"ERROR: write failed");
980 if (
write(2,
"\n", 1) != 1)
981 printf(
"ERROR: write failed");