path: root/nihav-game/src/demuxers/vx.rs

use nihav_core::frame::*;
use nihav_core::demuxers::*;
use std::io::SeekFrom;

#[cfg(feature="decoder_vx")]
use super::super::codecs::vx::VXVideoParser;

const AUDIO_EXTRADATA_LEN: usize = 3124;

struct VXDemuxer<'a> {
    src:        &'a mut ByteReader<'a>,
    vid_id:     usize,
    aud_id:     usize,
    fps:        u32,
    video_pos:  u64,
    vno:        u64,
    num_vfrm:   u64,
    num_aud:    usize,
    ano:        u64,
    num_afrm:   u64,
    seektab:    Vec<(u32, u32)>,
    #[cfg(feature="decoder_vx")]
    parser:     Option<VXVideoParser>,
    parse:      bool,
    apkt:       Option<NAPacket>,
}

impl<'a> DemuxCore<'a> for VXDemuxer<'a> {
    #[allow(unused_variables)]
    #[allow(clippy::cast_lossless)]
    fn open(&mut self, strmgr: &mut StreamManager, _seek_index: &mut SeekIndex) -> DemuxerResult<()> {
        let src = &mut self.src;

        let mut magic = [0u8; 4];
                                          src.read_buf(&mut magic)?;
        validate!(&magic == b"VXDS");
        let nframes                     = src.read_u32le()? as usize;
        let width                       = src.read_u32le()? as usize;
        let height                      = src.read_u32le()? as usize;
        let fps                         = src.read_u32le()?;
        validate!(fps > (1 << 16) && fps < (100 << 16));
        let quant                       = src.read_u32le()?;
        validate!(quant > 0 && quant < 256);
        let srate                       = src.read_u32le()?;
        let num_audio_tracks            = src.read_u32le()? as usize;
        let _max_frame_size             = src.read_u32le()? as usize;
        let audio_off                   = src.read_u32le()? as u64;
        validate!(audio_off == 0 || audio_off >= 0x30);
        let vinfo_off                   = src.read_u32le()? as u64;
        validate!(vinfo_off == 0 || vinfo_off >= 0x30);
        let num_keypos                  = src.read_u32le()? as usize;

        let vhdr = NAVideoInfo::new(width, height, false, YUV420_FORMAT);
        let vci = NACodecTypeInfo::Video(vhdr);
        let edata = vec![quant as u8, 0, 0, 0];
        let vinfo = NACodecInfo::new("vxvideo", vci, Some(edata));
        self.vid_id = strmgr.add_stream(NAStream::new(StreamType::Video, 0, vinfo, 65536, fps, nframes as u64)).unwrap();

        if num_audio_tracks != 0 && self.parse {
            validate!(audio_off + ((num_audio_tracks * AUDIO_EXTRADATA_LEN) as u64) == vinfo_off);
            src.seek(SeekFrom::Start(audio_off))?;
            let mut edata = vec![0u8; AUDIO_EXTRADATA_LEN * num_audio_tracks];
                                          src.read_buf(edata.as_mut_slice())?;
            let ahdr = NAAudioInfo::new(srate, num_audio_tracks as u8, SND_S16P_FORMAT, 1);
            let ainfo = NACodecInfo::new("vxaudio", NACodecTypeInfo::Audio(ahdr), Some(edata));
            self.aud_id = strmgr.add_stream(NAStream::new(StreamType::Audio, 1, ainfo, 128, srate, 0)).unwrap();
            self.num_afrm = nframes as u64;
            self.ano = 0;
            self.num_aud = num_audio_tracks;
        } else {
            self.aud_id = self.vid_id + 1;
        }

        if num_keypos > 0 {
            src.seek(SeekFrom::Start(vinfo_off))?;
            let mut last_frame  = src.read_u32le()?;
            let mut last_offset = src.read_u32le()?;
            validate!(last_frame == 0 && last_offset == 0x30);
            self.seektab.clear();
            self.seektab.push((last_frame, last_offset));
            for _ in 1..num_keypos {
                let frameno             = src.read_u32le()?;
                let offset              = src.read_u32le()?;
                validate!(frameno > last_frame && offset > last_offset);
                self.seektab.push((frameno, offset));
                last_frame = frameno;
                last_offset = offset;
            }
        }

        #[cfg(not(feature="decoder_vx"))]
        if self.parse == true {
            println!("Frame parsing is not enabled in this build");
        }

        #[cfg(feature="decoder_vx")]
        if self.parse {
            self.parser = Some(VXVideoParser::new(width, height));
        }

        self.fps = fps;
        self.video_pos = 0x30;
        self.vno = 0;
        self.num_vfrm = nframes as u64;
        Ok(())
    }

    #[allow(dead_code)]
    fn get_frame(&mut self, strmgr: &mut StreamManager) -> DemuxerResult<NAPacket> {
        if self.apkt.is_some() {
            let mut ret = None;
            std::mem::swap(&mut self.apkt, &mut ret);
            return Ok(ret.unwrap());
        }
        if self.vno >= self.num_vfrm { return Err(DemuxerError::EOF); }
        self.src.seek(SeekFrom::Start(self.video_pos))?;
        let stream = strmgr.get_stream(self.vid_id);
        if stream.is_none() { return Err(DemuxerError::InvalidData); }
        let stream = stream.unwrap();
        let ts = stream.make_ts(Some(self.vno), None, None);
        let size                    = self.src.read_u16le()? as usize;
        validate!(size > 2);
        let num_achunks             = self.src.read_u16le()?;
        let fsize = size - 2;
        let mut buf = vec![0; fsize + 4];
        write_u32le(&mut buf, (fsize * 8) as u32)?;
                                      self.src.read_buf(&mut buf[4..])?;
        #[cfg(feature="decoder_vx")]
        if self.num_aud > 0 {
            if let Some(ref mut parser) = self.parser {
                if let Ok(nbits) = parser.parse_frame(&buf[4..]) {
                    write_u32le(&mut buf, nbits as u32)?;
                    let vpart_size = 4 + ((nbits + 15) & !15) / 8;

                    if let Some(astream) = strmgr.get_stream(self.aud_id) {
                        let mut audio = vec![0; buf.len() - vpart_size + 2];
                        write_u16le(&mut audio, num_achunks)?;
                        audio[2..].copy_from_slice(&buf[vpart_size..]);
                        let ts_audio = astream.make_ts(Some(self.ano), None, None);
                        self.apkt = Some(NAPacket::new(astream, ts_audio, true, audio));
                        self.ano += u64::from(num_achunks);
                    }

                    buf.truncate(vpart_size);
                } else {
                    println!("failed to parse video frame size, corrupted frame?");
                }
            }
        }
        let keyframe = self.vno == 0 ||
                self.seektab.binary_search_by_key(&self.vno, |&(frm, _)| u64::from(frm)).is_ok();
        let pkt = NAPacket::new(stream, ts, keyframe, buf);
        self.video_pos = self.src.tell();
        self.vno += 1;
        Ok(pkt)
    }

    fn seek(&mut self, time: NATimePoint, _seek_index: &SeekIndex) -> DemuxerResult<()> {
        if self.seektab.len() < 2 {
            Err(DemuxerError::NotPossible)
        } else {
            let fno = match time {
                    NATimePoint::Milliseconds(ms) => {
                        NATimeInfo::time_to_ts(ms, 1000, 65536, self.fps)
                    },
                    NATimePoint::PTS(ts) => ts,
                    NATimePoint::None => return Err(DemuxerError::NotPossible)
                };
            if fno >= self.num_vfrm {
                return Err(DemuxerError::SeekError);
            }
            let idx = match self.seektab.binary_search_by_key(&fno, |&(frm, _)| u64::from(frm)) {
                    Ok(val) => val,
                    Err(val) => val - 1,
                };
            self.vno       = u64::from(self.seektab[idx].0);
            self.video_pos = u64::from(self.seektab[idx].1);
            Ok(())
        }
    }

    fn get_duration(&self) -> u64 { 0 }
}

const PARSE_FRAMES_OPT: &str = "parse_frames";
const DEMUXER_OPTS: &[NAOptionDefinition] = &[
    NAOptionDefinition {
        name: PARSE_FRAMES_OPT,
        description: "parse frames to split them into video and audio parts",
        opt_type: NAOptionDefinitionType::Bool },
];

impl<'a> NAOptionHandler for VXDemuxer<'a> {
    fn get_supported_options(&self) -> &[NAOptionDefinition] { DEMUXER_OPTS }
    fn set_options(&mut self, options: &[NAOption]) {
        for option in options.iter() {
            for opt_def in DEMUXER_OPTS.iter() {
                if opt_def.check(option).is_ok() {
                    if let (PARSE_FRAMES_OPT, NAValue::Bool(ref bval)) = (option.name, &option.value) {
                        self.parse = *bval;
                    }
                }
            }
        }
    }
    fn query_option_value(&self, name: &str) -> Option<NAValue> {
        match name {
            PARSE_FRAMES_OPT => Some(NAValue::Bool(self.parse)),
            _ => None,
        }
    }
}

impl<'a> VXDemuxer<'a> {
    fn new(io: &'a mut ByteReader<'a>) -> Self {
        Self {
            vid_id:     0,
            aud_id:     0,
            fps:        0,
            video_pos:  0,
            num_aud:    0,
            vno:        0,
            ano:        0,
            num_vfrm:   0,
            num_afrm:   0,
            src:        io,
            seektab:    Vec::new(),
            #[cfg(feature="decoder_vx")]
            parser:     None,
            parse:      true,
            apkt:       None,
        }
    }
}

pub struct VXDemuxerCreator { }

impl DemuxerCreator for VXDemuxerCreator {
    fn new_demuxer<'a>(&self, br: &'a mut ByteReader<'a>) -> Box<dyn DemuxCore<'a> + 'a> {
        Box::new(VXDemuxer::new(br))
    }
    fn get_name(&self) -> &'static str { "vx" }
}

#[cfg(test)]
mod test {
    use super::*;
    use std::fs::File;

    #[test]
    fn test_vx_demux() {
        // sample from some game
        let mut file = File::open("assets/Game/bioware.vx").unwrap();
        //let mut file = File::open("assets/Game/BS_01_Intro.vx").unwrap();
        //let mut file = File::open("assets/Game/sega.vx").unwrap();
        let mut fr = FileReader::new_read(&mut file);
        let mut br = ByteReader::new(&mut fr);
        let mut dmx = VXDemuxer::new(&mut br);
        let mut sm = StreamManager::new();
        let mut si = SeekIndex::new();
        dmx.open(&mut sm, &mut si).unwrap();
        loop {
            let pktres = dmx.get_frame(&mut sm);
            if let Err(e) = pktres {
                if (e as i32) == (DemuxerError::EOF as i32) { break; }
                panic!("error");
            }
            let pkt = pktres.unwrap();
            println!("Got {}", pkt);
        }
    }
}