
{
{ Clp$get_fs_path_string assumes that the path_handle_name it receives
{ as input represents a path_handle, i.e. it can be converted to an
{ fmt$path_handle.
{

  PROCEDURE [INLINE] clp$get_fs_path_string
    (    path_handle_name: amt$local_file_name;
     VAR path: fst$path;
     VAR path_size: fst$path_size;
     VAR path_handle: fmt$path_handle;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    VAR
      cl_path_handle: clt$path_handle,
      ignore_local_file_name: amt$local_file_name,
      ignore_name_is_path_handle: boolean,
      ignore_name_is_valid: boolean,
      ignore_status: ost$status;

    status.normal := TRUE;
    path := '';
    path_size := 0;

    clp$check_name_for_path_handle (path_handle_name, cl_path_handle);
    IF cl_path_handle.kind = clc$command_file_handle THEN
      osp$set_status_abnormal ('CL', cle$inappropriate_cmnd_file_ref, '',
            status);
      RETURN;
    IFEND;

    bap$get_path_string (cl_path_handle.regular_handle, path, path_size,
             status);
    IF NOT status.normal THEN
      osp$generate_log_message ($pmt$ascii_logset [pmc$job_log], status,
            ignore_status);
      osp$set_status_abnormal ('CL', cle$system_error, '', status);
    IFEND;

  PROCEND clp$get_fs_path_string;

*copyc amt$local_file_name
*copyc cle$ecc_command_processing
*copyc cle$ecc_file_reference
*copyc fmt$path_handle
*copyc fst$path
*copyc pmd$system_log_interface
?? POP ??
*copyc bap$get_path_string
*copyc clp$check_name_for_path_handle
*copyc osp$generate_log_message
*copyc osp$set_status_abnormal

