1 # This file was automatically generated by SWIG (http://www.swig.org).
4 # Don't modify this file, modify the SWIG interface instead.
6 package Amanda::Tapefile;
9 @ISA = qw(Exporter DynaLoader);
10 package Amanda::Tapefilec;
11 bootstrap Amanda::Tapefile;
12 package Amanda::Tapefile;
15 # ---------- BASE METHODS -------------
17 package Amanda::Tapefile;
20 my ($classname,$obj) = @_;
21 return bless $obj, $classname;
31 my ($self,$field) = @_;
32 my $member_func = "swig_${field}_get";
33 $self->$member_func();
37 my ($self,$field,$newval) = @_;
38 my $member_func = "swig_${field}_set";
39 $self->$member_func($newval);
48 # ------- FUNCTION WRAPPERS --------
50 package Amanda::Tapefile;
52 *read_tapelist = *Amanda::Tapefilec::read_tapelist;
54 # ------- VARIABLE STUBS --------
56 package Amanda::Tapefile;