ref: 7996b424b3ec858adcf6507c424bc5e06773e3fa
dir: /matroska.c/
#include <u.h>
#include <libc.h>
#include <bio.h>
#include "common.h"
#include "ebml.h"
#include "packet.h"
typedef struct Ebml Ebml;
struct Ebml {
Packetctx;
packet_f fpacket;
vlong timestampscale;
vlong perframe;
int tracknum;
int tracktype;
vlong codecdelay;
char lang[8];
};
static Packet packets[256];
#define getnumber(expid, dest) \
if(el.id == expid){ \
vlong x; \
if(ebmlrawuint(f, sz, &x) < 0) \
return -1; \
dest = x; \
left -= sz; \
continue; \
}
#define getsigned(expid, dest) \
if(el.id == expid){ \
vlong x; \
if(ebmlrawsint(f, sz, &x) < 0) \
return -1; \
dest = x; \
left -= sz; \
continue; \
}
#define getfloat(expid, dest) \
if(el.id == expid){ \
double x; \
if(ebmlfloat(f, sz, &x) < 0) \
return -1; \
dest = x; \
left -= sz; \
continue; \
}
#define getstring(expid, dest) \
if(el.id == expid){ \
n = min(sizeof(dest)-1, sz); \
if(Bread(f, dest, n) != n) \
return -1; \
dest[n] = 0; \
if(n != sz) \
Bseek(f, sz-n, 1); \
left -= sz; \
continue; \
}
#define getbytes(expid, dest) \
if(el.id == expid){ \
dest.data = malloc(sz); \
if(Bread(f, dest.data, sz) != sz) \
return -1; \
dest.sz = sz; \
left -= sz; \
continue; \
}
static char *
format(Ebml *e)
{
static char t[16];
char *s;
int n;
if(e->tracktype == Etracksubtitles){
if(strcmp(e->codec.name, "S_TEXT/UTF8") == 0)
return "srt";
}else if(e->tracktype == Etrackaudio){
if(strcmp(e->codec.name, "A_MPEG/L3") == 0)
return "mp3";
}else if(e->tracktype == Etrackvideo){
if(strcmp(e->codec.name, "V_MPEG4/ISO/AVC") == 0)
return "h264";
}
n = snprint(t, sizeof(t), "%s", e->codec.name+2);
for(n -= 1; n >= 0; n--)
t[n] = tolower(t[n]);
if((s = strchr(t, '/')) != nil)
*s = 0;
return t;
}
static int
asispacket(Biobuf *out, Packetctx *, Packet *p, int np, uvlong)
{
int i;
for(i = 0; i < np; i++, p++)
Bwrite(out, p->data, p->sz);
return 0;
}
static int
initctx(Ebml *e, double duration)
{
char *c;
e->duration = duration;
e->duration *= e->timestampscale;
c = format(e);
if(e->tracktype == Etrackvideo){
e->fpacket = ivfpacket;
if(strcmp(c, "vp9") == 0)
e->fmt = FmtVp09;
else if(strcmp(c, "vp8") == 0)
e->fmt = FmtVp08;
else if(strcmp(c, "h264") == 0)
e->fmt = FmtAvc1;
else if(strcmp(c, "theora") == 0){
e->fmt = FmtTheora;
e->fpacket = oggpacket;
}else
goto err;
return 0;
}else if(e->tracktype == Etrackaudio){
if(strcmp(c, "vorbis") == 0){
e->fmt = FmtVorbis;
e->fpacket = oggpacket;
}else if(strcmp(c, "opus") == 0){
e->fmt = FmtOpus;
e->fpacket = oggpacket;
}else if(strcmp(c, "mp3") == 0){
e->fmt = FmtMp3;
e->fpacket = asispacket;
}else if(strcmp(c, "aac") == 0){
e->fmt = FmtMp4a;
e->fpacket = aacpacket;
}else
goto err;
return 0;
}else if(e->tracktype == Etracksubtitles){
if(strcmp(c, "srt") == 0){
e->fmt = FmtSrt;
e->fpacket = srtpacket;
}else
goto err;
return 0;
}
err:
werrstr("don't know how to remux %s (track type %d)", e->codec.name, e->tracktype);
return -1;
}
static void
trackinfo(Biobuf *o, Ebml *e)
{
char *t;
int rate;
rate = e->audio.outsamplerate;
if(rate == 0)
rate = e->audio.samplerate;
t = ebmltracktype(e->tracktype);
Bprint(o, "%d\t%s\t%s\t", e->tracknum, t, format(e));
if(e->tracktype == Etrackvideo)
Bprint(o, "%d\t%d", e->video.width, e->video.height);
else if(e->tracktype == Etrackaudio)
Bprint(o, "%d\t%d", e->audio.channels, rate);
else if(e->tracktype == Etracksubtitles)
Bprint(o, "%s", e->lang);
else
Bprint(o, "???");
Bprint(o, "\n");
}
int
matroskarun(Biobuf *f)
{
vlong left, n, sz, nsz, bufsz, track, off, packetsz, x, endtracks;
int isebml, npackets, i, skipdata, lacing;
uvlong ts, timestamp, timestampscale;
double duration;
s16int timecode;
uchar *buf, *b;
Ebml e, te;
Elspec el;
buf = nil;
bufsz = 0;
track = -1;
timestamp = 0;
left = (1ULL<<63)-1;
endtracks = -1;
te.tracknum = -1;
timestampscale = 1000000;
e.tracknum = -1;
e.comp.algo = -1;
duration = 0;
skipdata = trackdump == Nodump;
el.id = 0;
for(isebml = 0; left != 0;){
if(el.id == EBlockDuration)
te.blockdur *= timestampscale;
if(endtracks > 0 && left < endtracks && skipdata){
/* early exit */
left = 0;
break;
}
off = Boffset(f);
n = ebmlel(f, left, &el, &sz);
if(n < 0){
werrstr("invalid ebml: %r at %#llx (size %lld)", off, sz);
goto err;
}
if(el.type < 0)
continue;
if(n == 0){ /* eof */
left = 0;
break;
}
left -= n;
if(el.id == EEBML){ /* EBML comes first */
if(isebml != 0){
werrstr("double EBML?");
goto err;
}
isebml++;
}else if(el.id == ESegment){
if(sz > 0)
left = sz;
if(isebml != 1){
werrstr("invalid ebml");
goto err;
}
isebml++; /* make sure we don't see more segments */
continue; /* go in */
}else if(el.id == EInfo){ /* segment info */
continue;
}else if(el.id == ETracks){
endtracks = left - sz; /* to skip early in case track dump not required */
continue;
}else if(el.id == ECluster){
if(!skipdata) /* skip it entirely if no dump required */
continue;
}else if(el.id == ETrackEntry){ /* track entry */
if(e.tracknum > 0){
if(trackdump == Nodump)
trackinfo(&out, &e);
else if(trackdump == Dumpvideo && e.tracktype == Etrackvideo)
trackdump = e.tracknum;
else if(trackdump == Dumpaudio && e.tracktype == Etrackaudio)
trackdump = e.tracknum;
}
if(e.tracknum == trackdump)
memmove(&te, &e, sizeof(e));
memset(&e, 0, sizeof(e));
e.comp.algo = -1;
e.timestampscale = timestampscale;
continue;
}else if(el.id == EVideo){
continue;
}else if(el.id == EAudio){
e.audio.samplerate = 8000;
e.audio.channels = 1;
continue;
}else if(el.id == EContentEncodings || el.id == EContentEncoding || el.id == EContentCompression){
continue;
}else if(el.id == EBlockGroup && !skipdata){
continue;
}else if((el.id == ESimpleBlock || el.id == EBlock) && !skipdata){
if(te.tracknum == -1)
memmove(&te, &e, sizeof(e));
n = ebmluint(f, sz, &track);
if(n < 0){
werrstr("block: %r");
goto err;
}
left -= n;
sz -= n;
if(trackdump == Dumpvideo && e.tracktype == Etrackvideo)
trackdump = te.tracknum;
else if(trackdump == Dumpaudio && e.tracktype == Etrackaudio)
trackdump = te.tracknum;
if(track == trackdump && track == te.tracknum){
if(te.fpacket == nil && initctx(&te, duration) != 0){
werrstr("packet: %r");
goto err;
}
if(bufsz < sz){
buf = realloc(buf, sz);
bufsz = sz;
}
if(Bread(f, buf, sz) != sz){
werrstr("short read");
goto err;
}
left -= sz;
sz -= 3;
timecode = buf[0]<<8 | buf[1];
lacing = (buf[2] >> 1) & 3;
npackets = buf[3]+1;
if(te.comp.algo == 3){ /* header stripping, need to put bytes back */
if(te.comp.sz == 0)
te.comp.algo = -1;
else{
nsz = sz + npackets*te.comp.sz;
if(bufsz < nsz){
buf = realloc(buf, nsz);
bufsz = nsz;
}
}
}else if(te.comp.algo >= 0){
werrstr("unsupported: comp algo %d, please report a bug", te.comp.algo);
goto err;
}
b = buf+3;
switch(lacing){ /* lacing */
case 0: /* none */
packets[0].data = b;
packets[0].sz = sz;
npackets = 1;
break;
case 1: /* xiph */
sz--;
off = 4;
for(i = 0; i < npackets-1; i++){
packets[i].sz = 0;
do{
packets[i].sz += buf[off];
sz--;
}while(buf[off++] == 0xff);
}
for(i = 0; i < npackets-1; i++){
packets[i].data = buf+off;
off += packets[i].sz;
sz -= packets[i].sz;
}
packets[i].data = buf+off;
packets[i].sz = sz;
break;
case 2: /* fixed-size */
sz--;
if((sz % npackets) != 0){
werrstr("invalid number of frames with fixed-size lacing");
goto err;
}
packets[0].sz = sz / npackets;
for(i = 0; i < npackets; i++){
packets[i].data = buf+4 + i*packets[0].sz;
packets[i].sz = packets[0].sz;
sz -= packets[0].sz;
}
break;
case 3: /* ebml */
sz--;
packetsz = 0;
off = 4;
for(i = 0; i < npackets-1; i++){
n = (i == 0 ? ebmluintb : ebmlsintb)(buf+off, sz, &x);
if(n < 0)
goto err;
packetsz += x;
if(packetsz < 0){
werrstr("invalid frame size %lld", packetsz);
goto err;
}
packets[i].sz = packetsz;
off += n;
sz -= n;
}
for(i = 0; i < npackets-1; i++){
if(packets[i].sz > sz){
werrstr("frame %d/%d out of bounds: %d > %lld", i, npackets-1, packets[i].sz, sz);
goto err;
}
packets[i].data = buf+off;
off += packets[i].sz;
sz -= packets[i].sz;
}
packets[i].data = buf+off;
packets[i].sz = sz;
break;
}
if(te.comp.algo == 3){ /* prepend stripped data to each packet */
b = buf+bufsz;
for(i = npackets-1; i >= 0; i--){
b -= packets[i].sz;
memmove(b, packets[i].data, packets[i].sz);
b -= te.comp.sz;
memmove(b, te.comp.data, te.comp.sz);
packets[i].data = b;
packets[i].sz += te.comp.sz;
}
}
/* ns timestamp */
ts = (timestamp + timecode) * timestampscale - te.codec.delay;
if(te.fpacket(&out, &te, packets, npackets, ts) != 0)
goto err;
continue;
}
}else{
getnumber(ETimestampScale, timestampscale)
else
getfloat(ESamplingFrequency, e.audio.samplerate)
else
getfloat(EOutputSamplingFrequency, e.audio.outsamplerate)
else
getnumber(EChannels, e.audio.channels)
else
getnumber(EBitDepth, e.audio.bps)
else
getnumber(ETrackNumber, e.tracknum)
else
getnumber(ETrackType, e.tracktype)
else
getstring(ECodecID, e.codec.name)
else
getbytes(ECodecPrivate, e.codec.priv)
else
getnumber(ECodecDelay, e.codec.delay)
else
getnumber(EContentCompAlgo, e.comp.algo)
else
getbytes(EContentCompSettings, e.comp)
else
getnumber(EPixelWidth, e.video.width)
else
getnumber(EPixelHeight, e.video.height)
else
getnumber(ETimestamp, timestamp)
else
getnumber(EDefaultDuration, e.perframe)
else
getnumber(ESeekPreRoll, e.seekpreroll)
else
getfloat(EDuration, duration)
else
getnumber(ETrackUID, e.trackuid)
else
getsigned(EDiscardPadding, te.discardpad)
else
getnumber(EBlockDuration, te.blockdur)
else
getstring(ELanguage, e.lang)
}
if(sz > 0){
if(Bseek(f, sz, 1) < 0)
return -1;
left -= sz;
}
}
if(isebml == 2 && left == 0){
if(e.tracknum > 0){
if(trackdump == Nodump)
trackinfo(&out, &e);
}
return 0;
}
err:
return -1;
}