lars.pl

:- module(lars, [       initModelNoDataNoGram/4, 
                        initModelNoDataWithGram/7, 
                        initModelWithDataNoGram/10, 
                        initModelWithDataWithGram/13, 
                        activeSet/2, 
                        beta/2, 
                        betaPath/3, 
                        computeError/7, 
                        lambdaPath/2, 
                        matUtriCholFactor/3, 
                        predict/6, 
                        train/9]).

:- load_files(library(str_decl),
                [when(compile_time), if(changed)]).

%% needed for using the array type and for reading from csv
:- use_module(library(structs)).
:- use_module('../../helper_files/helper.pl').

%% type definitions for the float array
:- foreign_type
        float32          = float_32,
        float_array      = array(float32).

%% definitions for the connected function and what there inputs and output arguments are


%% --Input--
%%
%% --Output--
%%
%% --Description--
foreign(initModelNoDataNoGram, c, initModelNoDataNoGram(+integer, +float32, +float32, +float32)).

%% TODO: 
%% --Input--
%%
%% --Output--
%%
%% --Description--
foreign(initModelNoDataWithGram, c, initModelNoDataWithGram(+integer, +pointer(float_array), +integer, +integer, +float32, +float32, +float32)).

%% TODO: 
%% --Input--
%%
%% --Output--
%%
%% --Description--
foreign(initModelWithDataNoGram, c, initModelWithDataNoGram(+pointer(float_array), +integer, +integer, +pointer(float_array), +integer, +integer, +integer, +float32, +float32, +float32)).

%% TODO: 
%% --Input--
%%
%% --Output--
%%
%% --Description--
foreign(initModelWithDataWithGram, c, initModelWithDataWithGram(+pointer(float_array), +integer, +integer, +pointer(float_array), +integer, +integer, +integer, +pointer(float_array), +integer, +integer, +float32, +float32, +float32)).

%% TODO: 
%% --Input--
%%
%% --Output--
%%
%% --Description--
foreign(activeSet, c, activeSet(-pointer(float_array), -integer)).

%% TODO: 
%% --Input--
%%
%% --Output--
%%
%% --Description--
foreign(beta, c, beta(-pointer(float_array), -integer)).

%% TODO: 
%% --Input--
%%
%% --Output--
%%
%% --Description--
foreign(betaPath, c, betaPath(-pointer(float_array), -integer, -integer)).

%% TODO: 
%% --Input--
%%
%% --Output--
%%
%% --Description--
foreign(computeError, c, computeError(+pointer(float_array), +integer, +integer, +pointer(float_array), +integer, +integer, [-integer])).

%% TODO: 
%% --Input--
%%
%% --Output--
%%
%% --Description--
foreign(lambdaPath, c, lambdaPath(-pointer(float_array), -integer)).

%% TODO: 
%% --Input--
%%
%% --Output--
%%
%% --Description--
foreign(matUtriCholFactor, c, matUtriCholFactor(-pointer(float_array), -integer, -integer)).

%% TODO: 
%% --Input--
%%
%% --Output--
%%
%% --Description--
foreign(predict, c, predict(+pointer(float_array), +integer, +integer, -pointer(float_array), -integer, +integer)).

%% TODO: 
%% --Input--
%%
%% --Output--
%%
%% --Description--
foreign(train, c, train(+pointer(float_array), +integer, +integer, +pointer(float_array), +integer, -pointer(float_array), -integer, +integer, [-integer])).


%% Defines what functions should be connected from main.cpp
foreign_resource(lars, [initModelNoDataNoGram, 
                        initModelNoDataWithGram, 
                        initModelWithDataNoGram, 
                        initModelWithDataWithGram, 
                        activeSet, 
                        beta, 
                        betaPath, 
                        computeError, 
                        lambdaPath, 
                        matUtriCholFactor, 
                        predict, 
                        train]).

:- load_foreign_resource(lars).