ada/libgnat/g-comlin.adb

354       for Index in reverse 1 .. Integer'Min (Parser.Current_Argument - 1,
419       if Parser.Current_Argument > Parser.Arg_Count then
424             Parser.Current_Argument := 1;
425             while Parser.Current_Argument <= Parser.Arg_Count
426               and then Parser.Section (Parser.Current_Argument) /=
429                Parser.Current_Argument := Parser.Current_Argument + 1;
437       elsif Parser.Section (Parser.Current_Argument) = 0 then
438          while Parser.Current_Argument <= Parser.Arg_Count
439            and then Parser.Section (Parser.Current_Argument) /=
442             Parser.Current_Argument := Parser.Current_Argument + 1;
448       while Parser.Current_Argument <= Parser.Arg_Count
449         and then Parser.Is_Switch (Parser.Current_Argument)
451          Parser.Current_Argument := Parser.Current_Argument + 1;
454       if Parser.Current_Argument > Parser.Arg_Count then
458       elsif Parser.Section (Parser.Current_Argument) = 0 then
462       Parser.Current_Argument := Parser.Current_Argument + 1;
469                       Argument (Parser, Parser.Current_Argument - 1);
481       return Argument (Parser, Parser.Current_Argument - 1);
619       if Parser.Current_Argument > Parser.Arg_Count
621                    Argument (Parser, Parser.Current_Argument)'Last
635                             Argument (Parser, Parser.Current_Argument);
653                      Arg_Num => Parser.Current_Argument,
656                   Parser.Is_Switch (Parser.Current_Argument) := True;
662                   Parser.Current_Argument := Positive'Last;
679             Parser.Is_Switch (Parser.Current_Argument) := True;
735                if Parser.Section (Parser.Current_Argument) = 0 then
745                      Arg_Num => Parser.Current_Argument,
749                   Parser.Is_Switch (Parser.Current_Argument) := True;
758                   Arg_Num => Parser.Current_Argument,
764                   Arg_Num => Parser.Current_Argument,
779             Arg_Num => Parser.Current_Argument,
788                      Arg_Num => Parser.Current_Argument,
793                elsif Parser.Current_Argument < Parser.Arg_Count
794                  and then Parser.Section (Parser.Current_Argument + 1) /= 0
796                   Parser.Current_Argument := Parser.Current_Argument + 1;
800                      Arg_Num => Parser.Current_Argument,
801                      First => Argument (Parser, Parser.Current_Argument)'First,
802                      Last  => Argument (Parser, Parser.Current_Argument)'Last);
803                   Parser.Is_Switch (Parser.Current_Argument) := True;
822                         Arg_Num => Parser.Current_Argument,
834                elsif Parser.Current_Argument < Parser.Arg_Count
835                  and then Parser.Section (Parser.Current_Argument + 1) /= 0
837                   Parser.Current_Argument := Parser.Current_Argument + 1;
841                      Arg_Num => Parser.Current_Argument,
842                      First => Argument (Parser, Parser.Current_Argument)'First,
843                      Last  => Argument (Parser, Parser.Current_Argument)'Last);
844                   Parser.Is_Switch (Parser.Current_Argument) := True;
856                      Arg_Num => Parser.Current_Argument,
870                      Arg_Num => Parser.Current_Argument,
888                         Arg_Num => Parser.Current_Argument,
891                      Parser.Is_Switch (Parser.Current_Argument) := True;
898                      Arg_Num => Parser.Current_Argument,
920       Parser.Current_Argument := Parser.Current_Argument + 1;
922       if Parser.Current_Argument > Parser.Arg_Count
923         or else Parser.Section (Parser.Current_Argument) = 0
926             Parser.Current_Argument := Parser.Current_Argument + 1;
928             if Parser.Current_Argument > Parser.Arg_Count then
933             exit when Parser.Section (Parser.Current_Argument) =
939         Argument (Parser, Parser.Current_Argument)'First;
958          Parser.Current_Argument := 1;
969             Parser.Current_Argument := Index + 1;
972             if Parser.Current_Argument <= Parser.Arg_Count then
974                  Parser.Section (Parser.Current_Argument);
989       Parser.Current_Argument := Positive'Last;
1061       Parser.Current_Argument := 0;