1: #define PETSC_DESIRE_FEATURE_TEST_MACROS /* for and RTLD_* */
  2: #include <petsc/private/petscimpl.h>

  4: #if defined(PETSC_HAVE_DLFCN_H)
  5:   #include <dlfcn.h>
  6: #endif

  8: #if defined(__cplusplus) && defined(PETSC_HAVE_CXXABI_H)
  9:   #include <cxxabi.h>
 10: #endif

 12: /*@C
 13:   PetscDemangleSymbol - Convert a C++-mangled symbol name to its human-readable form using `abi::__cxa_demangle()` when available

 15:   Not Collective

 17:   Input Parameter:
 18: . mangledName - the mangled symbol name (typically obtained from `dladdr()`)

 20:   Output Parameter:
 21: . name - newly-allocated, null-terminated demangled name; caller must `PetscFree()` it

 23:   Level: developer

 25:   Note:
 26:   When no demangler is available (or when `mangledName` is `NULL`), `name` is set to `NULL`.

 28: .seealso: `PetscStackView()`, `PetscStackPrint()`
 29: @*/
 30: PetscErrorCode PetscDemangleSymbol(const char mangledName[], char **name)
 31: {
 32:   char *(*cxa_demangle)(const char *, char *, size_t *, int *) = PETSC_NULLPTR;
 33:   char *newname;
 34:   int   status;

 36:   PetscFunctionBegin;
 37:   if (mangledName) PetscAssertPointer(mangledName, 1);
 38:   PetscAssertPointer(name, 2);

 40:   *name = PETSC_NULLPTR;
 41:   if (!mangledName) PetscFunctionReturn(PETSC_SUCCESS);

 43: #if defined(__cplusplus) && defined(PETSC_HAVE_CXXABI_H)
 44:   cxa_demangle = __cxxabiv1::__cxa_demangle;
 45: #endif

 47: #if defined(PETSC_HAVE_DLFCN_H) && defined(PETSC_HAVE_DLOPEN)
 48:   if (!cxa_demangle) {
 49:     void *symbol = PETSC_NULLPTR;
 50:   #if defined(PETSC_HAVE_RTLD_DEFAULT)
 51:     symbol = dlsym(RTLD_DEFAULT, "__cxa_demangle");
 52:   #endif
 53:     if (!symbol) {
 54:       int   mode   = 0;
 55:       void *handle = PETSC_NULLPTR;
 56:   #if defined(PETSC_HAVE_RTLD_LAZY)
 57:       mode |= RTLD_LAZY;
 58:   #endif
 59:   #if defined(PETSC_HAVE_RTLD_LOCAL)
 60:       mode |= RTLD_LOCAL;
 61:   #endif
 62:   #if defined(PETSC_HAVE_RTLD_NOLOAD)
 63:       mode |= RTLD_NOLOAD;
 64:   #endif
 65:   #ifdef __APPLE__
 66:       if (!handle) handle = dlopen("libc++.1.dylib", mode);
 67:   #else
 68:       if (!handle) handle = dlopen("libstdc++.so.6", mode);
 69:   #endif
 70:       if (handle) {
 71:         symbol = dlsym(handle, "__cxa_demangle");
 72:         dlclose(handle);
 73:       }
 74:     }
 75:     *(void **)(&cxa_demangle) = symbol;
 76:   }
 77: #endif

 79:   if (!cxa_demangle) {
 80:     PetscCall(PetscStrallocpy(mangledName, name));
 81:     PetscFunctionReturn(PETSC_SUCCESS);
 82:   }

 84:   newname = cxa_demangle(mangledName, PETSC_NULLPTR, PETSC_NULLPTR, &status);
 85:   if (status) {
 86:     PetscCheck(status != -1, PETSC_COMM_SELF, PETSC_ERR_MEM, "Failed to allocate memory for symbol %s", mangledName);
 87:     PetscCheck(status == -2, PETSC_COMM_SELF, PETSC_ERR_LIB, "Demangling failed for symbol %s", mangledName);
 88:     /* Mangled name is not a valid name under the C++ ABI mangling rules */
 89:     PetscCall(PetscStrallocpy(mangledName, name));
 90:     PetscFunctionReturn(PETSC_SUCCESS);
 91:   }
 92:   PetscCall(PetscStrallocpy(newname, name));
 93:   free(newname);
 94:   PetscFunctionReturn(PETSC_SUCCESS);
 95: }