"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "GENERATED/PDL/IO/HDF/VS.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).

VS.pm  (PDL-2.082)	:	VS.pm  (PDL-2.083)
skipping to change at line 43		skipping to change at line 43
=head1 DESCRIPTION		=head1 DESCRIPTION
This library provides functions to manipulate		This library provides functions to manipulate
HDF4 files with VS and V interface (reading, writing, ...)		HDF4 files with VS and V interface (reading, writing, ...)
For more information on HDF4, see http://www.hdfgroup.org/products/hdf4/		For more information on HDF4, see http://www.hdfgroup.org/products/hdf4/
=head1 FUNCTIONS		=head1 FUNCTIONS
=cut		=cut
#line 51 "VS.pm"
#line 308 "VS.pd"		#line 308 "VS.pd"
use PDL::Primitive;		use PDL::Primitive;
use PDL::Basic;		use PDL::Basic;
use PDL::IO::HDF;		use PDL::IO::HDF;
my $TMAP = {		my $TMAP = {
PDL::byte->[0] => 1,		PDL::byte->[0] => 1,
PDL::short->[0] => 2,		PDL::short->[0] => 2,
PDL::ushort->[0] => 2,		PDL::ushort->[0] => 2,
PDL::long->[0] => 4,		PDL::long->[0] => 4,
skipping to change at line 241		skipping to change at line 239
bless($self, $type);		bless($self, $type);
} # End of new()...		} # End of new()...
sub Vgetchildren		sub Vgetchildren
{		{
my ($self, $name) = @_;		my ($self, $name) = @_;
return( undef )		return( undef )
unless defined( $self->{VGROUP}->{$name}->{children} );		unless defined( $self->{VGROUP}->{$name}->{children} );
return sort keys %{$self->{VGROUP}->{$name}->{children}};		return sort keys %{$self->{VGROUP}->{$name}->{children}};
#line 256 "VS.pm"
#line 504 "VS.pd"		#line 504 "VS.pd"
} # End of Vgetchildren()...		} # End of Vgetchildren()...
# Now defunct:		# Now defunct:
sub Vgetchilds		sub Vgetchilds
{		{
my $self = shift;		my $self = shift;
return $self->Vgetchildren( @_ );		return $self->Vgetchildren( @_ );
} # End of Vgetchilds()...		} # End of Vgetchilds()...
sub Vgetattach		sub Vgetattach
{		{
my ($self, $name) = @_;		my ($self, $name) = @_;
return( undef )		return( undef )
unless defined( $self->{VGROUP}->{$name}->{attach} );		unless defined( $self->{VGROUP}->{$name}->{attach} );
return sort keys %{$self->{VGROUP}->{$name}->{children}};		return sort keys %{$self->{VGROUP}->{$name}->{children}};
#line 273 "VS.pm"
#line 519 "VS.pd"		#line 519 "VS.pd"
} # End of Vgetattach()...		} # End of Vgetattach()...
sub Vgetparents		sub Vgetparents
{		{
my ($self, $name) = @_;		my ($self, $name) = @_;
return( undef )		return( undef )
unless defined( $self->{VGROUP}->{$name}->{parents} );		unless defined( $self->{VGROUP}->{$name}->{parents} );
return sort keys %{$self->{VGROUP}->{$name}->{parents}};		return sort keys %{$self->{VGROUP}->{$name}->{parents}};
#line 284 "VS.pm"
#line 528 "VS.pd"		#line 528 "VS.pd"
} # End of Vgetparents()...		} # End of Vgetparents()...
sub Vgetmains		sub Vgetmains
{		{
my ($self) = @_;		my ($self) = @_;
my @rlist;		my @rlist;
foreach( sort keys %{$self->{VGROUP}} )		foreach( sort keys %{$self->{VGROUP}} )
#line 293 "VS.pm"
#line 535 "VS.pd"		#line 535 "VS.pd"
{		{
push(@rlist, $_)		push(@rlist, $_)
unless defined( $self->{VGROUP}->{$_}->{parents} );		unless defined( $self->{VGROUP}->{$_}->{parents} );
}		}
return @rlist;		return @rlist;
} # End of Vgetmains()...		} # End of Vgetmains()...
sub Vcreate		sub Vcreate
{		{
skipping to change at line 362		skipping to change at line 356
return undef		return undef
unless defined( $self->{VDATA}->{$name} );		unless defined( $self->{VDATA}->{$name} );
return $self->{VDATA}->{$name}->{ISATTR};		return $self->{VDATA}->{$name}->{ISATTR};
} # End of VSisattr()...		} # End of VSisattr()...
sub VSgetnames		sub VSgetnames
{		{
my $self = shift;		my $self = shift;
return sort keys %{$self->{VDATA}};		return sort keys %{$self->{VDATA}};
#line 377 "VS.pm"
#line 617 "VS.pd"		#line 617 "VS.pd"
} # End of VSgetnames()...		} # End of VSgetnames()...
sub VSgetfieldnames		sub VSgetfieldnames
{		{
my ( $self, $name ) = @_;		my ( $self, $name ) = @_;
my $sub = _pkg_name( 'VSgetfieldnames' );		my $sub = _pkg_name( 'VSgetfieldnames' );
die "$sub: vdata name $name doesn't exist!\n"		die "$sub: vdata name $name doesn't exist!\n"
unless defined( $self->{VDATA}->{$name} );		unless defined( $self->{VDATA}->{$name} );
return sort keys %{$self->{VDATA}->{$name}->{FIELDS}};		return sort keys %{$self->{VDATA}->{$name}->{FIELDS}};
#line 391 "VS.pm"
#line 629 "VS.pd"		#line 629 "VS.pd"
} # End of VSgetfieldnames()...		} # End of VSgetfieldnames()...
# Now defunct:		# Now defunct:
sub VSgetfieldsnames		sub VSgetfieldsnames
{		{
my $self = shift;		my $self = shift;
return $self->VSgetfieldnames( @_ );		return $self->VSgetfieldnames( @_ );
} # End of VSgetfieldsnames()...		} # End of VSgetfieldsnames()...
sub VSread		sub VSread
skipping to change at line 493		skipping to change at line 485
return( undef )		return( undef )
if( _VSdetach($VD_id) == PDL::IO::HDF->FAIL );		if( _VSdetach($VD_id) == PDL::IO::HDF->FAIL );
return $res;		return $res;
} # End of VSwrite()...		} # End of VSwrite()...
sub DESTROY		sub DESTROY
{		{
my $self = shift;		my $self = shift;
$self->close;		$self->close;
} # End of DESTROY()...		} # End of DESTROY()...
#line 510 "VS.pm"
#line 752 "VS.pd"		#line 752 "VS.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
Olivier Archer olivier.archer@ifremer.fr		Olivier Archer olivier.archer@ifremer.fr
contribs of Patrick Leilde patrick.leilde@ifremer.fr		contribs of Patrick Leilde patrick.leilde@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 532 "VS.pm"		#line 511 "VS.pm"
# Exit with OK status		# Exit with OK status
1;		1;
End of changes. 11 change blocks.
11 lines changed or deleted		1 lines changed or added

---