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