// Copyright (c) 2024 Epic Games Tools
// Licensed under the MIT license (https://opensource.org/license/mit/)

internal String8
cv_string_from_unknown_value(Arena *arena, U32 x)
{
  return push_str8f(arena, "%#x", x);
}

internal String8
cv_string_from_type_index_source(CV_TypeIndexSource ti_source)
{
  switch (ti_source) {
  case CV_TypeIndexSource_NULL:  return str8_lit("");    break;
  case CV_TypeIndexSource_TPI:   return str8_lit("TPI"); break;
  case CV_TypeIndexSource_IPI:   return str8_lit("IPI"); break;
  case CV_TypeIndexSource_COUNT: break;
  }
  return str8_zero();
}

internal String8
cv_string_from_language(CV_Language x)
{
  switch (x) {
    #define X(_n,_i) case _i: return str8_lit(Stringify(_n));
CV_LanguageXList(X)
    #undef X
  }
  return str8_zero();
}

internal String8
cv_string_from_numeric(Arena *arena, CV_NumericParsed num)
{
  String8 result = str8_zero();
  switch (num.kind) {
    case CV_NumericKind_FLOAT16:   NotImplemented; break; // TODO: format float16
    case CV_NumericKind_FLOAT32:   result = push_str8f(arena, "%f", (F64)(*(F32*)num.val)); break;
    case CV_NumericKind_FLOAT48:   NotImplemented; break; // TODO: format float48
    case CV_NumericKind_FLOAT64:   result = push_str8f(arena, "%f", *(F64*)num.val); break;
    case CV_NumericKind_FLOAT80:   NotImplemented; break; // TODO: format float80
    case CV_NumericKind_FLOAT128:  NotImplemented; break; // TODO: format float128
    case CV_NumericKind_CHAR:      result = push_str8f(arena, "%d",   *(S8 *)num.val); break;
    case CV_NumericKind_SHORT:     result = push_str8f(arena, "%d",   *(S16*)num.val); break;
    case CV_NumericKind_LONG:      result = push_str8f(arena, "%d",   *(S32*)num.val); break;
    case CV_NumericKind_QUADWORD:  result = push_str8f(arena, "%lld", *(S64*)num.val); break;
    case CV_NumericKind_USHORT:    result = push_str8f(arena, "%u",   *(U16*)num.val); break;
    case CV_NumericKind_ULONG:     result = push_str8f(arena, "%u",   *(U32*)num.val); break;
    case CV_NumericKind_UQUADWORD: result = push_str8f(arena, "%llu", *(U64*)num.val); break;
  }
  return result;
}

internal String8 
cv_string_from_reg_id(Arena *arena, CV_Arch arch, U32 id)
{
  String8 result = str8_zero();
  switch (arch) {
  case CV_Arch_8086: {
      switch (id) {
      #define X(_N, _ID, ...) case _ID: result = str8_lit(Stringify(_N)); break;
      CV_Reg_X86_XList(X)
      #undef X
      }
  } break;
  case CV_Arch_X64: {
      switch (id) {
      #define X(_N, _ID, ...) case _ID: result = str8_lit(Stringify(_N)); break;
      CV_Reg_X64_XList(X)
      #undef X
      }
  } break;
  default: NotImplemented; break;
  }
  if (result.size == 0) {
    result = push_str8f(arena, "%x", id);
  }
  return result;
}

internal String8
cv_string_from_member_access(CV_MemberAccess x)
{
  switch (x) {
    case CV_MemberAccess_Null:      break;
    case CV_MemberAccess_Private:   return str8_lit("Private");
    case CV_MemberAccess_Protected: return str8_lit("Protected");
    case CV_MemberAccess_Public:    return str8_lit("Public");
  }
  return str8_zero();
}

internal String8
cv_string_from_method_prop(CV_MethodProp x)
{
  switch (x) {
    case CV_MethodProp_Vanilla:     return str8_lit("Vanilla");
    case CV_MethodProp_Virtual:     return str8_lit("Virtual");
    case CV_MethodProp_Static:      return str8_lit("Static");
    case CV_MethodProp_Friend:      return str8_lit("Friend");
    case CV_MethodProp_Intro:       return str8_lit("Intro");
    case CV_MethodProp_PureVirtual: return str8_lit("PureVirtual");
    case CV_MethodProp_PureIntro:   return str8_lit("PureIntro");
  }
  return str8_zero();
}

internal String8
cv_string_from_hfa(CV_HFAKind x)
{
  switch (x) {
    case CV_HFAKind_None:   return str8_lit("None");
    case CV_HFAKind_Float:  return str8_lit("Float");
    case CV_HFAKind_Double: return str8_lit("Double");
    case CV_HFAKind_Other:  return str8_lit("Other");
  }
  return str8_zero();
}

internal String8
cv_string_from_mcom(CV_MoComUDTKind x)
{
  switch (x) {
    case CV_MoComUDTKind_None:      return str8_lit("None");
    case CV_MoComUDTKind_Ref:       return str8_lit("Ref");
    case CV_MoComUDTKind_Value:     return str8_lit("Value");
    case CV_MoComUDTKind_Interface: return str8_lit("Interface");
  }
  return str8_zero();
}

internal String8
cv_string_from_binary_opcode(CV_InlineBinaryAnnotation x)
{
  switch (x) {
    case CV_InlineBinaryAnnotation_Null:                          break;
    case CV_InlineBinaryAnnotation_CodeOffset:                    return str8_lit("CodeOffset");
    case CV_InlineBinaryAnnotation_ChangeCodeOffsetBase:          return str8_lit("ChangeCodeOffsetBase");
    case CV_InlineBinaryAnnotation_ChangeCodeOffset:              return str8_lit("ChangeCodeOffset");
    case CV_InlineBinaryAnnotation_ChangeCodeLength:              return str8_lit("ChangeCodeLength");
    case CV_InlineBinaryAnnotation_ChangeFile:                    return str8_lit("ChangeFile");
    case CV_InlineBinaryAnnotation_ChangeLineOffset:              return str8_lit("ChangeLineOffset");
    case CV_InlineBinaryAnnotation_ChangeLineEndDelta:            return str8_lit("ChangeLineEndDelta");
    case CV_InlineBinaryAnnotation_ChangeRangeKind:               return str8_lit("ChangeRangeKind");
    case CV_InlineBinaryAnnotation_ChangeColumnStart:             return str8_lit("ChangeColumnStart");
    case CV_InlineBinaryAnnotation_ChangeColumnEndDelta:          return str8_lit("ChangeColumnEndDelta");
    case CV_InlineBinaryAnnotation_ChangeCodeOffsetAndLineOffset: return str8_lit("ChangeCodeOffsetAndLineOffset");
    case CV_InlineBinaryAnnotation_ChangeCodeLengthAndCodeOffset: return str8_lit("ChangeCodeLengthAndCodeOffset");
    case CV_InlineBinaryAnnotation_ChangeColumnEnd:               return str8_lit("ChangeColumnEnd");
  }
  return str8_zero();
}

internal String8
cv_string_from_thunk_ordinal(CV_ThunkOrdinal x)
{
  switch (x) {
    case CV_ThunkOrdinal_NoType:            return str8_lit("NoType");
    case CV_ThunkOrdinal_Adjustor:          return str8_lit("Adjustor");
    case CV_ThunkOrdinal_VCall:             return str8_lit("VCall");
    case CV_ThunkOrdinal_PCode:             return str8_lit("PCode");
    case CV_ThunkOrdinal_Load:              return str8_lit("Load");
    case CV_ThunkOrdinal_TrampIncremental:  return str8_lit("TrampIncremental");
    case CV_ThunkOrdinal_TrampBranchIsland: return str8_lit("TrampBranchIsland");
  }
  return str8_zero();
}

internal String8
cv_string_from_frame_cookie_kind(CV_FrameCookieKind x)
{
  switch (x) {
    case CV_FrameCookieKind_Copy:  return str8_lit("Copy");
    case CV_FrameCookieKind_XorSP: return str8_lit("XorSP");
    case CV_FrameCookieKind_XorBP: return str8_lit("XorR13");
  }
  return str8_zero();
}

internal String8
cv_string_from_generic_style(CV_GenericStyle x)
{
  switch (x) {
    case CV_GenericStyle_VOID:   return str8_lit("VOID");
    case CV_GenericStyle_REG:    return str8_lit("REG");
    case CV_GenericStyle_ICAN:   return str8_lit("ICAN");
    case CV_GenericStyle_ICAF:   return str8_lit("ICAF");
    case CV_GenericStyle_IRAN:   return str8_lit("IRAN");
    case CV_GenericStyle_IRAF:   return str8_lit("IRAF");
    case CV_GenericStyle_UNUSED: return str8_lit("UNUSED");
  }
  return str8_zero();
}

internal String8
cv_string_from_trampoline_kind(CV_TrampolineKind x)
{
  switch (x) {
    case CV_TrampolineKind_Incremental:  return str8_lit("Incremental");
    case CV_TrampolineKind_BranchIsland: return str8_lit("BranchIsland");
  }
  return str8_zero();
}

internal String8
cv_string_from_virtual_table_shape_kind(CV_VirtualTableShape x)
{
  switch (x) {
    case CV_VirtualTableShape_Near:   return str8_lit("Near");
    case CV_VirtualTableShape_Far:    return str8_lit("Far");
    case CV_VirtualTableShape_Thin:   return str8_lit("Thin");
    case CV_VirtualTableShape_Outer:  return str8_lit("Outer");
    case CV_VirtualTableShape_Meta:   return str8_lit("Meta");
    case CV_VirtualTableShape_Near32: return str8_lit("Near32");
    case CV_VirtualTableShape_Far32:  return str8_lit("Far32");
  }
  return str8_zero();
}

internal String8
cv_string_from_call_kind(CV_CallKind x)
{
  switch (x) {
    case CV_CallKind_NearC:          return str8_lit("NearC");
    case CV_CallKind_FarC:           return str8_lit("FarC");
    case CV_CallKind_NearPascal:     return str8_lit("NearPascal");
    case CV_CallKind_FarPascal:      return str8_lit("FarPascal");
    case CV_CallKind_NearFast:       return str8_lit("NearFast");
    case CV_CallKind_FarFast:        return str8_lit("FarFast");
    case CV_CallKind_UNUSED:         return str8_lit("UNUSED");
    case CV_CallKind_NearStd:        return str8_lit("NearStd");
    case CV_CallKind_FarStd:         return str8_lit("FarStd");
    case CV_CallKind_NearSys:        return str8_lit("NearSys");
    case CV_CallKind_FarSys:         return str8_lit("FarSys");
    case CV_CallKind_This:           return str8_lit("This");
    case CV_CallKind_Mips:           return str8_lit("Mips");
    case CV_CallKind_Generic:        return str8_lit("Generic");
    case CV_CallKind_Alpha:          return str8_lit("Alpha");
    case CV_CallKind_PPC:            return str8_lit("PPC");
    case CV_CallKind_HitachiSuperH:  return str8_lit("HitachiSuperH");
    case CV_CallKind_Arm:            return str8_lit("Arm");
    case CV_CallKind_AM33:           return str8_lit("AM33");
    case CV_CallKind_TriCore:        return str8_lit("TriCore");
    case CV_CallKind_HitachiSuperH5: return str8_lit("HitachiSuperH5");
    case CV_CallKind_M32R:           return str8_lit("M32R");
    case CV_CallKind_Clr:            return str8_lit("Clr");
    case CV_CallKind_Inline:         return str8_lit("Inline");
    case CV_CallKind_NearVector:     return str8_lit("NearVector");
  }
  return str8_zero();
}

internal String8
cv_string_from_member_pointer_kind(CV_MemberPointerKind x)
{
  switch (x) {
    case CV_MemberPointerKind_Undef:        return str8_lit("Undef");
    case CV_MemberPointerKind_DataSingle:   return str8_lit("DataSingle");
    case CV_MemberPointerKind_DataMultiple: return str8_lit("DataMultiple");
    case CV_MemberPointerKind_DataVirtual:  return str8_lit("DataVirtual");
    case CV_MemberPointerKind_DataGeneral:  return str8_lit("DataGeneral");
    case CV_MemberPointerKind_FuncSingle:   return str8_lit("FuncSingle");
    case CV_MemberPointerKind_FuncMultiple: return str8_lit("FuncMultiple");
    case CV_MemberPointerKind_FuncGeneral:  return str8_lit("FuncGeneral");
  }
  return str8_zero();
}

internal String8
cv_string_from_pointer_kind(CV_PointerKind x)
{
  switch (x) {
    case CV_PointerKind_Near:        return str8_lit("Near");
    case CV_PointerKind_Far:         return str8_lit("Far");
    case CV_PointerKind_Huge:        return str8_lit("Huge");
    case CV_PointerKind_BaseSeg:     return str8_lit("BaseSeg");
    case CV_PointerKind_BaseVal:     return str8_lit("BaseVal");
    case CV_PointerKind_BaseSegVal:  return str8_lit("BaseSegVal");
    case CV_PointerKind_BaseAddr:    return str8_lit("BaseAddr");
    case CV_PointerKind_BaseSegAddr: return str8_lit("BaseSegAddr");
    case CV_PointerKind_BaseType:    return str8_lit("BaseType");
    case CV_PointerKind_BaseSelf:    return str8_lit("BaseSelf");
    case CV_PointerKind_Near32:      return str8_lit("Near32");
    case CV_PointerKind_Far32:       return str8_lit("Far32");
    case CV_PointerKind_64:          return str8_lit("64Bit");
  }
  return str8_zero();
}

internal String8
cv_string_from_pointer_mode(CV_PointerMode x)
{
  switch (x) {
    case CV_PointerMode_Ptr:       return str8_lit("Ptr");
    case CV_PointerMode_LRef:      return str8_lit("LRef");
    case CV_PointerMode_PtrMem:    return str8_lit("PtrMem");
    case CV_PointerMode_PtrMethod: return str8_lit("PtrMethod");
    case CV_PointerMode_RRef:      return str8_lit("RRef");
  }
  return str8_zero();
}

internal String8
cv_string_from_c13_checksum_kind(CV_C13ChecksumKind x)
{
  switch (x) {
    case CV_C13ChecksumKind_Null:   break;
    case CV_C13ChecksumKind_MD5:    return str8_lit("MD5");
    case CV_C13ChecksumKind_SHA1:   return str8_lit("SHA1");
    case CV_C13ChecksumKind_SHA256: return str8_lit("SHA256");
  }
  return str8_zero();
}

internal String8
cv_string_from_label_kind(Arena *arena, CV_LabelKind x)
{
  switch (x) {
    case CV_LabelKind_Near: return str8_lit("Near");
    case CV_LabelKind_Far:  return str8_lit("Far");
  }
  return cv_string_from_unknown_value(arena, x);
}

internal String8
cv_string_from_c13_subsection_kind(CV_C13SubSectionKind x)
{
  switch (x) {
    #define X(_N, _ID) case CV_C13SubSectionKind_##_N: return str8_lit(Stringify(_N));
    CV_C13SubSectionKindXList(X)
    #undef X
  }
  return str8_zero();
}

internal String8
cv_string_from_modifier_flags(Arena *arena, CV_ModifierFlags x)
{
  Temp scratch = scratch_begin(&arena, 1);
  String8List list = {0};
  if (x & CV_ModifierFlag_Const) {
    str8_list_pushf(scratch.arena, &list, "Const");
  }
  if (x & CV_ModifierFlag_Volatile) {
    str8_list_pushf(scratch.arena, &list, "Volatile");
  }
  if (x & CV_ModifierFlag_Unaligned) {
    str8_list_pushf(scratch.arena, &list, "Unaligned");
  }
  String8 result = str8_list_join(arena, &list, &(StringJoin){.sep=str8_lit(", ")});
  scratch_end(scratch);
  return result;
}

internal String8
cv_string_from_pointer_attribs(Arena *arena, CV_PointerAttribs x)
{
  Temp scratch = scratch_begin(&arena, 1);

  String8List list = {0};
  if (x & CV_PointerAttrib_IsFlat) {
    x &= ~CV_PointerAttrib_IsFlat;
    str8_list_pushf(scratch.arena, &list, "IsFlat");
  }
  if (x & CV_PointerAttrib_Volatile) {
    x &= ~CV_PointerAttrib_Volatile;
    str8_list_pushf(scratch.arena, &list, "Volatile");
  }
  if (x & CV_PointerAttrib_Const) {
    x &= ~CV_PointerAttrib_Const;
    str8_list_pushf(scratch.arena, &list, "Const");
  }
  if (x & CV_PointerAttrib_Unaligned) {
    x &= ~CV_PointerAttrib_Unaligned;
    str8_list_pushf(scratch.arena, &list, "Unaligned");
  }
  if (x & CV_PointerAttrib_Restricted) {
    x &= ~CV_PointerAttrib_Restricted;
    str8_list_pushf(scratch.arena, &list, "Restricted");
  }
  if (x & CV_PointerAttrib_MOCOM) {
    x &= ~CV_PointerAttrib_MOCOM;
    str8_list_pushf(scratch.arena, &list, "MOCOM");
  }
  if (x & CV_PointerAttrib_LRef) {
    x &= ~CV_PointerAttrib_LRef;
    str8_list_pushf(scratch.arena, &list, "LRef");
  }
  if (x & CV_PointerAttrib_RRef) {
    x &= ~CV_PointerAttrib_RRef;
    str8_list_pushf(scratch.arena, &list, "RRef");
  }

  CV_PointerKind kind = CV_PointerAttribs_Extract_Kind(x);
  CV_PointerMode mode = CV_PointerAttribs_Extract_Mode(x);
  U64            size = CV_PointerAttribs_Extract_Size(x);

  x &= ~(0x1f|(0x7<<5)|(0x3f<<13));

  if (kind) {
    String8 kind_str = cv_string_from_pointer_kind(kind);
    str8_list_pushf(scratch.arena, &list, "Kind=%S", kind_str);
  }
  if (mode) {
    String8 mode_str = cv_string_from_pointer_mode(mode);
    str8_list_pushf(scratch.arena, &list, "Mode=%S", mode_str);
  }
  if (size) {
    str8_list_pushf(scratch.arena, &list, "Size=%llu", size);
  }

  if (x != 0) {
    str8_list_pushf(scratch.arena, &list, "Unknown=%x", x);
  }

  String8 result = str8_list_join(arena, &list, &(StringJoin){.sep=str8_lit(", ")});
  scratch_end(scratch);
  return result;
}

internal String8
cv_string_from_function_attribs(Arena *arena, CV_FunctionAttribs x)
{
  Temp scratch = scratch_begin(&arena, 1);
  String8List list = {0};
  if (x & CV_FunctionAttrib_CxxReturnUDT) {
    str8_list_pushf(scratch.arena, &list, "CxxReturnUDT");
  }
  if (x & CV_FunctionAttrib_Constructor) {
    str8_list_pushf(scratch.arena, &list, "Constructor");
  }
  if (x & CV_FunctionAttrib_ConstructorVBase) {
    str8_list_pushf(scratch.arena, &list, "ConstructorVBase");
  }
  String8 result = str8_list_join(arena, &list, &(StringJoin){.sep=str8_lit(", ")});
  scratch_end(scratch);
  return result;
}

internal String8
cv_string_from_export_flags(Arena *arena, CV_ExportFlags x)
{
  Temp scratch = scratch_begin(&arena, 1);
  String8List list = {0};
  if (x & CV_ExportFlag_Constant) {
    str8_list_pushf(scratch.arena, &list, "Constant");
  }
  if (x & CV_ExportFlag_Data) {
    str8_list_pushf(scratch.arena, &list, "Data");
  }
  if (x & CV_ExportFlag_Private) {
    str8_list_pushf(scratch.arena, &list, "Private");
  }
  if (x & CV_ExportFlag_NoName) {
    str8_list_pushf(scratch.arena, &list, "NoName");
  }
  if (x & CV_ExportFlag_Ordinal) {
    str8_list_pushf(scratch.arena, &list, "Ordinal");
  }
  if (x & CV_ExportFlag_Forwarder) {
    str8_list_pushf(scratch.arena, &list, "Forwarder");
  }
  String8 result = str8_list_join(arena, &list, &(StringJoin){.sep=str8_lit(", ")});
  scratch_end(scratch);
  return result;
}

internal String8
cv_string_from_sepcode(Arena *arena, CV_SepcodeFlags x)
{
  Temp scratch = scratch_begin(&arena,1);
  String8List list = {0};
  if (x & CV_SepcodeFlag_IsLexicalScope) {
    str8_list_pushf(scratch.arena, &list, "IsLexicalScope");
  }
  if (x & CV_SepcodeFlag_ReturnsToParent) {
    str8_list_pushf(scratch.arena, &list, "ReturnsToParent");
  }
  String8 result = str8_list_join(arena, &list, &(StringJoin){.sep=str8_lit(", ")});
  scratch_end(scratch);
  return result;
}

internal String8
cv_string_from_pub32_flags(Arena *arena, CV_Pub32Flags x)
{
  Temp scratch = scratch_begin(&arena, 1);
  String8List list = {0};
  if (x & CV_Pub32Flag_Code) {
    str8_list_pushf(scratch.arena, &list, "Code");
  }
  if (x & CV_Pub32Flag_Function) {
    str8_list_pushf(scratch.arena, &list, "Function");
  }
  if (x & CV_Pub32Flag_ManagedCode) {
    str8_list_pushf(scratch.arena, &list, "ManagedCode");
  }
  if (x & CV_Pub32Flag_MSIL) {
    str8_list_pushf(scratch.arena, &list, "MSIL");
  }
  String8 result = str8_list_join(scratch.arena, &list, &(StringJoin){.sep=str8_lit(", ")});
  scratch_end(scratch);
  return result;
}

internal String8
cv_string_from_generic_flags(Arena *arena, CV_GenericFlags x)
{
  Temp scratch = scratch_begin(&arena, 1);
  String8List list = {0};
  if (x & CV_GenericFlags_CSTYLE) {
    str8_list_pushf(scratch.arena, &list, "CSTYLE");
  }
  if (x & CV_GenericFlags_RSCLEAN) {
    str8_list_pushf(scratch.arena, &list, "RSCLEAN");
  }
  String8 result = str8_list_join(arena, &list, &(StringJoin){.sep=str8_lit(", ")});
  scratch_end(scratch);
  return result;
}

internal String8
cv_string_from_frame_proc_flags(Arena *arena, CV_FrameprocFlags x)
{
  Temp scratch = scratch_begin(&arena, 1);
  String8List list = {0};
  if (x & CV_FrameprocFlag_UsesAlloca) {
    str8_list_pushf(scratch.arena, &list, "UsesAlloca");
  }
  if (x & CV_FrameprocFlag_UsesSetJmp) {
    str8_list_pushf(scratch.arena, &list, "UsesSetJmp");
  }
  if (x & CV_FrameprocFlag_UsesLongJmp) {
    str8_list_pushf(scratch.arena, &list, "UsesLongJmp");
  }
  if (x & CV_FrameprocFlag_UsesInlAsm) {
    str8_list_pushf(scratch.arena, &list, "UsesInlAsm");
  }
  if (x & CV_FrameprocFlag_UsesEH) {
    str8_list_pushf(scratch.arena, &list, "UsesEH");
  }
  if (x & CV_FrameprocFlag_Inline) {
    str8_list_pushf(scratch.arena, &list, "Inline");
  }
  if (x & CV_FrameprocFlag_HasSEH) {
    str8_list_pushf(scratch.arena, &list, "HasSEH");
  }
  if (x & CV_FrameprocFlag_Naked) {
    str8_list_pushf(scratch.arena, &list, "Naked");
  }
  if (x & CV_FrameprocFlag_HasSecurityChecks) {
    str8_list_pushf(scratch.arena, &list, "HasSecurityChecks");
  }
  if (x & CV_FrameprocFlag_AsyncEH) {
    str8_list_pushf(scratch.arena, &list, "AsyncEH");
  }
  if (x & CV_FrameprocFlag_GSNoStackOrdering) {
    str8_list_pushf(scratch.arena, &list, "GSNoStackOrdering");
  }
  if (x & CV_FrameprocFlag_WasInlined) {
    str8_list_pushf(scratch.arena, &list, "WasInlined");
  }
  if (x & CV_FrameprocFlag_GSCheck) {
    str8_list_pushf(scratch.arena, &list, "GSCheck");
  }
  if (x & CV_FrameprocFlag_SafeBuffers) {
    str8_list_pushf(scratch.arena, &list, "SafeBuffers");
  }
  if (x & CV_FrameprocFlag_PogoOn) {
    str8_list_pushf(scratch.arena, &list, "PogoOn");
  }
  if (x & CV_FrameprocFlag_PogoCountsValid) {
    str8_list_pushf(scratch.arena, &list, "PogoCountsValid");
  }
  if (x & CV_FrameprocFlag_OptSpeed) {
    str8_list_pushf(scratch.arena, &list, "OptSpeed");
  }
  if (x & CV_FrameprocFlag_HasCFG) {
    str8_list_pushf(scratch.arena, &list, "HasCFG");
  }
  if (x & CV_FrameprocFlag_HasCFW) {
    str8_list_pushf(scratch.arena, &list, "HasCFW");
  }
  String8 result = str8_list_join(arena, &list, &(StringJoin){.sep=str8_lit(", ")});
  scratch_end(scratch);
  return result;
}

internal String8
cv_string_from_type_props(Arena *arena, CV_TypeProps32 x)
{
  Temp scratch = scratch_begin(&arena, 1);

  U32 hfa  = CV_TypeProps_Extract_HFA(x);
  U32 mcom = CV_TypeProps_Extract_MOCOM(x);

  String8 hfa_str  = cv_string_from_hfa(hfa);
  String8 mcom_str = cv_string_from_mcom(mcom);

  String8 flags_str;
  {
    String8List list = {0};
    if (x & CV_TypeProp_Packed) {
      x &= ~CV_TypeProp_Packed;
      str8_list_pushf(scratch.arena, &list, "Packed");
    }
    if (x & CV_TypeProp_HasConstructorsDestructors) {
      x &= ~CV_TypeProp_HasConstructorsDestructors;
      str8_list_pushf(scratch.arena, &list, "HasConstructorsDestructors");
    }
    if (x & CV_TypeProp_OverloadedOperators) {
      x &= ~CV_TypeProp_OverloadedOperators;
      str8_list_pushf(scratch.arena, &list, "OverloadedOperators");
    }
    if (x & CV_TypeProp_IsNested) {
      x &= ~CV_TypeProp_IsNested;
      str8_list_pushf(scratch.arena, &list, "IsNested");
    }
    if (x & CV_TypeProp_ContainsNested) {
      x &= ~CV_TypeProp_ContainsNested;
      str8_list_pushf(scratch.arena, &list, "ContainsNested");
    }
    if (x & CV_TypeProp_OverloadedAssignment) {
      x &= ~CV_TypeProp_OverloadedAssignment;
      str8_list_pushf(scratch.arena, &list, "OverloadedAssignment");
    }
    if (x & CV_TypeProp_OverloadedCasting) {
      x &= ~CV_TypeProp_OverloadedCasting;
      str8_list_pushf(scratch.arena, &list, "OverloadedCasting");
    }
    if (x & CV_TypeProp_FwdRef) {
      x &= ~CV_TypeProp_FwdRef;
      str8_list_pushf(scratch.arena, &list, "FwdRef");
    }
    if (x & CV_TypeProp_Scoped) {
      x &= ~CV_TypeProp_Scoped;
      str8_list_pushf(scratch.arena, &list, "Scoped");
    }
    if (x & CV_TypeProp_HasUniqueName) {
      x &= ~CV_TypeProp_HasUniqueName;
      str8_list_pushf(scratch.arena, &list, "HasUniqueName");
    }
    if (x & CV_TypeProp_Sealed) {
      x &= ~CV_TypeProp_Sealed;
      str8_list_pushf(scratch.arena, &list, "Sealed");
    }
    if (x & CV_TypeProp_Intrinsic) {
      x &= ~CV_TypeProp_Intrinsic;
      str8_list_pushf(scratch.arena, &list, "Intrinsic");
    }
    if (x != 0) {
      str8_list_pushf(scratch.arena, &list, "%x", x);
    }
    flags_str = str8_list_join(scratch.arena, &list, &(StringJoin){.sep=str8_lit(", ") });

    if (hfa) {
      str8_list_pushf(scratch.arena, &list, "HFA = %S", hfa_str);
    }
    if (mcom) {
      str8_list_pushf(scratch.arena, &list, "MCOM = %S", mcom_str);
    }
  }
  
  String8 result = push_str8f(arena, "%S", flags_str);

  scratch_end(scratch);
  return result;
}

internal String8
cv_string_from_local_flags(Arena *arena, CV_LocalFlags x)
{
  Temp scratch = scratch_begin(&arena, 1);
  String8List list = {0};
  if (x & CV_LocalFlag_Param) {
    str8_list_pushf(scratch.arena, &list, "Param");
  }
  if (x & CV_LocalFlag_AddrTaken) {
    str8_list_pushf(scratch.arena, &list, "AddrTaken");
  }
  if (x & CV_LocalFlag_Compgen) {
    str8_list_pushf(scratch.arena, &list, "Compgen");
  }
  if (x & CV_LocalFlag_Aggregate) {
    str8_list_pushf(scratch.arena, &list, "Aggregate");
  }
  if (x & CV_LocalFlag_PartOfAggregate) {
    str8_list_pushf(scratch.arena, &list, "PartOfAggregate");
  }
  if (x & CV_LocalFlag_Aliased) {
    str8_list_pushf(scratch.arena, &list, "Aliased");
  }
  if (x & CV_LocalFlag_Alias) {
    str8_list_pushf(scratch.arena, &list, "Alias");
  }
  if (x & CV_LocalFlag_Retval) {
    str8_list_pushf(scratch.arena, &list, "Retval");
  }
  if (x & CV_LocalFlag_OptOut) {
    str8_list_pushf(scratch.arena, &list, "OptOut");
  }
  if (x & CV_LocalFlag_Global) {
    str8_list_pushf(scratch.arena, &list, "Global");
  }
  if (x & CV_LocalFlag_Static) {
    str8_list_pushf(scratch.arena, &list, "Static");
  }
  String8 result = str8_list_join(arena, &list, &(StringJoin){.sep=str8_lit(", ")});
  scratch_end(scratch);
  return result;
}

internal String8
cv_string_from_proc_flags(Arena *arena, CV_ProcFlags x)
{
  Temp scratch = scratch_begin(&arena, 1);
  String8List list = {0};
  if (x & CV_ProcFlag_NoFPO) {
    x &= ~CV_ProcFlag_NoFPO;
    str8_list_pushf(scratch.arena, &list, "NoFPO");
  }
  if (x & CV_ProcFlag_IntReturn) {
    x &= ~CV_ProcFlag_IntReturn;
    str8_list_pushf(scratch.arena, &list, "IntReturn");
  }
  if (x & CV_ProcFlag_FarReturn) {
    x &= ~CV_ProcFlag_FarReturn;
    str8_list_pushf(scratch.arena, &list, "FarReturn");
  }
  if (x & CV_ProcFlag_NeverReturn) {
    x &= ~CV_ProcFlag_NeverReturn;
    str8_list_pushf(scratch.arena, &list, "NeverReturn");
  }
  if (x & CV_ProcFlag_NotReached) {
    x &= ~CV_ProcFlag_NotReached;
    str8_list_pushf(scratch.arena, &list, "NotReached");
  }
  if (x & CV_ProcFlag_CustomCall) {
    x &= ~CV_ProcFlag_CustomCall;
    str8_list_pushf(scratch.arena, &list, "CustomCall");
  }
  if (x & CV_ProcFlag_NoInline) {
    x &= ~CV_ProcFlag_NoInline;
    str8_list_pushf(scratch.arena, &list, "NoInline");
  }
  if (x & CV_ProcFlag_OptDbgInfo) {
    x &= ~CV_ProcFlag_OptDbgInfo;
    str8_list_pushf(scratch.arena, &list, "OptDbgInfo");
  }
  if (x != 0) {
    str8_list_pushf(scratch.arena, &list, "%#x", x);
  }
  String8 result;
  if (list.node_count == 0) {
    result = str8_lit("None");
  } else {
    result = str8_list_join(arena, &list, &(StringJoin){.sep=str8_lit(", ")});
  }
  temp_end(scratch);
  return result;
}

internal String8
cv_string_from_range_attribs(Arena *arena, CV_RangeAttribs x)
{ (void)arena;
  String8 result = str8_lit("None");
  if (x == CV_RangeAttrib_Maybe) {
    result = str8_lit("Maybe");
  }
  return result;
}

internal String8
cv_string_from_defrange_register_rel_flags(Arena *arena, CV_DefrangeRegisterRelFlags x)
{ (void)arena;
  String8 result = str8_lit("None");
  if (x == CV_DefrangeRegisterRelFlag_SpilledOutUDTMember) {
    result = str8_lit("SpilledOutUDTMember");
  }
  return result;
}

internal String8
cv_string_from_field_attribs(Arena *arena, CV_FieldAttribs attribs)
{
  Temp scratch = scratch_begin(&arena, 1);

  U32 access = CV_FieldAttribs_Extract_Access(attribs);
  U32 mprop  = CV_FieldAttribs_Extract_MethodProp(attribs);
  attribs &= ~(0x3 | 0x7);

  String8 access_str = cv_string_from_member_access(access);
  String8 mprop_str  = cv_string_from_method_prop(mprop);

  String8List list = {0};
  {
    if (attribs & CV_FieldAttrib_Pseudo) {
      attribs &= ~CV_FieldAttrib_Pseudo;
      str8_list_pushf(scratch.arena, &list, "Pseudo");
    }
    if (attribs & CV_FieldAttrib_NoInherit) {
      attribs &= ~CV_FieldAttrib_NoInherit;
      str8_list_pushf(scratch.arena, &list, "NoInherit");
    }
    if (attribs & CV_FieldAttrib_NoConstruct) {
      attribs &= ~CV_FieldAttrib_NoConstruct;
      str8_list_pushf(scratch.arena, &list, "NoConstruct");
    }
    if (attribs & CV_FieldAttrib_CompilerGenated) {
      attribs &= ~CV_FieldAttrib_CompilerGenated;
      str8_list_pushf(scratch.arena, &list, "CompilerGenerated");
    }
    if (attribs & CV_FieldAttrib_Sealed) {
      attribs &= ~CV_FieldAttrib_Sealed;
      str8_list_pushf(scratch.arena, &list, "Sealed");
    }
    if (attribs) {
      str8_list_pushf(scratch.arena, &list, "Unknown: %x", attribs);
    }
  }

  if (access) {
    str8_list_pushf(scratch.arena, &list, "%S", access_str);
  }
  if (mprop) {
    str8_list_pushf(scratch.arena, &list, "%S", mprop_str);
  }

  String8 result = str8_list_join(scratch.arena, &list, &(StringJoin){.sep=str8_lit(", ")});

  scratch_end(scratch);
  return result;
}

internal String8
cv_string_from_itype(Arena *arena, CV_TypeIndex min_itype, CV_TypeIndex itype)
{
  String8 result = str8_zero();
  if (itype < min_itype) {
    String8 n = cv_type_name_from_basic_type((CV_BasicType)itype);
    if (n.size) {
      Temp scratch = scratch_begin(&arena, 1);

      U64 type = CV_BasicTypeFromTypeId(itype);
      char *type_str = "???";
      switch (type) {
        case CV_BasicType_NOTYPE:     type_str = "NOTYPE";     break;
        case CV_BasicType_ABS:        type_str = "ABS";        break;
        case CV_BasicType_SEGMENT:    type_str = "SEGMENT";    break;
        case CV_BasicType_VOID:       type_str = "VOID";       break;
        case CV_BasicType_CURRENCY:   type_str = "CURRENCY";   break;
        case CV_BasicType_NBASICSTR:  type_str = "NBASICSTR";  break;
        case CV_BasicType_FBASICSTR:  type_str = "FBASICSTR";  break;
        case CV_BasicType_NOTTRANS:   type_str = "NOTTRANS";   break;
        case CV_BasicType_HRESULT:    type_str = "HRESULT";    break;
        case CV_BasicType_CHAR:       type_str = "CHAR";       break;
        case CV_BasicType_SHORT:      type_str = "SHORT";      break;
        case CV_BasicType_LONG:       type_str = "LONG";       break;
        case CV_BasicType_QUAD:       type_str = "QUAD";       break;
        case CV_BasicType_OCT:        type_str = "OCT";        break;
        case CV_BasicType_UCHAR:      type_str = "UCHAR";      break;
        case CV_BasicType_USHORT:     type_str = "USHORT";     break;
        case CV_BasicType_ULONG:      type_str = "ULONG";      break;
        case CV_BasicType_UQUAD:      type_str = "UQUAD";      break;
        case CV_BasicType_UOCT:       type_str = "UOCT";       break;
        case CV_BasicType_BOOL8:      type_str = "BOOL8";      break;
        case CV_BasicType_BOOL16:     type_str = "BOOL16";     break;
        case CV_BasicType_BOOL32:     type_str = "BOOL32";     break;
        case CV_BasicType_BOOL64:     type_str = "BOOL64";     break;
        case CV_BasicType_FLOAT32:    type_str = "FLOAT32";    break;
        case CV_BasicType_FLOAT64:    type_str = "FLOAT64";    break;
        case CV_BasicType_FLOAT80:    type_str = "FLOAT80";    break;
        case CV_BasicType_FLOAT128:   type_str = "FLOAT128";   break;
        case CV_BasicType_FLOAT48:    type_str = "FLOAT48";    break;
        case CV_BasicType_FLOAT32PP:  type_str = "FLOAT32PP";  break;
        case CV_BasicType_FLOAT16:    type_str = "FLOAT16";    break;
        case CV_BasicType_COMPLEX32:  type_str = "COMPLEX32";  break;
        case CV_BasicType_COMPLEX64:  type_str = "COMPLEX64";  break;
        case CV_BasicType_COMPLEX80:  type_str = "COMPLEX80";  break;
        case CV_BasicType_COMPLEX128: type_str = "COMPLEX128"; break;
        case CV_BasicType_BIT:        type_str = "BIT";        break;
        case CV_BasicType_PASCHAR:    type_str = "PASCHAR";    break;
        case CV_BasicType_BOOL32FF:   type_str = "BOOL32FF";   break;
        case CV_BasicType_INT8:       type_str = "INT8";       break;
        case CV_BasicType_UINT8:      type_str = "UINT8";      break;
        case CV_BasicType_RCHAR:      type_str = "RCHAR";      break;
        case CV_BasicType_WCHAR:      type_str = "WCHAR";      break;
        case CV_BasicType_INT16:      type_str = "INT16";      break;
        case CV_BasicType_UINT16:     type_str = "UINT16";     break;
        case CV_BasicType_INT32:      type_str = "INT32";      break;
        case CV_BasicType_UINT32:     type_str = "UINT32";     break;
        case CV_BasicType_INT64:      type_str = "INT64";      break;
        case CV_BasicType_UINT64:     type_str = "UINT64";     break;
        case CV_BasicType_INT128:     type_str = "INT128";     break;
        case CV_BasicType_UINT128:    type_str = "UINT128";    break;
        case CV_BasicType_CHAR16:     type_str = "CHAR16";     break;
        case CV_BasicType_CHAR32:     type_str = "CHAR32";     break;
        case CV_BasicType_CHAR8:      type_str = "CHAR8";      break;
        case CV_BasicType_PTR:        type_str = "PTR";        break;
      }

      U64 ptr = CV_BasicPointerKindFromTypeId(itype);
      char *ptr_str = "";
      switch (ptr) {
        case 0x1: ptr_str = "P";    break;
        case 0x2: ptr_str = "PF";   break;
        case 0x3: ptr_str = "PH";   break;
        case 0x4: ptr_str = "32P";  break;
        case 0x5: ptr_str = "32PF"; break;
        case 0x6: ptr_str = "64P";  break;
      }

      n = upper_from_str8(scratch.arena, n);
      result = push_str8f(arena, "T_%s%s(%x)", ptr_str, type_str, itype);
      scratch_end(scratch);
    } else {
      result = push_str8f(arena, "%x", itype);
    }
  } else {
    result = push_str8f(arena, "%x", itype);
  }
  return result;
}

internal String8
cv_string_from_itemid(Arena *arena, CV_ItemId itemid)
{
  String8 result = push_str8f(arena, "%x", itemid);
  return result;
}

internal String8
cv_string_from_symbol_type(Arena *arena, CV_SymKind symbol_type)
{
  String8 str    = cv_string_from_sym_kind(symbol_type);
  String8 result = push_str8f(arena, "S_%S", str);
  return result;
}

internal String8
cv_string_from_symbol_kind(Arena *arena, CV_SymKind kind)
{
  String8 str    = cv_string_from_sym_kind(kind);
  String8 result = push_str8f(arena, "S_%S", str);
  return result;
}

internal String8
cv_string_from_leaf_name(Arena *arena, U32 leaf_type)
{
  String8 str    = cv_string_from_leaf_kind(leaf_type);
  String8 result = push_str8f(arena, "LF_%S", str);
  return result;
}

internal String8 
cv_string_sec_off(Arena *arena, U32 sec, U32 off)
{
  return push_str8f(arena, "%04x:%08x", sec, off);
}