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