1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | with Ada.Command_Line; package body Fuse is function Get_Arguments return Arguments_Type is Arguments : Arguments_Type; begin for I in 1 .. Ada.Command_Line.Argument_Count loop Arguments.Append (Ada.Command_Line.Argument (I)); end loop; return Arguments; end Get_Arguments; end Fuse; -- vim: ts=3 sw=3 et |