Laboratoire de l'Informatique et du Parallélisme » MEPlib

#! /usr/bin/perl

# printESPointsList.pl - ST - 2005-07-18

# COMMAND LINE SYNTAX:

# printESPointsList.pl lower_bound upper_bound number_of_points

# NOTE(S):

# This script is by product from printGeneratorVector.pl as

# uses the same function to compute a list of points. 

#

##############################################################################

# PROGRAM DECLARATIONS

##############################################################################

BEGIN

{

  # Modify @INC here if necessary

  push(@INC,"../utils");

  push(@INC,"../utils/vandermonde");

};

# core modules

use strict; # must be first to force strict in all others

use Carp;

use Getopt::Long;

use Math::BigFloat;

use Math::BigRat;

# custom modules

# Uncomment if you want to use standard exit error codes.

# the stdExitErrors.pm file must be available around.

use stdExitErrors;

use Vandermonde qw(:BASIC);

#use Matrix qw(:BASIC);

##############################################################################

# PROGRAM CONSTANT DECLARATIONS

##############################################################################

my @test = (1,2,10);

##############################################################################

# PROGRAM VARIABLE DECLARATIONS

##############################################################################

my $stringVectorRef   = [];

my $generatorVectorRef;

##############################################################################

# TEST ENVIRONMENT AND CONFIGURATION VARIABLES

##############################################################################

##############################################################################

# INITIALIZE DEBUG FILE

##############################################################################

##############################################################################

# INITIALIZE LOG FILE

##############################################################################

##############################################################################

# GET COMMAND LINE ARGUMENTS

##############################################################################

##############################################################################

# PROGRAM MAIN

##############################################################################

&usage();

$generatorVectorRef = &pointsListFromBoundsAndNumPointsRat($stringVectorRef);

for (my $i = 0 ; defined($$generatorVectorRef[$i]) ; $i++)

{

  print STDOUT "$$generatorVectorRef[$i] ";

}

print STDOUT "\n";

# Uncomment this line and remove the next one if using stdExitErrors.

exit($EX_OK);

##############################################################################

# PROGRAM SUBS

##############################################################################

##############################################################################

# sub mySub

##############################################################################

# Performed task:

#

# input   :

# output  :

# globals :

#

sub mySub {

  my ($someParameter) = @_;

  if (! defined($someParameter))

  {

    my @call_info = caller(0);

    print "\n\n", $call_info[3], " missing parameter. Aborting program!\n\n";

    # Uncomment this line and remove the next one if using stdExitErrors.

    #exit($EX_SOFTWARE);

    exit(1);

  }

} # End mySub

##############################################################################

# sub $retv = _privateSubName($argv)

##############################################################################

sub _privateSubName

{

	my $argv = shift();

	my $retv = undef;

	return($retv);

};

#

##############################################################################

# sub usage

##############################################################################

# Performed task: checks the command line parameters

#

# input   : none

# output  : none

# globals : $ARGV,others...

#

sub usage {

  if (! defined($ARGV[2]))

  {

    my $scriptName = `basename $0`;

    chomp $scriptName;

    print STDERR "\n\nUsage : $scriptName lowerBound upperBound num_points\n\n";

    print STDERR "  - lowerBound: the lower bound for the Vandermonde matrix;\n";

    print STDERR "  - upperBound: the upper bound for the Vandermonde matrix;\n";

    print STDERR "  - num_points: the number of points.\n\n";

    # Uncomment this line and remove the next one if using stdExitErrors.

    exit($EX_USAGE);

  } # End if

# Some initializations

$ARGV[0] =~ s/"//g;

if (Math::BigRat->new($ARGV[0])->is_nan())

{

  print STDERR "\n\n";

  print STDERR "Lower bound \"$ARGV[0]\" can not be converted into a ";

  print STDERR "Math::BigRat. Aborting the program!";

  print STDERR "\n\n";

  exit($EX_DATAERR);

}

push(@$stringVectorRef, $ARGV[0]);

$ARGV[1] =~ s/"//g;

if (Math::BigRat->new($ARGV[1])->is_nan())

{

  print STDERR "\n\n";

  print STDERR "Upper bound \"$ARGV[1]\" can not be converted into a ";

  print STDERR "Math::BigRat. Aborting the program!";

  print STDERR "\n\n";

  exit($EX_DATAERR);

}

push(@$stringVectorRef, $ARGV[1]);

$ARGV[2] =~ s/"//g;

if (Math::BigInt->new($ARGV[3])->is_nan())

{

  print STDERR "\n\n";

  print STDERR "The number of files \"$ARGV[2]\" is not a valid integer. ";

  print STDERR "Aborting the program!";

  print STDERR "\n\n";

  exit($EX_DATAERR);

}

push(@$stringVectorRef, $ARGV[2]);

} # End usage

__END__