tools/make_X11wrappers

   1 #!/usr/bin/perl -w
   2
   3 # Create threads safe wrappers around X11 calls.
   4 #
   5 # Copyright 1998 Kristian Nielsen.
   6 #
   7
   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/).
  14 #
  15 # This program expects to be run from Wine's main directory.
  16
  17 $X11_include_dir = "/usr/X11/include";
  18 $outdir = "tsx11";
  19 $wantfile = "$outdir/X11_calls";
  20 @dolist = ("Xlib", "Xresource", "Xutil", "xpm", "XShm", "xf86dga", "xf86dga2", "xf86vmode", "shape");
  21
  22 # First read list of wanted function names.
  23
  24 open(WANT, $wantfile) || die "open";
  25 while(<WANT>) {
  26     next if /^\s*\#/;           # Skip comment lines.
  27     next if /^\s*$/;            # Skip empty lines.
  28     if(/^\s*([a-zA-Z0-9_]+)\s*$/) {
  29         $want{$1} = 1;
  30     } else {
  31         die "syntax error in file '$wantfile', in line '$_'";
  32     }
  33 }
  34 close(WANT);
  35
  36 foreach $name (@dolist) {
  37
  38     $ucname = uc $name;
  39     $lcname = lc $name;
  40
  41     $outfile = "/ts_$lcname";
  42     open(OUTC, ">$outdir/$outfile.c") || die "open";
  43     open(OUTH, ">include/$outfile.h") || die "open";
  44
  45     $x11_incl = "";
  46     $extensions_dir = "";
  47     $pre_file = "";
  48     $post_file = "";
  49     $inc_name = $name;
  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";
  54     }
  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";
  60     }
  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";
  67     }
  68     if($name eq "XShm") {
  69         $extensions_dir = "extensions/";
  70         $pre_file = "#ifdef HAVE_LIBXXSHM\n";
  71         $post_file = "#endif /* defined(HAVE_LIBXXSHM) */\n";
  72     }
  73     if($name eq "xpm") {
  74         $pre_file = "#ifdef HAVE_LIBXXPM\n";
  75         $post_file = "#endif /* defined(HAVE_LIBXXPM) */\n";
  76     }
  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";
  82     }
  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";
  87         $inc_name = "shape";
  88     }
  89
  90
  91
  92     print OUTH <<END;
  93 /*
  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
  97  *
  98  * Copyright 1998 Kristian Nielsen
  99  */
 100
 101 #ifndef __WINE_TS_$ucname\_H
 102 #define __WINE_TS_$ucname\_H
 103
 104 #include "config.h"
 105
 106 $pre_file
 107 $x11_incl#include <X11/$extensions_dir$inc_name.h>
 108
 109 END
 110
 111     print OUTC <<END;
 112 /*
 113  * Thread safe wrappers around $name calls.
 114  * This file was generated automatically by tools/make_X11wrappers
 115  * DO NOT EDIT!
 116  */
 117
 118 #include "config.h"
 119
 120 $pre_file
 121 $x11_incl#include <X11/$extensions_dir$inc_name.h>
 122
 123 #include "debugtools.h"
 124 #include "ts_$lcname.h"
 125 #include "x11drv.h"
 126
 127 DEFAULT_DEBUG_CHANNEL(x11)
 128 END
 129
 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",
 169                 "a0,a1,a2"
 170         );
 171         output_fn("XF86DGAQueryExtension",Bool,
 172                 "Display*,int*,int*",
 173                 "Display*a0,int*a1,int*a2",
 174                 "a0,a1,a2"
 175         );
 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",
 179                 "a0,a1,a2,a3,a4,a5"
 180         );
 181         output_fn("XF86DGADirectVideo",Status,
 182                 "Display*,int,int",
 183                 "Display*a0,int a1,int a2",
 184                 "a0,a1,a2"
 185         );
 186         output_fn("XF86DGAGetViewPortSize",Status,
 187                 "Display*,int,int*,int*",
 188                 "Display*a0,int a1,int *a2,int *a3",
 189                 "a0,a1,a2,a3"
 190         );
 191         output_fn("XF86DGASetViewPort",Status,
 192                 "Display*,int,int,int",
 193                 "Display*a0,int a1,int a2,int a3",
 194                 "a0,a1,a2,a3"
 195         );
 196         output_fn("XF86DGAInstallColormap",Status,
 197                 "Display*,int,Colormap",
 198                 "Display*a0,int a1,Colormap a2",
 199                 "a0,a1,a2"
 200         );
 201         output_fn("XF86DGAQueryDirectVideo",Status,
 202                 "Display*,int,int*",
 203                 "Display*a0,int a1,int *a2",
 204                 "a0,a1,a2"
 205         );
 206         output_fn("XF86DGAViewPortChanged",Status,
 207                 "Display*,int,int",
 208                 "Display*a0,int a1,int a2",
 209                 "a0,a1,a2"
 210         );
 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",
 234                 "a0,a1,a2"
 235         );
 236         output_fn("XF86VidModeQueryExtension",Bool,
 237                 "Display*,int*,int*",
 238                 "Display*a0,int*a1,int*a2",
 239                 "a0,a2,a2"
 240         );
 241         output_fn("XF86VidModeGetModeLine",Bool,
 242                 "Display*,int,int*,XF86VidModeModeLine*",
 243                 "Display*a0,int a1,int*a2,XF86VidModeModeLine*a3",
 244                 "a0,a1,a2,a3"
 245         );
 246         output_fn("XF86VidModeGetAllModeLines",Bool,
 247                 "Display*,int,int*,XF86VidModeModeInfo***",
 248                 "Display*a0,int a1,int*a2,XF86VidModeModeInfo***a3",
 249                 "a0,a1,a2,a3"
 250         );
 251         output_fn("XF86VidModeAddModeLine",Bool,
 252                 "Display*,int,XF86VidModeModeInfo*,XF86VidModeModeInfo*",
 253                 "Display*a0,int a1,XF86VidModeModeInfo*a2,XF86VidModeModeInfo*a3",
 254                 "a0,a1,a2,a3"
 255         );
 256         output_fn("XF86VidModeDeleteModeLine",Bool,
 257                 "Display*,int,XF86VidModeModeInfo*",
 258                 "Display*a0,int a1,XF86VidModeModeInfo*a2",
 259                 "a0,a1,a2"
 260         );
 261         output_fn("XF86VidModeModModeLine",Bool,
 262                 "Display*,int,XF86VidModeModeLine*",
 263                 "Display*a0,int a1,XF86VidModeModeLine*a2",
 264                 "a0,a1,a2"
 265         );
 266         output_fn("XF86VidModeValidateModeLine",Status,
 267                 "Display*,int,XF86VidModeModeInfo*",
 268                 "Display*a0,int a1,XF86VidModeModeInfo*a2",
 269                 "a0,a1,a2"
 270         );
 271         output_fn("XF86VidModeSwitchMode",Bool,
 272                 "Display*,int,int",
 273                 "Display*a0,int a1,int a2",
 274                 "a0,a1,a2"
 275         );
 276         output_fn("XF86VidModeSwitchToMode",Bool,
 277                 "Display*,int,XF86VidModeModeInfo*",
 278                 "Display*a0,int a1,XF86VidModeModeInfo*a2",
 279                 "a0,a1,a2"
 280         );
 281         output_fn("XF86VidModeLockModeSwitch",Bool,
 282                 "Display*,int,int",
 283                 "Display*a0,int a1,int a2",
 284                 "a0,a1,a2"
 285         );
 286         output_fn("XF86VidModeGetMonitor",Bool,
 287                 "Display*,int,XF86VidModeMonitor*",
 288                 "Display*a0,int a1,XF86VidModeMonitor*a2",
 289                 "a0,a1,a2"
 290         );
 291         output_fn("XF86VidModeGetViewPort",Bool,
 292                 "Display*,int,int*,int*",
 293                 "Display*a0,int a1,int*a2,int*a3",
 294                 "a0,a1,a2,a3"
 295         );
 296         output_fn("XF86VidModeSetViewPort",Bool,
 297                 "Display*,int,int,int",
 298                 "Display*a0,int a1,int a2,int a3",
 299                 "a0,a1,a2,a3"
 300         );
 301     } else {
 302         open(IN,
 303              "echo \"$x11_incl#include <X11/$extensions_dir$name.h>\" | " .
 304              "gcc -L$X11_include_dir -DNeedFunctionPrototypes -E - | " .
 305              "grep -v '^[ \t]*\$)' |"
 306              ) || die "open";
 307
 308       PROTO: while(<IN>) {
 309           if(m'extern\s+([^()]*)\b([a-zA-Z0-9_]+)\s*\(') {
 310               $result_type = $1;
 311               $fn_name = $2;
 312               $result_type = "int" if $result_type =~ /^\s*$/;
 313               @args = ();
 314               while(<IN>) {
 315                   last if m'\)\s*;';
 316                   # Give up on vararg functions and function pointer args.
 317                   if(m'\.\.\.|\(\*\)') {
 318                       undef $fn_name;
 319                       last;
 320                   }
 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*";
 325                       }
 326                   }
 327               }
 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;
 331
 332               # Special case for no arguments (which is specified as "void").
 333               if($#args == 0 && $args[0] eq "void") {
 334                   @args = ();
 335               }
 336               $proto = "";
 337               $formals = "";
 338               $actuals = "";
 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";
 344               }
 345               $proto = $formals = "void" if $#args == -1;
 346               output_fn($fn_name, $result_type, $proto, $formals, $actuals);
 347           }
 348       }
 349     }
 350
 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 *)",
 355                   "a0, a1");
 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",
 364                   "a0, a1, a2");
 365         output_fn("XPutPixel", "int",
 366                   "struct _XImage *, int, int, unsigned long",
 367                   "struct _XImage *a0, int a1, int a2, unsigned long a3",
 368                   "a0, a1, a2, 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", "");
 377     }
 378
 379     print OUTH <<END;
 380
 381 $post_file
 382 #endif /* __WINE_TS_$ucname\_H */
 383 END
 384     print OUTC <<END;
 385
 386 $post_file
 387 END
 388
 389
 390
 391 }
 392
 393 foreach $i (keys %want) {
 394     if($want{$i} == 1) {
 395         print "Unresolved: $i\n";
 396     }
 397 }
 398
 399
 400 sub output_fn {
 401     # Example call:
 402     # output_fn("main", "int", "int, char **", "int a0, char **a1", "a0, a1")
 403     #
 404
 405     my ($fn_name, $result_type, $protos, $formals, $actuals) = @_;
 406
 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)",
 411                          $actuals);
 412 }
 413
 414 sub output_fn_short {
 415     # Example call:
 416     # output_fn_sort("Bool", "XDGAQueryExtension", "Display *", "int *", "int *");
 417     #
 418     my ($result_type, $fn_name, @args) = @_;
 419
 420     my ($i, $proto, $formals, $actuals) = (0,
 421                                            "$result_type TS$fn_name(",
 422                                            "$result_type TS$fn_name(",
 423                                            "");
 424     while ($val = shift @args) {
 425         $proto = $proto . $val;
 426         $formals = $formals . $val . " a$i";
 427         $actuals = $actuals . " a$i";
 428         $i++;
 429         if (@args) {
 430             $proto = $proto . ", ";
 431             $formals = $formals . ", ";
 432             $actuals = $actuals . ", ";
 433         }
 434     }
 435     $proto = $proto . ")";
 436     $formals = $formals . ")";
 437
 438
 439     raw_output_fn($fn_name,
 440                   $result_type =~ /^\s*void\s*$/ ? "" : "$result_type r",
 441                   $proto,
 442                   $formals,
 443                   $actuals);
 444 }
 445
 446 sub raw_output_fn {
 447     # Example call:
 448     # output_fn("main", "int r", "int main(int, char **)", "int main(int a0, char **a1)", "a0, a1")
 449     #
 450
 451     my ($fn_name, $resultdecl, $protodecl, $defdecl, $actuals) = @_;
 452
 453     return undef unless $want{$fn_name} && $want{$fn_name} == 1;
 454
 455     print OUTC "\n$defdecl\n";
 456     print OUTH "extern $protodecl;\n";
 457 #    print OUTH "#define $fn_name TS$fn_name\n";
 458     print OUTC "{\n";
 459     print OUTC "  $resultdecl;\n" if $resultdecl;
 460     print OUTC "  TRACE(\"Call $fn_name\\n\");\n";
 461     print OUTC "  EnterCriticalSection( &X11DRV_CritSection );\n";
 462     print OUTC "  ";
 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;
 468     print OUTC "}\n";
 469     $want{$fn_name} = 2;
 470     return 1;
 471 }