diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,29 @@ +Copyright (c) <2009>, +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 the author nor the names of 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.lhs b/Setup.lhs new file mode 100644 --- /dev/null +++ b/Setup.lhs @@ -0,0 +1,3 @@ +#!/usr/bin/env runhaskell +> import Distribution.Simple +> main = defaultMain diff --git a/bindings-libftdi.cabal b/bindings-libftdi.cabal new file mode 100644 --- /dev/null +++ b/bindings-libftdi.cabal @@ -0,0 +1,24 @@ +name: bindings-libftdi +version: 0.1 +Cabal-Version: >= 1.2 +synopsis: + Low level bindings to libftdi. +description: +category: FFI +license: GPL +license-file: LICENSE +author: Joe +maintainer: none +build-depends: base +build-type: Simple +library + hs-source-dirs: src + extensions: + ForeignFunctionInterface + build-depends: + base >= 3 && < 5, bindings-DSL >= 1.0.0 && < 1.1 + exposed-modules: + Bindings.Libftdi + pkgconfig-depends: + libusb-1.0 >= 1.0, libftdi >= 0.16 && < 0.16.3 + diff --git a/src/Bindings/Libftdi.hsc b/src/Bindings/Libftdi.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Libftdi.hsc @@ -0,0 +1,197 @@ +#include "bindings.dsl.h" +#include "ftdi.h" + +{-# LANGUAGE ForeignFunctionInterface#-} +-- | + +module Bindings.Libftdi where +#strict_import + +#num FTDI_DEFAULT_EEPROM_SIZE + +#integral_t enum ftdi_chip_type +#integral_t enum ftdi_parity_type +#integral_t enum ftdi_stopbits_type +#integral_t enum ftdi_bits_type +#integral_t enum ftdi_break_type + +#integral_t enum ftdi_mpsse_mode + +#integral_t enum ftdi_interface + +#num MPSSE_WRITE_NEG +#num MPSSE_BITMODE +#num MPSSE_READ_NEG +#num MPSSE_LSB +#num MPSSE_DO_WRITE +#num MPSSE_DO_READ +#num MPSSE_WRITE_TMS + +#num SET_BITS_LOW +#num SET_BITS_HIGH +#num GET_BITS_LOW +#num GET_BITS_HIGH +#num LOOPBACK_START +#num LOOPBACK_END +#num TCK_DIVISOR +-- DIV_VALUE(rate) (rate > 6000000)?0:((6000000/rate -1) > 0xffff)? 0xffff: (6000000/rate -1) +divValue rate | rate > 6000000 = 0 + | ((6000000/rate -1) > 0xffff) = 0xffff + | otherwise = (6000000/rate -1) + +#num SEND_IMMEDIATE +#num WAIT_ON_HIGH +#num WAIT_ON_LOW + +#num READ_SHORT +#num READ_EXTENDED +#num WRITE_SHORT +#num WRITE_EXTENDED + +#num SIO_RESET +#num SIO_MODEM_CTRL +#num SIO_SET_FLOW_CTRL +#num SIO_SET_BAUD_RATE +#num SIO_SET_DATA + +#num FTDI_DEVICE_OUT_REQTYPE +#num FTDI_DEVICE_IN_REQTYPE + +#num SIO_RESET_REQUEST +#num SIO_SET_BAUDRATE_REQUEST +#num SIO_SET_DATA_REQUEST +#num SIO_SET_FLOW_CTRL_REQUEST +#num SIO_SET_MODEM_CTRL_REQUEST +#num SIO_POLL_MODEM_STATUS_REQUEST +#num SIO_SET_EVENT_CHAR_REQUEST +#num SIO_SET_ERROR_CHAR_REQUEST +#num SIO_SET_LATENCY_TIMER_REQUEST +#num SIO_GET_LATENCY_TIMER_REQUEST +#num SIO_SET_BITMODE_REQUEST +#num SIO_READ_PINS_REQUEST +#num SIO_READ_EEPROM_REQUEST +#num SIO_WRITE_EEPROM_REQUEST +#num SIO_ERASE_EEPROM_REQUEST + + +#num SIO_RESET_SIO +#num SIO_RESET_PURGE_RX +#num SIO_RESET_PURGE_TX + +#num SIO_DISABLE_FLOW_CTRL +#num SIO_RTS_CTS_HS +#num SIO_DTR_DSR_HS +#num SIO_XON_XOFF_HS + +#num SIO_SET_DTR_MASK +#num SIO_SET_DTR_HIGH +#num SIO_SET_DTR_LOW +#num SIO_SET_RTS_MASK +#num SIO_SET_RTS_HIGH +#num SIO_SET_RTS_LOW + +#pointer FTDI_URB_USERCONTEXT_COOKIE + +#opaque_t usb_dev_handle + +#starttype struct ftdi_context +#field usb_dev , Ptr +#field usb_read_timeout, CInt +#field usb_write_timeout, CInt +#field type , +#field baudrate, CInt +#field bitbang_enabled , CUChar +#field readbuffer , Ptr CUChar +#field readbuffer_offset, CUInt +#field readbuffer_remaining, CUInt +#field readbuffer_chunksize, CUInt +#field writebuffer_chunksize, CUInt +#field in_ep, CInt +#field bitbang_mode , CUChar +#field eeprom_size, CInt +#field error_str, Ptr CChar +#field async_usb_buffer , Ptr CChar +#field async_usb_buffer_size, CUInt +#stoptype + +#opaque_t usb_device + +#starttype struct ftdi_device_list +#field next , Ptr +#field dev , Ptr +#stoptype + +#starttype struct ftdi_eeprom +#field vendor_id , CInt +#field product_id , CInt +#field self_powered , CInt +#field remote_wakeup , CInt +#field BM_type_chip , CInt +#field in_is_isochronous , CInt +#field out_is_isochronous , CInt +#field suspend_pull_downs , CInt +#field use_serial , CInt +#field change_usb_version , CInt +#field usb_version , CInt +#field max_power , CInt +#field manufacturer , Ptr CChar +#field product , Ptr CChar +#field serial , Ptr CChar +#field size , CInt +#stoptype + +#ccall ftdi_init , Ptr -> IO CInt +#ccall ftdi_new , IO ( Ptr ) +#ccall ftdi_set_interface , Ptr -> -> IO CInt +#ccall ftdi_deinit , Ptr -> IO () +#ccall ftdi_free , Ptr -> IO () +#ccall ftdi_set_usbdev , Ptr -> Ptr -> IO () +#ccall ftdi_usb_find_all , Ptr -> Ptr (Ptr ) -> CInt -> CInt -> IO CInt +#ccall ftdi_list_free , Ptr (Ptr ) -> IO () +#ccall ftdi_list_free2 , Ptr -> IO () +#ccall ftdi_usb_get_strings , Ptr -> Ptr -> Ptr CChar -> CInt -> Ptr CChar -> CInt -> Ptr CChar -> CInt -> IO CInt +#ccall ftdi_usb_open , Ptr -> CInt -> CInt -> IO CInt +#ccall ftdi_usb_open_desc , Ptr -> CInt -> CInt -> Ptr CChar -> Ptr CChar -> IO CInt +#ccall ftdi_usb_open_dev , Ptr -> Ptr -> IO CInt +#ccall ftdi_usb_close , Ptr -> IO CInt +#ccall ftdi_usb_reset , Ptr -> IO CInt +#ccall ftdi_usb_purge_rx_buffer , Ptr -> IO CInt +#ccall ftdi_usb_purge_tx_buffer , Ptr -> IO CInt +#ccall ftdi_usb_purge_buffers , Ptr -> IO CInt +#ccall ftdi_set_baudrate , Ptr -> CInt -> IO CInt +#ccall ftdi_set_line_property , Ptr -> -> -> -> IO CInt +#ccall ftdi_set_line_property2 , Ptr -> -> -> -> -> IO CInt +#ccall ftdi_read_data , Ptr -> Ptr CUChar -> CInt -> IO CInt +#ccall ftdi_read_data_set_chunksize , Ptr -> CUInt -> IO CInt +#ccall ftdi_read_data_get_chunksize , Ptr -> Ptr CUInt -> IO CInt +#ccall ftdi_write_data , Ptr -> Ptr CUChar -> CUInt -> IO CInt +#ccall ftdi_write_data_set_chunksize , Ptr -> CUInt -> IO CInt +#ccall ftdi_write_data_get_chunksize , Ptr -> Ptr CUInt -> IO CInt +#ccall ftdi_write_data_async , Ptr -> Ptr CUChar -> CInt -> IO CInt +#ccall ftdi_async_complete , Ptr -> CInt -> IO () +#ccall ftdi_enable_bitbang , Ptr -> CUChar -> IO CInt +#ccall ftdi_disable_bitbang , Ptr -> IO CInt +#ccall ftdi_set_bitmode , Ptr -> CUChar -> CUChar -> IO CInt +#ccall ftdi_read_pins , Ptr -> CUChar -> IO CInt +#ccall ftdi_set_latency_timer , Ptr -> CUChar -> IO CInt +#ccall ftdi_get_latency_timer , Ptr -> Ptr CUChar -> IO CInt +#ccall ftdi_poll_modem_status , Ptr -> Ptr CShort -> IO CInt +#ccall ftdi_setflowctrl , Ptr -> CInt -> IO CInt +#ccall ftdi_setdtr_rts , Ptr -> CInt -> CInt -> IO CInt +#ccall ftdi_setdtr , Ptr -> CInt -> IO CInt +#ccall ftdi_setrts , Ptr -> CInt -> IO CInt +#ccall ftdi_set_event_char , Ptr -> CUChar -> CUChar -> IO CInt +#ccall ftdi_set_error_char , Ptr -> CUChar -> CUChar -> IO CInt +#ccall ftdi_eeprom_setsize , Ptr -> Ptr -> CInt -> IO () +#ccall ftdi_eeprom_initdefaults , Ptr -> IO () +#ccall ftdi_eeprom_build , Ptr -> Ptr CUChar -> IO CInt +#ccall ftdi_eeprom_decode , Ptr -> Ptr CUChar -> CInt -> IO CInt +#ccall ftdi_read_eeprom , Ptr -> Ptr CUChar -> IO CInt +#ccall ftdi_read_chipid , Ptr -> Ptr CUInt -> IO CInt +#ccall ftdi_read_eeprom_getsize , Ptr -> Ptr CUChar -> CInt -> IO CInt +#ccall ftdi_write_eeprom , Ptr -> Ptr CUChar -> IO CInt +#ccall ftdi_erase_eeprom , Ptr -> IO CInt +#ccall ftdi_get_error_string , Ptr -> IO (Ptr CChar) + + +