← Back to branch summary

~ubuntu-branches/ubuntu/maverick/speech-tools/maverick

« back to all changes in this revision

Viewing changes to wrappers/perl5/EST_Wave.pm

  • Committer: Bazaar Package Importer
  • Author(s): Kumar Appaiah, Kartik Mistry, Kumar Appaiah
  • Date: 2010-07-17 11:32:04 UTC
  • mfrom: (3.1.6 sid)
  • Revision ID: james.westby@ubuntu.com-20100717113204-mnse3jo236j107q8
Tags: 1:2.0.95~beta-1
[ Kartik Mistry ]
* debian/control:
  + [Lintian] Added missing ${misc:Depends}
  + Updated Standards-Version to 3.8.4 (no changes needed)
* debian/patches/const_char.diff:
  + Added missing patch header
* Removed unused patch invalid_const_char_conversion_fixes.diff

[ Kumar Appaiah ]
* New upstream release.
* Standards Version is now 3.9.0 (No changes needed)
* Update debian/rules to specify version numbers.

Show diffs side-by-side

added added

removed removed

Lines of Context:
wrappers/perl5/EST_Wave.pm
 
1
# This file was automatically generated by SWIG
 
2
package EST_Wave;
 
3
require Exporter;
 
4
require DynaLoader;
 
5
@ISA = qw(Exporter DynaLoader);
 
6
package EST_Wavec;
 
7
bootstrap EST_Wave;
 
8
package EST_Wave;
 
9
@EXPORT = qw( );
 
10
 
 
11
# ---------- BASE METHODS -------------
 
12
 
 
13
package EST_Wave;
 
14
 
 
15
sub TIEHASH {
 
16
    my ($classname,$obj) = @_;
 
17
    return bless $obj, $classname;
 
18
}
 
19
 
 
20
sub CLEAR { }
 
21
 
 
22
sub FIRSTKEY { }
 
23
 
 
24
sub NEXTKEY { }
 
25
 
 
26
sub FETCH {
 
27
    my ($self,$field) = @_;
 
28
    my $member_func = "swig_${field}_get";
 
29
    $self->$member_func();
 
30
}
 
31
 
 
32
sub STORE {
 
33
    my ($self,$field,$newval) = @_;
 
34
    my $member_func = "swig_${field}_set";
 
35
    $self->$member_func($newval);
 
36
}
 
37
 
 
38
sub this {
 
39
    my $ptr = shift;
 
40
    return tied(%$ptr);
 
41
}
 
42
 
 
43
 
 
44
# ------- FUNCTION WRAPPERS --------
 
45
 
 
46
package EST_Wave;
 
47
 
 
48
*wave_extract_channel = *EST_Wavec::wave_extract_channel;
 
49
*wave_combine_channels = *EST_Wavec::wave_combine_channels;
 
50
*wave_subwave = *EST_Wavec::wave_subwave;
 
51
*wave_divide = *EST_Wavec::wave_divide;
 
52
*wave_extract = *EST_Wavec::wave_extract;
 
53
*add_waves = *EST_Wavec::add_waves;
 
54
*difference = *EST_Wavec::difference;
 
55
*rms_error = *EST_Wavec::rms_error;
 
56
*abs_error = *EST_Wavec::abs_error;
 
57
*correlation = *EST_Wavec::correlation;
 
58
*error = *EST_Wavec::error;
 
59
*absolute = *EST_Wavec::absolute;
 
60
*wave_info = *EST_Wavec::wave_info;
 
61
*invert = *EST_Wavec::invert;
 
62
*differentiate = *EST_Wavec::differentiate;
 
63
*reverse = *EST_Wavec::reverse;
 
64
 
 
65
############# Class : EST_Wave::EST_Wave ##############
 
66
 
 
67
package EST_Wave::EST_Wave;
 
68
@ISA = qw( EST_Wave );
 
69
%OWNER = ();
 
70
%ITERATORS = ();
 
71
*swig_default_sample_rate_get = *EST_Wavec::EST_Wave_default_sample_rate_get;
 
72
*swig_default_sample_rate_set = *EST_Wavec::EST_Wave_default_sample_rate_set;
 
73
sub new {
 
74
    my $pkg = shift;
 
75
    my $self = EST_Wavec::new_EST_Wave(@_);
 
76
    bless $self, $pkg if defined($self);
 
77
}
 
78
 
 
79
sub DESTROY {
 
80
    return unless $_[0]->isa('HASH');
 
81
    my $self = tied(%{$_[0]});
 
82
    return unless defined $self;
 
83
    delete $ITERATORS{$self};
 
84
    if (exists $OWNER{$self}) {
 
85
        EST_Wavec::delete_EST_Wave($self);
 
86
        delete $OWNER{$self};
 
87
    }
 
88
}
 
89
 
 
90
*a = *EST_Wavec::EST_Wave_a;
 
91
*a_safe = *EST_Wavec::EST_Wave_a_safe;
 
92
*set_a = *EST_Wavec::EST_Wave_set_a;
 
93
*t = *EST_Wavec::EST_Wave_t;
 
94
*num_samples = *EST_Wavec::EST_Wave_num_samples;
 
95
*num_channels = *EST_Wavec::EST_Wave_num_channels;
 
96
*sample_rate = *EST_Wavec::EST_Wave_sample_rate;
 
97
*set_sample_rate = *EST_Wavec::EST_Wave_set_sample_rate;
 
98
*length = *EST_Wavec::EST_Wave_length;
 
99
*end = *EST_Wavec::EST_Wave_end;
 
100
*have_left_context = *EST_Wavec::EST_Wave_have_left_context;
 
101
*sample_type = *EST_Wavec::EST_Wave_sample_type;
 
102
*set_sample_type = *EST_Wavec::EST_Wave_set_sample_type;
 
103
*file_type = *EST_Wavec::EST_Wave_file_type;
 
104
*set_file_type = *EST_Wavec::EST_Wave_set_file_type;
 
105
*name = *EST_Wavec::EST_Wave_name;
 
106
*set_name = *EST_Wavec::EST_Wave_set_name;
 
107
*resize = *EST_Wavec::EST_Wave_resize;
 
108
*resample = *EST_Wavec::EST_Wave_resample;
 
109
*rescale = *EST_Wavec::EST_Wave_rescale;
 
110
*clear = *EST_Wavec::EST_Wave_clear;
 
111
*copy = *EST_Wavec::EST_Wave_copy;
 
112
*fill = *EST_Wavec::EST_Wave_fill;
 
113
*empty = *EST_Wavec::EST_Wave_empty;
 
114
*load = *EST_Wavec::EST_Wave_load;
 
115
*load_file = *EST_Wavec::EST_Wave_load_file;
 
116
*save = *EST_Wavec::EST_Wave_save;
 
117
*save_file = *EST_Wavec::EST_Wave_save_file;
 
118
*integrity = *EST_Wavec::EST_Wave_integrity;
 
119
*info = *EST_Wavec::EST_Wave_info;
 
120
*play = *EST_Wavec::EST_Wave_play;
 
121
sub DISOWN {
 
122
    my $self = shift;
 
123
    my $ptr = tied(%$self);
 
124
    delete $OWNER{$ptr};
 
125
}
 
126
 
 
127
sub ACQUIRE {
 
128
    my $self = shift;
 
129
    my $ptr = tied(%$self);
 
130
    $OWNER{$ptr} = 1;
 
131
}
 
132
 
 
133
 
 
134
# ------- VARIABLE STUBS --------
 
135
 
 
136
package EST_Wave;
 
137
 
 
138
1;