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[2];
      71    const char *loaded[] = { NULL, NULL, NULL, NULL };
      72    int errors = 0;
      73  
      74    printf ("\nThis is what is in memory now:\n");
      75    errors += check_loaded_objects (loaded);
      76    printf ("\nLoading shared object neededobj2.so\n");
      77    obj2 = dlopen ("neededobj2.so", RTLD_LAZY);
      78    if (obj2 == NULL)
      79      {
      80        printf ("%s\n", dlerror ());
      81        exit (1);
      82      }
      83    loaded[0] = "neededobj1.so";
      84    loaded[1] = "neededobj2.so";
      85    errors += check_loaded_objects (loaded);
      86    printf ("\nLoading shared object neededobj3.so\n");
      87    obj3[0] = dlopen( "neededobj3.so", RTLD_LAZY);
      88    if (obj3[0] == NULL)
      89      {
      90        printf ("%s\n", dlerror ());
      91        exit (1);
      92      }
      93    loaded[2] = "neededobj3.so";
      94    errors += check_loaded_objects (loaded);
      95    printf ("\nNow loading shared object neededobj3.so again\n");
      96    obj3[1] = dlopen ("neededobj3.so", RTLD_LAZY);
      97    if (obj3[1] == NULL)
      98      {
      99        printf ("%s\n", dlerror ());
     100        exit (1);
     101      }
     102    errors += check_loaded_objects (loaded);
     103    printf ("\nClosing neededobj3.so once\n");
     104    dlclose (obj3[0]);
     105    errors += check_loaded_objects (loaded);
     106    printf ("\nClosing neededobj2.so\n");
     107    dlclose (obj2);
     108    errors += check_loaded_objects (loaded);
     109    printf ("\nClosing neededobj3.so for the second time\n");
     110    dlclose (obj3[1]);
     111    loaded[0] = NULL;
     112    loaded[1] = NULL;
     113    loaded[2] = NULL;
     114    errors += check_loaded_objects (loaded);
     115    if (errors != 0)
     116      printf ("%d errors found\n", errors);
     117    return errors;
     118  }