
  FUNCTION [INLINE, UNSAFE] clf$file_reference_valid
    (    str: string ( * )): boolean;

?? PUSH (LISTEXT := ON) ??

    VAR
      ignore_parsed_file_reference: fst$parsed_file_reference,
      status: ost$status;

    clp$convert_string_to_file_ref (str, ignore_parsed_file_reference, status);
    clf$file_reference_valid := status.normal;

  FUNCEND clf$file_reference_valid;

*copyc clp$convert_string_to_file_ref
?? POP ??
