Home | History | Annotate | Line # | Download | only in perl 
      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_incvar = *netpgpperlc::netpgp_incvar;
     61 *netpgp_unsetvar = *netpgpperlc::netpgp_unsetvar;
     62 *netpgp_set_homedir = *netpgpperlc::netpgp_set_homedir;
     63 *netpgp_list_keys = *netpgpperlc::netpgp_list_keys;
     64 *netpgp_find_key = *netpgpperlc::netpgp_find_key;
     65 *netpgp_get_key = *netpgpperlc::netpgp_get_key;
     66 *netpgp_export_key = *netpgpperlc::netpgp_export_key;
     67 *netpgp_import_key = *netpgpperlc::netpgp_import_key;
     68 *netpgp_generate_key = *netpgpperlc::netpgp_generate_key;
     69 *netpgp_encrypt_file = *netpgpperlc::netpgp_encrypt_file;
     70 *netpgp_decrypt_file = *netpgpperlc::netpgp_decrypt_file;
     71 *netpgp_sign_file = *netpgpperlc::netpgp_sign_file;
     72 *netpgp_verify_file = *netpgpperlc::netpgp_verify_file;
     73 *netpgp_sign_memory = *netpgpperlc::netpgp_sign_memory;
     74 *netpgp_verify_memory = *netpgpperlc::netpgp_verify_memory;
     75 *netpgp_encrypt_memory = *netpgpperlc::netpgp_encrypt_memory;
     76 *netpgp_decrypt_memory = *netpgpperlc::netpgp_decrypt_memory;
     77 *netpgp_match_keys = *netpgpperlc::netpgp_match_keys;
     78 *netpgp_match_pubkeys = *netpgpperlc::netpgp_match_pubkeys;
     79 *netpgp_validate_sigs = *netpgpperlc::netpgp_validate_sigs;
     80 
     81 ############# Class : netpgpperl::netpgp_t ##############
     82 
     83 package netpgpperl::netpgp_t;
     84 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
     85 @ISA = qw( netpgpperl );
     86 %OWNER = ();
     87 %ITERATORS = ();
     88 *swig_c_get = *netpgpperlc::netpgp_t_c_get;
     89 *swig_c_set = *netpgpperlc::netpgp_t_c_set;
     90 *swig_size_get = *netpgpperlc::netpgp_t_size_get;
     91 *swig_size_set = *netpgpperlc::netpgp_t_size_set;
     92 *swig_name_get = *netpgpperlc::netpgp_t_name_get;
     93 *swig_name_set = *netpgpperlc::netpgp_t_name_set;
     94 *swig_value_get = *netpgpperlc::netpgp_t_value_get;
     95 *swig_value_set = *netpgpperlc::netpgp_t_value_set;
     96 *swig_pubring_get = *netpgpperlc::netpgp_t_pubring_get;
     97 *swig_pubring_set = *netpgpperlc::netpgp_t_pubring_set;
     98 *swig_secring_get = *netpgpperlc::netpgp_t_secring_get;
     99 *swig_secring_set = *netpgpperlc::netpgp_t_secring_set;
    100 *swig_io_get = *netpgpperlc::netpgp_t_io_get;
    101 *swig_io_set = *netpgpperlc::netpgp_t_io_set;
    102 *swig_passfp_get = *netpgpperlc::netpgp_t_passfp_get;
    103 *swig_passfp_set = *netpgpperlc::netpgp_t_passfp_set;
    104 sub new {
    105     my $pkg = shift;
    106     my $self = netpgpperlc::new_netpgp_t(@_);
    107     bless $self, $pkg if defined($self);
    108 }
    109 
    110 sub DESTROY {
    111     return unless $_[0]->isa('HASH');
    112     my $self = tied(%{$_[0]});
    113     return unless defined $self;
    114     delete $ITERATORS{$self};
    115     if (exists $OWNER{$self}) {
    116         netpgpperlc::delete_netpgp_t($self);
    117         delete $OWNER{$self};
    118     }
    119 }
    120 
    121 sub DISOWN {
    122     my $self = shift;
    123     my $ptr = tied(%$self);
    124     delete $OWNER{$ptr};
    125 }
    126 
    127 sub ACQUIRE {
    128     my $self = shift;
    129     my $ptr = tied(%$self);
    130     $OWNER{$ptr} = 1;
    131 }
    132 
    133 
    134 # ------- VARIABLE STUBS --------
    135 
    136 package netpgpperl;
    137 
    138 1;
    139