
  TYPE
    clt$command_list = record
      search_mode: clt$command_search_modes,
      entries: clt$command_list_entries,
      system_command_library_lfn: fst$path_handle_name,
      system_library_contains: clt$command_library_contains,
      number_of_utilities_added: 0 .. 7fffffff(16),
      deletion_made: boolean,
    recend;

  TYPE
    clt$command_list_entries = record
      first_entry: ^clt$command_list_entry,
      entry_after_fence: ^clt$command_list_entry,
      last_entry: ^clt$command_list_entry,
    recend;

  TYPE
    clt$command_list_entry = record
      next_entry: ^clt$command_list_entry,
      case kind: clt$command_list_entry_kind of
      = clc$catalog_commands, clc$library_commands =
        local_file_name: fst$path_handle_name,
        library_contains: clt$command_library_contains,
        unaccessible_entry: boolean,
      = clc$working_catalog_commands =
        ,
      = clc$system_commands =
        ,
      = clc$sub_commands =
        utility_name: ost$name,
        utility_info: ^clt$utility_command_environment,
      = clc$command_list_fence =
        ,
      casend,
    recend;

  TYPE
    clt$command_list_entry_kind = (clc$catalog_commands, clc$library_commands,
          clc$system_commands, clc$sub_commands, clc$working_catalog_commands,
          clc$command_list_fence);

  TYPE
    clt$command_library_list_entry = record
      next_entry: ^clt$command_library_list_entry,
      local_file_name: fst$path_handle_name,
      used_for_dynamic_load: boolean,
      file_id: amt$file_identifier,
      ring_attributes: amt$ring_attributes,
      contents: ^SEQ ( * ),
      dictionaries: llt$library_dictionary_pointers,
      can_be_echoed: boolean,
    recend;

  TYPE
    clt$command_library_contains = packed record
      commands: boolean,
      functions: boolean,
      help_modules: boolean,
      message_modules: boolean,
      panels: boolean,
    recend;

*copyc amt$file_identifier
*copyc amt$ring_attributes
*copyc clt$command_search_modes
*copyc clt$utility_command_environment
*copyc fst$path_handle_name
*copyc llt$library_dictionary_pointers
*copyc ost$name
