3 # Build the server/trace.c and server/request.h files
4 # from the contents of include/server.h.
6 # Copyright (C) 1998 Alexandre Julliard
14 "unsigned int" => "%08x",
17 "path_t" => "&dump_unicode_string",
18 "char[1]" => "\\\"%s\\\"",
19 "WCHAR[1]" => "&dump_unicode_string"
25 open(SERVER
,"include/server.h") or die "Can't open include/server.h";
27 ### Parse server.h to find request/reply structure definitions
33 if (/^struct +(\w+)_request/) { &DO_REQUEST
($1); }
36 ### Output the dumping function tables
38 push @trace_lines, "static const dump_func req_dumpers[REQ_NB_REQUESTS] = {\n";
39 foreach $req (@requests)
41 push @trace_lines, " (dump_func)dump_${req}_request,\n";
43 push @trace_lines, "};\n\n";
45 push @trace_lines, "static const dump_func reply_dumpers[REQ_NB_REQUESTS] = {\n";
46 foreach $req (@requests)
48 push @trace_lines, " (dump_func)", $replies{$req} ?
"dump_${req}_reply,\n" : "0,\n";
50 push @trace_lines, "};\n\n";
52 push @trace_lines, "static const char * const req_names[REQ_NB_REQUESTS] = {\n";
53 foreach $req (@requests)
55 push @trace_lines, " \"$req\",\n";
57 push @trace_lines, "};\n";
59 REPLACE_IN_FILE
( "server/trace.c", @trace_lines );
61 ### Replace the request list in server.h by the new values
63 my @server_lines = ();
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";
69 REPLACE_IN_FILE
( "include/server.h", @server_lines );
71 ### Output the request handlers list
73 my @request_lines = ();
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)
83 push @request_lines, " { (void(*)())req_$req, sizeof(struct ${req}_request) },\n";
85 push @request_lines, "};\n#endif /* WANT_REQUEST_HANDLERS */\n";
87 REPLACE_IN_FILE
( "server/request.h", @request_lines );
89 ### Handle a request structure definition
98 my ($dir, $type, $var);
103 /^\s*(IN|OUT)\s*(\w+\**(\s+\w+\**)*)\s+(\w+)(\[[1]\])?;/ or die "Unrecognized syntax $_";
105 $type = $2 . ($5 || "");
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; }
111 push @requests, $name;
112 &DO_DUMP_FUNC
( $name, "request", @in_struct);
113 if ($#out_struct >= 0)
116 &DO_DUMP_FUNC
( $name, "reply", @out_struct);
120 ### Generate a dumping function
126 push @trace_lines, "static void dump_${name}_$req( struct ${name}_request *req )\n{\n";
131 if (defined($formats{$type}))
133 if ($formats{$type} =~ /^&(.*)/)
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);
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";
148 else # must be some varargs format
150 push @trace_lines, " fprintf( stderr, \" $var=\" );\n";
151 push @trace_lines, " dump_varargs_${name}_${req}( req );\n";
154 push @trace_lines, "}\n\n";
157 ### Replace the contents of a file between ### make_requests ### marks
164 open(FILE
,$name) or die "Can't open $name";
168 last if /\#\#\# make_requests begin \#\#\#/;
170 push @lines, "\n", @data;
173 if (/\#\#\# make_requests end \#\#\#/) { push @lines, "\n", $_; last; }
176 open(FILE
,">$name") or die "Can't modify $name";