module Codec.FFmpeg.Internal.Debug where
import Codec.FFmpeg.Types
import Foreign.C.String
import Foreign.C.Types
import Foreign.Storable
foreign import ccall "av_dump_format"
av_dump_format :: AVFormatContext -> CInt -> CString -> CInt -> IO ()
debugCodec :: AVCodec -> IO ()
debugCodec cod = do
longName <- getLongName cod >>= peekCString
shortName <- getName cod >>= peekCString
cid <- getCodecID cod
putStrLn $ "Codec short_name = " ++ show shortName
putStrLn $ "Codec long_name = " ++ show longName
putStrLn $ "Codec ID = " ++ show cid
debugCodecContext :: AVCodecContext -> IO()
debugCodecContext (AVCodecContext p) = do
putStrLn "*** AVCodecContext dump:"
((\hsc_ptr -> peekByteOff hsc_ptr 948)) p >>= si "profile"
((\hsc_ptr -> peekByteOff hsc_ptr 112)) p >>= si "flags"
((\hsc_ptr -> peekByteOff hsc_ptr 116)) p >>= si "flags2"
((\hsc_ptr -> peekByteOff hsc_ptr 164)) p >>= si "gop_size"
((\hsc_ptr -> peekByteOff hsc_ptr 96)) p >>= si "bit_rate"
((\hsc_ptr -> peekByteOff hsc_ptr 192)) p >>= si "max_b_frames"
((\hsc_ptr -> peekByteOff hsc_ptr 204)) p >>= si "b_frame_strategy"
((\hsc_ptr -> peekByteOff hsc_ptr 564)) p >>= si "qmin"
((\hsc_ptr -> peekByteOff hsc_ptr 568)) p >>= si "qmax"
((\hsc_ptr -> peekByteOff hsc_ptr 272)) p >>= si "me_cmp"
((\hsc_ptr -> peekByteOff hsc_ptr 316)) p >>= si "me_range"
putStrLn ""
where si msg = putStrLn . ((msg++" = ")++) . show :: CInt -> IO ()