?? RIGHT := 110 ??
?? NEWTITLE := 'NOS/VE : Append Real Number to Status Record' ??
MODULE osm$append_status_real;

{
{ PURPOSE:
{   This module contains the routine that appends a real number to the
{   text field of a status record.
{

?? NEWTITLE := 'Global Declarations', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc clt$real_number_digit_count
*copyc osk$keypoints
*copyc ost$status
?? POP ??
*copyc clp$convert_real_to_string
*copyc osp$append_status_parameter

?? TITLE := 'osp$append_status_real', EJECT ??
*copyc osh$append_status_real

  PROCEDURE [XDCL, #GATE] osp$append_status_real
    (    delimiter: char;
         real_number: longreal;
         number_of_digits: clt$real_number_digit_count;
     VAR status {input, output} : ost$status);

    VAR
      ignore_status: ost$status,
      text: ost$string;

    clp$convert_real_to_string (real_number, number_of_digits, text, ignore_status);
    osp$append_status_parameter (delimiter, text.value (1, text.size), status);

  PROCEND osp$append_status_real;

MODEND osm$append_status_real;
