ada/libgnat/g-comlin.adb

354       for Index in reverse 1 .. Integer'Min (Parser.Current_Argument - 1,
404       if Parser.Current_Argument > Parser.Arg_Count then
409             Parser.Current_Argument := 1;
410             while Parser.Current_Argument <= Parser.Arg_Count
411               and then Parser.Section (Parser.Current_Argument) /=
414                Parser.Current_Argument := Parser.Current_Argument + 1;
421       elsif Parser.Section (Parser.Current_Argument) = 0 then
422          while Parser.Current_Argument <= Parser.Arg_Count
423            and then Parser.Section (Parser.Current_Argument) /=
426             Parser.Current_Argument := Parser.Current_Argument + 1;
432       while Parser.Current_Argument <= Parser.Arg_Count
433         and then Parser.Is_Switch (Parser.Current_Argument)
435          Parser.Current_Argument := Parser.Current_Argument + 1;
438       if Parser.Current_Argument > Parser.Arg_Count then
440       elsif Parser.Section (Parser.Current_Argument) = 0 then
444       Parser.Current_Argument := Parser.Current_Argument + 1;
451                       Argument (Parser, Parser.Current_Argument - 1);
466       return Argument (Parser, Parser.Current_Argument - 1);
603       if Parser.Current_Argument > Parser.Arg_Count
605                    Argument (Parser, Parser.Current_Argument)'Last
619                             Argument (Parser, Parser.Current_Argument);
637                      Arg_Num => Parser.Current_Argument,
640                   Parser.Is_Switch (Parser.Current_Argument) := True;
646                   Parser.Current_Argument := Positive'Last;
663             Parser.Is_Switch (Parser.Current_Argument) := True;
719                if Parser.Section (Parser.Current_Argument) = 0 then
729                      Arg_Num => Parser.Current_Argument,
733                   Parser.Is_Switch (Parser.Current_Argument) := True;
742                   Arg_Num => Parser.Current_Argument,
748                   Arg_Num => Parser.Current_Argument,
762             Arg_Num => Parser.Current_Argument,
771                      Arg_Num => Parser.Current_Argument,
776                elsif Parser.Current_Argument < Parser.Arg_Count
777                  and then Parser.Section (Parser.Current_Argument + 1) /= 0
779                   Parser.Current_Argument := Parser.Current_Argument + 1;
783                      Arg_Num => Parser.Current_Argument,
784                      First => Argument (Parser, Parser.Current_Argument)'First,
785                      Last  => Argument (Parser, Parser.Current_Argument)'Last);
786                   Parser.Is_Switch (Parser.Current_Argument) := True;
805                         Arg_Num => Parser.Current_Argument,
817                elsif Parser.Current_Argument < Parser.Arg_Count
818                  and then Parser.Section (Parser.Current_Argument + 1) /= 0
820                   Parser.Current_Argument := Parser.Current_Argument + 1;
824                      Arg_Num => Parser.Current_Argument,
825                      First => Argument (Parser, Parser.Current_Argument)'First,
826                      Last  => Argument (Parser, Parser.Current_Argument)'Last);
827                   Parser.Is_Switch (Parser.Current_Argument) := True;
839                      Arg_Num => Parser.Current_Argument,
853                      Arg_Num => Parser.Current_Argument,
871                         Arg_Num => Parser.Current_Argument,
874                      Parser.Is_Switch (Parser.Current_Argument) := True;
881                      Arg_Num => Parser.Current_Argument,
902       Parser.Current_Argument := Parser.Current_Argument + 1;
904       if Parser.Current_Argument > Parser.Arg_Count
905         or else Parser.Section (Parser.Current_Argument) = 0
908             Parser.Current_Argument := Parser.Current_Argument + 1;
910             if Parser.Current_Argument > Parser.Arg_Count then
915             exit when Parser.Section (Parser.Current_Argument) =
921         Argument (Parser, Parser.Current_Argument)'First;
940          Parser.Current_Argument := 1;
951             Parser.Current_Argument := Index + 1;
954             if Parser.Current_Argument <= Parser.Arg_Count then
956                  Parser.Section (Parser.Current_Argument);
971       Parser.Current_Argument := Positive'Last;
1043       Parser.Current_Argument := 0;