# This file was automatically generated by SWIG
package Net::Multicast::Beacon;
require Exporter;
require DynaLoader;
@ISA = qw(Exporter DynaLoader);
package Net::Multicast::Beaconc;
bootstrap Net::Multicast::Beacon;
package Net::Multicast::Beacon;
@EXPORT = qw( beacon_event_type_set beacon_event_type_get beacon_event_ssrc_set beacon_event_ssrc_get beacon_event_time_set beacon_event_time_get beacon_event_rr_set beacon_event_rr_get beacon_event_next_set beacon_event_next_get new_beacon_event delete_beacon_event beacon_init beacon_init_if beacon_get_next_event beacon_free_event beacon_queue_len xmemdmp rtcp_rr_ssrc_set rtcp_rr_ssrc_get rtcp_rr_total_lost_set rtcp_rr_total_lost_get rtcp_rr_fract_lost_set rtcp_rr_fract_lost_get rtcp_rr_last_seq_set rtcp_rr_last_seq_get rtcp_rr_jitter_set rtcp_rr_jitter_get rtcp_rr_lsr_set rtcp_rr_lsr_get rtcp_rr_dlsr_set rtcp_rr_dlsr_get new_rtcp_rr delete_rtcp_rr rtp_my_ssrc rtp_update rtp_recv rtp_send_bye rtp_done rtp_set_sdes rtp_set_option rtp_get_sdes $RX_RTP $RX_SR $RX_RR $RX_SDES $RX_BYE $SOURCE_CREATED $SOURCE_DELETED $RX_RR_EMPTY $RX_RTCP_START $RX_RTCP_FINISH $RR_TIMEOUT $RX_APP $RTCP_SDES_END $RTCP_SDES_CNAME $RTCP_SDES_NAME $RTCP_SDES_EMAIL $RTCP_SDES_PHONE $RTCP_SDES_LOC $RTCP_SDES_TOOL $RTCP_SDES_NOTE $RTCP_SDES_PRIV rtp_make_timeval rtp_gettimeofday rtp_free_timeval rtp_send_ctrl rtp_send_data );
# ---------- BASE METHODS -------------
package Net::Multicast::Beacon;
sub TIEHASH {
my ($classname,$obj) = @_;
return bless $obj, $classname;
}
sub CLEAR { }
sub FIRSTKEY { }
sub NEXTKEY { }
sub FETCH {
my ($self,$field) = @_;
my $member_func = "swig_${field}_get";
$self->$member_func();
}
sub STORE {
my ($self,$field,$newval) = @_;
my $member_func = "swig_${field}_set";
$self->$member_func($newval);
}
sub this {
my $ptr = shift;
return tied(%$ptr);
}
# ------- FUNCTION WRAPPERS --------
package Net::Multicast::Beacon;
*beacon_init = *Net::Multicast::Beaconc::beacon_init;
*beacon_init_if = *Net::Multicast::Beaconc::beacon_init_if;
*beacon_get_next_event = *Net::Multicast::Beaconc::beacon_get_next_event;
*beacon_free_event = *Net::Multicast::Beaconc::beacon_free_event;
*beacon_queue_len = *Net::Multicast::Beaconc::beacon_queue_len;
*xmemdmp = *Net::Multicast::Beaconc::xmemdmp;
*rtp_my_ssrc = *Net::Multicast::Beaconc::rtp_my_ssrc;
*rtp_update = *Net::Multicast::Beaconc::rtp_update;
*rtp_recv = *Net::Multicast::Beaconc::rtp_recv;
*rtp_send_bye = *Net::Multicast::Beaconc::rtp_send_bye;
*rtp_done = *Net::Multicast::Beaconc::rtp_done;
*rtp_set_sdes = *Net::Multicast::Beaconc::rtp_set_sdes;
*rtp_set_option = *Net::Multicast::Beaconc::rtp_set_option;
*rtp_get_sdes = *Net::Multicast::Beaconc::rtp_get_sdes;
*rtp_make_timeval = *Net::Multicast::Beaconc::rtp_make_timeval;
*rtp_gettimeofday = *Net::Multicast::Beaconc::rtp_gettimeofday;
*rtp_free_timeval = *Net::Multicast::Beaconc::rtp_free_timeval;
*rtp_send_ctrl = *Net::Multicast::Beaconc::rtp_send_ctrl;
*rtp_send_data = *Net::Multicast::Beaconc::rtp_send_data;
############# Class : Net::Multicast::Beacon::beacon_event ##############
package Net::Multicast::Beacon::beacon_event;
@ISA = qw( Net::Multicast::Beacon );
%OWNER = ();
%ITERATORS = ();
*swig_type_get = *Net::Multicast::Beaconc::beacon_event_type_get;
*swig_type_set = *Net::Multicast::Beaconc::beacon_event_type_set;
*swig_ssrc_get = *Net::Multicast::Beaconc::beacon_event_ssrc_get;
*swig_ssrc_set = *Net::Multicast::Beaconc::beacon_event_ssrc_set;
*swig_time_get = *Net::Multicast::Beaconc::beacon_event_time_get;
*swig_time_set = *Net::Multicast::Beaconc::beacon_event_time_set;
*swig_rr_get = *Net::Multicast::Beaconc::beacon_event_rr_get;
*swig_rr_set = *Net::Multicast::Beaconc::beacon_event_rr_set;
*swig_next_get = *Net::Multicast::Beaconc::beacon_event_next_get;
*swig_next_set = *Net::Multicast::Beaconc::beacon_event_next_set;
sub new {
my $pkg = shift;
my $self = Net::Multicast::Beaconc::new_beacon_event(@_);
bless $self, $pkg if defined($self);
}
sub DESTROY {
return unless $_[0]->isa('HASH');
my $self = tied(%{$_[0]});
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
Net::Multicast::Beaconc::delete_beacon_event($self);
delete $OWNER{$self};
}
}
sub DISOWN {
my $self = shift;
my $ptr = tied(%$self);
delete $OWNER{$ptr};
}
sub ACQUIRE {
my $self = shift;
my $ptr = tied(%$self);
$OWNER{$ptr} = 1;
}
############# Class : Net::Multicast::Beacon::rtcp_rr ##############
package Net::Multicast::Beacon::rtcp_rr;
@ISA = qw( Net::Multicast::Beacon );
%OWNER = ();
%ITERATORS = ();
*swig_ssrc_get = *Net::Multicast::Beaconc::rtcp_rr_ssrc_get;
*swig_ssrc_set = *Net::Multicast::Beaconc::rtcp_rr_ssrc_set;
*swig_total_lost_get = *Net::Multicast::Beaconc::rtcp_rr_total_lost_get;
*swig_total_lost_set = *Net::Multicast::Beaconc::rtcp_rr_total_lost_set;
*swig_fract_lost_get = *Net::Multicast::Beaconc::rtcp_rr_fract_lost_get;
*swig_fract_lost_set = *Net::Multicast::Beaconc::rtcp_rr_fract_lost_set;
*swig_last_seq_get = *Net::Multicast::Beaconc::rtcp_rr_last_seq_get;
*swig_last_seq_set = *Net::Multicast::Beaconc::rtcp_rr_last_seq_set;
*swig_jitter_get = *Net::Multicast::Beaconc::rtcp_rr_jitter_get;
*swig_jitter_set = *Net::Multicast::Beaconc::rtcp_rr_jitter_set;
*swig_lsr_get = *Net::Multicast::Beaconc::rtcp_rr_lsr_get;
*swig_lsr_set = *Net::Multicast::Beaconc::rtcp_rr_lsr_set;
*swig_dlsr_get = *Net::Multicast::Beaconc::rtcp_rr_dlsr_get;
*swig_dlsr_set = *Net::Multicast::Beaconc::rtcp_rr_dlsr_set;
sub new {
my $pkg = shift;
my $self = Net::Multicast::Beaconc::new_rtcp_rr(@_);
bless $self, $pkg if defined($self);
}
sub DESTROY {
return unless $_[0]->isa('HASH');
my $self = tied(%{$_[0]});
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
Net::Multicast::Beaconc::delete_rtcp_rr($self);
delete $OWNER{$self};
}
}
sub DISOWN {
my $self = shift;
my $ptr = tied(%$self);
delete $OWNER{$ptr};
}
sub ACQUIRE {
my $self = shift;
my $ptr = tied(%$self);
$OWNER{$ptr} = 1;
}
# ------- VARIABLE STUBS --------
package Net::Multicast::Beacon;
*RX_RTP = *Net::Multicast::Beaconc::RX_RTP;
*RX_SR = *Net::Multicast::Beaconc::RX_SR;
*RX_RR = *Net::Multicast::Beaconc::RX_RR;
*RX_SDES = *Net::Multicast::Beaconc::RX_SDES;
*RX_BYE = *Net::Multicast::Beaconc::RX_BYE;
*SOURCE_CREATED = *Net::Multicast::Beaconc::SOURCE_CREATED;
*SOURCE_DELETED = *Net::Multicast::Beaconc::SOURCE_DELETED;
*RX_RR_EMPTY = *Net::Multicast::Beaconc::RX_RR_EMPTY;
*RX_RTCP_START = *Net::Multicast::Beaconc::RX_RTCP_START;
*RX_RTCP_FINISH = *Net::Multicast::Beaconc::RX_RTCP_FINISH;
*RR_TIMEOUT = *Net::Multicast::Beaconc::RR_TIMEOUT;
*RX_APP = *Net::Multicast::Beaconc::RX_APP;
*RTCP_SDES_END = *Net::Multicast::Beaconc::RTCP_SDES_END;
*RTCP_SDES_CNAME = *Net::Multicast::Beaconc::RTCP_SDES_CNAME;
*RTCP_SDES_NAME = *Net::Multicast::Beaconc::RTCP_SDES_NAME;
*RTCP_SDES_EMAIL = *Net::Multicast::Beaconc::RTCP_SDES_EMAIL;
*RTCP_SDES_PHONE = *Net::Multicast::Beaconc::RTCP_SDES_PHONE;
*RTCP_SDES_LOC = *Net::Multicast::Beaconc::RTCP_SDES_LOC;
*RTCP_SDES_TOOL = *Net::Multicast::Beaconc::RTCP_SDES_TOOL;
*RTCP_SDES_NOTE = *Net::Multicast::Beaconc::RTCP_SDES_NOTE;
*RTCP_SDES_PRIV = *Net::Multicast::Beaconc::RTCP_SDES_PRIV;
1;
syntax highlighted by Code2HTML, v. 0.9.1