netpgpperl.pm revision 1.1 
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_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
76package netpgpperl::netpgp_t;
77use 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;
97sub new {
98    my $pkg = shift;
99    my $self = netpgpperlc::new_netpgp_t(@_);
100    bless $self, $pkg if defined($self);
101}
102
103sub 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
114sub DISOWN {
115    my $self = shift;
116    my $ptr = tied(%$self);
117    delete $OWNER{$ptr};
118}
119
120sub ACQUIRE {
121    my $self = shift;
122    my $ptr = tied(%$self);
123    $OWNER{$ptr} = 1;
124}
125
126
127# ------- VARIABLE STUBS --------
128
129package netpgpperl;
130
1311;
132