view release on metacpan or  search on metacpan

lib/Math/GSL/Monte.pm  view on Meta::CPAN

    return unless defined $self;
    delete $ITERATORS{$self};
    if (exists $OWNER{$self}) {
        Math::GSL::Montec::delete_gsl_monte_plain_state($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 : Math::GSL::Monte::gsl_monte_vegas_state ##############

package Math::GSL::Monte::gsl_monte_vegas_state;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
@ISA = qw( Math::GSL::Monte );
%OWNER = ();
%ITERATORS = ();
*swig_dim_get = *Math::GSL::Montec::gsl_monte_vegas_state_dim_get;
*swig_dim_set = *Math::GSL::Montec::gsl_monte_vegas_state_dim_set;
*swig_bins_max_get = *Math::GSL::Montec::gsl_monte_vegas_state_bins_max_get;
*swig_bins_max_set = *Math::GSL::Montec::gsl_monte_vegas_state_bins_max_set;
*swig_bins_get = *Math::GSL::Montec::gsl_monte_vegas_state_bins_get;
*swig_bins_set = *Math::GSL::Montec::gsl_monte_vegas_state_bins_set;
*swig_boxes_get = *Math::GSL::Montec::gsl_monte_vegas_state_boxes_get;
*swig_boxes_set = *Math::GSL::Montec::gsl_monte_vegas_state_boxes_set;
*swig_xi_get = *Math::GSL::Montec::gsl_monte_vegas_state_xi_get;
*swig_xi_set = *Math::GSL::Montec::gsl_monte_vegas_state_xi_set;
*swig_xin_get = *Math::GSL::Montec::gsl_monte_vegas_state_xin_get;
*swig_xin_set = *Math::GSL::Montec::gsl_monte_vegas_state_xin_set;
*swig_delx_get = *Math::GSL::Montec::gsl_monte_vegas_state_delx_get;
*swig_delx_set = *Math::GSL::Montec::gsl_monte_vegas_state_delx_set;
*swig_weight_get = *Math::GSL::Montec::gsl_monte_vegas_state_weight_get;
*swig_weight_set = *Math::GSL::Montec::gsl_monte_vegas_state_weight_set;
*swig_vol_get = *Math::GSL::Montec::gsl_monte_vegas_state_vol_get;
*swig_vol_set = *Math::GSL::Montec::gsl_monte_vegas_state_vol_set;
*swig_x_get = *Math::GSL::Montec::gsl_monte_vegas_state_x_get;
*swig_x_set = *Math::GSL::Montec::gsl_monte_vegas_state_x_set;
*swig_bin_get = *Math::GSL::Montec::gsl_monte_vegas_state_bin_get;
*swig_bin_set = *Math::GSL::Montec::gsl_monte_vegas_state_bin_set;
*swig_box_get = *Math::GSL::Montec::gsl_monte_vegas_state_box_get;
*swig_box_set = *Math::GSL::Montec::gsl_monte_vegas_state_box_set;
*swig_d_get = *Math::GSL::Montec::gsl_monte_vegas_state_d_get;
*swig_d_set = *Math::GSL::Montec::gsl_monte_vegas_state_d_set;
*swig_alpha_get = *Math::GSL::Montec::gsl_monte_vegas_state_alpha_get;
*swig_alpha_set = *Math::GSL::Montec::gsl_monte_vegas_state_alpha_set;
*swig_mode_get = *Math::GSL::Montec::gsl_monte_vegas_state_mode_get;
*swig_mode_set = *Math::GSL::Montec::gsl_monte_vegas_state_mode_set;
*swig_verbose_get = *Math::GSL::Montec::gsl_monte_vegas_state_verbose_get;
*swig_verbose_set = *Math::GSL::Montec::gsl_monte_vegas_state_verbose_set;
*swig_iterations_get = *Math::GSL::Montec::gsl_monte_vegas_state_iterations_get;
*swig_iterations_set = *Math::GSL::Montec::gsl_monte_vegas_state_iterations_set;
*swig_stage_get = *Math::GSL::Montec::gsl_monte_vegas_state_stage_get;
*swig_stage_set = *Math::GSL::Montec::gsl_monte_vegas_state_stage_set;
*swig_jac_get = *Math::GSL::Montec::gsl_monte_vegas_state_jac_get;
*swig_jac_set = *Math::GSL::Montec::gsl_monte_vegas_state_jac_set;
*swig_wtd_int_sum_get = *Math::GSL::Montec::gsl_monte_vegas_state_wtd_int_sum_get;
*swig_wtd_int_sum_set = *Math::GSL::Montec::gsl_monte_vegas_state_wtd_int_sum_set;
*swig_sum_wgts_get = *Math::GSL::Montec::gsl_monte_vegas_state_sum_wgts_get;
*swig_sum_wgts_set = *Math::GSL::Montec::gsl_monte_vegas_state_sum_wgts_set;
*swig_chi_sum_get = *Math::GSL::Montec::gsl_monte_vegas_state_chi_sum_get;
*swig_chi_sum_set = *Math::GSL::Montec::gsl_monte_vegas_state_chi_sum_set;
*swig_chisq_get = *Math::GSL::Montec::gsl_monte_vegas_state_chisq_get;
*swig_chisq_set = *Math::GSL::Montec::gsl_monte_vegas_state_chisq_set;
*swig_result_get = *Math::GSL::Montec::gsl_monte_vegas_state_result_get;
*swig_result_set = *Math::GSL::Montec::gsl_monte_vegas_state_result_set;
*swig_sigma_get = *Math::GSL::Montec::gsl_monte_vegas_state_sigma_get;
*swig_sigma_set = *Math::GSL::Montec::gsl_monte_vegas_state_sigma_set;
*swig_it_start_get = *Math::GSL::Montec::gsl_monte_vegas_state_it_start_get;
*swig_it_start_set = *Math::GSL::Montec::gsl_monte_vegas_state_it_start_set;
*swig_it_num_get = *Math::GSL::Montec::gsl_monte_vegas_state_it_num_get;
*swig_it_num_set = *Math::GSL::Montec::gsl_monte_vegas_state_it_num_set;
*swig_samples_get = *Math::GSL::Montec::gsl_monte_vegas_state_samples_get;
*swig_samples_set = *Math::GSL::Montec::gsl_monte_vegas_state_samples_set;
*swig_calls_per_box_get = *Math::GSL::Montec::gsl_monte_vegas_state_calls_per_box_get;
*swig_calls_per_box_set = *Math::GSL::Montec::gsl_monte_vegas_state_calls_per_box_set;
*swig_ostream_get = *Math::GSL::Montec::gsl_monte_vegas_state_ostream_get;
*swig_ostream_set = *Math::GSL::Montec::gsl_monte_vegas_state_ostream_set;
sub new {
    my $pkg = shift;
    my $self = Math::GSL::Montec::new_gsl_monte_vegas_state(@_);
    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}) {
        Math::GSL::Montec::delete_gsl_monte_vegas_state($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 : Math::GSL::Monte::gsl_monte_vegas_params ##############

package Math::GSL::Monte::gsl_monte_vegas_params;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
@ISA = qw( Math::GSL::Monte );
%OWNER = ();
%ITERATORS = ();
*swig_alpha_get = *Math::GSL::Montec::gsl_monte_vegas_params_alpha_get;
*swig_alpha_set = *Math::GSL::Montec::gsl_monte_vegas_params_alpha_set;
*swig_iterations_get = *Math::GSL::Montec::gsl_monte_vegas_params_iterations_get;
*swig_iterations_set = *Math::GSL::Montec::gsl_monte_vegas_params_iterations_set;
*swig_stage_get = *Math::GSL::Montec::gsl_monte_vegas_params_stage_get;
*swig_stage_set = *Math::GSL::Montec::gsl_monte_vegas_params_stage_set;
*swig_mode_get = *Math::GSL::Montec::gsl_monte_vegas_params_mode_get;
*swig_mode_set = *Math::GSL::Montec::gsl_monte_vegas_params_mode_set;
*swig_verbose_get = *Math::GSL::Montec::gsl_monte_vegas_params_verbose_get;
*swig_verbose_set = *Math::GSL::Montec::gsl_monte_vegas_params_verbose_set;
*swig_ostream_get = *Math::GSL::Montec::gsl_monte_vegas_params_ostream_get;
*swig_ostream_set = *Math::GSL::Montec::gsl_monte_vegas_params_ostream_set;
sub new {
    my $pkg = shift;
    my $self = Math::GSL::Montec::new_gsl_monte_vegas_params(@_);
    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}) {
        Math::GSL::Montec::delete_gsl_monte_vegas_params($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 Math::GSL::Monte;

*GSL_VERSION = *Math::GSL::Montec::GSL_VERSION;
*GSL_MAJOR_VERSION = *Math::GSL::Montec::GSL_MAJOR_VERSION;
*GSL_MINOR_VERSION = *Math::GSL::Montec::GSL_MINOR_VERSION;
*GSL_POSZERO = *Math::GSL::Montec::GSL_POSZERO;
*GSL_NEGZERO = *Math::GSL::Montec::GSL_NEGZERO;
*GSL_SUCCESS = *Math::GSL::Montec::GSL_SUCCESS;
*GSL_FAILURE = *Math::GSL::Montec::GSL_FAILURE;
*GSL_CONTINUE = *Math::GSL::Montec::GSL_CONTINUE;
*GSL_EDOM = *Math::GSL::Montec::GSL_EDOM;
*GSL_ERANGE = *Math::GSL::Montec::GSL_ERANGE;
*GSL_EFAULT = *Math::GSL::Montec::GSL_EFAULT;
*GSL_EINVAL = *Math::GSL::Montec::GSL_EINVAL;
*GSL_EFAILED = *Math::GSL::Montec::GSL_EFAILED;
*GSL_EFACTOR = *Math::GSL::Montec::GSL_EFACTOR;
*GSL_ESANITY = *Math::GSL::Montec::GSL_ESANITY;
*GSL_ENOMEM = *Math::GSL::Montec::GSL_ENOMEM;
*GSL_EBADFUNC = *Math::GSL::Montec::GSL_EBADFUNC;
*GSL_ERUNAWAY = *Math::GSL::Montec::GSL_ERUNAWAY;