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