NA: Use relative path for NA plugin search

Calculate relative path at build time and use it at runtime to find the
plugin directory

Signed-off-by: Jeff Olivier <[email protected]>

Author: jolivier23

src/na/CMakeLists.txt

@@ -82,9 +82,16 @@ if(NA_USE_DYNAMIC_PLUGINS)
   if(NOT BUILD_SHARED_LIBS)
     message(FATAL_ERROR "Using dynamic plugins requires BUILD_SHARED_LIBS to be ON.")
   endif()
+  execute_process (
+	  COMMAND realpath -m ${NA_INSTALL_PLUGIN_DIR} --relative-to=${NA_INSTALL_LIB_DIR}
+	  OUTPUT_VARIABLE NA_PLUGIN_PATH_OFFSET
+	  OUTPUT_STRIP_TRAILING_WHITESPACE
+  )
+  message("NA_PLUGIN_PATH_OFFSET=${NA_PLUGIN_PATH_OFFSET}")
   set(NA_HAS_DYNAMIC_PLUGINS 1)
   set(NA_DEFAULT_PLUGIN_PATH ${NA_INSTALL_PLUGIN_DIR} CACHE PATH "Default path used to load plugins.")
   mark_as_advanced(NA_DEFAULT_PLUGIN_PATH)
+  mark_as_advanced(NA_PLUGIN_PATH_OFFSET)
 endif()
 
 # BMI

src/na/na.c

@@ -5,6 +5,7 @@
  * SPDX-License-Identifier: BSD-3-Clause
  */
 
+#define _GNU_SOURCE /* For dladdr */
 #include "na_plugin.h"
 
 #include "mercury_atomic_queue.h"
@@ -20,6 +21,9 @@
 #        include <Windows.h>
 #    else
 #        include <dirent.h>
+#        include <dlfcn.h>
+#        include <limits.h>
+#        include <link.h>
 #    endif
 #endif
 
@@ -260,20 +264,68 @@ na_finalize(void) NA_DESTRUCTOR;
 
 /*---------------------------------------------------------------------------*/
 #ifdef NA_HAS_DYNAMIC_PLUGINS
+#    ifdef _WIN32
+#    define resolve_plugin_path(offset) NULL
+#    else
+static char *
+resolve_plugin_path(const char *offset)
+{
+    Dl_info info;
+    char *libdir;
+    char *libpath;
+    char *slash;
+    int rc;
+
+    if (!dladdr(resolve_plugin_path, &info)) {
+        return NULL;
+    }
+
+    libpath = realpath(info.dli_fname, NULL);
+    if (libpath == NULL) {
+        return NULL;
+    }
+
+    slash = strrchr(libpath, '/');
+    if (slash == NULL) {
+        free(libpath);
+        return NULL;
+    }
+
+    *slash = '\0';
+    rc = asprintf(&libdir, "%s/%s", libpath, offset);
+    free(libpath);
+    if (rc != -1) {
+        return libdir;
+    }
+
+    return NULL;
+}
+#    endif
+
 static void
 na_initialize(void)
 {
     const char *plugin_path = getenv("NA_PLUGIN_PATH");
+    char *relative_plugin_path = NULL;
     na_return_t ret;
-
-    if (plugin_path == NULL)
-        plugin_path = NA_DEFAULT_PLUGIN_PATH;
+    if (plugin_path == NULL) {
+        relative_plugin_path = resolve_plugin_path(NA_PLUGIN_PATH_OFFSET);
+        if (relative_plugin_path == NULL) {
+            plugin_path = NA_DEFAULT_PLUGIN_PATH;
+        } else {
+            plugin_path = relative_plugin_path;
+        }
+    }
 
     ret = na_plugin_scan_path(plugin_path, &na_plugin_dynamic_g);
     NA_CHECK_FATAL_DONE(ret != NA_SUCCESS,
         "No usable plugin found in path (%s), consider setting NA_PLUGIN_PATH "
         "if path indicated is not valid.",
         plugin_path);
+
+    if (relative_plugin_path) {
+        free(relative_plugin_path);
+    }
 }
 
 /*---------------------------------------------------------------------------*/

src/na/na_config.h.in

@@ -81,6 +81,7 @@
 #    define NA_PLUGIN_VISIBILITY NA_PRIVATE
 #endif
 #cmakedefine NA_DEFAULT_PLUGIN_PATH "@NA_DEFAULT_PLUGIN_PATH@"
+#cmakedefine NA_PLUGIN_PATH_OFFSET "@NA_PLUGIN_PATH_OFFSET@"
 
 /* Build Options */
 #cmakedefine NA_HAS_DEBUG