diff options
Diffstat (limited to 'bootstrap_cmds/migcom.tproj/mig.c')
| -rw-r--r-- | bootstrap_cmds/migcom.tproj/mig.c | 405 |
1 files changed, 405 insertions, 0 deletions
diff --git a/bootstrap_cmds/migcom.tproj/mig.c b/bootstrap_cmds/migcom.tproj/mig.c new file mode 100644 index 0000000..9bdd304 --- /dev/null +++ b/bootstrap_cmds/migcom.tproj/mig.c @@ -0,0 +1,405 @@ +/* + * Copyright (c) 1999-2018 Apple Inc. All rights reserved. + * + * @APPLE_LICENSE_HEADER_START@ + * + * This file contains Original Code and/or Modifications of Original Code + * as defined in and that are subject to the Apple Public Source License + * Version 2.0 (the 'License'). You may not use this file except in + * compliance with the License. Please obtain a copy of the License at + * http://www.opensource.apple.com/apsl/ and read it before using this + * file. + * + * The Original Code and all software distributed under the License are + * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER + * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES, + * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY, + * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT. + * Please see the License for the specific language governing rights and + * limitations under the License. + * + * @APPLE_LICENSE_HEADER_END@ + */ +/* + * Mach Operating System + * Copyright (c) 1991,1990 Carnegie Mellon University + * All Rights Reserved. + * + * Permission to use, copy, modify and distribute this software and its + * documentation is hereby granted, provided that both the copyright + * notice and this permission notice appear in all copies of the + * software, derivative works or modified versions, and any portions + * thereof, and that both notices appear in supporting documentation. + * + * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS + * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR + * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE. + * + * Carnegie Mellon requests users of this software to return to + * + * Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU + * School of Computer Science + * Carnegie Mellon University + * Pittsburgh PA 15213-3890 + * + * any improvements or extensions that they make and grant Carnegie the + * rights to redistribute these changes. + */ + +/* + * Switches are; + * -[v,Q] verbose or not quiet: prints out type + * and routine information as mig runs. + * -[V,q] not verbose or quiet : don't print + * information during compilation + * (this is the default) + * -[r,R] do or don't use rpc calls instead of + * send/receive pairs. Default is -r. + * -[s,S] generate symbol table or not: generate a + * table of rpc-name, number, routine triplets + * as an external data structure -- main use is + * for protection system's specification of rights + * and for protection dispatch code. Default is -s. + * -[l,L] -L generate code that insert code for logging + * the most important events that happen at the + * stub level (message conception, target routine + * calls). Default is -l. + * -[k,K] -K enforces MIG to generate K&R C language, with the + * addition of ANSI C syntax under #ifdef __STDC__. + * Default is -k. + * -[n,N] -n enforces NDR checking and conversion logic generation. + * Default is -N (no checking). + * -i <prefix> + * Put each user routine in its own file. The + * file is named <prefix><routine-name>.c. + * -user <name> + * Name the user-side file <name> + * -server <name> + * Name the server-side file <name> + * -header <name> + * Name the user-side header file <name> + * -iheader <name> + * Name the user-side internal header file <name> + * -sheader <name> + * Name the server-side header file <name> + * -dheader <name> + * Name the defines (msgh_ids) header file <name> + * + * DESIGN: + * Mig uses a lexxer module created by lex from lexxer.l and + * a parser module created by yacc from parser.y to parse an + * interface definitions module for a mach server. + * The parser module calls routines in statement.c + * and routines.c to build a list of statement structures. + * The most interesting statements are the routine definitions + * which contain information about the name, type, characteristics + * of the routine, an argument list containing information for + * each argument type, and a list of special arguments. The + * argument type structures are build by routines in type.c + * Once parsing is completed, the three code generation modules: + * header.c user.c and server.c are called sequentially. These + * do some code generation directly and also call the routines + * in utils.c for common (parameterized) code generation. + * + */ + +#include <stdlib.h> +#include <stdio.h> +#include <time.h> +#include "error.h" +#include "lexxer.h" +#include "global.h" +#include "write.h" + +extern int yyparse(void); +static FILE *myfopen(const char *name, const char *mode); + +static void +parseArgs(int argc,char *argv[]) +{ + if (argc == 2 && streql(argv[1], "-version")) { + PrintVersion = TRUE; + return; + } + + while (--argc > 0) + if ((++argv)[0][0] == '-') { + switch (argv[0][1]) { + + case 'q': + BeQuiet = TRUE; + break; + + case 'Q': + BeQuiet = FALSE; + break; + + case 'v': + BeVerbose = TRUE; + break; + + case 'V': + BeVerbose = FALSE; + break; + + case 'r': + UseMsgRPC = TRUE; + break; + + case 'R': + UseMsgRPC = FALSE; + break; + + case 'l': + UseEventLogger = FALSE; + break; + + case 'L': + UseEventLogger = TRUE; + break; + + case 'k': + BeAnsiC = TRUE; + break; + + case 'K': + BeAnsiC = FALSE; + break; + + case 'n': + if (streql(argv[0], "-novouchers")) { + IsVoucherCodeAllowed = FALSE; + } else { + CheckNDR = TRUE; + } + break; + + case 'N': + CheckNDR = FALSE; + break; + + case 's': + if (streql(argv[0], "-server")) { + --argc; ++argv; + if (argc == 0) + fatal("missing name for -server option"); + ServerFileName = strmake(argv[0]); + } + else if (streql(argv[0], "-sheader")) { + --argc; ++argv; + if (argc == 0) + fatal ("missing name for -sheader option"); + ServerHeaderFileName = strmake(argv[0]); + } + else if (streql(argv[0], "-split")) + UseSplitHeaders = TRUE; + else + GenSymTab = TRUE; + break; + + case 'S': + GenSymTab = FALSE; + break; + + case 't': + warn("Mach RPC traps not fully supported"); + TestRPCTrap = TRUE; + UseRPCTrap = TRUE; + break; + + case 'T': + UseRPCTrap = FALSE; + break; + + case 'i': + if (streql(argv[0], "-iheader")) { + --argc; ++argv; + if (argc == 0) + fatal("missing name for -iheader option"); + InternalHeaderFileName = strmake(argv[0]); + } + else { + --argc; ++argv; + if (argc == 0) + fatal("missing prefix for -i option"); + UserFilePrefix = strmake(argv[0]); + } + break; + + case 'u': + if (streql(argv[0], "-user")) { + --argc; ++argv; + if (argc == 0) + fatal("missing name for -user option"); + UserFileName = strmake(argv[0]); + } + else + fatal("unknown flag: '%s'", argv[0]); + break; + + case 'h': + if (streql(argv[0], "-header")) { + --argc; ++argv; + if (argc == 0) + fatal("missing name for -header option"); + UserHeaderFileName = strmake(argv[0]); + } + else + fatal("unknown flag: '%s'", argv[0]); + break; + + case 'd': + if (streql(argv[0], "-dheader")) { + --argc; ++argv; + if (argc == 0) + fatal("missing name for -dheader option"); + DefinesHeaderFileName = strmake(argv[0]); + } + else + fatal("unknown flag: '%s'", argv[0]); + break; + + case 'm': + if (streql(argv[0], "-maxonstack")) { + --argc; ++argv; + if (argc == 0) + fatal("missing size for -maxonstack option"); + MaxMessSizeOnStack = atoi(argv[0]); + } + else + fatal("unknown flag: '%s'", argv[0]); + break; + + case 'X': + ShortCircuit = FALSE; + break; + + case 'x': + ShortCircuit = TRUE; + /* fall thru - no longer supported */ + + default: + fatal("unknown/unsupported flag: '%s'", argv[0]); + /*NOTREACHED*/ + } + } + else + fatal("bad argument: '%s'", *argv); +} + +FILE *uheader, *server, *user; + +int +main(int argc, char *argv[]) +{ + FILE *iheader = 0; + FILE *sheader = 0; + FILE *dheader = 0; + time_t loc; + extern string_t GenerationDate; + + set_program_name("mig"); + parseArgs(argc, argv); + if (PrintVersion) { + printf("%s\n", MIG_VERSION); + fflush(stdout); + exit(0); + } + init_global(); + init_type(); + loc = time((time_t *)0); + GenerationDate = ctime(&loc); + + LookNormal(); + (void) yyparse(); + + if (mig_errors > 0) + fatal("%d errors found. Abort.\n", mig_errors); + + more_global(); + + uheader = myfopen(UserHeaderFileName, "w"); + if (!UserFilePrefix) + user = myfopen(UserFileName, "w"); + server = myfopen(ServerFileName, "w"); + if (ServerHeaderFileName) + sheader = myfopen(ServerHeaderFileName, "w"); + if (IsKernelServer) { + iheader = myfopen(InternalHeaderFileName, "w"); + } + if (DefinesHeaderFileName) + dheader = myfopen(DefinesHeaderFileName, "w"); + if (BeVerbose) { + printf("Writing %s ... ", UserHeaderFileName); + fflush(stdout); + } + WriteUserHeader(uheader, stats); + fclose(uheader); + if (ServerHeaderFileName) { + if (BeVerbose) { + printf ("done.\nWriting %s ...", ServerHeaderFileName); + fflush (stdout); + } + WriteServerHeader(sheader, stats); + fclose(sheader); + } + if (IsKernelServer) { + if (BeVerbose) { + printf("done.\nWriting %s ... ", InternalHeaderFileName); + fflush(stdout); + } + WriteInternalHeader(iheader, stats); + fclose(iheader); + } + if (DefinesHeaderFileName) { + if (BeVerbose) { + printf ("done.\nWriting %s ...", DefinesHeaderFileName); + fflush (stdout); + } + WriteDefinesHeader(dheader, stats); + fclose(dheader); + } + if (UserFilePrefix) { + if (BeVerbose) { + printf("done.\nWriting individual user files ... "); + fflush(stdout); + } + WriteUserIndividual(stats); + } + else { + if (BeVerbose) { + printf("done.\nWriting %s ... ", UserFileName); + fflush(stdout); + } + WriteUser(user, stats); + fclose(user); + } + if (BeVerbose) { + printf("done.\nWriting %s ... ", ServerFileName); + fflush(stdout); + } + WriteServer(server, stats); + fclose(server); + if (BeVerbose) + printf("done.\n"); + + exit(0); +} + +static FILE * +myfopen(const char *name, const char *mode) +{ + const char *realname; + FILE *file; + + if (name == strNULL) + realname = "/dev/null"; + else + realname = name; + + file = fopen(realname, mode); + if (file == NULL) + fatal("fopen(%s): %s", realname, strerror(errno)); + + return file; +} |