
  PROCEDURE  fsp$convert_fs_structure_to_pf
    (    evaluated_file_reference: fst$evaluated_file_reference;
     VAR pf_path_elements: ^pft$path);

?? PUSH (LISTEXT := ON) ??

    VAR
      i: fst$number_of_path_elements,
      path_element_size: fst$path_element_size,
      path_index: fst$path_index;

    path_index := 1;
    FOR i := 1 TO evaluated_file_reference.number_of_path_elements DO
      path_element_size := $INTEGER (evaluated_file_reference.
            path_structure (path_index));
      pf_path_elements^ [i] := evaluated_file_reference.
            path_structure (path_index + 1, path_element_size);
      path_index := path_index + path_element_size + 1;
    FOREND;

  PROCEND fsp$convert_fs_structure_to_pf;

*copyc fst$evaluated_file_reference
*copyc fst$number_of_path_elements
*copyc fst$path_element_size
*copyc fst$path_index
*copyc pft$path
?? POP ??

