with Ada.Unchecked_Deallocation;
with Ada.Strings.Unbounded;
+
with GNAT.OS_Lib; use GNAT.OS_Lib;
package body GNAT.Command_Line is
and then Looking_At
(Result (C).all, Result (C)'First, Cmd.Config.Prefixes (P).all)
then
- Group := Group &
- Result (C)
- (Result (C)'First + Cmd.Config.Prefixes (P)'Length ..
+ Group :=
+ Group &
+ Result (C)
+ (Result (C)'First + Cmd.Config.Prefixes (P)'Length ..
Result (C)'Last);
+
if First = 0 then
First := C;
end if;
end loop;
if First > 0 then
- Result (First) := new String'
- (Cmd.Config.Prefixes (P).all &
- Ada.Strings.Unbounded.To_String (Group));
+ Result (First) :=
+ new String'
+ (Cmd.Config.Prefixes (P).all &
+ Ada.Strings.Unbounded.To_String (Group));
end if;
end loop;
end Group_Switches;