"Fossies" - the Fresh Open Source Software Archive  

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

Pnm.pm  (PDL-2.074)	:	Pnm.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::Pnm ;		bootstrap PDL::IO::Pnm ;
#line 10 "pnm.pd"		#line 9 "pnm.pd"
use strict;		use strict;
use warnings;		use warnings;
=head1 NAME		=head1 NAME
PDL::IO::Pnm -- pnm format I/O for PDL		PDL::IO::Pnm -- pnm format I/O for PDL
=head1 SYNOPSIS		=head1 SYNOPSIS
skipping to change at line 53		skipping to change at line 53
use File::Temp qw( tempfile );		use File::Temp qw( tempfile );
# return the upper limit of data values an integer PDL data type		# return the upper limit of data values an integer PDL data type
# can hold		# can hold
sub dmax {		sub dmax {
my $type = shift;		my $type = shift;
my $sz = 8*howbig($type);		my $sz = 8*howbig($type);
$sz-- if !PDL::Type->new($type)->unsigned;		$sz-- if !PDL::Type->new($type)->unsigned;
return ((1 << $sz)-1);		return ((1 << $sz)-1);
}		}
#line 61 "Pnm.pm"		#line 62 "Pnm.pm"
=head1 FUNCTIONS		=head1 FUNCTIONS
=cut		=cut
#line 1059 "../../blib/lib/PDL/PP.pm"		#line 1058 "../../blib/lib/PDL/PP.pm"
=head2 pnminraw		=head2 pnminraw
=for sig		=for sig
Signature: (type(); byte+ [o] im(m,n); int ms => m; int ns => n;		Signature: (type(); byte+ [o] im(m,n); int ms => m; int ns => n;
int isbin; PerlIO *fp)		int isbin; PerlIO *fp)
=for ref		=for ref
skipping to change at line 83		skipping to change at line 83
determine the type of the operation when creating C<im> or trigger		determine the type of the operation when creating C<im> or trigger
the appropriate type conversion (maybe we want a byte+ here so that		the appropriate type conversion (maybe we want a byte+ here so that
C<im> follows I<strictly> the type of C<type>).		C<im> follows I<strictly> the type of C<type>).
=for bad		=for bad
pnminraw does not process bad values.		pnminraw does not process bad values.
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.		It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut		=cut
#line 103 "Pnm.pm"		#line 105 "Pnm.pm"
		#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*pnminraw = \&PDL::pnminraw;		*pnminraw = \&PDL::pnminraw;
#line 109 "Pnm.pm"		#line 112 "Pnm.pm"
#line 1059 "../../blib/lib/PDL/PP.pm"		#line 1058 "../../blib/lib/PDL/PP.pm"
=head2 pnminascii		=head2 pnminascii
=for sig		=for sig
Signature: (type(); byte+ [o] im(m,n); int ms => m; int ns => n;		Signature: (type(); byte+ [o] im(m,n); int ms => m; int ns => n;
int format; PerlIO *fp)		int format; PerlIO *fp)
=for ref		=for ref
Read in an ascii pnm file.		Read in an ascii pnm file.
=for bad		=for bad
pnminascii does not process bad values.		pnminascii does not process bad values.
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.		It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut		=cut
#line 136 "Pnm.pm"		#line 140 "Pnm.pm"
		#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*pnminascii = \&PDL::pnminascii;		*pnminascii = \&PDL::pnminascii;
#line 142 "Pnm.pm"		#line 147 "Pnm.pm"
#line 1059 "../../blib/lib/PDL/PP.pm"		#line 1058 "../../blib/lib/PDL/PP.pm"
=head2 pnmout		=head2 pnmout
=for sig		=for sig
Signature: (a(m); int israw; int isbin; PerlIO *fp)		Signature: (a(m); int israw; int isbin; PerlIO *fp)
=for ref		=for ref
Write a line of pnm data.		Write a line of pnm data.
This function is implemented this way so that threading works		This function is implemented this way so that broadcasting works
naturally.		naturally.
=for bad		=for bad
pnmout does not process bad values.		pnmout does not process bad values.
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.		It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut		=cut
#line 171 "Pnm.pm"		#line 177 "Pnm.pm"
		#line 1060 "../../blib/lib/PDL/PP.pm"
#line 1061 "../../blib/lib/PDL/PP.pm"
*pnmout = \&PDL::pnmout;		*pnmout = \&PDL::pnmout;
#line 177 "Pnm.pm"		#line 184 "Pnm.pm"
		#line 47 "pnm.pd"
#line 48 "pnm.pd"
=head2 rpnm		=head2 rpnm
=for ref		=for ref
Read a pnm (portable bitmap/pixmap, pbm/ppm) file into an ndarray.		Read a pnm (portable bitmap/pixmap, pbm/ppm) file into an ndarray.
=for usage		=for usage
Usage: $im = rpnm $file;		Usage: $im = rpnm $file;
skipping to change at line 366		skipping to change at line 370
Copyright (C) 1996,1997 Christian Soeller <c.soeller@auckland.ac.nz>		Copyright (C) 1996,1997 Christian Soeller <c.soeller@auckland.ac.nz>
All rights reserved. There is no warranty. You are allowed		All rights reserved. There is no warranty. You are allowed
to redistribute this software / documentation under certain		to redistribute this software / documentation under certain
conditions. For details, see the file COPYING in the PDL		conditions. For details, see the file COPYING in the PDL
distribution. If this file is separated from the PDL distribution,		distribution. If this file is separated from the PDL distribution,
the copyright notice should be included in the file.		the copyright notice should be included in the file.
=cut		=cut
############################## END PM CODE ################################		############################## END PM CODE ################################
#line 412 "Pnm.pm"		#line 420 "Pnm.pm"
# Exit with OK status		# Exit with OK status
1;		1;
End of changes. 17 change blocks.
17 lines changed or deleted		21 lines changed or added

---