ada/libgnat/a-teioed.adb

216          exit when Last = Pic.Radix_Position;
238          exit when J = Pic.Radix_Position;
278          elsif Pic.Radix_Position = Invalid_Position
279            or else Pic.Start_Currency < Pic.Radix_Position
304         (if Pic.Radix_Position = Invalid_Position
306          else Pic.Radix_Position - 1);
547             Last     := Pic.Radix_Position + 1;
577             Position := Pic.Radix_Position + 1;
691          if Pic.Radix_Position /= Invalid_Position
692            and then Answer (Pic.Radix_Position) = 'V'
706          if Pic.Radix_Position /= Invalid_Position then
708             if Answer (Pic.Radix_Position) = 'V' then
712                if Pic.Radix_Position > Pic.Start_Currency then
713                   return String'(1 .. Pic.Radix_Position - 1 => '*') &
715                      String'(Pic.Radix_Position + 1 .. Last => '*');
721                       Pic.Radix_Position + Currency_Symbol'Length - 2 =>
724                      (Pic.Radix_Position + Currency_Symbol'Length .. Last
729                return String'(1 .. Pic.Radix_Position - 1 => '*') &
731                   String'(Pic.Radix_Position + 1 .. Last => '*');
756       if Pic.Radix_Position /= Invalid_Position then
758          if Answer (Pic.Radix_Position) = '.' then
759             Answer (Pic.Radix_Position) := Radix_Point;
774          elsif Answer (Pic.Radix_Position) = ' ' then --  blanked radix.
795                return Answer (1 .. Pic.Radix_Position - 1) &
796                   Answer (Pic.Radix_Position + 1 .. Answer'Last);
798             elsif Currency_Pos < Pic.Radix_Position then
803                   Answer (Currency_Pos + 1 .. Pic.Radix_Position - 1) &
804                   Answer (Pic.Radix_Position + 1 .. Answer'Last);
809                return Answer (1 .. Pic.Radix_Position - 1) &
810                   Answer (Pic.Radix_Position + 1 .. Currency_Pos - 1) &
1101                   Pic.Radix_Position := Index;
1145                   Pic.Radix_Position := Index;
1226                   Pic.Radix_Position := Index;
1408                   Pic.Radix_Position := Index;
1547                   Pic.Radix_Position := Index;
1595                   Pic.Radix_Position := Index;
1637                   Pic.Radix_Position := Index;
2077                   Pic.Radix_Position := Index;
2479                   Pic.Radix_Position := Index;
2612                   Pic.Radix_Position := Index;
2646       Debug_Integer (Pic.Radix_Position, "Radix Positon : ");