rocm-systems/projects/rocprofiler/plugin/perfetto/perfetto.cpp

/* Copyright (c) 2022 Advanced Micro Devices, Inc. All rights reserved.

 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal
 in the Software without restriction, including without limitation the rights
 to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 copies of the Software, and to permit persons to whom the Software is
 furnished to do so, subject to the following conditions:

 The above copyright notice and this permission notice shall be included in
 all copies or substantial portions of the Software.

 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
 AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
 THE SOFTWARE. */

#include "perfetto.h"
#include "rocprofiler.h"

#include <cassert>
#include <condition_variable>
#include <cstdint>
#include <cstdlib>
#include <experimental/filesystem>
#include <fstream>
#include <memory>
#include <optional>
#include <ostream>
#include <sstream>
#include <string>
#include <functional>
#include <iostream>
#include <string_view>

#include <cxxabi.h>
#include <fcntl.h>
#include <stdarg.h>
#include <stdio.h>
#include <string.h>
#include <sys/syscall.h>
#include <sys/types.h>
#include <unistd.h>

#include "perfetto_sdk/sdk/perfetto.h"
#include "rocprofiler_plugin.h"
#include "../utils.h"

#define STREAM_CONSTANT 98736677
#define QUEUE_CONSTANT 18746479

namespace fs = std::experimental::filesystem;

PERFETTO_DEFINE_CATEGORIES(
    perfetto::Category("GENERIC").SetDescription("GENERAL_CATEGORY"),
    perfetto::Category("ROCTX_API").SetDescription("ACTIVITY_DOMAIN_ROCTX_API"),
    perfetto::Category("HSA_API").SetDescription("ACTIVITY_DOMAIN_HSA_API"),
    perfetto::Category("HIP_API").SetDescription("ACTIVITY_DOMAIN_HIP_API"),
    perfetto::Category("External_API").SetDescription("ACTIVITY_DOMAIN_EXT_API"),
    perfetto::Category("HIP_OPS").SetDescription("ACTIVITY_DOMAIN_HIP_OPS"),
    perfetto::Category("HSA_OPS").SetDescription("ACTIVITY_DOMAIN_HSA_OPS"),
    perfetto::Category("MEM_COPIES").SetDescription("MEMORY_COPY_ASYNCHRONOUS_ACTIVITY"),
    perfetto::Category("KERNELS").SetDescription("KERNEL_DISPATCHES"),
    perfetto::Category("COUNTERS").SetDescription("PERFORMANCE_COUNTERS"));

PERFETTO_TRACK_EVENT_STATIC_STORAGE();

namespace {

std::string process_name;
static std::string output_file_name;

std::string get_kernel_name(rocprofiler_record_profiler_t& profiler_record) {
  std::string kernel_name = "";
  size_t name_length = 1;
  CHECK_ROCPROFILER(rocprofiler_query_kernel_info_size(ROCPROFILER_KERNEL_NAME,
                                                       profiler_record.kernel_id, &name_length));
#pragma GCC diagnostic push
#pragma GCC diagnostic ignored "-Wmaybe-uninitialized"
#pragma GCC diagnostic ignored "-Wstringop-overread"
  if (name_length > 1) {
    const char* kernel_name_c = nullptr;
    CHECK_ROCPROFILER(rocprofiler_query_kernel_info(ROCPROFILER_KERNEL_NAME,
                                                    profiler_record.kernel_id, &kernel_name_c));
    if (kernel_name_c && strlen(kernel_name_c) > 1)
      kernel_name = rocprofiler::cxx_demangle(strdup(kernel_name_c));
  }
#pragma GCC diagnostic pop
  return kernel_name;
}


class perfetto_plugin_t {
 public:
  perfetto_plugin_t() {
    const char* output_dir = getenv("OUTPUT_PATH");
    const char* temp_file_name = getenv("OUT_FILE_NAME");
    output_file_name = temp_file_name ? std::string(temp_file_name) + "_" : "";

    if (output_dir == nullptr) output_dir = "./";

    output_prefix_ = output_dir;
    if (!fs::is_directory(fs::status(output_prefix_))) {
      if (!stream_.fail()) rocprofiler::warning("Cannot open output directory '%s'", output_dir);
      stream_.setstate(std::ios_base::failbit);
      return;
    }

    machine_id_ = gethostid();
    gethostname(hostname_, sizeof(hostname_));

    perfetto::TracingInitArgs args;
    args.backends |= perfetto::kInProcessBackend;
    perfetto::Tracing::Initialize(args);
    perfetto::TrackEvent::Register();

    perfetto::protos::gen::TrackEventConfig track_event_cfg;
    track_event_cfg.add_disabled_categories("*");
    track_event_cfg.add_enabled_categories("GENERIC");
    track_event_cfg.add_enabled_categories("ROCTX_API");
    track_event_cfg.add_enabled_categories("HSA_API");
    track_event_cfg.add_enabled_categories("HIP_API");
    track_event_cfg.add_enabled_categories("External_API");
    track_event_cfg.add_enabled_categories("HIP_OPS");
    track_event_cfg.add_enabled_categories("HSA_OPS");
    track_event_cfg.add_enabled_categories("MEM_COPIES");
    track_event_cfg.add_enabled_categories("KERNELS");
    track_event_cfg.add_enabled_categories("COUNTERS");

    perfetto::TraceConfig trace_cfg;

    auto buffer_cfg = trace_cfg.add_buffers();
    uint32_t max_buffer_size = 1024 * 1024;  // Default max buffer size is 1 GB
    const char* max_buffer_size_str = getenv("rocprofiler_PERFETTO_MAX_BUFFER_SIZE_KIB");
    if (max_buffer_size_str && std::atol(max_buffer_size_str) > 0)
      max_buffer_size = std::atol(max_buffer_size_str);
    // Record up to max buffer size determined by user or the 10 GB (default value)
    buffer_cfg->set_size_kb(max_buffer_size);

    auto* data_source_cfg = trace_cfg.add_data_sources()->mutable_config();
    data_source_cfg->set_name("track_event");
    data_source_cfg->set_track_event_config_raw(track_event_cfg.SerializeAsString());

    output_file_name = replace_MPI_macros(output_file_name);
    output_prefix_.append(output_file_name + std::to_string(GetPid()) + "_output.pftrace");
    file_descriptor_ = open(output_prefix_.string().c_str(), O_RDWR | O_CREAT | O_TRUNC, 0600);
    if (file_descriptor_ == -1) rocprofiler::warning("Can't open output file\n");

    tracing_session_ = perfetto::Tracing::NewTrace();
    tracing_session_->Setup(trace_cfg, file_descriptor_);
    tracing_session_->StartBlocking();

    // Give a custom name for the traced process.
    perfetto::ProcessTrack process_track = perfetto::ProcessTrack::Current();
    perfetto::protos::gen::TrackDescriptor desc = process_track.Serialize();
    desc.mutable_process()->set_process_name("Node: " + std::string(hostname_) + " Rank " +
                                             std::to_string(MPI_rank));
    perfetto::TrackEvent::SetTrackDescriptor(process_track, desc);

    is_valid_ = true;
  }

  ~perfetto_plugin_t() {
    if (is_valid_) {
      tracing_session_->StopBlocking();
      close(file_descriptor_);
    }
  }

  std::string replace_MPI_macros(std::string output_file_name) {
    std::vector<const char*> MPI_BUILTINS = {"MPI_RANK", "OMPI_COMM_WORLD_RANK",
                                             "MV2_COMM_WORLD_RANK"};
    bIsMPI = false;

    for (const char* envvar : MPI_BUILTINS) {
      const char* rank_env_var = getenv(envvar);
      if (rank_env_var == nullptr) continue;  // MPI var is does not exist

      MPI_rank = atoi(rank_env_var);
      bIsMPI = true;
      break;
    }

    size_t key_find = output_file_name.rfind("%rank");
    if (key_find != std::string::npos) {  // Contains a %?rank string
      output_file_name = output_file_name.substr(0, key_find) + std::to_string(MPI_rank) +
          output_file_name.substr(key_find + std::string("%rank").size());
    }
    return output_file_name;
  }

  const char* GetDomainName(rocprofiler_tracer_activity_domain_t domain) {
    switch (domain) {
      case ACTIVITY_DOMAIN_ROCTX:
        return "ROCTX_DOMAIN";
        break;
      case ACTIVITY_DOMAIN_HIP_API:
        return "HIP_API_DOMAIN";
        break;
      case ACTIVITY_DOMAIN_HIP_OPS:
        return "HIP_OPS_DOMAIN";
        break;
      case ACTIVITY_DOMAIN_HSA_API:
        return "HSA_API_DOMAIN";
        break;
      case ACTIVITY_DOMAIN_HSA_OPS:
        return "HSA_OPS_DOMAIN";
        break;
      case ACTIVITY_DOMAIN_HSA_EVT:
        return "HSA_EVT_DOMAIN";
        break;
      default:
        return "";
    }
  }

  std::mutex writing_lock;

  int FlushProfilerRecord(rocprofiler_record_profiler_t profiler_record,
                          rocprofiler_session_id_t session_id) {
    std::lock_guard<std::mutex> lock(writing_lock);
    // ToDO: rename this variable?
    if (!tracing_session_) rocprofiler::warning("Tracing session is deleted!\n");

    int device_id = profiler_record.gpu_id.handle;
    std::unordered_map<int, perfetto::Track>::iterator device_track_it;
    {
      std::lock_guard<std::mutex> lock(device_tracks_lock_);
      uint64_t device_track_id = (device_id + 2) * (machine_id_ + 2);
      device_track_it = device_tracks_.find(device_track_id);
      if (device_track_it == device_tracks_.end()) {
        /* Create a new perfetto::Track (Sub-Track) */
        device_track_it =
            device_tracks_.emplace(device_track_id, perfetto::Track::Global(device_track_id)).first;
        auto gpu_desc = device_track_it->second.Serialize();
        gpu_desc.mutable_process()->set_pid(device_id);
        gpu_desc.mutable_process()->set_chrome_process_type(
            perfetto::protos::gen::ProcessDescriptor::PROCESS_GPU);
        gpu_desc.mutable_process()->set_process_name("Node: " + std::string(hostname_) +
                                                     " Device: ");
        perfetto::TrackEvent::SetTrackDescriptor(device_track_it->second, gpu_desc);
        track_ids_used_.emplace_back(device_track_id);
      }
    }
    auto& gpu_track = device_track_it->second;
    std::pair<int, uint64_t> gpu_queue_id =
        std::make_pair(device_id, profiler_record.queue_id.handle);
    auto queue_track_it = queue_tracks_.find(gpu_queue_id.first);
    {
      std::lock_guard<std::mutex> lock(queue_tracks_lock_);
      uint64_t queue_track_id = (gpu_queue_id.first + 2) * (device_id + 2) * (machine_id_ + 2);
      queue_track_it = queue_tracks_.find(queue_track_id);
      if (queue_track_it == queue_tracks_.end()) {
        /* Create a new perfetto::Track */
        queue_track_it =
            queue_tracks_.emplace(queue_track_id, perfetto::Track(queue_track_id, gpu_track)).first;

        auto queue_desc = queue_track_it->second.Serialize();
        std::string queue_str = rocprofiler::string_printf("Queue %ld", gpu_queue_id.second);
        queue_desc.set_name(queue_str);
        perfetto::TrackEvent::SetTrackDescriptor(queue_track_it->second, queue_desc);
      }
      track_ids_used_.emplace_back(queue_track_id);
    }
    auto& queue_track = queue_track_it->second;

    // Taken from rocprofiler: The size hasn't changed in  recent past
    static const uint32_t lds_block_size = 128 * 4;

    std::string full_kernel_name = get_kernel_name(profiler_record);
    // std::string truncated_kernel_name = rocprofiler::truncate_name(full_kernel_name);
    // perfetto::StaticString kernel_name(truncated_kernel_name.c_str());
    TRACE_EVENT_BEGIN("KERNELS", perfetto::StaticString(full_kernel_name.c_str()), queue_track,
                      profiler_record.timestamps.begin.value, "Full Kernel Name",
                      full_kernel_name.c_str(), "Agent ID", device_id, "Queue ID",
                      profiler_record.queue_id.handle, "GRD",
                      profiler_record.kernel_properties.grid_size, "WGR",
                      profiler_record.kernel_properties.workgroup_size, "LDS",
                      (((profiler_record.kernel_properties.lds_size + (lds_block_size - 1)) &
                        ~(lds_block_size - 1))),
                      "SCR", profiler_record.kernel_properties.scratch_size, "Arch. VGPR",
                      profiler_record.kernel_properties.arch_vgpr_count, "Accumilative Vgpr",
                      profiler_record.kernel_properties.accum_vgpr_count, "SGPR",
                      profiler_record.kernel_properties.sgpr_count, "Wave Size",
                      profiler_record.kernel_properties.wave_size, "Signal",
                      profiler_record.kernel_properties.signal_handle,
                      perfetto::Flow::ProcessScoped(profiler_record.correlation_id.value));

    TRACE_EVENT_END("KERNELS", queue_track, profiler_record.timestamps.end.value);

    auto get_counter_track_fn = [&](std::string counter_name) {
      std ::string counter_track_id = hostname_ + std::to_string(GetPid()) + counter_name;
      std::pair<int, std::string> gpu_counter_track_id = std::make_pair(device_id, counter_name);
      std::unordered_map<std::string, perfetto::CounterTrack>::iterator counters_track_it;
      {
        std::lock_guard<std::mutex> lock(counter_tracks_lock_);
        counters_track_it = counter_tracks_.find(gpu_counter_track_id.second);
        if (counters_track_it == counter_tracks_.end()) {
          /* Create a new perfetto::Track */
          counters_track_it =
              counter_tracks_
                  .emplace(gpu_counter_track_id.second,
                           perfetto::CounterTrack(counter_track_id.c_str(), gpu_track))
                  .first;

          auto counter_track_desc = counters_track_it->second.Serialize();
          std::string counter_track_str = "Counter " + gpu_counter_track_id.second;
          counter_track_desc.set_name(counter_track_str);
          perfetto::TrackEvent::SetTrackDescriptor(counters_track_it->second, counter_track_desc);
        }
      }
      return counters_track_it->second;
    };

    // For Counters
    if (profiler_record.counters) {
      for (uint64_t i = 0; i < profiler_record.counters_count.value; i++) {
        if (profiler_record.counters[i].counter_handler.handle > 0) {
          size_t name_length = 0;
          CHECK_ROCPROFILER(rocprofiler_query_counter_info_size(
              session_id, ROCPROFILER_COUNTER_NAME, profiler_record.counters[i].counter_handler,
              &name_length));
          if (name_length > 1) {
            const char* name_c = nullptr;
            CHECK_ROCPROFILER(rocprofiler_query_counter_info(
                session_id, ROCPROFILER_COUNTER_NAME, profiler_record.counters[i].counter_handler,
                &name_c));

            perfetto::CounterTrack counters_track = get_counter_track_fn(std::string(name_c));
            TRACE_COUNTER("COUNTERS", counters_track, profiler_record.timestamps.begin.value,
                          profiler_record.counters[i].value.value);
            // Added an extra zero event for maintaining start-end of the counter
            TRACE_COUNTER("COUNTERS", counters_track, profiler_record.timestamps.end.value, 0.001);
          }
        }
      }
    }

    return 0;
  }

  int FlushTracerRecord(rocprofiler_record_tracer_t tracer_record,
                        rocprofiler_session_id_t session_id) {
    std::lock_guard<std::mutex> lock(writing_lock);
    if (!tracing_session_) rocprofiler::warning("Tracing session is deleted!\n");
    std::string kernel_name;
    const char* operation_name_c = nullptr;
    // ROCTX domain Operation ID doesn't have a name
    // It depends on the user input of the roctx functions.
    // ROCTX message is the tracer_record.name
    if (tracer_record.domain != ACTIVITY_DOMAIN_ROCTX) {
      CHECK_ROCPROFILER(rocprofiler_query_tracer_operation_name(
          tracer_record.domain, tracer_record.operation_id, &operation_name_c));
      if (!operation_name_c) operation_name_c = "Unknown Operation";
    }
    std::string roctx_message;
    uint64_t roctx_id = 0;
    uint64_t thread_id = tracer_record.thread_id.value;
    std::unordered_map<uint64_t, perfetto::Track>::iterator thread_track_it;
    std::unordered_map<int, perfetto::Track>::iterator device_track_it;
    {
      std::lock_guard<std::mutex> lock(thread_tracks_lock_);
      uint64_t thread_track_id = (thread_id + 2) * GetPid() * (machine_id_ + 2);
      thread_track_it = thread_tracks_.find(thread_track_id);
      if (thread_track_it == thread_tracks_.end()) {
        thread_track_it =
            thread_tracks_
                .emplace(thread_track_id,
                         perfetto::Track(thread_track_id, perfetto::ProcessTrack::Current()))
                .first;
        auto thread_track_desc = thread_track_it->second.Serialize();
        thread_track_desc.mutable_process()->set_pid(thread_id);
        thread_track_desc.mutable_process()->set_process_name("Thread: ");
        perfetto::TrackEvent::SetTrackDescriptor(thread_track_it->second, thread_track_desc);
        track_ids_used_.emplace_back(thread_track_id);
      }
    }
    auto& thread_track = thread_track_it->second;
    std::unordered_map<uint64_t, perfetto::Track>::iterator mem_copies_track_it;
    if (tracer_record.domain == ACTIVITY_DOMAIN_HIP_OPS ||
        tracer_record.domain == ACTIVITY_DOMAIN_HSA_OPS) {
      int device_id = tracer_record.agent_id.handle;

      std::lock_guard<std::mutex> lock(device_tracks_lock_);
      uint64_t device_track_id = (device_id + 2) * (machine_id_ + 2);
      device_track_it = device_tracks_.find(device_track_id);
      if (device_track_it == device_tracks_.end()) {
        /* Create a new perfetto::Track (Sub-Track) */
        device_track_it =
            device_tracks_.emplace(device_track_id, perfetto::ProcessTrack::Global(device_track_id))
                .first;
        auto gpu_desc = device_track_it->second.Serialize();
        gpu_desc.mutable_process()->set_pid(device_id);
        gpu_desc.mutable_process()->set_chrome_process_type(
            perfetto::protos::gen::ProcessDescriptor::PROCESS_GPU);
        gpu_desc.mutable_process()->set_process_name("Node: " + std::string(hostname_) +
                                                     " Device: ");
        perfetto::TrackEvent::SetTrackDescriptor(device_track_it->second, gpu_desc);
        track_ids_used_.emplace_back(device_track_id);
      }
      {
        std::lock_guard<std::mutex> lock(mem_copies_tracks_lock_);
        mem_copies_track_it = mem_copies_tracks_.find(thread_id);
        if (mem_copies_track_it == mem_copies_tracks_.end()) {
          /* Create a new perfetto::Track */
          uint64_t track_id =
              track_counter_.fetch_add((1 + machine_id_) * GetPid(), std::memory_order_acquire);
          for (uint64_t tid : track_ids_used_) {
            while (track_id == tid) {
              track_id =
                  track_counter_.fetch_add((1 + machine_id_) * GetPid(), std::memory_order_acquire);
            }
          }
          mem_copies_track_it =
              mem_copies_tracks_.emplace(thread_id, perfetto::Track(track_id, thread_track)).first;

          auto mem_copies_track_desc = mem_copies_track_it->second.Serialize();
          std::string mem_copies_track_str =
              rocprofiler::string_printf("MEM COPIES(%lu): ", thread_id);
          mem_copies_track_desc.set_name(mem_copies_track_str);
          perfetto::TrackEvent::SetTrackDescriptor(mem_copies_track_it->second,
                                                   mem_copies_track_desc);
        }
      }
    }

    auto& gpu_track = device_track_it->second;
    auto& mem_copies_track = mem_copies_track_it->second;
    switch (tracer_record.domain) {
      case ACTIVITY_DOMAIN_ROCTX: {
        std::unordered_map<uint64_t, perfetto::Track>::iterator roctx_track_it;
        {
          std::lock_guard<std::mutex> lock(roctx_tracks_lock_);
          roctx_track_it = roctx_tracks_.find(thread_id);
          if (roctx_track_it == roctx_tracks_.end()) {
            /* Create a new perfetto::Track */
            uint64_t track_id =
                track_counter_.fetch_add((1 + machine_id_) * GetPid(), std::memory_order_acquire);
            for (uint64_t tid : track_ids_used_) {
              while (track_id == tid) {
                track_id = track_counter_.fetch_add((1 + machine_id_) * GetPid(),
                                                    std::memory_order_acquire);
              }
            }
            roctx_track_it =
                roctx_tracks_.emplace(thread_id, perfetto::Track(track_id, thread_track)).first;

            auto roctx_track_desc = roctx_track_it->second.Serialize();
            std::string roctx_track_str = rocprofiler::string_printf("ROCTX Markers");
            roctx_track_desc.set_name(roctx_track_str);
            perfetto::TrackEvent::SetTrackDescriptor(roctx_track_it->second, roctx_track_desc);
          }
        }
        auto& roctx_track = roctx_track_it->second;
        roctx_id = tracer_record.external_id.id;
        roctx_message = tracer_record.name ? tracer_record.name : "";
        if (tracer_record.operation_id.id == 1) {
          perfetto::StaticString roctx_message_pft(
              (!roctx_message.empty() ? roctx_message.c_str() : ""));
          TRACE_EVENT_BEGIN("ROCTX_API", roctx_message_pft, roctx_track,
                            tracer_record.timestamps.begin.value, "Timestamp(ns)",
                            tracer_record.timestamps.begin.value, "RocTx ID", roctx_id);
          roctx_track_entries_++;
        } else {
          TRACE_EVENT_END("ROCTX_API", roctx_track, tracer_record.timestamps.begin.value);
          roctx_track_entries_--;
        }
        break;
      }
      case ACTIVITY_DOMAIN_HSA_API: {
        std::unordered_map<uint64_t, perfetto::Track>::iterator hsa_track_it;
        {
          std::lock_guard<std::mutex> lock(hsa_tracks_lock_);
          hsa_track_it = hsa_tracks_.find(thread_id);
          if (hsa_track_it == hsa_tracks_.end()) {
            /* Create a new perfetto::Track */
            uint64_t track_id =
                track_counter_.fetch_add((1 + machine_id_) * GetPid(), std::memory_order_acquire);
            for (uint64_t tid : track_ids_used_) {
              while (track_id == tid) {
                track_id = track_counter_.fetch_add((1 + machine_id_) * GetPid(),
                                                    std::memory_order_acquire);
              }
            }
            hsa_track_it =
                hsa_tracks_.emplace(thread_id, perfetto::Track(track_id, thread_track)).first;
            auto hsa_track_desc = hsa_track_it->second.Serialize();
            std::string hsa_track_str = rocprofiler::string_printf("HSA API");
            hsa_track_desc.set_name(hsa_track_str);
            perfetto::TrackEvent::SetTrackDescriptor(hsa_track_it->second, hsa_track_desc);
          }
        }
        auto& hsa_track = hsa_track_it->second;
        if (tracer_record.phase == ROCPROFILER_PHASE_ENTER)
          TRACE_EVENT_BEGIN("HSA_API", perfetto::StaticString(operation_name_c), hsa_track,
                            tracer_record.timestamps.begin.value,
                            perfetto::Flow::ProcessScoped(tracer_record.correlation_id.value));
        if (tracer_record.phase == ROCPROFILER_PHASE_EXIT)
          TRACE_EVENT_END("HSA_API", hsa_track, tracer_record.timestamps.end.value);
        if (tracer_record.phase == ROCPROFILER_PHASE_NONE) {
          TRACE_EVENT_BEGIN("HSA_API", perfetto::StaticString(operation_name_c), hsa_track,
                            tracer_record.timestamps.begin.value,
                            perfetto::Flow::ProcessScoped(tracer_record.correlation_id.value));
          TRACE_EVENT_END("HSA_API", hsa_track, tracer_record.timestamps.end.value);
        }
        break;
      }
      case ACTIVITY_DOMAIN_HIP_API: {
        std::unordered_map<uint64_t, perfetto::Track>::iterator hip_track_it;
        {
          std::lock_guard<std::mutex> lock(hip_tracks_lock_);
          hip_track_it = hip_tracks_.find(thread_id);
          if (hip_track_it == hip_tracks_.end()) {
            /* Create a new perfetto::Track */
            uint64_t track_id =
                track_counter_.fetch_add((1 + machine_id_) * GetPid(), std::memory_order_acquire);
            for (uint64_t tid : track_ids_used_) {
              while (track_id == tid) {
                track_id = track_counter_.fetch_add((1 + machine_id_) * GetPid(),
                                                    std::memory_order_acquire);
              }
            }
            hip_track_it =
                hip_tracks_.emplace(thread_id, perfetto::Track(track_id, thread_track)).first;

            auto hip_track_desc = hip_track_it->second.Serialize();
            std::string hip_track_str = rocprofiler::string_printf("HIP API");
            hip_track_desc.set_name(hip_track_str);
            perfetto::TrackEvent::SetTrackDescriptor(hip_track_it->second, hip_track_desc);
          }
        }
        auto& hip_track = hip_track_it->second;
        if (tracer_record.phase == ROCPROFILER_PHASE_ENTER)
          TRACE_EVENT_BEGIN("HIP_API", perfetto::StaticString(operation_name_c), hip_track,
                            tracer_record.timestamps.begin.value,
                            perfetto::Flow::ProcessScoped(tracer_record.correlation_id.value));
        if (tracer_record.phase == ROCPROFILER_PHASE_EXIT)
          TRACE_EVENT_END("HIP_API", hip_track, tracer_record.timestamps.end.value);
        if (tracer_record.phase == ROCPROFILER_PHASE_NONE) {
          TRACE_EVENT_BEGIN("HIP_API", perfetto::StaticString(operation_name_c), hip_track,
                            tracer_record.timestamps.begin.value,
                            perfetto::Flow::ProcessScoped(tracer_record.correlation_id.value));
          TRACE_EVENT_END("HIP_API", hip_track, tracer_record.timestamps.end.value);
        }
        break;
      }
      case ACTIVITY_DOMAIN_EXT_API: {
        printf("Warning: External API is not supported!\n");
        break;
      }
      case ACTIVITY_DOMAIN_HIP_OPS: {
        std::string::size_type pos = std::string::npos;
        if (tracer_record.name) {
          kernel_name = rocprofiler::cxx_demangle(tracer_record.name);
          TRACE_EVENT_BEGIN(
              "HIP_OPS", perfetto::StaticString(rocprofiler::truncate_name(kernel_name).c_str()),
              gpu_track, tracer_record.timestamps.begin.value, "Agent ID",
              tracer_record.agent_id.handle, "Process ID", GetPid(), "Kernel Name", kernel_name,
              perfetto::Flow::ProcessScoped(tracer_record.correlation_id.value));
        } else {
          // MEM Copies are not correlated to GPUs, so they need a special track
          pos = operation_name_c ? std::string_view(operation_name_c).find("Copy")
                                 : std::string::npos;

          if (std::string::npos == pos)
            TRACE_EVENT_BEGIN("HIP_OPS", perfetto::StaticString(operation_name_c), gpu_track,
                              tracer_record.timestamps.begin.value, "Process ID", GetPid(),
                              perfetto::Flow::ProcessScoped(tracer_record.correlation_id.value));
          else
            TRACE_EVENT_BEGIN("MEM_COPIES", perfetto::StaticString(operation_name_c),
                              mem_copies_track, tracer_record.timestamps.begin.value, "Process ID",
                              GetPid(),
                              perfetto::Flow::ProcessScoped(tracer_record.correlation_id.value));
        }
        if (std::string::npos == pos)
          TRACE_EVENT_END("HIP_OPS", gpu_track, tracer_record.timestamps.end.value);
        else
          TRACE_EVENT_END("MEM_COPIES", mem_copies_track, tracer_record.timestamps.end.value);
        break;
      }
      case ACTIVITY_DOMAIN_HSA_OPS: {
        TRACE_EVENT_BEGIN("MEM_COPIES", perfetto::StaticString(operation_name_c), mem_copies_track,
                          tracer_record.timestamps.begin.value, "Process ID", GetPid(),
                          perfetto::Flow::ProcessScoped(tracer_record.correlation_id.value));
        TRACE_EVENT_END("MEM_COPIES", mem_copies_track, tracer_record.timestamps.end.value);
        break;
      }
      default: {
        rocprofiler::warning("Ignored record for domain %d", tracer_record.domain);
        break;
      }
    }
    return 0;
  }

  int WriteBufferRecords(const rocprofiler_record_header_t* begin,
                         const rocprofiler_record_header_t* end,
                         rocprofiler_session_id_t session_id, rocprofiler_buffer_id_t buffer_id) {
    if (!tracing_session_) rocprofiler::warning("Tracing session is deleted!\n");
    while (begin < end) {
      if (!begin) return 0;
      switch (begin->kind) {
        case ROCPROFILER_PROFILER_RECORD: {
          rocprofiler_record_profiler_t* profiler_record =
              const_cast<rocprofiler_record_profiler_t*>(
                  reinterpret_cast<const rocprofiler_record_profiler_t*>(begin));
          FlushProfilerRecord(*profiler_record, session_id);
          break;
        }
        case ROCPROFILER_TRACER_RECORD: {
          rocprofiler_record_tracer_t* tracer_record = const_cast<rocprofiler_record_tracer_t*>(
              reinterpret_cast<const rocprofiler_record_tracer_t*>(begin));
          FlushTracerRecord(*tracer_record, session_id);
          break;
        }
        default:
          break;
      }
      rocprofiler_next_record(begin, &begin, session_id, buffer_id);
    }
    return 0;
  }

  bool IsValid() const { return is_valid_; }

 private:
  fs::path output_prefix_;
  std::unique_ptr<perfetto::TracingSession> tracing_session_;
  int file_descriptor_;
  bool is_valid_{false};
  bool bIsMPI = false;
  int MPI_rank = 0;
  size_t roctx_track_entries_{0};

  // Correlate stream id(s) with correlation id(s) to identify the stream id of every HIP activity
  std::unordered_map<uint64_t, uint64_t> stream_ids_;

  // Callback Tracks
  std::unordered_map<uint64_t, perfetto::Track> thread_tracks_;
  std::unordered_map<uint64_t, perfetto::Track> roctx_tracks_, hsa_tracks_, hip_tracks_,
      hip_ext_tracks_, mem_copies_tracks_;

  // Activity Tracks
  std::unordered_map<int, perfetto::Track> device_tracks_;
  std::unordered_map<int, perfetto::Track> queue_tracks_, stream_tracks_;

  std::unordered_map<std::string, perfetto::CounterTrack> counter_tracks_;

  std::atomic<uint64_t> track_counter_{GetPid()};
  std::vector<uint64_t> track_ids_used_;

  std::mutex stream_ids_lock_, thread_tracks_lock_, roctx_tracks_lock_, hsa_tracks_lock_,
      hip_tracks_lock_, hip_ext_tracks_lock_, device_tracks_lock_, queue_tracks_lock_,
      stream_tracks_lock_, counter_tracks_lock_, mem_copies_tracks_lock_;

  char hostname_[1024];
  uint64_t machine_id_;

  std::ofstream stream_;
};

perfetto_plugin_t* perfetto_plugin = nullptr;

}  // namespace

int rocprofiler_plugin_initialize(uint32_t rocprofiler_major_version,
                                  uint32_t rocprofiler_minor_version, void* data) {
  if (rocprofiler_major_version != ROCPROFILER_VERSION_MAJOR ||
      rocprofiler_minor_version > ROCPROFILER_VERSION_MINOR)
    return -1;

  if (perfetto_plugin != nullptr) return -1;

  perfetto_plugin = new perfetto_plugin_t();
  if (perfetto_plugin->IsValid()) return 0;

  delete perfetto_plugin;
  perfetto_plugin = nullptr;
  return -1;
}

void rocprofiler_plugin_finalize() {
  if (!perfetto_plugin) return;
  delete perfetto_plugin;
  perfetto_plugin = nullptr;
}

ROCPROFILER_EXPORT int rocprofiler_plugin_write_buffer_records(
    const rocprofiler_record_header_t* begin, const rocprofiler_record_header_t* end,
    rocprofiler_session_id_t session_id, rocprofiler_buffer_id_t buffer_id) {
  if (!perfetto_plugin || !perfetto_plugin->IsValid()) return -1;
  return perfetto_plugin->WriteBufferRecords(begin, end, session_id, buffer_id);
}

ROCPROFILER_EXPORT int rocprofiler_plugin_write_record(rocprofiler_record_tracer_t record) {
  if (!perfetto_plugin || !perfetto_plugin->IsValid()) return -1;
  if (record.header.id.handle == 0) return 0;
  perfetto_plugin->FlushTracerRecord(record, rocprofiler_session_id_t{0});
  return 0;
}