← Back to branch summary

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

« back to all changes in this revision

Viewing changes to wrappers/perl5/EST_Utterance.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_Utterance.pm
 
1
# This file was automatically generated by SWIG (http://www.swig.org).
 
2
# Version 1.3.40
 
3
#
 
4
# Do not make changes to this file unless you know what you are doing--modify
 
5
# the SWIG interface file instead.
 
6
 
 
7
package EST_Utterance;
 
8
use base qw(Exporter);
 
9
use base qw(DynaLoader);
 
10
require EST_Item;
 
11
require EST_Relation;
 
12
package EST_Utterancec;
 
13
bootstrap EST_Utterance;
 
14
package EST_Utterance;
 
15
@EXPORT = qw();
 
16
 
 
17
# ---------- BASE METHODS -------------
 
18
 
 
19
package EST_Utterance;
 
20
 
 
21
sub TIEHASH {
 
22
    my ($classname,$obj) = @_;
 
23
    return bless $obj, $classname;
 
24
}
 
25
 
 
26
sub CLEAR { }
 
27
 
 
28
sub FIRSTKEY { }
 
29
 
 
30
sub NEXTKEY { }
 
31
 
 
32
sub FETCH {
 
33
    my ($self,$field) = @_;
 
34
    my $member_func = "swig_${field}_get";
 
35
    $self->$member_func();
 
36
}
 
37
 
 
38
sub STORE {
 
39
    my ($self,$field,$newval) = @_;
 
40
    my $member_func = "swig_${field}_set";
 
41
    $self->$member_func($newval);
 
42
}
 
43
 
 
44
sub this {
 
45
    my $ptr = shift;
 
46
    return tied(%$ptr);
 
47
}
 
48
 
 
49
 
 
50
# ------- FUNCTION WRAPPERS --------
 
51
 
 
52
package EST_Utterance;
 
53
 
 
54
*utterance_merge = *EST_Utterancec::utterance_merge;
 
55
*sub_utterance = *EST_Utterancec::sub_utterance;
 
56
*get_utt = *EST_Utterancec::get_utt;
 
57
 
 
58
############# Class : EST_Utterance::EST_Utterance ##############
 
59
 
 
60
package EST_Utterance::EST_Utterance;
 
61
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
 
62
@ISA = qw( EST_Utterance );
 
63
%OWNER = ();
 
64
%ITERATORS = ();
 
65
sub new {
 
66
    my $pkg = shift;
 
67
    my $self = EST_Utterancec::new_EST_Utterance(@_);
 
68
    bless $self, $pkg if defined($self);
 
69
}
 
70
 
 
71
sub DESTROY {
 
72
    return unless $_[0]->isa('HASH');
 
73
    my $self = tied(%{$_[0]});
 
74
    return unless defined $self;
 
75
    delete $ITERATORS{$self};
 
76
    if (exists $OWNER{$self}) {
 
77
        EST_Utterancec::delete_EST_Utterance($self);
 
78
        delete $OWNER{$self};
 
79
    }
 
80
}
 
81
 
 
82
*init = *EST_Utterancec::EST_Utterance_init;
 
83
*clear = *EST_Utterancec::EST_Utterance_clear;
 
84
*clear_relations = *EST_Utterancec::EST_Utterance_clear_relations;
 
85
*set_highest_id = *EST_Utterancec::EST_Utterance_set_highest_id;
 
86
*next_id = *EST_Utterancec::EST_Utterance_next_id;
 
87
*load = *EST_Utterancec::EST_Utterance_load;
 
88
*save = *EST_Utterancec::EST_Utterance_save;
 
89
*evaluate_all_features = *EST_Utterancec::EST_Utterance_evaluate_all_features;
 
90
*num_relations = *EST_Utterancec::EST_Utterance_num_relations;
 
91
*relation_present = *EST_Utterancec::EST_Utterance_relation_present;
 
92
*relation = *EST_Utterancec::EST_Utterance_relation;
 
93
*id = *EST_Utterancec::EST_Utterance_id;
 
94
*create_relation = *EST_Utterancec::EST_Utterance_create_relation;
 
95
*remove_relation = *EST_Utterancec::EST_Utterance_remove_relation;
 
96
*sub_utterance = *EST_Utterancec::EST_Utterance_sub_utterance;
 
97
sub DISOWN {
 
98
    my $self = shift;
 
99
    my $ptr = tied(%$self);
 
100
    delete $OWNER{$ptr};
 
101
}
 
102
 
 
103
sub ACQUIRE {
 
104
    my $self = shift;
 
105
    my $ptr = tied(%$self);
 
106
    $OWNER{$ptr} = 1;
 
107
}
 
108
 
 
109
 
 
110
# ------- VARIABLE STUBS --------
 
111
 
 
112
package EST_Utterance;
 
113
 
 
114
1;