soxlib 0.0.1.2 → 0.0.2

raw patch · 4 files changed

+57/−4 lines, 4 files

Files

• LICENSE +1/−1
• soxlib.cabal +2/−2
• src/Sound/SoxLib.hs +41/−0
• src/Sound/SoxLib/FFI.hsc +13/−1

@@ -1,4 +1,4 @@-Copyright (c) 2012, Henning Thielemann+Copyright (c) 2012-2015, Henning Thielemann  All rights reserved. 

@@ -1,5 +1,5 @@ Name:             soxlib-Version:          0.0.1.2+Version:          0.0.2 License:          BSD3 License-File:     LICENSE Author:           Henning Thielemann <haskell@henning-thielemann.de>@@ -22,7 +22,7 @@   src/Sound/SoxLib/Template.h  Source-Repository this-  Tag:         0.0.1.2+  Tag:         0.0.2   Type:        darcs   Location:    http://code.haskell.org/~thielema/soxlib/ 

@@ -13,6 +13,47 @@    FFI.SignalInfo(..),    FFI.EncodingInfo(..),    FFI.defaultSignalInfo,++   FFI.IOType,+   FFI.ioFile,+   FFI.ioPipe,+   FFI.ioURL,+++   FFI.Option,+   FFI.optionNo,+   FFI.optionYes,+   FFI.optionDefault,++   FFI.Encoding,+   FFI.encodingUnknown,+   FFI.encodingSign2,+   FFI.encodingUnsigned,+   FFI.encodingFloat,+   FFI.encodingFloatText,+   FFI.encodingFlac,+   FFI.encodingHcom,+   FFI.encodingWavpack,+   FFI.encodingWavpackf,+   FFI.encodingUlaw,+   FFI.encodingAlaw,+   FFI.encodingG721,+   FFI.encodingG723,+   FFI.encodingClADPCM,+   FFI.encodingClADPCM16,+   FFI.encodingMsADPCM,+   FFI.encodingImaADPCM,+   FFI.encodingOkiADPCM,+   FFI.encodingDPCM,+   FFI.encodingDWVW,+   FFI.encodingDWVWN,+   FFI.encodingGSM,+   FFI.encodingMP3,+   FFI.encodingVorbis,+   FFI.encodingAmrWB,+   FFI.encodingAmrNB,+   FFI.encodingCVSD,+   FFI.encodingLPC10,    ) where  import qualified Sound.SoxLib.FFI as FFI

@@ -36,6 +36,13 @@    , ioURL = lsx_io_url    } +instance Show IOType where+   show (IOType #{const lsx_io_file}) = "ioFile"+   show (IOType #{const lsx_io_pipe}) = "ioPipe"+   show (IOType #{const lsx_io_url }) = "ioURL"+   show (IOType n) = error $ "SoxLib.IOType.show: invalid number " ++ show n++ data Format mode =    Format {       filename :: FilePath,@@ -166,7 +173,7 @@    show (Option #{const SOX_OPTION_NO     }) = "optionNo"    show (Option #{const SOX_OPTION_YES    }) = "optionYes"    show (Option #{const SOX_OPTION_DEFAULT}) = "optionDefault"-   show (Option n) = error $ "SoxLib.Option.show :invalid number " ++ show n+   show (Option n) = error $ "SoxLib.Option.show: invalid number " ++ show n   data EncodingInfo =@@ -304,6 +311,11 @@   newtype FileType = FileType {unFileType :: String}++instance Show FileType where+   showsPrec prec (FileType str) =+      showParen (prec>=10) $ showString "FileType " . showString str+ type CFileType = CStr.CString type Sample = #{type sox_sample_t} type OOB = ()