fdwalk should return 0 on an empty directory
[kopensolaris-gnu/glibc.git] / elf / unload2.c
1 #include <dlfcn.h>
2 #include <elf.h>
3 #include <errno.h>
4 #include <error.h>
5 #include <link.h>
6 #include <stdio.h>
7 #include <stdlib.h>
8
9 #define MAPS ((struct link_map *) _r_debug.r_map)
10
11 #define OUT \
12   for (map = MAPS; map != NULL; map = map->l_next)                            \
13     if (map->l_type == lt_loaded)                                             \
14       printf ("name = \"%s\", direct_opencount = %d\n",                       \
15               map->l_name, (int) map->l_direct_opencount);                    \
16   fflush (stdout)
17
18 int
19 main (void)
20 {
21   void *h[3];
22   struct link_map *map;
23   void (*fp) (void);
24
25   h[0] = dlopen ("unload2mod.so", RTLD_LAZY);
26   h[1] = dlopen ("unload2mod.so", RTLD_LAZY);
27   if (h[0] == NULL || h[1] == NULL)
28     error (EXIT_FAILURE, errno, "cannot load \"unload2mod.so\"");
29   h[2] = dlopen ("unload2dep.so", RTLD_LAZY);
30   if (h[2] == NULL)
31     error (EXIT_FAILURE, errno, "cannot load \"unload2dep.so\"");
32
33   puts ("\nAfter loading everything:");
34   OUT;
35
36   dlclose (h[0]);
37
38   puts ("\nAfter unloading \"unload2mod.so\" once:");
39   OUT;
40
41   dlclose (h[1]);
42
43   puts ("\nAfter unloading \"unload2mod.so\" twice:");
44   OUT;
45
46   fp = dlsym (h[2], "foo");
47   puts ("\nnow calling `foo'");
48   fflush (stdout);
49   fp ();
50   puts ("managed to call `foo'");
51   fflush (stdout);
52
53   dlclose (h[2]);
54
55   puts ("\nAfter unloading \"unload2dep.so\":");
56   OUT;
57
58   return 0;
59 }