aboutsummaryrefslogtreecommitdiff
path: root/swig/xtract.i
blob: 49169c0c8dcf643174deda7c08084b2c963f7eae (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
%module xtract
%include typemaps.i
#ifndef SWIGJAVA
%include carrays.i
#endif
%include stdint.i

%{
#include "xtract/xtract_scalar.h"
#include "xtract/xtract_vector.h"
#include "xtract/xtract_helper.h"
#include "xtract/xtract_macros.h"
#include "xtract/xtract_delta.h"
#include "xtract/xtract_stateful.h"
#include "xtract/libxtract.h"
%}


/* Helper functions */
%inline %{

    void *doublea_to_voidp(double f[])
    {
        return (void *)f;
    }

    xtract_function_descriptor_t 
            *get_descriptor(xtract_function_descriptor_t *fd, int i){

        return &fd[i];
    }

    /* Return a pointer to memory allocated for a mel filterbank */
    xtract_mel_filter *create_filterbank(int n_filters, int blocksize){
        
        double **filters;
        xtract_mel_filter *mf;
        int n, N;

        N = blocksize;

        mf = malloc(sizeof(xtract_mel_filter));
        mf->n_filters = n_filters;

        filters = (double **)malloc(n_filters * sizeof(double *));

        for(n = 0; n < n_filters; n++)
            filters[n] = (double *)malloc(N * sizeof(double));

        mf->filters = filters;
        
        return mf;

    }
    
    /* Free a mel filterbank */
    void destroy_filterbank(xtract_mel_filter *filterbank){
        
        int i = filterbank->n_filters;
        double **filters;

        filters = filterbank->filters;
            
        while(i--)
            free(filters[i]);

        free(filters);

        free(filterbank);

    }

%}

#ifndef SWIGJAVA
%array_class(double, doubleArray); 
%array_class(int, intArray); 
#endif
%apply double *OUTPUT { double *result };


%ignore xtract;

/* For now ignore stateful functions */
%ignore xtract_last_n;
%ignore xtract_last_n_state_new;
%ignore xtract_last_n_state_delete;


%include "xtract/xtract_scalar.h"

/* We have to put xtract_delta declarations inline because it contains a mixture of vector and scalar functions */
%inline %{

    int xtract_flux(const double *data, const int N, const void *argv , double *result);
    int xtract_lnorm(const double *data, const int N, const void *argv , double *result);

%}

%clear double *result;

%inline %{

    int xtract_difference_vector(const double *data, const int N, const void *argv, double *result);

%}


%include "xtract/xtract_vector.h"
%include "xtract/xtract_stateful.h"
%include "xtract/xtract_helper.h"
%include "xtract/xtract_macros.h"
%include "xtract/libxtract.h"