-- -*- haskell -*-
{-# LANGUAGE ForeignFunctionInterface, ScopedTypeVariables #-}

{- |Module 'Media.FFMpeg.Format' implements bindings to AVFormat library

   (c) 2009 Vasyl Pasternak
 -}

module Media.FFMpeg.Format 
    (
     registerAll
    ,withFFMpeg
    ,module Media.FFMpeg.Internals
    ) where

import Foreign
import Foreign.C.String
import Media.FFMpeg.Internals
import Text.Printf

#include "libavformat/avformat.h"

-- | import defines
foreign import ccall "av_register_all" registerAll :: IO ()


withFFMpeg :: IO a -> IO a
withFFMpeg clos = registerAll >> clos