
  TYPE
    clt$utility_command_environment = record
      commands: ^clt$command_table,
      contemporary_functions: ^clt$function_processor_table,
      original_functions: ^clt$function_table,
      libraries: ^array [1 .. * ] of fst$path_handle_name,
      subcommand_logging_enabled: boolean,
      command_level: boolean,
      task_id: pmt$task_id,
      previous_search_mode: clt$command_search_modes,
      termination_command_ordinal: clt$named_entry_ordinal,
      termination_command_index: clt$command_table_index,
      auxiliary_libraries: ^clt$utility_auxiliary_libraries,
      dialog_info: clt$utility_dialog_info,
    recend;

*copyc clt$command_search_modes
*copyc clt$command_table
*copyc clt$command_table_index
*copyc clt$function_processor_table
*copyc clt$function_table
*copyc clt$named_entry_ordinal
*copyc clt$utility_auxiliary_libraries
*copyc clt$utility_dialog_info
*copyc fst$path_handle_name
*copyc pmt$task_id
