Return to ts_cmdline.adb CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / System

Annotation of OpenXM_contrib/PHC/Ada/System/ts_cmdline.adb, Revision 1.1.1.1

1.1       maekawa     1: with text_io,integer_io;                 use text_io,integer_io;
                      2: with Unix_Command_Line;                  use Unix_Command_Line;
                      3:
                      4: procedure ts_cmdline is
                      5:
                      6: -- DESCRIPTION :
                      7: --   Prints the arguments of the command line.
                      8:
                      9:   narg : constant natural := Number_of_Arguments;
                     10:
                     11: begin
                     12:   put("The number of arguments : "); put(narg,1); new_line;
                     13:   put_line("The arguments :");
                     14:   for k in 0..narg loop
                     15:     put("arg("); put(k,1); put("): ");
                     16:     put_line(Argument(k));
                     17:   end loop;
                     18: end ts_cmdline;