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 6package netpgpperl; 7require Exporter; 8require DynaLoader; 9@ISA = qw(Exporter DynaLoader); 10package netpgpperlc; 11bootstrap netpgpperl; 12package netpgpperl; 13@EXPORT = qw( ); 14 15# ---------- BASE METHODS ------------- 16 17package netpgpperl; 18 19sub TIEHASH { 20 my ($classname,$obj) = @_; 21 return bless $obj, $classname; 22} 23 24sub CLEAR { } 25 26sub FIRSTKEY { } 27 28sub NEXTKEY { } 29 30sub FETCH { 31 my ($self,$field) = @_; 32 my $member_func = "swig_${field}_get"; 33 $self->$member_func(); 34} 35 36sub STORE { 37 my ($self,$field,$newval) = @_; 38 my $member_func = "swig_${field}_set"; 39 $self->$member_func($newval); 40} 41 42sub this { 43 my $ptr = shift; 44 return tied(%$ptr); 45} 46 47 48# ------- FUNCTION WRAPPERS -------- 49 50package 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 83package netpgpperl::netpgp_t; 84use 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; 104sub new { 105 my $pkg = shift; 106 my $self = netpgpperlc::new_netpgp_t(@_); 107 bless $self, $pkg if defined($self); 108} 109 110sub 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 121sub DISOWN { 122 my $self = shift; 123 my $ptr = tied(%$self); 124 delete $OWNER{$ptr}; 125} 126 127sub ACQUIRE { 128 my $self = shift; 129 my $ptr = tied(%$self); 130 $OWNER{$ptr} = 1; 131} 132 133 134# ------- VARIABLE STUBS -------- 135 136package netpgpperl; 137 1381; 139