1  #include <dlfcn.h>
       2  #include <libintl.h>
       3  #include <link.h>
       4  #include <stdio.h>
       5  #include <stdlib.h>
       6  #include <string.h>
       7  
       8  #define MAPS ((struct link_map *) _r_debug.r_map)
       9  
      10  static int
      11  check_loaded_objects (const char **loaded)
      12  {
      13    struct link_map *lm;
      14    int n;
      15    int *found = NULL;
      16    int errors = 0;
      17  
      18    for (n = 0; loaded[n]; n++)
      19      /* NOTHING */;
      20  
      21    if (n)
      22      {
      23        found = (int *) alloca (sizeof (int) * n);
      24        memset (found, 0, sizeof (int) * n);
      25      }
      26  
      27    printf("   Name\n");
      28    printf(" --------------------------------------------------------\n");
      29    for (lm = MAPS; lm; lm = lm->l_next)
      30      {
      31        if (lm->l_name && lm->l_name[0])
      32  	printf(" %s, count = %d\n", lm->l_name, (int) lm->l_direct_opencount);
      33        if (lm->l_type == lt_loaded && lm->l_name)
      34  	{
      35  	  int match = 0;
      36  	  for (n = 0; loaded[n] != NULL; n++)
      37  	    {
      38  	      if (strcmp (basename (loaded[n]), basename (lm->l_name)) == 0)
      39  	        {
      40  		  found[n] = 1;
      41  		  match = 1;
      42  		  break;
      43  		}
      44  	    }
      45  
      46  	  if (match == 0)
      47  	    {
      48  	      ++errors;
      49  	      printf ("ERRORS: %s is not unloaded\n", lm->l_name);
      50  	    }
      51  	}
      52      }
      53  
      54    for (n = 0; loaded[n] != NULL; n++)
      55      {
      56        if (found[n] == 0)
      57          {
      58  	  ++errors;
      59  	  printf ("ERRORS: %s is not loaded\n", loaded[n]);
      60  	}
      61      }
      62  
      63    return errors;
      64  }
      65  
      66  int
      67  main (void)
      68  {
      69    void *obj2;
      70    void *obj3;
      71    void *obj4;
      72    const char *loaded[] = { NULL, NULL, NULL, NULL, NULL };
      73    int errors = 0;
      74  
      75    printf ("\nThis is what is in memory now:\n");
      76    errors += check_loaded_objects (loaded);
      77  
      78    printf ("Now loading shared object neededobj2.so\n");
      79    obj2 = dlopen ("neededobj2.so", RTLD_LAZY);
      80    if (obj2 == NULL)
      81      {
      82        printf ("%s\n", dlerror ());
      83        exit (1);
      84      }
      85    loaded[0] = "neededobj1.so";
      86    loaded[1] = "neededobj2.so";
      87    errors += check_loaded_objects (loaded);
      88  
      89    printf( "Loading shared object neededobj3.so\n");
      90    obj3 = dlopen( "neededobj3.so", RTLD_LAZY);
      91    if (obj3 == NULL)
      92      {
      93        printf ("%s\n", dlerror ());
      94        exit (1);
      95      }
      96    loaded[2] = "neededobj3.so";
      97    errors += check_loaded_objects (loaded);
      98  
      99  
     100    printf( "Loading shared object neededobj4.so\n");
     101    obj4 = dlopen( "neededobj4.so", RTLD_LAZY);
     102    if (obj4 == NULL)
     103      {
     104        printf ("%s\n", dlerror ());
     105        exit (1);
     106      }
     107    loaded[3] = "neededobj4.so";
     108    errors += check_loaded_objects (loaded);
     109  
     110    printf ("Closing neededobj2.so\n");
     111    dlclose (obj2);
     112    errors += check_loaded_objects (loaded);
     113  
     114    printf ("Closing neededobj3.so\n");
     115    dlclose (obj3);
     116    errors += check_loaded_objects (loaded);
     117  
     118    printf ("Closing neededobj4.so\n");
     119    dlclose (obj4);
     120    loaded[0] = NULL;
     121    loaded[1] = NULL;
     122    loaded[2] = NULL;
     123    loaded[3] = NULL;
     124    errors += check_loaded_objects (loaded);
     125  
     126    if (errors != 0)
     127      printf ("%d errors found\n", errors);
     128    return errors;
     129  }