/* CHK=0xC2C5 */char *rev = "1.20";/*+-------------------------------------------------------------------------	afterlint.c -- process MSC -Zg output (for *some* MSC versions)This works for ecu but maybe not other code collections;returning a typedefed but unnamed structure (or pointer)will, for instance, produce bad output.Use with zgcc.--------------------------------------------------------------------------*//*+:EDITS:*//*:09-10-1992-13:58-wht@n4hgf-ECU release 3.20 *//*:08-22-1992-15:38-wht@n4hgf-ECU release 3.20 BETA *//*:01-21-1992-03:03-wht@n4hgf-better handling of commented items with UNNAMED *//*:07-25-1991-12:55-wht@n4hgf-ECU release 3.10 *//*:01-09-1991-22:31-wht@n4hgf-ISC port *//*:11-18-1990-21:15-wht@n4hgf-clobber 'extern  ' in prototypes *//*:07-13-1988-19:50-wht-creation */# include <stdio.h># include <sys/types.h>#ifdef BSD# include <sys/time.h>#define strchr index#define strrchr rindexchar *index();char *rindex();/*************************/#else	/* assuming SYSV *//*************************/# include <time.h>char *strchr();char *strrchr();#endif	/* system dependencies */struct tm *localtime();/*+-------------------------------------------------------------------------	emit_editnote(fp)--------------------------------------------------------------------------*/voidemit_editnote(fp)FILE	*fp;{	struct tm *ltime;	long cur_time;	time(&cur_time);	ltime = localtime(&cur_time);	fputs("/*+:EDITS:*/\n",fp);	fprintf(fp,"/*:%02d-%02d-%04d-%02d:%02d-afterlint %s-creation */\n",	    ltime->tm_mon+1,ltime->tm_mday,ltime->tm_year + 1900,	    ltime->tm_hour,ltime->tm_min,rev);}	/* end of emit_editnote *//*+-------------------------------------------------------------------------	instr(str1,str2) - is str2 contained in str1?return 1 if so, else 0--------------------------------------------------------------------------*/intinstr(str1,str2)register char *str1;	/* the (target) string to search */register char *str2;	/* the (comparand) string to search for */{register int lstr2 = strlen(str2);	if(lstr2 > strlen(str1))		return(0);	while(*str1)    {        if(*str1 == *str2)        {            if(!strncmp(str1,str2,lstr2))                return(1);        }        ++str1;    }	return(0);}	/* end of instr *//*+-------------------------------------------------------------------------	main(argc,argv,envp)--------------------------------------------------------------------------*/main(argc,argv,envp)int argc;char **argv;char **envp;{	register char *cptr;	register FILE *fpin;	register FILE *fpout;	char buf[256];	char *basename;	if(argc < 2)	{		fprintf(stderr,"usage: afterlint <infile> [<outfile>]\n");		fprintf(stderr,"if outfile not supplied, output is to stdout\n");		exit(1);	}	if(!(fpin = fopen(argv[1],"r")))	{		perror(argv[1]);		exit(1);	}	if(argc > 2)	{		if(!(fpout = fopen(argv[2],"w")))		{			perror(argv[2]);			exit(1);		}		basename = argv[2];	}	else		fpout = stdout;	fprintf(fpout,	    "/*+-----------------------------------------------------------------------\n");	if(argc > 2)		fprintf(fpout,"\t%s\n",basename);	else		fprintf(fpout,"\tfunction declarations\n",basename);	fprintf(fpout,	    "------------------------------------------------------------------------*/\n");	emit_editnote(fpout);	fprintf(fpout,"\n");	fprintf(fpout,"#ifndef BUILDING_PROTOTYPES\n");	fprintf(fpout,"\n/* the following should catch only SCO MSC */\n");	fprintf(fpout,		"#if defined(M_SYSV) && !defined(__GNUC__) && !defined(GNUC)\n\n");	while(fgets(buf,sizeof(buf),fpin))	{		cptr = buf;		if(instr(buf,"UNNAMED"))		{			cptr += 3;			if(strchr(cptr,'('))			{				while(*cptr != '(')					fputc(*cptr++,fpout);				fputs("(); /* no proto (struct UNNAMED param) */\n",fpout);			}			continue;		}		if(!strncmp(buf,"/*global*/  ",12))			cptr += 12;		else if(!strncmp(buf,"extern  ",8))			cptr += 8;		else if(!strncmp(buf,"static  ",8))			cptr += 8;		fputs(cptr,fpout);	}	fprintf(fpout,"\n#else\t\t/* compiler doesn't know prototyping */\n\n");	fclose(fpin);	fpin = fopen(argv[1],"r");	while(fgets(buf,sizeof(buf),fpin))	{		cptr = buf;		if(instr(buf,"UNNAMED"))			cptr += 3;		else if(!strncmp(buf,"/*global*/  ",12))			cptr += 12;		else if(!strncmp(buf,"extern  ",8))			cptr += 8;		else if(!strncmp(buf,"static  ",8))			cptr += 8;		if(strchr(cptr,'('))		{			while(*cptr != '(')				fputc(*cptr++,fpout);			fputs("();\n",fpout);		}	}	fprintf(fpout,"\n#endif /* MSC considerations */\n");	fprintf(fpout,"#endif /* BUILDING_PROTOTYPES */\n");	fprintf(fpout,"\n/* end of %s */\n",	    (argc > 2) ? basename : "function declarations");	fclose(fpin);	fclose(fpout);	exit(0);}	/* end of main *//* vi: set tabstop=4 shiftwidth=4: */