package NetCDF;

require Exporter;

require AutoLoader;

require DynaLoader;

@ISA = qw(Exporter AutoLoader DynaLoader);

# Items to export into callers namespace by default

# (move infrequently used names to @EXPORT_OK below)

@EXPORT = qw(

FILL_BYTE

FILL_CHAR

FILL_DOUBLE

FILL_FLOAT

FILL_LONG

FILL_SHORT

MAX_ATTRS

MAX_DIMS

MAX_NAME

MAX_OPEN

MAX_VARS

MAX_VAR_DIMS

BYTE

CHAR

CLOBBER

DOUBLE

EBADDIM

EBADID

EBADTYPE

EEXIST

EGLOBAL

EINDEFINE

EINVAL

EINVALCOORDS

EMAXATTS

EMAXDIMS

EMAXNAME

EMAXVARS

ENAMEINUSE

ENFILE

ENOTATT

ENOTINDEFINE

ENOTNC

ENOTVAR

ENTOOL

EPERM

ESTS

EUNLIMIT

EUNLIMPOS

EXDR

FATAL

FILL

FLOAT

GLOBAL

INDEF

LONG

NOCLOBBER

NOERR

NOFILL

NOWRITE

SHORT

SYSERR

UNLIMITED

VERBOSE

WRITE

);

# Other items we are prepared to export if requested

@EXPORT_OK = qw(

);

sub AUTOLOAD {

if (@_ > 1) {

$AutoLoader::AUTOLOAD = $AUTOLOAD;

goto &AutoLoader::AUTOLOAD;

}

local($constname);

($constname = $AUTOLOAD) =~ s/.*:://;

$val = constant($constname, @_ ? $_[0] : 0);

if ($! != 0) {

if ($! =~ /Invalid/) {

$AutoLoader::AUTOLOAD = $AUTOLOAD;

goto &AutoLoader::AUTOLOAD;

}

else {

($pack,$file,$line) = caller;

die "Your vendor has not defined netCDF macro $constname, used at $file line $line.

";

}

}

eval "sub $AUTOLOAD { $val }";

goto &$AUTOLOAD;

}

bootstrap NetCDF;

# Preloaded methods go here. Autoload methods go after __END__, and are

# processed by the autosplit program.

1;

__END__