
  FUNCTION [INLINE] clp$trimmed_string_size
    (    str: string ( * )): integer;

?? PUSH (LISTEXT := ON) ??

    VAR
      horizontal_tab: char,
      size: ost$non_negative_integers,
      space: char;

    horizontal_tab := $CHAR (9);
    size := STRLENGTH (str);
    space := ' ';

    WHILE (size > 0) AND ((str (size) = space) OR (str (size) =
          horizontal_tab)) DO
      size := size - 1;
    WHILEND;
    clp$trimmed_string_size := size;

  FUNCEND clp$trimmed_string_size;

*copyc osd$integer_limits
?? POP ??
