The OpenD Programming Language

1 /**
2  * D header file for GNU/Linux
3  *
4  * $(LINK2 http://sourceware.org/git/?p=glibc.git;a=blob;f=dlfcn/dlfcn.h, glibc dlfcn/dlfcn.h)
5  */
6 module core.sys.linux.dlfcn;
7 
8 version (linux):
9 extern (C):
10 nothrow:
11 @nogc:
12 
13 version (ARM)     version = ARM_Any;
14 version (AArch64) version = ARM_Any;
15 version (HPPA)    version = HPPA_Any;
16 version (MIPS32)  version = MIPS_Any;
17 version (MIPS64)  version = MIPS_Any;
18 version (PPC)     version = PPC_Any;
19 version (PPC64)   version = PPC_Any;
20 version (RISCV32) version = RISCV_Any;
21 version (RISCV64) version = RISCV_Any;
22 version (S390)    version = IBMZ_Any;
23 version (SPARC)   version = SPARC_Any;
24 version (SPARC64) version = SPARC_Any;
25 version (SystemZ) version = IBMZ_Any;
26 version (X86)     version = X86_Any;
27 version (X86_64)  version = X86_Any;
28 
29 public import core.sys.posix.dlfcn;
30 import core.sys.linux.config;
31 
32 // <bits/dlfcn.h>
33 version (X86_Any)
34 {
35     // http://sourceware.org/git/?p=glibc.git;a=blob;f=bits/dlfcn.h
36     static if (_GNU_SOURCE)
37     {
38         RT DL_CALL_FCT(RT, Args...)(RT function(Args) fctp, auto ref Args args)
39         {
40             _dl_mcount_wrapper_check(cast(void*)fctp);
41             return fctp(args);
42         }
43 
44         void _dl_mcount_wrapper_check(void* __selfpc);
45     }
46 }
47 else version (HPPA_Any)
48 {
49     // http://sourceware.org/git/?p=glibc.git;a=blob;f=ports/sysdeps/hppa/bits/dlfcn.h
50     static if (_GNU_SOURCE)
51     {
52         RT DL_CALL_FCT(RT, Args...)(RT function(Args) fctp, auto ref Args args)
53         {
54             _dl_mcount_wrapper_check(cast(void*)fctp);
55             return fctp(args);
56         }
57 
58         void _dl_mcount_wrapper_check(void* __selfpc);
59     }
60 }
61 else version (MIPS_Any)
62 {
63     // http://sourceware.org/git/?p=glibc.git;a=blob;f=ports/sysdeps/mips/bits/dlfcn.h
64     static if (_GNU_SOURCE)
65     {
66         RT DL_CALL_FCT(RT, Args...)(RT function(Args) fctp, auto ref Args args)
67         {
68             _dl_mcount_wrapper_check(cast(void*)fctp);
69             return fctp(args);
70         }
71 
72         void _dl_mcount_wrapper_check(void* __selfpc);
73     }
74 }
75 else version (PPC_Any)
76 {
77     // http://sourceware.org/git/?p=glibc.git;a=blob;f=bits/dlfcn.h
78     static if (_GNU_SOURCE)
79     {
80         RT DL_CALL_FCT(RT, Args...)(RT function(Args) fctp, auto ref Args args)
81         {
82             _dl_mcount_wrapper_check(cast(void*)fctp);
83             return fctp(args);
84         }
85 
86         void _dl_mcount_wrapper_check(void* __selfpc);
87     }
88 }
89 else version (ARM_Any)
90 {
91     // http://sourceware.org/git/?p=glibc.git;a=blob;f=bits/dlfcn.h
92     static if (_GNU_SOURCE)
93     {
94         RT DL_CALL_FCT(RT, Args...)(RT function(Args) fctp, auto ref Args args)
95         {
96             _dl_mcount_wrapper_check(cast(void*)fctp);
97             return fctp(args);
98         }
99 
100         void _dl_mcount_wrapper_check(void* __selfpc);
101     }
102 }
103 else version (RISCV_Any)
104 {
105     // http://sourceware.org/git/?p=glibc.git;a=blob;f=bits/dlfcn.h
106     static if (_GNU_SOURCE)
107     {
108         RT DL_CALL_FCT(RT, Args...)(RT function(Args) fctp, auto ref Args args)
109         {
110             _dl_mcount_wrapper_check(cast(void*)fctp);
111             return fctp(args);
112         }
113 
114         void _dl_mcount_wrapper_check(void* __selfpc);
115     }
116 }
117 else version (SPARC_Any)
118 {
119     // http://sourceware.org/git/?p=glibc.git;a=blob;f=bits/dlfcn.h
120     static if (_GNU_SOURCE)
121     {
122         RT DL_CALL_FCT(RT, Args...)(RT function(Args) fctp, auto ref Args args)
123         {
124             _dl_mcount_wrapper_check(cast(void*)fctp);
125             return fctp(args);
126         }
127 
128         void _dl_mcount_wrapper_check(void* __selfpc);
129     }
130 }
131 else version (IBMZ_Any)
132 {
133     // http://sourceware.org/git/?p=glibc.git;a=blob;f=bits/dlfcn.h
134     static if (_GNU_SOURCE)
135     {
136         RT DL_CALL_FCT(RT, Args...)(RT function(Args) fctp, auto ref Args args)
137         {
138             _dl_mcount_wrapper_check(cast(void*)fctp);
139             return fctp(args);
140         }
141 
142         void _dl_mcount_wrapper_check(void* __selfpc);
143     }
144 }
145 else version (LoongArch64)
146 {
147     // http://sourceware.org/git/?p=glibc.git;a=blob;f=bits/dlfcn.h
148     static if (_GNU_SOURCE)
149     {
150         RT DL_CALL_FCT(RT, Args...)(RT function(Args) fctp, auto ref Args args)
151         {
152             _dl_mcount_wrapper_check(cast(void*)fctp);
153             return fctp(args);
154         }
155 
156         void _dl_mcount_wrapper_check(void* __selfpc);
157     }
158 }
159 else
160     static assert(0, "unimplemented");
161 
162 // <bits/dlfcn.h>
163 
164 static if (_GNU_SOURCE)
165 {
166     enum RTLD_NEXT = cast(void *)-1L;
167     enum RTLD_DEFAULT = cast(void *)0;
168     alias c_long Lmid_t;
169     enum LM_ID_BASE = 0;
170     enum LM_ID_NEWLM = -1;
171 }
172 
173 // void* dlopen(const scope char* __file, int __mode); // POSIX
174 // int dlclose(void* __handle); // POSIX
175 // void* dlsym(void* __handle, const scope char* __name); // POSIX
176 
177 static if (_GNU_SOURCE)
178 {
179     void* dlmopen(Lmid_t __nsid, const scope char* __file, int __mode);
180     void* dlvsym(void* __handle, const scope char* __name, const scope char* __version);
181 }
182 
183 // char* dlerror(); // POSIX
184 
185 static if (_GNU_SOURCE)
186 {
187     int dladdr1(void* __address, Dl_info* __info, void** __extra_info, int __flags);
188 
189     enum
190     {
191         RTLD_DL_SYMENT = 1,
192         RTLD_DL_LINKMAP = 2,
193     }
194 
195     int dlinfo(void* __handle, int __request, void* __arg);
196 
197     enum
198     {
199         RTLD_DI_LMID = 1,
200         RTLD_DI_LINKMAP = 2,
201         RTLD_DI_CONFIGADDR = 3,
202         RTLD_DI_SERINFO = 4,
203         RTLD_DI_SERINFOSIZE = 5,
204         RTLD_DI_ORIGIN = 6,
205         RTLD_DI_PROFILENAME = 7,
206         RTLD_DI_PROFILEOUT = 8,
207         RTLD_DI_TLS_MODID = 9,
208         RTLD_DI_TLS_DATA = 10,
209         RTLD_DI_MAX = 10,
210     }
211 
212     struct Dl_serpath
213     {
214         char* dls_name;
215         uint dls_flags;
216     }
217 
218     struct Dl_serinfo
219     {
220         size_t dls_size;
221         uint dls_cnt;
222         Dl_serpath[1] dls_serpath;
223     }
224 }