Initial commit of OpenSPARC T2 architecture model.

[OpenSPARC-T2-SAM] / legion / src / support / reggen.l

/*
* ========== Copyright Header Begin ==========================================
* 
* OpenSPARC T2 Processor File: reggen.l
* Copyright (c) 2006 Sun Microsystems, Inc.  All Rights Reserved.
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES.
* 
* The above named program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public
* License version 2 as published by the Free Software Foundation.
* 
* The above named 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 work; if not, write to the Free Software
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
* 
* ========== Copyright Header End ============================================
*/
/*
 * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 *
 * ident	"@(#)reggen.l	1.5	05/01/12 SMI"
 */
%{

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <stdarg.h>
#include <errno.h>
#include <sys/param.h>	/* for MAXPATHLEN */
#include <string.h>	/* for strchr */
#include <ctype.h>	/* for islower / toupper */


#define	MAXBUF	1024

void fatal(char *, ...);
void strcasecpy(char * top, char * fromp);
int yywrap();

FILE * dotc, * doth;
char * basenamep;
char * structnamep;
char * specfilep;

int enumidx;
int alias;
char aliasname[MAXBUF];

%}

%%

<<EOF>>	return 0;

[ \t]+	{ }

\n	{
		if (alias > 0) {
			alias = 0;
			enumidx++;
		}
	}

[A-Za-z][A-Za-z0-9]* {
		if (!alias) {
			sprintf(aliasname, "Reg_%s_%s", structnamep, yytext);
			fprintf(doth,"\t%s = %d, \n", aliasname, enumidx);
			fprintf(dotc,"\t{ \"%s\", Reg_%s_%s },\n", yytext, structnamep, yytext);
		} else {
			fprintf(doth,"\t\tReg_%s_%s = %s,\n",
				structnamep, yytext, aliasname);
			fprintf(dotc,"\t{ \"%s\", %s },\n", yytext, aliasname);
		}

		alias ++;
	}

#.*	{ /* swallow comments */ }

.	{
		fatal("Illegal spec text %s", yytext);
	}


%%

int main(int argc, char ** argv)
{
	char bufp[MAXPATHLEN];
	char caps[MAXPATHLEN];
	char * bnamep;

	if (argc != 3) fatal("usage: %s <basefilename> <basestructname>\n",
			argv[0]);

	basenamep = argv[1];
	structnamep = argv[2];
	if (strlen(structnamep)>MAXBUF-100) fatal("basestructname is too long!");

		/* Initialise the .h and .c files */

	sprintf(bufp, "%s.c", basenamep);
	dotc = fopen(bufp, "w");
	if (dotc == NULL) fatal("creating %s", bufp);

	sprintf(bufp, "%s.h", basenamep);
	doth = fopen(bufp, "w");
	if (doth == NULL) fatal("creating %s", bufp);

		/* remove any earlier path ... */
	bnamep = strrchr(basenamep, '/');
	if (bnamep == (char*)0)
		bnamep = basenamep;
	else
		bnamep ++;

	strcasecpy(caps, bnamep);


	fprintf(dotc,"\
/* Autogenerated file - DO NOT EDIT */\n\
#include \"basics.h\"\n\
#include \"simcore.h\"\n\
#include \"config.h\"\n\
#include \"regmap.h\"\n\
#include \"%s.h\"\n\
\n\
reg_map_t %s_reg_map[]={\n",
		bnamep, structnamep);


	fprintf(doth,"\
#ifndef _%s_H_\n\
#define _%s_H_\n\
\n\
typedef enum {\n", caps, caps);

	alias = 0;
	enumidx = 0;

	yylex();

fprintf(dotc,"\n\
\t{ (char *)0, -1 }\n\
};\n" );

	fclose(dotc);

fprintf(doth,"\
\tReg_%s_TOTAL = %d\n\
} %s_reg_t;\n\
\n\
#endif\n", structnamep, enumidx, structnamep);

	fclose(doth);
	exit(0);

	return 0;	/* compiler joy */
}





void fatal(char* fmt, ...)
{
	va_list 	args;
	
	if (errno!=0) perror("FATAL: "); else fprintf(stderr,"FATAL: ");
	if (fmt) {
		va_start(args, fmt);
		(void)vfprintf(stderr, fmt, args);

		va_end(args);
	}

	fprintf(stderr,"\n");
	fflush(stderr);
	fflush(stdout);

	exit(1);
}




void strcasecpy(char * top, char * fromp)
{
	do {
		*top++ = islower((unsigned)*fromp) ? toupper((unsigned)*fromp) : *fromp;
	} while (*fromp++ != '\0');
}



int yywrap()
{
	return 1;
}