
  PROCEDURE [INLINE] fip#addl_rjinteger_v2
    (VAR line: ost$string;
         integer_value: integer;
         radix: 2 .. 16;
         include_radix_specifier: boolean;
         integer_size: 1 .. osc$max_string_size;
         fill_character: char;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    VAR
      string_p: ^string ( * );

    status.normal := TRUE;
    PUSH string_p: [integer_size];
    clp$convert_integer_to_rjstring (integer_value, radix,
          include_radix_specifier, fill_character, string_p^, status);
    IF status.normal THEN
      fip#addl_string (line, string_p^);
    IFEND;

  PROCEND fip#addl_rjinteger_v2;
*copyc fip#addl_string
*copyc clp$convert_integer_to_rjstring
?? POP ??


