New file.
[kopensolaris-gnu/glibc.git] / hurd / intr-rpc.awk
1 # Icky intimate knowledge of MiG output.
2
3 BEGIN \
4   {
5     nprotolines=0; proto=0;
6     args=""; echo=1; isintr=0;
7     intrcall = "__hurd_intr_rpc_" call;
8     print "#include <hurd/signal.h>";
9   }
10
11 $NF == intrcall { isintr=1; }
12
13 NF == 1 && $1 == ")" { proto=0; }
14 proto \
15   {
16     protolines[nprotolines++] = $0;
17     arg = $NF;
18     if (substr(arg, 1, 1) == "*")
19       arg = substr(arg, 2, length(arg)-1);
20     args = args arg;
21   }
22 NF == 1 && $1 == "(" { proto=1; }
23
24 NF == 3 && $1 == "InP->Head.msgh_request_port" \
25   { portarg = substr($3, 1, length($3)-1); }
26
27 { print $0; }
28
29 END \
30   {
31     if (isintr)
32       {
33         print "\n\n/* User-callable interrupt-handling stub.  */";
34         print "kern_return_t __" call;
35         print "(";
36         for (i = 0; i < nprotolines; ++i)
37           print protolines[i];
38         print ")";
39         print "{";
40         print "  return HURD_EINTR_RPC (" portarg ", " \
41           intrcall "(" args "));";
42         print "}";
43       }
44     print "weak_alias (__" call ", " call ")"
45   }