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.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-fann.cabal b/bindings-fann.cabal new file mode 100644 --- /dev/null +++ b/bindings-fann.cabal @@ -0,0 +1,31 @@ +cabal-version: >= 1.2.3 +name: bindings-fann +homepage: http://bitbucket.org/mauricio/bindings-fann +synopsis: + Low level bindings to FANN. +version: 0.0.1 +license: BSD3 +license-file: LICENSE +maintainer: Maurício C. Antunes +author: Maurício C. Antunes +build-type: Simple +category: FFI +bug-reports: http://bitbucket.org/mauricio/bindings-fann/issues +library + hs-source-dirs: src + extensions: + ForeignFunctionInterface + build-depends: + base >= 3 && < 5, + bindings-common >= 1.3 && < 1.4 + exposed-modules: + Bindings.Fann + Bindings.Fann.CreationDestructionExecution + Bindings.Fann.InputOutput + Bindings.Fann.Training + Bindings.Fann.TrainingData + Bindings.Fann.Options + Bindings.Fann.ErrorHandling + Bindings.Fann.DataStructures + Bindings.Fann.Constants + pkgconfig-depends: fann >=1.2 && <2 diff --git a/src/Bindings/Fann.hs b/src/Bindings/Fann.hs new file mode 100644 --- /dev/null +++ b/src/Bindings/Fann.hs @@ -0,0 +1,18 @@ +module Bindings.Fann ( + module Bindings.Fann.Constants, + module Bindings.Fann.CreationDestructionExecution, + module Bindings.Fann.DataStructures, + module Bindings.Fann.ErrorHandling, + module Bindings.Fann.InputOutput, + module Bindings.Fann.Options, + module Bindings.Fann.TrainingData, + module Bindings.Fann.Training, + ) where +import Bindings.Fann.Constants +import Bindings.Fann.CreationDestructionExecution +import Bindings.Fann.DataStructures +import Bindings.Fann.ErrorHandling +import Bindings.Fann.InputOutput +import Bindings.Fann.Options +import Bindings.Fann.TrainingData +import Bindings.Fann.Training diff --git a/src/Bindings/Fann/Constants.hsc b/src/Bindings/Fann/Constants.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Fann/Constants.hsc @@ -0,0 +1,38 @@ +#include +#include +#include + +-- | + +module Bindings.Fann.Constants where +#strict_import + +#num FANN_TRAIN_INCREMENTAL +#num FANN_TRAIN_BATCH +#num FANN_TRAIN_RPROP +#num FANN_TRAIN_QUICKPROP +#num FANN_THRESHOLD +#num FANN_THRESHOLD_SYMMETRIC +#num FANN_LINEAR +#num FANN_SIGMOID +#num FANN_SIGMOID_STEPWISE +#num FANN_SIGMOID_SYMMETRIC +#num FANN_SIGMOID_SYMMETRIC_STEPWISE +#num FANN_ERRORFUNC_LINEAR +#num FANN_ERRORFUNC_TANH +#num FANN_E_NO_ERROR +#num FANN_E_CANT_OPEN_CONFIG_R +#num FANN_E_CANT_OPEN_CONFIG_W +#num FANN_E_WRONG_CONFIG_VERSION +#num FANN_E_CANT_READ_CONFIG +#num FANN_E_CANT_READ_NEURON +#num FANN_E_CANT_READ_CONNECTIONS +#num FANN_E_WRONG_NUM_CONNECTIONS +#num FANN_E_CANT_OPEN_TD_W +#num FANN_E_CANT_OPEN_TD_R +#num FANN_E_CANT_READ_TD +#num FANN_E_CANT_ALLOCATE_MEM +#num FANN_E_CANT_TRAIN_ACTIVATION +#num FANN_E_CANT_USE_ACTIVATION +#num FANN_E_TRAIN_DATA_MISMATCH + diff --git a/src/Bindings/Fann/CreationDestructionExecution.hsc b/src/Bindings/Fann/CreationDestructionExecution.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Fann/CreationDestructionExecution.hsc @@ -0,0 +1,16 @@ +#include +#include + +-- | + +module Bindings.Fann.CreationDestructionExecution where +#strict_import +import Bindings.Fann.DataStructures + +#ccall fann_create_array , CFloat -> CFloat -> CUInt -> Ptr CUInt -> IO (Ptr ) +#ccall fann_create_shortcut_array , CFloat -> CUInt -> Ptr CUInt -> IO (Ptr ) +#ccall fann_destroy , Ptr -> IO () +#ccall fann_run , Ptr -> Ptr CFloat -> IO (Ptr CFloat) +#ccall fann_randomize_weights , Ptr -> CFloat -> CFloat -> IO () +#ccall fann_init_weights , Ptr -> Ptr -> IO () +#ccall fann_print_connections , Ptr -> IO () diff --git a/src/Bindings/Fann/DataStructures.hsc b/src/Bindings/Fann/DataStructures.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Fann/DataStructures.hsc @@ -0,0 +1,14 @@ +#include +#include + +-- | + +module Bindings.Fann.DataStructures where +#strict_import + +#opaque_t struct fann +#opaque_t struct fann_train_data +#opaque_t struct fann_error +#opaque_t struct fann_neuron +#opaque_t struct fann_layer + diff --git a/src/Bindings/Fann/ErrorHandling.hsc b/src/Bindings/Fann/ErrorHandling.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Fann/ErrorHandling.hsc @@ -0,0 +1,16 @@ +#include +#include + +-- | + +module Bindings.Fann.ErrorHandling where +#strict_import +import Bindings.Fann.DataStructures + +#ccall fann_get_errno , Ptr -> IO CUInt +#ccall fann_get_errstr , Ptr -> IO CString +#ccall fann_reset_errno , Ptr -> IO () +#ccall fann_reset_errstr , Ptr -> IO () +#ccall fann_set_error_log , Ptr -> Ptr CFile -> IO () +#ccall fann_print_error , Ptr -> IO () + diff --git a/src/Bindings/Fann/InputOutput.hsc b/src/Bindings/Fann/InputOutput.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Fann/InputOutput.hsc @@ -0,0 +1,13 @@ +#include +#include + +-- | + +module Bindings.Fann.InputOutput where +#strict_import +import Bindings.Fann.DataStructures + +#ccall fann_save , Ptr -> CString -> IO () +#ccall fann_save_to_fixed , Ptr -> CString -> IO () +#ccall fann_create_from_file , CString -> IO (Ptr ) + diff --git a/src/Bindings/Fann/Options.hsc b/src/Bindings/Fann/Options.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Fann/Options.hsc @@ -0,0 +1,41 @@ +#include +#include + +-- | + +module Bindings.Fann.Options where +#strict_import +import Bindings.Fann.DataStructures + +#ccall fann_print_parameters , Ptr -> IO () +#ccall fann_get_training_algorithm , Ptr -> IO CUInt +#ccall fann_set_training_algorithm , Ptr -> CUInt -> IO () +#ccall fann_get_learning_rate , Ptr -> IO CFloat +#ccall fann_set_learning_rate , Ptr -> CFloat -> IO () +#ccall fann_get_activation_function_hidden , Ptr -> IO CUInt +#ccall fann_set_activation_function_hidden , Ptr -> CUInt -> IO () +#ccall fann_get_activation_function_output , Ptr -> IO CUInt +#ccall fann_set_activation_function_output , Ptr -> CUInt -> IO () +#ccall fann_get_activation_steepness_hidden , Ptr -> IO CFloat +#ccall fann_set_activation_steepness_hidden , Ptr -> CFloat -> IO () +#ccall fann_get_activation_steepness_output , Ptr -> IO CFloat +#ccall fann_set_activation_steepness_output , Ptr -> CFloat -> IO () +#ccall fann_set_train_error_function , Ptr -> CUInt -> IO () +#ccall fann_get_train_error_function , Ptr -> IO CUInt +#ccall fann_get_quickprop_decay , Ptr -> IO CFloat +#ccall fann_set_quickprop_decay , Ptr -> CFloat -> IO () +#ccall fann_get_quickprop_mu , Ptr -> IO CFloat +#ccall fann_set_quickprop_mu , Ptr -> CFloat -> IO () +#ccall fann_get_rprop_increase_factor , Ptr -> IO CFloat +#ccall fann_set_rprop_increase_factor , Ptr -> CFloat -> IO () +#ccall fann_get_rprop_decrease_factor , Ptr -> IO CFloat +#ccall fann_set_rprop_decrease_factor , Ptr -> CFloat -> IO () +#ccall fann_get_rprop_delta_min , Ptr -> IO CFloat +#ccall fann_set_rprop_delta_min , Ptr -> CFloat -> IO () +#ccall fann_get_rprop_delta_max , Ptr -> IO CFloat +#ccall fann_set_rprop_delta_max , Ptr -> CFloat -> IO () +#ccall fann_get_num_input , Ptr -> IO CUInt +#ccall fann_get_num_output , Ptr -> IO CUInt +#ccall fann_get_total_neurons , Ptr -> IO CUInt +#ccall fann_get_total_connections , Ptr -> IO CUInt + diff --git a/src/Bindings/Fann/Training.hsc b/src/Bindings/Fann/Training.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Fann/Training.hsc @@ -0,0 +1,14 @@ +#include +#include + +-- | + +module Bindings.Fann.Training where +#strict_import +import Bindings.Fann.DataStructures + +#ccall fann_train , Ptr -> Ptr CFloat -> Ptr CFloat -> IO () +#ccall fann_test , Ptr -> Ptr CFloat -> Ptr CFloat -> IO (Ptr CFloat) +#ccall fann_get_MSE , Ptr -> IO CFloat +#ccall fann_reset_MSE , Ptr -> IO () + diff --git a/src/Bindings/Fann/TrainingData.hsc b/src/Bindings/Fann/TrainingData.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Fann/TrainingData.hsc @@ -0,0 +1,23 @@ +#include +#include + +-- | + +module Bindings.Fann.TrainingData where +#strict_import +import Bindings.Fann.DataStructures + +#ccall fann_read_train_from_file , CString -> IO (Ptr ) +#ccall fann_save_train , Ptr -> Ptr CFile -> IO () +#ccall fann_save_train_to_fixed , Ptr -> Ptr CFile -> CUInt -> IO () +#ccall fann_destroy_train , Ptr -> IO () +#ccall fann_train_epoch , Ptr -> Ptr -> IO CFloat +#ccall fann_test_data , Ptr -> Ptr -> IO CFloat +#ccall fann_train_on_data , Ptr -> Ptr -> CUInt -> CUInt -> CFloat -> IO () +#ccall fann_train_on_data_callback , Ptr -> Ptr -> CUInt -> CUInt -> CFloat -> FunPtr (CUInt -> CFloat -> IO CInt) -> IO () +#ccall fann_train_on_file , Ptr -> CString -> CUInt -> CUInt -> CFloat -> IO () +#ccall fann_train_on_file_callback , Ptr -> CString -> CUInt -> CUInt -> CFloat -> FunPtr (CUInt -> CFloat -> IO CInt) -> IO () +#ccall fann_shuffle_train_data , Ptr -> IO () +#ccall fann_merge_train_data , Ptr -> Ptr -> IO (Ptr ) +#ccall fann_duplicate_train_data , Ptr -> IO (Ptr ) +