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