From 071ea11e85eb9d529cc5eb3d35f6247466a21b99 Mon Sep 17 00:00:00 2001 From: Stan Shebs Date: Fri, 16 Apr 1999 01:34:07 +0000 Subject: Initial creation of sourceware repository --- gdb/reply_mig_hack.awk | 123 ------------------------------------------------- 1 file changed, 123 deletions(-) delete mode 100644 gdb/reply_mig_hack.awk (limited to 'gdb/reply_mig_hack.awk') diff --git a/gdb/reply_mig_hack.awk b/gdb/reply_mig_hack.awk deleted file mode 100644 index 310a40c..0000000 --- a/gdb/reply_mig_hack.awk +++ /dev/null @@ -1,123 +0,0 @@ -# Reply server mig-output massager -# -# Copyright (C) 1995 Free Software Foundation, Inc. -# -# Written by Miles Bader -# -# This program is free software; you can redistribute it and/or -# modify it under the terms of the GNU General Public License as -# published by the Free Software Foundation; either version 2, or (at -# your option) any later version. -# -# This program is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. -# -# This awk script hacks the output of mig-generated reply server code -# so that it allows replies with just the error-code in them (as this is -# how mig returns errors). -# -# It is highly, highly, dependent on the exact format of mig output. Ick. -# - -BEGIN { parse_phase = 0; } - -/^}/ { parse_phase = 0; } - -parse_phase == 0 && /^mig_internal void _X[a-zA-Z0-9_]*_reply/ { - # The start of a mig server routine. Reset everything. Note that we only - # mess with rpcs that have the suffix `_reply'. - num_args = 0; - num_checks = 0; - parse_phase = 1; - print; next; -} - -parse_phase == 1 && /^[\t ]*typedef struct/ { - # The first structure in the server routine should describe the arguments - parse_phase = 2; - print; next; -} - -parse_phase == 2 { - # The message header field in the args structure, which skip. - parse_phase = 3; - print; next; -} - -parse_phase == 3 && /}/ { - # The args structure is over. - if (num_args > 1) - parse_phase = 5; - else - # There's no extra args that could screw up the normal mechanism for - # error returns, so we don't have to insert any new code. - parse_phase = 0; - print; next; -} - -parse_phase == 3 { - # The type field for an argument. - arg_type_code_name[num_args] = $2; - sub (/;$/, "", arg_type_code_name[num_args]) # Get rid of the semi-colon - parse_phase = 4; - print; next; -} - -parse_phase == 4 { - # The value field for an argument. - arg_name[num_args] = $2; - sub (/;$/, "", arg_name[num_args]) # Get rid of the semi-colon - arg_type[num_args] = $1; - num_args++; - parse_phase = 3; - print; next; -} - -parse_phase == 5 && /^[ \t]*static const mach_msg_type_t/ { - # The type check structure for an argument. - arg_check_name[num_checks] = $4; - num_checks++; - print; next; -} - -parse_phase == 5 && /^[ \t]*mig_external kern_return_t/ { - # The declaration of the user server function for this rpc. - user_function_name = $3; - print; next; -} - -parse_phase == 5 && /^#if[ \t]TypeCheck/ { - # The first args type checking statement; we need to insert our chunk of - # code that bypasses all the type checks if this is an error return, after - # which we're done until we get to the next function. Handily, the size - # of mig's Reply structure is also the size of the alternate Request - # structure that we want to check for. - print "\tif (In0P->Head.msgh_size == sizeof (Reply)"; - print "\t && ! (In0P->Head.msgh_bits & MACH_MSGH_BITS_COMPLEX)"; - print "\t && *(int *)&In0P->" arg_type_code_name[0] " == *(int *)&" arg_check_name[0]; - print "\t && In0P->" arg_name[0] " != 0)"; - print "\t /* Error return, only the error code argument is passed. */"; - print "\t {"; - # Force the function into a type that only takes the first two args, via - # the temp variable SFUN (is there another way to correctly do this cast?). - # This is possibly bogus, but easier than supplying bogus values for all - # the other args (we can't just pass 0 for them, as they might not be scalar). - printf ("\t kern_return_t (*sfun)(mach_port_t"); - for (i = 0; i < num_args; i++) - printf (", %s", arg_type[i]); - printf (") = %s;\n", user_function_name); - print "\t OutP->RetCode = (*(kern_return_t (*)(mach_port_t, kern_return_t))sfun) (In0P->Head.msgh_request_port, In0P->" arg_name[0] ");"; - print "\t return;"; - print "\t }"; - print ""; - parse_phase = 0; - print; next; -} - -{ print; } -- cgit v1.1