xref: /haiku/src/tests/system/runtime_loader/test_suite/dlopen_lookup_next1 (revision 4f2fd49bdc6078128b1391191e4edac647044c3d) 
1#!/bin/sh
2
3# program
4#
5# dlopen():
6# libe.so
7# liba.so
8# <- libb.so
9#    <- libd.so
10#
11# Expected: dlsym(RTLD_NEXT) finds symbol in order libe.so, liba.so, libb.so,
12# libd.so
13
14
15. test_setup
16
17
18# create libd.so
19cat > libd.c << EOI
20int a() { return 1; }
21EOI
22
23# build
24gcc -shared -o libd.so libd.c
25
26
27# create libb.so
28cat > libb.c << EOI
29#define __USE_GNU
30#include <dlfcn.h>
31int
32a()
33{
34	int (*nextA)();
35	*(void**)&nextA = dlsym(RTLD_NEXT, "a");
36	return (nextA != 0 ? nextA() : 0) + 2;
37}
38EOI
39
40# build
41gcc -shared -o libb.so libb.c -D_GNU_SOURCE ./libd.so $libdl
42
43
44# create liba.so
45cat > liba.c << EOI
46#include <dlfcn.h>
47int
48a()
49{
50	int (*nextA)();
51	*(void**)&nextA = dlsym(RTLD_NEXT, "a");
52	return (nextA != 0 ? nextA() : 0) + 4;
53}
54EOI
55
56# build
57gcc -shared -o liba.so liba.c -D_GNU_SOURCE ./libb.so $libdl
58
59
60# create libe.so
61cat > libe.c << EOI
62#include <dlfcn.h>
63int
64a()
65{
66	int (*nextA)();
67	*(void**)&nextA = dlsym(RTLD_NEXT, "a");
68	return (nextA != 0 ? nextA() : 0) + 8;
69}
70EOI
71
72# build
73gcc -shared -o libe.so libe.c -D_GNU_SOURCE $libdl
74
75
76# create program
77cat > program.c << EOI
78#include <dlfcn.h>
79#include <stdio.h>
80#include <stdlib.h>
81
82int
83a()
84{
85	int (*nextA)();
86	*(void**)&nextA = dlsym(RTLD_NEXT, "a");
87	return (nextA != 0 ? nextA() : 0) + 16;
88}
89
90int
91main()
92{
93	void* liba;
94	void* libe;
95	void* self;
96//	int (*a)();
97
98	libe = dlopen("./libe.so", RTLD_NOW | RTLD_GLOBAL);
99	if (libe == NULL) {
100		fprintf(stderr, "Error opening libe.so: %s\n", dlerror());
101		exit(117);
102	}
103
104	liba = dlopen("./liba.so", RTLD_NOW | RTLD_GLOBAL);
105	if (liba == NULL) {
106		fprintf(stderr, "Error opening liba.so: %s\n", dlerror());
107		exit(117);
108	}
109
110/*
111	a = (int (*)())dlsym(libe, "a");
112	if (a == NULL) {
113		fprintf(stderr, "Error getting symbol a: %s\n", dlerror());
114		exit(116);
115	}
116*/
117
118	return a();
119}
120EOI
121
122# build
123gcc -o program program.c -D_GNU_SOURCE $libdl -Xlinker -rpath -Xlinker .
124
125# run
126test_run_ok ./program 31
127