![]() ![]() | ![]() |
File: [local] / OpenXM_contrib / PHC / Ada / System / ts_cmdline.adb (download)
Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:34 2000 UTC (23 years, 10 months ago) by maekawa
Import the second public release of PHCpack. OKed by Jan Verschelde. |
with text_io,integer_io; use text_io,integer_io; with Unix_Command_Line; use Unix_Command_Line; procedure ts_cmdline is -- DESCRIPTION : -- Prints the arguments of the command line. narg : constant natural := Number_of_Arguments; begin put("The number of arguments : "); put(narg,1); new_line; put_line("The arguments :"); for k in 0..narg loop put("arg("); put(k,1); put("): "); put_line(Argument(k)); end loop; end ts_cmdline;