"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "GENERATED/PDL/IO/HDF/VS.pm" between
PDL-2.074.tar.gz and PDL-2.075.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.074):VS.pm  (PDL-2.075)
skipping to change at line 17 skipping to change at line 17
our %EXPORT_TAGS = (Func=>\@EXPORT_OK); our %EXPORT_TAGS = (Func=>\@EXPORT_OK);
use PDL::Core; use PDL::Core;
use PDL::Exporter; use PDL::Exporter;
use DynaLoader; use DynaLoader;
our @ISA = ( 'PDL::Exporter','DynaLoader' ); our @ISA = ( 'PDL::Exporter','DynaLoader' );
push @PDL::Core::PP, __PACKAGE__; push @PDL::Core::PP, __PACKAGE__;
bootstrap PDL::IO::HDF::VS ; bootstrap PDL::IO::HDF::VS ;
#line 5 "VS.pd" #line 4 "VS.pd"
use strict; use strict;
use warnings; use warnings;
=head1 NAME =head1 NAME
PDL::IO::HDF::VS - An interface library for HDF4 files. PDL::IO::HDF::VS - An interface library for HDF4 files.
=head1 SYNOPSIS =head1 SYNOPSIS
use PDL; use PDL;
skipping to change at line 42 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 50 "VS.pm" #line 51 "VS.pm"
#line 326 "VS.pd" #line 325 "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,
skipping to change at line 247 skipping to change at line 248
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 261 "VS.pm" #line 263 "VS.pm"
#line 528 "VS.pd" #line 528 "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 278 "VS.pm" #line 280 "VS.pm"
#line 543 "VS.pd" #line 543 "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 289 "VS.pm" #line 291 "VS.pm"
#line 552 "VS.pd" #line 552 "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 298 "VS.pm" #line 300 "VS.pm"
#line 559 "VS.pd" #line 559 "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 368 skipping to change at line 369
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 382 "VS.pm" #line 384 "VS.pm"
#line 641 "VS.pd" #line 641 "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 396 "VS.pm" #line 398 "VS.pm"
#line 653 "VS.pd" #line 653 "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 499 skipping to change at line 500
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 515 "VS.pm" #line 517 "VS.pm"
#line 777 "VS.pd" #line 776 "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 536 "VS.pm" #line 539 "VS.pm"
# Exit with OK status # Exit with OK status
1; 1;
 End of changes. 12 change blocks. 
12 lines changed or deleted 13 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)