1# This file was automatically generated by SWIG
2package YamCha;
3require Exporter;
4require DynaLoader;
5@ISA = qw(Exporter DynaLoader);
6package YamChac;
7bootstrap YamCha;
8package YamCha;
9@EXPORT = qw( );
10
11# ---------- BASE METHODS -------------
12
13package YamCha;
14
15sub TIEHASH {
16    my ($classname,$obj) = @_;
17    return bless $obj, $classname;
18}
19
20sub CLEAR { }
21
22sub FIRSTKEY { }
23
24sub NEXTKEY { }
25
26sub FETCH {
27    my ($self,$field) = @_;
28    my $member_func = "swig_${field}_get";
29    $self->$member_func();
30}
31
32sub STORE {
33    my ($self,$field,$newval) = @_;
34    my $member_func = "swig_${field}_set";
35    $self->$member_func($newval);
36}
37
38sub this {
39    my $ptr = shift;
40    return tied(%$ptr);
41}
42
43
44# ------- FUNCTION WRAPPERS --------
45
46package YamCha;
47
48
49############# Class : YamCha::Chunker ##############
50
51package YamCha::Chunker;
52@ISA = qw( YamCha );
53%OWNER = ();
54%ITERATORS = ();
55sub new {
56    my $pkg = shift;
57    my $self = YamChac::new_Chunker(@_);
58    bless $self, $pkg if defined($self);
59}
60
61sub DESTROY {
62    return unless $_[0]->isa('HASH');
63    my $self = tied(%{$_[0]});
64    return unless defined $self;
65    delete $ITERATORS{$self};
66    if (exists $OWNER{$self}) {
67        YamChac::delete_Chunker($self);
68        delete $OWNER{$self};
69    }
70}
71
72*parse = *YamChac::Chunker_parse;
73*parseToString = *YamChac::Chunker_parseToString;
74sub DISOWN {
75    my $self = shift;
76    my $ptr = tied(%$self);
77    delete $OWNER{$ptr};
78}
79
80sub ACQUIRE {
81    my $self = shift;
82    my $ptr = tied(%$self);
83    $OWNER{$ptr} = 1;
84}
85
86
87# ------- VARIABLE STUBS --------
88
89package YamCha;
90
911;
92