3 # Create threads safe wrappers around X11 calls.
5 # Copyright 1998 Kristian Nielsen.
8 # FIXME: This does not do full C prototype parsing, but relies on
9 # knowledge on how the X11 include files are formatted. It will
10 # probably need to be modified for new include files. It also fails
11 # for certain prototypes (notably those with function pointer
12 # arguments or results), so these must be added manually. And it
13 # relies on a fixed location of X11 includes (/usr/X11R6/include/).
15 # This program expects to be run from Wine's main directory.
17 $X11_include_dir = "/usr/X11/include";
19 $wantfile = "$outdir/X11_calls";
20 @dolist = ("Xlib", "Xresource", "Xutil", "xpm", "XShm", "xf86dga", "xf86dga2", "xf86vmode", "shape");
22 # First read list of wanted function names.
24 open(WANT
, $wantfile) || die "open";
26 next if /^\s*\#/; # Skip comment lines.
27 next if /^\s*$/; # Skip empty lines.
28 if(/^\s*([a-zA-Z0-9_]+)\s*$/) {
31 die "syntax error in file '$wantfile', in line '$_'";
36 foreach $name (@dolist) {
41 $outfile = "/ts_$lcname";
42 open(OUTC
, ">$outdir/$outfile.c") || die "open";
43 open(OUTH
, ">include/$outfile.h") || die "open";
50 if($name eq "Xutil" || $name eq "Xresource" || $name eq "XShm") {
51 $x11_incl = "#include <X11/Xlib.h>\n";
52 # For Xutil, we need X11/Xresource.h for XUniqueContext().
53 $x11_incl .= "#include <X11/Xresource.h>\n" if $name eq "Xutil";
55 if($name eq "xf86dga") {
56 $x11_incl = "#include <X11/Xlib.h>\n";
57 $extensions_dir = "extensions/";
58 $pre_file = "#ifdef HAVE_LIBXXF86DGA\n";
59 $post_file = "#endif /* defined(HAVE_LIBXXF86DGA) */\n";
61 if($name eq "xf86dga2") {
62 $x11_incl = "#include <X11/Xlib.h>\n";
63 $extensions_dir = "extensions/";
64 $pre_file = "#ifdef HAVE_LIBXXF86DGA2\n";
65 $post_file = "#endif /* defined(HAVE_LIBXXF86DGA2) */\n";
66 $inc_name = "xf86dga";
69 $extensions_dir = "extensions/";
70 $pre_file = "#ifdef HAVE_LIBXXSHM\n";
71 $post_file = "#endif /* defined(HAVE_LIBXXSHM) */\n";
74 $pre_file = "#ifdef HAVE_LIBXXPM\n";
75 $post_file = "#endif /* defined(HAVE_LIBXXPM) */\n";
77 if($name eq "xf86vmode") {
78 $x11_incl = "#include <X11/Xlib.h>\n";
79 $extensions_dir = "extensions/";
80 $pre_file = "#include \"windef.h\"\n#ifdef HAVE_LIBXXF86VM\n#define XMD_H\n#include \"basetsd.h\"\n";
81 $post_file = "#endif /* defined(HAVE_LIBXXF86VM) */\n";
83 if($name eq "shape") {
84 $extensions_dir = "extensions/";
85 $pre_file = "#ifdef HAVE_LIBXSHAPE\n#include <X11/IntrinsicP.h>\n";
86 $post_file = "#endif /* defined(HAVE_LIBXSHAPE) */\n";
94 * Thread safe wrappers around $name calls.
95 * Always include this file instead of <X11/$name.h>.
96 * This file was generated automatically by tools/make_X11wrappers
98 * Copyright 1998 Kristian Nielsen
101 #ifndef __WINE_TS_$ucname\_H
102 #define __WINE_TS_$ucname\_H
107 $x11_incl#include <X11/$extensions_dir$inc_name.h>
113 * Thread safe wrappers around $name calls.
114 * This file was generated automatically by tools/make_X11wrappers
121 $x11_incl#include <X11/$extensions_dir$inc_name.h>
123 #include "debugtools.h"
124 #include "ts_$lcname.h"
127 DEFAULT_DEBUG_CHANNEL(x11)
130 if($name eq "xpm") { # Handle as special case.
131 output_fn
("XpmCreatePixmapFromData", "int",
132 "Display *, Drawable, char **, Pixmap *, Pixmap *, XpmAttributes *",
133 "Display *a0, Drawable a1, char **a2, Pixmap *a3, Pixmap *a4, XpmAttributes *a5",
134 "a0, a1, a2, a3, a4, a5");
135 output_fn
("XpmAttributesSize", "int", "void", "void", "");
136 } elsif($name eq "XShm") {
137 output_fn
("XShmQueryExtension", "Bool",
138 "Display *", "Display *a0", "a0");
139 output_fn
("XShmQueryVersion", "Bool",
140 "Display *, int *, int *, Bool *",
141 "Display *a0, int *a1, int *a2, Bool *a3", "a0, a1, a2, a3");
142 output_fn
("XShmPixmapFormat", "int",
143 "Display *", "Display *a0", "a0");
144 output_fn
("XShmAttach", Status
,
145 "Display *, XShmSegmentInfo *",
146 "Display *a0, XShmSegmentInfo *a1", "a0, a1");
147 output_fn
("XShmDetach", Status
,
148 "Display *, XShmSegmentInfo *",
149 "Display *a0, XShmSegmentInfo *a1", "a0, a1");
150 output_fn
("XShmPutImage", Status
,
151 "Display *, Drawable, GC, XImage *, int, int, int, int, unsigned int, unsigned int, Bool",
152 "Display *a0, Drawable a1, GC a2, XImage *a3, int a4, int a5, int a6, int a7, unsigned int a8, unsigned int a9, Bool a10", "a0, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10");
153 output_fn
("XShmGetImage", Status
,
154 "Display *, Drawable, XImage *, int, int, unsigned long",
155 "Display *a0, Drawable a1, XImage *a2, int a3, int a4, unsigned long a5",
156 "a0, a1, a2, a3, a4, a5");
157 output_fn
("XShmCreateImage", "XImage *",
158 "Display *, Visual *, unsigned int, int, char *, XShmSegmentInfo *, unsigned int, unsigned int",
159 "Display *a0, Visual *a1, unsigned int a2, int a3, char *a4, XShmSegmentInfo *a5, unsigned int a6, unsigned int a7",
160 "a0, a1, a2, a3, a4, a5, a6, a7");
161 output_fn
("XShmCreatePixmap", "Pixmap",
162 "Display *, Drawable, char *, XShmSegmentInfo *, unsigned int, unsigned int, unsigned int",
163 "Display *a0, Drawable a1, char *a2, XShmSegmentInfo *a3, unsigned int a4, unsigned int a5, unsigned int a6",
164 "a0, a1, a2, a3, a4, a5, a6");
165 } elsif($name eq "xf86dga") {
166 output_fn
("XF86DGAQueryVersion",Bool
,
167 "Display*,int*,int*",
168 "Display*a0,int*a1,int*a2",
171 output_fn
("XF86DGAQueryExtension",Bool
,
172 "Display*,int*,int*",
173 "Display*a0,int*a1,int*a2",
176 output_fn
("XF86DGAGetVideo",Status
,
177 "Display*,int,char**,int*,int*,int*",
178 "Display*a0,int a1,char**a2,int*a3,int*a4,int*a5",
181 output_fn
("XF86DGADirectVideo",Status
,
183 "Display*a0,int a1,int a2",
186 output_fn
("XF86DGAGetViewPortSize",Status
,
187 "Display*,int,int*,int*",
188 "Display*a0,int a1,int *a2,int *a3",
191 output_fn
("XF86DGASetViewPort",Status
,
192 "Display*,int,int,int",
193 "Display*a0,int a1,int a2,int a3",
196 output_fn
("XF86DGAInstallColormap",Status
,
197 "Display*,int,Colormap",
198 "Display*a0,int a1,Colormap a2",
201 output_fn
("XF86DGAQueryDirectVideo",Status
,
203 "Display*a0,int a1,int *a2",
206 output_fn
("XF86DGAViewPortChanged",Status
,
208 "Display*a0,int a1,int a2",
211 } elsif($name eq "xf86dga2") {
212 output_fn_short
("Bool", "XDGAQueryVersion", "Display*" ,"int*","int*");
213 output_fn_short
("Bool", "XDGAQueryExtension", "Display*" ,"int*","int*");
214 output_fn_short
("XDGAMode*", "XDGAQueryModes", "Display*" ,"int", "int*");
215 output_fn_short
("XDGADevice*", "XDGASetMode", "Display*" ,"int","int");
216 output_fn_short
("Bool", "XDGAOpenFramebuffer", "Display*" ,"int");
217 output_fn_short
("void", "XDGACloseFramebuffer", "Display*" ,"int");
218 output_fn_short
("void", "XDGASetViewport", "Display*" ,"int", "int", "int", "int");
219 output_fn_short
("void", "XDGAInstallColormap", "Display*" , "int", "Colormap");
220 output_fn_short
("Colormap", "XDGACreateColormap", "Display*" ,"int", "XDGADevice*", "int");
221 output_fn_short
("void", "XDGASelectInput", "Display*" ,"int", "long");
222 output_fn_short
("void", "XDGAFillRectangle", "Display*" ,"int", "int", "int", "unsigned int", "unsigned int", "unsigned long");
223 output_fn_short
("void", "XDGACopyArea", "Display*" ,"int", "int", "int", "unsigned int", "unsigned int", "int", "int");
224 output_fn_short
("void", "XDGACopyTransparentArea", "Display*" ,"int", "int", "int", "unsigned int", "unsigned int", "int", "int", "unsigned long");
225 output_fn_short
("int", "XDGAGetViewportStatus", "Display*" ,"int");
226 output_fn_short
("void", "XDGASync", "Display*" ,"int");
227 output_fn_short
("Bool", "XDGASetClientVersion", "Display*");
228 output_fn_short
("void", "XDGAChangePixmapMode", "Display*" ,"int", "int*", "int*", "int");
229 output_fn_short
("void", "XDGAKeyEventToXKeyEvent", "XDGAKeyEvent*" ,"XKeyEvent*");
230 } elsif($name eq "xf86vmode") {
231 output_fn
("XF86VidModeQueryVersion",Bool
,
232 "Display*,int*,int*",
233 "Display*a0,int*a1,int*a2",
236 output_fn
("XF86VidModeQueryExtension",Bool
,
237 "Display*,int*,int*",
238 "Display*a0,int*a1,int*a2",
241 output_fn
("XF86VidModeGetModeLine",Bool
,
242 "Display*,int,int*,XF86VidModeModeLine*",
243 "Display*a0,int a1,int*a2,XF86VidModeModeLine*a3",
246 output_fn
("XF86VidModeGetAllModeLines",Bool
,
247 "Display*,int,int*,XF86VidModeModeInfo***",
248 "Display*a0,int a1,int*a2,XF86VidModeModeInfo***a3",
251 output_fn
("XF86VidModeAddModeLine",Bool
,
252 "Display*,int,XF86VidModeModeInfo*,XF86VidModeModeInfo*",
253 "Display*a0,int a1,XF86VidModeModeInfo*a2,XF86VidModeModeInfo*a3",
256 output_fn
("XF86VidModeDeleteModeLine",Bool
,
257 "Display*,int,XF86VidModeModeInfo*",
258 "Display*a0,int a1,XF86VidModeModeInfo*a2",
261 output_fn
("XF86VidModeModModeLine",Bool
,
262 "Display*,int,XF86VidModeModeLine*",
263 "Display*a0,int a1,XF86VidModeModeLine*a2",
266 output_fn
("XF86VidModeValidateModeLine",Status
,
267 "Display*,int,XF86VidModeModeInfo*",
268 "Display*a0,int a1,XF86VidModeModeInfo*a2",
271 output_fn
("XF86VidModeSwitchMode",Bool
,
273 "Display*a0,int a1,int a2",
276 output_fn
("XF86VidModeSwitchToMode",Bool
,
277 "Display*,int,XF86VidModeModeInfo*",
278 "Display*a0,int a1,XF86VidModeModeInfo*a2",
281 output_fn
("XF86VidModeLockModeSwitch",Bool
,
283 "Display*a0,int a1,int a2",
286 output_fn
("XF86VidModeGetMonitor",Bool
,
287 "Display*,int,XF86VidModeMonitor*",
288 "Display*a0,int a1,XF86VidModeMonitor*a2",
291 output_fn
("XF86VidModeGetViewPort",Bool
,
292 "Display*,int,int*,int*",
293 "Display*a0,int a1,int*a2,int*a3",
296 output_fn
("XF86VidModeSetViewPort",Bool
,
297 "Display*,int,int,int",
298 "Display*a0,int a1,int a2,int a3",
303 "echo \"$x11_incl#include <X11/$extensions_dir$name.h>\" | " .
304 "gcc -L$X11_include_dir -DNeedFunctionPrototypes -E - | " .
305 "grep -v '^[ \t]*\$)' |"
309 if(m
'extern\s+([^()]*)\b([a-zA-Z0-9_]+)\s*\(') {
312 $result_type = "int" if $result_type =~ /^\s*$/;
316 # Give up on vararg functions and function pointer args.
317 if(m
'\.\.\.|\(\*\)') {
321 if(m
'\s*([^,]*[^, \t])\s*(,?\n)') {
322 $args[$#args+1] = $1;
323 if ($1 =~ /char\s*\[/) { # small hack for XQueryKeymap
324 $args[$#args] = "char*";
328 # Skip if vararg, function pointer arg, or not needed.
329 next unless $fn_name;
330 next unless $want{$fn_name} && $want{$fn_name} == 1;
332 # Special case for no arguments (which is specified as "void").
333 if($#args == 0 && $args[0] eq "void") {
339 for($i = 0; $i <= $#args; $i++) {
340 $comma = $i < $#args ?
", " : "";
341 $proto .= "$args[$i]$comma";
342 $formals .= "$args[$i] a$i$comma";
343 $actuals .= "a$i$comma";
345 $proto = $formals = "void" if $#args == -1;
346 output_fn
($fn_name, $result_type, $proto, $formals, $actuals);
351 if($name eq "Xlib") {
352 raw_output_fn
("XSynchronize", "int (*r)(Display *)",
353 "int (*TSXSynchronize(Display *, Bool))(Display *)",
354 "int (*TSXSynchronize(Display *a0, Bool a1))(Display *)",
356 print OUTC
"\nextern void _XInitImageFuncPtrs(XImage *);\n";
357 output_fn
("_XInitImageFuncPtrs", "void", "XImage *", "XImage *a0", "a0");
358 } elsif($name eq "Xutil") {
359 output_fn
("XDestroyImage", "int",
360 "struct _XImage *", "struct _XImage *a0", "a0");
361 output_fn
("XGetPixel", "unsigned long",
362 "struct _XImage *, int, int",
363 "struct _XImage *a0, int a1, int a2",
365 output_fn
("XPutPixel", "int",
366 "struct _XImage *, int, int, unsigned long",
367 "struct _XImage *a0, int a1, int a2, unsigned long a3",
369 output_fn
("XSubImage", "struct _XImage *",
370 "struct _XImage *, int, int, unsigned int, unsigned int",
371 "struct _XImage *a0, int a1, int a2, unsigned int a3, unsigned int a4",
372 "a0, a1, a2, a3, a4");
373 output_fn
("XAddPixel", "int",
374 "struct _XImage *, long",
375 "struct _XImage *a0, long a1", "a0, a1");
376 output_fn
("XUniqueContext", "XContext", "void", "void", "");
382 #endif /* __WINE_TS_$ucname\_H */
393 foreach $i (keys %want) {
395 print "Unresolved: $i\n";
402 # output_fn("main", "int", "int, char **", "int a0, char **a1", "a0, a1")
405 my ($fn_name, $result_type, $protos, $formals, $actuals) = @_;
407 return raw_output_fn
($fn_name,
408 $result_type =~ /^\s*void\s*$/ ?
"" : "$result_type r",
409 "$result_type TS$fn_name($protos)",
410 "$result_type TS$fn_name($formals)",
414 sub output_fn_short
{
416 # output_fn_sort("Bool", "XDGAQueryExtension", "Display *", "int *", "int *");
418 my ($result_type, $fn_name, @args) = @_;
420 my ($i, $proto, $formals, $actuals) = (0,
421 "$result_type TS$fn_name(",
422 "$result_type TS$fn_name(",
424 while ($val = shift @args) {
425 $proto = $proto . $val;
426 $formals = $formals . $val . " a$i";
427 $actuals = $actuals . " a$i";
430 $proto = $proto . ", ";
431 $formals = $formals . ", ";
432 $actuals = $actuals . ", ";
435 $proto = $proto . ")";
436 $formals = $formals . ")";
439 raw_output_fn
($fn_name,
440 $result_type =~ /^\s*void\s*$/ ?
"" : "$result_type r",
448 # output_fn("main", "int r", "int main(int, char **)", "int main(int a0, char **a1)", "a0, a1")
451 my ($fn_name, $resultdecl, $protodecl, $defdecl, $actuals) = @_;
453 return undef unless $want{$fn_name} && $want{$fn_name} == 1;
455 print OUTC
"\n$defdecl\n";
456 print OUTH
"extern $protodecl;\n";
457 # print OUTH "#define $fn_name TS$fn_name\n";
459 print OUTC
" $resultdecl;\n" if $resultdecl;
460 print OUTC
" TRACE(\"Call $fn_name\\n\");\n";
461 print OUTC
" EnterCriticalSection( &X11DRV_CritSection );\n";
463 print OUTC
"r = " if $resultdecl;
464 print OUTC
"$fn_name($actuals);\n";
465 print OUTC
" LeaveCriticalSection( &X11DRV_CritSection );\n";
466 print OUTC
" TRACE(\"Ret $fn_name\\n\");\n";
467 print OUTC
" return r;\n" if $resultdecl;