tools/make_requests

   1 #! /usr/bin/perl -w
   2 #
   3 # Build the server/trace.c and server/request.h files
   4 # from the contents of include/server.h.
   5 #
   6 # Copyright (C) 1998 Alexandre Julliard
   7 #
   8
   9 %formats =
  10 (
  11     "int"           => "%d",
  12     "long"          => "%ld",
  13     "char"          => "%c",
  14     "unsigned int"  => "%08x",
  15     "void*"         => "%p",
  16     "time_t"        => "%ld",
  17     "path_t"        => "&dump_path_t",
  18     "debug_event_t" => "&dump_debug_event_t",
  19     "CONTEXT"       => "&dump_context",
  20     "char[1]"       => "\\\"%s\\\"",
  21     "WCHAR[1]"      => "&dump_unicode_string"
  22 );
  23
  24 my @requests = ();
  25 my %replies = ();
  26
  27 open(SERVER,"include/server.h") or die "Can't open include/server.h";
  28
  29 ### Parse server.h to find request/reply structure definitions
  30
  31 my @trace_lines = ();
  32
  33 while (<SERVER>)
  34 {
  35     if (/^struct +(\w+)_request/) { &DO_REQUEST($1); }
  36 }
  37
  38 ### Output the dumping function tables
  39
  40 push @trace_lines, "static const dump_func req_dumpers[REQ_NB_REQUESTS] = {\n";
  41 foreach $req (@requests)
  42 {
  43     push @trace_lines, "    (dump_func)dump_${req}_request,\n";
  44 }
  45 push @trace_lines, "};\n\n";
  46
  47 push @trace_lines, "static const dump_func reply_dumpers[REQ_NB_REQUESTS] = {\n";
  48 foreach $req (@requests)
  49 {
  50     push @trace_lines, "    (dump_func)", $replies{$req} ? "dump_${req}_reply,\n" : "0,\n";
  51 }
  52 push @trace_lines, "};\n\n";
  53
  54 push @trace_lines, "static const char * const req_names[REQ_NB_REQUESTS] = {\n";
  55 foreach $req (@requests)
  56 {
  57     push @trace_lines, "    \"$req\",\n";
  58 }
  59 push @trace_lines, "};\n";
  60
  61 REPLACE_IN_FILE( "server/trace.c", @trace_lines );
  62
  63 ### Replace the request list in server.h by the new values
  64
  65 my @server_lines = ();
  66
  67 push @server_lines, "enum request\n{\n";
  68 foreach $req (@requests) { push @server_lines, "    REQ_\U$req,\n"; }
  69 push @server_lines, "    REQ_NB_REQUESTS\n};\n";
  70
  71 REPLACE_IN_FILE( "include/server.h", @server_lines );
  72
  73 ### Output the request handlers list
  74
  75 my @request_lines = ();
  76
  77 foreach $req (@requests) { push @request_lines, "DECL_HANDLER($req);\n"; }
  78 push @request_lines, "\n#ifdef WANT_REQUEST_HANDLERS\n\n";
  79 push @request_lines, "static const struct handler {\n";
  80 push @request_lines, "    void       (*handler)( void *req, int fd );\n";
  81 push @request_lines, "    unsigned int min_size;\n";
  82 push @request_lines, "} req_handlers[REQ_NB_REQUESTS] = {\n";
  83 foreach $req (@requests)
  84 {
  85     push @request_lines, "    { (void(*)())req_$req, sizeof(struct ${req}_request) },\n";
  86 }
  87 push @request_lines, "};\n#endif  /* WANT_REQUEST_HANDLERS */\n";
  88
  89 REPLACE_IN_FILE( "server/request.h", @request_lines );
  90
  91 ### Handle a request structure definition
  92
  93 sub DO_REQUEST
  94 {
  95     my $name = shift;
  96     my @in_struct = ();
  97     my @out_struct = ();
  98     while (<SERVER>)
  99     {
 100         my ($dir, $type, $var);
 101         last if /^};$/;
 102         next if /^{$/;
 103         s!/\*.*\*/!!g;
 104         next if /^\s*$/;
 105         /^\s*(IN|OUT)\s*(\w+\**(\s+\w+\**)*)\s+(\w+)(\[[1]\])?;/ or die "Unrecognized syntax $_";
 106         $dir = $1;
 107         $type = $2 . ($5 || "");
 108         $var = $4;
 109         die "Unrecognized type $type" unless (defined($formats{$type}) || $5);
 110         if ($dir =~ /IN/) { push @in_struct, $type, $var; }
 111         if ($dir =~ /OUT/) { push @out_struct, $type, $var; }
 112     }
 113     push @requests, $name;
 114     &DO_DUMP_FUNC( $name, "request", @in_struct);
 115     if ($#out_struct >= 0)
 116     {
 117         $replies{$name} = 1;
 118         &DO_DUMP_FUNC( $name, "reply", @out_struct);
 119     }
 120 }
 121
 122 ### Generate a dumping function
 123
 124 sub DO_DUMP_FUNC
 125 {
 126     my $name = shift;
 127     my $req = shift;
 128     push @trace_lines, "static void dump_${name}_$req( const struct ${name}_request *req )\n{\n";
 129     while ($#_ >= 0)
 130     {
 131         my $type = shift;
 132         my $var = shift;
 133         if (defined($formats{$type}))
 134         {
 135             if ($formats{$type} =~ /^&(.*)/)
 136             {
 137                 my $func = $1;
 138                 push @trace_lines, "    fprintf( stderr, \" $var=\" );\n";
 139                 if ($type =~ /[1]/) { push @trace_lines, "    $func( req->$var );\n"; }
 140                 else { push @trace_lines, "    $func( &req->$var );\n"; }
 141                 push @trace_lines, "    fprintf( stderr, \",\" );\n" if ($#_ > 0);
 142             }
 143             else
 144             {
 145                 push @trace_lines, "    fprintf( stderr, \" $var=$formats{$type}";
 146                 push @trace_lines, "," if ($#_ > 0);
 147                 push @trace_lines, "\", ";
 148                 push @trace_lines, "req->$var );\n";
 149             }
 150         }
 151         else  # must be some varargs format
 152         {
 153             push @trace_lines, "    fprintf( stderr, \" $var=\" );\n";
 154             push @trace_lines, "    dump_varargs_${name}_${req}( req );\n";
 155         }
 156     }
 157     push @trace_lines, "}\n\n";
 158 }
 159
 160 ### Replace the contents of a file between ### make_requests ### marks
 161
 162 sub REPLACE_IN_FILE
 163 {
 164     my $name = shift;
 165     my @data = @_;
 166     my @lines = ();
 167     open(FILE,$name) or die "Can't open $name";
 168     while (<FILE>)
 169     {
 170         push @lines, $_;
 171         last if /\#\#\# make_requests begin \#\#\#/;
 172     }
 173     push @lines, "\n", @data;
 174     while (<FILE>)
 175     {
 176         if (/\#\#\# make_requests end \#\#\#/) { push @lines, "\n", $_; last; }
 177     }
 178     push @lines, <FILE>;
 179     open(FILE,">$name") or die "Can't modify $name";
 180     print FILE @lines;
 181     close(FILE);
 182 }