
  TYPE
    clt$parsed_path = record
      name: clt$path_name,
      name_size: 1 .. clc$max_path_name_size,
      name_and_cycle_size: 1 .. clc$max_path_name_size,
      kind: clt$path_kind,
      number_of_elements: 1 .. clc$max_path_elements,
      first_specified_element: 1 .. clc$max_path_elements,
      element: array [1 .. clc$max_path_elements + 1] of
            0 .. clc$max_path_name_size + 1,
    recend;

*copyc cld$path_description
*copyc clt$path_kind
*copyc clt$path_name
*copyc ost$string
