view release on metacpan or  search on metacpan

lib/libstdf.pm  view on Meta::CPAN

# This file was automatically generated by SWIG (http://www.swig.org).
# Version 2.0.4
#
# Do not make changes to this file unless you know what you are doing--modify
# the SWIG interface file instead.

package libstdf;
use base qw(Exporter);
use base qw(DynaLoader);
package libstdfc;
bootstrap libstdf;
package libstdf;
@EXPORT = qw();

# ---------- BASE METHODS -------------

package libstdf;

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 libstdf;

*cdata = *libstdfc::cdata;
*memmove = *libstdfc::memmove;
*stdf_version = *libstdfc::stdf_version;
*rec_to_mir = *libstdfc::rec_to_mir;
*rec_to_sdr = *libstdfc::rec_to_sdr;
*rec_to_pcr = *libstdfc::rec_to_pcr;
*rec_to_mrr = *libstdfc::rec_to_mrr;
*rec_to_wir = *libstdfc::rec_to_wir;
*rec_to_pir = *libstdfc::rec_to_pir;
*rec_to_prr = *libstdfc::rec_to_prr;
*rec_to_ptr = *libstdfc::rec_to_ptr;
*rec_to_dtr = *libstdfc::rec_to_dtr;
*rec_to_atr = *libstdfc::rec_to_atr;
*rec_to_far = *libstdfc::rec_to_far;
*rec_to_hbr = *libstdfc::rec_to_hbr;
*rec_to_sbr = *libstdfc::rec_to_sbr;
*rec_to_pmr = *libstdfc::rec_to_pmr;
*rec_to_pgr = *libstdfc::rec_to_pgr;
*rec_to_plr = *libstdfc::rec_to_plr;
*rec_to_rdr = *libstdfc::rec_to_rdr;
*rec_to_wrr = *libstdfc::rec_to_wrr;
*rec_to_wcr = *libstdfc::rec_to_wcr;
*rec_to_tsr = *libstdfc::rec_to_tsr;
*rec_to_mpr = *libstdfc::rec_to_mpr;
*rec_to_ftr = *libstdfc::rec_to_ftr;
*rec_to_bps = *libstdfc::rec_to_bps;
*rec_to_eps = *libstdfc::rec_to_eps;
*rec_to_gdr = *libstdfc::rec_to_gdr;
*rec_to_unknown = *libstdfc::rec_to_unknown;
*read_record = *libstdfc::read_record;
*free_record = *libstdfc::free_record;
*get_rec_name = *libstdfc::get_rec_name;
*make_rec = *libstdfc::make_rec;
*init_header = *libstdfc::init_header;
*xU1_to_RV = *libstdfc::xU1_to_RV;
*xN1_to_RV = *libstdfc::xN1_to_RV;
*xU2_to_RV = *libstdfc::xU2_to_RV;
*xR4_to_RV = *libstdfc::xR4_to_RV;
*xCn_to_RV = *libstdfc::xCn_to_RV;
*xVn_to_RV = *libstdfc::xVn_to_RV;
*stdf_open = *libstdfc::stdf_open;
*stdf_close = *libstdfc::stdf_close;
*stdf_read_record = *libstdfc::stdf_read_record;
*stdf_get_rec_name = *libstdfc::stdf_get_rec_name;
*stdf_free_record = *libstdfc::stdf_free_record;
*stdf_open_ex = *libstdfc::stdf_open_ex;
*stdf_read_record_raw = *libstdfc::stdf_read_record_raw;
*stdf_parse_raw_record = *libstdfc::stdf_parse_raw_record;
*stdf_write_record = *libstdfc::stdf_write_record;
*stdf_get_Vn_name = *libstdfc::stdf_get_Vn_name;

############# Class : libstdf::dtc_Vn_ele ##############

package libstdf::dtc_Vn_ele;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
@ISA = qw( libstdf );
%OWNER = ();
%ITERATORS = ();
*swig_type_get = *libstdfc::dtc_Vn_ele_type_get;
*swig_type_set = *libstdfc::dtc_Vn_ele_type_set;
*swig_data_get = *libstdfc::dtc_Vn_ele_data_get;