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);
618       if Parser.Current_Argument > Parser.Arg_Count
620                    Argument (Parser, Parser.Current_Argument)'Last
634                             Argument (Parser, Parser.Current_Argument);
652                      Arg_Num => Parser.Current_Argument,
655                   Parser.Is_Switch (Parser.Current_Argument) := True;
661                   Parser.Current_Argument := Positive'Last;
678             Parser.Is_Switch (Parser.Current_Argument) := True;
734                if Parser.Section (Parser.Current_Argument) = 0 then
744                      Arg_Num => Parser.Current_Argument,
748                   Parser.Is_Switch (Parser.Current_Argument) := True;
757                   Arg_Num => Parser.Current_Argument,
763                   Arg_Num => Parser.Current_Argument,
778             Arg_Num => Parser.Current_Argument,
787                      Arg_Num => Parser.Current_Argument,
792                elsif Parser.Current_Argument < Parser.Arg_Count
793                  and then Parser.Section (Parser.Current_Argument + 1) /= 0
795                   Parser.Current_Argument := Parser.Current_Argument + 1;
799                      Arg_Num => Parser.Current_Argument,
800                      First => Argument (Parser, Parser.Current_Argument)'First,
801                      Last  => Argument (Parser, Parser.Current_Argument)'Last);
802                   Parser.Is_Switch (Parser.Current_Argument) := True;
821                         Arg_Num => Parser.Current_Argument,
833                elsif Parser.Current_Argument < Parser.Arg_Count
834                  and then Parser.Section (Parser.Current_Argument + 1) /= 0
836                   Parser.Current_Argument := Parser.Current_Argument + 1;
840                      Arg_Num => Parser.Current_Argument,
841                      First => Argument (Parser, Parser.Current_Argument)'First,
842                      Last  => Argument (Parser, Parser.Current_Argument)'Last);
843                   Parser.Is_Switch (Parser.Current_Argument) := True;
855                      Arg_Num => Parser.Current_Argument,
869                      Arg_Num => Parser.Current_Argument,
887                         Arg_Num => Parser.Current_Argument,
890                      Parser.Is_Switch (Parser.Current_Argument) := True;
897                      Arg_Num => Parser.Current_Argument,
919       Parser.Current_Argument := Parser.Current_Argument + 1;
921       if Parser.Current_Argument > Parser.Arg_Count
922         or else Parser.Section (Parser.Current_Argument) = 0
925             Parser.Current_Argument := Parser.Current_Argument + 1;
927             if Parser.Current_Argument > Parser.Arg_Count then
932             exit when Parser.Section (Parser.Current_Argument) =
938         Argument (Parser, Parser.Current_Argument)'First;
957          Parser.Current_Argument := 1;
968             Parser.Current_Argument := Index + 1;
971             if Parser.Current_Argument <= Parser.Arg_Count then
973                  Parser.Section (Parser.Current_Argument);
988       Parser.Current_Argument := Positive'Last;
1060       Parser.Current_Argument := 0;