-- This file is  free  software, which  comes  along  with  SmallEiffel. This
-- software  is  distributed  in the hope that it will be useful, but WITHOUT 
-- ANY  WARRANTY;  without  even  the  implied warranty of MERCHANTABILITY or
-- FITNESS  FOR A PARTICULAR PURPOSE. You can modify it as you want, provided
-- this header is kept unaltered, and a notification of the changes is added.
-- You  are  allowed  to  redistribute  it and sell it, alone or as a part of 
-- another product.
--          Copyright (C) 1994-98 LORIA - UHP - CRIN - INRIA - FRANCE
--            Dominique COLNET and Suzanne COLLIN - colnet@loria.fr 
--                       http://www.loria.fr/SmallEiffel
--
class DEMO3

creation make 

feature

   make is
      local
	 rand: GEN_RAND;
	 seed, count: INTEGER;
      do
	 if argument_count < 2 then
	    io.put_string(
	    "Usage: demo <seed> <count> [min_stand|std_rand]%N%
	    %Examples :%N%
	    %   demo 234 10 %N%
	    %   demo 234 10 std_rand%N%
	    %   demo 234 100 min_stand%N");
	    die_with_code(exit_failure_code);
	 end;
	 seed := argument(1).to_integer;
	 count := argument(2).to_integer;
	 if argument_count > 2 then
	    if argument(3).same_as("MIN_STAND") then
	       !MIN_STAND!rand.with_seed(seed);
	       io.put_string("Using MIN_STAND%N.");
	    else
	       !STD_RAND!rand.with_seed(seed);
	       io.put_string("Using STD_RAND%N.");
	    end;
	 else
	    !STD_RAND!rand.with_seed(seed);
	    io.put_string("Using default STD_RAND%N.");
	 end;
	 from
	 until
	    count = 0
	 loop
	    rand.next;
	    io.put_double(rand.last_double);
	    count := count - 1;
	    io.put_string("%N");
	 end;
      end;

   generators: ARRAY[STRING] is 
      once
	 Result := <<"MIN_STAND","STD_RAN">>;
      end;

end -- DEMO3