"Fossies" - the Fresh Open Source Software Archive  

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

IIS.pm  (PDL-2.082):IIS.pm  (PDL-2.083)
skipping to change at line 91 skipping to change at line 91
guessing which file names to use for the pipes and will prompt for their guessing which file names to use for the pipes and will prompt for their
creating if absent. Also if SAOimage or Ximtool are started from within Perl creating if absent. Also if SAOimage or Ximtool are started from within Perl
using the module this will guarantee correct file names! using the module this will guarantee correct file names!
=head1 FUNCTIONS =head1 FUNCTIONS
=cut =cut
use strict; use strict;
use warnings; use warnings;
#line 99 "IIS.pm"
#line 84 "iis.pd" #line 84 "iis.pd"
use PDL::Core ''; use PDL::Core '';
use PDL::Basic ''; use PDL::Basic '';
use Carp; use Carp;
$iisframe = 1; # Starting defaults $iisframe = 1; # Starting defaults
$stdimage = "imt1024"; $stdimage = "imt1024";
$last_stdimage = ""; $last_stdimage = "";
$HOME = $ENV{'HOME'}; # Used a lot so shorten $HOME = $ENV{'HOME'}; # Used a lot so shorten
################ Public routines ################# ################ Public routines #################
skipping to change at line 159 skipping to change at line 157
if ( defined $header and defined $$header{OBJECT} ) { if ( defined $header and defined $$header{OBJECT} ) {
$title = $$header{OBJECT}; $title = $$header{OBJECT};
$title =~ s/^'(.*)'$/$1/; $title =~ s/^'(.*)'$/$1/;
} }
my $frame = $iisframe; my $frame = $iisframe;
if ( $#_ == 1 ) { $min = $_[0]; $max = $_[1]; } if ( $#_ == 1 ) { $min = $_[0]; $max = $_[1]; }
elsif ( $#_ == 0 ) { elsif ( $#_ == 0 ) {
barf $usage unless ref($_[0]) eq "HASH"; barf $usage unless ref($_[0]) eq "HASH";
my $opt = new PDL::Options( { MIN => undef, MAX => undef, TITLE => $title, FRAME => $frame } ); my $opt = PDL::Options->new( { MIN => undef, MAX => undef, TITLE => $title , FRAME => $frame } );
$opt->options( shift ); $opt->options( shift );
my $options = $opt->current; my $options = $opt->current;
$min = $$options{MIN}; $min = $$options{MIN};
$max = $$options{MAX}; $max = $$options{MAX};
$title = $$options{TITLE}; $title = $$options{TITLE};
$iisframe = $$options{FRAME}; $iisframe = $$options{FRAME};
} }
my($nx,$ny) = dims($image); my($nx,$ny) = dims($image);
skipping to change at line 414 skipping to change at line 412
# Note system return value is backwards - hence 'and' # Note system return value is backwards - hence 'and'
if ( system('mknod', $pipe, 'p') and system('mkfifo',$pipe) ) { if ( system('mknod', $pipe, 'p') and system('mkfifo',$pipe) ) {
die "Failed to create named pipe $pipe\n"; die "Failed to create named pipe $pipe\n";
} }
$ENV{PATH} = $path; $ENV{PATH} = $path;
} }
} }
} }
1;} 1;}
#line 431 "IIS.pm" #line 421 "IIS.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*_iis = \&PDL::Graphics::IIS::_iis; *_iis = \&PDL::Graphics::IIS::_iis;
#line 438 "IIS.pm"
#line 960 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*_iiscirc = \&PDL::Graphics::IIS::_iiscirc; *_iiscirc = \&PDL::Graphics::IIS::_iiscirc;
#line 445 "IIS.pm"
#line 619 "iis.pd" #line 619 "iis.pd"
=head1 BUGS =head1 BUGS
None known None known
=head1 AUTHOR =head1 AUTHOR
Copyright (C) Karl Glazebrook 1997. Copyright (C) Karl Glazebrook 1997.
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
#line 468 "IIS.pm" #line 452 "IIS.pm"
# Exit with OK status # Exit with OK status
1; 1;
 End of changes. 7 change blocks. 
11 lines changed or deleted 3 lines changed or added

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