git.gag.com Git - debian/amanda/blob - perl/Amanda/Tapefile.pm

   1 # This file was automatically generated by SWIG (http://www.swig.org).
   2 # Version 1.3.33
   3 #
   4 # Don't modify this file, modify the SWIG interface instead.
   5
   6 package Amanda::Tapefile;
   7 require Exporter;
   8 require DynaLoader;
   9 @ISA = qw(Exporter DynaLoader);
  10 package Amanda::Tapefilec;
  11 bootstrap Amanda::Tapefile;
  12 package Amanda::Tapefile;
  13 @EXPORT = qw( );
  14
  15 # ---------- BASE METHODS -------------
  16
  17 package Amanda::Tapefile;
  18
  19 sub TIEHASH {
  20     my ($classname,$obj) = @_;
  21     return bless $obj, $classname;
  22 }
  23
  24 sub CLEAR { }
  25
  26 sub FIRSTKEY { }
  27
  28 sub NEXTKEY { }
  29
  30 sub FETCH {
  31     my ($self,$field) = @_;
  32     my $member_func = "swig_${field}_get";
  33     $self->$member_func();
  34 }
  35
  36 sub STORE {
  37     my ($self,$field,$newval) = @_;
  38     my $member_func = "swig_${field}_set";
  39     $self->$member_func($newval);
  40 }
  41
  42 sub this {
  43     my $ptr = shift;
  44     return tied(%$ptr);
  45 }
  46
  47
  48 # ------- FUNCTION WRAPPERS --------
  49
  50 package Amanda::Tapefile;
  51
  52 *read_tapelist = *Amanda::Tapefilec::read_tapelist;
  53
  54 # ------- VARIABLE STUBS --------
  55
  56 package Amanda::Tapefile;
  57
  58
  59 @EXPORT_OK = ();
  60 %EXPORT_TAGS = ();
  61
  62 =head1 NAME
  63
  64 Amanda::Tapefile - temporary hack
  65
  66 =head1 HACK?
  67
  68 Yeah, this is just here to make Amanda::Logfile usable.  This module
  69 wil become Amanda::Tapelist in the next release.
  70
  71 =cut
  72 1;