"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "GENERATED/PDL/IO/HDF/SD.pm" between
PDL-2.082.tar.gz and PDL-2.083.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

SD.pm  (PDL-2.082)	:	SD.pm  (PDL-2.083)
skipping to change at line 118		skipping to change at line 118
has been changed. If your code used to work with the circa 2002 version of this		has been changed. If your code used to work with the circa 2002 version of this
module, and does not work anymore, reading the 'Changes' is your best bet.		module, and does not work anymore, reading the 'Changes' is your best bet.
In the documentation, the terms dataset and SDS (Scientific Data Set) are used		In the documentation, the terms dataset and SDS (Scientific Data Set) are used
interchangeably.		interchangeably.
=cut		=cut
use strict;		use strict;
use warnings;		use warnings;
#line 128 "SD.pm"
#line 361 "SD.pd"		#line 361 "SD.pd"
use PDL::Primitive;		use PDL::Primitive;
use PDL::Basic;		use PDL::Basic;
use PDL::IO::HDF;		use PDL::IO::HDF;
require POSIX;		require POSIX;
sub _pkg_name		sub _pkg_name
{ return "PDL::IO::HDF::SD::" . shift() . "()"; }		{ return "PDL::IO::HDF::SD::" . shift() . "()"; }
skipping to change at line 424		skipping to change at line 422
=for example		=for example
my @DataList = $hdfobj->SDgetvariablenames();		my @DataList = $hdfobj->SDgetvariablenames();
=cut		=cut
sub SDgetvariablenames		sub SDgetvariablenames
{		{
my($self) = @_;		my($self) = @_;
return sort keys %{$self->{DATASET}};		return sort keys %{$self->{DATASET}};
#line 444 "SD.pm"
#line 668 "SD.pd"		#line 668 "SD.pd"
} # End of SDgetvariablenames()...		} # End of SDgetvariablenames()...
sub SDgetvariablename		sub SDgetvariablename
{		{
my $self = shift;		my $self = shift;
return $self->SDgetvariablenames( @_ );		return $self->SDgetvariablenames( @_ );
} # End of SDgetvariablename()...		} # End of SDgetvariablename()...
=head2 SDgetattributenames		=head2 SDgetattributenames
skipping to change at line 466		skipping to change at line 463
=cut		=cut
sub SDgetattributenames		sub SDgetattributenames
{		{
my($self, $name) = @_;		my($self, $name) = @_;
if( defined( $name ) )		if( defined( $name ) )
{		{
return( undef )		return( undef )
unless defined( $self->{DATASET}->{$name} );		unless defined( $self->{DATASET}->{$name} );
return sort keys %{ $self->{DATASET}->{$name}->{ATTRS} };		return sort keys %{ $self->{DATASET}->{$name}->{ATTRS} };
#line 488 "SD.pm"
#line 710 "SD.pd"		#line 710 "SD.pd"
}		}
else		else
{		{
return sort keys %{ $self->{GLOBATTR} };		return sort keys %{ $self->{GLOBATTR} };
#line 494 "SD.pm"
#line 714 "SD.pd"		#line 714 "SD.pd"
}		}
} # End of SDgetattributenames()...		} # End of SDgetattributenames()...
# Wrapper (this is now defunct):		# Wrapper (this is now defunct):
sub SDgetattributname		sub SDgetattributname
{		{
my $self = shift;		my $self = shift;
return $self->SDgetattributenames( @_ );		return $self->SDgetattributenames( @_ );
} # End of SDgetattributname()...		} # End of SDgetattributname()...
skipping to change at line 639		skipping to change at line 634
=cut		=cut
sub SDgetdimsize		sub SDgetdimsize
{		{
my ($self, $name) = @_;		my ($self, $name) = @_;
return( undef )		return( undef )
unless defined( $self->{DATASET}->{$name} );		unless defined( $self->{DATASET}->{$name} );
my @dims;		my @dims;
foreach( sort keys %{ $self->{DATASET}->{$name}->{DIMS} } )		foreach( sort keys %{ $self->{DATASET}->{$name}->{DIMS} } )
#line 666 "SD.pm"
#line 884 "SD.pd"		#line 884 "SD.pd"
{		{
push @dims, $self->{DATASET}->{$name}->{DIMS}->{$_}->{SIZE};		push @dims, $self->{DATASET}->{$name}->{DIMS}->{$_}->{SIZE};
}		}
return( @dims );		return( @dims );
} # End of SDgetdimsize()...		} # End of SDgetdimsize()...
=head2 SDgetunlimiteddimsize		=head2 SDgetunlimiteddimsize
skipping to change at line 676		skipping to change at line 670
sub SDgetunlimiteddimsize		sub SDgetunlimiteddimsize
{		{
my ($self, $name) = @_;		my ($self, $name) = @_;
return( undef )		return( undef )
unless defined( $self->{DATASET}->{$name} );		unless defined( $self->{DATASET}->{$name} );
my @dim;		my @dim;
foreach( sort keys %{$self->{DATASET}{$name}{DIMS}} )		foreach( sort keys %{$self->{DATASET}{$name}{DIMS}} )
#line 704 "SD.pm"
#line 920 "SD.pd"		#line 920 "SD.pd"
{		{
if( $self->{DATASET}->{$name}->{DIMS}->{$_}->{SIZE} == 0 )		if( $self->{DATASET}->{$name}->{DIMS}->{$_}->{SIZE} == 0 )
{		{
$dim[ $_ ] =		$dim[ $_ ] =
$self->{DATASET}->{$name}->{DIMS}->{$_}->{REAL_SIZE};		$self->{DATASET}->{$name}->{DIMS}->{$_}->{REAL_SIZE};
}		}
else		else
{		{
$dim[ $_ ] =		$dim[ $_ ] =
skipping to change at line 727		skipping to change at line 720
sub SDgetdimnames		sub SDgetdimnames
{		{
my ($self, $name) = @_;		my ($self, $name) = @_;
return( undef )		return( undef )
unless defined( $self->{DATASET}->{$name} );		unless defined( $self->{DATASET}->{$name} );
my @dims=();		my @dims=();
foreach( sort keys %{ $self->{DATASET}->{$name}->{DIMS} } )		foreach( sort keys %{ $self->{DATASET}->{$name}->{DIMS} } )
#line 756 "SD.pm"
#line 970 "SD.pd"		#line 970 "SD.pd"
{		{
push @dims,$self->{DATASET}->{$name}->{DIMS}->{$_}->{NAME};		push @dims,$self->{DATASET}->{$name}->{DIMS}->{$_}->{NAME};
}		}
return(@dims);		return(@dims);
} # End of SDgetdimnames()...		} # End of SDgetdimnames()...
sub SDgetdimname		sub SDgetdimname
{		{
my $self = shift;		my $self = shift;
return $self->SDgetdimnames( @_ );		return $self->SDgetdimnames( @_ );
skipping to change at line 1160		skipping to change at line 1152
# make the HDF library call.		# make the HDF library call.
sub SDsetdimname		sub SDsetdimname
{		{
my ($self, $name, $dimname) = @_;		my ($self, $name, $dimname) = @_;
return undef		return undef
unless defined( $self->{DATASET}->{$name} );		unless defined( $self->{DATASET}->{$name} );
my $res = 0;		my $res = 0;
foreach( sort keys %{$self->{DATASET}->{$name}->{DIMS}} )		foreach( sort keys %{$self->{DATASET}->{$name}->{DIMS}} )
#line 1198 "SD.pm"
#line 1410 "SD.pd"		#line 1410 "SD.pd"
{		{
return( undef )		return( undef )
unless defined( $$dimname[ $_ ] );		unless defined( $$dimname[ $_ ] );
$res = _SDsetdimname(		$res = _SDsetdimname(
$self->{DATASET}->{$name}->{DIMS}->{$_}->{DIMID},		$self->{DATASET}->{$name}->{DIMS}->{$_}->{DIMID},
$$dimname[ $_ ] ) + 1;		$$dimname[ $_ ] ) + 1;
}		}
return( $res );		return( $res );
skipping to change at line 1346		skipping to change at line 1337
my $sdid = $self->{SDID};		my $sdid = $self->{SDID};
$self = undef;		$self = undef;
return( _SDend( $sdid ) + 1);		return( _SDend( $sdid ) + 1);
} # End of close()...		} # End of close()...
sub DESTROY		sub DESTROY
{		{
my $self = shift;		my $self = shift;
$self->close;		$self->close;
} # End of DESTROY()...		} # End of DESTROY()...
#line 1386 "SD.pm"
#line 1602 "SD.pd"		#line 1602 "SD.pd"
=head1 CURRENT AUTHOR & MAINTAINER		=head1 CURRENT AUTHOR & MAINTAINER
Judd Taylor, Orbital Systems, Ltd.		Judd Taylor, Orbital Systems, Ltd.
judd dot t at orbitalsystems dot com		judd dot t at orbitalsystems dot com
=head1 PREVIOUS AUTHORS		=head1 PREVIOUS AUTHORS
Patrick Leilde patrick.leilde@ifremer.fr		Patrick Leilde patrick.leilde@ifremer.fr
contribs of Olivier Archer olivier.archer@ifremer.fr		contribs of Olivier Archer olivier.archer@ifremer.fr
=head1 SEE ALSO		=head1 SEE ALSO
perl(1), PDL(1), PDL::IO::HDF(1).		perl(1), PDL(1), PDL::IO::HDF(1).
=cut		=cut
#line 1408 "SD.pm"		#line 1363 "SD.pm"
# Exit with OK status		# Exit with OK status
1;		1;
End of changes. 12 change blocks.
12 lines changed or deleted		1 lines changed or added

---