← Back to branch summary

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

« back to all changes in this revision

Viewing changes to wrappers/perl5/EST_Item.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_Item.pm
 
1
# This file was automatically generated by SWIG
 
2
package EST_Item;
 
3
require Exporter;
 
4
require DynaLoader;
 
5
@ISA = qw(Exporter DynaLoader);
 
6
package EST_Itemc;
 
7
bootstrap EST_Item;
 
8
package EST_Item;
 
9
@EXPORT = qw( );
 
10
 
 
11
# ---------- BASE METHODS -------------
 
12
 
 
13
package EST_Item;
 
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_Item;
 
47
 
 
48
*as = *EST_Itemc::as;
 
49
*next_item = *EST_Itemc::next_item;
 
50
*first_leaf = *EST_Itemc::first_leaf;
 
51
*last_leaf = *EST_Itemc::last_leaf;
 
52
*next_leaf = *EST_Itemc::next_leaf;
 
53
*num_leaves = *EST_Itemc::num_leaves;
 
54
*remove_item = *EST_Itemc::remove_item;
 
55
*copy_node_tree = *EST_Itemc::copy_node_tree;
 
56
*copy_node_tree_contents = *EST_Itemc::copy_node_tree_contents;
 
57
*item_jump = *EST_Itemc::item_jump;
 
58
 
 
59
############# Class : EST_Item::EST_Item ##############
 
60
 
 
61
package EST_Item::EST_Item;
 
62
@ISA = qw( EST_Item );
 
63
%OWNER = ();
 
64
%ITERATORS = ();
 
65
sub new {
 
66
    my $pkg = shift;
 
67
    my $self = EST_Itemc::new_EST_Item(@_);
 
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_Itemc::delete_EST_Item($self);
 
78
        delete $OWNER{$self};
 
79
    }
 
80
}
 
81
 
 
82
*F = *EST_Itemc::EST_Item_F;
 
83
*S = *EST_Itemc::EST_Item_S;
 
84
*I = *EST_Itemc::EST_Item_I;
 
85
*A = *EST_Itemc::EST_Item_A;
 
86
*set = *EST_Itemc::EST_Item_set;
 
87
*set_function = *EST_Itemc::EST_Item_set_function;
 
88
*f_remove = *EST_Itemc::EST_Item_f_remove;
 
89
*evaluate_features = *EST_Itemc::EST_Item_evaluate_features;
 
90
*f_present = *EST_Itemc::EST_Item_f_present;
 
91
*length = *EST_Itemc::EST_Item_length;
 
92
*as_relation = *EST_Itemc::EST_Item_as_relation;
 
93
*in_relation = *EST_Itemc::EST_Item_in_relation;
 
94
*relation_name = *EST_Itemc::EST_Item_relation_name;
 
95
*relation = *EST_Itemc::EST_Item_relation;
 
96
*same_item = *EST_Itemc::EST_Item_same_item;
 
97
*unref_all = *EST_Itemc::EST_Item_unref_all;
 
98
*prepend_daughter = *EST_Itemc::EST_Item_prepend_daughter;
 
99
*append_daughter = *EST_Itemc::EST_Item_append_daughter;
 
100
*daughter1 = *EST_Itemc::EST_Item_daughter1;
 
101
*daughtern = *EST_Itemc::EST_Item_daughtern;
 
102
*next_sibling = *EST_Itemc::EST_Item_next_sibling;
 
103
*prev_sibling = *EST_Itemc::EST_Item_prev_sibling;
 
104
*parent = *EST_Itemc::EST_Item_parent;
 
105
*features = *EST_Itemc::EST_Item_features;
 
106
sub DISOWN {
 
107
    my $self = shift;
 
108
    my $ptr = tied(%$self);
 
109
    delete $OWNER{$ptr};
 
110
}
 
111
 
 
112
sub ACQUIRE {
 
113
    my $self = shift;
 
114
    my $ptr = tied(%$self);
 
115
    $OWNER{$ptr} = 1;
 
116
}
 
117
 
 
118
 
 
119
# ------- VARIABLE STUBS --------
 
120
 
 
121
package EST_Item;
 
122
 
 
123
1;