
  PROCEDURE [INLINE] clp$validate_local_file_name
    (    potential_name: fst$file_reference;
     VAR local_file_name: amt$local_file_name;
     VAR path_handle: fmt$path_handle;
     VAR name_is_path_handle: boolean;
     VAR name_is_valid: boolean);

?? PUSH (LISTEXT := ON) ??

    VAR
      cl_path_handle: clt$path_handle,
      name_size: fst$path_size;

    name_size := STRLENGTH (potential_name);
    WHILE (name_size > 1) AND (potential_name (name_size) = ' ') DO
      name_size := name_size - 1;
    WHILEND;
    name_is_path_handle := FALSE;
    IF name_size > STRLENGTH (amt$local_file_name) THEN
      name_is_valid := FALSE;
    ELSE
      clp$validate_name (potential_name (1, name_size), local_file_name,
            name_is_valid);
      IF name_is_valid THEN
        clp$check_name_for_path_handle (local_file_name, cl_path_handle);
        IF cl_path_handle.kind = clc$regular_path_handle THEN
          name_is_path_handle := TRUE;
          path_handle := cl_path_handle.regular_handle;
        IFEND;
      IFEND;
    IFEND;

  PROCEND clp$validate_local_file_name;

*copyc amt$local_file_name
*copyc fmt$path_handle
*copyc fst$file_reference
*copyc fst$path_size
?? POP ??
*copyc clp$check_name_for_path_handle
*copyc clp$validate_name
