echo_commandline_arguments.adb

来自「This contains the following topics and m」· ADB 代码 · 共 12 行

with Ada.Text_IO, Ada.Command_Line; use Ada.Text_IO, Ada.Command_Line;
procedure Echo_commandline_arguments is
begin
   for I in  1 .. Argument_Count loop --For each argument
      Put (Argument (I)); -- Print it
      if I /= Argument_Count then -- If not last
         Put (" "); -- Print separator
      end if;
   end loop;
   New_Line;
end Echo_commandline_arguments;