openblas_version.c

Go to the documentation of this file.

#include <dlfcn.h>
#include <stddef.h>
#include <stdio.h>
#include <string.h>
 
int openblas_get_version(int *major, int *minor, int *patch) {
    // Get the handle of the running program. This should always succeed, but if
    // it fails for some reason, we just pretend that OpenBLAS wasn't linked.
    void *self = dlopen(NULL, RTLD_LAZY);
    if (!self) {
        return 1;
    }
    // ISO C forbids conversion of object pointer to function pointer type
    char *(*openblas_get_config)(void) = NULL;
    *(void **)(&openblas_get_config) = dlsym(self, "openblas_get_config");
    // Permissive rather than defensive. Assume if openblas configuration
    // cannot be retrieved, we are probably not using openblas as a backend
    if (!openblas_get_config) {
        return 1;
    }
    /* string guaranteed to start with OpenBLAS:
       static char* openblas_config_str=""
       "OpenBLAS "
       VERSION
       " "
       See https://github.com/OpenMathLib/OpenBLAS/blob/develop/driver/others/openblas_get_config.c
    */
    if (sscanf(openblas_get_config(), "OpenBLAS %d.%d.%d", major, minor, patch) != 3) {
        return 0;
    }
    return 1;
}