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     ! 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;