diff --git a/Bindings/DC1394.hsc b/Bindings/DC1394.hsc new file mode 100644 --- /dev/null +++ b/Bindings/DC1394.hsc @@ -0,0 +1,166 @@ +{-# LANGUAGE ForeignFunctionInterface #-} + +#include +#include + +module Bindings.DC1394 where +import Data.Word +#strict_import + +-- camera_id_t +#starttype dc1394camera_id_t +#field unit , Word16 +#field guid , Word64 +#stoptype + +-- camera_list_t +#starttype dc1394camera_list_t +#field num , Word32 +#field ids , Ptr +#stoptype + +-- dc1394switch_t +#num DC1394_OFF +#num DC1394_ON + +-- utils +#ccall memcpy, Ptr () -> Ptr () -> Word32 -> IO () + +-- video_frame_t +#starttype dc1394video_frame_t +#field image, Ptr Word8 + +#field size, Ptr Word32 +#field position, Ptr Word32 +#field color_coding, CInt +#field color_filter, CInt +#field yuv_byte_order, Word32 +#field data_depth, Word32 + +#field stride, Word32 +#field video_mode, CInt +#field total_bytes, Word64 + +#field image_bytes, Word32 +#field padding_bytes, Word32 +#field packet_size, Word32 +#field packets_per_frame, Word32 +#field timestamp, Word64 + +#field frames_behind, Word32 +#field camera, Ptr +#field id, Word32 +#field allocated_image_bytes, Word64 +#field little_endian, CInt + +#field data_in_padding, CInt +#stoptype + +#opaque_t dc1394camera_t +#opaque_t dc1394_t + +#ccall dc1394_video_set_transmission , Ptr -> CInt -> IO CInt +#ccall dc1394_capture_stop , Ptr -> IO CInt +#ccall dc1394_camera_free , Ptr -> IO () +#ccall dc1394_camera_enumerate, Ptr -> Ptr (Ptr ) -> IO CInt +#ccall dc1394_camera_new, Ptr -> Word64 -> IO (Ptr ) +#ccall dc1394_new , IO (Ptr ) +#ccall dc1394_free , Ptr -> IO () +#ccall dc1394_camera_free_list , (Ptr ) -> IO () +#ccall dc1394_video_set_iso_speed , Ptr -> CInt -> IO CInt +#ccall dc1394_capture_setup , Ptr -> CInt -> CInt -> IO CInt +#ccall dc1394_capture_dequeue , Ptr -> CInt -> Ptr (Ptr ) -> IO CInt +#ccall dc1394_video_set_mode , Ptr -> CInt -> IO CInt +#ccall dc1394_get_image_size_from_video_mode , Ptr -> CInt -> Ptr Word32 -> Ptr Word32 -> IO CInt +#ccall dc1394_video_set_framerate , Ptr -> CInt -> IO CInt + +#num DC1394_ISO_SPEED_100 +#num DC1394_ISO_SPEED_200 +#num DC1394_ISO_SPEED_400 +#num DC1394_ISO_SPEED_800 +#num DC1394_ISO_SPEED_1600 +#num DC1394_ISO_SPEED_3200 +#num DC1394_ISO_SPEED_MIN +#num DC1394_ISO_SPEED_MAX +#num DC1394_ISO_SPEED_NUM + +#num DC1394_VIDEO_MODE_160x120_YUV444 +#num DC1394_VIDEO_MODE_320x240_YUV422 +#num DC1394_VIDEO_MODE_640x480_YUV411 +#num DC1394_VIDEO_MODE_640x480_YUV422 +#num DC1394_VIDEO_MODE_640x480_RGB8 +#num DC1394_VIDEO_MODE_640x480_MONO8 +#num DC1394_VIDEO_MODE_640x480_MONO16 +#num DC1394_VIDEO_MODE_800x600_YUV422 +#num DC1394_VIDEO_MODE_800x600_RGB8 +#num DC1394_VIDEO_MODE_800x600_MONO8 +#num DC1394_VIDEO_MODE_1024x768_YUV422 +#num DC1394_VIDEO_MODE_1024x768_RGB8 +#num DC1394_VIDEO_MODE_1024x768_MONO8 +#num DC1394_VIDEO_MODE_800x600_MONO16 +#num DC1394_VIDEO_MODE_1024x768_MONO16 +#num DC1394_VIDEO_MODE_1280x960_YUV422 +#num DC1394_VIDEO_MODE_1280x960_RGB8 +#num DC1394_VIDEO_MODE_1280x960_MONO8 +#num DC1394_VIDEO_MODE_1600x1200_YUV422 +#num DC1394_VIDEO_MODE_1600x1200_RGB8 +#num DC1394_VIDEO_MODE_1600x1200_MONO8 +#num DC1394_VIDEO_MODE_1280x960_MONO16 +#num DC1394_VIDEO_MODE_1600x1200_MONO16 +#num DC1394_VIDEO_MODE_EXIF +#num DC1394_VIDEO_MODE_FORMAT7_0 +#num DC1394_VIDEO_MODE_FORMAT7_1 +#num DC1394_VIDEO_MODE_FORMAT7_2 +#num DC1394_VIDEO_MODE_FORMAT7_3 +#num DC1394_VIDEO_MODE_FORMAT7_4 +#num DC1394_VIDEO_MODE_FORMAT7_5 +#num DC1394_VIDEO_MODE_FORMAT7_6 +#num DC1394_VIDEO_MODE_FORMAT7_7 + + +#num DC1394_FRAMERATE_1_875 +#num DC1394_FRAMERATE_3_75 +#num DC1394_FRAMERATE_7_5 +#num DC1394_FRAMERATE_15 +#num DC1394_FRAMERATE_30 +#num DC1394_FRAMERATE_60 +#num DC1394_FRAMERATE_120 +#num DC1394_FRAMERATE_240 +#num DC1394_FRAMERATE_MIN +#num DC1394_FRAMERATE_MAX + +#num DC1394_CAPTURE_FLAGS_CHANNEL_ALLOC +#num DC1394_CAPTURE_FLAGS_BANDWIDTH_ALLOC +#num DC1394_CAPTURE_FLAGS_DEFAULT +#num DC1394_CAPTURE_FLAGS_AUTO_ISO + +#num DC1394_CAPTURE_POLICY_WAIT +#num DC1394_CAPTURE_POLICY_POLL +#num DC1394_CAPTURE_POLICY_MIN +#num DC1394_CAPTURE_POLICY_MAX +#num DC1394_CAPTURE_POLICY_NUM + +#num DC1394_COLOR_CODING_MONO8 +#num DC1394_COLOR_CODING_YUV411 +#num DC1394_COLOR_CODING_YUV422 +#num DC1394_COLOR_CODING_YUV444 +#num DC1394_COLOR_CODING_RGB8 +#num DC1394_COLOR_CODING_MONO16 +#num DC1394_COLOR_CODING_RGB16 +#num DC1394_COLOR_CODING_MONO16S +#num DC1394_COLOR_CODING_RGB16S +#num DC1394_COLOR_CODING_RAW8 +#num DC1394_COLOR_CODING_RAW16 +#num DC1394_COLOR_CODING_MIN +#num DC1394_COLOR_CODING_MAX + +#num DC1394_COLOR_FILTER_RGGB +#num DC1394_COLOR_FILTER_GBRG +#num DC1394_COLOR_FILTER_GRBG +#num DC1394_COLOR_FILTER_BGGR +#num DC1394_COLOR_FILTER_MIN +#num DC1394_COLOR_FILTER_MAX + + + + diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,30 @@ +Copyright (c)2011, Ville Tirronen + +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are met: + + * Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. + + * Redistributions in binary form must reproduce the above + copyright notice, this list of conditions and the following + disclaimer in the documentation and/or other materials provided + with the distribution. + + * Neither the name of Ville Tirronen nor the names of other + contributors may be used to endorse or promote products derived + from this software without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT +LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,2 @@ +import Distribution.Simple +main = defaultMain diff --git a/bindings-dc1394.cabal b/bindings-dc1394.cabal new file mode 100644 --- /dev/null +++ b/bindings-dc1394.cabal @@ -0,0 +1,29 @@ +Name: bindings-dc1394 +Version: 0.1 +Synopsis: Library for using firewire (iidc-1394) cameras +Description: Low level bindings for libdc1394 (for driving firewire cameras). + . + Version 0.1: + . + Partial bindings that allow setting basic camera flags and acquiring + images without dma. + . +Homepage: http://github.com/aleator/bindings-dc1394 +License: BSD3 +License-file: LICENSE +Author: Ville Tirronen +Maintainer: aleator@gmail.com +Category: System +Build-type: Simple +Cabal-version: >=1.2 + +Library + Exposed-modules: + Bindings.DC1394 + Build-depends: + bindings-DSL >= 1.0.7 && < 1.1, + base > 4 && <5, + CV >= 0.3 + Build-tools: c2hs >= 0.16.0 + Includes: dc1394/dc1394.h + Extra-Libraries: dc1394