-------------------------------------------------------------------------------
-- Copyright 2021, The Septum Developers (see AUTHORS file)
-- Licensed under the Apache License, Version 2.0 (the "License");
-- you may not use this file except in compliance with the License.
-- You may obtain a copy of the License at
-- http://www.apache.org/licenses/LICENSE-2.0
-- Unless required by applicable law or agreed to in writing, software
-- distributed under the License is distributed on an "AS IS" BASIS,
-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-- See the License for the specific language governing permissions and
-- limitations under the License.
-------------------------------------------------------------------------------
with Ada.Command_Line;
with Ada.Integer_Text_IO;
with Ada.Text_IO;
package body SP.Debug is
procedure Print_Command_Line is
use Ada;
begin
Text_IO.Put_Line ("Command: " & Command_Line.Command_Name);
Text_IO.Put_Line
("Arguments: " & Integer'Image (Command_Line.Argument_Count));
for Arg_Idx in 1 .. Command_Line.Argument_Count loop
Integer_Text_IO.Put (Arg_Idx);
Text_IO.Set_Col (5);
Text_IO.Put_Line (Command_Line.Argument (Arg_Idx));
end loop;
end Print_Command_Line;
end SP.Debug;