4.4BSD/usr/src/contrib/xns/compiler/main.c

#ifndef lint
static char RCSid[] = "$Header: main.c,v 2.3 87/04/01 10:31:37 jqj Exp $";
#endif

/* $Log:	main.c,v $
 * Revision 2.3  87/04/01  10:31:37  jqj
 * changes from Webster: added -I switch for search path of DEPENDS UPON files
 * 
 * Revision 2.2  87/03/17  09:31:39  ed
 * Added -I switch to establish search path for DEPENDS UPON files.
 * 
 * Revision 2.1  86/06/06  07:28:45  jqj
 * many mods for better symbol table management:  added CurrentModule,
 *  made check_dependency, make_symbol, check_def set/use/use a symbol
 *  table instead of a module name string, etc.  Result is that we can
 *  now handle DEPENDS UPON 2 versions of same program.
 * 
 * Revision 2.0  85/11/21  07:21:40  jqj
 * 4.3BSD standard release
 * 
 * Revision 1.5  85/05/23  06:19:55  jqj
 * *** empty log message ***
 * 
 * Revision 1.5  85/05/23  06:19:55  jqj
 * Public Beta-test version, released 24 May 1985
 * 
 * Revision 1.4  85/03/26  06:10:07  jqj
 * Revised public alpha-test version, released 26 March 1985
 * 
 * Revision 1.3  85/03/11  16:39:42  jqj
 * Public alpha-test version, released 11 March 1985
 * 
 * Revision 1.2  85/02/21  11:05:24  jqj
 * alpha test version
 * 
 * Revision 1.1  85/02/15  13:55:31  jqj
 * Initial revision
 * 
 */

#include "compiler.h"
#include <errno.h>
#include <signal.h>

char *input_file;
/*NOBASE*/
static char header_file[MAXSTR];
FILE *header;
/*NOBASE*/
static char *header1_file[MAXSTR];
FILE *header1;
/*NOBASE*/
static char support_file1[MAXSTR];
FILE *support1;
/*NOBASE*/
static char support_file2[MAXSTR];
FILE *support2;
/*NOBASE*/
static char client_file[MAXSTR];
FILE *client;
/*NOBASE*/
static char server_file[MAXSTR];
FILE *server;

list Procedures, Errors;
int recursive_flag, errs;

struct type *Boolean_type, *Cardinal_type, *LongCardinal_type,
	*Integer_type, *LongInteger_type, *String_type,
	*Unspecified_type, *LongUnspecified_type, *NilRecord_type,
	*StreamEnum_type;

#define MAXIDIRS	25
char *dirs[MAXIDIRS]= 0;
int ndirs= 0;

#ifdef DEBUG
int DebugFlag = 0;
#endif


interrupt()
{
	errs = 1;
	goodbye();
}

main(argc,argv)
	int argc;
	char **argv;
{
	int opt;
	extern int optind;
	extern char *optarg;

	if (argc < 2) {
		fprintf(stderr, "Usage: %s [-I include-dir] input_file\n",argv[0]);
		exit(1);
	}

	while ((opt= getopt(argc, argv, "I:")) != EOF)
		switch (opt) {
			case 'I' :
				if ( ndirs > MAXIDIRS ) {
					fprintf(stderr, "Too many include directories\n");
					exit(1);
				}
				dirs[ndirs++]= optarg;
				break;

			default :
				fprintf(stderr, "Illegal commandline option -%c\n", opt);
				exit(1);
		}
	input_file = argv[optind];
	if (freopen(input_file, "r",stdin) == NULL) {
		perror(input_file); exit(1);
	}
	tempname(header_file);
	tempname(header1_file);
	tempname(client_file); 
	tempname(server_file);
	tempname(support_file1); 
	tempname(support_file2);
	if ((header = fopen(header_file,"w")) == NULL) {
		perror(header_file); 
		goodbye();
	}
	if ((header1 = fopen(header1_file,"w")) == NULL) {
		perror(header1_file); 
		goodbye();
	}
	if ((client = fopen(client_file,"w")) == NULL) {
		perror(client_file); 
		goodbye();
	}
	if ((server = fopen(server_file,"w")) == NULL) {
		perror(server_file); 
		goodbye();
	}
	if ((support1 = fopen(support_file1,"w")) == NULL) {
		perror(support_file1); 
		goodbye();
	}
	if ((support2 = fopen(support_file2,"w")) == NULL) {
		perror(support_file2); 
		goodbye();
	}
	setup_predefs();
	(void) yyparse();
	(void) fclose(header1);
	(void) fclose(header); 
	(void) fclose(client); 
	(void) fclose(server);
	if (errs == 0) {
		register int c;

		freopen(support_file2, "r", support2);
		while ((c = getc(support2)) != EOF)
			(void) putc(c, support1);
		(void) fclose(support1); 
		(void) fclose(support2);
		(void) unlink(support_file2);
		changename(support_file1, "_support.c");
		if (Procedures != NIL) {
			changename(client_file, "_client.c");
			changename(server_file, "_server.c");
		} else {
			(void) unlink(client_file);
			(void) unlink(server_file);
		}
		changename(header_file, ".h");
		changename(header1_file, "_defs.h");
	}
	goodbye();

}


goodbye()
{
	if(errs) {
		(void) unlink(header_file);
		(void) unlink(header1_file);
		(void) unlink(client_file);
		(void) unlink(server_file);
		(void) unlink(support_file1);
		(void) unlink(support_file2);
	}
	exit(errs);
}

/*
 * Rename the source file to be <CurrentProgram><CurrentVersion><suffix> .
 */
changename(source, suffix)
	char *source, *suffix;
{
	char newname[MAXSTR];

	(void) sprintf(newname, "%s%d%s", 
			CurrentProgram, CurrentVersion, suffix);
	if (rename(source, newname) == -1)
		perror(newname);
}

/* VARARGS1 */
error(level, s, args)
	enum severity level;
	char *s;
{
	extern int yylineno;

	fprintf(stderr, "%s: %d: ", input_file, yylineno);
	if (level == WARNING)
		fprintf(stderr, "Warning: ");
	_doprnt(s, &args, stderr);
	(void) putc('\n', stderr);
	if (level == ERROR)
		errs++;
	if (level == FATAL)
		goodbye();
}

yyerror(s)
	char *s;
{
	error(ERROR, s);
}

tempname(bclient)
	char *bclient;
{
	static int n = 0;

	sprintf(bclient, "tmp%d.%d", n, getpid());
	n++;
}

struct type *
predefine_enum_type(name,elements)
	char *name;
	char **elements;
{
	struct object *symbol;
	list dlist;
	struct type *resulttype;
	char *id, *value;
	
	dlist = NIL;
	for ( ; *elements != (char*)NULL; elements += 2) {
		id = *elements;
		value = *(elements+1);
		if (check_def(id, ONIL))
		  error(FATAL,"in predefine_enum_type, %s already declared",
			id);
		symbol = make_symbol(id, ONIL);
		define_enumeration_symbol(symbol, value);
		dlist = cons(cons((list) symbol, (list) value),
			     dlist);
	}
	resulttype = enumeration_type(dlist);
	resulttype->type_name = name;
	resulttype->type_xsize = 1;
	return(resulttype);
}

#define PREDEFINE(xtype, xname, nwords, constr) { \
	xtype = make_type(constr); \
	xtype->type_name = xname; \
	xtype->type_xsize = nwords; \
}

/*
 * This mess is needed because C doesn't handle initialization of unions.
 * Note that all of these must correspond to declarations, plus sizeof_,
 * externalize_, and internalize_ functions, in courier.h
 */
setup_predefs()
{
	extern struct object *GlobalSymbols;
	static char *streamvals[] = {"nextSegment","0","lastSegment","1",
				     (char*)0};
#ifndef lint
	GlobalSymbols = make_module("*global*",0,0);
	PREDEFINE(Boolean_type, "Boolean", 1, C_BOOLEAN);
	PREDEFINE(Cardinal_type, "Cardinal", 1, C_NUMERIC);
	PREDEFINE(LongCardinal_type, "LongCardinal", 2, C_NUMERIC);
	PREDEFINE(Integer_type, "Integer", 1, C_NUMERIC);
	PREDEFINE(LongInteger_type, "LongInteger", 2, C_NUMERIC);
	PREDEFINE(String_type, "String", -1, C_STRING);
	PREDEFINE(Unspecified_type, "Unspecified", 1, C_NUMERIC);
	PREDEFINE(LongUnspecified_type, "LongUnspecified", 2, C_NUMERIC);
	PREDEFINE(NilRecord_type, "NilRecord", 0, C_RECORD);
	StreamEnum_type = predefine_enum_type("StreamEnumerator", streamvals);
#endif
}