# This file was automatically generated by SWIG (https://www.swig.org). # Version 4.2.0 # # Do not make changes to this file unless you know what you are doing - modify # the SWIG interface file instead. package Math::GSL::IEEEUtils; use base qw(Exporter); use base qw(DynaLoader); package Math::GSL::IEEEUtilsc; bootstrap Math::GSL::IEEEUtils; package Math::GSL::IEEEUtils; @EXPORT = qw(); # ---------- BASE METHODS ------------- package Math::GSL::IEEEUtils; 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 Math::GSL::IEEEUtils; *gsl_error = *Math::GSL::IEEEUtilsc::gsl_error; *gsl_stream_printf = *Math::GSL::IEEEUtilsc::gsl_stream_printf; *gsl_strerror = *Math::GSL::IEEEUtilsc::gsl_strerror; *gsl_set_error_handler = *Math::GSL::IEEEUtilsc::gsl_set_error_handler; *gsl_set_error_handler_off = *Math::GSL::IEEEUtilsc::gsl_set_error_handler_off; *gsl_set_stream_handler = *Math::GSL::IEEEUtilsc::gsl_set_stream_handler; *gsl_set_stream = *Math::GSL::IEEEUtilsc::gsl_set_stream; *gsl_ieee_printf_float = *Math::GSL::IEEEUtilsc::gsl_ieee_printf_float; *gsl_ieee_printf_double = *Math::GSL::IEEEUtilsc::gsl_ieee_printf_double; *gsl_ieee_fprintf_float = *Math::GSL::IEEEUtilsc::gsl_ieee_fprintf_float; *gsl_ieee_fprintf_double = *Math::GSL::IEEEUtilsc::gsl_ieee_fprintf_double; *gsl_ieee_float_to_rep = *Math::GSL::IEEEUtilsc::gsl_ieee_float_to_rep; *gsl_ieee_double_to_rep = *Math::GSL::IEEEUtilsc::gsl_ieee_double_to_rep; *gsl_ieee_env_setup = *Math::GSL::IEEEUtilsc::gsl_ieee_env_setup; *gsl_ieee_read_mode_string = *Math::GSL::IEEEUtilsc::gsl_ieee_read_mode_string; *gsl_ieee_set_mode = *Math::GSL::IEEEUtilsc::gsl_ieee_set_mode; ############# Class : Math::GSL::IEEEUtils::gsl_ieee_float_rep ############## package Math::GSL::IEEEUtils::gsl_ieee_float_rep; use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); @ISA = qw( Math::GSL::IEEEUtils ); %OWNER = (); %ITERATORS = (); *swig_sign_get = *Math::GSL::IEEEUtilsc::gsl_ieee_float_rep_sign_get; *swig_sign_set = *Math::GSL::IEEEUtilsc::gsl_ieee_float_rep_sign_set; *swig_mantissa_get = *Math::GSL::IEEEUtilsc::gsl_ieee_float_rep_mantissa_get; *swig_mantissa_set = *Math::GSL::IEEEUtilsc::gsl_ieee_float_rep_mantissa_set; *swig_exponent_get = *Math::GSL::IEEEUtilsc::gsl_ieee_float_rep_exponent_get; *swig_exponent_set = *Math::GSL::IEEEUtilsc::gsl_ieee_float_rep_exponent_set; *swig_type_get = *Math::GSL::IEEEUtilsc::gsl_ieee_float_rep_type_get; *swig_type_set = *Math::GSL::IEEEUtilsc::gsl_ieee_float_rep_type_set; sub new { my $pkg = shift; my $self = Math::GSL::IEEEUtilsc::new_gsl_ieee_float_rep(@_); 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::IEEEUtilsc::delete_gsl_ieee_float_rep($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::IEEEUtils::gsl_ieee_double_rep ############## package Math::GSL::IEEEUtils::gsl_ieee_double_rep; use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); @ISA = qw( Math::GSL::IEEEUtils ); %OWNER = (); %ITERATORS = (); *swig_sign_get = *Math::GSL::IEEEUtilsc::gsl_ieee_double_rep_sign_get; *swig_sign_set = *Math::GSL::IEEEUtilsc::gsl_ieee_double_rep_sign_set; *swig_mantissa_get = *Math::GSL::IEEEUtilsc::gsl_ieee_double_rep_mantissa_get; *swig_mantissa_set = *Math::GSL::IEEEUtilsc::gsl_ieee_double_rep_mantissa_set; *swig_exponent_get = *Math::GSL::IEEEUtilsc::gsl_ieee_double_rep_exponent_get; *swig_exponent_set = *Math::GSL::IEEEUtilsc::gsl_ieee_double_rep_exponent_set; *swig_type_get = *Math::GSL::IEEEUtilsc::gsl_ieee_double_rep_type_get; *swig_type_set = *Math::GSL::IEEEUtilsc::gsl_ieee_double_rep_type_set; sub new { my $pkg = shift; my $self = Math::GSL::IEEEUtilsc::new_gsl_ieee_double_rep(@_); 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::IEEEUtilsc::delete_gsl_ieee_double_rep($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::IEEEUtils; *GSL_VERSION = *Math::GSL::IEEEUtilsc::GSL_VERSION; *GSL_MAJOR_VERSION = *Math::GSL::IEEEUtilsc::GSL_MAJOR_VERSION; *GSL_MINOR_VERSION = *Math::GSL::IEEEUtilsc::GSL_MINOR_VERSION; *GSL_POSZERO = *Math::GSL::IEEEUtilsc::GSL_POSZERO; *GSL_NEGZERO = *Math::GSL::IEEEUtilsc::GSL_NEGZERO; *GSL_SUCCESS = *Math::GSL::IEEEUtilsc::GSL_SUCCESS; *GSL_FAILURE = *Math::GSL::IEEEUtilsc::GSL_FAILURE; *GSL_CONTINUE = *Math::GSL::IEEEUtilsc::GSL_CONTINUE; *GSL_EDOM = *Math::GSL::IEEEUtilsc::GSL_EDOM; *GSL_ERANGE = *Math::GSL::IEEEUtilsc::GSL_ERANGE; *GSL_EFAULT = *Math::GSL::IEEEUtilsc::GSL_EFAULT; *GSL_EINVAL = *Math::GSL::IEEEUtilsc::GSL_EINVAL; *GSL_EFAILED = *Math::GSL::IEEEUtilsc::GSL_EFAILED; *GSL_EFACTOR = *Math::GSL::IEEEUtilsc::GSL_EFACTOR; *GSL_ESANITY = *Math::GSL::IEEEUtilsc::GSL_ESANITY; *GSL_ENOMEM = *Math::GSL::IEEEUtilsc::GSL_ENOMEM; *GSL_EBADFUNC = *Math::GSL::IEEEUtilsc::GSL_EBADFUNC; *GSL_ERUNAWAY = *Math::GSL::IEEEUtilsc::GSL_ERUNAWAY; *GSL_EMAXITER = *Math::GSL::IEEEUtilsc::GSL_EMAXITER; *GSL_EZERODIV = *Math::GSL::IEEEUtilsc::GSL_EZERODIV; *GSL_EBADTOL = *Math::GSL::IEEEUtilsc::GSL_EBADTOL; *GSL_ETOL = *Math::GSL::IEEEUtilsc::GSL_ETOL; *GSL_EUNDRFLW = *Math::GSL::IEEEUtilsc::GSL_EUNDRFLW; *GSL_EOVRFLW = *Math::GSL::IEEEUtilsc::GSL_EOVRFLW; *GSL_ELOSS = *Math::GSL::IEEEUtilsc::GSL_ELOSS; *GSL_EROUND = *Math::GSL::IEEEUtilsc::GSL_EROUND; *GSL_EBADLEN = *Math::GSL::IEEEUtilsc::GSL_EBADLEN; *GSL_ENOTSQR = *Math::GSL::IEEEUtilsc::GSL_ENOTSQR; *GSL_ESING = *Math::GSL::IEEEUtilsc::GSL_ESING; *GSL_EDIVERGE = *Math::GSL::IEEEUtilsc::GSL_EDIVERGE; *GSL_EUNSUP = *Math::GSL::IEEEUtilsc::GSL_EUNSUP; *GSL_EUNIMPL = *Math::GSL::IEEEUtilsc::GSL_EUNIMPL; *GSL_ECACHE = *Math::GSL::IEEEUtilsc::GSL_ECACHE; *GSL_ETABLE = *Math::GSL::IEEEUtilsc::GSL_ETABLE; *GSL_ENOPROG = *Math::GSL::IEEEUtilsc::GSL_ENOPROG; *GSL_ENOPROGJ = *Math::GSL::IEEEUtilsc::GSL_ENOPROGJ; *GSL_ETOLF = *Math::GSL::IEEEUtilsc::GSL_ETOLF; *GSL_ETOLX = *Math::GSL::IEEEUtilsc::GSL_ETOLX; *GSL_ETOLG = *Math::GSL::IEEEUtilsc::GSL_ETOLG; *GSL_EOF = *Math::GSL::IEEEUtilsc::GSL_EOF; *GSL_IEEE_TYPE_NAN = *Math::GSL::IEEEUtilsc::GSL_IEEE_TYPE_NAN; *GSL_IEEE_TYPE_INF = *Math::GSL::IEEEUtilsc::GSL_IEEE_TYPE_INF; *GSL_IEEE_TYPE_NORMAL = *Math::GSL::IEEEUtilsc::GSL_IEEE_TYPE_NORMAL; *GSL_IEEE_TYPE_DENORMAL = *Math::GSL::IEEEUtilsc::GSL_IEEE_TYPE_DENORMAL; *GSL_IEEE_TYPE_ZERO = *Math::GSL::IEEEUtilsc::GSL_IEEE_TYPE_ZERO; *GSL_IEEE_SINGLE_PRECISION = *Math::GSL::IEEEUtilsc::GSL_IEEE_SINGLE_PRECISION; *GSL_IEEE_DOUBLE_PRECISION = *Math::GSL::IEEEUtilsc::GSL_IEEE_DOUBLE_PRECISION; *GSL_IEEE_EXTENDED_PRECISION = *Math::GSL::IEEEUtilsc::GSL_IEEE_EXTENDED_PRECISION; *GSL_IEEE_ROUND_TO_NEAREST = *Math::GSL::IEEEUtilsc::GSL_IEEE_ROUND_TO_NEAREST; *GSL_IEEE_ROUND_DOWN = *Math::GSL::IEEEUtilsc::GSL_IEEE_ROUND_DOWN; *GSL_IEEE_ROUND_UP = *Math::GSL::IEEEUtilsc::GSL_IEEE_ROUND_UP; *GSL_IEEE_ROUND_TO_ZERO = *Math::GSL::IEEEUtilsc::GSL_IEEE_ROUND_TO_ZERO; *GSL_IEEE_MASK_INVALID = *Math::GSL::IEEEUtilsc::GSL_IEEE_MASK_INVALID; *GSL_IEEE_MASK_DENORMALIZED = *Math::GSL::IEEEUtilsc::GSL_IEEE_MASK_DENORMALIZED; *GSL_IEEE_MASK_DIVISION_BY_ZERO = *Math::GSL::IEEEUtilsc::GSL_IEEE_MASK_DIVISION_BY_ZERO; *GSL_IEEE_MASK_OVERFLOW = *Math::GSL::IEEEUtilsc::GSL_IEEE_MASK_OVERFLOW; *GSL_IEEE_MASK_UNDERFLOW = *Math::GSL::IEEEUtilsc::GSL_IEEE_MASK_UNDERFLOW; *GSL_IEEE_MASK_ALL = *Math::GSL::IEEEUtilsc::GSL_IEEE_MASK_ALL; *GSL_IEEE_TRAP_INEXACT = *Math::GSL::IEEEUtilsc::GSL_IEEE_TRAP_INEXACT; @EXPORT_OK = qw/ gsl_ieee_printf_float gsl_ieee_printf_double gsl_ieee_fprintf_float gsl_ieee_fprintf_double gsl_ieee_float_to_rep gsl_ieee_double_to_rep gsl_ieee_env_setup gsl_ieee_read_mode_string gsl_ieee_set_mode $GSL_IEEE_TYPE_NAN $GSL_IEEE_TYPE_INF $GSL_IEEE_TYPE_NORMAL $GSL_IEEE_TYPE_DENORMAL $GSL_IEEE_TYPE_ZERO $GSL_IEEE_SINGLE_PRECISION $GSL_IEEE_DOUBLE_PRECISION $GSL_IEEE_EXTENDED_PRECISION $GSL_IEEE_ROUND_TO_NEAREST $GSL_IEEE_ROUND_DOWN $GSL_IEEE_ROUND_UP $GSL_IEEE_ROUND_TO_ZERO $GSL_IEEE_MASK_INVALID $GSL_IEEE_MASK_DENORMALIZED $GSL_IEEE_MASK_DIVISION_BY_ZERO $GSL_IEEE_MASK_OVERFLOW $GSL_IEEE_MASK_UNDERFLOW $GSL_IEEE_MASK_ALL $GSL_IEEE_TRAP_INEXACT /; %EXPORT_TAGS = ( all => [ @EXPORT_OK ] ); =head1 NAME Math::GSL::IEEEUtils - IEEE Utility Functions =encoding utf8 1;