crypto/external/bsd/netpgp/dist/bindings/perl/netpgpperl.pm

   1 # This file was automatically generated by SWIG (http://www.swig.org).
   2 # Version 1.3.31
   3 #
   4 # Don't modify this file, modify the SWIG interface instead.
   5
   6 package netpgpperl;
   7 require Exporter;
   8 require DynaLoader;
   9 @ISA = qw(Exporter DynaLoader);
  10 package netpgpperlc;
  11 bootstrap netpgpperl;
  12 package netpgpperl;
  13 @EXPORT = qw( );
  14
  15 # ---------- BASE METHODS -------------
  16
  17 package netpgpperl;
  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 netpgpperl;
  51
  52 *netpgp_init = *netpgpperlc::netpgp_init;
  53 *netpgp_end = *netpgpperlc::netpgp_end;
  54 *netpgp_set_debug = *netpgpperlc::netpgp_set_debug;
  55 *netpgp_get_debug = *netpgpperlc::netpgp_get_debug;
  56 *netpgp_get_info = *netpgpperlc::netpgp_get_info;
  57 *netpgp_list_packets = *netpgpperlc::netpgp_list_packets;
  58 *netpgp_setvar = *netpgpperlc::netpgp_setvar;
  59 *netpgp_getvar = *netpgpperlc::netpgp_getvar;
  60 *netpgp_list_keys = *netpgpperlc::netpgp_list_keys;
  61 *netpgp_list_sigs = *netpgpperlc::netpgp_list_sigs;
  62 *netpgp_find_key = *netpgpperlc::netpgp_find_key;
  63 *netpgp_get_key = *netpgpperlc::netpgp_get_key;
  64 *netpgp_export_key = *netpgpperlc::netpgp_export_key;
  65 *netpgp_import_key = *netpgpperlc::netpgp_import_key;
  66 *netpgp_generate_key = *netpgpperlc::netpgp_generate_key;
  67 *netpgp_encrypt_file = *netpgpperlc::netpgp_encrypt_file;
  68 *netpgp_decrypt_file = *netpgpperlc::netpgp_decrypt_file;
  69 *netpgp_sign_file = *netpgpperlc::netpgp_sign_file;
  70 *netpgp_verify_file = *netpgpperlc::netpgp_verify_file;
  71 *netpgp_sign_memory = *netpgpperlc::netpgp_sign_memory;
  72 *netpgp_verify_memory = *netpgpperlc::netpgp_verify_memory;
  73
  74 ############# Class : netpgpperl::netpgp_t ##############
  75
  76 package netpgpperl::netpgp_t;
  77 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  78 @ISA = qw( netpgpperl );
  79 %OWNER = ();
  80 %ITERATORS = ();
  81 *swig_c_get = *netpgpperlc::netpgp_t_c_get;
  82 *swig_c_set = *netpgpperlc::netpgp_t_c_set;
  83 *swig_size_get = *netpgpperlc::netpgp_t_size_get;
  84 *swig_size_set = *netpgpperlc::netpgp_t_size_set;
  85 *swig_name_get = *netpgpperlc::netpgp_t_name_get;
  86 *swig_name_set = *netpgpperlc::netpgp_t_name_set;
  87 *swig_value_get = *netpgpperlc::netpgp_t_value_get;
  88 *swig_value_set = *netpgpperlc::netpgp_t_value_set;
  89 *swig_pubring_get = *netpgpperlc::netpgp_t_pubring_get;
  90 *swig_pubring_set = *netpgpperlc::netpgp_t_pubring_set;
  91 *swig_secring_get = *netpgpperlc::netpgp_t_secring_get;
  92 *swig_secring_set = *netpgpperlc::netpgp_t_secring_set;
  93 *swig_io_get = *netpgpperlc::netpgp_t_io_get;
  94 *swig_io_set = *netpgpperlc::netpgp_t_io_set;
  95 *swig_passfp_get = *netpgpperlc::netpgp_t_passfp_get;
  96 *swig_passfp_set = *netpgpperlc::netpgp_t_passfp_set;
  97 sub new {
  98     my $pkg = shift;
  99     my $self = netpgpperlc::new_netpgp_t(@_);
 100     bless $self, $pkg if defined($self);
 101 }
 102
 103 sub DESTROY {
 104     return unless $_[0]->isa('HASH');
 105     my $self = tied(%{$_[0]});
 106     return unless defined $self;
 107     delete $ITERATORS{$self};
 108     if (exists $OWNER{$self}) {
 109         netpgpperlc::delete_netpgp_t($self);
 110         delete $OWNER{$self};
 111     }
 112 }
 113
 114 sub DISOWN {
 115     my $self = shift;
 116     my $ptr = tied(%$self);
 117     delete $OWNER{$ptr};
 118 }
 119
 120 sub ACQUIRE {
 121     my $self = shift;
 122     my $ptr = tied(%$self);
 123     $OWNER{$ptr} = 1;
 124 }
 125
 126
 127 # ------- VARIABLE STUBS --------
 128
 129 package netpgpperl;
 130
 131 1;