← Back to branch summary

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

« back to all changes in this revision

Viewing changes to wrappers/perl5/EST_Track.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_Track.pm
 
1
# This file was automatically generated by SWIG
 
2
package EST_Track;
 
3
require Exporter;
 
4
require DynaLoader;
 
5
@ISA = qw(Exporter DynaLoader);
 
6
require EST_FVector;
 
7
package EST_Trackc;
 
8
bootstrap EST_Track;
 
9
package EST_Track;
 
10
@EXPORT = qw( );
 
11
 
 
12
# ---------- BASE METHODS -------------
 
13
 
 
14
package EST_Track;
 
15
 
 
16
sub TIEHASH {
 
17
    my ($classname,$obj) = @_;
 
18
    return bless $obj, $classname;
 
19
}
 
20
 
 
21
sub CLEAR { }
 
22
 
 
23
sub FIRSTKEY { }
 
24
 
 
25
sub NEXTKEY { }
 
26
 
 
27
sub FETCH {
 
28
    my ($self,$field) = @_;
 
29
    my $member_func = "swig_${field}_get";
 
30
    $self->$member_func();
 
31
}
 
32
 
 
33
sub STORE {
 
34
    my ($self,$field,$newval) = @_;
 
35
    my $member_func = "swig_${field}_set";
 
36
    $self->$member_func($newval);
 
37
}
 
38
 
 
39
sub this {
 
40
    my $ptr = shift;
 
41
    return tied(%$ptr);
 
42
}
 
43
 
 
44
 
 
45
# ------- FUNCTION WRAPPERS --------
 
46
 
 
47
package EST_Track;
 
48
 
 
49
*mean = *EST_Trackc::mean;
 
50
*meansd = *EST_Trackc::meansd;
 
51
*normalise = *EST_Trackc::normalise;
 
52
 
 
53
############# Class : EST_Track::EST_Track ##############
 
54
 
 
55
package EST_Track::EST_Track;
 
56
@ISA = qw( EST_Track );
 
57
%OWNER = ();
 
58
%ITERATORS = ();
 
59
*swig_default_frame_shift_get = *EST_Trackc::EST_Track_default_frame_shift_get;
 
60
*swig_default_frame_shift_set = *EST_Trackc::EST_Track_default_frame_shift_set;
 
61
*swig_default_sample_rate_get = *EST_Trackc::EST_Track_default_sample_rate_get;
 
62
*swig_default_sample_rate_set = *EST_Trackc::EST_Track_default_sample_rate_set;
 
63
sub new {
 
64
    my $pkg = shift;
 
65
    my $self = EST_Trackc::new_EST_Track(@_);
 
66
    bless $self, $pkg if defined($self);
 
67
}
 
68
 
 
69
sub DESTROY {
 
70
    return unless $_[0]->isa('HASH');
 
71
    my $self = tied(%{$_[0]});
 
72
    return unless defined $self;
 
73
    delete $ITERATORS{$self};
 
74
    if (exists $OWNER{$self}) {
 
75
        EST_Trackc::delete_EST_Track($self);
 
76
        delete $OWNER{$self};
 
77
    }
 
78
}
 
79
 
 
80
*resize = *EST_Trackc::EST_Track_resize;
 
81
*set_num_channels = *EST_Trackc::EST_Track_set_num_channels;
 
82
*set_num_frames = *EST_Trackc::EST_Track_set_num_frames;
 
83
*set_channel_name = *EST_Trackc::EST_Track_set_channel_name;
 
84
*set_aux_channel_name = *EST_Trackc::EST_Track_set_aux_channel_name;
 
85
*copy_setup = *EST_Trackc::EST_Track_copy_setup;
 
86
*name = *EST_Trackc::EST_Track_name;
 
87
*set_name = *EST_Trackc::EST_Track_set_name;
 
88
*frame = *EST_Trackc::EST_Track_frame;
 
89
*channel = *EST_Trackc::EST_Track_channel;
 
90
*sub_track = *EST_Trackc::EST_Track_sub_track;
 
91
*copy_sub_track = *EST_Trackc::EST_Track_copy_sub_track;
 
92
*copy_sub_track_out = *EST_Trackc::EST_Track_copy_sub_track_out;
 
93
*copy_channel_out = *EST_Trackc::EST_Track_copy_channel_out;
 
94
*copy_frame_out = *EST_Trackc::EST_Track_copy_frame_out;
 
95
*copy_channel_in = *EST_Trackc::EST_Track_copy_channel_in;
 
96
*copy_frame_in = *EST_Trackc::EST_Track_copy_frame_in;
 
97
*channel_position = *EST_Trackc::EST_Track_channel_position;
 
98
*has_channel = *EST_Trackc::EST_Track_has_channel;
 
99
*a = *EST_Trackc::EST_Track_a;
 
100
*t = *EST_Trackc::EST_Track_t;
 
101
*ms_t = *EST_Trackc::EST_Track_ms_t;
 
102
*fill_time = *EST_Trackc::EST_Track_fill_time;
 
103
*fill = *EST_Trackc::EST_Track_fill;
 
104
*sample = *EST_Trackc::EST_Track_sample;
 
105
*shift = *EST_Trackc::EST_Track_shift;
 
106
*start = *EST_Trackc::EST_Track_start;
 
107
*end = *EST_Trackc::EST_Track_end;
 
108
*load = *EST_Trackc::EST_Track_load;
 
109
*save = *EST_Trackc::EST_Track_save;
 
110
*empty = *EST_Trackc::EST_Track_empty;
 
111
*index = *EST_Trackc::EST_Track_index;
 
112
*index_below = *EST_Trackc::EST_Track_index_below;
 
113
*num_frames = *EST_Trackc::EST_Track_num_frames;
 
114
*length = *EST_Trackc::EST_Track_length;
 
115
*num_channels = *EST_Trackc::EST_Track_num_channels;
 
116
*num_aux_channels = *EST_Trackc::EST_Track_num_aux_channels;
 
117
*equal_space = *EST_Trackc::EST_Track_equal_space;
 
118
*single_break = *EST_Trackc::EST_Track_single_break;
 
119
*set_equal_space = *EST_Trackc::EST_Track_set_equal_space;
 
120
*set_single_break = *EST_Trackc::EST_Track_set_single_break;
 
121
*load_channel_names = *EST_Trackc::EST_Track_load_channel_names;
 
122
*save_channel_names = *EST_Trackc::EST_Track_save_channel_names;
 
123
*channel_name = *EST_Trackc::EST_Track_channel_name;
 
124
*aux_channel_name = *EST_Trackc::EST_Track_aux_channel_name;
 
125
sub DISOWN {
 
126
    my $self = shift;
 
127
    my $ptr = tied(%$self);
 
128
    delete $OWNER{$ptr};
 
129
}
 
130
 
 
131
sub ACQUIRE {
 
132
    my $self = shift;
 
133
    my $ptr = tied(%$self);
 
134
    $OWNER{$ptr} = 1;
 
135
}
 
136
 
 
137
 
 
138
# ------- VARIABLE STUBS --------
 
139
 
 
140
package EST_Track;
 
141
 
 
142
1;