
  PROCEDURE [INLINE] clp$skip_spaces_and_comments
    (    text: string ( * );
         start_index: ost$string_index;
     VAR end_index: ost$string_index;
     VAR found_space_or_comment: boolean);

?? PUSH (LISTEXT := ON) ??

    VAR
      found_char: boolean,
      scan_index: integer,
      text_index: ost$string_index;

    text_index := start_index;

  /scan_loop/
    WHILE text_index <= STRLENGTH (text) DO
      #SCAN (clv$non_space, text (text_index, * ), scan_index, found_char);
      text_index := scan_index + text_index - 1;
      IF found_char AND (text (text_index) = '"') THEN
        #SCAN (clv$comment_delimiter, text (text_index + 1, * ), scan_index,
              found_char);
        text_index := scan_index + text_index + $INTEGER (found_char);
      ELSEIF scan_index <= 1 THEN
        EXIT /scan_loop/;
      IFEND;
    WHILEND /scan_loop/;
    end_index := text_index;
    found_space_or_comment := text_index > start_index;

  PROCEND clp$skip_spaces_and_comments;

*copyc ost$string
?? POP ??
*copyc clv$comment_delimiter
*copyc clv$non_space
