1: #include <dlfcn.h>
    2: #include <stdio.h>
    3: #include <string.h>
    4: 
    5: 
    6: extern int test_in_mod1 (void *);
    7: extern int test_in_mod2 (void *);
    8: 
    9: 
   10: int
   11: main (int argc, char *argv[])
   12: {
   13:   int (*ifp) (void);
   14:   void *p;
   15:   int result = 0;
   16:   Dl_info info;
   17:   
   18:   dladdr(main, &info);
   19:   if (info.dli_fname == NULL)
   20:     {
   21:       printf ("%s: dladdr returns NULL dli_fname\n", __FILE__);
   22:       result = 1;
   23:     }
   24:   else if (strcmp (info.dli_fname, argv[0]))
   25:     {
   26:       printf ("%s: dladdr returned '%s' as dli_fname\n", __FILE__, info.dli_fname);
   27:       result = 1;
   28:     }
   29:   else
   30:     printf ("%s: dladdr returned correct dli_fname\n", __FILE__);
   31:       
   32:   /* Find function `main'.  */
   33:   p = dlsym (RTLD_DEFAULT, "main");
   34:   if (p == NULL)
   35:     {
   36:       printf ("%s: main not found\n", __FILE__);
   37:       result = 1;
   38:     }
   39:   else if ((int (*)(int, char **))p != main)
   40:     {
   41:       printf ("%s: wrong address returned for main\n", __FILE__);
   42:       result = 1;
   43:     }
   44:   else
   45:     printf ("%s: main correctly found\n", __FILE__);
   46: 
   47:   ifp = dlsym (RTLD_DEFAULT, "found_in_mod1");
   48:   if ((void *) ifp == NULL)
   49:     {
   50:       printf ("%s: found_in_mod1 not found\n", __FILE__);
   51:       result = 1;
   52:     }
   53:   else if (ifp () != 1)
   54:     {
   55:       printf ("%s: wrong address returned for found_in_mod1\n", __FILE__);
   56:       result = 1;
   57:     }
   58:   else
   59:     printf ("%s: found_in_mod1 correctly found\n", __FILE__);
   60: 
   61:   ifp = dlsym (RTLD_DEFAULT, "found_in_mod2");
   62:   if ((void *) ifp == NULL)
   63:     {
   64:       printf ("%s: found_in_mod2 not found\n", __FILE__);
   65:       result = 1;
   66:     }
   67:   else if (ifp () != 2)
   68:     {
   69:       printf ("%s: wrong address returned for found_in_mod2\n", __FILE__);
   70:       result = 1;
   71:     }
   72:   else
   73:     printf ("%s: found_in_mod2 correctly found\n", __FILE__);
   74: 
   75:   result |= test_in_mod1 (main);
   76: 
   77:   result |= test_in_mod2 (main);
   78: 
   79:   return result;
   80: }