|
1 # This file was automatically generated by SWIG (http://www.swig.org). |
|
2 # Version 1.3.35 |
|
3 # |
|
4 # Don't modify this file, modify the SWIG interface instead. |
|
5 |
|
6 package dtnapi; |
|
7 require Exporter; |
|
8 require DynaLoader; |
|
9 @ISA = qw(Exporter DynaLoader); |
|
10 package dtnapic; |
|
11 bootstrap dtnapi; |
|
12 package dtnapi; |
|
13 @EXPORT = qw( ); |
|
14 |
|
15 # ---------- BASE METHODS ------------- |
|
16 |
|
17 package dtnapi; |
|
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 dtnapi; |
|
51 |
|
52 *xdr_dtn_endpoint_id_t = *dtnapic::xdr_dtn_endpoint_id_t; |
|
53 *xdr_dtn_reg_id_t = *dtnapic::xdr_dtn_reg_id_t; |
|
54 *xdr_dtn_timeval_t = *dtnapic::xdr_dtn_timeval_t; |
|
55 *xdr_dtn_timestamp_t = *dtnapic::xdr_dtn_timestamp_t; |
|
56 *xdr_dtn_service_tag_t = *dtnapic::xdr_dtn_service_tag_t; |
|
57 *xdr_dtn_reg_flags_t = *dtnapic::xdr_dtn_reg_flags_t; |
|
58 *xdr_dtn_reg_info_t = *dtnapic::xdr_dtn_reg_info_t; |
|
59 *xdr_dtn_bundle_priority_t = *dtnapic::xdr_dtn_bundle_priority_t; |
|
60 *xdr_dtn_bundle_delivery_opts_t = *dtnapic::xdr_dtn_bundle_delivery_opts_t; |
|
61 *xdr_dtn_extension_block_flags_t = *dtnapic::xdr_dtn_extension_block_flags_t; |
|
62 *xdr_dtn_extension_block_t = *dtnapic::xdr_dtn_extension_block_t; |
|
63 *xdr_dtn_sequence_id_t = *dtnapic::xdr_dtn_sequence_id_t; |
|
64 *xdr_dtn_bundle_spec_t = *dtnapic::xdr_dtn_bundle_spec_t; |
|
65 *xdr_dtn_bundle_id_t = *dtnapic::xdr_dtn_bundle_id_t; |
|
66 *xdr_dtn_status_report_reason_t = *dtnapic::xdr_dtn_status_report_reason_t; |
|
67 *xdr_dtn_status_report_flags_t = *dtnapic::xdr_dtn_status_report_flags_t; |
|
68 *xdr_dtn_bundle_status_report_t = *dtnapic::xdr_dtn_bundle_status_report_t; |
|
69 *xdr_dtn_bundle_payload_location_t = *dtnapic::xdr_dtn_bundle_payload_location_t; |
|
70 *xdr_dtn_bundle_payload_t = *dtnapic::xdr_dtn_bundle_payload_t; |
|
71 *dtn_strerror = *dtnapic::dtn_strerror; |
|
72 *dtn_open = *dtnapic::dtn_open; |
|
73 *find_handle = *dtnapic::find_handle; |
|
74 *dtn_close = *dtnapic::dtn_close; |
|
75 *dtn_errno = *dtnapic::dtn_errno; |
|
76 *dtn_build_local_eid = *dtnapic::dtn_build_local_eid; |
|
77 *build_reginfo = *dtnapic::build_reginfo; |
|
78 *dtn_register = *dtnapic::dtn_register; |
|
79 *dtn_unregister = *dtnapic::dtn_unregister; |
|
80 *dtn_find_registration = *dtnapic::dtn_find_registration; |
|
81 *dtn_change_registration = *dtnapic::dtn_change_registration; |
|
82 *dtn_bind = *dtnapic::dtn_bind; |
|
83 *dtn_unbind = *dtnapic::dtn_unbind; |
|
84 *dtn_send = *dtnapic::dtn_send; |
|
85 *dtn_cancel = *dtnapic::dtn_cancel; |
|
86 *dtn_status_report_reason_to_str = *dtnapic::dtn_status_report_reason_to_str; |
|
87 *dtn_recv = *dtnapic::dtn_recv; |
|
88 *dtn_session_update = *dtnapic::dtn_session_update; |
|
89 *dtn_poll_fd = *dtnapic::dtn_poll_fd; |
|
90 *dtn_begin_poll = *dtnapic::dtn_begin_poll; |
|
91 *dtn_cancel_poll = *dtnapic::dtn_cancel_poll; |
|
92 |
|
93 ############# Class : dtnapi::dtn_endpoint_id_t ############## |
|
94 |
|
95 package dtnapi::dtn_endpoint_id_t; |
|
96 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
97 @ISA = qw( dtnapi ); |
|
98 %OWNER = (); |
|
99 %ITERATORS = (); |
|
100 *swig_uri_get = *dtnapic::dtn_endpoint_id_t_uri_get; |
|
101 *swig_uri_set = *dtnapic::dtn_endpoint_id_t_uri_set; |
|
102 sub new { |
|
103 my $pkg = shift; |
|
104 my $self = dtnapic::new_dtn_endpoint_id_t(@_); |
|
105 bless $self, $pkg if defined($self); |
|
106 } |
|
107 |
|
108 sub DESTROY { |
|
109 return unless $_[0]->isa('HASH'); |
|
110 my $self = tied(%{$_[0]}); |
|
111 return unless defined $self; |
|
112 delete $ITERATORS{$self}; |
|
113 if (exists $OWNER{$self}) { |
|
114 dtnapic::delete_dtn_endpoint_id_t($self); |
|
115 delete $OWNER{$self}; |
|
116 } |
|
117 } |
|
118 |
|
119 sub DISOWN { |
|
120 my $self = shift; |
|
121 my $ptr = tied(%$self); |
|
122 delete $OWNER{$ptr}; |
|
123 } |
|
124 |
|
125 sub ACQUIRE { |
|
126 my $self = shift; |
|
127 my $ptr = tied(%$self); |
|
128 $OWNER{$ptr} = 1; |
|
129 } |
|
130 |
|
131 |
|
132 ############# Class : dtnapi::dtn_timestamp_t ############## |
|
133 |
|
134 package dtnapi::dtn_timestamp_t; |
|
135 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
136 @ISA = qw( dtnapi ); |
|
137 %OWNER = (); |
|
138 %ITERATORS = (); |
|
139 *swig_secs_get = *dtnapic::dtn_timestamp_t_secs_get; |
|
140 *swig_secs_set = *dtnapic::dtn_timestamp_t_secs_set; |
|
141 *swig_seqno_get = *dtnapic::dtn_timestamp_t_seqno_get; |
|
142 *swig_seqno_set = *dtnapic::dtn_timestamp_t_seqno_set; |
|
143 sub new { |
|
144 my $pkg = shift; |
|
145 my $self = dtnapic::new_dtn_timestamp_t(@_); |
|
146 bless $self, $pkg if defined($self); |
|
147 } |
|
148 |
|
149 sub DESTROY { |
|
150 return unless $_[0]->isa('HASH'); |
|
151 my $self = tied(%{$_[0]}); |
|
152 return unless defined $self; |
|
153 delete $ITERATORS{$self}; |
|
154 if (exists $OWNER{$self}) { |
|
155 dtnapic::delete_dtn_timestamp_t($self); |
|
156 delete $OWNER{$self}; |
|
157 } |
|
158 } |
|
159 |
|
160 sub DISOWN { |
|
161 my $self = shift; |
|
162 my $ptr = tied(%$self); |
|
163 delete $OWNER{$ptr}; |
|
164 } |
|
165 |
|
166 sub ACQUIRE { |
|
167 my $self = shift; |
|
168 my $ptr = tied(%$self); |
|
169 $OWNER{$ptr} = 1; |
|
170 } |
|
171 |
|
172 |
|
173 ############# Class : dtnapi::dtn_service_tag_t ############## |
|
174 |
|
175 package dtnapi::dtn_service_tag_t; |
|
176 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
177 @ISA = qw( dtnapi ); |
|
178 %OWNER = (); |
|
179 %ITERATORS = (); |
|
180 *swig_tag_get = *dtnapic::dtn_service_tag_t_tag_get; |
|
181 *swig_tag_set = *dtnapic::dtn_service_tag_t_tag_set; |
|
182 sub new { |
|
183 my $pkg = shift; |
|
184 my $self = dtnapic::new_dtn_service_tag_t(@_); |
|
185 bless $self, $pkg if defined($self); |
|
186 } |
|
187 |
|
188 sub DESTROY { |
|
189 return unless $_[0]->isa('HASH'); |
|
190 my $self = tied(%{$_[0]}); |
|
191 return unless defined $self; |
|
192 delete $ITERATORS{$self}; |
|
193 if (exists $OWNER{$self}) { |
|
194 dtnapic::delete_dtn_service_tag_t($self); |
|
195 delete $OWNER{$self}; |
|
196 } |
|
197 } |
|
198 |
|
199 sub DISOWN { |
|
200 my $self = shift; |
|
201 my $ptr = tied(%$self); |
|
202 delete $OWNER{$ptr}; |
|
203 } |
|
204 |
|
205 sub ACQUIRE { |
|
206 my $self = shift; |
|
207 my $ptr = tied(%$self); |
|
208 $OWNER{$ptr} = 1; |
|
209 } |
|
210 |
|
211 |
|
212 ############# Class : dtnapi::dtn_reg_info_t ############## |
|
213 |
|
214 package dtnapi::dtn_reg_info_t; |
|
215 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
216 @ISA = qw( dtnapi ); |
|
217 %OWNER = (); |
|
218 %ITERATORS = (); |
|
219 *swig_endpoint_get = *dtnapic::dtn_reg_info_t_endpoint_get; |
|
220 *swig_endpoint_set = *dtnapic::dtn_reg_info_t_endpoint_set; |
|
221 *swig_regid_get = *dtnapic::dtn_reg_info_t_regid_get; |
|
222 *swig_regid_set = *dtnapic::dtn_reg_info_t_regid_set; |
|
223 *swig_flags_get = *dtnapic::dtn_reg_info_t_flags_get; |
|
224 *swig_flags_set = *dtnapic::dtn_reg_info_t_flags_set; |
|
225 *swig_expiration_get = *dtnapic::dtn_reg_info_t_expiration_get; |
|
226 *swig_expiration_set = *dtnapic::dtn_reg_info_t_expiration_set; |
|
227 *swig_init_passive_get = *dtnapic::dtn_reg_info_t_init_passive_get; |
|
228 *swig_init_passive_set = *dtnapic::dtn_reg_info_t_init_passive_set; |
|
229 *swig_script_get = *dtnapic::dtn_reg_info_t_script_get; |
|
230 *swig_script_set = *dtnapic::dtn_reg_info_t_script_set; |
|
231 sub new { |
|
232 my $pkg = shift; |
|
233 my $self = dtnapic::new_dtn_reg_info_t(@_); |
|
234 bless $self, $pkg if defined($self); |
|
235 } |
|
236 |
|
237 sub DESTROY { |
|
238 return unless $_[0]->isa('HASH'); |
|
239 my $self = tied(%{$_[0]}); |
|
240 return unless defined $self; |
|
241 delete $ITERATORS{$self}; |
|
242 if (exists $OWNER{$self}) { |
|
243 dtnapic::delete_dtn_reg_info_t($self); |
|
244 delete $OWNER{$self}; |
|
245 } |
|
246 } |
|
247 |
|
248 sub DISOWN { |
|
249 my $self = shift; |
|
250 my $ptr = tied(%$self); |
|
251 delete $OWNER{$ptr}; |
|
252 } |
|
253 |
|
254 sub ACQUIRE { |
|
255 my $self = shift; |
|
256 my $ptr = tied(%$self); |
|
257 $OWNER{$ptr} = 1; |
|
258 } |
|
259 |
|
260 |
|
261 ############# Class : dtnapi::dtn_reg_info_t_script ############## |
|
262 |
|
263 package dtnapi::dtn_reg_info_t_script; |
|
264 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
265 @ISA = qw( dtnapi ); |
|
266 %OWNER = (); |
|
267 %ITERATORS = (); |
|
268 *swig_script_len_get = *dtnapic::dtn_reg_info_t_script_script_len_get; |
|
269 *swig_script_len_set = *dtnapic::dtn_reg_info_t_script_script_len_set; |
|
270 *swig_script_val_get = *dtnapic::dtn_reg_info_t_script_script_val_get; |
|
271 *swig_script_val_set = *dtnapic::dtn_reg_info_t_script_script_val_set; |
|
272 sub new { |
|
273 my $pkg = shift; |
|
274 my $self = dtnapic::new_dtn_reg_info_t_script(@_); |
|
275 bless $self, $pkg if defined($self); |
|
276 } |
|
277 |
|
278 sub DESTROY { |
|
279 return unless $_[0]->isa('HASH'); |
|
280 my $self = tied(%{$_[0]}); |
|
281 return unless defined $self; |
|
282 delete $ITERATORS{$self}; |
|
283 if (exists $OWNER{$self}) { |
|
284 dtnapic::delete_dtn_reg_info_t_script($self); |
|
285 delete $OWNER{$self}; |
|
286 } |
|
287 } |
|
288 |
|
289 sub DISOWN { |
|
290 my $self = shift; |
|
291 my $ptr = tied(%$self); |
|
292 delete $OWNER{$ptr}; |
|
293 } |
|
294 |
|
295 sub ACQUIRE { |
|
296 my $self = shift; |
|
297 my $ptr = tied(%$self); |
|
298 $OWNER{$ptr} = 1; |
|
299 } |
|
300 |
|
301 |
|
302 ############# Class : dtnapi::dtn_extension_block_t ############## |
|
303 |
|
304 package dtnapi::dtn_extension_block_t; |
|
305 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
306 @ISA = qw( dtnapi ); |
|
307 %OWNER = (); |
|
308 %ITERATORS = (); |
|
309 *swig_type_get = *dtnapic::dtn_extension_block_t_type_get; |
|
310 *swig_type_set = *dtnapic::dtn_extension_block_t_type_set; |
|
311 *swig_flags_get = *dtnapic::dtn_extension_block_t_flags_get; |
|
312 *swig_flags_set = *dtnapic::dtn_extension_block_t_flags_set; |
|
313 *swig_data_get = *dtnapic::dtn_extension_block_t_data_get; |
|
314 *swig_data_set = *dtnapic::dtn_extension_block_t_data_set; |
|
315 sub new { |
|
316 my $pkg = shift; |
|
317 my $self = dtnapic::new_dtn_extension_block_t(@_); |
|
318 bless $self, $pkg if defined($self); |
|
319 } |
|
320 |
|
321 sub DESTROY { |
|
322 return unless $_[0]->isa('HASH'); |
|
323 my $self = tied(%{$_[0]}); |
|
324 return unless defined $self; |
|
325 delete $ITERATORS{$self}; |
|
326 if (exists $OWNER{$self}) { |
|
327 dtnapic::delete_dtn_extension_block_t($self); |
|
328 delete $OWNER{$self}; |
|
329 } |
|
330 } |
|
331 |
|
332 sub DISOWN { |
|
333 my $self = shift; |
|
334 my $ptr = tied(%$self); |
|
335 delete $OWNER{$ptr}; |
|
336 } |
|
337 |
|
338 sub ACQUIRE { |
|
339 my $self = shift; |
|
340 my $ptr = tied(%$self); |
|
341 $OWNER{$ptr} = 1; |
|
342 } |
|
343 |
|
344 |
|
345 ############# Class : dtnapi::dtn_extension_block_t_data ############## |
|
346 |
|
347 package dtnapi::dtn_extension_block_t_data; |
|
348 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
349 @ISA = qw( dtnapi ); |
|
350 %OWNER = (); |
|
351 %ITERATORS = (); |
|
352 *swig_data_len_get = *dtnapic::dtn_extension_block_t_data_data_len_get; |
|
353 *swig_data_len_set = *dtnapic::dtn_extension_block_t_data_data_len_set; |
|
354 *swig_data_val_get = *dtnapic::dtn_extension_block_t_data_data_val_get; |
|
355 *swig_data_val_set = *dtnapic::dtn_extension_block_t_data_data_val_set; |
|
356 sub new { |
|
357 my $pkg = shift; |
|
358 my $self = dtnapic::new_dtn_extension_block_t_data(@_); |
|
359 bless $self, $pkg if defined($self); |
|
360 } |
|
361 |
|
362 sub DESTROY { |
|
363 return unless $_[0]->isa('HASH'); |
|
364 my $self = tied(%{$_[0]}); |
|
365 return unless defined $self; |
|
366 delete $ITERATORS{$self}; |
|
367 if (exists $OWNER{$self}) { |
|
368 dtnapic::delete_dtn_extension_block_t_data($self); |
|
369 delete $OWNER{$self}; |
|
370 } |
|
371 } |
|
372 |
|
373 sub DISOWN { |
|
374 my $self = shift; |
|
375 my $ptr = tied(%$self); |
|
376 delete $OWNER{$ptr}; |
|
377 } |
|
378 |
|
379 sub ACQUIRE { |
|
380 my $self = shift; |
|
381 my $ptr = tied(%$self); |
|
382 $OWNER{$ptr} = 1; |
|
383 } |
|
384 |
|
385 |
|
386 ############# Class : dtnapi::dtn_sequence_id_t ############## |
|
387 |
|
388 package dtnapi::dtn_sequence_id_t; |
|
389 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
390 @ISA = qw( dtnapi ); |
|
391 %OWNER = (); |
|
392 %ITERATORS = (); |
|
393 *swig_data_get = *dtnapic::dtn_sequence_id_t_data_get; |
|
394 *swig_data_set = *dtnapic::dtn_sequence_id_t_data_set; |
|
395 sub new { |
|
396 my $pkg = shift; |
|
397 my $self = dtnapic::new_dtn_sequence_id_t(@_); |
|
398 bless $self, $pkg if defined($self); |
|
399 } |
|
400 |
|
401 sub DESTROY { |
|
402 return unless $_[0]->isa('HASH'); |
|
403 my $self = tied(%{$_[0]}); |
|
404 return unless defined $self; |
|
405 delete $ITERATORS{$self}; |
|
406 if (exists $OWNER{$self}) { |
|
407 dtnapic::delete_dtn_sequence_id_t($self); |
|
408 delete $OWNER{$self}; |
|
409 } |
|
410 } |
|
411 |
|
412 sub DISOWN { |
|
413 my $self = shift; |
|
414 my $ptr = tied(%$self); |
|
415 delete $OWNER{$ptr}; |
|
416 } |
|
417 |
|
418 sub ACQUIRE { |
|
419 my $self = shift; |
|
420 my $ptr = tied(%$self); |
|
421 $OWNER{$ptr} = 1; |
|
422 } |
|
423 |
|
424 |
|
425 ############# Class : dtnapi::dtn_sequence_id_t_data ############## |
|
426 |
|
427 package dtnapi::dtn_sequence_id_t_data; |
|
428 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
429 @ISA = qw( dtnapi ); |
|
430 %OWNER = (); |
|
431 %ITERATORS = (); |
|
432 *swig_data_len_get = *dtnapic::dtn_sequence_id_t_data_data_len_get; |
|
433 *swig_data_len_set = *dtnapic::dtn_sequence_id_t_data_data_len_set; |
|
434 *swig_data_val_get = *dtnapic::dtn_sequence_id_t_data_data_val_get; |
|
435 *swig_data_val_set = *dtnapic::dtn_sequence_id_t_data_data_val_set; |
|
436 sub new { |
|
437 my $pkg = shift; |
|
438 my $self = dtnapic::new_dtn_sequence_id_t_data(@_); |
|
439 bless $self, $pkg if defined($self); |
|
440 } |
|
441 |
|
442 sub DESTROY { |
|
443 return unless $_[0]->isa('HASH'); |
|
444 my $self = tied(%{$_[0]}); |
|
445 return unless defined $self; |
|
446 delete $ITERATORS{$self}; |
|
447 if (exists $OWNER{$self}) { |
|
448 dtnapic::delete_dtn_sequence_id_t_data($self); |
|
449 delete $OWNER{$self}; |
|
450 } |
|
451 } |
|
452 |
|
453 sub DISOWN { |
|
454 my $self = shift; |
|
455 my $ptr = tied(%$self); |
|
456 delete $OWNER{$ptr}; |
|
457 } |
|
458 |
|
459 sub ACQUIRE { |
|
460 my $self = shift; |
|
461 my $ptr = tied(%$self); |
|
462 $OWNER{$ptr} = 1; |
|
463 } |
|
464 |
|
465 |
|
466 ############# Class : dtnapi::dtn_bundle_spec_t ############## |
|
467 |
|
468 package dtnapi::dtn_bundle_spec_t; |
|
469 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
470 @ISA = qw( dtnapi ); |
|
471 %OWNER = (); |
|
472 %ITERATORS = (); |
|
473 *swig_source_get = *dtnapic::dtn_bundle_spec_t_source_get; |
|
474 *swig_source_set = *dtnapic::dtn_bundle_spec_t_source_set; |
|
475 *swig_dest_get = *dtnapic::dtn_bundle_spec_t_dest_get; |
|
476 *swig_dest_set = *dtnapic::dtn_bundle_spec_t_dest_set; |
|
477 *swig_replyto_get = *dtnapic::dtn_bundle_spec_t_replyto_get; |
|
478 *swig_replyto_set = *dtnapic::dtn_bundle_spec_t_replyto_set; |
|
479 *swig_priority_get = *dtnapic::dtn_bundle_spec_t_priority_get; |
|
480 *swig_priority_set = *dtnapic::dtn_bundle_spec_t_priority_set; |
|
481 *swig_dopts_get = *dtnapic::dtn_bundle_spec_t_dopts_get; |
|
482 *swig_dopts_set = *dtnapic::dtn_bundle_spec_t_dopts_set; |
|
483 *swig_expiration_get = *dtnapic::dtn_bundle_spec_t_expiration_get; |
|
484 *swig_expiration_set = *dtnapic::dtn_bundle_spec_t_expiration_set; |
|
485 *swig_creation_ts_get = *dtnapic::dtn_bundle_spec_t_creation_ts_get; |
|
486 *swig_creation_ts_set = *dtnapic::dtn_bundle_spec_t_creation_ts_set; |
|
487 *swig_delivery_regid_get = *dtnapic::dtn_bundle_spec_t_delivery_regid_get; |
|
488 *swig_delivery_regid_set = *dtnapic::dtn_bundle_spec_t_delivery_regid_set; |
|
489 *swig_sequence_id_get = *dtnapic::dtn_bundle_spec_t_sequence_id_get; |
|
490 *swig_sequence_id_set = *dtnapic::dtn_bundle_spec_t_sequence_id_set; |
|
491 *swig_obsoletes_id_get = *dtnapic::dtn_bundle_spec_t_obsoletes_id_get; |
|
492 *swig_obsoletes_id_set = *dtnapic::dtn_bundle_spec_t_obsoletes_id_set; |
|
493 *swig_metadata_get = *dtnapic::dtn_bundle_spec_t_metadata_get; |
|
494 *swig_metadata_set = *dtnapic::dtn_bundle_spec_t_metadata_set; |
|
495 *swig_blocks_get = *dtnapic::dtn_bundle_spec_t_blocks_get; |
|
496 *swig_blocks_set = *dtnapic::dtn_bundle_spec_t_blocks_set; |
|
497 sub new { |
|
498 my $pkg = shift; |
|
499 my $self = dtnapic::new_dtn_bundle_spec_t(@_); |
|
500 bless $self, $pkg if defined($self); |
|
501 } |
|
502 |
|
503 sub DESTROY { |
|
504 return unless $_[0]->isa('HASH'); |
|
505 my $self = tied(%{$_[0]}); |
|
506 return unless defined $self; |
|
507 delete $ITERATORS{$self}; |
|
508 if (exists $OWNER{$self}) { |
|
509 dtnapic::delete_dtn_bundle_spec_t($self); |
|
510 delete $OWNER{$self}; |
|
511 } |
|
512 } |
|
513 |
|
514 sub DISOWN { |
|
515 my $self = shift; |
|
516 my $ptr = tied(%$self); |
|
517 delete $OWNER{$ptr}; |
|
518 } |
|
519 |
|
520 sub ACQUIRE { |
|
521 my $self = shift; |
|
522 my $ptr = tied(%$self); |
|
523 $OWNER{$ptr} = 1; |
|
524 } |
|
525 |
|
526 |
|
527 ############# Class : dtnapi::dtn_bundle_spec_t_metadata ############## |
|
528 |
|
529 package dtnapi::dtn_bundle_spec_t_metadata; |
|
530 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
531 @ISA = qw( dtnapi ); |
|
532 %OWNER = (); |
|
533 %ITERATORS = (); |
|
534 *swig_metadata_len_get = *dtnapic::dtn_bundle_spec_t_metadata_metadata_len_get; |
|
535 *swig_metadata_len_set = *dtnapic::dtn_bundle_spec_t_metadata_metadata_len_set; |
|
536 *swig_metadata_val_get = *dtnapic::dtn_bundle_spec_t_metadata_metadata_val_get; |
|
537 *swig_metadata_val_set = *dtnapic::dtn_bundle_spec_t_metadata_metadata_val_set; |
|
538 sub new { |
|
539 my $pkg = shift; |
|
540 my $self = dtnapic::new_dtn_bundle_spec_t_metadata(@_); |
|
541 bless $self, $pkg if defined($self); |
|
542 } |
|
543 |
|
544 sub DESTROY { |
|
545 return unless $_[0]->isa('HASH'); |
|
546 my $self = tied(%{$_[0]}); |
|
547 return unless defined $self; |
|
548 delete $ITERATORS{$self}; |
|
549 if (exists $OWNER{$self}) { |
|
550 dtnapic::delete_dtn_bundle_spec_t_metadata($self); |
|
551 delete $OWNER{$self}; |
|
552 } |
|
553 } |
|
554 |
|
555 sub DISOWN { |
|
556 my $self = shift; |
|
557 my $ptr = tied(%$self); |
|
558 delete $OWNER{$ptr}; |
|
559 } |
|
560 |
|
561 sub ACQUIRE { |
|
562 my $self = shift; |
|
563 my $ptr = tied(%$self); |
|
564 $OWNER{$ptr} = 1; |
|
565 } |
|
566 |
|
567 |
|
568 ############# Class : dtnapi::dtn_bundle_spec_t_blocks ############## |
|
569 |
|
570 package dtnapi::dtn_bundle_spec_t_blocks; |
|
571 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
572 @ISA = qw( dtnapi ); |
|
573 %OWNER = (); |
|
574 %ITERATORS = (); |
|
575 *swig_blocks_len_get = *dtnapic::dtn_bundle_spec_t_blocks_blocks_len_get; |
|
576 *swig_blocks_len_set = *dtnapic::dtn_bundle_spec_t_blocks_blocks_len_set; |
|
577 *swig_blocks_val_get = *dtnapic::dtn_bundle_spec_t_blocks_blocks_val_get; |
|
578 *swig_blocks_val_set = *dtnapic::dtn_bundle_spec_t_blocks_blocks_val_set; |
|
579 sub new { |
|
580 my $pkg = shift; |
|
581 my $self = dtnapic::new_dtn_bundle_spec_t_blocks(@_); |
|
582 bless $self, $pkg if defined($self); |
|
583 } |
|
584 |
|
585 sub DESTROY { |
|
586 return unless $_[0]->isa('HASH'); |
|
587 my $self = tied(%{$_[0]}); |
|
588 return unless defined $self; |
|
589 delete $ITERATORS{$self}; |
|
590 if (exists $OWNER{$self}) { |
|
591 dtnapic::delete_dtn_bundle_spec_t_blocks($self); |
|
592 delete $OWNER{$self}; |
|
593 } |
|
594 } |
|
595 |
|
596 sub DISOWN { |
|
597 my $self = shift; |
|
598 my $ptr = tied(%$self); |
|
599 delete $OWNER{$ptr}; |
|
600 } |
|
601 |
|
602 sub ACQUIRE { |
|
603 my $self = shift; |
|
604 my $ptr = tied(%$self); |
|
605 $OWNER{$ptr} = 1; |
|
606 } |
|
607 |
|
608 |
|
609 ############# Class : dtnapi::dtn_bundle_id_t ############## |
|
610 |
|
611 package dtnapi::dtn_bundle_id_t; |
|
612 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
613 @ISA = qw( dtnapi ); |
|
614 %OWNER = (); |
|
615 %ITERATORS = (); |
|
616 *swig_source_get = *dtnapic::dtn_bundle_id_t_source_get; |
|
617 *swig_source_set = *dtnapic::dtn_bundle_id_t_source_set; |
|
618 *swig_creation_ts_get = *dtnapic::dtn_bundle_id_t_creation_ts_get; |
|
619 *swig_creation_ts_set = *dtnapic::dtn_bundle_id_t_creation_ts_set; |
|
620 *swig_frag_offset_get = *dtnapic::dtn_bundle_id_t_frag_offset_get; |
|
621 *swig_frag_offset_set = *dtnapic::dtn_bundle_id_t_frag_offset_set; |
|
622 *swig_orig_length_get = *dtnapic::dtn_bundle_id_t_orig_length_get; |
|
623 *swig_orig_length_set = *dtnapic::dtn_bundle_id_t_orig_length_set; |
|
624 sub new { |
|
625 my $pkg = shift; |
|
626 my $self = dtnapic::new_dtn_bundle_id_t(@_); |
|
627 bless $self, $pkg if defined($self); |
|
628 } |
|
629 |
|
630 sub DESTROY { |
|
631 return unless $_[0]->isa('HASH'); |
|
632 my $self = tied(%{$_[0]}); |
|
633 return unless defined $self; |
|
634 delete $ITERATORS{$self}; |
|
635 if (exists $OWNER{$self}) { |
|
636 dtnapic::delete_dtn_bundle_id_t($self); |
|
637 delete $OWNER{$self}; |
|
638 } |
|
639 } |
|
640 |
|
641 sub DISOWN { |
|
642 my $self = shift; |
|
643 my $ptr = tied(%$self); |
|
644 delete $OWNER{$ptr}; |
|
645 } |
|
646 |
|
647 sub ACQUIRE { |
|
648 my $self = shift; |
|
649 my $ptr = tied(%$self); |
|
650 $OWNER{$ptr} = 1; |
|
651 } |
|
652 |
|
653 |
|
654 ############# Class : dtnapi::dtn_bundle_status_report_t ############## |
|
655 |
|
656 package dtnapi::dtn_bundle_status_report_t; |
|
657 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
658 @ISA = qw( dtnapi ); |
|
659 %OWNER = (); |
|
660 %ITERATORS = (); |
|
661 *swig_bundle_id_get = *dtnapic::dtn_bundle_status_report_t_bundle_id_get; |
|
662 *swig_bundle_id_set = *dtnapic::dtn_bundle_status_report_t_bundle_id_set; |
|
663 *swig_reason_get = *dtnapic::dtn_bundle_status_report_t_reason_get; |
|
664 *swig_reason_set = *dtnapic::dtn_bundle_status_report_t_reason_set; |
|
665 *swig_flags_get = *dtnapic::dtn_bundle_status_report_t_flags_get; |
|
666 *swig_flags_set = *dtnapic::dtn_bundle_status_report_t_flags_set; |
|
667 *swig_receipt_ts_get = *dtnapic::dtn_bundle_status_report_t_receipt_ts_get; |
|
668 *swig_receipt_ts_set = *dtnapic::dtn_bundle_status_report_t_receipt_ts_set; |
|
669 *swig_custody_ts_get = *dtnapic::dtn_bundle_status_report_t_custody_ts_get; |
|
670 *swig_custody_ts_set = *dtnapic::dtn_bundle_status_report_t_custody_ts_set; |
|
671 *swig_forwarding_ts_get = *dtnapic::dtn_bundle_status_report_t_forwarding_ts_get; |
|
672 *swig_forwarding_ts_set = *dtnapic::dtn_bundle_status_report_t_forwarding_ts_set; |
|
673 *swig_delivery_ts_get = *dtnapic::dtn_bundle_status_report_t_delivery_ts_get; |
|
674 *swig_delivery_ts_set = *dtnapic::dtn_bundle_status_report_t_delivery_ts_set; |
|
675 *swig_deletion_ts_get = *dtnapic::dtn_bundle_status_report_t_deletion_ts_get; |
|
676 *swig_deletion_ts_set = *dtnapic::dtn_bundle_status_report_t_deletion_ts_set; |
|
677 *swig_ack_by_app_ts_get = *dtnapic::dtn_bundle_status_report_t_ack_by_app_ts_get; |
|
678 *swig_ack_by_app_ts_set = *dtnapic::dtn_bundle_status_report_t_ack_by_app_ts_set; |
|
679 sub new { |
|
680 my $pkg = shift; |
|
681 my $self = dtnapic::new_dtn_bundle_status_report_t(@_); |
|
682 bless $self, $pkg if defined($self); |
|
683 } |
|
684 |
|
685 sub DESTROY { |
|
686 return unless $_[0]->isa('HASH'); |
|
687 my $self = tied(%{$_[0]}); |
|
688 return unless defined $self; |
|
689 delete $ITERATORS{$self}; |
|
690 if (exists $OWNER{$self}) { |
|
691 dtnapic::delete_dtn_bundle_status_report_t($self); |
|
692 delete $OWNER{$self}; |
|
693 } |
|
694 } |
|
695 |
|
696 sub DISOWN { |
|
697 my $self = shift; |
|
698 my $ptr = tied(%$self); |
|
699 delete $OWNER{$ptr}; |
|
700 } |
|
701 |
|
702 sub ACQUIRE { |
|
703 my $self = shift; |
|
704 my $ptr = tied(%$self); |
|
705 $OWNER{$ptr} = 1; |
|
706 } |
|
707 |
|
708 |
|
709 ############# Class : dtnapi::dtn_bundle_payload_t ############## |
|
710 |
|
711 package dtnapi::dtn_bundle_payload_t; |
|
712 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
713 @ISA = qw( dtnapi ); |
|
714 %OWNER = (); |
|
715 %ITERATORS = (); |
|
716 *swig_location_get = *dtnapic::dtn_bundle_payload_t_location_get; |
|
717 *swig_location_set = *dtnapic::dtn_bundle_payload_t_location_set; |
|
718 *swig_status_report_get = *dtnapic::dtn_bundle_payload_t_status_report_get; |
|
719 *swig_status_report_set = *dtnapic::dtn_bundle_payload_t_status_report_set; |
|
720 *swig_buf_get = *dtnapic::dtn_bundle_payload_t_buf_get; |
|
721 *swig_buf_set = *dtnapic::dtn_bundle_payload_t_buf_set; |
|
722 *swig_filename_get = *dtnapic::dtn_bundle_payload_t_filename_get; |
|
723 *swig_filename_set = *dtnapic::dtn_bundle_payload_t_filename_set; |
|
724 sub new { |
|
725 my $pkg = shift; |
|
726 my $self = dtnapic::new_dtn_bundle_payload_t(@_); |
|
727 bless $self, $pkg if defined($self); |
|
728 } |
|
729 |
|
730 sub DESTROY { |
|
731 return unless $_[0]->isa('HASH'); |
|
732 my $self = tied(%{$_[0]}); |
|
733 return unless defined $self; |
|
734 delete $ITERATORS{$self}; |
|
735 if (exists $OWNER{$self}) { |
|
736 dtnapic::delete_dtn_bundle_payload_t($self); |
|
737 delete $OWNER{$self}; |
|
738 } |
|
739 } |
|
740 |
|
741 sub DISOWN { |
|
742 my $self = shift; |
|
743 my $ptr = tied(%$self); |
|
744 delete $OWNER{$ptr}; |
|
745 } |
|
746 |
|
747 sub ACQUIRE { |
|
748 my $self = shift; |
|
749 my $ptr = tied(%$self); |
|
750 $OWNER{$ptr} = 1; |
|
751 } |
|
752 |
|
753 |
|
754 ############# Class : dtnapi::dtn_bundle_payload_t_buf ############## |
|
755 |
|
756 package dtnapi::dtn_bundle_payload_t_buf; |
|
757 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
758 @ISA = qw( dtnapi ); |
|
759 %OWNER = (); |
|
760 %ITERATORS = (); |
|
761 *swig_buf_len_get = *dtnapic::dtn_bundle_payload_t_buf_buf_len_get; |
|
762 *swig_buf_len_set = *dtnapic::dtn_bundle_payload_t_buf_buf_len_set; |
|
763 *swig_buf_val_get = *dtnapic::dtn_bundle_payload_t_buf_buf_val_get; |
|
764 *swig_buf_val_set = *dtnapic::dtn_bundle_payload_t_buf_buf_val_set; |
|
765 sub new { |
|
766 my $pkg = shift; |
|
767 my $self = dtnapic::new_dtn_bundle_payload_t_buf(@_); |
|
768 bless $self, $pkg if defined($self); |
|
769 } |
|
770 |
|
771 sub DESTROY { |
|
772 return unless $_[0]->isa('HASH'); |
|
773 my $self = tied(%{$_[0]}); |
|
774 return unless defined $self; |
|
775 delete $ITERATORS{$self}; |
|
776 if (exists $OWNER{$self}) { |
|
777 dtnapic::delete_dtn_bundle_payload_t_buf($self); |
|
778 delete $OWNER{$self}; |
|
779 } |
|
780 } |
|
781 |
|
782 sub DISOWN { |
|
783 my $self = shift; |
|
784 my $ptr = tied(%$self); |
|
785 delete $OWNER{$ptr}; |
|
786 } |
|
787 |
|
788 sub ACQUIRE { |
|
789 my $self = shift; |
|
790 my $ptr = tied(%$self); |
|
791 $OWNER{$ptr} = 1; |
|
792 } |
|
793 |
|
794 |
|
795 ############# Class : dtnapi::dtn_bundle_payload_t_filename ############## |
|
796 |
|
797 package dtnapi::dtn_bundle_payload_t_filename; |
|
798 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
799 @ISA = qw( dtnapi ); |
|
800 %OWNER = (); |
|
801 %ITERATORS = (); |
|
802 *swig_filename_len_get = *dtnapic::dtn_bundle_payload_t_filename_filename_len_get; |
|
803 *swig_filename_len_set = *dtnapic::dtn_bundle_payload_t_filename_filename_len_set; |
|
804 *swig_filename_val_get = *dtnapic::dtn_bundle_payload_t_filename_filename_val_get; |
|
805 *swig_filename_val_set = *dtnapic::dtn_bundle_payload_t_filename_filename_val_set; |
|
806 sub new { |
|
807 my $pkg = shift; |
|
808 my $self = dtnapic::new_dtn_bundle_payload_t_filename(@_); |
|
809 bless $self, $pkg if defined($self); |
|
810 } |
|
811 |
|
812 sub DESTROY { |
|
813 return unless $_[0]->isa('HASH'); |
|
814 my $self = tied(%{$_[0]}); |
|
815 return unless defined $self; |
|
816 delete $ITERATORS{$self}; |
|
817 if (exists $OWNER{$self}) { |
|
818 dtnapic::delete_dtn_bundle_payload_t_filename($self); |
|
819 delete $OWNER{$self}; |
|
820 } |
|
821 } |
|
822 |
|
823 sub DISOWN { |
|
824 my $self = shift; |
|
825 my $ptr = tied(%$self); |
|
826 delete $OWNER{$ptr}; |
|
827 } |
|
828 |
|
829 sub ACQUIRE { |
|
830 my $self = shift; |
|
831 my $ptr = tied(%$self); |
|
832 $OWNER{$ptr} = 1; |
|
833 } |
|
834 |
|
835 |
|
836 ############# Class : dtnapi::dtn_bundle_id ############## |
|
837 |
|
838 package dtnapi::dtn_bundle_id; |
|
839 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
840 @ISA = qw( dtnapi ); |
|
841 %OWNER = (); |
|
842 %ITERATORS = (); |
|
843 *swig_source_get = *dtnapic::dtn_bundle_id_source_get; |
|
844 *swig_source_set = *dtnapic::dtn_bundle_id_source_set; |
|
845 *swig_creation_secs_get = *dtnapic::dtn_bundle_id_creation_secs_get; |
|
846 *swig_creation_secs_set = *dtnapic::dtn_bundle_id_creation_secs_set; |
|
847 *swig_creation_seqno_get = *dtnapic::dtn_bundle_id_creation_seqno_get; |
|
848 *swig_creation_seqno_set = *dtnapic::dtn_bundle_id_creation_seqno_set; |
|
849 sub new { |
|
850 my $pkg = shift; |
|
851 my $self = dtnapic::new_dtn_bundle_id(@_); |
|
852 bless $self, $pkg if defined($self); |
|
853 } |
|
854 |
|
855 sub DESTROY { |
|
856 return unless $_[0]->isa('HASH'); |
|
857 my $self = tied(%{$_[0]}); |
|
858 return unless defined $self; |
|
859 delete $ITERATORS{$self}; |
|
860 if (exists $OWNER{$self}) { |
|
861 dtnapic::delete_dtn_bundle_id($self); |
|
862 delete $OWNER{$self}; |
|
863 } |
|
864 } |
|
865 |
|
866 sub DISOWN { |
|
867 my $self = shift; |
|
868 my $ptr = tied(%$self); |
|
869 delete $OWNER{$ptr}; |
|
870 } |
|
871 |
|
872 sub ACQUIRE { |
|
873 my $self = shift; |
|
874 my $ptr = tied(%$self); |
|
875 $OWNER{$ptr} = 1; |
|
876 } |
|
877 |
|
878 |
|
879 ############# Class : dtnapi::dtn_status_report ############## |
|
880 |
|
881 package dtnapi::dtn_status_report; |
|
882 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
883 @ISA = qw( dtnapi ); |
|
884 %OWNER = (); |
|
885 %ITERATORS = (); |
|
886 *swig_bundle_id_get = *dtnapic::dtn_status_report_bundle_id_get; |
|
887 *swig_bundle_id_set = *dtnapic::dtn_status_report_bundle_id_set; |
|
888 *swig_reason_get = *dtnapic::dtn_status_report_reason_get; |
|
889 *swig_reason_set = *dtnapic::dtn_status_report_reason_set; |
|
890 *swig_flags_get = *dtnapic::dtn_status_report_flags_get; |
|
891 *swig_flags_set = *dtnapic::dtn_status_report_flags_set; |
|
892 *swig_receipt_ts_secs_get = *dtnapic::dtn_status_report_receipt_ts_secs_get; |
|
893 *swig_receipt_ts_secs_set = *dtnapic::dtn_status_report_receipt_ts_secs_set; |
|
894 *swig_receipt_ts_seqno_get = *dtnapic::dtn_status_report_receipt_ts_seqno_get; |
|
895 *swig_receipt_ts_seqno_set = *dtnapic::dtn_status_report_receipt_ts_seqno_set; |
|
896 *swig_custody_ts_secs_get = *dtnapic::dtn_status_report_custody_ts_secs_get; |
|
897 *swig_custody_ts_secs_set = *dtnapic::dtn_status_report_custody_ts_secs_set; |
|
898 *swig_custody_ts_seqno_get = *dtnapic::dtn_status_report_custody_ts_seqno_get; |
|
899 *swig_custody_ts_seqno_set = *dtnapic::dtn_status_report_custody_ts_seqno_set; |
|
900 *swig_forwarding_ts_secs_get = *dtnapic::dtn_status_report_forwarding_ts_secs_get; |
|
901 *swig_forwarding_ts_secs_set = *dtnapic::dtn_status_report_forwarding_ts_secs_set; |
|
902 *swig_forwarding_ts_seqno_get = *dtnapic::dtn_status_report_forwarding_ts_seqno_get; |
|
903 *swig_forwarding_ts_seqno_set = *dtnapic::dtn_status_report_forwarding_ts_seqno_set; |
|
904 *swig_delivery_ts_secs_get = *dtnapic::dtn_status_report_delivery_ts_secs_get; |
|
905 *swig_delivery_ts_secs_set = *dtnapic::dtn_status_report_delivery_ts_secs_set; |
|
906 *swig_delivery_ts_seqno_get = *dtnapic::dtn_status_report_delivery_ts_seqno_get; |
|
907 *swig_delivery_ts_seqno_set = *dtnapic::dtn_status_report_delivery_ts_seqno_set; |
|
908 *swig_deletion_ts_secs_get = *dtnapic::dtn_status_report_deletion_ts_secs_get; |
|
909 *swig_deletion_ts_secs_set = *dtnapic::dtn_status_report_deletion_ts_secs_set; |
|
910 *swig_deletion_ts_seqno_get = *dtnapic::dtn_status_report_deletion_ts_seqno_get; |
|
911 *swig_deletion_ts_seqno_set = *dtnapic::dtn_status_report_deletion_ts_seqno_set; |
|
912 *swig_ack_by_app_ts_secs_get = *dtnapic::dtn_status_report_ack_by_app_ts_secs_get; |
|
913 *swig_ack_by_app_ts_secs_set = *dtnapic::dtn_status_report_ack_by_app_ts_secs_set; |
|
914 *swig_ack_by_app_ts_seqno_get = *dtnapic::dtn_status_report_ack_by_app_ts_seqno_get; |
|
915 *swig_ack_by_app_ts_seqno_set = *dtnapic::dtn_status_report_ack_by_app_ts_seqno_set; |
|
916 sub new { |
|
917 my $pkg = shift; |
|
918 my $self = dtnapic::new_dtn_status_report(@_); |
|
919 bless $self, $pkg if defined($self); |
|
920 } |
|
921 |
|
922 sub DESTROY { |
|
923 return unless $_[0]->isa('HASH'); |
|
924 my $self = tied(%{$_[0]}); |
|
925 return unless defined $self; |
|
926 delete $ITERATORS{$self}; |
|
927 if (exists $OWNER{$self}) { |
|
928 dtnapic::delete_dtn_status_report($self); |
|
929 delete $OWNER{$self}; |
|
930 } |
|
931 } |
|
932 |
|
933 sub DISOWN { |
|
934 my $self = shift; |
|
935 my $ptr = tied(%$self); |
|
936 delete $OWNER{$ptr}; |
|
937 } |
|
938 |
|
939 sub ACQUIRE { |
|
940 my $self = shift; |
|
941 my $ptr = tied(%$self); |
|
942 $OWNER{$ptr} = 1; |
|
943 } |
|
944 |
|
945 |
|
946 ############# Class : dtnapi::dtn_bundle ############## |
|
947 |
|
948 package dtnapi::dtn_bundle; |
|
949 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
950 @ISA = qw( dtnapi ); |
|
951 %OWNER = (); |
|
952 %ITERATORS = (); |
|
953 *swig_source_get = *dtnapic::dtn_bundle_source_get; |
|
954 *swig_source_set = *dtnapic::dtn_bundle_source_set; |
|
955 *swig_dest_get = *dtnapic::dtn_bundle_dest_get; |
|
956 *swig_dest_set = *dtnapic::dtn_bundle_dest_set; |
|
957 *swig_replyto_get = *dtnapic::dtn_bundle_replyto_get; |
|
958 *swig_replyto_set = *dtnapic::dtn_bundle_replyto_set; |
|
959 *swig_priority_get = *dtnapic::dtn_bundle_priority_get; |
|
960 *swig_priority_set = *dtnapic::dtn_bundle_priority_set; |
|
961 *swig_dopts_get = *dtnapic::dtn_bundle_dopts_get; |
|
962 *swig_dopts_set = *dtnapic::dtn_bundle_dopts_set; |
|
963 *swig_expiration_get = *dtnapic::dtn_bundle_expiration_get; |
|
964 *swig_expiration_set = *dtnapic::dtn_bundle_expiration_set; |
|
965 *swig_creation_secs_get = *dtnapic::dtn_bundle_creation_secs_get; |
|
966 *swig_creation_secs_set = *dtnapic::dtn_bundle_creation_secs_set; |
|
967 *swig_creation_seqno_get = *dtnapic::dtn_bundle_creation_seqno_get; |
|
968 *swig_creation_seqno_set = *dtnapic::dtn_bundle_creation_seqno_set; |
|
969 *swig_delivery_regid_get = *dtnapic::dtn_bundle_delivery_regid_get; |
|
970 *swig_delivery_regid_set = *dtnapic::dtn_bundle_delivery_regid_set; |
|
971 *swig_sequence_id_get = *dtnapic::dtn_bundle_sequence_id_get; |
|
972 *swig_sequence_id_set = *dtnapic::dtn_bundle_sequence_id_set; |
|
973 *swig_obsoletes_id_get = *dtnapic::dtn_bundle_obsoletes_id_get; |
|
974 *swig_obsoletes_id_set = *dtnapic::dtn_bundle_obsoletes_id_set; |
|
975 *swig_payload_get = *dtnapic::dtn_bundle_payload_get; |
|
976 *swig_payload_set = *dtnapic::dtn_bundle_payload_set; |
|
977 *swig_status_report_get = *dtnapic::dtn_bundle_status_report_get; |
|
978 *swig_status_report_set = *dtnapic::dtn_bundle_status_report_set; |
|
979 sub new { |
|
980 my $pkg = shift; |
|
981 my $self = dtnapic::new_dtn_bundle(@_); |
|
982 bless $self, $pkg if defined($self); |
|
983 } |
|
984 |
|
985 sub DESTROY { |
|
986 return unless $_[0]->isa('HASH'); |
|
987 my $self = tied(%{$_[0]}); |
|
988 return unless defined $self; |
|
989 delete $ITERATORS{$self}; |
|
990 if (exists $OWNER{$self}) { |
|
991 dtnapic::delete_dtn_bundle($self); |
|
992 delete $OWNER{$self}; |
|
993 } |
|
994 } |
|
995 |
|
996 sub DISOWN { |
|
997 my $self = shift; |
|
998 my $ptr = tied(%$self); |
|
999 delete $OWNER{$ptr}; |
|
1000 } |
|
1001 |
|
1002 sub ACQUIRE { |
|
1003 my $self = shift; |
|
1004 my $ptr = tied(%$self); |
|
1005 $OWNER{$ptr} = 1; |
|
1006 } |
|
1007 |
|
1008 |
|
1009 ############# Class : dtnapi::dtn_session_info ############## |
|
1010 |
|
1011 package dtnapi::dtn_session_info; |
|
1012 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); |
|
1013 @ISA = qw( dtnapi ); |
|
1014 %OWNER = (); |
|
1015 %ITERATORS = (); |
|
1016 *swig_status_get = *dtnapic::dtn_session_info_status_get; |
|
1017 *swig_status_set = *dtnapic::dtn_session_info_status_set; |
|
1018 *swig_session_get = *dtnapic::dtn_session_info_session_get; |
|
1019 *swig_session_set = *dtnapic::dtn_session_info_session_set; |
|
1020 sub new { |
|
1021 my $pkg = shift; |
|
1022 my $self = dtnapic::new_dtn_session_info(@_); |
|
1023 bless $self, $pkg if defined($self); |
|
1024 } |
|
1025 |
|
1026 sub DESTROY { |
|
1027 return unless $_[0]->isa('HASH'); |
|
1028 my $self = tied(%{$_[0]}); |
|
1029 return unless defined $self; |
|
1030 delete $ITERATORS{$self}; |
|
1031 if (exists $OWNER{$self}) { |
|
1032 dtnapic::delete_dtn_session_info($self); |
|
1033 delete $OWNER{$self}; |
|
1034 } |
|
1035 } |
|
1036 |
|
1037 sub DISOWN { |
|
1038 my $self = shift; |
|
1039 my $ptr = tied(%$self); |
|
1040 delete $OWNER{$ptr}; |
|
1041 } |
|
1042 |
|
1043 sub ACQUIRE { |
|
1044 my $self = shift; |
|
1045 my $ptr = tied(%$self); |
|
1046 $OWNER{$ptr} = 1; |
|
1047 } |
|
1048 |
|
1049 |
|
1050 # ------- VARIABLE STUBS -------- |
|
1051 |
|
1052 package dtnapi; |
|
1053 |
|
1054 *DTN_MAX_ENDPOINT_ID = *dtnapic::DTN_MAX_ENDPOINT_ID; |
|
1055 *DTN_MAX_AUTHDATA = *dtnapic::DTN_MAX_AUTHDATA; |
|
1056 *DTN_MAX_REGION_LEN = *dtnapic::DTN_MAX_REGION_LEN; |
|
1057 *DTN_MAX_BUNDLE_MEM = *dtnapic::DTN_MAX_BUNDLE_MEM; |
|
1058 *DTN_MAX_BLOCK_LEN = *dtnapic::DTN_MAX_BLOCK_LEN; |
|
1059 *DTN_MAX_BLOCKS = *dtnapic::DTN_MAX_BLOCKS; |
|
1060 *DTN_REGID_NONE = *dtnapic::DTN_REGID_NONE; |
|
1061 *DTN_REG_DROP = *dtnapic::DTN_REG_DROP; |
|
1062 *DTN_REG_DEFER = *dtnapic::DTN_REG_DEFER; |
|
1063 *DTN_REG_EXEC = *dtnapic::DTN_REG_EXEC; |
|
1064 *DTN_SESSION_CUSTODY = *dtnapic::DTN_SESSION_CUSTODY; |
|
1065 *DTN_SESSION_PUBLISH = *dtnapic::DTN_SESSION_PUBLISH; |
|
1066 *DTN_SESSION_SUBSCRIBE = *dtnapic::DTN_SESSION_SUBSCRIBE; |
|
1067 *COS_BULK = *dtnapic::COS_BULK; |
|
1068 *COS_NORMAL = *dtnapic::COS_NORMAL; |
|
1069 *COS_EXPEDITED = *dtnapic::COS_EXPEDITED; |
|
1070 *COS_RESERVED = *dtnapic::COS_RESERVED; |
|
1071 *DOPTS_NONE = *dtnapic::DOPTS_NONE; |
|
1072 *DOPTS_CUSTODY = *dtnapic::DOPTS_CUSTODY; |
|
1073 *DOPTS_DELIVERY_RCPT = *dtnapic::DOPTS_DELIVERY_RCPT; |
|
1074 *DOPTS_RECEIVE_RCPT = *dtnapic::DOPTS_RECEIVE_RCPT; |
|
1075 *DOPTS_FORWARD_RCPT = *dtnapic::DOPTS_FORWARD_RCPT; |
|
1076 *DOPTS_CUSTODY_RCPT = *dtnapic::DOPTS_CUSTODY_RCPT; |
|
1077 *DOPTS_DELETE_RCPT = *dtnapic::DOPTS_DELETE_RCPT; |
|
1078 *DOPTS_SINGLETON_DEST = *dtnapic::DOPTS_SINGLETON_DEST; |
|
1079 *DOPTS_MULTINODE_DEST = *dtnapic::DOPTS_MULTINODE_DEST; |
|
1080 *DOPTS_DO_NOT_FRAGMENT = *dtnapic::DOPTS_DO_NOT_FRAGMENT; |
|
1081 *BLOCK_FLAG_NONE = *dtnapic::BLOCK_FLAG_NONE; |
|
1082 *BLOCK_FLAG_REPLICATE = *dtnapic::BLOCK_FLAG_REPLICATE; |
|
1083 *BLOCK_FLAG_REPORT = *dtnapic::BLOCK_FLAG_REPORT; |
|
1084 *BLOCK_FLAG_DELETE_BUNDLE = *dtnapic::BLOCK_FLAG_DELETE_BUNDLE; |
|
1085 *BLOCK_FLAG_LAST = *dtnapic::BLOCK_FLAG_LAST; |
|
1086 *BLOCK_FLAG_DISCARD_BLOCK = *dtnapic::BLOCK_FLAG_DISCARD_BLOCK; |
|
1087 *BLOCK_FLAG_UNPROCESSED = *dtnapic::BLOCK_FLAG_UNPROCESSED; |
|
1088 *REASON_NO_ADDTL_INFO = *dtnapic::REASON_NO_ADDTL_INFO; |
|
1089 *REASON_LIFETIME_EXPIRED = *dtnapic::REASON_LIFETIME_EXPIRED; |
|
1090 *REASON_FORWARDED_UNIDIR_LINK = *dtnapic::REASON_FORWARDED_UNIDIR_LINK; |
|
1091 *REASON_TRANSMISSION_CANCELLED = *dtnapic::REASON_TRANSMISSION_CANCELLED; |
|
1092 *REASON_DEPLETED_STORAGE = *dtnapic::REASON_DEPLETED_STORAGE; |
|
1093 *REASON_ENDPOINT_ID_UNINTELLIGIBLE = *dtnapic::REASON_ENDPOINT_ID_UNINTELLIGIBLE; |
|
1094 *REASON_NO_ROUTE_TO_DEST = *dtnapic::REASON_NO_ROUTE_TO_DEST; |
|
1095 *REASON_NO_TIMELY_CONTACT = *dtnapic::REASON_NO_TIMELY_CONTACT; |
|
1096 *REASON_BLOCK_UNINTELLIGIBLE = *dtnapic::REASON_BLOCK_UNINTELLIGIBLE; |
|
1097 *STATUS_RECEIVED = *dtnapic::STATUS_RECEIVED; |
|
1098 *STATUS_CUSTODY_ACCEPTED = *dtnapic::STATUS_CUSTODY_ACCEPTED; |
|
1099 *STATUS_FORWARDED = *dtnapic::STATUS_FORWARDED; |
|
1100 *STATUS_DELIVERED = *dtnapic::STATUS_DELIVERED; |
|
1101 *STATUS_DELETED = *dtnapic::STATUS_DELETED; |
|
1102 *STATUS_ACKED_BY_APP = *dtnapic::STATUS_ACKED_BY_APP; |
|
1103 *DTN_PAYLOAD_FILE = *dtnapic::DTN_PAYLOAD_FILE; |
|
1104 *DTN_PAYLOAD_MEM = *dtnapic::DTN_PAYLOAD_MEM; |
|
1105 *DTN_PAYLOAD_TEMP_FILE = *dtnapic::DTN_PAYLOAD_TEMP_FILE; |
|
1106 *DTN_SUCCESS = *dtnapic::DTN_SUCCESS; |
|
1107 *DTN_ERRBASE = *dtnapic::DTN_ERRBASE; |
|
1108 *DTN_EINVAL = *dtnapic::DTN_EINVAL; |
|
1109 *DTN_EXDR = *dtnapic::DTN_EXDR; |
|
1110 *DTN_ECOMM = *dtnapic::DTN_ECOMM; |
|
1111 *DTN_ECONNECT = *dtnapic::DTN_ECONNECT; |
|
1112 *DTN_ETIMEOUT = *dtnapic::DTN_ETIMEOUT; |
|
1113 *DTN_ESIZE = *dtnapic::DTN_ESIZE; |
|
1114 *DTN_ENOTFOUND = *dtnapic::DTN_ENOTFOUND; |
|
1115 *DTN_EINTERNAL = *dtnapic::DTN_EINTERNAL; |
|
1116 *DTN_EINPOLL = *dtnapic::DTN_EINPOLL; |
|
1117 *DTN_EBUSY = *dtnapic::DTN_EBUSY; |
|
1118 *DTN_EVERSION = *dtnapic::DTN_EVERSION; |
|
1119 *DTN_EMSGTYPE = *dtnapic::DTN_EMSGTYPE; |
|
1120 *DTN_ENOSPACE = *dtnapic::DTN_ENOSPACE; |
|
1121 *DTN_ERRMAX = *dtnapic::DTN_ERRMAX; |
|
1122 *Handles = *dtnapic::Handles; |
|
1123 *HandleID = *dtnapic::HandleID; |
|
1124 1; |